From a6417518f16207a6826be6620bddf0f3b582e6d9 Mon Sep 17 00:00:00 2001 From: Ivan Razumov Date: Thu, 5 May 2022 10:54:02 +0200 Subject: [PATCH 1/2] [Forward port] Drop references to legacy generators Original PRs: #37610, #37611, #37612, #37616; cmsdist PR: todo --- .../interface/SharedResourceNames.h | 1 - FWCore/Concurrency/src/SharedResourceNames.cc | 1 - .../CascadeInterface/BuildFile.xml | 8 - .../CascadeInterface/plugins/BuildFile.xml | 13 - .../plugins/Cascade2GeneratorFilter.cc | 10 - .../plugins/Cascade2Hadronizer.cc | 812 -- .../plugins/Cascade2Hadronizer.h | 84 - .../CascadeInterface/plugins/CascadeWrapper.h | 159 - .../python/Cascade2Parameters_cfi.py | 35 - .../python/Cascade2_example_test_cff.py | 32 - .../ExternalDecays/src/ExternalDecayDriver.cc | 10 - .../test/Py6GenFilter_Photos_cfg.py | 190 - .../test/Py8GenFilter_Photos_cfg.py | 87 - .../Herwig6Interface/BuildFile.xml | 16 - .../interface/Herwig6Instance.h | 70 - .../Herwig6Interface/interface/herwig.h | 338 - .../Herwig6Interface/interface/hwudat.f | 10907 ---------------- .../Herwig6Interface/plugins/BuildFile.xml | 13 - .../Herwig6Interface/plugins/Dummies.cc | 21 - .../Herwig6Interface/plugins/Herwig6Filter.cc | 42 - .../plugins/Herwig6Hadronizer.cc | 1004 -- .../Herwig6Interface/plugins/cms_hwwarn.F | 92 - .../Herwig6Interface/plugins/hwmsct_dummy.F | 27 - .../Herwig6Interface/plugins/hwudat.F | 1 - .../Herwig6Interface/plugins/pathhelper.F | 35 - .../Herwig6Interface/src/Herwig6Instance.cc | 290 - .../Herwig6Interface/src/cms_hwwarn.F | 140 - .../src/fastjetfortran_madfks.cc | 462 - .../Herwig6Interface/src/hwmatch.F | 278 - .../Herwig6Interface/src/hwudat.F | 1 - .../Herwig6Interface/src/lunread.F | 31 - .../Herwig6Interface/src/params.inc | 251 - .../Herwig6Interface/test/BuildFile.xml | 10 - .../Herwig6Interface/test/H4muAnalyzer.cc | 87 - .../Herwig6Interface/test/analyze_cfg.py | 17 - ...tsusy317_isajet764_LM5_GUTlp211eq0.01.hw65 | 556 - .../Herwig6Interface/test/testHerwig6_cfg.py | 69 - ...estHerwig6_externalParticleSpecFile_cfg.py | 61 - .../test/testHerwig6_lhe_cfg.py | 71 - .../Herwig6Interface/test/testaMCatNLOTTW.py | 118 - .../test/testaMCatNLO_H0jet.py | 119 - .../test/ttbar_5flavours_xqcut20_10TeV.lhe | 1543 --- .../MCatNLOInterface/plugins/BuildFile.xml | 10 - .../MCatNLOInterface/plugins/MCatNLOSource.cc | 183 - .../MCatNLOInterface/plugins/MCatNLOSource.h | 77 - .../MCatNLOInterface/plugins/mcatnlo_hwursc.f | 51 - .../MCatNLOInterface/plugins/mcatnlo_upevnt.f | 1050 -- .../MCatNLOInterface/plugins/mcatnlo_upinit.f | 539 - .../MCatNLOInterface/test/BuildFile.xml | 11 - .../MCatNLOInterface/test/Z.events | 89 - .../MCatNLOInterface/test/ZeeAnalyzer.cc | 152 - .../test/analyzeEvents_cfg.py | 24 - .../MCatNLOInterface/test/testReader_cfg.py | 19 - .../test/testSourceAndHadronizer_cfg.py | 65 - .../MCatNLOInterface/test/testWriter_cfg.py | 17 - .../interface/PhotosInterface.h | 53 - .../PhotosInterface/plugins/BuildFile.xml | 10 - .../plugins/PhotosInterface.cc | 432 - .../PomwigInterface/BuildFile.xml | 12 - .../interface/PomwigHadronizer.h | 72 - .../PomwigInterface/plugins/BuildFile.xml | 9 - .../plugins/PomwigGeneratorFilter.cc | 10 - .../PomwigInterface/plugins/hwudat.F | 1 - .../POMWIG_DPEDijets_10TeV_Pt_30_cff.py | 39 - .../python/POMWIG_DPEDijets_7TeV_Pt_30_cff.py | 39 - .../python/POMWIG_DPEDijets_8TeV_Pt_30_cff.py | 39 - ...eDiffractiveDijetsMinus_10TeV_Pt_30_cff.py | 39 - ...eDiffractiveDijetsMinus_10TeV_Pt_80_cff.py | 39 - ...leDiffractiveDijetsPlus_10TeV_Pt_30_cff.py | 39 - ...leDiffractiveDijetsPlus_10TeV_Pt_80_cff.py | 39 - ...gleDiffractiveDijetsPlus_7TeV_Pt_30_cff.py | 39 - ...gleDiffractiveDijetsPlus_8TeV_Pt_30_cff.py | 39 - ...G_SingleDiffractiveMinusWmunu_10TeV_cff.py | 38 - ...IG_SingleDiffractivePlusWmunu_10TeV_cff.py | 36 - .../PomwigInterface/python/Pomwig_custom.py | 7 - .../PomwigInterface/src/PomwigHadronizer.cc | 367 - .../PomwigInterface/src/flux65.f | 42 - .../PomwigInterface/src/h12006flux.f | 103 - .../PomwigInterface/src/h1qcd.f | 5875 --------- .../PomwigInterface/src/hwegam65.f | 285 - .../PomwigInterface/src/hwsfun65.f | 858 -- .../PomwigInterface/src/i_2006_fita.f | 6242 --------- .../PomwigInterface/src/i_2006_fitb.f | 6242 --------- .../PomwigInterface/src/pomstr.f | 35 - .../PomwigInterface/src/qcd_2006.f | 214 - .../PomwigInterface/test/BuildFile.xml | 13 - .../PomwigInterface/test/PomwigAnalyzer.cc | 74 - .../PomwigInterface/test/PomwigAnalyzer.h | 48 - .../PomwigInterface/test/SDDYAnalyzer.cc | 184 - .../PomwigInterface/test/SDDijetsAnalyzer.cc | 217 - .../PomwigInterface/test/Z2muAnalyzer.cc | 64 - .../PomwigInterface/test/Z2muAnalyzer.h | 48 - .../PomwigInterface/test/analyzeSDDY_cfg.py | 30 - .../test/analyzeSDDijets_cfg.py | 54 - .../interface/Herwig6PartonSelector.h | 19 - .../plugins/HadronAndPartonSelector.cc | 8 +- .../JetMCAlgos/src/Herwig6PartonSelector.cc | 27 - 97 files changed, 1 insertion(+), 42478 deletions(-) delete mode 100644 GeneratorInterface/CascadeInterface/BuildFile.xml delete mode 100644 GeneratorInterface/CascadeInterface/plugins/BuildFile.xml delete mode 100644 GeneratorInterface/CascadeInterface/plugins/Cascade2GeneratorFilter.cc delete mode 100644 GeneratorInterface/CascadeInterface/plugins/Cascade2Hadronizer.cc delete mode 100644 GeneratorInterface/CascadeInterface/plugins/Cascade2Hadronizer.h delete mode 100644 GeneratorInterface/CascadeInterface/plugins/CascadeWrapper.h delete mode 100644 GeneratorInterface/CascadeInterface/python/Cascade2Parameters_cfi.py delete mode 100644 GeneratorInterface/CascadeInterface/python/Cascade2_example_test_cff.py delete mode 100644 GeneratorInterface/ExternalDecays/test/Py6GenFilter_Photos_cfg.py delete mode 100644 GeneratorInterface/ExternalDecays/test/Py8GenFilter_Photos_cfg.py delete mode 100644 GeneratorInterface/Herwig6Interface/BuildFile.xml delete mode 100644 GeneratorInterface/Herwig6Interface/interface/Herwig6Instance.h delete mode 100644 GeneratorInterface/Herwig6Interface/interface/herwig.h delete mode 100644 GeneratorInterface/Herwig6Interface/interface/hwudat.f delete mode 100644 GeneratorInterface/Herwig6Interface/plugins/BuildFile.xml delete mode 100644 GeneratorInterface/Herwig6Interface/plugins/Dummies.cc delete mode 100644 GeneratorInterface/Herwig6Interface/plugins/Herwig6Filter.cc delete mode 100644 GeneratorInterface/Herwig6Interface/plugins/Herwig6Hadronizer.cc delete mode 100644 GeneratorInterface/Herwig6Interface/plugins/cms_hwwarn.F delete mode 100644 GeneratorInterface/Herwig6Interface/plugins/hwmsct_dummy.F delete mode 100644 GeneratorInterface/Herwig6Interface/plugins/hwudat.F delete mode 100644 GeneratorInterface/Herwig6Interface/plugins/pathhelper.F delete mode 100644 GeneratorInterface/Herwig6Interface/src/Herwig6Instance.cc delete mode 100644 GeneratorInterface/Herwig6Interface/src/cms_hwwarn.F delete mode 100644 GeneratorInterface/Herwig6Interface/src/fastjetfortran_madfks.cc delete mode 100644 GeneratorInterface/Herwig6Interface/src/hwmatch.F delete mode 100644 GeneratorInterface/Herwig6Interface/src/hwudat.F delete mode 100644 GeneratorInterface/Herwig6Interface/src/lunread.F delete mode 100644 GeneratorInterface/Herwig6Interface/src/params.inc delete mode 100644 GeneratorInterface/Herwig6Interface/test/BuildFile.xml delete mode 100644 GeneratorInterface/Herwig6Interface/test/H4muAnalyzer.cc delete mode 100644 GeneratorInterface/Herwig6Interface/test/analyze_cfg.py delete mode 100644 GeneratorInterface/Herwig6Interface/test/softsusy317_isajet764_LM5_GUTlp211eq0.01.hw65 delete mode 100644 GeneratorInterface/Herwig6Interface/test/testHerwig6_cfg.py delete mode 100644 GeneratorInterface/Herwig6Interface/test/testHerwig6_externalParticleSpecFile_cfg.py delete mode 100644 GeneratorInterface/Herwig6Interface/test/testHerwig6_lhe_cfg.py delete mode 100644 GeneratorInterface/Herwig6Interface/test/testaMCatNLOTTW.py delete mode 100644 GeneratorInterface/Herwig6Interface/test/testaMCatNLO_H0jet.py delete mode 100644 GeneratorInterface/Herwig6Interface/test/ttbar_5flavours_xqcut20_10TeV.lhe delete mode 100644 GeneratorInterface/MCatNLOInterface/plugins/BuildFile.xml delete mode 100644 GeneratorInterface/MCatNLOInterface/plugins/MCatNLOSource.cc delete mode 100644 GeneratorInterface/MCatNLOInterface/plugins/MCatNLOSource.h delete mode 100644 GeneratorInterface/MCatNLOInterface/plugins/mcatnlo_hwursc.f delete mode 100644 GeneratorInterface/MCatNLOInterface/plugins/mcatnlo_upevnt.f delete mode 100644 GeneratorInterface/MCatNLOInterface/plugins/mcatnlo_upinit.f delete mode 100644 GeneratorInterface/MCatNLOInterface/test/BuildFile.xml delete mode 100644 GeneratorInterface/MCatNLOInterface/test/Z.events delete mode 100644 GeneratorInterface/MCatNLOInterface/test/ZeeAnalyzer.cc delete mode 100644 GeneratorInterface/MCatNLOInterface/test/analyzeEvents_cfg.py delete mode 100644 GeneratorInterface/MCatNLOInterface/test/testReader_cfg.py delete mode 100644 GeneratorInterface/MCatNLOInterface/test/testSourceAndHadronizer_cfg.py delete mode 100644 GeneratorInterface/MCatNLOInterface/test/testWriter_cfg.py delete mode 100644 GeneratorInterface/PhotosInterface/interface/PhotosInterface.h delete mode 100644 GeneratorInterface/PhotosInterface/plugins/PhotosInterface.cc delete mode 100644 GeneratorInterface/PomwigInterface/BuildFile.xml delete mode 100644 GeneratorInterface/PomwigInterface/interface/PomwigHadronizer.h delete mode 100644 GeneratorInterface/PomwigInterface/plugins/BuildFile.xml delete mode 100644 GeneratorInterface/PomwigInterface/plugins/PomwigGeneratorFilter.cc delete mode 100644 GeneratorInterface/PomwigInterface/plugins/hwudat.F delete mode 100644 GeneratorInterface/PomwigInterface/python/POMWIG_DPEDijets_10TeV_Pt_30_cff.py delete mode 100644 GeneratorInterface/PomwigInterface/python/POMWIG_DPEDijets_7TeV_Pt_30_cff.py delete mode 100644 GeneratorInterface/PomwigInterface/python/POMWIG_DPEDijets_8TeV_Pt_30_cff.py delete mode 100644 GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsMinus_10TeV_Pt_30_cff.py delete mode 100644 GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsMinus_10TeV_Pt_80_cff.py delete mode 100644 GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_10TeV_Pt_30_cff.py delete mode 100644 GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_10TeV_Pt_80_cff.py delete mode 100644 GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_7TeV_Pt_30_cff.py delete mode 100644 GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_8TeV_Pt_30_cff.py delete mode 100644 GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveMinusWmunu_10TeV_cff.py delete mode 100644 GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractivePlusWmunu_10TeV_cff.py delete mode 100644 GeneratorInterface/PomwigInterface/python/Pomwig_custom.py delete mode 100644 GeneratorInterface/PomwigInterface/src/PomwigHadronizer.cc delete mode 100644 GeneratorInterface/PomwigInterface/src/flux65.f delete mode 100644 GeneratorInterface/PomwigInterface/src/h12006flux.f delete mode 100644 GeneratorInterface/PomwigInterface/src/h1qcd.f delete mode 100644 GeneratorInterface/PomwigInterface/src/hwegam65.f delete mode 100644 GeneratorInterface/PomwigInterface/src/hwsfun65.f delete mode 100644 GeneratorInterface/PomwigInterface/src/i_2006_fita.f delete mode 100644 GeneratorInterface/PomwigInterface/src/i_2006_fitb.f delete mode 100644 GeneratorInterface/PomwigInterface/src/pomstr.f delete mode 100644 GeneratorInterface/PomwigInterface/src/qcd_2006.f delete mode 100644 GeneratorInterface/PomwigInterface/test/BuildFile.xml delete mode 100644 GeneratorInterface/PomwigInterface/test/PomwigAnalyzer.cc delete mode 100644 GeneratorInterface/PomwigInterface/test/PomwigAnalyzer.h delete mode 100644 GeneratorInterface/PomwigInterface/test/SDDYAnalyzer.cc delete mode 100644 GeneratorInterface/PomwigInterface/test/SDDijetsAnalyzer.cc delete mode 100644 GeneratorInterface/PomwigInterface/test/Z2muAnalyzer.cc delete mode 100644 GeneratorInterface/PomwigInterface/test/Z2muAnalyzer.h delete mode 100644 GeneratorInterface/PomwigInterface/test/analyzeSDDY_cfg.py delete mode 100644 GeneratorInterface/PomwigInterface/test/analyzeSDDijets_cfg.py delete mode 100644 PhysicsTools/JetMCAlgos/interface/Herwig6PartonSelector.h delete mode 100644 PhysicsTools/JetMCAlgos/src/Herwig6PartonSelector.cc diff --git a/FWCore/Concurrency/interface/SharedResourceNames.h b/FWCore/Concurrency/interface/SharedResourceNames.h index c063cd7eea7ef..55b2c259dff01 100644 --- a/FWCore/Concurrency/interface/SharedResourceNames.h +++ b/FWCore/Concurrency/interface/SharedResourceNames.h @@ -28,7 +28,6 @@ namespace edm { static const std::string kPhotos; static const std::string kTauola; static const std::string kEvtGen; - static const std::string kHerwig6; }; //ES modules can not share resources with ED modules diff --git a/FWCore/Concurrency/src/SharedResourceNames.cc b/FWCore/Concurrency/src/SharedResourceNames.cc index 7011235d15472..eb9745acbdf4d 100644 --- a/FWCore/Concurrency/src/SharedResourceNames.cc +++ b/FWCore/Concurrency/src/SharedResourceNames.cc @@ -10,7 +10,6 @@ const std::string edm::SharedResourceNames::kPythia8 = "Pythia8"; const std::string edm::SharedResourceNames::kPhotos = "Photos"; const std::string edm::SharedResourceNames::kTauola = "Tauola"; const std::string edm::SharedResourceNames::kEvtGen = "EvtGen"; -const std::string edm::SharedResourceNames::kHerwig6 = "Herwig6"; const std::string edm::ESSharedResourceNames::kDDGeometry = "es_DDGeometry"; const std::string edm::ESSharedResourceNames::kDD4hep = "es_DD4hep"; diff --git a/GeneratorInterface/CascadeInterface/BuildFile.xml b/GeneratorInterface/CascadeInterface/BuildFile.xml deleted file mode 100644 index 8a2ad4f32ea62..0000000000000 --- a/GeneratorInterface/CascadeInterface/BuildFile.xml +++ /dev/null @@ -1,8 +0,0 @@ - - - - - - - - diff --git a/GeneratorInterface/CascadeInterface/plugins/BuildFile.xml b/GeneratorInterface/CascadeInterface/plugins/BuildFile.xml deleted file mode 100644 index 767782a893c5d..0000000000000 --- a/GeneratorInterface/CascadeInterface/plugins/BuildFile.xml +++ /dev/null @@ -1,13 +0,0 @@ - - - - - - - - - - - - - diff --git a/GeneratorInterface/CascadeInterface/plugins/Cascade2GeneratorFilter.cc b/GeneratorInterface/CascadeInterface/plugins/Cascade2GeneratorFilter.cc deleted file mode 100644 index 92a4d57c42d04..0000000000000 --- a/GeneratorInterface/CascadeInterface/plugins/Cascade2GeneratorFilter.cc +++ /dev/null @@ -1,10 +0,0 @@ -#include "GeneratorInterface/Core/interface/GeneratorFilter.h" -#include "GeneratorInterface/ExternalDecays/interface/ExternalDecayDriver.h" -#include "Cascade2Hadronizer.h" - -namespace gen { - typedef edm::GeneratorFilter Cascade2GeneratorFilter; -} - -using gen::Cascade2GeneratorFilter; -DEFINE_FWK_MODULE(Cascade2GeneratorFilter); diff --git a/GeneratorInterface/CascadeInterface/plugins/Cascade2Hadronizer.cc b/GeneratorInterface/CascadeInterface/plugins/Cascade2Hadronizer.cc deleted file mode 100644 index a547b2b47e18b..0000000000000 --- a/GeneratorInterface/CascadeInterface/plugins/Cascade2Hadronizer.cc +++ /dev/null @@ -1,812 +0,0 @@ -#include "GeneratorInterface/CascadeInterface/plugins/Cascade2Hadronizer.h" - -#include - -#include "HepMC/GenEvent.h" -#include "HepMC/PdfInfo.h" -#include "HepMC/PythiaWrapper6_4.h" -#include "GeneratorInterface/CascadeInterface/plugins/CascadeWrapper.h" - -#include "HepMC/HEPEVT_Wrapper.h" -#include "HepMC/IO_HEPEVT.h" -#include "HepMC/IO_GenEvent.h" - -#include "FWCore/Concurrency/interface/SharedResourceNames.h" -#include "FWCore/MessageLogger/interface/MessageLogger.h" -#include "GeneratorInterface/Core/interface/FortranCallback.h" -#include "GeneratorInterface/Core/interface/FortranInstance.h" - -HepMC::IO_HEPEVT hepevtio; - -#include "HepPID/ParticleIDTranslations.hh" - -#include "FWCore/Utilities/interface/EDMException.h" - -//-- Pythia6 routines and functionalities to pass around Pythia6 params - -#include "GeneratorInterface/Pythia6Interface/interface/Pythia6Service.h" -#include "GeneratorInterface/Pythia6Interface/interface/Pythia6Declarations.h" - -#include "SimDataFormats/GeneratorProducts/interface/GenRunInfoProduct.h" - -#include "CLHEP/Random/RandomEngine.h" - -using namespace edm; -using namespace std; - -#define debug 0 - -static CLHEP::HepRandomEngine* cascade2RandomEngine; - -extern "C" { - -double dcasrn_(int* idummy) { - static int call = 0; - - double rdm_nb = cascade2RandomEngine->flat(); - - if (debug && ++call < 100) - cout << "dcasrn from c++, call: " << call << " random number: " << rdm_nb << endl; - - return rdm_nb; -} -} - -namespace gen { - - class Pythia6ServiceWithCallback : public Pythia6Service { - public: - Pythia6ServiceWithCallback(const edm::ParameterSet& pset) : Pythia6Service(pset) {} - - private: - void upInit() override { FortranCallback::getInstance()->fillHeader(); } - - void upEvnt() override { FortranCallback::getInstance()->fillEvent(); } - - bool upVeto() override { - bool veto = false; - if (!hepeup_.nup) - veto = true; //-- LHE Common Blocks - return (veto); - } - }; - - static struct { - int n, npad, k[5][pyjets_maxn]; - double p[5][pyjets_maxn], v[5][pyjets_maxn]; - } pyjets_local; - - const std::vector Cascade2Hadronizer::theSharedResources = {edm::SharedResourceNames::kPythia6, - gen::FortranInstance::kFortranInstance}; - - Cascade2Hadronizer::Cascade2Hadronizer(edm::ParameterSet const& pset) - : BaseHadronizer(pset), - fPy6Service(new Pythia6ServiceWithCallback(pset)), //-- this will store py6 parameters for further settings - - fComEnergy(pset.getParameter("comEnergy")), - fextCrossSection(pset.getUntrackedParameter("crossSection", -1.)), - fextCrossSectionError(pset.getUntrackedParameter("crossSectionError", -1.)), - fFilterEfficiency(pset.getUntrackedParameter("filterEfficiency", -1.)), - - fMaxEventsToPrint(pset.getUntrackedParameter("maxEventsToPrint", 0)), - fHepMCVerbosity(pset.getUntrackedParameter("pythiaHepMCVerbosity", false)), - fPythiaListVerbosity(pset.getUntrackedParameter("pythiaPylistVerbosity", 0)), - - fDisplayPythiaBanner(pset.getUntrackedParameter("displayPythiaBanner", false)), - fDisplayPythiaCards(pset.getUntrackedParameter("displayPythiaCards", false)) { - fParameters = pset.getParameter("Cascade2Parameters"); - - fConvertToPDG = false; - if (pset.exists("doPDGConvert")) - fConvertToPDG = pset.getParameter("doPDGConvert"); - - //-- silence Pythia6 banner printout, unless display requested - - if (!fDisplayPythiaBanner) { - if (!call_pygive("MSTU(12)=12345")) { - throw edm::Exception(edm::errors::Configuration, "PythiaError") << " Pythia did not accept MSTU(12)=12345"; - } - } - - //-- silence printouts from PYGIVE, unless display requested - - if (!fDisplayPythiaCards) { - if (!call_pygive("MSTU(13)=0")) { - throw edm::Exception(edm::errors::Configuration, "PythiaError") << " Pythia did not accept MSTU(13)=0"; - } - } - - //-- tmp stuff to deal with EvtGen corrupting pyjets - flushTmpStorage(); - } - - Cascade2Hadronizer::~Cascade2Hadronizer() { - if (fPy6Service != nullptr) - delete fPy6Service; - } - - void Cascade2Hadronizer::doSetRandomEngine(CLHEP::HepRandomEngine* v) { - cascade2RandomEngine = v; - fPy6Service->setRandomEngine(v); - } - - void Cascade2Hadronizer::flushTmpStorage() { - pyjets_local.n = 0; - pyjets_local.npad = 0; - - for (int ip = 0; ip < pyjets_maxn; ip++) { - for (int i = 0; i < 5; i++) { - pyjets_local.k[i][ip] = 0; - pyjets_local.p[i][ip] = 0.; - pyjets_local.v[i][ip] = 0.; - } - } - return; - } - - void Cascade2Hadronizer::fillTmpStorage() { - pyjets_local.n = pyjets.n; - pyjets_local.npad = pyjets.npad; - - for (int ip = 0; ip < pyjets_maxn; ip++) { - for (int i = 0; i < 5; i++) { - pyjets_local.k[i][ip] = pyjets.k[i][ip]; - pyjets_local.p[i][ip] = pyjets.p[i][ip]; - pyjets_local.v[i][ip] = pyjets.v[i][ip]; - } - } - return; - } - - void Cascade2Hadronizer::finalizeEvent() { - HepMC::PdfInfo pdf; - - //-- filling factorization "Q scale" now! pthat moved to binningValues() - - if (event()->signal_process_id() <= 0) - event()->set_signal_process_id(pypars.msti[0]); - if (event()->event_scale() <= 0) - event()->set_event_scale(pypars.pari[22]); - if (event()->alphaQED() <= 0) - event()->set_alphaQED(pyint1.vint[56]); - if (event()->alphaQCD() <= 0) - event()->set_alphaQCD(pyint1.vint[57]); - - //-- get pdf info directly from Pythia6 and set it up into HepMC::GenEvent - //-- S. Mrenna: Prefer vint block - - if (pdf.id1() <= 0) - pdf.set_id1(pyint1.mint[14] == 21 ? 0 : pyint1.mint[14]); - if (pdf.id2() <= 0) - pdf.set_id2(pyint1.mint[15] == 21 ? 0 : pyint1.mint[15]); - if (pdf.x1() <= 0) - pdf.set_x1(pyint1.vint[40]); - if (pdf.x2() <= 0) - pdf.set_x2(pyint1.vint[41]); - if (pdf.pdf1() <= 0) - pdf.set_pdf1(pyint1.vint[38] / pyint1.vint[40]); - if (pdf.pdf2() <= 0) - pdf.set_pdf2(pyint1.vint[39] / pyint1.vint[41]); - if (pdf.scalePDF() <= 0) - pdf.set_scalePDF(pyint1.vint[50]); - - event()->set_pdf_info(pdf); - - if (debug) { - cout << "standard Py6 event weight: pyint1.vint[96]: " << pyint1.vint[96] << endl; - cout << "event weight returned by PYEVWT: 1./(pyint1.vint[98]): " << 1. / (pyint1.vint[98]) << endl; - } - - //-- this is "standard" Py6 event weight (corresponds to PYINT1/VINT(97)) - // event()->weights().push_back(pyint1.vint[96]); - - //-- this is event weight as 1./VINT(99) (PYINT1/VINT(99) is returned by the PYEVWT) - // event()->weights().push_back(1./(pyint1.vint[98])); - - //-- all cascade events have weight = 1 - event()->weights().push_back(1.); - - //-- now create the GenEventInfo product from the GenEvent and fill the missing pieces - - eventInfo() = std::make_unique(event().get()); - - //-- in Pythia6 pthat is used to subdivide samples into different bins - //-- in LHE mode the binning is done by the external ME generator - //-- which is likely not pthat, so only filling it for Py6 internal mode - - eventInfo()->setBinningValues(vector(1, pypars.pari[16])); - - //-- here we treat long-lived particles - - if (pydat1.mstj[21] == 3 || pydat1.mstj[21] == 4) - imposeProperTime(); - - //-- convert particle IDs Py6 -> PDG (if requested) - - if (fConvertToPDG) { - for (HepMC::GenEvent::particle_iterator part = event()->particles_begin(); part != event()->particles_end(); - ++part) { - (*part)->set_pdg_id(HepPID::translatePythiatoPDT((*part)->pdg_id())); - } - } - - //-- service printouts, if requested - if (fMaxEventsToPrint > 0) { - fMaxEventsToPrint--; - if (fPythiaListVerbosity) - call_pylist(fPythiaListVerbosity); - if (fHepMCVerbosity) { - cout << "Event process = " << pypars.msti[0] << endl << "----------------------" << endl; - event()->print(); - } - } - - return; - } - - bool Cascade2Hadronizer::hadronize() { return false; } - - bool Cascade2Hadronizer::generatePartonsAndHadronize() { - //-- grab Py6 instance - Pythia6Service::InstanceWrapper guard(fPy6Service); - - FortranCallback::getInstance()->resetIterationsPerEvent(); - - //-- skip event if py6 considers it bad - if (pyint1.mint[50] != 0) { - event().reset(); - return false; - } - - //-- generation of the event with CASCADE - call_event(); - - //-- pythia pyhepc routine converts common PYJETS in common HEPEVT - call_pyhepc(1); - - //-- delete the created event from memory - event().reset(hepevtio.read_next_event()); - - //-- this is to deal with post-gen tools & residualDecay() that may reuse PYJETS - flushTmpStorage(); - fillTmpStorage(); - - return true; - } - - bool Cascade2Hadronizer::decay() { return true; } - - bool Cascade2Hadronizer::residualDecay() { - //-- grab Py6 instance - Pythia6Service::InstanceWrapper guard(fPy6Service); - - int NPartsBeforeDecays = pyjets_local.n; - int NPartsAfterDecays = event().get()->particles_size(); - int barcode = NPartsAfterDecays; - - // JVY: well, in principle, it's not a 100% fair to go up to NPartsBeforeDecays, - // because Photos will attach gamma's to existing vertices, i.e. in the middle - // of the event rather than at the end; but this will only shift pointers down, - // so we'll be going again over a few "original" particle... - // in the alternative, we may go all the way up to the beginning of the event - // and re-check if anything remains to decay, that's fine even if it'll take - // some extra CPU... - - for (int ipart = NPartsAfterDecays; ipart > NPartsBeforeDecays; ipart--) { - HepMC::GenParticle* part = event().get()->barcode_to_particle(ipart); - int status = part->status(); - if (status != 1) - continue; // check only "stable" particles, - // as some undecayed may still be marked as such - int pdgid = part->pdg_id(); - int py6ptr = pycomp_(pdgid); - - if (pydat3.mdcy[0][py6ptr - 1] != 1) - continue; // particle is not expected to decay - - int py6id = HepPID::translatePDTtoPythia(pdgid); - - // first, will need to zero out, then fill up PYJETS - // I better do it directly (by hands) rather than via py1ent - // - to avoid (additional) mass smearing - - if (part->momentum().t() <= part->generated_mass()) { - continue; // e == m -> 0-momentum, nothing to decay... - } - - else { - pyjets.n = 0; - - for (int i = 0; i < 5; i++) { - pyjets.k[i][0] = 0; - pyjets.p[i][0] = 0.; - pyjets.v[i][0] = 0.; - } - - pyjets.k[0][0] = 1; - pyjets.k[1][0] = py6id; - pyjets.p[4][0] = part->generated_mass(); - pyjets.p[3][0] = part->momentum().t(); - pyjets.p[0][0] = part->momentum().x(); - pyjets.p[1][0] = part->momentum().y(); - pyjets.p[2][0] = part->momentum().z(); - HepMC::GenVertex* prod_vtx = part->production_vertex(); - if (!prod_vtx) - continue; // in principle, should never happen but... - pyjets.v[0][0] = prod_vtx->position().x(); - pyjets.v[1][0] = prod_vtx->position().y(); - pyjets.v[2][0] = prod_vtx->position().z(); - pyjets.v[3][0] = prod_vtx->position().t(); - pyjets.v[4][0] = 0.; - pyjets.n = 1; - pyjets.npad = pyjets_local.npad; - } - - //-- now call Py6 decay routine - - int parent = 1; // since we always pass to Py6 a single particle - pydecy_(parent); - - //-- now attach decay products to mother - - for (int iprt1 = 1; iprt1 < pyjets.n; iprt1++) { - part->set_status(2); - - HepMC::GenVertex* DecVtx = new HepMC::GenVertex( - HepMC::FourVector(pyjets.v[0][iprt1], pyjets.v[1][iprt1], pyjets.v[2][iprt1], pyjets.v[3][iprt1])); - DecVtx->add_particle_in(part); // this will cleanup end_vertex if exists, replace with the new one - // I presume (vtx) barcode will be given automatically - - HepMC::FourVector pmom(pyjets.p[0][iprt1], pyjets.p[1][iprt1], pyjets.p[2][iprt1], pyjets.p[3][iprt1]); - - int dstatus = 0; - if (pyjets.k[0][iprt1] >= 1 && pyjets.k[0][iprt1] <= 10) - dstatus = 1; - else if (pyjets.k[0][iprt1] >= 11 && pyjets.k[0][iprt1] <= 20) - dstatus = 2; - else if (pyjets.k[0][iprt1] >= 21 && pyjets.k[0][iprt1] <= 30) - dstatus = 3; - else if (pyjets.k[0][iprt1] >= 31 && pyjets.k[0][iprt1] <= 100) - dstatus = pyjets.k[0][iprt1]; - - HepMC::GenParticle* daughter = - new HepMC::GenParticle(pmom, HepPID::translatePythiatoPDT(pyjets.k[1][iprt1]), dstatus); - barcode++; - daughter->suggest_barcode(barcode); - DecVtx->add_particle_out(daughter); - - int iprt2; - for (iprt2 = iprt1 + 1; iprt2 < pyjets.n; iprt2++) { // the pointer is shifted by -1, c++ style - - if (pyjets.k[2][iprt2] != parent) { - parent = pyjets.k[2][iprt2]; - break; // another parent particle; reset & break the loop - } - - HepMC::FourVector pmomN(pyjets.p[0][iprt2], pyjets.p[1][iprt2], pyjets.p[2][iprt2], pyjets.p[3][iprt2]); - - dstatus = 0; - if (pyjets.k[0][iprt2] >= 1 && pyjets.k[0][iprt2] <= 10) - dstatus = 1; - else if (pyjets.k[0][iprt2] >= 11 && pyjets.k[0][iprt2] <= 20) - dstatus = 2; - else if (pyjets.k[0][iprt2] >= 21 && pyjets.k[0][iprt2] <= 30) - dstatus = 3; - else if (pyjets.k[0][iprt2] >= 31 && pyjets.k[0][iprt2] <= 100) - dstatus = pyjets.k[0][iprt2]; - - HepMC::GenParticle* daughterN = - new HepMC::GenParticle(pmomN, HepPID::translatePythiatoPDT(pyjets.k[1][iprt2]), dstatus); - barcode++; - daughterN->suggest_barcode(barcode); - DecVtx->add_particle_out(daughterN); - } //-- end iprt2 loop - - iprt1 = iprt2 - 1; // reset counter such that it doesn't go over the same child more than once - // don't forget to offset back into c++ counting, as it's already +1 forward - - event().get()->add_vertex(DecVtx); - } //-- end iprt1 loop - } //-- end loop over decay products - - // now restore the very original Py6 event record - - if (pyjets_local.n != pyjets.n) { - // restore pyjets to its state as it was before external decays - - // might have been jammed by action above or by py1ent calls in EvtGen - - pyjets.n = pyjets_local.n; - pyjets.npad = pyjets_local.npad; - for (int ip = 0; ip < pyjets_local.n; ip++) { - for (int i = 0; i < 5; i++) { - pyjets.k[i][ip] = pyjets_local.k[i][ip]; - pyjets.p[i][ip] = pyjets_local.p[i][ip]; - pyjets.v[i][ip] = pyjets_local.v[i][ip]; - } - } - } - - return true; - } - - bool Cascade2Hadronizer::readSettings(int key) { - //-- grab Py6 instance - Pythia6Service::InstanceWrapper guard(fPy6Service); - - fPy6Service->setGeneralParams(); - - if (key == 0) - fPy6Service->setCSAParams(); - fPy6Service->setSLHAParams(); - - return true; - } - - bool Cascade2Hadronizer::initializeForExternalPartons() { return false; } - - bool Cascade2Hadronizer::initializeForInternalPartons() { - //-- grab Py6 instance - Pythia6Service::InstanceWrapper guard(fPy6Service); - - //-- change standard parameters of JETSET/PYTHIA - replace call_pytcha() - - fPy6Service->setGeneralParams(); - - fPy6Service->setCSAParams(); - fPy6Service->setSLHAParams(); - fPy6Service->setPYUPDAParams(false); - - pythia6PrintParameters(); - - //-- mstu(8) is set to NMXHEP in this dummy call (version >=6.404) - call_pyhepc(1); - - //-- initialise random number generator: has been changed to be CMSSW compliant - //-- dcasrn overloaded: call to rluxgo not needed anymore - //-- call_rluxgo(4,314159265,0,0); - - //-- initialise CASCADE parameters (default values) - call_casini(); - - //-- Read the parameters and pass them to the common blocks - //-- call_steer(); - - //-- initialise CASCADE parameters (user values) - - //-- retrieve all the different sets - vector AllSets = fParameters.getParameter >("parameterSets"); - - //-- loop over the different sets - for (unsigned i = 0; i < AllSets.size(); ++i) { - string Set = AllSets[i]; - vector Para_Set = fParameters.getParameter >(Set); - - //-- loop over all the parameters and stop in case of mistake - for (vector::const_iterator itPara = Para_Set.begin(); itPara != Para_Set.end(); ++itPara) { - if (!cascadeReadParameters(*itPara)) { - throw edm::Exception(edm::errors::Configuration, "CascadeError") - << " Cascade did not accept the following parameter: \"" << *itPara << "\"" << endl; - } - } //-- end loop over all the parameters - } //-- end loop over the different sets - - cainpu.plepin = -fComEnergy / 2; - cainpu.ppin = fComEnergy / 2; - - cascadePrintParameters(); - - //-- change standard parameters of CASCADE - call_cascha(); - - //-- change standard parameters of JETSET/PYTHIA - //-- call_pytcha(); - - //-- set up for running CASCADE (integration of the cross-section) - call_cascade(); - - //-- print cross-section result from integration - call_caend(1); - - fPy6Service->setPYUPDAParams(true); - - fPy6Service->closeSLHA(); - - return true; - } - - bool Cascade2Hadronizer::declareStableParticles(const vector& _pdg) { - vector pdg = _pdg; - for (size_t i = 0; i < pdg.size(); i++) { - int PyID = HepPID::translatePDTtoPythia(pdg[i]); - int pyCode = pycomp_(PyID); - - if (pyCode > 0) { - ostringstream pyCard; - pyCard << "MDCY(" << pyCode << ",1)=0"; - //-- cout << "pdg= " << pdg[i] << " " << pyCard.str() << endl; - - call_pygive(pyCard.str()); - } - } - - return true; - } - - void Cascade2Hadronizer::imposeProperTime() { - // this is practically a copy/paste of the original code by J.Alcaraz, - // taken directly from PythiaSource - - int dumm = 0; - HepMC::GenEvent::vertex_const_iterator vbegin = event()->vertices_begin(); - HepMC::GenEvent::vertex_const_iterator vend = event()->vertices_end(); - HepMC::GenEvent::vertex_const_iterator vitr = vbegin; - - for (; vitr != vend; ++vitr) { - HepMC::GenVertex::particle_iterator pbegin = (*vitr)->particles_begin(HepMC::children); - HepMC::GenVertex::particle_iterator pend = (*vitr)->particles_end(HepMC::children); - HepMC::GenVertex::particle_iterator pitr = pbegin; - - for (; pitr != pend; ++pitr) { - if ((*pitr)->end_vertex()) - continue; - if ((*pitr)->status() != 1) - continue; - - int pdgcode = abs((*pitr)->pdg_id()); - // Do nothing if the particle is not expected to decay - if (pydat3.mdcy[0][pycomp_(pdgcode) - 1] != 1) - continue; - - double ctau = pydat2.pmas[3][pycomp_(pdgcode) - 1]; - HepMC::FourVector mom = (*pitr)->momentum(); - HepMC::FourVector vin = (*vitr)->position(); - double x = 0.; - double y = 0.; - double z = 0.; - double t = 0.; - bool decayInRange = false; - while (!decayInRange) { - double unif_rand = fPy6Service->call(pyr_, &dumm); - // Value of 0 is excluded, so following line is OK - double proper_length = -ctau * log(unif_rand); - double factor = proper_length / mom.m(); - x = vin.x() + factor * mom.px(); - y = vin.y() + factor * mom.py(); - z = vin.z() + factor * mom.pz(); - t = vin.t() + factor * mom.e(); - - // Decay must be happen outside a cylindrical region - if (pydat1.mstj[21] == 4) { - if (sqrt(x * x + y * y) > pydat1.parj[72] || fabs(z) > pydat1.parj[73]) - decayInRange = true; - // Decay must be happen outside a given sphere - } else if (pydat1.mstj[21] == 3) { - if (sqrt(x * x + y * y + z * z) > pydat1.parj[71]) - decayInRange = true; - } - // Decay is always OK otherwise - else { - decayInRange = true; - } - } - - HepMC::GenVertex* vdec = new HepMC::GenVertex(HepMC::FourVector(x, y, z, t)); - event()->add_vertex(vdec); - vdec->add_particle_in((*pitr)); - } - } - - return; - } - - void Cascade2Hadronizer::statistics() { - runInfo().setExternalXSecLO(GenRunInfoProduct::XSec(fextCrossSection, fextCrossSectionError)); - - runInfo().setExternalXSecNLO(GenRunInfoProduct::XSec(-1., -1.)); - - if (!runInfo().internalXSec()) { - double sigma_CMS = 0.001 * caeffic.avgi; - double error_CMS = 0.001 * caeffic.sd; - runInfo().setInternalXSec(GenRunInfoProduct::XSec(sigma_CMS, error_CMS)); - } - - //-- print out generated event summary - call_caend(2); - - //-- write out some information from Pythia to the screen - call_pystat(1); - - return; - } - - const char* Cascade2Hadronizer::classname() const { return "gen::Cascade2Hadronizer"; } - - //-- Read the parameters and pass them to the common blocks - - bool Cascade2Hadronizer::cascadeReadParameters(const string& ParameterString) { - bool accepted = true; - - if (!strncmp(ParameterString.c_str(), "KE", 2)) - caluco.ke = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IRES(1)", 7)) - capar6.ires[0] = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "KP", 2)) - caluco.kp = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IRES(2)", 7)) - capar6.ires[1] = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "NFRAG", 5)) - cainpu.nfrag = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IPST", 4)) - cashower.ipst = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IPSIPOL", 7)) - jpsi.ipsipol = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - //-- from version 2.2.03 on - // else if(!strncmp(ParameterString.c_str(),"I23S",4)) - // jpsi.i23s = atoi(&ParameterString[strcspn(ParameterString.c_str(),"=")+1]); - - else if (!strncmp(ParameterString.c_str(), "IFPS", 4)) - cainpu.ifps = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "ITIMSHR", 7)) - casshwr.itimshr = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IRUNAEM", 7)) - capar1.irunaem = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IRUNA", 5)) - capar1.iruna = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IQ2", 3)) - capar1.iq2 = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IPRO", 4)) - capar1.ipro = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "NFLAV", 5)) - caluco.nflav = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "INTER", 5)) - cainpu.inter = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IHFLA", 5)) - cahflav.ihfla = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IRPA", 4)) - cascol.irpa = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IRPB", 4)) - cascol.irpb = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IRPC", 4)) - cascol.irpc = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "ICCFM", 5)) - casshwr.iccfm = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IFINAL", 6)) - cainpu.ifinal = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IGLU", 4)) - cagluon.iglu = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "IRspl", 5)) - casprre.irspl = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "PT2CUT", 6)) - captcut.pt2cut[capar1.ipro - 1] = atof(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "NCB", 3)) - integr.ncb = atoi(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "ACC1", 4)) - integr.acc1 = atof(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "ACC2", 4)) - integr.acc2 = atof(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "SCALFAF", 7)) - scalf.scalfaf = atof(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else if (!strncmp(ParameterString.c_str(), "SCALFA", 6)) - scalf.scalfa = atof(&ParameterString[strcspn(ParameterString.c_str(), "=") + 1]); - - else - accepted = false; - - return accepted; - } - - void Cascade2Hadronizer::cascadePrintParameters() { - cout << "" << endl; - cout << "----------------------------------" << endl; - cout << "---- Cascade Parameters ----" << endl; - cout << "----------------------------------" << endl; - cout << "" << endl; - - cout << "computation switch: " << endl; - cout << "number of calls per iteration for bases: " << integr.ncb << endl; - cout << "relative precision for grid optimisation: " << integr.acc1 << " %" << endl; - cout << "relative precision for integration: " << integr.acc2 << " %" << endl; - cout << "" << endl; - - cout << "kinematics: " << endl; - cout << "flavour code of beam 1: " << caluco.ke << endl; - cout << "direct or resolved particle 1: " << capar6.ires[0] << endl; - cout << "pz of incoming beam 1: " << cainpu.plepin << " GeV" << endl; - cout << "flavour code of beam 2: " << caluco.kp << endl; - cout << "direct or resolved particle 2: " << capar6.ires[1] << endl; - cout << "pz of incoming beam 2: " << cainpu.ppin << " GeV" << endl; - cout << "number of active flavors: " << caluco.nflav << endl; - cout << "" << endl; - - cout << "hard subprocess selection: " << endl; - cout << "hard subprocess number (IPRO): " << capar1.ipro << endl; - cout << "IPRO = 10, switch to select QCD process g* g* -> q qbar: " << cascol.irpa << endl; - cout << "IPRO = 10, switch to select QCD process g* g -> g g: " << cascol.irpb << endl; - cout << "IPRO = 10, switch to select QCD process g* q -> g q: " << cascol.irpc << endl; - cout << "flavor of heavy quark produced (IPRO = 11, 504, 514): " << cahflav.ihfla << endl; - // cout<<"select vector meson state: "< -#include -#include - -#include "FWCore/ParameterSet/interface/ParameterSetfwd.h" -#include "GeneratorInterface/Core/interface/ParameterCollector.h" -#include "GeneratorInterface/Core/interface/BaseHadronizer.h" - -namespace HepMC { - class GenEvent; -} - -namespace CLHEP { - class HepRandomEngine; -} - -namespace gen { - - class Pythia6Service; - - class Cascade2Hadronizer : public BaseHadronizer { - public: - Cascade2Hadronizer(edm::ParameterSet const& ps); - ~Cascade2Hadronizer() override; - - bool readSettings(int); - bool initializeForExternalPartons(); //-- initializer for the LHE input - bool initializeForInternalPartons(); - - //-- Read the parameters and pass them to the common blocks - bool cascadeReadParameters(const std::string& ParameterString); - void cascadePrintParameters(); - void pythia6PrintParameters(); - bool declareStableParticles(const std::vector&); - bool declareSpecialSettings(const std::vector&) { return true; } - void statistics(); - - bool generatePartonsAndHadronize(); - bool hadronize(); //-- hadronizer for the LHE input - bool decay(); - bool residualDecay(); - void finalizeEvent(); - - const char* classname() const; - - private: - void doSetRandomEngine(CLHEP::HepRandomEngine* v) override; - std::vector const& doSharedResources() const override { return theSharedResources; } - - static const std::vector theSharedResources; - - //-- methods - - void flushTmpStorage(); - void fillTmpStorage(); - void imposeProperTime(); //-- to correctly treat particle decay - - //-- data members - - edm::ParameterSet fParameters; - - Pythia6Service* fPy6Service; - - double - fComEnergy; //-- irrelevant for setting py6 as hadronizer (or if anything, it should be picked up from LHERunInfoProduct) - double fextCrossSection; - double fextCrossSectionError; - double fFilterEfficiency; - - unsigned int fMaxEventsToPrint; - bool fHepMCVerbosity; - unsigned int fPythiaListVerbosity; //-- p6 specific - - bool fDisplayPythiaBanner; //-- p6 specific - bool fDisplayPythiaCards; //-- p6 specific - - bool fConvertToPDG; //-- conversion of Py6 PID's into PDG convention - }; -} // namespace gen - -#endif diff --git a/GeneratorInterface/CascadeInterface/plugins/CascadeWrapper.h b/GeneratorInterface/CascadeInterface/plugins/CascadeWrapper.h deleted file mode 100644 index 06e3189921059..0000000000000 --- a/GeneratorInterface/CascadeInterface/plugins/CascadeWrapper.h +++ /dev/null @@ -1,159 +0,0 @@ -#ifndef CASCADE_WRAPPER_H -#define CASCADE_WRAPPER_H - -//-- the pyhepc routine used by Pythia to fill the HEPEVT common block -//-- is using double precision and 4000 entries - -#include -#include - -//-- CASCADE Common Block Declarations - -extern "C" { -extern struct { int ke, kp, keb, kph, kgl, kpa, nflav; } caluco_; -} - -#define caluco caluco_ - -extern "C" { -extern struct { int lst[30], ires[2]; } capar6_; -} - -#define capar6 capar6_ - -extern "C" { -extern struct { - double plepin, ppin; - int nfrag, ilepto, ifps, ihf, inter, isemih, ifinal; -} cainpu_; -} - -#define cainpu cainpu_ - -extern "C" { -extern struct { int ipst; } cashower_; -} - -#define cashower cashower_ - -extern "C" { -extern struct { - int ipsipol, ipsiel1, ipsiel2; - //-- int i23s; //-- from version 2.2.03 on -} jpsi_; -} - -#define jpsi jpsi_ - -extern "C" { -extern struct { int iorder, itimshr, iccfm; } casshwr_; -} - -#define casshwr casshwr_ - -extern "C" { -extern struct { int ipro, iruna, iq2, irunaem; } capar1_; -} - -#define capar1 capar1_ - -extern "C" { -extern struct { int ihfla, kpsi, kchi; } cahflav_; -} - -#define cahflav cahflav_ - -extern "C" { -extern struct { int icolora, irespro, irpa, irpb, irpc, irpd, irpe, irpf, irpg; } cascol_; -} - -#define cascol cascol_ - -extern "C" { -extern struct { int iglu; } cagluon_; -} - -#define cagluon cagluon_ - -extern "C" { -extern struct { int irspl; } casprre_; -} - -#define casprre casprre_ - -extern "C" { -extern struct { double pt2cut[1000]; } captcut_; -} - -#define captcut captcut_ - -extern "C" { -extern struct { - double acc1, acc2; - int iint, ncb; -} integr_; -} - -#define integr integr_ - -extern "C" { -extern struct { double scalfa, scalfaf; } scalf_; -} - -#define scalf scalf_ - -extern "C" { -extern struct { char pdfpath[512]; } caspdf_; -} - -#define caspdf caspdf_ - -extern "C" { -extern struct { - double avgi, sd; - int nin, nout; -} caeffic_; -} - -#define caeffic caeffic_ - -//-- CASCADE routines declarations - -extern "C" { -void casini_(); -void steer_(); -void cascha_(); -void cascade_(); -void caend_(int* mode); -void event_(); -// void rluxgo_(int* mode1,int* mode2,int* mode3,int* mode4); -double dcasrn_(int* idummy); -} - -inline void call_casini() { casini_(); } -inline void call_steer() { steer_(); } -inline void call_cascha() { cascha_(); } -inline void call_cascade() { cascade_(); } -inline void call_caend(int mode) { caend_(&mode); } -inline void call_event() { event_(); } -// inline void call_rluxgo(int mode1, int mode2, int mode3, int mode4) { rluxgo_(&mode1, &mode2, &mode3, &mode4); } -// inline double call_dcasrn() { return(dcasrn_()); } - -//-- PYTHIA Common Block Declarations - -//-- PYTHIA routines declarations - -extern "C" { -void pytcha_(); -void pyedit_(int* mode); -} - -inline void call_pytcha() { pytcha_(); } -inline void call_pyedit(int mode) { pyedit_(&mode); } - -//inline void call_pyhepc(int mode) { pyhepc(&mode); } -//inline void call_pylist(int mode) { pylist(&mode); } -//inline void call_pystat(int mode) { pystat(&mode); } -//inline void call_pyevnt() { pyevnt(); } - -#endif // CASCADE_WRAPPER_H diff --git a/GeneratorInterface/CascadeInterface/python/Cascade2Parameters_cfi.py b/GeneratorInterface/CascadeInterface/python/Cascade2Parameters_cfi.py deleted file mode 100644 index e6073364ac2d6..0000000000000 --- a/GeneratorInterface/CascadeInterface/python/Cascade2Parameters_cfi.py +++ /dev/null @@ -1,35 +0,0 @@ -import FWCore.ParameterSet.Config as cms - - -Cascade2Parameters = cms.PSet( - parameterSets = cms.vstring('CascadeSettings'), - CascadeSettings = cms.vstring('NCB = 50000 ! number of calls per iteration for bases', - 'ACC1 = 1.0 ! relative precision for grid optimisation', - 'ACC2 = 0.5 ! relative precision for integration', - 'KE = 2212 ! flavour code of beam1', - 'IRES(1) = 1 ! direct or resolved particle 1', - 'KP = 2212 ! flavour code of beam2', - 'IRES(2) = 1 ! direct or resolved particle 2', - 'NFLAV = 5 ! number of active flavors', - 'IPRO = 10 ! hard subprocess number', - 'IRPA = 1 ! IPRO = 10, switch to select QCD process g* g* -> q qbar', - 'IRPB = 1 ! IPRO = 10, switch to select QCD process g* g -> g g', - 'IRPC = 1 ! IPRO = 10, switch to select QCD process g* q -> g q', - 'IHFLA = 4 ! flavor of heavy quark produced (IPRO = 11, 504, 514)', - # 'I23S = 0 ! select vector meson state (0 = 1S, 2 = 2S, 3 = 3S from version 2.2.03 on)', - 'IPSIPOL = 0 ! use matrix element including J/psi (Upsilon) polarisation (1 = on, 0 = off)', - 'PT2CUT = 0.0 ! pt2 cut in ME for massless partons' - 'NFRAG = 1 ! switch for fragmentation (1 = on, 0 = off)', - 'IFPS = 3 ! switch for parton shower: (0 = off - 1 = initial - 2 = final - 3 = initial & final)', - 'ITIMSHR = 1 ! switch for time like parton shower in intial state (0 = off,1 = on)', - 'ICCFM = 1 ! select CCFM or DGLAP evolution (CCFM = 1, DGLAP = 0)' - 'IFINAL = 1 ! scale switch for final state parton shower', - 'SCALFAF = 1.0 ! scale factor for final state parton shower', - 'IRspl = 4 ! switch for proton remnant treatment', - 'IPST = 0 ! keep track of intermediate state in parton shower ', - 'INTER = 0 ! mode of interaction for ep (photon exchange, Z-echange (not implemented))', - 'IRUNAEM = 1 ! switch for running alphaem (0 = off,1 = on)', - 'IRUNA = 1 ! switch for running alphas (0 = off,1 = on)', - 'IQ2 = 3 ! scale in alphas', - 'SCALFA = 1.0 ! scale factor for scale in alphas', - 'IGLU = 1010 ! select uPDF')) diff --git a/GeneratorInterface/CascadeInterface/python/Cascade2_example_test_cff.py b/GeneratorInterface/CascadeInterface/python/Cascade2_example_test_cff.py deleted file mode 100644 index da520f0f9abcf..0000000000000 --- a/GeneratorInterface/CascadeInterface/python/Cascade2_example_test_cff.py +++ /dev/null @@ -1,32 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -from GeneratorInterface.CascadeInterface.Cascade2Parameters_cfi import Cascade2Parameters as Cascade2ParametersRef - -source = cms.Source("EmptySource") - -generator = cms.EDFilter('Cascade2GeneratorFilter', - PythiaParameters = cms.PSet( - processParameters = cms.vstring('PMAS(4,1) = 1.6 ! charm mass', - 'PMAS(5,1) = 4.75 ! bottom mass', - 'PMAS(25,1) = 125. ! higgs mass', - 'PARU(112) = 0.2 ! lambda QCD set A0', - 'MSTU(111) = 1 ! = 0 : alpha_s is fixed at the value PARU(111), = 1 : first-order running alpha_s, = 2 : second-order running alpha_s', - 'MSTU(112) = 4 ! nr of flavours wrt lambda_QCD', - 'MSTU(113) = 3 ! min nr of flavours for alphas', - 'MSTU(114) = 5 ! max nr of flavours for alphas', - 'MSTJ(48) = 1 ! (D = 0) 0 = no max. angle, 1 = max angle def. in PARJ(85)'), - parameterSets = cms.vstring('processParameters') - ), - - comEnergy = cms.double(7000.0), - crossSection = cms.untracked.double(-1), - crossSectionError = cms.untracked.double(-1), - filterEfficiency = cms.untracked.double(1), - maxEventsToPrint = cms.untracked.int32(2), - pythiaHepMCVerbosity = cms.untracked.bool(False), - pythiaPylistVerbosity = cms.untracked.int32(0), - - Cascade2Parameters = Cascade2ParametersRef - ) - -ProductionFilterSequence = cms.Sequence(generator) diff --git a/GeneratorInterface/ExternalDecays/src/ExternalDecayDriver.cc b/GeneratorInterface/ExternalDecays/src/ExternalDecayDriver.cc index f9a14fb12baff..428afc193e059 100644 --- a/GeneratorInterface/ExternalDecays/src/ExternalDecayDriver.cc +++ b/GeneratorInterface/ExternalDecays/src/ExternalDecayDriver.cc @@ -43,18 +43,8 @@ ExternalDecayDriver::ExternalDecayDriver(const ParameterSet& pset, edm::Consumes } else if (curSet == "Tauola" || curSet == "Tauolapp" || curSet == "Tauolapp114") { fTauolaInterface = std::unique_ptr( TauolaFactory::get()->create("Tauolapp114", pset.getUntrackedParameter(curSet), iCollector)); - fPhotosInterface = std::unique_ptr( - PhotosFactory::get()->create("Photos2155", pset.getUntrackedParameter(curSet))); - fPhotosInterface->configureOnlyFor(15); - fPhotosInterface->avoidTauLeptonicDecays(); exSharedResources.emplace_back(edm::SharedResourceNames::kTauola); exSharedResources.emplace_back(edm::SharedResourceNames::kPhotos); - } else if (curSet == "Photos" || curSet == "Photos2155") { - if (!fPhotosInterface) { - fPhotosInterface = std::unique_ptr( - PhotosFactory::get()->create("Photos2155", pset.getUntrackedParameter(curSet))); - exSharedResources.emplace_back(edm::SharedResourceNames::kPhotos); - } } else if (curSet == "Photospp" || curSet == "Photospp356") { if (!fPhotosInterface) { fPhotosInterface = std::unique_ptr( diff --git a/GeneratorInterface/ExternalDecays/test/Py6GenFilter_Photos_cfg.py b/GeneratorInterface/ExternalDecays/test/Py6GenFilter_Photos_cfg.py deleted file mode 100644 index 8d171f018c170..0000000000000 --- a/GeneratorInterface/ExternalDecays/test/Py6GenFilter_Photos_cfg.py +++ /dev/null @@ -1,190 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -# -# WARNING: This is NOT an example for users - -# it's my private (JY) "development" cfg, for testing -# newly implemented PhotosInterface - which is NOT yet -# released via ExternalDecayDeriver -# - -process = cms.Process("TEST") -process.load("FWCore.Framework.test.cmsExceptionsFatal_cff") -process.load("SimGeneral.HepPDTESSource.pythiapdt_cfi") -#process.load("SimGeneral.HepPDTESSource.pdt_cfi") - -process.RandomNumberGeneratorService = cms.Service("RandomNumberGeneratorService", - generator = cms.PSet( - initialSeed = cms.untracked.uint32(123456789), - engineName = cms.untracked.string('HepJamesRandom') - ) -) - - -# The following three lines reduce the clutter of repeated printouts -# of the same exception message. -process.load("FWCore.MessageLogger.MessageLogger_cfi") - -process.MessageLogger.cerr.enableStatistics = False - - -process.maxEvents = cms.untracked.PSet(input = cms.untracked.int32(20)) - -process.source = cms.Source("EmptySource") - -process.generator = cms.EDFilter("Pythia6GeneratorFilter", - pythiaHepMCVerbosity = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(20), - pythiaPylistVerbosity = cms.untracked.int32(1), - # this shows how to turn ON some of the general Py6 printouts, like banner... - ## --> displayPythiaBanner = cms.untracked.bool(True), - ## --> displayPythiaCards = cms.untracked.bool(True), - comEnergy = cms.double(7000.0), - - ExternalDecays = cms.PSet( - Photos = cms.untracked.PSet(), - parameterSets = cms.vstring( "Photos" ) - ), - - PythiaParameters = cms.PSet( - - pythiaSimpleSettings = cms.vstring( - 'PMAS(5,1)=4.8 ! b quark mass', - 'PMAS(6,1)=172.3 ! t quark mass', - 'MSTP(61)=0 ! turn off initial state radiation', - 'mstj(41)=1' # per Steve M., instead of mstp(71)... btw, shoult it be 0 or 1 ? - #'MSTP(71)=0 ! final state radiation (or final-state showers ?)' - - ), - pythiaSpecialSettings = cms.vstring( - 'PMAS(25,1)=190.0 !mass of Higgs', - 'MSEL=0 !(D=1) to select between full user control (0, then use MSUB) and some preprogrammed alternative: QCD hight pT processes (1, then ISUB=11, 12, 13, 28, 53, 68), QCD low pT processes (2, then ISUB=11, 12, 13, 28, 53, 68, 91, 92, 94, 95)', - 'MSTJ(11)=3 !Choice of the fragmentation function', - 'MSTJ(41)=1 !Switch off Pythia QED bremsshtrahlung', - 'MSTP(51)=7 !structure function chosen', - 'MSTP(61)=0 ! no initial-state showers', - 'MSTP(71)=0 ! no final-state showers', - 'MSTP(81)=0 ! no multiple interactions', - 'MSTP(111)=0 ! no hadronization', - 'MSTU(21)=1 !Check on possible errors during program execution', - 'MSUB(102)=1 !ggH', - 'MSUB(123)=1 !ZZ fusion to H', - 'MSUB(124)=1 !WW fusion to H', - # these 4 below are irrelevant if the hadronization is off (mstp(111)=0) - 'PARP(82)=1.9 !pt cutoff for multiparton interactions', - 'PARP(83)=0.5 !Multiple interactions: matter distrbn parameter Registered by Chris.Seez@cern.ch', - 'PARP(84)=0.4 !Multiple interactions: matter distribution parameter Registered by Chris.Seez@cern.ch', - 'PARP(90)=0.16 !Multiple interactions: rescaling power Registered by Chris.Seez@cern.ch', - #........................................ - 'CKIN(45)=5. !high mass cut on m2 in 2 to 2 process Registered by Chris.Seez@cern.ch', - 'CKIN(46)=150. !high mass cut on secondary resonance m1 in 2->1->2 process Registered by Alexandre.Nikitenko@cern.ch', - 'CKIN(47)=5. !low mass cut on secondary resonance m2 in 2->1->2 process Registered by Alexandre.Nikitenko@cern.ch', - 'CKIN(48)=150. !high mass cut on secondary resonance m2 in 2->1->2 process Registered by Alexandre.Nikitenko@cern.ch' - ), - pythiaHZZDecays = cms.vstring( - 'MDME(174,1)=0 !Z decay into d dbar', - 'MDME(175,1)=0 !Z decay into u ubar', - 'MDME(176,1)=0 !Z decay into s sbar', - 'MDME(177,1)=0 !Z decay into c cbar', - # set it to 4 for the 1st Z to go to b bbar... - 'MDME(178,1)=0 !Z decay into b bbar', - # ............................................ - 'MDME(179,1)=0 !Z decay into t tbar', - 'MDME(182,1)=0 !Z decay into e- e+', - 'MDME(183,1)=0 !Z decay into nu_e nu_ebar', - 'MDME(184,1)=4 !Z decay into mu- mu+', - 'MDME(185,1)=0 !Z decay into nu_mu nu_mubar', - # ... and this one to 5, for the 2nd Z to goe to tau- tau+ - 'MDME(186,1)=5 !Z decay into tau- tau+', - # ............................................ - 'MDME(187,1)=0 !Z decay into nu_tau nu_taubar', - 'MDME(210,1)=0 !Higgs decay into dd', - 'MDME(211,1)=0 !Higgs decay into uu', - 'MDME(212,1)=0 !Higgs decay into ss', - 'MDME(213,1)=0 !Higgs decay into cc', - 'MDME(214,1)=0 !Higgs decay into bb', - 'MDME(215,1)=0 !Higgs decay into tt', - 'MDME(216,1)=0 !Higgs decay into', - 'MDME(217,1)=0 !Higgs decay into Higgs decay', - 'MDME(218,1)=0 !Higgs decay into e nu e', - 'MDME(219,1)=0 !Higgs decay into mu nu mu', - 'MDME(220,1)=0 !Higgs decay into tau nu tau', - 'MDME(221,1)=0 !Higgs decay into Higgs decay', - 'MDME(222,1)=0 !Higgs decay into g g', - 'MDME(223,1)=0 !Higgs decay into gam gam', - 'MDME(224,1)=0 !Higgs decay into gam Z', - 'MDME(225,1)=1 !Higgs decay into Z Z', - 'MDME(226,1)=0 !Higgs decay into W W' - ), - pythiaTauL = cms.vstring( - "mdme(89,1)=1", # tau -> e - "mdme(90,1)=1", # tau -> mu - # all other tau decays OFF - "mdme(91,1)=0", - "mdme(92,1)=0", - "mdme(93,1)=0", - "mdme(94,1)=0", - "mdme(95,1)=0", - "mdme(96,1)=0", - "mdme(97,1)=0", - "mdme(98,1)=0", - "mdme(99,1)=0", - "mdme(100,1)=0", - "mdme(101,1)=0", - "mdme(102,1)=0", - "mdme(103,1)=0", - "mdme(104,1)=0", - "mdme(105,1)=0", - "mdme(106,1)=0", - "mdme(107,1)=0", - "mdme(108,1)=0", - "mdme(109,1)=0", - "mdme(110,1)=0", - "mdme(111,1)=0", - "mdme(112,1)=0", - "mdme(113,1)=0", - "mdme(114,1)=0", - "mdme(115,1)=0", - "mdme(116,1)=0", - "mdme(117,1)=0", - "mdme(118,1)=0", - "mdme(119,1)=0", - "mdme(120,1)=0", - "mdme(121,1)=0", - "mdme(122,1)=0", - "mdme(123,1)=0", - "mdme(124,1)=0", - "mdme(125,1)=0", - "mdme(126,1)=0", - "mdme(127,1)=0", - "mdme(128,1)=0", - "mdme(129,1)=0", - "mdme(130,1)=0", - "mdme(131,1)=0", - "mdme(132,1)=0", - "mdme(133,1)=0", - "mdme(134,1)=0", - "mdme(135,1)=0", - "mdme(136,1)=0", - "mdme(137,1)=0", - "mdme(138,1)=0", - "mdme(139,1)=0", - "mdme(140,1)=0", - "mdme(141,1)=0", - "mdme(142,1)=0" - ), - # This is a vector of ParameterSet names to be read, in this order - parameterSets = cms.vstring( - 'pythiaSpecialSettings', - ##'pythiaSimpleSettings', - 'pythiaHZZDecays', 'pythiaTauL' ) - ) -) - -process.GEN = cms.OutputModule("PoolOutputModule", - fileName = cms.untracked.string('TestHZZleptons.root') -) - -process.p = cms.Path(process.generator) -process.outpath = cms.EndPath(process.GEN) - -process.schedule = cms.Schedule(process.p, process.outpath) diff --git a/GeneratorInterface/ExternalDecays/test/Py8GenFilter_Photos_cfg.py b/GeneratorInterface/ExternalDecays/test/Py8GenFilter_Photos_cfg.py deleted file mode 100644 index 4aab273830836..0000000000000 --- a/GeneratorInterface/ExternalDecays/test/Py8GenFilter_Photos_cfg.py +++ /dev/null @@ -1,87 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -process = cms.Process("TEST") - -process.load("FWCore.Framework.test.cmsExceptionsFatal_cff") -process.load("SimGeneral.HepPDTESSource.pythiapdt_cfi") - -process.source = cms.Source("EmptySource") - -process.generator = cms.EDFilter("Pythia8GeneratorFilter", - maxEventsToPrint = cms.untracked.int32(10), - pythiaPylistVerbosity = cms.untracked.int32(1), - filterEfficiency = cms.untracked.double(1.0), - pythiaHepMCVerbosity = cms.untracked.bool(True), - comEnergy = cms.double(7000.), - - ExternalDecays = cms.PSet( - Photos = cms.untracked.PSet(), - parameterSets = cms.vstring( "Photos" ) - ), - - PythiaParameters = cms.PSet( - py8SpecialSettings = cms.vstring( 'HadronLevel:Hadronize = off', # mstp(111)=0 - 'ParticleDecays:limitTau0 = on', # mstj(22)=2 - decay unstable particles - 'ParticleDecays:tau0Max = 10.', # parj(71)=10.- for which ctau < 10 mm - 'PartonLevel:ISR = off', # mstp(61)=0 - 'PartonLevel:FSR = off', # mstp(71)=0 ; what about mstj(41) ??? - 'PartonLevel:MI = off' # mstp(81)=0 - # for pp intractions, SpaceShower things are not important, - # but TimeShower settings are relevat - 'TimeShower:QEDshowerByL = off', - 'TimeShower:QEDshowerByQ = off' - ), - py8ProcessSettings = cms.vstring( 'StringZ:usePetersonB = on', # these 2 together == - 'StringZ:usePetersonC = on', # mstj(11)=3 - 'HiggsSM:gg2H = on', # mstp(102)=1 - 'HiggsSM:ff2Hff(t:ZZ) = on', # msub(123)=1 - ZZ fusion to H - 'HiggsSM:ff2Hff(t:WW) = on', # msub(124)=1 - WW fusion to H - '25:m0 = 190.0', # pmas(25,1)=190.0 - mass of H - 'PhaseSpace:pTHatMin = 5.', # ckin(45)=5. - 'PhaseSpace:pTHatMax = 150.' # ckin(46)=150. - # what about choice of structure function ??? (mstp(51)=7) - ), - py8HiggsDecaySettings = cms.vstring('25:onMode = off', # turn OFF all Higgs decays - '25:onIfAny = 23' # now turn ON H->ZZ - ), - py8ZDecaySettings = cms.vstring( '23:onMode = off', # turn OFF all Z decays - '23:onIfAny = 13', # turn ON Z->mumu - '23:onIfAny = 15' # turn ON Z->tautau - ), - py8TauDecaySettings = cms.vstring('15:onMode = off', # turn OFF all tau decays - '15:onIfAny = 11', # turn ON tau -> e - '15:onIfAny = 13' # turn ON tau -> mu - ), - parameterSets = cms.vstring('py8SpecialSettings','py8ProcessSettings', - 'py8HiggsDecaySettings', - 'py8ZDecaySettings','py8TauDecaySettings') - ) -) - -# The following three lines reduce the clutter of repeated printouts -# of the same exception message. -process.load("FWCore.MessageLogger.MessageLogger_cfi") - -process.MessageLogger.cerr.enableStatistics = False - - -process.RandomNumberGeneratorService = cms.Service("RandomNumberGeneratorService", - generator = cms.PSet( - initialSeed = cms.untracked.uint32(123456789), - engineName = cms.untracked.string('HepJamesRandom') - ) -) - -process.maxEvents = cms.untracked.PSet( - input = cms.untracked.int32(10) -) - -process.GEN = cms.OutputModule("PoolOutputModule", - fileName = cms.untracked.string('Py8ZHH_Photos.root') -) - -process.p = cms.Path(process.generator) -process.outpath = cms.EndPath(process.GEN) - -process.schedule = cms.Schedule(process.p, process.outpath) - diff --git a/GeneratorInterface/Herwig6Interface/BuildFile.xml b/GeneratorInterface/Herwig6Interface/BuildFile.xml deleted file mode 100644 index bf6124c5de19f..0000000000000 --- a/GeneratorInterface/Herwig6Interface/BuildFile.xml +++ /dev/null @@ -1,16 +0,0 @@ - - - - - - - - - - - - - - - - diff --git a/GeneratorInterface/Herwig6Interface/interface/Herwig6Instance.h b/GeneratorInterface/Herwig6Interface/interface/Herwig6Instance.h deleted file mode 100644 index 47c1af526056c..0000000000000 --- a/GeneratorInterface/Herwig6Interface/interface/Herwig6Instance.h +++ /dev/null @@ -1,70 +0,0 @@ -#ifndef gen_Herwig6Instance_h -#define gen_Herwig6Instance_h - -#include "GeneratorInterface/Core/interface/FortranInstance.h" -#include - -namespace CLHEP { - class HepRandomEngine; -} - -namespace gen { - - // the callbacks from Herwig which are passed on to the Herwig6Instance - extern "C" { - double hwrgen_(int *); - void cms_hwwarn_(char fn[6], int *, int *); - } - - //Forward declare here to avoid system dependency - struct TimeoutHolder; - - class Herwig6Instance : public FortranInstance { - public: - Herwig6Instance(); - ~Herwig6Instance() override; - - // passes a configuration parameter - bool give(const std::string &line); - - bool callWithTimeout(unsigned int secs, void (*fn)()) { - InstanceWrapper wrapper(this); - return timeout(secs, fn); - } - - // method to open External Particle Spectra Files - void openParticleSpecFile(const std::string fileName); - - void setHerwigRandomEngine(CLHEP::HepRandomEngine *v) { randomEngine = v; } - - protected: - // intercept HERWIG warnings and errors (default: no) - virtual bool hwwarn(const std::string &fn, int code); - - private: - // list all the Fortran callbacks here - friend double gen::hwrgen_(int *); - friend void gen::cms_hwwarn_(char fn[6], int *, int *); - - // call with timeout - bool timeout(unsigned int secs, void (*fn)()); - - // used from timeout - static void _timeout_sighandler(int signr); - - // the random engine - // in order to make sure no one else uses this engine - // the access is only possible if pyr_ is called after - // the current instance has been selected using enter() - // if Herwig is called without an active instance and does - // either a callback or requests a random number an - // an exception will be thrown - CLHEP::HepRandomEngine *randomEngine; - - // for timeout facility - std::unique_ptr timeoutPrivate; - }; - -} // namespace gen - -#endif // gen_Herwig6Instance_h diff --git a/GeneratorInterface/Herwig6Interface/interface/herwig.h b/GeneratorInterface/Herwig6Interface/interface/herwig.h deleted file mode 100644 index 119c82fb24822..0000000000000 --- a/GeneratorInterface/Herwig6Interface/interface/herwig.h +++ /dev/null @@ -1,338 +0,0 @@ -#ifndef HERWIG_INC -#define HERWIG_INC - -//-------------------------HERWIG common block ------------------------------------- -// COMMON block stuff, that doesn't come with the HerwigWrapper6_4.h .... - -/*C Arrays for particle properties (NMXRES = max no of particles defined) - PARAMETER(NMXRES=500) - COMMON/HWPROP/RLTIM(0:NMXRES),RMASS(0:NMXRES),RSPIN(0:NMXRES), - & ICHRG(0:NMXRES),IDPDG(0:NMXRES),IFLAV(0:NMXRES),NRES, - & VTOCDK(0:NMXRES),VTORDK(0:NMXRES), - & QORQQB(0:NMXRES),QBORQQ(0:NMXRES) */ - -static const int nmxres = 500 + 1; // we need NMXRES+1 entries ... -extern "C" { -extern struct { - double RLTIM[nmxres], RMASS[nmxres], RSPIN[nmxres]; - int ICHRG[nmxres], IDPDG[nmxres], IFLAV[nmxres], NRES; - int VTOCDK[nmxres], VTORDK[nmxres], QORQQB[nmxres], QBORQQ[nmxres]; -} hwprop_; -} -#define hwprop hwprop_ - -/*C Parameters for Sudakov form factors -C (NMXSUD= max no of entries in lookup table) - PARAMETER (NMXSUD=1024) - COMMON/HWUSUD/ACCUR,QEV(NMXSUD,6),SUD(NMXSUD,6),INTER,NQEV,NSUD, - & SUDORD*/ - -static const int nmxsud = 1024; -extern "C" { -extern struct { - double ACCUR, QEV[6][nmxsud], SUD[6][nmxsud]; - int INTER, NQEV, NSUD, SUDORD; -} hwusud_; -} -#define hwusud hwusud_ - -/*C New parameters for version 6.203 - DOUBLE PRECISION ABWGT,ABWSUM,AVABW - INTEGER NNEGWT,NNEGEV - LOGICAL NEGWTS - COMMON/HW6203/ABWGT,ABWSUM,AVABW,NNEGWT,NNEGEV,NEGWTS */ - -extern "C" { -extern struct { - double ABWGT, ABWSUM, AVABW; - int NNEGWT, NNEGEV, NEGWTS; -} hw6203_; -} -#define hw6203 hw6203_ - -/*CHARACTER*20 - & AUTPDF - COMMON/HWPRCH/AUTPDF(2),BDECAY */ - -extern "C" { -extern struct { char AUTPDF[2][20], BDECAY[4]; } hwprch_; -} -#define hwprch hwprch_ - -/*C Parameters for minimum bias/soft underlying event - COMMON/HWMINB/ - & PMBN1,PMBN2,PMBN3,PMBK1,PMBK2,PMBM1,PMBM2,PMBP1,PMBP2,PMBP3 */ - -extern "C" { -extern struct { double PMBN1, PMBN2, PMBN3, PMBK1, PMBK2, PMBM1, PMBM2, PMBP1, PMBP2, PMBP3; } hwminb_; -} -#define hwminb hwminb_ - -/*C Variables controling mixing and vertex information -C--VTXPIP should have been a 5-vector, problems with NAG compiler - COMMON/HWDIST/EXAG,GEV2MM,HBAR,PLTCUT,VMIN2,VTXPIP(5),XMIX(2), - & XMRCT(2),YMIX(2),YMRCT(2),IOPDKL,MAXDKL,MIXING,PIPSMR */ - -extern "C" { -extern struct { - double EXAG, GEV2MM, HBAR, PLTCUT, VMIN2, VTXPIP[5], XMIX[2], XMRCT[2], YMIX[2], YMRCT[2]; - int IOPDKL, MAXDKL, MIXING, PIPSMR; -} hwdist_; -} -#define hwdist hwdist_ - -/* PARAMETER(NMXCDK=4000) - COMMON/HWUCLU/CLDKWT(NMXCDK),CTHRPW(12,12),PRECO,RESN(12,12), - & RMIN(12,12),LOCN(12,12),NCLDK(NMXCDK),NRECO,CLRECO */ - -static const int nmxcdk = 4000; -extern "C" { -extern struct { - double CLDKWT[nmxcdk], CTHRPW[12][12], PRECO, RESN[12][12], RMIN[12][12]; - int LOCN[12][12], NCLDK[nmxcdk], NRECO, CLRECO; -} hwuclu_; -} -#define hwuclu hwuclu_ - -/*C Weights used in cluster decays - COMMON/HWUWTS/REPWT(0:3,0:4,0:4),SNGWT,DECWT,QWT(3),PWT(12), - & SWTEF(NMXRES) */ - -extern "C" { -extern struct { double REPWT[5][5][4], SNGWT, DECWT, QWT[3], PWT[12], SWTEF[nmxres]; } hwuwts_; -} -#define hwuwts hwuwts_ - -/*C Other new parameters for version 6.2 - DOUBLE PRECISION VIPWID,DXRCYL,DXZMAX,DXRSPH - LOGICAL WZRFR,FIX4JT - INTEGER IMSSM,IHIGGS,PARITY,LRSUSY - COMMON/HW6202/VIPWID(3),DXRCYL,DXZMAX,DXRSPH,WZRFR,FIX4JT, - & IMSSM,IHIGGS,PARITY,LRSUSY */ - -extern "C" { -extern struct { - double VIPWID[3], DXRCYL, DXZMAX, DXRSPH; - int WZRFR, FIX4JT, IMSSM, IHIGGS, PARITY, LRSUSY; -} hw6202_; -} -#define hw6202 hw6202_ - -/* PARAMETER (MODMAX=50) - COMMON/HWBOSC/ALPFAC,BRHIG(12),ENHANC(12),GAMMAX,RHOHEP(3,NMXHEP), - & IOPHIG,MODBOS(MODMAX) */ - -static const int hepevt_size = 4000; // check in HerwigWrapper -static const int modmax = 50; -extern "C" { -extern struct { - double ALPFAC, BRHIG[12], ENHANC[12], GAMMAX, RHOHEP[hepevt_size][3]; - int IOPHIG, MODBOS[modmax]; -} hwbosc_; -} -#define hwbosc hwbosc_ - -/* COMMON/HWHARD/ASFIXD,CLQ(7,6),COSS,COSTH,CTMAX,DISF(13,2),EMLST, - & EMMAX,EMMIN,EMPOW,EMSCA,EPOLN(3),GCOEF(7),GPOLN,OMEGA0,PHOMAS, - & PPOLN(3),PTMAX,PTMIN,PTPOW,Q2MAX,Q2MIN,Q2POW,Q2WWMN,Q2WWMX,QLIM, - & SINS,THMAX,Y4JT,TMNISR,TQWT,XX(2),XLMIN,XXMIN,YBMAX,YBMIN,YJMAX, - & YJMIN,YWWMAX,YWWMIN,WHMIN,ZJMAX,ZMXISR,IAPHIG,IBRN(2),IBSH, - & ICO(10),IDCMF,IDN(10),IFLMAX,IFLMIN,IHPRO,IPRO,MAPQ(6),MAXFL, - & BGSHAT,COLISR,FSTEVT,FSTWGT,GENEV,HVFCEN,TPOL,DURHAM */ - -extern "C" { -extern struct { - double ASFIXD, CLQ[6][7], COSS, COSTH, CTMAX, DISF[2][13], EMLST, EMMAX, EMMIN, EMPOW, EMSCA, EPOLN[3], GCOEF[7], - GPOLN, OMEGA0, PHOMAS, PPOLN[3], PTMAX, PTMIN, PTPOW, Q2MAX, Q2MIN, Q2POW, Q2WWMN, Q2WWMX, QLIM, SINS, THMAX, - Y4JT, TMNISR, TQWT, XX[2], XLMIN, XXMIN, YBMAX, YBMIN, YJMAX, YJMIN, YWWMAX, YWWMIN, WHMIN, ZJMAX, ZMXISR; - int IAPHIG, IBRN[2], IBSH, ICO[10], IDCMF, IDN[10], IFLMAX, IFLMIN, IHPRO, IPRO, MAPQ[6], MAXFL, BGSHAT, COLISR, - FSTEVT, FSTWGT, GENEV, HVFCEN, TPOL, DURHAM; -} hwhard_; -} -#define hwhard hwhard_ - -/*C other HERWIG branching, event and hard subprocess common blocks - COMMON/HWBRCH/ANOMSC(2,2),HARDST,PTINT(3,2),XFACT,INHAD,JNHAD, - & NSPAC(7),ISLENT,BREIT,FROST,USECMF */ - -extern "C" { -extern struct { - double ANOMSC[2][2], HARDST, PTINT[2][3], XFACT; - int INHAD, JNHAD, NSPAC[7], ISLENT, BREIT, FROST, USECMF; -} hwbrch_; -} -#define hwbrch hwbrch_ - -/* LOGICAL PRESPL - COMMON /HW6500/ PRESPL */ - -extern "C" { -extern struct { int PRESPL; } hw6500_; -} -#define hw6500 hw6500_ - -/*C R-Parity violating parameters and colours - COMMON /HWRPAR/ LAMDA1(3,3,3),LAMDA2(3,3,3), - & LAMDA3(3,3,3),HRDCOL(2,5),RPARTY,COLUPD */ - -extern "C" { -extern struct { - double LAMDA1[3][3][3], LAMDA2[3][3][3], LAMDA3[3][3][3]; - int HRDCOL[5][2], RPARTY, COLUPD; -} hwrpar_; -} -#define hwrpar hwrpar_ - -/*C SUSY parameters - COMMON/HWSUSY/ - & TANB,ALPHAH,COSBPA,SINBPA,COSBMA,SINBMA,COSA,SINA,COSB,SINB,COTB, - & ZMIXSS(4,4),ZMXNSS(4,4),ZSGNSS(4), LFCH(16),RFCH(16), - & SLFCH(16,4),SRFCH(16,4), WMXUSS(2,2),WMXVSS(2,2), WSGNSS(2), - & QMIXSS(6,2,2),LMIXSS(6,2,2), - & THETAT,THETAB,THETAL,ATSS,ABSS,ALSS,MUSS,FACTSS, - & GHWWSS(3),GHZZSS(3),GHDDSS(4),GHUUSS(4),GHWHSS(3), - & GHSQSS(4,6,2,2),XLMNSS,RMMNSS,DMSSM,SENHNC(24),SSPARITY,SUSYIN */ - -extern "C" { -extern struct { - double TANB, ALPHAH, COSBPA, SINBPA, COSBMA, SINBMA, COSA, SINA, COSB, SINB, COTB, ZMIXSS[4][4], ZMXNSS[4][4], - ZSGNSS[4], LFCH[16], RFCH[16], SLFCH[4][16], SRFCH[4][16], WMXUSS[2][2], WMXVSS[2][2], WSGNSS[2], QMIXSS[2][2][6], - LMIXSS[2][2][6], THETAT, THETAB, THETAL, ATSS, ABSS, ALSS, MUSS, FACTSS, GHWWSS[3], GHZZSS[3], GHDDSS[4], - GHUUSS[4], GHWHSS[3], GHSQSS[2][2][6][4], XLMNSS, RMMNSS, DMSSM, SENHNC[24], SSPARITY; - int SUSYIN; -} hwsusy_; -} -#define hwsusy hwsusy_ - -/*INTEGER NDECSY,NSEARCH,LRDEC,LWDEC - LOGICAL SYSPIN,THREEB,FOURB - CHARACTER *6 TAUDEC - COMMON /HWDSPN/NDECSY,NSEARCH,LRDEC,LWDEC,SYSPIN,THREEB, - & FOURB,TAUDEC */ - -extern "C" { -extern struct { - int NDECSY, NSEARCH, LRDEC, LWDEC, SYSPIN, THREEB, FOURB; - char TAUDEC[6]; -} hwdspn_; -} - -#define hwdspn hwdspn_ - -/*C--common block for Les Houches interface to store information we need -C - INTEGER MAXHRP - PARAMETER (MAXHRP=100) - DOUBLE PRECISION LHWGT(MAXHRP),LHWGTS(MAXHRP),LHMXSM, - & LHXSCT(MAXHRP),LHXERR(MAXHRP),LHXMAX(MAXHRP) - INTEGER LHIWGT(MAXHRP),ITYPLH,LHNEVT(MAXHRP) - LOGICAL LHSOFT,LHGLSF - COMMON /HWGUPR/LHWGT,LHWGTS,LHXSCT,LHXERR,LHXMAX,LHMXSM,LHIWGT, - & LHNEVT,ITYPLH,LHSOFT,LHGLSF */ - -static const int maxhrp = 100; -extern "C" { -extern struct { - double LHWGT[maxhrp], LHWGTS[maxhrp], LHMXSM, LHXSCT[maxhrp], LHXERR[maxhrp], LHXMAX[maxhrp]; - int LHIWGT, LHNEVT, ITYPLH, LHSOFT, LHGLSF; -} hwgupr_; -} -#define hwgupr hwgupr_ - -/*C New parameters for version 6.3 - INTEGER IMAXCH,IMAXOP - PARAMETER (IMAXCH=20,IMAXOP=40) - DOUBLE PRECISION MJJMIN,CHNPRB(IMAXCH) - INTEGER IOPSTP,IOPSH - LOGICAL OPTM,CHON(IMAXCH) - COMMON/HW6300/MJJMIN,CHNPRB,IOPSTP,IOPSH,OPTM,CHON */ - -static const int imaxch = 20; -extern "C" { -extern struct { - double MJJMIN, CHNPRB[imaxch]; - int IOPSTP, IOPSH, OPTM, CHON[imaxch]; -} hw6300_; -} -#define hw6300 hw6300_ - -//-------------------------- JIMMY COMMON BLOCK ------------------------------- -/* - DOUBLE PRECISION YGAMMA, JMZMIN, JMRAD, PTJIM - DOUBLE PRECISION PHAD, JMU2, JMV2, SMALL, JMARRY -c JMARRY is the array storing gamma-p xsec at various z, & -c max weight for each z - DOUBLE PRECISION TOTSCAT, NLOST - - INTEGER MAXMS, NPSIMP, MSFLAG, JMPTYP, JCMVAR, NPROC - LOGICAL ANOMOFF - - PARAMETER( NPROC = 117 ) - PARAMETER( MAXMS = 100 ) ! Maximum multiple scatters - PARAMETER( NPSIMP = 16 ) ! No. of Simpson rule (YBJ) -C intervals (must be even) - PARAMETER( SMALL = 1.0D-20 ) - INTEGER JMOUT, JMBUG, FN_TYPE, NSCAT, JMUEO, MAXMSTRY - PARAMETER(JMOUT = 6) - COMMON / JMPARM / PTJIM, YGAMMA, JMZMIN, JMRAD(264) - & ,PHAD, JMU2, JMV2, JMARRY( 6+MAXMS,0:NPSIMP ) - & ,NLOST, TOTSCAT, ANOMOFF, JCMVAR, JMUEO - & ,JMPTYP(NPROC), JMBUG, FN_TYPE, MSFLAG, MAXMSTRY - DOUBLE PRECISION JMPROC, JMVETO - COMMON / JMEVNT/ JMPROC(NPROC) - &, JMVETO(2,13), NSCAT -*/ - -static const int NPROC = 117; -static const int MAXMS = 100; -static const int NPSIMP = 16; -static const double SMALL = 0.00000000000000000001; - -extern "C" { -extern struct { - double PTJIM, YGAMMA, JMZMIN, JMRAD[264], PHAD, JMU2, JMV2, JMARRY[NPSIMP + 1][6 + MAXMS], NLOST, TOTSCAT; - int ANAMOFF, JCMVAR, JMUEO, JMPTYP[NPROC], JMBUG, FN_TYPE, MSFLAG, MAXMSTRY; -} jmparm_; -} -#define jmparm jmparm_ - -extern "C" { -extern struct { - double JMPROC[NPROC], JMVETO[13][2]; - int NSCAT; -} jmevnt_; -} -#define jmevnt jmevnt_ - -//------------------------------ JIMMY functions ------------------------------------------------- -extern "C" { -void jimmin_(void); -void jminit_(void); -double hwmsct_(int*); -void jmefin_(void); -} - -#define jimmin jimmin_ -#define jminit jminit_ -#define hwmsct hwmsct_ -#define jmefin jmefin_ - -//------------------------------ LHAPDF functions ------------------------------------------------- - -//MLM-style matching for aMC@NLO -extern "C" { -extern struct { - int n_match, max_multiplicity_flag; - double matching_scale; -} hwmatchpram_; -} -#define hwmatchpram hwmatchpram_ - -extern "C" { -void hwmatch_(int*); -void hwhdecay_(); -} -#define hwmatch hwmatch_ -#define hwhdecay hwhdecay_ - -#endif diff --git a/GeneratorInterface/Herwig6Interface/interface/hwudat.f b/GeneratorInterface/Herwig6Interface/interface/hwudat.f deleted file mode 100644 index dfe6cf1bc4dd8..0000000000000 --- a/GeneratorInterface/Herwig6Interface/interface/hwudat.f +++ /dev/null @@ -1,10907 +0,0 @@ -CDECK ID>, HWUDAT. -*CMZ :- -26/04/91 10.18.58 by Bryan Webber -*-- Author : Ian Knowles & Bryan Webber -C----------------------------------------------------------------------- - SUBROUTINE HWUDAT -C----------------------------------------------------------------------- -C Loads common blocks with particle properties data; for particle I: -C RNAME(I) = Name -C IDPDG(I) = PDG code -C IFLAV(I) = HERWIG flavour code -C ICHRG(I) = Electric charge (|e-|) (*3 for (di-)quarks) -C RMASS(I) = Mass (GeV/c^2) -C RLTIM(I) = Proper life time (s) -C RSPIN(I) = Spin -C QORQQB(I) = .TRUE. if it is a quark or an antidiquark -C QBORQQ(I) = .TRUE. if it is an antiquark or a diquark -C And stores the particle decay tables: call HWUDPR to print them -C----------------------------------------------------------------------- - IMPLICIT NONE - DOUBLE PRECISION ZERO,ONE,TWO,THREE,FOUR,HALF - PARAMETER (ZERO =0.D0, ONE =1.D0, TWO =2.D0, - & THREE=3.D0, FOUR=4.D0, HALF=0.5D0) -C - DOUBLE PRECISION - & ACCUR,AFCH,ALPFAC,ALPHEM,ANOMSC,ASFIXD,AVWGT,B1LIM,BETAF,BRFRAC, - & BRHIG,BTCLM,CAFAC,CFFAC,CLDKWT,CLMAX,CLPOW,CLQ,CLSMR,CMMOM,COSS, - & COSTH,CSPEED,CTHRPW,CTMAX,DECPAR,DECWT,DISF,DKLTM,EBEAM1,EBEAM2, - & EMLST,EMMAX,EMMIN,EMPOW,EMSCA,ENHANC,ENSOF,EPOLN,ETAMIX,EVWGT, - & EXAG,F0MIX,F1MIX,F2MIX,GAMH,GAMMAX,GAMW,GAMWT,GAMZ,GAMZP,GCOEF, - & GEV2NB,GEV2MM,GPOLN,H1MIX,HBAR,HARDST,OMEGA0,PBEAM1,PBEAM2,PDIQK, - & PGSMX,PGSPL,PHEP,PHIMIX,PHIPAR,PHOMAS,PIFAC,PLTCUT,PPAR,PPOLN, - & PRECO,PRSOF,PSPLT,PTINT,PTMAX,PTMIN,PTPOW,PTRMS,PXRMS,PWT,Q2MAX, - & Q2MIN,Q2POW,Q2WWMN,Q2WWMX,QCDL3,QCDL5,QCDLAM,QDIQK,QEV,QFCH,QG, - & QLIM,QSPAC,QV,QWT,REPWT,RESN,RHOHEP,RHOPAR,RLTIM,RMASS,RMIN, - & RSPIN,SCABI,SINS,SNGWT,SWEIN,SWTEF,SUD,THMAX,TLOUT,TMTOP,TMNISR, - & TQWT,VCKM,VFCH,VGCUT,VHEP,VMIN2,VPAR,VPCUT,VQCUT,VTXPIP,VTXQDK, - & WBIGST,WGTMAX,WGTSUM,WHMIN,WSQSUM,XFACT,XLMIN,XMIX,XMRCT,XX, - & XXMIN,YBMAX,YBMIN,YJMAX,YJMIN,YMIX,YMRCT,YWWMAX,YWWMIN,ZBINM, - & ZJMAX,ZMXISR,Y4JT,EFFMIN,PPCL, - & TANB,ALPHAH,COSBPA,SINBPA,COSBMA,SINBMA,COSA,SINA,COSB,SINB,COTB, - & ZMIXSS,ZMXNSS,ZSGNSS,LFCH,RFCH,SLFCH,SRFCH, WMXUSS,WMXVSS,WSGNSS, - & QMIXSS,LMIXSS,THETAT,THETAB,THETAL,ATSS,ABSS,ALSS,MUSS,FACTSS, - & GHWWSS,GHZZSS,GHDDSS,GHUUSS,GHWHSS,GHSQSS -C--fix by PR 12/7/02 to avoid problems with nag compiler - DOUBLE PRECISION - & XLMNSS,RMMNSS,DMSSM,SENHNC,SSPARITY,LAMDA1,LAMDA2,LAMDA3, - & PMBN1,PMBN2,PMBN3,PMBK1,PMBK2,PMBM1,PMBM2,PMBP1,PMBP2,PMBP3, - & OMHMIX,ET2MIX,PH3MIX,GCUTME -C - INTEGER - & CLDIR,IAPHIG,IBRN,IBSH,ICHRG,ICO,IDCMF,IDHEP,IDHW,IDK,IDKPRD,IDN, - & IDPAR,IDPDG,IERROR,IFLAV,IFLMAX,IFLMIN,IHPRO,IMQDK,INHAD,INTER, - & IOPDKL,IOPHIG,IOPREM,IPART1,IPART2,IPRINT,IPRO,IPROC,ISLENT, - & ISPAC,ISTAT,ISTHEP,ISTPAR,JCOPAR,JDAHEP,JDAPAR,JMOHEP,JMOPAR, - & JNHAD,LNEXT,LOCN,LOCQ,LRSUD,LSTRT,LWEVT,LWSUD,MAPQ,MAXER,MAXEV, - & MAXFL,MAXPR,MODBOS,MODMAX,MODPDF,NBTRY,NCLDK,NCOLO,NCTRY,NDKYS, - & NDTRY,NETRY,NEVHEP,NEVPAR,NFLAV,NGSPL,NHEP,NME,NMODES,NMXCDK, - & NMXDKS,NMXHEP,NMXJET,NMXMOD,NMXPAR,NMXQDK,NMXRES,NMXSUD,NPAR, - & NPRODS,NQDK,NQEV,NRES,NRN,NSPAC,NSTRU,NSTRY,NSUD,NUMER,NUMERU, - & NWGTS,NZBIN,SUDORD,IOP4JT,HRDCOL,NMXCL,NCL,IDCL,NPRFMT,NRECO -C - LOGICAL - & AZSOFT,AZSPIN,BGSHAT,BREIT,CLRECO,COLISR,DKPSET,FROST,FSTEVT, - & FSTWGT,GENEV,GENSOF,HARDME,HVFCEN,MAXDKL,MIXING,NOSPAC,NOWGT, - & PRNDEC,PIPSMR,PRVTX,RSTAB,SOFTME,TMPAR,TPOL,USECMF,VTOCDK,VTORDK, - & ZPRIME,RPARTY,COLUPD,PRNDEF,PRNTEX,PRNWEB,DURHAM,SUSYIN, - & QORQQB,QBORQQ -C - CHARACTER*4 - & BDECAY - CHARACTER*8 - & PART1,PART2,RNAME - CHARACTER*20 - & AUTPDF - CHARACTER*37 - & TXNAME -C -C New standard event common - PARAMETER (NMXHEP=4000) - COMMON/HEPEVT/NEVHEP,NHEP,ISTHEP(NMXHEP),IDHEP(NMXHEP), - & JMOHEP(2,NMXHEP),JDAHEP(2,NMXHEP),PHEP(5,NMXHEP),VHEP(4,NMXHEP) -C -C Beams, process and number of events - COMMON/HWBEAM/IPART1,IPART2 - COMMON/HWBMCH/PART1,PART2 - COMMON/HWPROC/EBEAM1,EBEAM2,PBEAM1,PBEAM2,IPROC,MAXEV -C -C Basic parameters (and quantities derived from them) - COMMON/HWPRAM/AFCH(16,2),ALPHEM,B1LIM,BETAF,BTCLM,CAFAC,CFFAC, - & CLMAX,CLPOW,CLSMR(2),CSPEED,ENSOF,ETAMIX,F0MIX,F1MIX,F2MIX,GAMH, - & GAMW,GAMZ,GAMZP,GEV2NB,H1MIX,PDIQK,PGSMX,PGSPL(4),PHIMIX,PIFAC, - & PRSOF,PSPLT(2),PTRMS,PXRMS,QCDL3,QCDL5,QCDLAM,QDIQK,QFCH(16),QG, - & QSPAC,QV,SCABI,SWEIN,TMTOP,VFCH(16,2),VCKM(3,3),VGCUT,VQCUT, - & VPCUT,ZBINM,EFFMIN,OMHMIX,ET2MIX,PH3MIX,GCUTME, - & IOPREM,IPRINT,ISPAC,LRSUD,LWSUD,MODPDF(2),NBTRY,NCOLO,NCTRY, - & NDTRY,NETRY,NFLAV,NGSPL,NSTRU,NSTRY,NZBIN,IOP4JT(2),NPRFMT, - & AZSOFT,AZSPIN,CLDIR(2),HARDME,NOSPAC,PRNDEC,PRVTX,SOFTME,ZPRIME, - & PRNDEF,PRNTEX,PRNWEB -C - COMMON/HWPRCH/AUTPDF(2),BDECAY -C -C Parton shower common (same format as /HEPEVT/) - PARAMETER (NMXPAR=500) - COMMON/HWPART/NEVPAR,NPAR,ISTPAR(NMXPAR),IDPAR(NMXPAR), - & JMOPAR(2,NMXPAR),JDAPAR(2,NMXPAR),PPAR(5,NMXPAR),VPAR(4,NMXPAR) -C -C Parton polarization common - COMMON/HWPARP/DECPAR(2,NMXPAR),PHIPAR(2,NMXPAR),RHOPAR(2,NMXPAR), - & TMPAR(NMXPAR) -C -C Electroweak boson common - PARAMETER (MODMAX=50) - COMMON/HWBOSC/ALPFAC,BRHIG(12),ENHANC(12),GAMMAX,RHOHEP(3,NMXHEP), - & IOPHIG,MODBOS(MODMAX) -C -C Parton colour common - COMMON/HWPARC/JCOPAR(4,NMXPAR) -C -C other HERWIG branching, event and hard subprocess common blocks - COMMON/HWBRCH/ANOMSC(2,2),HARDST,PTINT(3,2),XFACT,INHAD,JNHAD, - & NSPAC(7),ISLENT,BREIT,FROST,USECMF -C - COMMON/HWEVNT/AVWGT,EVWGT,GAMWT,TLOUT,WBIGST,WGTMAX,WGTSUM,WSQSUM, - & IDHW(NMXHEP),IERROR,ISTAT,LWEVT,MAXER,MAXPR,NOWGT,NRN(2),NUMER, - & NUMERU,NWGTS,GENSOF -C - COMMON/HWHARD/ASFIXD,CLQ(7,6),COSS,COSTH,CTMAX,DISF(13,2),EMLST, - & EMMAX,EMMIN,EMPOW,EMSCA,EPOLN(3),GCOEF(7),GPOLN,OMEGA0,PHOMAS, - & PPOLN(3),PTMAX,PTMIN,PTPOW,Q2MAX,Q2MIN,Q2POW,Q2WWMN,Q2WWMX,QLIM, - & SINS,THMAX,Y4JT,TMNISR,TQWT,XX(2),XLMIN,XXMIN,YBMAX,YBMIN,YJMAX, - & YJMIN,YWWMAX,YWWMIN,WHMIN,ZJMAX,ZMXISR,IAPHIG,IBRN(2),IBSH, - & ICO(10),IDCMF,IDN(10),IFLMAX,IFLMIN,IHPRO,IPRO,MAPQ(6),MAXFL, - & BGSHAT,COLISR,FSTEVT,FSTWGT,GENEV,HVFCEN,TPOL,DURHAM -C -C Arrays for particle properties (NMXRES = max no of particles defined) - PARAMETER(NMXRES=500) - COMMON/HWPROP/RLTIM(0:NMXRES),RMASS(0:NMXRES),RSPIN(0:NMXRES), - & ICHRG(0:NMXRES),IDPDG(0:NMXRES),IFLAV(0:NMXRES),NRES, - & VTOCDK(0:NMXRES),VTORDK(0:NMXRES), - & QORQQB(0:NMXRES),QBORQQ(0:NMXRES) -C - COMMON/HWUNAM/RNAME(0:NMXRES),TXNAME(2,0:NMXRES) -C -C Arrays for particle decays (NMXDKS = max total no of decays, -C NMXMOD = max no of modes for a particle) - PARAMETER(NMXDKS=4000,NMXMOD=200) - COMMON/HWUPDT/BRFRAC(NMXDKS),CMMOM(NMXDKS),DKLTM(NMXRES), - & IDK(NMXDKS),IDKPRD(5,NMXDKS),LNEXT(NMXDKS),LSTRT(NMXRES),NDKYS, - & NME(NMXDKS),NMODES(NMXRES),NPRODS(NMXDKS),DKPSET,RSTAB(0:NMXRES) -C -C Weights used in cluster decays - COMMON/HWUWTS/REPWT(0:3,0:4,0:4),SNGWT,DECWT,QWT(3),PWT(12), - & SWTEF(NMXRES) -C -C Parameters for cluster decays (NMXCDK = max total no of cluster -C decay channels) - PARAMETER(NMXCDK=4000) - COMMON/HWUCLU/CLDKWT(NMXCDK),CTHRPW(12,12),PRECO,RESN(12,12), - & RMIN(12,12),LOCN(12,12),NCLDK(NMXCDK),NRECO,CLRECO -C -C Variables controling mixing and vertex information -C--VTXPIP should have been a 5-vector, problems with NAG compiler - COMMON/HWDIST/EXAG,GEV2MM,HBAR,PLTCUT,VMIN2,VTXPIP(5),XMIX(2), - & XMRCT(2),YMIX(2),YMRCT(2),IOPDKL,MAXDKL,MIXING,PIPSMR -C -C Arrays for temporarily storing heavy-b,c-hadrons decaying partonicaly -C (NMXQDK = max no such decays in an event) - PARAMETER (NMXQDK=20) - COMMON/HWQDKS/VTXQDK(4,NMXQDK),IMQDK(NMXQDK),LOCQ(NMXQDK),NQDK -C -C Parameters for Sudakov form factors -C (NMXSUD= max no of entries in lookup table) - PARAMETER (NMXSUD=1024) - COMMON/HWUSUD/ACCUR,QEV(NMXSUD,6),SUD(NMXSUD,6),INTER,NQEV,NSUD, - & SUDORD -C - PARAMETER (NMXJET=200) -C -C SUSY parameters - COMMON/HWSUSY/ - & TANB,ALPHAH,COSBPA,SINBPA,COSBMA,SINBMA,COSA,SINA,COSB,SINB,COTB, - & ZMIXSS(4,4),ZMXNSS(4,4),ZSGNSS(4), LFCH(16),RFCH(16), - & SLFCH(16,4),SRFCH(16,4), WMXUSS(2,2),WMXVSS(2,2), WSGNSS(2), - & QMIXSS(6,2,2),LMIXSS(6,2,2), - & THETAT,THETAB,THETAL,ATSS,ABSS,ALSS,MUSS,FACTSS, - & GHWWSS(3),GHZZSS(3),GHDDSS(4),GHUUSS(4),GHWHSS(3), - & GHSQSS(4,6,2,2),XLMNSS,RMMNSS,DMSSM,SENHNC(24),SSPARITY,SUSYIN -C -C R-Parity violating parameters and colours - COMMON /HWRPAR/ LAMDA1(3,3,3),LAMDA2(3,3,3), - & LAMDA3(3,3,3),HRDCOL(2,5),RPARTY,COLUPD -C -C Parameters for minimum bias/soft underlying event - COMMON/HWMINB/ - & PMBN1,PMBN2,PMBN3,PMBK1,PMBK2,PMBM1,PMBM2,PMBP1,PMBP2,PMBP3 -C -C Cluster common used by soft event routines - PARAMETER (NMXCL=500) - COMMON/HWCLUS/PPCL(5,NMXCL),IDCL(NMXCL),NCL -C -C Parameters for resonant graviton production - DOUBLE PRECISION GRVLAM,EMGRV,GAMGRV - COMMON/HWGRAV/GRVLAM,EMGRV,GAMGRV -C -C Other new parameters for version 6.2 - DOUBLE PRECISION VIPWID,DXRCYL,DXZMAX,DXRSPH - LOGICAL WZRFR,FIX4JT - INTEGER IMSSM,IHIGGS,PARITY,LRSUSY - COMMON/HW6202/VIPWID(3),DXRCYL,DXZMAX,DXRSPH,WZRFR,FIX4JT, - & IMSSM,IHIGGS,PARITY,LRSUSY -C -C New parameters for version 6.203 - DOUBLE PRECISION ABWGT,ABWSUM,AVABW - INTEGER NNEGWT,NNEGEV - LOGICAL NEGWTS - COMMON/HW6203/ABWGT,ABWSUM,AVABW,NNEGWT,NNEGEV,NEGWTS -C -C New parameters for version 6.3 - INTEGER IMAXCH,IMAXOP - PARAMETER (IMAXCH=20,IMAXOP=40) - DOUBLE PRECISION MJJMIN,CHNPRB(IMAXCH) - INTEGER IOPSTP,IOPSH - LOGICAL OPTM,CHON(IMAXCH) - COMMON/HW6300/MJJMIN,CHNPRB,IOPSTP,IOPSH,OPTM,CHON -C New PDF's for version 6.3 - INTEGER NXMRS,NQMRS,NPMRS - PARAMETER(NXMRS=49,NQMRS=37,NPMRS=8) - DOUBLE PRECISION FMRS(3,NPMRS,NXMRS,NQMRS+1) - COMMON /HWPMRS/FMRS -C Circe interface for version 6.3 - INTEGER CIRCOP,CIRCAC,CIRCVR,CIRCRV,CIRCCH - COMMON /HWCIRC/CIRCOP,CIRCAC,CIRCVR,CIRCRV,CIRCCH -C New parameters and commons for spin correlations -C--constants for the arrays - INTEGER NMXSPN,NCFMAX - PARAMETER(NMXSPN=50,NCFMAX=3) - INTEGER NMODE2,NMODE3,NDIAGR,NMODEB,NMODE4 - PARAMETER(NMODE2=500,NMODE3=500,NDIAGR=8,NMODEB=50,NMODE4=4) -C--common block for X --> X gauge boson - DOUBLE PRECISION ABMODE(2,NMODEB),BBMODE(2,12,NMODEB), - & PBMODE(12,NMODEB),WTBMAX(12,NMODEB) - INTEGER IDBPRT(NMODEB),IBMODE(NMODEB),IBDRTP(NMODEB),NBMODE - COMMON /HWDSPB/ABMODE,BBMODE,PBMODE,WTBMAX,IDBPRT,IBDRTP,IBMODE, - & NBMODE -C--common block for two body decays - DOUBLE PRECISION A2MODE(2,NMODE2),P2MODE(NMODE2),WT2MAX(NMODE2) - INTEGER ID2PRT(NMODE2),I2DRTP(NMODE2),N2MODE - COMMON /HWDSP2/A2MODE,P2MODE,WT2MAX,ID2PRT,I2DRTP,N2MODE - DOUBLE PRECISION A3MODE(2,NDIAGR,NMODE3),B3MODE(2,NDIAGR,NMODE3), - & P3MODE(NMODE3),WT3MAX(NMODE3),SPN3CF(NCFMAX,NCFMAX,NMODE3) - INTEGER ID3PRT(NMODE3),I3MODE(NDIAGR,NMODE3), - & I3DRTP(NDIAGR,NMODE3),N3MODE,NDI3BY(NMODE3),N3NCFL(NMODE3), - & I3DRCF(NDIAGR,NMODE3) - COMMON /HWDSP3/A3MODE,B3MODE,P3MODE,WT3MAX,SPN3CF,ID3PRT,I3MODE, - & I3DRTP,N3MODE,NDI3BY,N3NCFL,I3DRCF -C--common block for four body decays - DOUBLE PRECISION A4MODE(2,12,NMODE4),B4MODE(2,12,NMODE4), - & P4MODE(12,12,NMODE4),WT4MAX(12,12,NMODE4) - INTEGER ID4PRT(NMODE4),I4MODE(2,NMODE4),N4MODE - COMMON /HWDSP4/A4MODE,B4MODE,P4MODE,WT4MAX,ID4PRT,I4MODE,N4MODE -C--common block for spin correlations in event - INTEGER NDECSY,NSEARCH,LRDEC,LWDEC - LOGICAL SYSPIN,THREEB,FOURB - CHARACTER *6 TAUDEC - COMMON /HWDSPN/NDECSY,NSEARCH,LRDEC,LWDEC,SYSPIN,THREEB, - & FOURB,TAUDEC -C - INTEGER IDSPN(NMXSPN),JMOSPN(NMXSPN),JDASPN(2,NMXSPN),NSPN, - & ISNHEP(NMXHEP),NSNTRY,NCFL(NMXSPN),SPCOPT - DOUBLE COMPLEX MESPN(2,2,2,2,NCFMAX,NMXSPN),RHOSPN(2,2,NMXSPN) - DOUBLE PRECISION SPNCFC(NCFMAX,NCFMAX,NMXSPN) - LOGICAL DECSPN(NMXSPN) - COMMON /HWSPIN/MESPN,RHOSPN,SPNCFC,IDSPN,JMOSPN,JDASPN, - & NSPN,ISNHEP,NSNTRY,DECSPN,NCFL,SPCOPT - INTEGER JAK1,JAK2,ITDKRC,IFPHOT - COMMON /HWSTAU/ JAK1,JAK2,ITDKRC,IFPHOT -C -C--common block for Les Houches interface to store information we need -C - INTEGER MAXHRP - PARAMETER (MAXHRP=100) - DOUBLE PRECISION LHWGT(MAXHRP),LHWGTS(MAXHRP),LHMXSM, - & LHXSCT(MAXHRP),LHXERR(MAXHRP),LHXMAX(MAXHRP) - INTEGER LHIWGT(MAXHRP),ITYPLH,LHNEVT(MAXHRP) - LOGICAL LHSOFT,LHGLSF - COMMON /HWGUPR/LHWGT,LHWGTS,LHXSCT,LHXERR,LHXMAX,LHMXSM,LHIWGT, - & LHNEVT,ITYPLH,LHSOFT,LHGLSF -C -C--common block for HERWIG6.5 -C - LOGICAL PRESPL - COMMON /HW6500/ PRESPL - INTEGER ITOPRD - COMMON /HW6504/ITOPRD -C--the only change for 6505 was to increase MODMAX from 5 to 50 - DOUBLE PRECISION PDFX0,PDFPOW - COMMON /HW6506/PDFX0,PDFPOW -C--add new variable to prevent infinite loops in HWDFOR/FIV - INTEGER NDETRY - COMMON /HW6510/NDETRY - - - - COMMON/HWSEED/ISEED(2) - INTEGER ISEED - INTEGER NLAST,NNEXT,NLEFT,NREST,I,J,MMWIDE,MMLONG,MMHOFF,MMVOFF - COMMON/PAPER/MMWIDE,MMLONG,MMHOFF,MMVOFF -c PARAMETER (NLAST=458,NNEXT=458+1,NLEFT=NMXRES-458) -c PARAMETER (NREST=NMXRES-120) -c DATA NRES/458/ - PARAMETER (NLAST=458,NNEXT=NLAST+1,NLEFT=NMXRES-NLAST) - PARAMETER (NREST=NMXRES-120) - DATA NRES/NLAST/ -C Don't forget to change the three occurances above as well - DATA MMWIDE,MMLONG,MMHOFF,MMVOFF/190,280,-39,-35/ - DATA ISEED/12345,67890/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=0,16)/ - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'DQRK ', 1, 0,-1,0.3200D0,0.000D+00,0.5D0, - & 'UQRK ', 2, 0,+2,0.3200D0,0.000D+00,0.5D0, - & 'SQRK ', 3, 0,-1,0.5000D0,0.000D+00,0.5D0, - & 'CQRK ', 4, 0,+2,1.5500D0,0.000D+00,0.5D0, - & 'BQRK ', 5, 0,-1,4.9500D0,0.000D+00,0.5D0, - & 'TQRK ', 6, 0,+2,174.30D0,4.000D-25,0.5D0, - & 'DBAR ', -1, 0,+1,0.3200D0,0.000D+00,0.5D0, - & 'UBAR ', -2, 0,-2,0.3200D0,0.000D+00,0.5D0, - & 'SBAR ', -3, 0,+1,0.5000D0,0.000D+00,0.5D0, - & 'CBAR ', -4, 0,-2,1.5500D0,0.000D+00,0.5D0, - & 'BBAR ', -5, 0,+1,4.9500D0,0.000D+00,0.5D0, - & 'TBAR ', -6, 0,-2,174.30D0,4.000D-25,0.5D0, - & 'GLUON ', 21, 0, 0,0.7500D0,0.000D+00,1.0D0, - & 'CMF ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'HARD ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'SOFT ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=17,32)/ - & 'CONE ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'HEAVY ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'CLUS ', 91, 0, 0,0.0000D0,0.000D+00,0.0D0, - & '**** ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'PI0 ', 111, 11, 0,.13498D0,8.400D-17,0.0D0, - & 'ETA ', 221, 33, 0,.54730D0,0.000D+00,0.0D0, - & 'RHO0 ', 113, 11, 0,.77000D0,0.000D+00,1.0D0, - & 'OMEGA ', 223, 33, 0,.78194D0,0.000D+00,1.0D0, - & 'ETAP ', 331, 33, 0,.95778D0,0.000D+00,0.0D0, - & 'F_2 ', 225, 33, 0,1.2750D0,0.000D+00,2.0D0, - & 'A_10 ', 20113, 11, 0,1.2300D0,0.000D+00,1.0D0, - & 'FL_1 ', 20223, 33, 0,1.2819D0,0.000D+00,1.0D0, - & 'A_20 ', 115, 11, 0,1.3181D0,0.000D+00,2.0D0, - & 'PI- ', -211, 12,-1,.13957D0,2.603D-08,0.0D0, - & 'RHO- ', -213, 12,-1,.77000D0,0.000D+00,1.0D0, - & 'A_1- ', -20213, 12,-1,1.2300D0,0.000D+00,1.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=33,48)/ - & 'A_2- ', -215, 12,-1,1.3181D0,0.000D+00,2.0D0, - & 'K- ', -321, 32,-1,.49368D0,1.237D-08,0.0D0, - & 'K*- ', -323, 32,-1,.89166D0,0.000D+00,1.0D0, - & 'KH_1- ', -20323, 32,-1,1.8500D0,0.000D+00,1.0D0, - & 'K*_2- ', -325, 32,-1,1.4256D0,0.000D+00,2.0D0, - & 'PI+ ', 211, 21,+1,.13957D0,2.603D-08,0.0D0, - & 'RHO+ ', 213, 21,+1,.77000D0,0.000D+00,1.0D0, - & 'A_1+ ', 20213, 21,+1,1.2300D0,0.000D+00,1.0D0, - & 'A_2+ ', 215, 21,+1,1.3181D0,0.000D+00,2.0D0, - & 'KBAR0 ', -311, 31, 0,.49767D0,0.000D+00,0.0D0, - & 'K*BAR0 ', -313, 31, 0,.89610D0,0.000D+00,1.0D0, - & 'KH_1BAR0', -20313, 31, 0,1.8500D0,0.000D+00,1.0D0, - & 'K*_2BAR0', -315, 31, 0,1.4324D0,0.000D+00,2.0D0, - & 'K+ ', 321, 23,+1,.49368D0,1.237D-08,0.0D0, - & 'K*+ ', 323, 23,+1,.89166D0,0.000D+00,1.0D0, - & 'KH_1+ ', 20323, 23,+1,1.8500D0,0.000D+00,1.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=49,64)/ - & 'K*_2+ ', 325, 23,+1,1.4256D0,0.000D+00,2.0D0, - & 'K0 ', 311, 13, 0,.49767D0,0.000D+00,0.0D0, - & 'K*0 ', 313, 13, 0,.89610D0,0.000D+00,1.0D0, - & 'KH_10 ', 20313, 13, 0,1.8500D0,0.000D+00,1.0D0, - & 'K*_20 ', 315, 13, 0,1.4324D0,0.000D+00,2.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'PHI ', 333, 33, 0,1.0194D0,0.000D+00,1.0D0, - & 'FH_1 ', 20333, 33, 0,1.4262D0,0.000D+00,1.0D0, - & 'FP_2 ', 335, 33, 0,1.5250D0,0.000D+00,2.0D0, - & 'GAMMA ', 22, 0, 0,0.0000D0,1.000D+30,1.0D0, - & 'K_S0 ', 310, 0, 0,.49767D0,8.926D-11,0.0D0, - & 'K_L0 ', 130, 0, 0,.49767D0,5.170D-08,0.0D0, - & 'A_0(H)0 ', 10111, 11, 0,1.4740D0,0.000D+00,0.0D0, - & 'A_0(H)+ ', 10211, 21,+1,1.4740D0,0.000D+00,0.0D0, - & 'A_0(H)- ', -10211, 12,-1,1.4740D0,0.000D+00,0.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=65,80)/ - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'REMG ', 98, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'REMN ', 99, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'P ', 2212, 122,+1,.93827D0,1.000D+30,0.5D0, - & 'DELTA+ ', 2214, 122,+1,1.2320D0,0.000D+00,1.5D0, - & 'N ', 2112, 112, 0,.93957D0,8.870D+02,0.5D0, - & 'DELTA0 ', 2114, 112, 0,1.2320D0,0.000D+00,1.5D0, - & 'DELTA- ', 1114, 111,-1,1.2320D0,0.000D+00,1.5D0, - & 'LAMBDA ', 3122, 123, 0,1.1157D0,2.632D-10,0.5D0, - & 'SIGMA0 ', 3212, 123, 0,1.1926D0,7.400D-20,0.5D0, - & 'SIGMA*0 ', 3214, 123, 0,1.3837D0,0.000D+00,1.5D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=81,96)/ - & 'SIGMA- ', 3112, 113,-1,1.1974D0,1.479D-10,0.5D0, - & 'SIGMA*- ', 3114, 113,-1,1.3872D0,0.000D+00,1.5D0, - & 'XI- ', 3312, 133,-1,1.3213D0,1.639D-10,0.5D0, - & 'XI*- ', 3314, 133,-1,1.5350D0,0.000D+00,1.5D0, - & 'DELTA++ ', 2224, 222,+2,1.2320D0,0.000D+00,1.5D0, - & 'SIGMA+ ', 3222, 223,+1,1.1894D0,7.990D-11,0.5D0, - & 'SIGMA*+ ', 3224, 223,+1,1.3828D0,0.000D+00,1.5D0, - & 'XI0 ', 3322, 233, 0,1.3149D0,2.900D-10,0.5D0, - & 'XI*0 ', 3324, 233, 0,1.5318D0,0.000D+00,1.5D0, - & 'OMEGA- ', 3334, 333,-1,1.6725D0,8.220D-11,1.5D0, - & 'PBAR ', -2212,-122,-1,.93827D0,1.000D+30,0.5D0, - & 'DELTABR-', -2214,-122,-1,1.2320D0,0.000D+00,1.5D0, - & 'NBAR ', -2112,-112, 0,.93957D0,8.870D+02,0.5D0, - & 'DELTABR0', -2114,-112, 0,1.2320D0,0.000D+00,1.5D0, - & 'DELTABR+', -1114,-111,+1,1.2320D0,0.000D+00,1.5D0, - & 'LAMBDABR', -3122,-123, 0,1.1157D0,2.632D-10,0.5D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=97,112)/ - & 'SIGMABR0', -3212,-123, 0,1.1926D0,7.400D-20,0.5D0, - & 'SGMA*BR0', -3214,-123, 0,1.3837D0,0.000D+00,1.5D0, - & 'SIGMABR+', -3112,-113,+1,1.1974D0,1.479D-10,0.5D0, - & 'SGMA*BR+', -3114,-113,+1,1.3872D0,0.000D+00,1.5D0, - & 'XIBAR+ ', -3312,-133,+1,1.3213D0,1.639D-10,0.5D0, - & 'XI*BAR+ ', -3314,-133,+1,1.5350D0,0.000D+00,1.5D0, - & 'DLTABR--', -2224,-222,-2,1.2320D0,0.000D+00,1.5D0, - & 'SIGMABR-', -3222,-223,-1,1.1894D0,7.990D-11,0.5D0, - & 'SGMA*BR-', -3224,-223,-1,1.3828D0,0.000D+00,1.5D0, - & 'XIBAR0 ', -3322,-233, 0,1.3149D0,2.900D-10,0.5D0, - & 'XI*BAR ', -3324,-233, 0,1.5318D0,0.000D+00,1.5D0, - & 'OMEGABR+', -3334,-333,+1,1.6725D0,8.220D-11,1.5D0, - & 'UU ', 2203, 0,+4,0.6400D0,0.000D+00,0.0D0, - & 'UD ', 2101, 0,+1,0.6400D0,0.000D+00,0.0D0, - & 'DD ', 1103, 0,-2,0.6400D0,0.000D+00,0.0D0, - & 'US ', 3201, 0,+1,0.8200D0,0.000D+00,0.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=113,128)/ - & 'DS ', 3101, 0,-2,0.8200D0,0.000D+00,0.0D0, - & 'SS ', 3303, 0,-2,1.0000D0,0.000D+00,0.0D0, - & 'UBARUBAR', -2203, 0,-4,0.6400D0,0.000D+00,0.0D0, - & 'UBARDBAR', -2101, 0,-1,0.6400D0,0.000D+00,0.0D0, - & 'DBARDBAR', -1103, 0,+2,0.6400D0,0.000D+00,0.0D0, - & 'UBARSBAR', -3201, 0,-1,0.8200D0,0.000D+00,0.0D0, - & 'DBARSBAR', -3101, 0,+2,0.8200D0,0.000D+00,0.0D0, - & 'SBARSBAR', -3303, 0,+2,1.0000D0,0.000D+00,0.0D0, - & 'E- ', 11, 0,-1,5.11D-04,1.000D+30,0.5D0, - & 'NU_E ', 12, 0, 0,0.0000D0,1.000D+30,0.5D0, - & 'MU- ', 13, 0,-1,.10566D0,2.197D-06,0.5D0, - & 'NU_MU ', 14, 0, 0,0.0000D0,1.000D+30,0.5D0, - & 'TAU- ', 15, 0,-1,1.7771D0,2.916D-13,0.5D0, - & 'NU_TAU ', 16, 0, 0,0.0000D0,1.000D+30,0.5D0, - & 'E+ ', -11, 0,+1,5.11D-04,1.000D+30,0.5D0, - & 'NU_EBAR ', -12, 0, 0,0.0000D0,1.000D+30,0.5D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=129,144)/ - & 'MU+ ', -13, 0,+1,.10566D0,2.197D-06,0.5D0, - & 'NU_MUBAR', -14, 0, 0,0.0000D0,1.000D+30,0.5D0, - & 'TAU+ ', -15, 0,+1,1.7771D0,2.916D-13,0.5D0, - & 'NU_TAUBR', -16, 0, 0,0.0000D0,1.000D+30,0.5D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'D+ ', 411, 41,+1,1.8693D0,1.057D-12,0.0D0, - & 'D*+ ', 413, 41,+1,2.0100D0,0.000D+00,1.0D0, - & 'DH_1+ ', 20413, 41,+1,2.4270D0,0.000D+00,1.0D0, - & 'D*_2+ ', 415, 41,+1,2.4590D0,0.000D+00,2.0D0, - & 'D0 ', 421, 42, 0,1.8646D0,4.150D-13,0.0D0, - & 'D*0 ', 423, 42, 0,2.0067D0,0.000D+00,1.0D0, - & 'DH_10 ', 20423, 42, 0,2.4222D0,0.000D+00,1.0D0, - & 'D*_20 ', 425, 42, 0,2.4589D0,0.000D+00,2.0D0, - & 'D_S+ ', 431, 43,+1,1.9685D0,4.670D-13,0.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=145,160)/ - & 'D*_S+ ', 433, 43,+1,2.1124D0,0.000D+00,1.0D0, - & 'DH_S1+ ', 20433, 43,+1,2.5354D0,0.000D+00,1.0D0, - & 'D*_S2+ ', 435, 43,+1,2.5735D0,0.000D+00,2.0D0, - & 'SGMA_C++', 4222, 224,+2,2.4528D0,0.000D+00,0.5D0, - & 'SGM*_C++', 4224, 224,+2,2.5194D0,0.000D+00,1.5D0, - & 'LMBDA_C+', 4122, 124,+1,2.2849D0,2.060D-13,0.5D0, - & 'SIGMA_C+', 4212, 124,+1,2.4536D0,0.000D+00,0.5D0, - & 'SGMA*_C+', 4214, 124,+1,2.5185D0,0.000D+00,1.5D0, - & 'SIGMA_C0', 4112, 114, 0,2.4522D0,0.000D+00,0.5D0, - & 'SGMA*_C0', 4114, 114, 0,2.5175D0,0.000D+00,1.5D0, - & 'XI_C+ ', 4232, 234,+1,2.4656D0,3.500D-13,0.5D0, - & 'XIP_C+ ', 4322, 234,+1,2.5750D0,0.000D+00,0.5D0, - & 'XI*_C+ ', 4324, 234,+1,2.6446D0,0.000D+00,1.5D0, - & 'XI_C0 ', 4132, 134, 0,2.4703D0,9.800D-14,0.5D0, - & 'XIP_C0 ', 4312, 134, 0,2.5800D0,0.000D+00,0.5D0, - & 'XI*_C0 ', 4314, 134, 0,2.6438D0,0.000D+00,1.5D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=161,176)/ - & 'OMEGA_C0', 4332, 334, 0,2.7040D0,6.400D-14,0.5D0, - & 'OMGA*_C0', 4334, 334, 0,2.7300D0,0.000D+00,1.5D0, - & 'ETA_C ', 441, 44, 0,2.9798D0,0.000D+00,0.0D0, - & 'JPSI ', 443, 44, 0,3.0969D0,0.000D+00,1.0D0, - & 'CHI_C1 ', 10441, 44, 0,3.4173D0,0.000D+00,0.0D0, - & 'PSI2S ', 100443, 44, 0,3.6860D0,0.000D+00,1.0D0, - & 'PSID ', 30443, 44, 0,3.7699D0,0.000D+00,1.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'D- ', -411, 14,-1,1.8693D0,1.057D-12,0.0D0, - & 'D*- ', -413, 14,-1,2.0100D0,0.000D+00,1.0D0, - & 'DH_1- ', -20413, 14,-1,2.4270D0,0.000D+00,1.0D0, - & 'D*_2- ', -415, 14,-1,2.4590D0,0.000D+00,2.0D0, - & 'DBAR0 ', -421, 24, 0,1.8646D0,4.140D-13,0.0D0, - & 'D*BAR0 ', -423, 24, 0,2.0067D0,0.000D+00,1.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=177,192)/ - & 'DH_1BAR0', -20423, 24, 0,2.4222D0,0.000D+00,1.0D0, - & 'D*_2BAR0', -425, 24, 0,2.4589D0,0.000D+00,2.0D0, - & 'D_S- ', -431, 34,-1,1.9685D0,4.670D-13,0.0D0, - & 'D*_S- ', -433, 34,-1,2.1124D0,0.000D+00,1.0D0, - & 'DH_S1- ', -20433, 34,-1,2.5354D0,0.000D+00,1.0D0, - & 'D*_S2- ', -435, 34,-1,2.5735D0,0.000D+00,2.0D0, - & 'SGMA_C--', -4222,-224,-2,2.4528D0,0.000D+00,0.5D0, - & 'SGM*_C--', -4224,-224,-2,2.5194D0,0.000D+00,1.5D0, - & 'LMBDA_C-', -4122,-124,-1,2.2849D0,2.060D-13,0.5D0, - & 'SIGMA_C-', -4212,-124,-1,2.4536D0,0.000D+00,0.5D0, - & 'SGMA*_C-', -4214,-124,-1,2.5185D0,0.000D+00,1.5D0, - & 'SGM_CBR0', -4112,-114, 0,2.4522D0,0.000D+00,0.5D0, - & 'SG*_CBR0', -4114,-114, 0,2.5175D0,0.000D+00,1.5D0, - & 'XI_C- ', -4232,-234,-1,2.4656D0,3.500D-13,0.5D0, - & 'XIP_C- ', -4322,-234,-1,2.5750D0,0.000D+00,0.5D0, - & 'XI*_C- ', -4324,-234,-1,2.6446D0,0.000D+00,1.5D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=193,208)/ - & 'XI_CBAR0', -4132,-134, 0,2.4703D0,9.800D-14,0.5D0, - & 'XIP_CBR0', -4312,-134, 0,2.5800D0,0.000D+00,0.5D0, - & 'XI*_CBR0', -4314,-134, 0,2.6438D0,0.000D+00,1.5D0, - & 'OMG_CBR0', -4332,-334, 0,2.7040D0,6.400D-14,0.5D0, - & 'OM*_CBR0', -4334,-334, 0,2.7300D0,0.000D+00,1.5D0, - & 'W+ ', 24, 0,+1,80.420D0,0.000D+00,1.0D0, - & 'W- ', -24, 0,-1,80.420D0,0.000D+00,1.0D0, - & 'Z0/GAMA*', 23, 0, 0,91.188D0,0.000D+00,1.0D0, - & 'HIGGS ', 25, 0, 0,115.00D0,0.000D+00,0.0D0, - & 'Z0P ', 32, 0, 0,500.00D0,0.000D+00,1.0D0, - & 'HIGGSL0 ', 26, 0, 0,0.0000D0,1.000D+30,0.0D0, - & 'HIGGSH0 ', 35, 0, 0,0.0000D0,1.000D+30,0.0D0, - & 'HIGGSA0 ', 36, 0, 0,0.0000D0,1.000D+30,0.0D0, - & 'HIGGS+ ', 37, 0,+1,0.0000D0,1.000D+30,0.0D0, - & 'HIGGS- ', -37, 0,-1,0.0000D0,1.000D+30,0.0D0, - & 'GRAVITON', 39, 0, 0,0.0000D0,1.000D+30,2.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=209,224)/ - & 'VQRK ', 7, 0,-1,200.00D0,0.000D+00,0.5D0, - & 'AQRK ', 8, 0,+2,400.00D0,0.000D+00,0.5D0, - & 'HQRK ', 7, 0,-1,400.00D0,0.000D+00,0.5D0, - & 'HPQK ', 8, 0,+2,600.00D0,0.000D+00,0.5D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'VBAR ', -7, 0,+1,200.00D0,0.000D+00,0.5D0, - & 'ABAR ', -8, 0,-2,400.00D0,0.000D+00,0.5D0, - & 'HBAR ', -7, 0,+1,400.00D0,0.000D+00,0.5D0, - & 'HPBR ', -8, 0,-2,600.00D0,0.000D+00,0.5D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00,0.0D0, - & 'B_DBAR0 ', -511, 51, 0,5.2792D0,1.614D-12,0.0D0, - & 'B- ', -521, 52,-1,5.2789D0,1.652D-12,0.0D0, - & 'B_SBAR0 ', -531, 53, 0,5.3693D0,1.540D-12,0.0D0, - & 'SIGMA_B+', 5222, 225,+1,5.8200D0,1.070D-12,0.5D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=225,240)/ - & 'LMBDA_B0', 5122, 125, 0,5.6240D0,1.070D-12,0.5D0, - & 'SIGMA_B-', 5112, 115,-1,5.8200D0,1.070D-12,0.5D0, - & 'XI_B0 ', 5232, 235, 0,5.8000D0,1.070D-12,0.5D0, - & 'XI_B- ', 5132, 135,-1,5.8000D0,1.070D-12,0.5D0, - & 'OMEGA_B-', 5332, 335,-1,6.0400D0,1.070D-12,0.5D0, - & 'B_C- ', -541, 54,-1,6.2500D0,1.000D-12,0.5D0, - & 'UPSLON1S', 553, 55, 0,9.4604D0,0.000D+00,1.0D0, - & 'T_B- ', -651, 56,-1,0.0000D0,0.000D+00,0.0D0, - & 'T+ ', 611, 61,+1,0.0000D0,0.000D+00,0.0D0, - & 'T0 ', 621, 62, 0,0.0000D0,0.000D+00,0.0D0, - & 'T_S+ ', 631, 63,+1,0.0000D0,0.000D+00,0.0D0, - & 'SGMA_T++', 6222, 226,+2,0.0000D0,0.000D+00,0.5D0, - & 'LMBDA_T0', 6122, 126,+1,0.0000D0,0.000D+00,0.5D0, - & 'SIGMA_T0', 6112, 116, 0,0.0000D0,0.000D+00,0.5D0, - & 'XI_T+ ', 6232, 236,+1,0.0000D0,0.000D+00,0.5D0, - & 'XI_T0 ', 6132, 136, 0,0.0000D0,0.000D+00,0.5D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=241,256)/ - & 'OMEGA_T0', 6332, 336, 0,0.0000D0,0.000D+00,0.5D0, - & 'T_C0 ', 641, 64, 0,0.0000D0,0.000D+00,0.0D0, - & 'T_B+ ', 651, 65,+1,0.0000D0,0.000D+00,0.0D0, - & 'TOPONIUM', 663, 66, 0,0.0000D0,0.000D+00,1.0D0, - & 'B_D0 ', 511, 15, 0,5.2792D0,1.614D-12,0.0D0, - & 'B+ ', 521, 25,+1,5.2789D0,1.652D-12,0.0D0, - & 'B_S0 ', 531, 35, 0,5.3693D0,1.540D-12,0.0D0, - & 'SGM_BBR-', -5222,-225,-1,5.8200D0,1.070D-12,0.5D0, - & 'LMD_BBR0', -5122,-125, 0,5.6240D0,1.070D-12,0.5D0, - & 'SGM_BBR+', -5112,-115,+1,5.8200D0,1.070D-12,0.5D0, - & 'XI_BBAR0', -5232,-235, 0,5.8000D0,1.070D-12,0.5D0, - & 'XI_B+ ', -5132,-135,+1,5.8000D0,1.070D-12,0.5D0, - & 'OMG_BBR+', -5332,-335,+1,6.0400D0,1.070D-12,0.5D0, - & 'B_C+ ', 541, 45,+1,6.2500D0,1.000D-12,0.5D0, - & 'T- ', -611, 16,-1,0.0000D0,0.000D+00,0.0D0, - & 'TBAR0 ', -621, 26, 0,0.0000D0,0.000D+00,0.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=257,272)/ - & 'T_S- ', -631, 36,-1,0.0000D0,0.000D+00,0.0D0, - & 'SGMA_T--', -6222,-226,-2,0.0000D0,0.000D+00,0.5D0, - & 'LAMDA_T-', -6122,-126,-1,0.0000D0,0.000D+00,0.5D0, - & 'SGM_TBR0', -6112,-116, 0,0.0000D0,0.000D+00,0.5D0, - & 'XI_T- ', -6232,-236,-1,0.0000D0,0.000D+00,0.5D0, - & 'XI_TBAR0', -6132,-136, 0,0.0000D0,0.000D+00,0.5D0, - & 'OMG_TBR0', -6332,-336, 0,0.0000D0,0.000D+00,0.5D0, - & 'T_CBAR0 ', -641, 46, 0,0.0000D0,0.000D+00,0.0D0, - & 'B*BAR0 ', -513, 51, 0,5.3249D0,0.000D+00,1.0D0, - & 'B*- ', -523, 52,-1,5.3249D0,0.000D+00,1.0D0, - & 'B*_SBAR0', -533, 53, 0,5.4163D0,0.000D+00,1.0D0, - & 'BH_1BAR0', -20513, 51, 0,5.7600D0,0.000D+00,1.0D0, - & 'BH_1- ', -20523, 52,-1,5.7600D0,0.000D+00,1.0D0, - & 'BH_S1BR0', -20533, 53, 0,5.8550D0,0.000D+00,1.0D0, - & 'B*_2BAR0', -515, 51, 0,5.7700D0,0.000D+00,2.0D0, - & 'B*_2- ', -525, 52,-1,5.7700D0,0.000D+00,2.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=273,288)/ - & 'B*_S2BR0', -535, 53, 0,5.8650D0,0.000D+00,2.0D0, - & 'B*0 ', 513, 15, 0,5.3249D0,0.000D+00,1.0D0, - & 'B*+ ', 523, 25,+1,5.3249D0,0.000D+00,1.0D0, - & 'B*_S0 ', 533, 35, 0,5.4163D0,0.000D+00,1.0D0, - & 'BH_10 ', 20513, 15, 0,5.7600D0,0.000D+00,1.0D0, - & 'BH_1+ ', 20523, 25,+1,5.7600D0,0.000D+00,1.0D0, - & 'BH_S10 ', 20533, 35, 0,5.8550D0,0.000D+00,1.0D0, - & 'B*_20 ', 515, 15, 0,5.7700D0,0.000D+00,2.0D0, - & 'B*_2+ ', 525, 25,+1,5.7700D0,0.000D+00,2.0D0, - & 'B*_S20 ', 535, 35, 0,5.8650D0,0.000D+00,2.0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00, 0D0, - & ' ', 0, 0, 0,0.0000D0,0.000D+00, 0D0, - & 'B_10 ', 10113, 11, 0,1.2295D0,0.000D+00,1.0D0, - & 'B_1+ ', 10213, 21,+1,1.2295D0,0.000D+00,1.0D0, - & 'B_1- ', -10213, 12,-1,1.2295D0,0.000D+00,1.0D0, - & 'HL_10 ', 10223, 33, 0,1.1700D0,0.000D+00,1.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=289,304)/ - & 'HH_10 ', 10333, 33, 0,1.3950D0,0.000D+00,1.0D0, - & 'A_00 ', 9000111, 11, 0,.99600D0,0.000D+00,0.0D0, - & 'A_0+ ', 9000211, 21,+1,.99600D0,0.000D+00,0.0D0, - & 'A_0- ',-9000211, 12,-1,.99600D0,0.000D+00,0.0D0, - & 'F0P0 ', 9010221, 33, 0,.99600D0,0.000D+00,0.0D0, - & 'FH_00 ', 10221, 33, 0,1.3500D0,0.000D+00,0.0D0, - & 'B*_C+ ', 543, 45,+1,6.2950D0,0.000D+00,1.0D0, - & 'B*_C- ', -543, 54,-1,6.2950D0,0.000D+00,1.0D0, - & 'BH_C1+ ', 20543, 45,+1,6.7300D0,0.000D+00,1.0D0, - & 'BH_C1- ', -20543, 54,-1,6.7300D0,0.000D+00,1.0D0, - & 'B*_C2+ ', 545, 45,+1,6.7400D0,0.000D+00,2.0D0, - & 'B*_C2- ', -545, 54,-1,6.7400D0,0.000D+00,2.0D0, - & 'H_C ', 10443, 44, 0,3.5261D0,0.000D+00,1.0D0, - & 'CHI_C0 ', 20443, 44, 0,3.5105D0,0.000D+00,0.0D0, - & 'CHI_C2 ', 445, 44, 0,3.5562D0,0.000D+00,2.0D0, - & 'ETA_B ', 551, 55, 0,9.0000D0,0.000D+00,0.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=305,320)/ - & 'H_B ', 10553, 55, 0,9.8880D0,0.000D+00,1.0D0, - & 'CHI_B0 ', 10551, 55, 0,9.8598D0,0.000D+00,0.0D0, - & 'CHI_B1 ', 20553, 55, 0,9.8919D0,0.000D+00,1.0D0, - & 'CHI_B2 ', 555, 55, 0,9.9132D0,0.000D+00,2.0D0, - & 'KL_10 ', 10313, 13, 0,1.5700D0,0.000D+00,1.0D0, - & 'KL_1+ ', 10323, 23,+1,1.5700D0,0.000D+00,1.0D0, - & 'KL_1BAR0', -10313, 31, 0,1.5700D0,0.000D+00,1.0D0, - & 'KL_1- ', -10323, 32,-1,1.5700D0,0.000D+00,1.0D0, - & 'DL_1+ ', 10413, 41,+1,2.4270D0,0.000D+00,1.0D0, - & 'DL_10 ', 10423, 42, 0,2.4222D0,0.000D+00,1.0D0, - & 'DL_S1+ ', 10433, 43,+1,2.5354D0,0.000D+00,1.0D0, - & 'DL_1- ', -10413, 14,-1,2.4270D0,0.000D+00,1.0D0, - & 'DL_1BAR0', -10423, 24, 0,2.4222D0,0.000D+00,1.0D0, - & 'DL_S1- ', -10433, 34,-1,2.5354D0,0.000D+00,1.0D0, - & 'BL_10 ', 10513, 15, 0,5.7600D0,0.000D+00,1.0D0, - & 'BL_1+ ', 10523, 25,+1,5.7600D0,0.000D+00,1.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=321,336)/ - & 'BL_S10 ', 10533, 35, 0,5.8530D0,0.000D+00,1.0D0, - & 'BL_C1+ ', 10543, 45,+1,6.7300D0,0.000D+00,1.0D0, - & 'BL_1BAR0', -10513, 51, 0,5.7600D0,0.000D+00,1.0D0, - & 'BL_1- ', -10523, 52,-1,5.7600D0,0.000D+00,1.0D0, - & 'BL_S1BR0', -10533, 53, 0,5.8530D0,0.000D+00,1.0D0, - & 'BL_C1- ', -10543, 54,-1,6.7300D0,0.000D+00,1.0D0, - & 'K*_0+ ', 10321, 23,+1,1.4290D0,0.000D+00,0.0D0, - & 'K*_00 ', 10311, 13, 0,1.4290D0,0.000D+00,0.0D0, - & 'K*_0BAR0', -10311, 31, 0,1.4290D0,0.000D+00,0.0D0, - & 'K*_0- ', -10321, 32,-1,1.4290D0,0.000D+00,0.0D0, - & 'D*_0+ ', 10411, 41,+1,2.4230D0,0.000D+00,0.0D0, - & 'D*_00 ', 10421, 42, 0,2.4230D0,0.000D+00,0.0D0, - & 'D*_S0+ ', 10431, 43,+1,2.5250D0,0.000D+00,0.0D0, - & 'D*_0- ', -10411, 14,-1,2.4230D0,0.000D+00,0.0D0, - & 'D*_0BAR0', -10421, 24, 0,2.4230D0,0.000D+00,0.0D0, - & 'D*_S0- ', -10431, 34,-1,2.5250D0,0.000D+00,0.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=337,352)/ - & 'B*_00 ', 10511, 15, 0,5.7600D0,0.000D+00,0.0D0, - & 'B*_0+ ', 10521, 25,+1,5.7600D0,0.000D+00,0.0D0, - & 'B*_S00 ', 10531, 35, 0,5.8550D0,0.000D+00,0.0D0, - & 'B*_C0+ ', 10541, 45,+1,6.7300D0,0.000D+00,0.0D0, - & 'B*_0BAR0', -10511, 51, 0,5.7600D0,0.000D+00,0.0D0, - & 'B*_0- ', -10521, 52,-1,5.7600D0,0.000D+00,0.0D0, - & 'B*_S0BR0', -10531, 53, 0,5.8550D0,0.000D+00,0.0D0, - & 'B*_C0- ', -10541, 54,-1,6.7300D0,0.000D+00,0.0D0, - & 'SGMA*_B-', 5114, 115,-1,5.8400D0,0.000D+00,1.5D0, - & 'SIGMA_B0', 5212, 125, 0,5.8200D0,0.000D+00,0.5D0, - & 'SGMA*_B0', 5214, 125, 0,5.8400D0,0.000D+00,1.5D0, - & 'SGMA*_B+', 5224, 225,+1,5.8400D0,0.000D+00,1.5D0, - & 'XIP_B0 ', 5322, 235, 0,5.9450D0,0.000D+00,0.5D0, - & 'XI*_B0 ', 5324, 235, 0,5.9450D0,0.000D+00,1.5D0, - & 'XIP_B- ', 5312, 135,-1,5.9450D0,0.000D+00,0.5D0, - & 'XI*_B- ', 5314, 135,-1,5.9450D0,0.000D+00,1.5D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=353,368)/ - & '0MGA*_B-', 5334, 335,-1,6.0600D0,0.000D+00,1.5D0, - & 'SG*_BBR+', -5114,-115,+1,5.8400D0,0.000D+00,1.5D0, - & 'SGM_BBR0', -5212,-125, 0,5.8200D0,0.000D+00,0.5D0, - & 'SG*_BBR0', -5214,-125, 0,5.8400D0,0.000D+00,1.5D0, - & 'SG*_BBR-', -5224,-225,-1,5.8400D0,0.000D+00,1.5D0, - & 'XIP_BBR0', -5322,-235, 0,5.9450D0,0.000D+00,0.5D0, - & 'XI*_BBR0', -5324,-235, 0,5.9450D0,0.000D+00,1.5D0, - & 'XIP_B+ ', -5312,-135,+1,5.9450D0,0.000D+00,0.5D0, - & 'XI*_B+ ', -5314,-135,+1,5.9450D0,0.000D+00,1.5D0, - & '0MGA*_B+', -5334,-335,+1,6.0600D0,0.000D+00,1.5D0, - & 'KDL_2+ ', 10325, 23,+1,1.7730D0,0.000D+00,2.0D0, - & 'KDL_20 ', 10315, 13, 0,1.7730D0,0.000D+00,2.0D0, - & 'KDL_2BR0', -10315, 31, 0,1.7730D0,0.000D+00,2.0D0, - & 'KDL_2- ', -10325, 32,-1,1.7730D0,0.000D+00,2.0D0, - & 'KD*+ ', 30323, 23,+1,1.7170D0,0.000D+00,1.0D0, - & 'KD*0 ', 30313, 13, 0,1.7170D0,0.000D+00,1.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=369,384)/ - & 'KD*BAR0 ', -30313, 31, 0,1.7170D0,0.000D+00,1.0D0, - & 'KD*- ', -30323, 32,-1,1.7170D0,0.000D+00,1.0D0, - & 'KDH_2+ ', 20325, 23,+1,1.8160D0,0.000D+00,2.0D0, - & 'KDH_20 ', 20315, 13, 0,1.8160D0,0.000D+00,2.0D0, - & 'KDH_2BR0', -20315, 31, 0,1.8160D0,0.000D+00,2.0D0, - & 'KDH_2- ', -20325, 32,-1,1.8160D0,0.000D+00,2.0D0, - & 'KD_3+ ', 327, 23,+1,1.7730D0,0.000D+00,3.0D0, - & 'KD_30 ', 317, 13, 0,1.7730D0,0.000D+00,3.0D0, - & 'KD_3BAR0', -317, 31, 0,1.7730D0,0.000D+00,3.0D0, - & 'KD_3- ', -327, 32,-1,1.7730D0,0.000D+00,3.0D0, - & 'PI_2+ ', 10215, 21,+1,1.6700D0,0.000D+00,2.0D0, - & 'PI_20 ', 10115, 11, 0,1.6700D0,0.000D+00,2.0D0, - & 'PI_2- ', -10215, 12,-1,1.6700D0,0.000D+00,2.0D0, - & 'RHOD+ ', 30213, 21,+1,1.7000D0,0.000D+00,1.0D0, - & 'RHOD0 ', 30113, 11, 0,1.7000D0,0.000D+00,1.0D0, - & 'RHOD- ', -30213, 12,-1,1.7000D0,0.000D+00,1.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=385,400)/ - & 'RHO_3+ ', 217, 21,+1,1.6910D0,0.000D+00,3.0D0, - & 'RHO_30 ', 117, 11, 0,1.6910D0,0.000D+00,3.0D0, - & 'RHO_3- ', -217, 12,-1,1.6910D0,0.000D+00,3.0D0, - & 'UPSLON2S', 100553, 55, 0,10.023D0,0.000D+00,1.0D0, - & 'CHI2P_B0', 110551, 55, 0,10.232D0,0.000D+00,0.0D0, - & 'CHI2P_B1', 120553, 55, 0,10.255D0,0.000D+00,1.0D0, - & 'CHI2P_B2', 100555, 55, 0,10.269D0,0.000D+00,2.0D0, - & 'UPSLON3S', 200553, 55, 0,10.355D0,0.000D+00,1.0D0, - & 'UPSLON4S', 300553, 55, 0,10.580D0,0.000D+00,1.0D0, - & ' ', 0, 0, 0,0.0 D0, 0.0D+00, 0D0, - & 'OMEGA_3 ', 227, 33, 0,1.6670D0,0.000D+00,3.0D0, - & 'PHI_3 ', 337, 33, 0,1.8540D0,0.000D+00,3.0D0, - & 'ETA_2(L)', 10225, 33, 0,1.6320D0,0.000D+00,2.0D0, - & 'ETA_2(H)', 10335, 33, 0,1.8540D0,0.000D+00,2.0D0, - & 'OMEGA(H)', 30223, 33, 0,1.6490D0,0.000D+00,1.0D0, - & ' ', 0, 0, 0,0.0 D0,0.0D+00 , 0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=401,416)/ - & 'SSDL ', 1000001, 0,-1,0.00D0,1.000D+30,0.0D0, - & 'SSUL ', 1000002, 0,+2,0.00D0,1.000D+30,0.0D0, - & 'SSSL ', 1000003, 0,-1,0.00D0,1.000D+30,0.0D0, - & 'SSCL ', 1000004, 0,+2,0.00D0,1.000D+30,0.0D0, - & 'SSB1 ', 1000005, 0,-1,0.00D0,1.000D+30,0.0D0, - & 'SST1 ', 1000006, 0,+2,0.00D0,1.000D+30,0.0D0, - & 'SSDLBR ',-1000001, 0,+1,0.00D0,1.000D+30,0.0D0, - & 'SSULBR ',-1000002, 0,-2,0.00D0,1.000D+30,0.0D0, - & 'SSSLBR ',-1000003, 0,+1,0.00D0,1.000D+30,0.0D0, - & 'SSCLBR ',-1000004, 0,-2,0.00D0,1.000D+30,0.0D0, - & 'SSB1BR ',-1000005, 0,+1,0.00D0,1.000D+30,0.0D0, - & 'SST1BR ',-1000006, 0,-2,0.00D0,1.000D+30,0.0D0, - & 'SSDR ', 2000001, 0,-1,0.00D0,1.000D+30,0.0D0, - & 'SSUR ', 2000002, 0,+2,0.00D0,1.000D+30,0.0D0, - & 'SSSR ', 2000003, 0,-1,0.00D0,1.000D+30,0.0D0, - & 'SSCR ', 2000004, 0,+2,0.00D0,1.000D+30,0.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=417,432)/ - & 'SSB2 ', 2000005, 0,-1,0.00D0,1.000D+30,0.0D0, - & 'SST2 ', 2000006, 0,+2,0.00D0,1.000D+30,0.0D0, - & 'SSDRBR ',-2000001, 0,+1,0.00D0,1.000D+30,0.0D0, - & 'SSURBR ',-2000002, 0,-2,0.00D0,1.000D+30,0.0D0, - & 'SSSRBR ',-2000003, 0,+1,0.00D0,1.000D+30,0.0D0, - & 'SSCRBR ',-2000004, 0,-2,0.00D0,1.000D+30,0.0D0, - & 'SSB2BR ',-2000005, 0,+1,0.00D0,1.000D+30,0.0D0, - & 'SST2BR ',-2000006, 0,-2,0.00D0,1.000D+30,0.0D0, - & 'SSEL- ', 1000011, 0,-1,0.00D0,1.000D+30,0.0D0, - & 'SSNUEL ', 1000012, 0, 0,0.00D0,1.000D+30,0.0D0, - & 'SSMUL- ', 1000013, 0,-1,0.00D0,1.000D+30,0.0D0, - & 'SSNUMUL ', 1000014, 0, 0,0.00D0,1.000D+30,0.0D0, - & 'SSTAU1- ', 1000015, 0,-1,0.00D0,1.000D+30,0.0D0, - & 'SSNUTL ', 1000016, 0, 0,0.00D0,1.000D+30,0.0D0, - & 'SSEL+ ',-1000011, 0,+1,0.00D0,1.000D+30,0.0D0, - & 'SSNUELBR',-1000012, 0, 0,0.00D0,1.000D+30,0.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=433,448)/ - & 'SSMUL+ ',-1000013, 0,+1,0.00D0,1.000D+30,0.0D0, - & 'SSNUMLBR',-1000014, 0, 0,0.00D0,1.000D+30,0.0D0, - & 'SSTAU1+ ',-1000015, 0,+1,0.00D0,1.000D+30,0.0D0, - & 'SSNUTLBR',-1000016, 0, 0,0.00D0,1.000D+30,0.0D0, - & 'SSER- ', 2000011, 0,-1,0.00D0,1.000D+30,0.0D0, - & 'SSNUER ', 2000012, 0, 0,0.00D0,1.000D+30,0.0D0, - & 'SSMUR- ', 2000013, 0,-1,0.00D0,1.000D+30,0.0D0, - & 'SSNUMUR ', 2000014, 0, 0,0.00D0,1.000D+30,0.0D0, - & 'SSTAU2- ', 2000015, 0,-1,0.00D0,1.000D+30,0.0D0, - & 'SSNUTR ', 2000016, 0, 0,0.00D0,1.000D+30,0.0D0, - & 'SSER+ ',-2000011, 0,+1,0.00D0,1.000D+30,0.0D0, - & 'SSNUERBR',-2000012, 0, 0,0.00D0,1.000D+30,0.0D0, - & 'SSMUR+ ',-2000013, 0,+1,0.00D0,1.000D+30,0.0D0, - & 'SSNUMRBR',-2000014, 0, 0,0.00D0,1.000D+30,0.0D0, - & 'SSTAU2+ ',-2000015, 0,+1,0.00D0,1.000D+30,0.0D0, - & 'SSNUTRBR',-2000016, 0, 0,0.00D0,1.000D+30,0.0D0/ - DATA (RNAME(I),IDPDG(I),IFLAV(I),ICHRG(I),RMASS(I),RLTIM(I), - & RSPIN(I),I=449,NLAST)/ - & 'GLUINO ', 1000021, 0, 0,0.00D0,1.000D+30,0.5D0, - & 'NTLINO1 ', 1000022, 0, 0,0.00D0,1.000D+30,0.5D0, - & 'NTLINO2 ', 1000023, 0, 0,0.00D0,1.000D+30,0.5D0, - & 'NTLINO3 ', 1000025, 0, 0,0.00D0,1.000D+30,0.5D0, - & 'NTLINO4 ', 1000035, 0, 0,0.00D0,1.000D+30,0.5D0, - & 'CHGINO1+', 1000024, 0,+1,0.00D0,1.000D+30,0.5D0, - & 'CHGINO2+', 1000037, 0,+1,0.00D0,1.000D+30,0.5D0, - & 'CHGINO1-',-1000024, 0,-1,0.00D0,1.000D+30,0.5D0, - & 'CHGINO2-',-1000037, 0,-1,0.00D0,1.000D+30,0.5D0, - & 'GRAVTINO', 1000039, 0, 0,0.00D0,1.000D+30,1.5D0/ -C - DATA QORQQB/.FALSE., - & 6*.TRUE.,6*.FALSE.,96*.FALSE.,6*.FALSE.,6*.TRUE.,NREST*.FALSE./ - DATA QBORQQ/.FALSE., - & 6*.FALSE.,6*.TRUE.,96*.FALSE.,6*.TRUE.,6*.FALSE.,NREST*.FALSE./ -C -C In the character strings use an ampersand to represent a backslash -C to avoid compiler problems with the C escape character - DATA ((TXNAME(J,I),J=1,2),I=0,8)/ - & ' ', - & ' ', - & ' d', - & ' d', - & ' u', - & ' u', - & ' s', - & ' s', - & ' c', - & ' c', - & ' b', - & ' b', - & ' t', - & ' t', - & ' $&bar{&rm d}$', - & ' -d', - & ' $&bar{&rm u}$', - & ' -u'/ - DATA ((TXNAME(J,I),J=1,2),I=9,16)/ - & ' $&bar{&rm s}$', - & ' -s', - & ' $&bar{&rm c}$', - & ' -c', - & ' $&bar{&rm b}$', - & ' -b', - & ' $&bar{&rm t}$', - & ' -t', - & ' $g$', - & ' g', - & ' CoM', - & ' CoM', - & ' Hard', - & ' Hard', - & ' Soft', - & ' Soft'/ - DATA ((TXNAME(J,I),J=1,2),I=17,24)/ - & ' Cone', - & ' Cone', - & ' Heavy', - & ' Heavy', - & ' Cluster', - & ' Cluster', - & ' $&star&star&star&star$', - & ' ****', - & ' $&pi^0$', - & ' pi0', - & ' $&eta$', - & ' eta', - & ' $&rho^0$', - & ' rho0', - & ' $&omega$', - & ' omega'/ - DATA ((TXNAME(J,I),J=1,2),I=25,32)/ - & ' $&eta^&prime$', - & ' eta''', - & ' $f_2$', - & ' f2', - & ' $a^0_1$', - & ' a10', - & ' $f_1(L)$', - & ' f1(L)', - & ' $a^0_2$', - & ' a20', - & ' $&pi^-$', - & ' pi-', - & ' $&rho^-$', - & ' rho-', - & ' $a^-_1$', - & ' a1-'/ - DATA ((TXNAME(J,I),J=1,2),I=33,40)/ - & ' $a^-_2$', - & ' a2-', - & ' K$^-$', - & ' K-', - & ' K$^{&star-}$', - & ' K*-', - & ' K$_1(H)^-$', - & ' K1(H)-', - & ' K$^{&star-}_2$', - & ' K2*-', - & ' $&pi^+$', - & ' pi+', - & ' $&rho^+$', - & ' rho+', - & ' $a^+_1$', - & ' a1+'/ - DATA ((TXNAME(J,I),J=1,2),I=41,48)/ - & ' $a^+_2$', - & ' a2+', - & ' $&overline{&rm K}^0$', - & ' -K0', - & ' $&overline{&rm K}^{&star0}$', - & ' -K*0', - & ' $&overline{&rm K}_1(H)^0$', - & ' -K1(H)0', - & ' $&overline{&rm K}^{&star0}_2$', - & ' -K2*0', - & ' K$^+$', - & ' K+', - & ' K$^{&star+}$', - & ' K*+', - & ' K$_1(H)^+$', - & ' K1(H)+'/ - DATA ((TXNAME(J,I),J=1,2),I=49,56)/ - & ' K$^{&star+}_2$', - & ' K2(H)*+', - & ' K$^0$', - & ' K0', - & ' K$^{&star0}$', - & ' K*-', - & ' K$_1(H)^0$', - & ' K1(H)0', - & ' K$^{&star0}_2$', - & ' K2*0', - & ' ', - & ' ', - & ' ', - & ' ', - & ' $&phi$', - & ' phi'/ - DATA ((TXNAME(J,I),J=1,2),I=57,64)/ - & ' $f_1(1420)$', - & ' f1(1420)', - & ' $f^&prime_2$', - & ' f''2', - & ' $&gamma$', - & ' gamma', - & ' K$^0_{&rm S}$', - & ' KS0', - & ' K$^0_{&rm L}$', - & ' KL0', - & ' $a_0(1450)^0$', - & ' a0(1450)0', - & ' $a_0(1450)^+$', - & ' a0(1450)+', - & ' $a_0(1450)^-$', - & ' a0(1450)-'/ - DATA ((TXNAME(J,I),J=1,2),I=65,72)/ - & ' ', - & ' ', - & ' ', - & ' ', - & ' ', - & ' ', - & ' ', - & ' ', - & ' ', - & ' ', - & ' ', - & ' ', - & ' $&gamma$-remnant', - & ' gamma-remnant', - & ' $N$-remnant', - & ' N-remnant'/ - DATA ((TXNAME(J,I),J=1,2),I=73,80)/ - & ' p', - & ' p', - & ' $&Delta^+$', - & ' Delta+', - & ' n', - & ' n', - & ' $&Delta^0$', - & ' Delta0', - & ' $&Delta^-$', - & ' Delta-', - & ' $&Lambda$', - & ' Lambda', - & ' $&Sigma^0$', - & ' Sigma0', - & ' $&Sigma^{&star0}$', - & ' Sigma*0'/ - DATA ((TXNAME(J,I),J=1,2),I=81,88)/ - & ' $&Sigma^-$', - & ' Sigma-', - & ' $&Sigma^{&star-}$', - & ' Sigma*-', - & ' $&Xi^-$', - & ' Xi-', - & ' $&Xi^{&star-}$', - & ' Xi*-', - & ' $&Delta^{++}$', - & ' Delta++', - & ' $&Sigma^+$', - & ' Sigma+', - & ' $&Sigma^{&star+}$', - & ' Sigma*+', - & ' $&Xi^0$', - & ' Xi0'/ - DATA ((TXNAME(J,I),J=1,2),I=89,96)/ - & ' $&Xi^{&star0}$', - & ' Xi*0', - & ' $&Omega^-$', - & ' Omega-', - & ' $&bar{&rm p}$', - & ' -p', - & ' $&overline{&Delta}^-$', - & ' -Delta-', - & ' $&bar{&rm n}$', - & ' -n', - & ' $&overline{&Delta}^0$', - & ' -Delta0', - & ' $&overline{&Delta}^+$', - & ' -Delta+', - & ' $&overline{&Lambda}$', - & ' -Lambda'/ - DATA ((TXNAME(J,I),J=1,2),I=97,104)/ - & ' $&overline{&Sigma}^0$', - & ' -Sigma0', - & ' $&overline{&Sigma}^{&star0}$', - & ' -Sigma*0', - & ' $&overline{&Sigma}^+$', - & ' -Sigma+', - & ' $&overline{&Sigma}^{&star+}$', - & ' -Sigma*+', - & ' $&overline{&Xi}^+$', - & ' -Xi+', - & ' $&overline{&Xi}^{&star+}$', - & ' -Xi*+', - & ' $&overline{&Delta}^{--}$', - & ' -Delta--', - & ' $&overline{&Sigma}^-$', - & ' -Sigma-'/ - DATA ((TXNAME(J,I),J=1,2),I=105,112)/ - & ' $&overline{&Sigma}^{&star-}$', - & ' -Sigma*-', - & ' $&overline{&Xi}^0$', - & ' -Xi0', - & ' $&overline&Xi^{&star0}$', - & ' -Xi*0', - & ' $&overline{&Omega}^+$', - & ' -Omega+', - & ' uu', - & ' uu', - & ' ud', - & ' ud', - & ' dd', - & ' dd', - & ' us', - & ' us'/ - DATA ((TXNAME(J,I),J=1,2),I=113,120)/ - & ' ds', - & ' ds', - & ' ss', - & ' ss', - & ' $&bar{&rm u}&bar{&rm u}$', - & ' -uu', - & ' $&bar{&rm u}&bar{&rm d}$', - & ' -ud', - & ' $&bar{&rm d}&bar{&rm d}$', - & ' -dd', - & ' $&bar{&rm u}&bar{&rm s}$', - & ' -us', - & ' $&bar{&rm d}&bar{&rm s}$', - & ' -ds', - & ' $&bar{&rm s}&bar{&rm s}$', - & ' -ss'/ - DATA ((TXNAME(J,I),J=1,2),I=121,128)/ - & ' e$^-$', - & ' e-', - & ' $&nu_{&rm e}$', - & ' nue', - & ' $&mu^-$', - & ' mu-', - & ' $&nu_&mu$', - & ' numu', - & ' $&tau^-$', - & ' tau-', - & ' $&nu_&tau$', - & ' nutau', - & ' e$^+$', - & ' e+', - & ' $&bar{&nu}_{&rm e}$', - & ' -nue'/ - DATA ((TXNAME(J,I),J=1,2),I=129,136)/ - & ' $&mu^+$', - & ' mu+', - & ' $&bar{&nu}_&mu$', - & ' -numu', - & ' $&tau^+$', - & ' tau+', - & ' $&bar{&nu}_&tau$', - & ' -nutau', - & ' ', - & ' ', - & ' ', - & ' ', - & ' ', - & ' ', - & ' D$^+$', - & ' D+'/ - DATA ((TXNAME(J,I),J=1,2),I=137,144)/ - & ' D$^{&star+}$', - & ' D*+', - & ' D$_1(H)^+$', - & ' D1(H)+', - & ' D$_2^{&star+}$', - & ' D2*+', - & ' D$^0$', - & ' D0', - & ' D$^{&star0}$', - & ' D*0', - & ' D$_1(H)^0$', - & ' D1(H)0', - & ' D$_2^{&star0}$', - & ' D2*0', - & ' D$_{&rm s}^+$', - & ' Ds+'/ - DATA ((TXNAME(J,I),J=1,2),I=145,152)/ - & ' D$_{&rm s}^{&star+}$', - & ' Ds*+', - & ' D$_{&rm s1}(H)^+$', - & ' Ds1(H)+', - & ' D$^{&star+}_{&rm s2}$', - & ' Ds1(H)*+', - & ' $&Sigma_{&rm c}^{++}$', - & ' Sigmac++', - & ' $&Sigma_{&rm c}^{&star++}$', - & ' Sigmac*++', - & ' $&Lambda_{&rm c}^+$', - & ' Lambdac+', - & ' $&Sigma_{&rm c}^+$', - & ' Sigmac+', - & ' $&Sigma_{&rm c}^{&star+}$', - & ' Sigmac*+'/ - DATA ((TXNAME(J,I),J=1,2),I=153,160)/ - & ' $&Sigma_{&rm c}^0$', - & ' Sigmac0', - & ' $&Sigma_{&rm c}^{&star0}$', - & ' Sigmac*0', - & ' $&Xi_{&rm c}^+$', - & ' Xic+', - & ' $&Xi_{&rm c}^{&prime+}$', - & ' Xic''+', - & ' $&Xi_{&rm c}^{&star+}$', - & ' Xic*+', - & ' $&Xi_{&rm c}^0$', - & ' Xic0', - & ' $&Xi_{&rm c}^{&prime0}$', - & ' Xic''0', - & ' $&Xi_{&rm c}^{&star0}$', - & ' Xic*0'/ - DATA ((TXNAME(J,I),J=1,2),I=161,168)/ - & ' $&Omega_{&rm c}^0$', - & ' Omegac0', - & ' $&Omega_{&rm c}^{&star0}$', - & ' Omegac*0', - & ' $&eta_{&rm c}(1S)$', - & ' etac(1S)', - & ' J/$&psi$', - & ' J/psi', - & ' $&chi_{&rm c0}(1P)$', - & ' chic0(1P)', - & ' $&psi(2S)$', - & ' psi(2S)', - & ' $&psi(1D)$', - & ' psi(1D)', - & ' ', - & ' '/ - DATA ((TXNAME(J,I),J=1,2),I=169,176)/ - & ' ', - & ' ', - & ' ', - & ' ', - & ' D$^-$', - & ' D-', - & ' D$^{&star-}$', - & ' D*-', - & ' D$_1(H)^-$', - & ' D1(H)-', - & ' D$_2^{&star-}$', - & ' D2*-', - & ' $&overline{&rm D}^0$', - & ' -D0', - & ' $&overline{&rm D}^{&star0}$', - & ' -D*0'/ - DATA ((TXNAME(J,I),J=1,2),I=177,184)/ - & ' $&overline{&rm D}_1(H)^0$', - & ' -D1(H)0', - & ' $&overline{&rm D}_2^{&star0}$', - & ' -D2*0', - & ' D$_{&rm s}^-$', - & ' Ds-', - & ' D$_{&rm s}^{&star-}$', - & ' Ds*-', - & ' D$_{&rm s1}(H)^-$', - & ' Ds1(H)-', - & ' D$_{&rm s2}^{&star-}$', - & ' Ds1(H)*-', - & ' $&overline{&Sigma}_{&rm c}^{--}$', - & ' -Sigmac--', - & '$&overline{&Sigma}_{&rm c}^{&star--}$', - & ' -Sigmac*--'/ - DATA ((TXNAME(J,I),J=1,2),I=185,192)/ - & ' $&overline{&Lambda}_{&rm c}^-$', - & ' -Lambdac-', - & ' $&overline{&Sigma}_{&rm c}^-$', - & ' -Sigmac-', - & ' $&overline{&Sigma}_{&rm c}^{&star-}$', - & ' -Sigmac*-', - & ' $&overline{&Sigma}_{&rm c}^0$', - & ' -Sigmac0', - & ' $&overline{&Sigma}_{&rm c}^{&star0}$', - & ' -Sigmac*0', - & ' $&overline{&Xi}_{&rm c}^-$', - & ' -Xic-', - & ' $&overline{&Xi}_{&rm c}^{&prime-}$', - & ' -Xic''-', - & ' $&overline{&Xi}_{&rm c}^{&star-}$', - & ' -Xic*-'/ - DATA ((TXNAME(J,I),J=1,2),I=193,200)/ - & ' $&overline{&Xi}_{&rm c}^0$', - & ' -Xic0', - & ' $&overline{&Xi}_{&rm c}^{&prime0}$', - & ' -Xic''0', - & ' $&overline{&Xi}_{&rm c}^{&star0}$', - & ' -Xic*0', - & ' $&overline{&Omega}_{&rm c}^0$', - & ' -Omegac0', - & ' $&overline{&Omega}_{&rm c}^{&star0}$', - & ' -Omegac*0', - & ' W$^+$', - & ' W+', - & ' W$^-$', - & ' W-', - & ' Z$^0/&gamma^&star$', - & ' Z0/gamma*'/ - DATA ((TXNAME(J,I),J=1,2),I=201,208)/ - & ' $H^0_{&rm SM}$', - & ' H0SM', - & ' Z$^{&prime0}$', - & ' Z''0', - & ' $h^0$', - & ' h0', - & ' $H^0$', - & ' H0', - & ' $A^0$', - & ' A0', - & ' $H^+$', - & ' H+', - & ' $H^-$', - & ' H-', - & ' $G$', - & ' G'/ - DATA ((TXNAME(J,I),J=1,2),I=209,216)/ - & ' V-quark', - & ' V-quark', - & ' A-quark', - & ' A-quark', - & ' H-quark', - & ' H-quark', - & ' H$^&prime$-quark', - & ' H''-quark', - & ' ', - & ' ', - & ' ', - & ' ', - & ' $&overline{&rm V}$-quark', - & ' -V-quark', - & ' $&overline{&rm A}$-quark', - & ' -A-quark'/ - DATA ((TXNAME(J,I),J=1,2),I=217,224)/ - & ' $&overline{&rm H}$-quark', - & ' -H-quark', - & ' $&overline{&rm H}^&prime$-quark', - & ' -H''-quark', - & ' ', - & ' ', - & ' ', - & ' ', - & ' $&overline{&rm B}_{&rm d}^0$', - & ' -Bd0', - & ' B$^-$', - & ' B-', - & ' $&overline{&rm B}_{&rm s}^0$', - & ' -Bs0', - & ' $&Sigma_{&rm b}^+$', - & ' Sigmab+'/ - DATA ((TXNAME(J,I),J=1,2),I=225,232)/ - & ' $&Lambda_{&rm b}^0$', - & ' Lambdab0', - & ' $&Sigma_{&rm b}^-$', - & ' Sigmab-', - & ' $&Xi_{&rm b}^0$', - & ' Xib0', - & ' $&Xi_{&rm b}^-$', - & ' Xib-', - & ' $&Omega_{&rm b}^-$', - & ' Omegab-', - & ' B$_{&rm c}^-$', - & ' Bc-', - & ' $&Upsilon(1S)$', - & ' Upsilon(1S)', - & ' T$_{&rm b}^-$', - & ' Tb-'/ - DATA ((TXNAME(J,I),J=1,2),I=233,240)/ - & ' T$^+$', - & ' T+', - & ' T$^0$', - & ' T0', - & ' T$_{&rm s}^+$', - & ' Ts+', - & ' $&Sigma_{&rm t}^{++}$', - & ' Sigmat++', - & ' $&Lambda_{&rm t}^0$', - & ' Lambdat0', - & ' $&Sigma_{&rm t}^0$', - & ' Sigmat0', - & ' $&chi_{&rm t}^+$', - & ' Xit+', - & ' $&chi_{&rm t}^0$', - & ' Xit0'/ - DATA ((TXNAME(J,I),J=1,2),I=241,248)/ - & ' $&Omega_{&rm t}^0$', - & ' Omegat0', - & ' T$_{&rm c}^0$', - & ' Tc0', - & ' T$_{&rm b}^+$', - & ' Tb+', - & ' Toponium', - & ' Toponium', - & ' B$_{&rm d}^0$', - & ' Bd0', - & ' B$^+$', - & ' B+', - & ' B$_{&rm s}^0$', - & ' Bs0', - & ' $&overline{&Sigma}_{&rm b}^-$', - & ' -Sigmab-'/ - DATA ((TXNAME(J,I),J=1,2),I=249,256)/ - & ' $&overline{&Lambda}_{&rm b}^-$', - & ' -Lambdab-', - & ' $&overline{&Sigma}_{&rm b}^+$', - & ' -Sigmab+', - & ' $&overline{&Xi}_{&rm b}^0$', - & ' -Xib0', - & ' $&Xi_{&rm b}^+$', - & ' Xib+', - & ' $&overline{&Omega}_{&rm b}^+$', - & ' -Omegab+', - & ' B$_{&rm c}^+$', - & ' Bc+', - & ' T$^-$', - & ' T-', - & ' $&overline{&rm T}^0$', - & ' T0'/ - DATA ((TXNAME(J,I),J=1,2),I=257,264)/ - & ' T$_{&rm s}^-$', - & ' Ts-', - & ' $&overline{&Sigma}_{&rm t}^{--}$', - & ' Sigmat--', - & ' $&overline{&Lambda}_{&rm t}^-$', - & ' -Lambdat-', - & ' $&overline{&Sigma}_{&rm t}^0$', - & ' -Sigmat0', - & ' $&overline{&Xi}_{&rm t}^-$', - & ' -Xit-', - & ' $&overline{&Xi}_{&rm t}^0$', - & ' -Xit0', - & ' $&overline{&Omega}_{&rm t}^0$', - & ' -Omegat0', - & ' $&overline{&rm T}_{&rm c}^0$', - & ' Tc0'/ - DATA ((TXNAME(J,I),J=1,2),I=265,272)/ - & ' $&overline{&rm B}^{&star0}$', - & ' -B*0', - & ' B$^{&star-}$', - & ' B*-', - & ' $&overline{&rm B}_{&rm s}^{&star0}$', - & ' -Bs*0', - & ' $&overline{&rm B}_1(H)^0$', - & ' -B1(H)0', - & ' B$_1(H)^-$', - & ' B1(H)-', - & ' $&overline{&rm B}_{&rm s1}(H)^0$', - & ' -Bs1(H)0', - & ' $&overline{&rm B}_2^{&star0}$', - & ' -B2*0', - & ' B$_2^{&star-}$', - & ' B2*-'/ - DATA ((TXNAME(J,I),J=1,2),I=273,280)/ - & ' B$_{&rm s2}^{&star0}$', - & ' Bs2*0', - & ' B$^{&star0}$', - & ' B*0', - & ' B$^{&star+}$', - & ' B*+', - & ' B$_{&rm s}^{&star0}$', - & ' Bs*0', - & ' B$_1(H)^0$', - & ' B1(H)0', - & ' B$_1(H)^+$', - & ' B1(H)+', - & ' B$_{&rm s1}(H)^0$', - & ' Bs1(H)0', - & ' B$_2^{&star0}$', - & ' B2*0'/ - DATA ((TXNAME(J,I),J=1,2),I=281,288)/ - & ' B$_2^{&star+}$', - & ' B2*+', - & ' B$_{&rm s2}^{&star0}$', - & ' Bs2*0', - & ' ', - & ' ', - & ' ', - & ' ', - & ' b$_1^0$', - & ' b10', - & ' b$_1^+$', - & ' b1+', - & ' b$_1^-$', - & ' b1-', - & ' h$_1(L)^0$', - & ' h1(L)0'/ - DATA ((TXNAME(J,I),J=1,2),I=289,296)/ - & ' h$_1(H)^0$', - & ' h1(H)0', - & ' a$_0(980)^0$', - & ' a0(980)0', - & ' a$_0(980)^+$', - & ' a0(980)+', - & ' a$_0(980)^-$', - & ' a0(980)-', - & ' f$_0(980)$', - & ' f0(980)', - & ' f$_0(1370)$', - & ' f0(1370)', - & ' B$_{&rm c}^{&star+}$', - & ' Bc*+', - & ' B$_{&rm c}^{&star-}$', - & ' Bc*-'/ - DATA ((TXNAME(J,I),J=1,2),I=297,304)/ - & ' B$_{&rm c1}(H)^+$', - & ' Bc1(H)+', - & ' B$_{&rm c1}(H)^-$', - & ' Bc1(H)-', - & ' B$_{&rm c2}^{&star+}$', - & ' Bc2*+', - & ' B$_{&rm c2}^{&star-}$', - & ' Bc2*-', - & ' h$_{&rm c}(1P)$', - & ' hc(1P)', - & ' $&chi_{&rm c0}(1P)$', - & ' chic0(1P)', - & ' $&chi_{&rm c2}(1P)$', - & ' chic2(1P)', - & ' $&eta_{&rm b}(1S)$', - & ' etab(1S)'/ - DATA ((TXNAME(J,I),J=1,2),I=305,312)/ - & ' h$_{&rm b}(1P)$', - & ' hb(1P)', - & ' $&chi_{&rm b0}(1P)$', - & ' chib0(1P)', - & ' $&chi_{&rm b1}(1P)$', - & ' chib1(1P)', - & ' $&chi_{&rm b2}(1P)$', - & ' chib2(1P)', - & ' K$_1(L)^0$', - & ' K1(L)0', - & ' K$_1(L)^+$', - & ' K1(L)+', - & ' $&overline{&rm K}_1(L)^0$', - & ' -K1(L)0', - & ' K$_1(L)^-$', - & ' K1(L)-'/ - DATA ((TXNAME(J,I),J=1,2),I=313,320)/ - & ' D$_1(L)^+$', - & ' D1(L)+', - & ' D$_1(L)^0$', - & ' D1(L)0', - & ' D$_{&rm s1}(L)^+$', - & ' Ds1(L)+', - & ' D$_1(L)^-$', - & ' D1(L)-', - & ' $&overline{&rm D}_1(L)^0$', - & ' D1(L)0', - & ' D$_{&rm s1}(L)^-$', - & ' Ds1(L)-', - & ' B$_1(L)^0$', - & ' B1(L)0', - & ' B$_1(L)^+$', - & ' B1(L)+'/ - DATA ((TXNAME(J,I),J=1,2),I=321,328)/ - & ' B$_{&rm s1}(L)^0$', - & ' Bs1(L)0', - & ' B$_{&rm c1}(L)^+$', - & ' Bc1(L)+', - & ' $&overline{&rm B}_1(L)^0$', - & ' -B1(L)0', - & ' B$_1(L)^-$', - & ' B1(L)-', - & ' $&overline{&rm B}_{&rm s1}(L)^0$', - & ' -Bs1(L)0', - & ' B$_{&rm c1}(L)^-$', - & ' Bc1(L)-', - & ' K$_0^{&star+}$', - & ' K0*+', - & ' K$_0^{&star0}$', - & ' K0*0'/ - DATA ((TXNAME(J,I),J=1,2),I=329,336)/ - & ' $&overline{&rm K}_0^{&star0}$', - & ' -K0*0', - & ' K$_0^{&star-}$', - & ' K0*-', - & ' D$_0^{&star+}$', - & ' D0*+', - & ' D$_0^{&star0}$', - & ' D0*0', - & ' D$_{&rm s0}^{&star+}$', - & ' Ds0*+', - & ' D$_0^{&star-}$', - & ' D0*-', - & ' $&overline{&rm D}_0^{&star0}$', - & ' -D0*0', - & ' D$_{&rm s0}^{&star-}$', - & ' Ds0*-'/ - DATA ((TXNAME(J,I),J=1,2),I=337,344)/ - & ' B$_0^{&star0}$', - & ' B0*0', - & ' B$_0^{&star+}$', - & ' B0*+', - & ' B$_{&rm s0}^{&star0}$', - & ' Bs0*0', - & ' B$_{&rm c0}^{&star+}$', - & ' Bc0*+', - & ' $&overline{&rm B}_0^{&star0}$', - & ' -B0*0', - & ' B$_0^{&star-}$', - & ' B0*-', - & ' $&overline{&rm B}_{&rm s0}^{&star0}$', - & ' -Bs0*0', - & ' B$_{&rm c0}^{&star-}$', - & ' Bc0*-'/ - DATA ((TXNAME(J,I),J=1,2),I=345,352)/ - & ' $&Sigma_{&rm b}^0$', - & ' Sigmab0', - & ' $&Sigma_{&rm b}^{&star-}$', - & ' Sigmab*-', - & ' $&Sigma_{&rm b}^{&star0}$', - & ' Sigmab*0', - & ' $&Sigma_{&rm b}^{&star+}$', - & ' Sigmab*+', - & ' $&Xi_{&rm b}^{&prime0}$', - & ' Xib''0', - & ' $&Xi_{&rm b}^{&star0}$', - & ' Xib*0', - & ' $&Xi_{&rm b}^{&prime-}$', - & ' Xib''-', - & ' $&Xi_{&rm b}^{&star-}$', - & ' Xib*-'/ - DATA ((TXNAME(J,I),J=1,2),I=353,360)/ - & ' $&Omega_{&rm b}^{&star-}$', - & ' -Omegab*-', - & ' $&overline{&Sigma}_{&rm b}^{&star+}$', - & ' Sigmab*+', - & ' $&overline{&Sigma}_{&rm b}^0$', - & ' -Sigmab0', - & ' $&overline{&Sigma}_{&rm b}^{&star0}$', - & ' -Sigmab*0', - & ' $&overline{&Sigma}_{&rm b}^{&star-}$', - & ' -Sigmab*-', - & ' $&overline{&Xi}_{&rm b}^{&prime0}$', - & ' -Xib''0', - & ' $&overline{&Xi}_{&rm b}^{&star0}$', - & ' -Xib*0', - & ' $&overline{&Xi}_{&rm b}^{&prime+}$', - & ' -Xib''+'/ - DATA ((TXNAME(J,I),J=1,2),I=361,368)/ - & ' $&overline{&Xi}_{&rm b}^{&star+}$', - & ' -Xib*+', - & ' $&Omega_{&rm b}^{&star+}$', - & ' Omegab*+', - & ' K$(DL)_2^+$', - & ' K(DL)2+', - & ' K$(DL)_2^0$', - & ' K(DL)20', - & ' $&overline{&rm K}(DL)_2^0$', - & ' -K(DL)20', - & ' K$(DL)_2^-$', - & ' K(DL)2-', - & ' K$(D)^{&star+}$', - & ' K(D)*+', - & ' K$(D)^{&star0}$', - & ' K(D)*0'/ - DATA ((TXNAME(J,I),J=1,2),I=369,376)/ - & ' $&overline{&rm K}(D)^{&star0}$', - & ' -K(D)*0', - & ' K$(D)^{&star-}$', - & ' K(D)*-', - & ' K$(DH)_2^+$', - & ' K(DH)2+', - & ' K$(DH)_2^0$', - & ' K(DH)20', - & ' $&overline{&rm K}(DH)_2^0$', - & ' -K(DH)20', - & ' K$(DH)_2^-$', - & ' K(DH)2-', - & ' K$(D)_3^+$', - & ' K(D)3+', - & ' K$(D)_3^0$', - & ' K(D)30'/ - DATA ((TXNAME(J,I),J=1,2),I=377,384)/ - & ' $&overline{&rm K}(D)_3^0$', - & ' -K(D)30', - & ' K$(D)_3^-$', - & ' K(D)3-', - & ' $&pi_2^+$', - & ' pi2+', - & ' $&pi_2^0$', - & ' pi20', - & ' $&pi_2^-$', - & ' pi2-', - & ' $&rho(D)^+$', - & ' rho(D)+', - & ' $&rho(D)^0$', - & ' rho(D)0', - & ' $&rho(D)^-$', - & ' rho(D)-'/ - DATA ((TXNAME(J,I),J=1,2),I=385,392)/ - & ' $&rho_3^+$', - & ' rho3+', - & ' $&rho_3^0$', - & ' rho30', - & ' $&rho_3^-$', - & ' rho3-', - & ' $&Upsilon(2S)$', - & ' Upsilon(2S)', - & ' $&chi_{&rm b0}(2P)$', - & ' Chib0(2P)', - & ' $&chi_{&rm b1}(2P)$', - & ' Chib1(2P)', - & ' $&chi_{&rm b2}(2P)$', - & ' Chib2(2P)', - & ' $&Upsilon(3S)$', - & ' Upsilon(3S)'/ - DATA ((TXNAME(J,I),J=1,2),I=393,400)/ - & ' $&Upsilon(4S)$', - & ' Upsilon(4S)', - & ' ', - & ' ', - & ' $&omega_3$', - & ' omega3', - & ' $&phi_3$', - & ' phi3', - & ' $&eta_2(L)$', - & ' eta2(L)', - & ' $&eta_2(H)$', - & ' eta2(H)', - & ' $&omega(H)$', - & ' omega(H)', - & ' ', - & ' '/ - DATA ((TXNAME(J,I),J=1,2),I=401,408)/ - & ' $&tilde{&rm d}_{&rm L}$', - & ' ~dL', - & ' $&tilde{&rm u}_{&rm L}$', - & ' ~uL', - & ' $&tilde{&rm s}_{&rm L}$', - & ' ~sL', - & ' $&tilde{&rm c}_{&rm L}$', - & ' ~cL', - & ' $&tilde{&rm b}_1$', - & ' ~b1', - & ' $&tilde{&rm t}_1$', - & ' ~t1', - & ' $&overline{&tilde{&rm d}}_{&rm L}$', - & ' -~dL', - & ' $&overline{&tilde{&rm u}}_{&rm L}$', - & ' -~uL'/ - DATA ((TXNAME(J,I),J=1,2),I=409,416)/ - & ' $&overline{&tilde{&rm s}}_{&rm L}$', - & ' -~sL', - & ' $&overline{&tilde{&rm c}}_{&rm L}$', - & ' -~cL', - & ' $&overline{&tilde{&rm b}}_1$', - & ' -~b1', - & ' $&overline{&tilde{&rm t}}_1$', - & ' -~t1', - & ' $&tilde{&rm d}_{&rm R}$', - & ' ~dR', - & ' $&tilde{&rm u}_{&rm R}$', - & ' ~uR', - & ' $&tilde{&rm s}_{&rm R}$', - & ' ~sR', - & ' $&tilde{&rm c}_{&rm R}$', - & ' ~cR'/ - DATA ((TXNAME(J,I),J=1,2),I=417,424)/ - & ' $&tilde{&rm b}_2$', - & ' ~b2', - & ' $&tilde{&rm t}_2$', - & ' ~t2', - & ' $&overline{&tilde{&rm d}}_{&rm R}$', - & ' -~dR', - & ' $&overline{&tilde{&rm u}}_{&rm R}$', - & ' -~uR', - & ' $&overline{&tilde{&rm s}}_{&rm R}$', - & ' -~sR', - & ' $&overline{&tilde{&rm c}}_{&rm R}$', - & ' -~cR', - & ' $&overline{&tilde{&rm b}}_2$', - & ' -~b2', - & ' $&overline{&tilde{&rm t}}_2$', - & ' -~t2'/ - DATA ((TXNAME(J,I),J=1,2),I=425,432)/ - & ' $&tilde{&rm e}^-_{&rm L}$', - & ' ~e-L', - & ' $&tilde{&nu}_{&rm e}$', - & ' ~nue L', - & ' $&tilde{&mu}^-_{&rm L}$', - & ' ~mu-L', - & ' $&tilde{&nu}_&mu$', - & ' ~numu L', - & ' $&tilde{&tau}^-_1$', - & ' ~tau-1', - & ' $&tilde{&nu}_&tau$', - & ' ~nutau L', - & ' $&tilde{&rm e}^+_{&rm L}$', - & ' ~e+L', - & ' $&overline{&tilde{&nu}}_{&rm eL}$', - & ' -~nueL'/ - DATA ((TXNAME(J,I),J=1,2),I=433,440)/ - & ' $&tilde{&mu}^+_{&rm L}$', - & ' ~mu+L', - & ' $&overline{&tilde{&nu}}_{&rm&mu L}$', - & ' -~numu L', - & ' $&tilde{&tau}^+_1$', - & ' ~tau+1', - & ' $&overline{&tilde{&nu}}_{&rm&tau L}$', - & ' -~nutau L', - & ' $&tilde{&rm e}^-_{&rm R}$', - & ' ~e-R', - & ' $&tilde{&nu}_{&rm eR}$', - & ' ~nue R', - & ' $&tilde{&mu}^-_{&rm R}$', - & ' ~mu-R', - & ' $&tilde{&nu}_{&mu{&rm R}}$', - & ' ~numu R'/ - DATA ((TXNAME(J,I),J=1,2),I=441,448)/ - & ' $&tilde{&tau}^-_2$', - & ' ~tau-2', - & ' $&tilde{&nu}_{&tau{&rm R}}$', - & ' ~nutau R', - & ' $&tilde{&rm e}^+_{&rm R}$', - & ' ~e+R', - & ' $&overline{&tilde{&nu}}_{&rm eR}$', - & ' -~nue R', - & ' $&tilde{&mu}^+_{&rm R}$', - & ' ~mu+R', - & ' $&overline{&tilde{&nu}}_{&rm&mu R}$', - & ' -~numu R', - & ' $&tilde{&tau}^+_2$', - & ' ~tau+2', - & ' $&overline{&tilde{&nu}}_{&rm&tau R}$', - & ' -~nutau R'/ - DATA ((TXNAME(J,I),J=1,2),I=449,456)/ - & ' $&tilde{g}$', - & ' ~g', - & ' $&tilde{&chi}^0_1$', - & ' ~chi01', - & ' $&tilde{&chi}^0_2$', - & ' ~chi02', - & ' $&tilde{&chi}^0_3$', - & ' ~chi03', - & ' $&tilde{&chi}^0_4$', - & ' ~chi04', - & ' $&tilde{&chi}^+_1$', - & ' ~chi+1', - & ' $&tilde{&chi}^+_2$', - & ' ~chi+2', - & ' $&tilde{&chi}^-_1$', - & ' ~chi-1'/ - DATA ((TXNAME(J,I),J=1,2),I=457,NLAST)/ - & ' $&tilde{&chi}^-_2$', - & ' ~chi-2', - & ' $&tilde{G}$', - & ' ~G'/ -C - DATA (RNAME(I),I=NNEXT,NMXRES)/NLEFT*' '/ - DATA (IDPDG(I),I=NNEXT,NMXRES)/NLEFT*0/ - DATA (IFLAV(I),I=NNEXT,NMXRES)/NLEFT*0/ - DATA (RMASS(I),I=NNEXT,NMXRES)/NLEFT*0.0000D0/ - DATA (RLTIM(I),I=NNEXT,NMXRES)/NLEFT*0.000D+00/ - DATA (RSPIN(I),I=NNEXT,NMXRES)/NLEFT*0.0D0/ - DATA (TXNAME(1,I),I=NNEXT,NMXRES)/ - & NLEFT*' '/ - DATA (TXNAME(2,I),I=NNEXT,NMXRES)/ - & NLEFT*' '/ -C - DATA (RSTAB(I),I=1,NMXRES)/NMXRES*.FALSE./ - DATA DKPSET/.FALSE./ -C - DATA NDKYS/2263/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 1, 19)/ - & 6,0.334D0,100, 2, 7, 5, 0, 0, - & 6,0.333D0,100, 4, 9, 5, 0, 0, - & 6,0.111D0,100,122,127, 5, 0, 0, - & 6,0.111D0,100,124,129, 5, 0, 0, - & 6,0.111D0,100,126,131, 5, 0, 0, - & 12,0.334D0,100, 8, 1, 11, 0, 0, - & 12,0.333D0,100, 10, 3, 11, 0, 0, - & 12,0.111D0,100,128,121, 11, 0, 0, - & 12,0.111D0,100,130,123, 11, 0, 0, - & 12,0.111D0,100,132,125, 11, 0, 0, - & 21,0.988D0, 0, 59, 59, 0, 0, 0, - & 21,0.012D0, 0,127,121, 59, 0, 0, - & 22,0.388D0, 0, 59, 59, 0, 0, 0, - & 22,0.319D0, 0, 21, 21, 21, 0, 0, - & 22,0.001D0, 0, 21, 59, 59, 0, 0, - & 22,0.236D0, 0, 38, 30, 21, 0, 0, - & 22,0.049D0, 0, 38, 30, 59, 0, 0, - & 22,0.005D0, 0,127,121, 59, 0, 0, - & 22,0.002D0, 0, 38, 30,127,121, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 20, 38)/ - & 23,0.989D0, 0, 38, 30, 0, 0, 0, - & 23,0.010D0, 0, 38, 30, 59, 0, 0, - & 23,0.001D0, 0, 21, 59, 0, 0, 0, - & 24,0.888D0, 0, 38, 30, 21, 0, 0, - & 24,0.085D0, 0, 21, 59, 0, 0, 0, - & 24,0.022D0, 0, 38, 30, 0, 0, 0, - & 24,0.001D0, 0, 22, 59, 0, 0, 0, - & 24,0.001D0, 0, 21,127,121, 0, 0, - & 24,0.003D0, 0, 38, 30, 21, 21, 0, - & 25,0.437D0, 0, 38, 30, 22, 0, 0, - & 25,0.302D0, 0, 23, 59, 0, 0, 0, - & 25,0.208D0, 0, 21, 21, 22, 0, 0, - & 25,0.030D0, 0, 24, 59, 0, 0, 0, - & 25,0.021D0, 0, 59, 59, 0, 0, 0, - & 25,0.002D0, 0, 21, 21, 21, 0, 0, - & 26,0.566D0, 0, 38, 30, 0, 0, 0, - & 26,0.283D0, 0, 21, 21, 0, 0, 0, - & 26,0.069D0, 0, 38, 30, 21, 21, 0, - & 26,0.023D0, 0, 46, 34, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 39, 57)/ - & 26,0.023D0, 0, 50, 42, 0, 0, 0, - & 26,0.028D0, 0, 38, 38, 30, 30, 0, - & 26,0.005D0, 0, 22, 22, 0, 0, 0, - & 26,0.003D0, 0, 21, 21, 21, 21, 0, - & 27,0.499D0, 0, 39, 30, 0, 0, 0, - & 27,0.499D0, 0, 31, 38, 0, 0, 0, - & 27,0.002D0, 0, 21, 59, 59, 0, 0, - & 28,0.148D0, 0, 21, 21, 38, 30, 0, - & 28,0.148D0, 0, 23, 38, 30, 0, 0, - & 28,0.147D0, 0,291, 30, 0, 0, 0, - & 28,0.147D0, 0,290, 21, 0, 0, 0, - & 28,0.147D0, 0,292, 38, 0, 0, 0, - & 28,0.067D0, 0, 22, 38, 30, 0, 0, - & 28,0.033D0, 0, 22, 21, 21, 0, 0, - & 28,0.032D0, 0, 46, 42, 30, 0, 0, - & 28,0.016D0, 0, 46, 34, 21, 0, 0, - & 28,0.016D0, 0, 50, 42, 21, 0, 0, - & 28,0.032D0, 0, 50, 34, 38, 0, 0, - & 28,0.066D0, 0, 59, 23, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 58, 76)/ - & 28,0.001D0, 0, 56, 59, 0, 0, 0, - & 29,0.349D0, 0, 39, 30, 0, 0, 0, - & 29,0.349D0, 0, 31, 38, 0, 0, 0, - & 29,0.144D0, 0, 22, 21, 0, 0, 0, - & 29,0.104D0, 0, 24, 38, 30, 0, 0, - & 29,0.024D0, 0, 46, 34, 0, 0, 0, - & 29,0.024D0, 0, 50, 42, 0, 0, 0, - & 29,0.006D0, 0, 25, 21, 0, 0, 0, - & 30,1.000D0, 0,123,130, 0, 0, 0, - & 31,1.000D0, 0, 30, 21, 0, 0, 0, - & 32,0.499D0, 0, 31, 21, 0, 0, 0, - & 32,0.499D0, 0, 23, 30, 0, 0, 0, - & 32,0.002D0, 0, 30, 59, 0, 0, 0, - & 33,0.349D0, 0, 31, 21, 0, 0, 0, - & 33,0.349D0, 0, 23, 30, 0, 0, 0, - & 33,0.144D0, 0, 22, 30, 0, 0, 0, - & 33,0.101D0, 0, 24, 30, 21, 0, 0, - & 33,0.048D0, 0, 50, 34, 0, 0, 0, - & 33,0.006D0, 0, 25, 30, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 77, 95)/ - & 33,0.003D0, 0, 30, 59, 0, 0, 0, - & 34,0.629D0, 0,123,130, 0, 0, 0, - & 34,0.212D0, 0, 30, 21, 0, 0, 0, - & 34,0.056D0, 0, 30, 38, 30, 0, 0, - & 34,0.017D0, 0, 30, 21, 21, 0, 0, - & 34,0.048D0,101,121,128, 21, 0, 0, - & 34,0.032D0,101,123,130, 21, 0, 0, - & 34,0.006D0, 0,123,130, 59, 0, 0, - & 35,0.666D0, 0, 42, 30, 0, 0, 0, - & 35,0.333D0, 0, 34, 21, 0, 0, 0, - & 35,0.001D0, 0, 34, 59, 0, 0, 0, - & 36,0.627D0, 0, 43, 30, 0, 0, 0, - & 36,0.313D0, 0, 35, 21, 0, 0, 0, - & 36,0.020D0, 0, 42, 31, 0, 0, 0, - & 36,0.010D0, 0, 34, 23, 0, 0, 0, - & 36,0.020D0, 0, 34,294, 0, 0, 0, - & 36,0.010D0, 0, 34, 24, 0, 0, 0, - & 37,0.331D0, 0, 42, 30, 0, 0, 0, - & 37,0.166D0, 0, 34, 21, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 96, 114)/ - & 37,0.168D0, 0, 43, 30, 0, 0, 0, - & 37,0.084D0, 0, 35, 21, 0, 0, 0, - & 37,0.087D0, 0, 35, 38, 30, 0, 0, - & 37,0.044D0, 0, 35, 21, 21, 0, 0, - & 37,0.059D0, 0, 42, 31, 0, 0, 0, - & 37,0.029D0, 0, 34, 23, 0, 0, 0, - & 37,0.029D0, 0, 34, 24, 0, 0, 0, - & 37,0.002D0, 0, 34, 59, 0, 0, 0, - & 37,0.001D0, 0, 34, 22, 0, 0, 0, - & 38,1.000D0, 0,129,124, 0, 0, 0, - & 39,1.000D0, 0, 38, 21, 0, 0, 0, - & 40,0.499D0, 0, 39, 21, 0, 0, 0, - & 40,0.499D0, 0, 23, 38, 0, 0, 0, - & 40,0.002D0, 0, 38, 59, 0, 0, 0, - & 41,0.349D0, 0, 39, 21, 0, 0, 0, - & 41,0.349D0, 0, 23, 38, 0, 0, 0, - & 41,0.144D0, 0, 22, 38, 0, 0, 0, - & 41,0.101D0, 0, 24, 38, 21, 0, 0, - & 41,0.048D0, 0, 46, 42, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 115, 133)/ - & 41,0.006D0, 0, 25, 38, 0, 0, 0, - & 41,0.003D0, 0, 38, 59, 0, 0, 0, - & 42,0.500D0, 0, 60, 0, 0, 0, 0, - & 42,0.500D0, 0, 61, 0, 0, 0, 0, - & 43,0.665D0, 0, 34, 38, 0, 0, 0, - & 43,0.333D0, 0, 42, 21, 0, 0, 0, - & 43,0.002D0, 0, 42, 59, 0, 0, 0, - & 44,0.627D0, 0, 35, 38, 0, 0, 0, - & 44,0.313D0, 0, 43, 21, 0, 0, 0, - & 44,0.020D0, 0, 34, 39, 0, 0, 0, - & 44,0.010D0, 0, 42, 23, 0, 0, 0, - & 44,0.020D0, 0, 42,294, 0, 0, 0, - & 44,0.010D0, 0, 42, 24, 0, 0, 0, - & 45,0.331D0, 0, 34, 38, 0, 0, 0, - & 45,0.166D0, 0, 42, 21, 0, 0, 0, - & 45,0.168D0, 0, 35, 38, 0, 0, 0, - & 45,0.084D0, 0, 43, 21, 0, 0, 0, - & 45,0.089D0, 0, 42, 38, 30, 0, 0, - & 45,0.044D0, 0, 42, 21, 21, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 134, 152)/ - & 45,0.059D0, 0, 34, 39, 0, 0, 0, - & 45,0.029D0, 0, 42, 23, 0, 0, 0, - & 45,0.029D0, 0, 42, 24, 0, 0, 0, - & 45,0.001D0, 0, 42, 22, 0, 0, 0, - & 46,0.629D0, 0,129,124, 0, 0, 0, - & 46,0.212D0, 0, 38, 21, 0, 0, 0, - & 46,0.056D0, 0, 38, 38, 30, 0, 0, - & 46,0.017D0, 0, 38, 21, 21, 0, 0, - & 46,0.032D0,101,129,124, 21, 0, 0, - & 46,0.048D0,101,127,122, 21, 0, 0, - & 46,0.006D0, 0,129,124, 59, 0, 0, - & 47,0.666D0, 0, 50, 38, 0, 0, 0, - & 47,0.333D0, 0, 46, 21, 0, 0, 0, - & 47,0.001D0, 0, 46, 59, 0, 0, 0, - & 48,0.627D0, 0, 51, 38, 0, 0, 0, - & 48,0.313D0, 0, 47, 21, 0, 0, 0, - & 48,0.020D0, 0, 50, 39, 0, 0, 0, - & 48,0.010D0, 0, 46, 23, 0, 0, 0, - & 48,0.020D0, 0, 46,294, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 153, 171)/ - & 48,0.010D0, 0, 46, 24, 0, 0, 0, - & 49,0.331D0, 0, 50, 38, 0, 0, 0, - & 49,0.166D0, 0, 46, 21, 0, 0, 0, - & 49,0.168D0, 0, 51, 38, 0, 0, 0, - & 49,0.084D0, 0, 47, 21, 0, 0, 0, - & 49,0.087D0, 0, 47, 38, 30, 0, 0, - & 49,0.044D0, 0, 47, 21, 21, 0, 0, - & 49,0.059D0, 0, 50, 39, 0, 0, 0, - & 49,0.029D0, 0, 46, 23, 0, 0, 0, - & 49,0.029D0, 0, 46, 24, 0, 0, 0, - & 49,0.002D0, 0, 46, 59, 0, 0, 0, - & 49,0.001D0, 0, 46, 22, 0, 0, 0, - & 50,0.500D0, 0, 60, 0, 0, 0, 0, - & 50,0.500D0, 0, 61, 0, 0, 0, 0, - & 51,0.665D0, 0, 46, 30, 0, 0, 0, - & 51,0.333D0, 0, 50, 21, 0, 0, 0, - & 51,0.002D0, 0, 50, 59, 0, 0, 0, - & 52,0.627D0, 0, 47, 30, 0, 0, 0, - & 52,0.313D0, 0, 51, 21, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 172, 190)/ - & 52,0.020D0, 0, 46, 31, 0, 0, 0, - & 52,0.010D0, 0, 50, 23, 0, 0, 0, - & 52,0.020D0, 0, 50,294, 0, 0, 0, - & 52,0.010D0, 0, 50, 24, 0, 0, 0, - & 53,0.331D0, 0, 46, 30, 0, 0, 0, - & 53,0.166D0, 0, 50, 21, 0, 0, 0, - & 53,0.168D0, 0, 47, 30, 0, 0, 0, - & 53,0.084D0, 0, 51, 21, 0, 0, 0, - & 53,0.089D0, 0, 50, 38, 30, 0, 0, - & 53,0.044D0, 0, 50, 21, 21, 0, 0, - & 53,0.059D0, 0, 46, 31, 0, 0, 0, - & 53,0.029D0, 0, 50, 23, 0, 0, 0, - & 53,0.029D0, 0, 50, 24, 0, 0, 0, - & 53,0.001D0, 0, 50, 22, 0, 0, 0, - & 56,0.490D0, 0, 46, 34, 0, 0, 0, - & 56,0.342D0, 0, 61, 60, 0, 0, 0, - & 56,0.043D0, 0, 39, 30, 0, 0, 0, - & 56,0.043D0, 0, 23, 21, 0, 0, 0, - & 56,0.043D0, 0, 31, 38, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 191, 209)/ - & 56,0.025D0, 0, 38, 30, 21, 0, 0, - & 56,0.013D0, 0, 22, 59, 0, 0, 0, - & 56,0.001D0, 0, 21, 59, 0, 0, 0, - & 57,0.250D0, 0, 50, 43, 0, 0, 0, - & 57,0.250D0, 0, 34, 47, 0, 0, 0, - & 57,0.250D0, 0, 42, 51, 0, 0, 0, - & 57,0.250D0, 0, 46, 35, 0, 0, 0, - & 58,0.356D0, 0, 46, 34, 0, 0, 0, - & 58,0.356D0, 0, 50, 42, 0, 0, 0, - & 58,0.279D0, 0, 22, 22, 0, 0, 0, - & 58,0.006D0, 0, 38, 30, 0, 0, 0, - & 58,0.003D0, 0, 21, 21, 0, 0, 0, - & 60,0.684D0, 0, 38, 30, 0, 0, 0, - & 60,0.314D0, 0, 21, 21, 0, 0, 0, - & 60,0.002D0, 0, 38, 30, 59, 0, 0, - & 61,0.216D0, 0, 21, 21, 21, 0, 0, - & 61,0.124D0, 0, 38, 30, 21, 0, 0, - & 61,0.135D0,101,123,130, 38, 0, 0, - & 61,0.135D0,101,124,129, 30, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 210, 228)/ - & 61,0.187D0,101,121,128, 38, 0, 0, - & 61,0.187D0,101,122,127, 30, 0, 0, - & 61,0.006D0, 0,121,128, 38, 59, 0, - & 61,0.006D0, 0,122,127, 30, 59, 0, - & 61,0.002D0, 0, 38, 30, 0, 0, 0, - & 61,0.001D0, 0, 21, 21, 0, 0, 0, - & 61,0.001D0, 0, 59, 59, 0, 0, 0, - & 74,0.663D0, 0, 73, 21, 0, 0, 0, - & 74,0.331D0, 0, 75, 38, 0, 0, 0, - & 74,0.006D0, 0, 73, 59, 0, 0, 0, - & 75,1.000D0,101,121,128, 73, 0, 0, - & 76,0.663D0, 0, 75, 21, 0, 0, 0, - & 76,0.331D0, 0, 73, 30, 0, 0, 0, - & 76,0.006D0, 0, 75, 59, 0, 0, 0, - & 77,1.000D0, 0, 75, 30, 0, 0, 0, - & 78,0.638D0, 0, 73, 30, 0, 0, 0, - & 78,0.358D0, 0, 75, 21, 0, 0, 0, - & 78,0.002D0, 0, 75, 59, 0, 0, 0, - & 78,0.001D0, 0, 73, 30, 59, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 229, 247)/ - & 78,0.001D0,101,121,128, 73, 0, 0, - & 79,0.995D0, 0, 78, 59, 0, 0, 0, - & 79,0.005D0, 0, 78,127,121, 0, 0, - & 80,0.880D0, 0, 78, 21, 0, 0, 0, - & 80,0.060D0, 0, 86, 30, 0, 0, 0, - & 80,0.060D0, 0, 81, 38, 0, 0, 0, - & 81,0.998D0, 0, 75, 30, 0, 0, 0, - & 81,0.001D0, 0, 75, 30, 59, 0, 0, - & 81,0.001D0,101,121,128, 75, 0, 0, - & 82,0.880D0, 0, 78, 30, 0, 0, 0, - & 82,0.060D0, 0, 79, 30, 0, 0, 0, - & 82,0.060D0, 0, 81, 21, 0, 0, 0, - & 83,0.999D0, 0, 78, 30, 0, 0, 0, - & 83,0.001D0,101,121,128, 78, 0, 0, - & 84,0.667D0, 0, 88, 30, 0, 0, 0, - & 84,0.333D0, 0, 83, 21, 0, 0, 0, - & 85,1.000D0, 0, 73, 38, 0, 0, 0, - & 86,0.516D0, 0, 73, 21, 0, 0, 0, - & 86,0.483D0, 0, 75, 38, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 248, 266)/ - & 86,0.001D0, 0, 73, 59, 0, 0, 0, - & 87,0.880D0, 0, 78, 38, 0, 0, 0, - & 87,0.060D0, 0, 86, 21, 0, 0, 0, - & 87,0.060D0, 0, 79, 38, 0, 0, 0, - & 88,0.995D0, 0, 78, 21, 0, 0, 0, - & 88,0.001D0, 0, 78, 59, 0, 0, 0, - & 88,0.004D0, 0, 79, 59, 0, 0, 0, - & 89,0.667D0, 0, 83, 38, 0, 0, 0, - & 89,0.333D0, 0, 88, 21, 0, 0, 0, - & 90,0.675D0, 0, 78, 34, 0, 0, 0, - & 90,0.233D0, 0, 88, 30, 0, 0, 0, - & 90,0.086D0, 0, 83, 21, 0, 0, 0, - & 90,0.006D0,101,121,128, 88, 0, 0, - & 92,0.663D0, 0, 91, 21, 0, 0, 0, - & 92,0.331D0, 0, 93, 30, 0, 0, 0, - & 92,0.006D0, 0, 91, 59, 0, 0, 0, - & 93,1.000D0,101,127,122, 91, 0, 0, - & 94,0.663D0, 0, 93, 21, 0, 0, 0, - & 94,0.331D0, 0, 91, 38, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 267, 285)/ - & 94,0.006D0, 0, 93, 59, 0, 0, 0, - & 95,1.000D0, 0, 93, 38, 0, 0, 0, - & 96,0.638D0, 0, 91, 38, 0, 0, 0, - & 96,0.358D0, 0, 93, 21, 0, 0, 0, - & 96,0.002D0, 0, 93, 59, 0, 0, 0, - & 96,0.001D0, 0, 91, 38, 59, 0, 0, - & 96,0.001D0,101,127,122, 91, 0, 0, - & 97,0.995D0, 0, 96, 59, 0, 0, 0, - & 97,0.005D0, 0, 96,127,121, 0, 0, - & 98,0.880D0, 0, 96, 21, 0, 0, 0, - & 98,0.060D0, 0,104, 38, 0, 0, 0, - & 98,0.060D0, 0, 99, 30, 0, 0, 0, - & 99,0.998D0, 0, 93, 38, 0, 0, 0, - & 99,0.001D0, 0, 93, 38, 59, 0, 0, - & 99,0.001D0,101,127,122, 93, 0, 0, - & 100,0.880D0, 0, 96, 38, 0, 0, 0, - & 100,0.060D0, 0, 97, 38, 0, 0, 0, - & 100,0.060D0, 0, 99, 21, 0, 0, 0, - & 101,0.999D0, 0, 96, 38, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 286, 304)/ - & 101,0.001D0,101,127,122, 96, 0, 0, - & 102,0.667D0, 0,106, 38, 0, 0, 0, - & 102,0.333D0, 0,101, 21, 0, 0, 0, - & 103,1.000D0, 0, 91, 30, 0, 0, 0, - & 104,0.516D0, 0, 91, 21, 0, 0, 0, - & 104,0.483D0, 0, 93, 30, 0, 0, 0, - & 104,0.001D0, 0, 91, 59, 0, 0, 0, - & 105,0.880D0, 0, 96, 30, 0, 0, 0, - & 105,0.060D0, 0,104, 21, 0, 0, 0, - & 105,0.060D0, 0, 97, 30, 0, 0, 0, - & 106,0.995D0, 0, 96, 21, 0, 0, 0, - & 106,0.001D0, 0, 96, 59, 0, 0, 0, - & 106,0.004D0, 0, 97, 59, 0, 0, 0, - & 107,0.667D0, 0,101, 30, 0, 0, 0, - & 107,0.333D0, 0,106, 21, 0, 0, 0, - & 108,0.675D0, 0, 96, 46, 0, 0, 0, - & 108,0.233D0, 0,106, 38, 0, 0, 0, - & 108,0.086D0, 0,101, 21, 0, 0, 0, - & 108,0.006D0,101,127,122,106, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 305, 323)/ - & 123,0.986D0,100,121,128,124, 0, 0, - & 123,0.014D0, 0,121,128,124, 59, 0, - & 125,0.178D0,100,121,128,126, 0, 0, - & 125,0.171D0,100,123,130,126, 0, 0, - & 125,0.002D0, 0,123,130, 59,126, 0, - & 125,0.111D0, 0, 30,126, 0, 0, 0, - & 125,0.253D0, 0, 31,126, 0, 0, 0, - & 125,0.181D0, 0, 32,126, 0, 0, 0, - & 125,0.002D0, 0, 30, 22, 21,126, 0, - & 125,0.018D0, 0, 30, 24,126, 0, 0, - & 125,0.004D0, 0, 30, 24, 21,126, 0, - & 125,0.015D0, 0, 31, 23,126, 0, 0, - & 125,0.001D0, 0, 31, 24, 21,126, 0, - & 125,0.024D0, 0, 32, 21,126, 0, 0, - & 125,0.002D0, 0, 32, 38, 30,126, 0, - & 125,0.007D0, 0, 34,126, 0, 0, 0, - & 125,0.014D0, 0, 35,126, 0, 0, 0, - & 125,0.003D0, 0, 35, 21,126, 0, 0, - & 125,0.001D0, 0, 34, 38, 30,126, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 324, 342)/ - & 125,0.004D0, 0, 30, 43,126, 0, 0, - & 125,0.003D0, 0, 34, 50,126, 0, 0, - & 125,0.003D0, 0, 34, 51,126, 0, 0, - & 125,0.003D0, 0, 30, 50, 42,126, 0, - & 129,0.986D0,100,127,122,130, 0, 0, - & 129,0.014D0, 0,127,122,130, 59, 0, - & 131,0.178D0,100,127,122,132, 0, 0, - & 131,0.171D0,100,129,124,132, 0, 0, - & 131,0.002D0, 0,129,124, 59,132, 0, - & 131,0.111D0, 0, 38,132, 0, 0, 0, - & 131,0.253D0, 0, 39,132, 0, 0, 0, - & 131,0.181D0, 0, 40,132, 0, 0, 0, - & 131,0.002D0, 0, 38, 22, 21,132, 0, - & 131,0.018D0, 0, 38, 24,132, 0, 0, - & 131,0.004D0, 0, 38, 24, 21,132, 0, - & 131,0.015D0, 0, 39, 23,132, 0, 0, - & 131,0.001D0, 0, 39, 24, 21,132, 0, - & 131,0.024D0, 0, 40, 21,132, 0, 0, - & 131,0.002D0, 0, 40, 38, 30,132, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 343, 361)/ - & 131,0.007D0, 0, 46,132, 0, 0, 0, - & 131,0.014D0, 0, 47,132, 0, 0, 0, - & 131,0.003D0, 0, 47, 21,132, 0, 0, - & 131,0.001D0, 0, 46, 38, 30,132, 0, - & 131,0.004D0, 0, 38, 51,132, 0, 0, - & 131,0.003D0, 0, 46, 42,132, 0, 0, - & 131,0.003D0, 0, 46, 43,132, 0, 0, - & 131,0.003D0, 0, 38, 50, 42,132, 0, - & 136,0.067D0,101,122,127, 42, 0, 0, - & 136,0.067D0,101,124,129, 42, 0, 0, - & 136,0.048D0,101,122,127, 43, 0, 0, - & 136,0.048D0,101,124,129, 43, 0, 0, - & 136,0.003D0, 0, 34, 38,122,127, 0, - & 136,0.003D0, 0, 34, 38,124,129, 0, - & 136,0.006D0,101,122,127, 21, 0, 0, - & 136,0.006D0,101,124,129, 21, 0, 0, - & 136,0.002D0,101,122,127, 23, 0, 0, - & 136,0.002D0,101,124,129, 23, 0, 0, - & 136,0.055D0, 0, 34, 38, 38, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 362, 380)/ - & 136,0.031D0, 0, 34, 39, 38, 0, 0, - & 136,0.042D0, 0, 34, 38, 38, 21, 21, - & 136,0.002D0, 0, 34, 38, 38, 38, 31, - & 136,0.021D0, 0, 35, 38, 38, 0, 0, - & 136,0.027D0, 0, 42, 38, 0, 0, 0, - & 136,0.066D0, 0, 42, 39, 0, 0, 0, - & 136,0.081D0, 0, 42, 40, 0, 0, 0, - & 136,0.024D0, 0, 42, 38, 21, 0, 0, - & 136,0.004D0, 0, 42, 38, 23, 0, 0, - & 136,0.069D0, 0, 42, 38, 38, 30, 21, - & 136,0.001D0, 0, 42, 38, 38, 30, 23, - & 136,0.022D0, 0, 43, 38, 0, 0, 0, - & 136,0.021D0, 0, 43, 39, 0, 0, 0, - & 136,0.042D0, 0, 43, 38, 21, 0, 0, - & 136,0.008D0, 0, 43, 38, 23, 0, 0, - & 136,0.010D0, 0, 43, 38, 38, 30, 0, - & 136,0.050D0, 0,311, 38, 0, 0, 0, - & 136,0.034D0, 0,329, 38, 0, 0, 0, - & 136,0.010D0, 0,369, 38, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 381, 399)/ - & 136,0.031D0, 0, 46, 42, 42, 0, 0, - & 136,0.003D0, 0, 38, 21, 0, 0, 0, - & 136,0.001D0, 0, 38, 23, 0, 0, 0, - & 136,0.002D0, 0, 38, 38, 30, 0, 0, - & 136,0.008D0, 0, 38, 22, 0, 0, 0, - & 136,0.001D0, 0, 38, 38, 38, 30, 30, - & 136,0.003D0, 0, 38, 38, 38, 30, 31, - & 136,0.008D0, 0, 46, 42, 0, 0, 0, - & 136,0.005D0, 0, 46, 43, 0, 0, 0, - & 136,0.026D0, 0, 47, 43, 0, 0, 0, - & 136,0.005D0, 0, 46, 34, 38, 0, 0, - & 136,0.007D0, 0, 38, 56, 0, 0, 0, - & 136,0.023D0, 0, 38, 56, 21, 0, 0, - & 136,0.005D0, 0, 46, 46, 34, 0, 0, - & 137,0.683D0, 0,140, 38, 0, 0, 0, - & 137,0.306D0, 0,136, 21, 0, 0, 0, - & 137,0.011D0, 0,136, 59, 0, 0, 0, - & 138,0.667D0, 0,141, 38, 0, 0, 0, - & 138,0.333D0, 0,137, 21, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 400, 418)/ - & 139,0.220D0, 0,140, 38, 0, 0, 0, - & 139,0.110D0, 0,136, 21, 0, 0, 0, - & 139,0.380D0, 0,141, 38, 0, 0, 0, - & 139,0.190D0, 0,137, 21, 0, 0, 0, - & 139,0.004D0, 0,136, 22, 0, 0, 0, - & 139,0.064D0, 0,141, 38, 21, 0, 0, - & 139,0.032D0, 0,137, 38, 30, 0, 0, - & 140,0.037D0,101,122,127, 34, 0, 0, - & 140,0.037D0,101,124,129, 34, 0, 0, - & 140,0.016D0,101,122,127, 35, 0, 0, - & 140,0.016D0,101,124,129, 35, 0, 0, - & 140,0.013D0, 0, 34, 21,122,127, 0, - & 140,0.013D0, 0, 34, 21,124,129, 0, - & 140,0.012D0, 0, 42, 30,122,127, 0, - & 140,0.012D0, 0, 42, 30,124,129, 0, - & 140,0.003D0,101,122,127, 30, 0, 0, - & 140,0.003D0,101,124,129, 30, 0, 0, - & 140,0.039D0, 0, 34, 38, 0, 0, 0, - & 140,0.091D0, 0, 34, 39, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 419, 437)/ - & 140,0.067D0, 0, 34, 40, 0, 0, 0, - & 140,0.004D0, 0, 34, 38, 21, 0, 0, - & 140,0.100D0, 0, 34, 38, 21, 21, 0, - & 140,0.058D0, 0, 34, 38, 23, 0, 0, - & 140,0.020D0, 0, 34, 38, 24, 0, 0, - & 140,0.006D0, 0, 34, 38, 25, 0, 0, - & 140,0.043D0, 0, 35, 38, 0, 0, 0, - & 140,0.035D0, 0, 35, 39, 0, 0, 0, - & 140,0.007D0, 0,312, 38, 0, 0, 0, - & 140,0.007D0, 0,330, 38, 0, 0, 0, - & 140,0.020D0, 0, 42, 21, 0, 0, 0, - & 140,0.006D0, 0, 42, 22, 0, 0, 0, - & 140,0.009D0, 0, 42, 23, 0, 0, 0, - & 140,0.016D0, 0, 42, 24, 0, 0, 0, - & 140,0.014D0, 0, 42, 25, 0, 0, 0, - & 140,0.003D0, 0, 42,293, 0, 0, 0, - & 140,0.007D0, 0, 42, 56, 0, 0, 0, - & 140,0.003D0, 0, 42, 26, 0, 0, 0, - & 140,0.004D0, 0, 42,294, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 438, 456)/ - & 140,0.006D0, 0, 42, 21, 21, 0, 0, - & 140,0.042D0, 0, 42, 38, 30, 21, 0, - & 140,0.004D0, 0, 42, 38, 38, 30, 30, - & 140,0.076D0, 0, 42, 38, 30, 21, 21, - & 140,0.026D0, 0, 43, 21, 0, 0, 0, - & 140,0.014D0, 0, 43, 22, 0, 0, 0, - & 140,0.014D0, 0, 43, 23, 0, 0, 0, - & 140,0.011D0, 0, 43, 24, 0, 0, 0, - & 140,0.018D0, 0, 43, 38, 30, 0, 0, - & 140,0.004D0, 0, 42, 46, 34, 0, 0, - & 140,0.004D0, 0, 42, 46, 34, 21, 0, - & 140,0.005D0, 0, 42, 42, 50, 0, 0, - & 140,0.002D0, 0, 38, 30, 0, 0, 0, - & 140,0.001D0, 0, 21, 21, 0, 0, 0, - & 140,0.008D0, 0, 38, 30, 21, 0, 0, - & 140,0.007D0, 0, 38, 38, 30, 30, 0, - & 140,0.015D0, 0, 38, 38, 30, 30, 21, - & 140,0.004D0, 0, 46, 34, 0, 0, 0, - & 140,0.003D0, 0, 47, 34, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 457, 475)/ - & 140,0.002D0, 0, 46, 35, 0, 0, 0, - & 140,0.001D0, 0, 50, 42, 0, 0, 0, - & 140,0.002D0, 0, 51, 43, 0, 0, 0, - & 140,0.003D0, 0, 50, 34, 38, 0, 0, - & 140,0.003D0, 0, 42, 46, 30, 0, 0, - & 140,0.001D0, 0, 46, 34, 38, 30, 21, - & 140,0.002D0, 0, 56, 23, 0, 0, 0, - & 140,0.001D0, 0, 56, 38, 30, 0, 0, - & 141,0.636D0, 0,140, 21, 0, 0, 0, - & 141,0.364D0, 0,140, 59, 0, 0, 0, - & 142,0.667D0, 0,137, 30, 0, 0, 0, - & 142,0.333D0, 0,141, 21, 0, 0, 0, - & 143,0.220D0, 0,136, 30, 0, 0, 0, - & 143,0.110D0, 0,140, 21, 0, 0, 0, - & 143,0.380D0, 0,137, 30, 0, 0, 0, - & 143,0.190D0, 0,141, 21, 0, 0, 0, - & 143,0.004D0, 0,140, 22, 0, 0, 0, - & 143,0.064D0, 0,137, 30, 21, 0, 0, - & 143,0.032D0, 0,141, 38, 30, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 476, 494)/ - & 144,0.009D0, 0,124,129, 0, 0, 0, - & 144,0.019D0,101,122,127, 56, 0, 0, - & 144,0.019D0,101,124,129, 56, 0, 0, - & 144,0.025D0,101,122,127, 22, 0, 0, - & 144,0.025D0,101,124,129, 22, 0, 0, - & 144,0.009D0,101,122,127, 25, 0, 0, - & 144,0.009D0,101,124,129, 25, 0, 0, - & 144,0.036D0, 0, 46, 42, 0, 0, 0, - & 144,0.034D0, 0, 46, 43, 0, 0, 0, - & 144,0.007D0, 0, 46,329, 0, 0, 0, - & 144,0.043D0, 0, 47, 42, 0, 0, 0, - & 144,0.058D0, 0, 47, 43, 0, 0, 0, - & 144,0.011D0, 0, 46, 34, 38, 0, 0, - & 144,0.055D0, 0, 46, 34, 38, 21, 0, - & 144,0.003D0, 0, 46, 34, 38, 38, 30, - & 144,0.014D0, 0, 46, 42, 38, 30, 0, - & 144,0.017D0, 0, 50, 34, 38, 38, 0, - & 144,0.036D0, 0, 56, 38, 0, 0, 0, - & 144,0.067D0, 0, 56, 39, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 495, 513)/ - & 144,0.023D0, 0, 56, 38, 21, 0, 0, - & 144,0.018D0, 0, 56, 38, 38, 30, 0, - & 144,0.020D0, 0, 22, 38, 0, 0, 0, - & 144,0.001D0, 0, 23, 38, 0, 0, 0, - & 144,0.009D0, 0, 24, 38, 0, 0, 0, - & 144,0.049D0, 0, 25, 38, 0, 0, 0, - & 144,0.011D0, 0,293, 38, 0, 0, 0, - & 144,0.015D0, 0, 22, 38, 21, 0, 0, - & 144,0.016D0, 0, 25, 38, 21, 0, 0, - & 144,0.103D0, 0, 22, 39, 0, 0, 0, - & 144,0.120D0, 0, 25, 39, 0, 0, 0, - & 144,0.010D0, 0, 38, 38, 30, 0, 0, - & 144,0.046D0, 0, 38, 38, 30, 21, 0, - & 144,0.003D0, 0, 38, 38, 38, 30, 30, - & 144,0.042D0, 0, 38, 30, 30, 38, 39, - & 144,0.001D0, 0, 46, 23, 0, 0, 0, - & 144,0.005D0, 0, 46, 38, 30, 0, 0, - & 144,0.001D0, 0, 46, 56, 0, 0, 0, - & 144,0.004D0, 0, 50, 38, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 514, 532)/ - & 144,0.007D0, 0, 51, 38, 0, 0, 0, - & 145,0.900D0, 0,144, 59, 0, 0, 0, - & 145,0.100D0, 0,144, 21, 0, 0, 0, - & 146,0.500D0, 0,137, 50, 0, 0, 0, - & 146,0.500D0, 0,141, 46, 0, 0, 0, - & 147,0.440D0, 0,136, 50, 0, 0, 0, - & 147,0.440D0, 0,140, 46, 0, 0, 0, - & 147,0.055D0, 0,137, 50, 0, 0, 0, - & 147,0.055D0, 0,141, 46, 0, 0, 0, - & 147,0.010D0, 0,144, 22, 0, 0, 0, - & 148,1.000D0, 0,150, 38, 0, 0, 0, - & 149,1.000D0, 0,150, 38, 0, 0, 0, - & 150,0.028D0,101,122,127, 78, 0, 0, - & 150,0.010D0,101,122,127, 80, 0, 0, - & 150,0.028D0,101,124,129, 78, 0, 0, - & 150,0.010D0,101,124,129, 80, 0, 0, - & 150,0.026D0, 0, 73, 42, 0, 0, 0, - & 150,0.030D0, 0, 73, 42, 21, 0, 0, - & 150,0.029D0, 0, 73, 42, 38, 30, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 533, 551)/ - & 150,0.014D0, 0, 73, 42, 22, 0, 0, - & 150,0.020D0, 0, 73, 43, 0, 0, 0, - & 150,0.029D0, 0, 73, 34, 38, 0, 0, - & 150,0.039D0, 0, 73, 34, 38, 21, 0, - & 150,0.002D0, 0, 73, 34, 38, 38, 30, - & 150,0.010D0, 0, 73, 34, 38, 21, 21, - & 150,0.014D0, 0, 73, 35, 38, 0, 0, - & 150,0.010D0, 0, 74, 42, 0, 0, 0, - & 150,0.020D0, 0, 74, 43, 0, 0, 0, - & 150,0.010D0, 0, 74, 43, 21, 0, 0, - & 150,0.007D0, 0, 85, 34, 0, 0, 0, - & 150,0.014D0, 0, 85, 35, 0, 0, 0, - & 150,0.004D0, 0, 73,293, 0, 0, 0, - & 150,0.003D0, 0, 73, 38, 30, 0, 0, - & 150,0.003D0, 0, 73, 38, 30, 38, 30, - & 150,0.001D0, 0, 73, 56, 0, 0, 0, - & 150,0.002D0, 0, 73, 46, 34, 0, 0, - & 150,0.010D0, 0, 78, 38, 0, 0, 0, - & 150,0.020D0, 0, 78, 39, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 552, 570)/ - & 150,0.030D0, 0, 78, 38, 21, 0, 0, - & 150,0.010D0, 0, 78, 38, 22, 0, 0, - & 150,0.020D0, 0, 78, 38, 24, 0, 0, - & 150,0.035D0, 0, 78, 38, 38, 30, 0, - & 150,0.020D0, 0, 78, 38, 21, 21, 0, - & 150,0.010D0, 0, 78, 38, 38, 30, 21, - & 150,0.010D0, 0, 78, 38, 21, 21, 21, - & 150,0.007D0, 0, 78, 46, 42, 0, 0, - & 150,0.011D0, 0, 79, 38, 0, 0, 0, - & 150,0.022D0, 0, 79, 38, 21, 0, 0, - & 150,0.013D0, 0, 79, 38, 38, 30, 0, - & 150,0.010D0, 0, 79, 38, 21, 21, 0, - & 150,0.007D0, 0, 79, 38, 38, 30, 21, - & 150,0.005D0, 0, 79, 38, 21, 21, 21, - & 150,0.005D0, 0, 80, 38, 0, 0, 0, - & 150,0.015D0, 0, 80, 39, 0, 0, 0, - & 150,0.011D0, 0, 86, 21, 0, 0, 0, - & 150,0.007D0, 0, 86, 22, 0, 0, 0, - & 150,0.010D0, 0, 86, 23, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 571, 589)/ - & 150,0.031D0, 0, 86, 24, 0, 0, 0, - & 150,0.010D0, 0, 86, 25, 0, 0, 0, - & 150,0.004D0, 0, 86, 56, 0, 0, 0, - & 150,0.026D0, 0, 86, 38, 30, 0, 0, - & 150,0.005D0, 0, 86, 38, 38, 30, 30, - & 150,0.005D0, 0, 86, 38, 30, 21, 21, - & 150,0.005D0, 0, 87, 21, 0, 0, 0, - & 150,0.006D0, 0, 87, 23, 0, 0, 0, - & 150,0.004D0, 0, 86, 46, 34, 0, 0, - & 150,0.002D0, 0, 86, 46, 30, 0, 0, - & 150,0.001D0, 0, 86, 46, 30, 21, 0, - & 150,0.016D0, 0, 81, 38, 38, 0, 0, - & 150,0.003D0, 0, 88, 46, 0, 0, 0, - & 150,0.002D0, 0, 89, 46, 0, 0, 0, - & 150,0.003D0, 0, 83, 46, 38, 0, 0, - & 150,0.040D0, 0, 75, 46, 21, 0, 0, - & 150,0.040D0, 0, 75, 46, 38, 30, 0, - & 150,0.020D0, 0, 75, 46, 21, 21, 0, - & 150,0.010D0, 0, 75, 46, 38, 30, 21/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 590, 608)/ - & 150,0.010D0, 0, 75, 46, 21, 21, 21, - & 150,0.020D0, 0, 75, 47, 21, 0, 0, - & 150,0.040D0, 0, 75, 42, 38, 0, 0, - & 150,0.020D0, 0, 75, 42, 39, 0, 0, - & 150,0.010D0, 0, 75, 42, 38, 38, 30, - & 150,0.010D0, 0, 75, 42, 38, 21, 21, - & 150,0.006D0, 0, 75, 43, 38, 0, 0, - & 151,1.000D0, 0,150, 21, 0, 0, 0, - & 152,1.000D0, 0,150, 21, 0, 0, 0, - & 153,1.000D0, 0,150, 30, 0, 0, 0, - & 154,1.000D0, 0,150, 30, 0, 0, 0, - & 155,0.045D0,101,122,127, 88, 0, 0, - & 155,0.005D0,101,122,127, 89, 0, 0, - & 155,0.045D0,101,124,129, 88, 0, 0, - & 155,0.005D0,101,124,129, 89, 0, 0, - & 155,0.021D0, 0, 86, 42, 0, 0, 0, - & 155,0.032D0, 0, 87, 42, 0, 0, 0, - & 155,0.032D0, 0, 79, 38, 42, 0, 0, - & 155,0.045D0, 0, 86, 43, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 609, 627)/ - & 155,0.065D0, 0, 87, 43, 0, 0, 0, - & 155,0.065D0, 0, 79, 38, 43, 0, 0, - & 155,0.055D0, 0, 88, 38, 0, 0, 0, - & 155,0.160D0, 0, 88, 39, 0, 0, 0, - & 155,0.105D0, 0, 89, 38, 0, 0, 0, - & 155,0.320D0, 0, 89, 39, 0, 0, 0, - & 156,1.000D0, 0,155, 59, 0, 0, 0, - & 157,0.667D0, 0,158, 38, 0, 0, 0, - & 157,0.333D0, 0,155, 21, 0, 0, 0, - & 158,0.045D0,101,122,127, 83, 0, 0, - & 158,0.045D0,101,124,129, 83, 0, 0, - & 158,0.005D0,101,122,127, 84, 0, 0, - & 158,0.005D0,101,124,129, 84, 0, 0, - & 158,0.020D0, 0, 79, 42, 0, 0, 0, - & 158,0.020D0, 0, 79, 21, 42, 0, 0, - & 158,0.020D0, 0, 80, 42, 0, 0, 0, - & 158,0.060D0, 0, 79, 43, 0, 0, 0, - & 158,0.060D0, 0, 79, 21, 43, 0, 0, - & 158,0.060D0, 0, 80, 43, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 628, 646)/ - & 158,0.020D0, 0, 86, 34, 0, 0, 0, - & 158,0.060D0, 0, 86, 35, 0, 0, 0, - & 158,0.040D0, 0, 87, 34, 0, 0, 0, - & 158,0.120D0, 0, 87, 35, 0, 0, 0, - & 158,0.020D0, 0, 83, 38, 0, 0, 0, - & 158,0.060D0, 0, 83, 39, 0, 0, 0, - & 158,0.040D0, 0, 84, 38, 0, 0, 0, - & 158,0.120D0, 0, 84, 39, 0, 0, 0, - & 158,0.010D0, 0, 88, 21, 0, 0, 0, - & 158,0.030D0, 0, 88, 23, 0, 0, 0, - & 158,0.020D0, 0, 89, 21, 0, 0, 0, - & 158,0.060D0, 0, 89, 23, 0, 0, 0, - & 158,0.030D0, 0, 88, 56, 0, 0, 0, - & 158,0.030D0, 0, 90, 46, 0, 0, 0, - & 159,1.000D0, 0,158, 59, 0, 0, 0, - & 160,0.670D0, 0,155, 30, 0, 0, 0, - & 160,0.330D0, 0,158, 21, 0, 0, 0, - & 161,0.050D0,101,122,127, 90, 0, 0, - & 161,0.050D0,101,124,129, 90, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 647, 665)/ - & 161,0.075D0, 0, 88, 42, 0, 0, 0, - & 161,0.225D0, 0, 88, 43, 0, 0, 0, - & 161,0.150D0, 0, 89, 42, 0, 0, 0, - & 161,0.450D0, 0, 89, 43, 0, 0, 0, - & 162,1.000D0, 0,161, 59, 0, 0, 0, - & 163,0.028D0, 0, 25, 38, 30, 0, 0, - & 163,0.014D0, 0, 25, 21, 21, 0, 0, - & 163,0.018D0, 0, 39, 31, 0, 0, 0, - & 163,0.009D0, 0, 23, 23, 0, 0, 0, - & 163,0.010D0, 0, 51, 34, 38, 0, 0, - & 163,0.010D0, 0, 43, 47, 30, 0, 0, - & 163,0.004D0, 0, 51, 43, 0, 0, 0, - & 163,0.004D0, 0, 47, 35, 0, 0, 0, - & 163,0.007D0, 0, 56, 56, 0, 0, 0, - & 163,0.022D0, 0, 46, 42, 30, 0, 0, - & 163,0.011D0, 0, 46, 34, 21, 0, 0, - & 163,0.011D0, 0, 50, 42, 21, 0, 0, - & 163,0.022D0, 0, 50, 34, 38, 0, 0, - & 163,0.032D0, 0, 22, 38, 30, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 666, 684)/ - & 163,0.016D0, 0, 22, 21, 21, 0, 0, - & 163,0.020D0, 0, 38, 30, 46, 34, 0, - & 163,0.012D0, 0, 38, 30, 38, 30, 0, - & 163,0.001D0, 0, 73, 91, 0, 0, 0, - & 163,0.001D0, 0, 59, 59, 0, 0, 0, - & 163,0.748D0, 0, 13, 13, 0, 0, 0, - & 164,0.060D0, 0,121,127, 0, 0, 0, - & 164,0.060D0, 0,123,129, 0, 0, 0, - & 164,0.004D0, 0, 39, 30, 0, 0, 0, - & 164,0.004D0, 0, 23, 21, 0, 0, 0, - & 164,0.004D0, 0, 31, 38, 0, 0, 0, - & 164,0.003D0, 0, 41, 31, 0, 0, 0, - & 164,0.003D0, 0, 29, 23, 0, 0, 0, - & 164,0.003D0, 0, 33, 39, 0, 0, 0, - & 164,0.009D0, 0, 24, 38, 38, 30, 30, - & 164,0.007D0, 0, 24, 38, 30, 0, 0, - & 164,0.003D0, 0, 51, 45, 0, 0, 0, - & 164,0.003D0, 0, 43, 53, 0, 0, 0, - & 164,0.003D0, 0, 24, 51, 42, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 685, 703)/ - & 164,0.003D0, 0, 24, 43, 50, 0, 0, - & 164,0.004D0, 0, 24, 26, 0, 0, 0, - & 164,0.003D0, 0, 46, 35, 0, 0, 0, - & 164,0.003D0, 0, 34, 47, 0, 0, 0, - & 164,0.002D0, 0, 50, 43, 0, 0, 0, - & 164,0.002D0, 0, 42, 51, 0, 0, 0, - & 164,0.003D0, 0, 24, 21, 21, 0, 0, - & 164,0.002D0, 0,286, 30, 0, 0, 0, - & 164,0.002D0, 0,287, 38, 0, 0, 0, - & 164,0.003D0, 0, 24, 46, 42, 30, 0, - & 164,0.003D0, 0, 24, 34, 50, 38, 0, - & 164,0.002D0, 0,285, 21, 0, 0, 0, - & 164,0.001D0, 0, 56, 51, 42, 0, 0, - & 164,0.001D0, 0, 56, 43, 50, 0, 0, - & 164,0.001D0, 0, 24, 50, 42, 0, 0, - & 164,0.001D0, 0, 24, 46, 34, 0, 0, - & 164,0.002D0, 0, 56, 38, 30, 38, 30, - & 164,0.002D0, 0, 85, 91, 30, 0, 0, - & 164,0.002D0, 0,103, 73, 38, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 704, 722)/ - & 164,0.002D0, 0, 24, 22, 0, 0, 0, - & 164,0.001D0, 0, 56, 50, 42, 0, 0, - & 164,0.001D0, 0, 56, 46, 34, 0, 0, - & 164,0.001D0, 0, 73, 91, 24, 0, 0, - & 164,0.001D0, 0, 85,103, 0, 0, 0, - & 164,0.001D0, 0, 82,100, 0, 0, 0, - & 164,0.001D0, 0, 87,105, 0, 0, 0, - & 164,0.001D0, 0, 73, 91, 25, 0, 0, - & 164,0.001D0, 0, 56, 58, 0, 0, 0, - & 164,0.001D0, 0, 56, 38, 30, 0, 0, - & 164,0.001D0, 0, 56, 46, 42, 30, 0, - & 164,0.001D0, 0, 56, 34, 50, 38, 0, - & 164,0.001D0, 0, 56, 22, 0, 0, 0, - & 164,0.001D0, 0, 84,102, 0, 0, 0, - & 164,0.001D0, 0, 73, 34, 98, 0, 0, - & 164,0.001D0, 0, 91, 46, 80, 0, 0, - & 164,0.034D0, 0, 38, 38, 30, 30, 21, - & 164,0.029D0, 0, 23, 23, 23, 21, 0, - & 164,0.015D0, 0, 38, 30, 21, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 723, 741)/ - & 164,0.012D0, 0, 38, 30, 21, 34, 46, - & 164,0.009D0, 0, 23, 23, 23, 24, 0, - & 164,0.007D0, 0, 38, 30, 34, 46, 0, - & 164,0.002D0, 0, 46, 42, 30, 0, 0, - & 164,0.001D0, 0, 46, 34, 21, 0, 0, - & 164,0.001D0, 0, 50, 42, 21, 0, 0, - & 164,0.002D0, 0, 50, 34, 38, 0, 0, - & 164,0.006D0, 0, 73, 91, 38, 30, 0, - & 164,0.004D0, 0, 38, 30, 38, 30, 0, - & 164,0.004D0, 0, 38, 30, 38, 30, 23, - & 164,0.004D0, 0, 75, 93, 38, 30, 0, - & 164,0.001D0, 0, 86,104, 0, 0, 0, - & 164,0.001D0, 0, 79, 97, 0, 0, 0, - & 164,0.001D0, 0, 81, 99, 0, 0, 0, - & 164,0.003D0, 0, 23, 23, 34, 46, 0, - & 164,0.002D0, 0, 73, 91, 38, 30, 21, - & 164,0.002D0, 0, 73, 91, 0, 0, 0, - & 164,0.002D0, 0, 73, 91, 22, 0, 0, - & 164,0.002D0, 0, 73, 93, 30, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 742, 760)/ - & 164,0.002D0, 0, 75, 93, 0, 0, 0, - & 164,0.001D0, 0, 83,102, 0, 0, 0, - & 164,0.001D0, 0, 88,106, 0, 0, 0, - & 164,0.001D0, 0, 78, 96, 0, 0, 0, - & 164,0.001D0, 0, 73, 91, 21, 0, 0, - & 164,0.001D0, 0, 78,104, 38, 0, 0, - & 164,0.001D0, 0, 96, 86, 30, 0, 0, - & 164,0.001D0, 0, 73, 34, 96, 0, 0, - & 164,0.001D0, 0, 91, 46, 78, 0, 0, - & 164,0.001D0, 0, 46, 34, 46, 34, 0, - & 164,0.013D0, 0, 59,163, 0, 0, 0, - & 164,0.008D0, 0, 59, 38, 30, 21, 21, - & 164,0.004D0, 0, 59, 22, 38, 30, 0, - & 164,0.002D0, 0, 59, 22, 21, 21, 0, - & 164,0.003D0, 0, 59, 39, 31, 0, 0, - & 164,0.002D0, 0, 59, 23, 23, 0, 0, - & 164,0.004D0, 0, 59, 25, 0, 0, 0, - & 164,0.003D0, 0, 59, 38, 30, 38, 30, - & 164,0.002D0, 0, 59, 24, 24, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 761, 779)/ - & 164,0.001D0, 0, 59, 26, 0, 0, 0, - & 164,0.001D0, 0, 59, 22, 0, 0, 0, - & 164,0.001D0, 0, 59, 28, 0, 0, 0, - & 164,0.001D0, 0, 59, 58, 0, 0, 0, - & 164,0.020D0, 0, 1, 7, 0, 0, 0, - & 164,0.080D0, 0, 2, 8, 0, 0, 0, - & 164,0.020D0, 0, 3, 9, 0, 0, 0, - & 164,0.364D0,130, 13, 13, 13, 0, 0, - & 164,0.091D0,130, 13, 13, 59, 0, 0, - & 165,0.037D0, 0, 38, 30, 38, 30, 0, - & 165,0.030D0, 0, 38, 30, 46, 34, 0, - & 165,0.016D0, 0, 23, 38, 30, 0, 0, - & 165,0.015D0, 0, 23, 38, 30, 38, 30, - & 165,0.004D0, 0, 46, 43, 30, 0, 0, - & 165,0.002D0, 0, 46, 35, 21, 0, 0, - & 165,0.002D0, 0, 51, 43, 21, 0, 0, - & 165,0.004D0, 0, 51, 35, 38, 0, 0, - & 165,0.008D0, 0, 38, 30, 0, 0, 0, - & 165,0.007D0, 0, 46, 34, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 780, 798)/ - & 165,0.005D0, 0, 38, 30, 73, 91, 0, - & 165,0.003D0, 0, 21, 21, 0, 0, 0, - & 165,0.003D0, 0, 22, 22, 0, 0, 0, - & 165,0.007D0, 0, 59,164, 0, 0, 0, - & 165,0.857D0, 0, 13, 13, 0, 0, 0, - & 166,0.008D0, 0,121,127, 0, 0, 0, - & 166,0.008D0, 0,123,129, 0, 0, 0, - & 166,0.001D0, 0,125,131, 0, 0, 0, - & 166,0.338D0, 0,164, 38, 30, 0, 0, - & 166,0.169D0, 0,164, 21, 21, 0, 0, - & 166,0.027D0, 0,164, 22, 0, 0, 0, - & 166,0.001D0, 0,164, 21, 0, 0, 0, - & 166,0.004D0, 0, 23, 23, 23, 21, 0, - & 166,0.003D0, 0, 23, 23, 21, 0, 0, - & 166,0.002D0, 0, 38, 30, 46, 34, 0, - & 166,0.001D0, 0, 38, 30, 73, 91, 0, - & 166,0.093D0, 0, 59,165, 0, 0, 0, - & 166,0.087D0, 0, 59,302, 0, 0, 0, - & 166,0.078D0, 0, 59,303, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 799, 817)/ - & 166,0.003D0, 0, 59,163, 0, 0, 0, - & 166,0.003D0, 0, 1, 7, 0, 0, 0, - & 166,0.012D0, 0, 2, 8, 0, 0, 0, - & 166,0.003D0, 0, 3, 9, 0, 0, 0, - & 166,0.127D0,130, 13, 13, 13, 0, 0, - & 166,0.032D0,130, 13, 13, 59, 0, 0, - & 167,0.500D0, 0,136,171, 0, 0, 0, - & 167,0.500D0, 0,140,175, 0, 0, 0, - & 171,0.067D0,101,128,121, 50, 0, 0, - & 171,0.067D0,101,130,123, 50, 0, 0, - & 171,0.048D0,101,128,121, 51, 0, 0, - & 171,0.048D0,101,130,123, 51, 0, 0, - & 171,0.003D0, 0,128,121, 46, 30, 0, - & 171,0.003D0, 0,130,123, 46, 30, 0, - & 171,0.006D0,101,128,121, 21, 0, 0, - & 171,0.006D0,101,130,123, 21, 0, 0, - & 171,0.002D0,101,128,121, 23, 0, 0, - & 171,0.002D0,101,130,123, 23, 0, 0, - & 171,0.055D0, 0, 46, 30, 30, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 818, 836)/ - & 171,0.031D0, 0, 46, 31, 30, 0, 0, - & 171,0.042D0, 0, 46, 30, 30, 21, 21, - & 171,0.002D0, 0, 46, 30, 30, 30, 39, - & 171,0.021D0, 0, 47, 30, 30, 0, 0, - & 171,0.027D0, 0, 50, 30, 0, 0, 0, - & 171,0.066D0, 0, 50, 31, 0, 0, 0, - & 171,0.081D0, 0, 50, 32, 0, 0, 0, - & 171,0.024D0, 0, 50, 30, 21, 0, 0, - & 171,0.004D0, 0, 50, 30, 23, 0, 0, - & 171,0.069D0, 0, 50, 30, 30, 38, 21, - & 171,0.001D0, 0, 50, 30, 30, 38, 23, - & 171,0.022D0, 0, 51, 30, 0, 0, 0, - & 171,0.021D0, 0, 51, 31, 0, 0, 0, - & 171,0.042D0, 0, 51, 30, 21, 0, 0, - & 171,0.008D0, 0, 51, 30, 23, 0, 0, - & 171,0.010D0, 0, 51, 30, 30, 38, 0, - & 171,0.050D0, 0,309, 30, 0, 0, 0, - & 171,0.034D0, 0,328, 30, 0, 0, 0, - & 171,0.010D0, 0,368, 30, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 837, 855)/ - & 171,0.031D0, 0, 34, 50, 50, 0, 0, - & 171,0.003D0, 0, 30, 21, 0, 0, 0, - & 171,0.001D0, 0, 30, 23, 0, 0, 0, - & 171,0.002D0, 0, 30, 30, 38, 0, 0, - & 171,0.008D0, 0, 30, 22, 0, 0, 0, - & 171,0.001D0, 0, 30, 30, 30, 38, 38, - & 171,0.003D0, 0, 30, 30, 30, 38, 39, - & 171,0.008D0, 0, 34, 50, 0, 0, 0, - & 171,0.005D0, 0, 34, 51, 0, 0, 0, - & 171,0.026D0, 0, 35, 51, 0, 0, 0, - & 171,0.005D0, 0, 34, 46, 30, 0, 0, - & 171,0.007D0, 0, 30, 56, 0, 0, 0, - & 171,0.023D0, 0, 30, 56, 21, 0, 0, - & 171,0.005D0, 0, 34, 34, 46, 0, 0, - & 172,0.683D0, 0,175, 30, 0, 0, 0, - & 172,0.306D0, 0,171, 21, 0, 0, 0, - & 172,0.011D0, 0,171, 59, 0, 0, 0, - & 173,0.667D0, 0,176, 30, 0, 0, 0, - & 173,0.333D0, 0,172, 21, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 856, 874)/ - & 174,0.220D0, 0,175, 30, 0, 0, 0, - & 174,0.110D0, 0,171, 21, 0, 0, 0, - & 174,0.380D0, 0,176, 30, 0, 0, 0, - & 174,0.190D0, 0,172, 21, 0, 0, 0, - & 174,0.004D0, 0,171, 22, 0, 0, 0, - & 174,0.064D0, 0,176, 30, 21, 0, 0, - & 174,0.032D0, 0,172, 38, 30, 0, 0, - & 175,0.037D0,101,128,121, 46, 0, 0, - & 175,0.037D0,101,130,123, 46, 0, 0, - & 175,0.016D0,101,128,121, 47, 0, 0, - & 175,0.016D0,101,130,123, 47, 0, 0, - & 175,0.013D0, 0,128,121, 46, 21, 0, - & 175,0.013D0, 0,130,123, 46, 21, 0, - & 175,0.012D0, 0,128,121, 50, 38, 0, - & 175,0.012D0, 0,130,123, 50, 38, 0, - & 175,0.003D0,101,128,121, 38, 0, 0, - & 175,0.003D0,101,130,123, 38, 0, 0, - & 175,0.039D0, 0, 46, 30, 0, 0, 0, - & 175,0.091D0, 0, 46, 31, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 875, 893)/ - & 175,0.067D0, 0, 46, 32, 0, 0, 0, - & 175,0.004D0, 0, 46, 30, 21, 0, 0, - & 175,0.100D0, 0, 46, 30, 21, 21, 0, - & 175,0.058D0, 0, 46, 30, 23, 0, 0, - & 175,0.020D0, 0, 46, 30, 24, 0, 0, - & 175,0.006D0, 0, 46, 30, 25, 0, 0, - & 175,0.043D0, 0, 47, 30, 0, 0, 0, - & 175,0.035D0, 0, 47, 31, 0, 0, 0, - & 175,0.007D0, 0,310, 30, 0, 0, 0, - & 175,0.007D0, 0,327, 30, 0, 0, 0, - & 175,0.020D0, 0, 50, 21, 0, 0, 0, - & 175,0.006D0, 0, 50, 22, 0, 0, 0, - & 175,0.009D0, 0, 50, 23, 0, 0, 0, - & 175,0.016D0, 0, 50, 24, 0, 0, 0, - & 175,0.014D0, 0, 50, 25, 0, 0, 0, - & 175,0.003D0, 0, 50,293, 0, 0, 0, - & 175,0.007D0, 0, 50, 56, 0, 0, 0, - & 175,0.003D0, 0, 50, 26, 0, 0, 0, - & 175,0.004D0, 0, 50,294, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 894, 912)/ - & 175,0.006D0, 0, 50, 21, 21, 0, 0, - & 175,0.042D0, 0, 50, 30, 38, 21, 0, - & 175,0.004D0, 0, 50, 30, 30, 38, 38, - & 175,0.076D0, 0, 50, 30, 38, 21, 21, - & 175,0.026D0, 0, 51, 21, 0, 0, 0, - & 175,0.014D0, 0, 51, 22, 0, 0, 0, - & 175,0.014D0, 0, 51, 23, 0, 0, 0, - & 175,0.011D0, 0, 51, 24, 0, 0, 0, - & 175,0.018D0, 0, 51, 30, 38, 0, 0, - & 175,0.004D0, 0, 50, 34, 46, 0, 0, - & 175,0.004D0, 0, 50, 34, 46, 21, 0, - & 175,0.005D0, 0, 50, 50, 42, 0, 0, - & 175,0.002D0, 0, 30, 38, 0, 0, 0, - & 175,0.001D0, 0, 21, 21, 0, 0, 0, - & 175,0.008D0, 0, 30, 38, 21, 0, 0, - & 175,0.007D0, 0, 30, 30, 38, 38, 0, - & 175,0.015D0, 0, 30, 30, 38, 38, 21, - & 175,0.004D0, 0, 34, 46, 0, 0, 0, - & 175,0.003D0, 0, 35, 46, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 913, 931)/ - & 175,0.002D0, 0, 34, 47, 0, 0, 0, - & 175,0.001D0, 0, 42, 50, 0, 0, 0, - & 175,0.002D0, 0, 43, 51, 0, 0, 0, - & 175,0.003D0, 0, 42, 46, 30, 0, 0, - & 175,0.003D0, 0, 50, 34, 38, 0, 0, - & 175,0.001D0, 0, 34, 46, 30, 38, 21, - & 175,0.002D0, 0, 56, 23, 0, 0, 0, - & 175,0.001D0, 0, 56, 30, 38, 0, 0, - & 176,0.636D0, 0,175, 21, 0, 0, 0, - & 176,0.364D0, 0,175, 59, 0, 0, 0, - & 177,0.667D0, 0,172, 38, 0, 0, 0, - & 177,0.333D0, 0,176, 21, 0, 0, 0, - & 178,0.220D0, 0,171, 38, 0, 0, 0, - & 178,0.110D0, 0,175, 21, 0, 0, 0, - & 178,0.380D0, 0,172, 38, 0, 0, 0, - & 178,0.190D0, 0,176, 21, 0, 0, 0, - & 178,0.004D0, 0,175, 22, 0, 0, 0, - & 178,0.064D0, 0,172, 38, 21, 0, 0, - & 178,0.032D0, 0,176, 38, 30, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 932, 950)/ - & 179,0.009D0, 0,130,123, 0, 0, 0, - & 179,0.019D0,101,128,121, 56, 0, 0, - & 179,0.019D0,101,130,123, 56, 0, 0, - & 179,0.025D0,101,128,121, 22, 0, 0, - & 179,0.025D0,101,130,123, 22, 0, 0, - & 179,0.009D0,101,128,121, 25, 0, 0, - & 179,0.009D0,101,130,123, 25, 0, 0, - & 179,0.036D0, 0, 34, 50, 0, 0, 0, - & 179,0.034D0, 0, 34, 51, 0, 0, 0, - & 179,0.007D0, 0, 34,328, 0, 0, 0, - & 179,0.043D0, 0, 35, 50, 0, 0, 0, - & 179,0.058D0, 0, 35, 51, 0, 0, 0, - & 179,0.011D0, 0, 34, 46, 30, 0, 0, - & 179,0.055D0, 0, 34, 46, 30, 21, 0, - & 179,0.003D0, 0, 34, 46, 30, 38, 30, - & 179,0.014D0, 0, 34, 50, 38, 30, 0, - & 179,0.017D0, 0, 42, 46, 30, 30, 0, - & 179,0.036D0, 0, 56, 30, 0, 0, 0, - & 179,0.067D0, 0, 56, 31, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 951, 969)/ - & 179,0.023D0, 0, 56, 30, 21, 0, 0, - & 179,0.018D0, 0, 56, 30, 38, 30, 0, - & 179,0.020D0, 0, 22, 30, 0, 0, 0, - & 179,0.001D0, 0, 23, 30, 0, 0, 0, - & 179,0.009D0, 0, 24, 30, 0, 0, 0, - & 179,0.049D0, 0, 25, 30, 0, 0, 0, - & 179,0.011D0, 0,293, 30, 0, 0, 0, - & 179,0.015D0, 0, 22, 30, 21, 0, 0, - & 179,0.016D0, 0, 25, 30, 21, 0, 0, - & 179,0.103D0, 0, 22, 31, 0, 0, 0, - & 179,0.120D0, 0, 25, 31, 0, 0, 0, - & 179,0.010D0, 0, 30, 38, 30, 0, 0, - & 179,0.046D0, 0, 30, 38, 30, 21, 0, - & 179,0.003D0, 0, 30, 38, 38, 30, 30, - & 179,0.042D0, 0, 30, 38, 38, 30, 31, - & 179,0.001D0, 0, 34, 23, 0, 0, 0, - & 179,0.005D0, 0, 34, 38, 30, 0, 0, - & 179,0.001D0, 0, 34, 56, 0, 0, 0, - & 179,0.004D0, 0, 42, 30, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 970, 988)/ - & 179,0.007D0, 0, 43, 30, 0, 0, 0, - & 180,0.900D0, 0,179, 59, 0, 0, 0, - & 180,0.100D0, 0,179, 21, 0, 0, 0, - & 181,0.500D0, 0,172, 42, 0, 0, 0, - & 181,0.500D0, 0,176, 34, 0, 0, 0, - & 182,0.440D0, 0,171, 42, 0, 0, 0, - & 182,0.440D0, 0,175, 34, 0, 0, 0, - & 182,0.055D0, 0,172, 42, 0, 0, 0, - & 182,0.055D0, 0,176, 34, 0, 0, 0, - & 182,0.010D0, 0,179, 22, 0, 0, 0, - & 183,1.000D0, 0,185, 30, 0, 0, 0, - & 184,1.000D0, 0,185, 30, 0, 0, 0, - & 185,0.028D0,101,128,121, 96, 0, 0, - & 185,0.010D0,101,128,121, 98, 0, 0, - & 185,0.028D0,101,130,123, 96, 0, 0, - & 185,0.010D0,101,130,123, 98, 0, 0, - & 185,0.026D0, 0, 91, 50, 0, 0, 0, - & 185,0.030D0, 0, 91, 50, 21, 0, 0, - & 185,0.029D0, 0, 91, 50, 38, 30, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I= 989,1007)/ - & 185,0.014D0, 0, 91, 50, 22, 0, 0, - & 185,0.020D0, 0, 91, 51, 0, 0, 0, - & 185,0.029D0, 0, 91, 46, 30, 0, 0, - & 185,0.039D0, 0, 91, 46, 30, 21, 0, - & 185,0.002D0, 0, 91, 46, 30, 30, 38, - & 185,0.010D0, 0, 91, 46, 30, 21, 21, - & 185,0.014D0, 0, 91, 47, 30, 0, 0, - & 185,0.010D0, 0, 92, 50, 0, 0, 0, - & 185,0.020D0, 0, 92, 51, 0, 0, 0, - & 185,0.010D0, 0, 92, 51, 21, 0, 0, - & 185,0.007D0, 0,103, 46, 0, 0, 0, - & 185,0.014D0, 0,103, 47, 0, 0, 0, - & 185,0.004D0, 0, 91,293, 0, 0, 0, - & 185,0.003D0, 0, 91, 38, 30, 0, 0, - & 185,0.003D0, 0, 91, 38, 30, 38, 30, - & 185,0.001D0, 0, 91, 56, 0, 0, 0, - & 185,0.002D0, 0, 91, 46, 34, 0, 0, - & 185,0.010D0, 0, 96, 30, 0, 0, 0, - & 185,0.020D0, 0, 96, 31, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1008,1026)/ - & 185,0.030D0, 0, 96, 30, 21, 0, 0, - & 185,0.010D0, 0, 96, 30, 22, 0, 0, - & 185,0.020D0, 0, 96, 30, 24, 0, 0, - & 185,0.035D0, 0, 96, 30, 30, 38, 0, - & 185,0.020D0, 0, 96, 30, 21, 21, 0, - & 185,0.010D0, 0, 96, 30, 38, 30, 21, - & 185,0.010D0, 0, 96, 30, 21, 21, 21, - & 185,0.007D0, 0, 96, 34, 50, 0, 0, - & 185,0.011D0, 0, 97, 30, 0, 0, 0, - & 185,0.022D0, 0, 97, 30, 21, 0, 0, - & 185,0.013D0, 0, 97, 30, 38, 30, 0, - & 185,0.010D0, 0, 97, 30, 21, 21, 0, - & 185,0.007D0, 0, 97, 30, 38, 30, 21, - & 185,0.005D0, 0, 97, 30, 21, 21, 21, - & 185,0.005D0, 0, 98, 30, 0, 0, 0, - & 185,0.015D0, 0, 98, 31, 0, 0, 0, - & 185,0.011D0, 0,104, 21, 0, 0, 0, - & 185,0.007D0, 0,104, 22, 0, 0, 0, - & 185,0.010D0, 0,104, 23, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1027,1045)/ - & 185,0.031D0, 0,104, 24, 0, 0, 0, - & 185,0.010D0, 0,104, 25, 0, 0, 0, - & 185,0.004D0, 0,104, 56, 0, 0, 0, - & 185,0.026D0, 0,104, 38, 30, 0, 0, - & 185,0.005D0, 0,104, 38, 38, 30, 30, - & 185,0.005D0, 0,104, 38, 30, 21, 21, - & 185,0.005D0, 0,105, 21, 0, 0, 0, - & 185,0.006D0, 0,105, 23, 0, 0, 0, - & 185,0.004D0, 0,104, 46, 34, 0, 0, - & 185,0.002D0, 0,104, 34, 38, 0, 0, - & 185,0.001D0, 0,104, 34, 38, 21, 0, - & 185,0.016D0, 0, 99, 30, 30, 0, 0, - & 185,0.003D0, 0,106, 34, 0, 0, 0, - & 185,0.002D0, 0,107, 34, 0, 0, 0, - & 185,0.003D0, 0,101, 34, 30, 0, 0, - & 185,0.040D0, 0, 93, 34, 21, 0, 0, - & 185,0.040D0, 0, 93, 34, 38, 30, 0, - & 185,0.020D0, 0, 93, 34, 21, 21, 0, - & 185,0.010D0, 0, 93, 34, 38, 30, 21/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1046,1064)/ - & 185,0.010D0, 0, 93, 34, 21, 21, 21, - & 185,0.020D0, 0, 93, 35, 21, 0, 0, - & 185,0.040D0, 0, 93, 50, 30, 0, 0, - & 185,0.020D0, 0, 93, 50, 31, 0, 0, - & 185,0.010D0, 0, 93, 50, 30, 38, 30, - & 185,0.010D0, 0, 93, 50, 30, 21, 21, - & 185,0.006D0, 0, 93, 51, 30, 0, 0, - & 186,1.000D0, 0,185, 21, 0, 0, 0, - & 187,1.000D0, 0,185, 21, 0, 0, 0, - & 188,1.000D0, 0,185, 38, 0, 0, 0, - & 189,1.000D0, 0,185, 38, 0, 0, 0, - & 190,0.045D0,101,128,121,106, 0, 0, - & 190,0.005D0,101,128,121,107, 0, 0, - & 190,0.045D0,101,130,123,106, 0, 0, - & 190,0.005D0,101,130,123,107, 0, 0, - & 190,0.021D0, 0,104, 50, 0, 0, 0, - & 190,0.032D0, 0,105, 50, 0, 0, 0, - & 190,0.032D0, 0, 97, 30, 50, 0, 0, - & 190,0.045D0, 0,104, 51, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1065,1083)/ - & 190,0.065D0, 0,105, 51, 0, 0, 0, - & 190,0.065D0, 0, 97, 30, 51, 0, 0, - & 190,0.055D0, 0,106, 30, 0, 0, 0, - & 190,0.160D0, 0,106, 31, 0, 0, 0, - & 190,0.105D0, 0,107, 30, 0, 0, 0, - & 190,0.320D0, 0,107, 31, 0, 0, 0, - & 191,1.000D0, 0,190, 59, 0, 0, 0, - & 192,0.667D0, 0,193, 30, 0, 0, 0, - & 192,0.333D0, 0,190, 21, 0, 0, 0, - & 193,0.045D0,101,128,121,101, 0, 0, - & 193,0.045D0,101,130,123,101, 0, 0, - & 193,0.005D0,101,128,121,102, 0, 0, - & 193,0.005D0,101,130,123,102, 0, 0, - & 193,0.020D0, 0, 97, 50, 0, 0, 0, - & 193,0.020D0, 0, 97, 21, 50, 0, 0, - & 193,0.020D0, 0, 98, 50, 0, 0, 0, - & 193,0.060D0, 0, 97, 51, 0, 0, 0, - & 193,0.060D0, 0, 97, 21, 51, 0, 0, - & 193,0.060D0, 0, 98, 51, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1084,1102)/ - & 193,0.020D0, 0,104, 46, 0, 0, 0, - & 193,0.060D0, 0,104, 47, 0, 0, 0, - & 193,0.040D0, 0,105, 46, 0, 0, 0, - & 193,0.120D0, 0,105, 47, 0, 0, 0, - & 193,0.020D0, 0,101, 30, 0, 0, 0, - & 193,0.060D0, 0,101, 31, 0, 0, 0, - & 193,0.040D0, 0,102, 30, 0, 0, 0, - & 193,0.120D0, 0,102, 31, 0, 0, 0, - & 193,0.010D0, 0,106, 21, 0, 0, 0, - & 193,0.030D0, 0,106, 23, 0, 0, 0, - & 193,0.020D0, 0,107, 21, 0, 0, 0, - & 193,0.060D0, 0,107, 23, 0, 0, 0, - & 193,0.030D0, 0,106, 56, 0, 0, 0, - & 193,0.030D0, 0,108, 34, 0, 0, 0, - & 194,1.000D0, 0,193, 59, 0, 0, 0, - & 195,0.670D0, 0,190, 38, 0, 0, 0, - & 195,0.330D0, 0,193, 21, 0, 0, 0, - & 196,0.050D0,101,128,121,108, 0, 0, - & 196,0.050D0,101,130,123,108, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1103,1121)/ - & 196,0.075D0, 0,106, 50, 0, 0, 0, - & 196,0.225D0, 0,106, 51, 0, 0, 0, - & 196,0.150D0, 0,107, 50, 0, 0, 0, - & 196,0.450D0, 0,107, 51, 0, 0, 0, - & 197,1.000D0, 0,196, 59, 0, 0, 0, - & 209,0.250D0,100, 1, 8, 4, 0, 0, - & 209,0.250D0,100, 3, 10, 4, 0, 0, - & 209,0.250D0,100, 5, 12, 4, 0, 0, - & 209,0.085D0,100,121,128, 4, 0, 0, - & 209,0.085D0,100,123,130, 4, 0, 0, - & 209,0.080D0,100,125,132, 4, 0, 0, - & 210,0.250D0,100, 2, 7,209, 0, 0, - & 210,0.250D0,100, 4, 9,209, 0, 0, - & 210,0.250D0,100, 6, 11,209, 0, 0, - & 210,0.085D0,100,122,127,209, 0, 0, - & 210,0.085D0,100,124,129,209, 0, 0, - & 210,0.080D0,100,126,131,209, 0, 0, - & 211,0.250D0,100, 1, 8, 6, 0, 0, - & 211,0.250D0,100, 3, 10, 6, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1122,1140)/ - & 211,0.250D0,100, 5, 12, 6, 0, 0, - & 211,0.085D0,100,121,128, 6, 0, 0, - & 211,0.085D0,100,123,130, 6, 0, 0, - & 211,0.080D0,100,125,132, 6, 0, 0, - & 212,0.250D0,100, 2, 7,211, 0, 0, - & 212,0.250D0,100, 4, 9,211, 0, 0, - & 212,0.250D0,100, 6, 11,211, 0, 0, - & 212,0.085D0,100,122,127,211, 0, 0, - & 212,0.085D0,100,124,129,211, 0, 0, - & 212,0.080D0,100,126,131,211, 0, 0, - & 215,0.250D0,100, 7, 2, 10, 0, 0, - & 215,0.250D0,100, 9, 4, 10, 0, 0, - & 215,0.250D0,100, 11, 6, 10, 0, 0, - & 215,0.085D0,100,127,122, 10, 0, 0, - & 215,0.085D0,100,129,124, 10, 0, 0, - & 215,0.080D0,100,131,126, 10, 0, 0, - & 216,0.250D0,100, 8, 1,215, 0, 0, - & 216,0.250D0,100, 10, 3,215, 0, 0, - & 216,0.250D0,100, 12, 5,215, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1141,1159)/ - & 216,0.085D0,100,128,121,215, 0, 0, - & 216,0.085D0,100,130,123,215, 0, 0, - & 216,0.080D0,100,132,125,215, 0, 0, - & 217,0.250D0,100, 7, 2, 12, 0, 0, - & 217,0.250D0,100, 9, 4, 12, 0, 0, - & 217,0.250D0,100, 11, 6, 12, 0, 0, - & 217,0.085D0,100,127,122, 12, 0, 0, - & 217,0.085D0,100,129,124, 12, 0, 0, - & 217,0.080D0,100,131,126, 12, 0, 0, - & 218,0.250D0,100, 8, 1,217, 0, 0, - & 218,0.250D0,100, 10, 3,217, 0, 0, - & 218,0.250D0,100, 12, 5,217, 0, 0, - & 218,0.085D0,100,128,121,217, 0, 0, - & 218,0.085D0,100,130,123,217, 0, 0, - & 218,0.080D0,100,132,125,217, 0, 0, - & 221,0.016D0,101,121,128,136, 0, 0, - & 221,0.016D0,101,123,130,136, 0, 0, - & 221,0.008D0,101,125,132,136, 0, 0, - & 221,0.048D0,101,121,128,137, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1160,1178)/ - & 221,0.048D0,101,123,130,137, 0, 0, - & 221,0.022D0,101,125,132,137, 0, 0, - & 221,0.003D0,101,121,128,331, 0, 0, - & 221,0.003D0,101,123,130,331, 0, 0, - & 221,0.001D0,101,125,132,331, 0, 0, - & 221,0.008D0,101,121,128,138, 0, 0, - & 221,0.008D0,101,123,130,138, 0, 0, - & 221,0.004D0,101,125,132,138, 0, 0, - & 221,0.008D0,101,121,128,313, 0, 0, - & 221,0.008D0,101,123,130,313, 0, 0, - & 221,0.004D0,101,125,132,313, 0, 0, - & 221,0.013D0,101,121,128,139, 0, 0, - & 221,0.013D0,101,123,130,139, 0, 0, - & 221,0.006D0,101,125,132,139, 0, 0, - & 221,0.004D0, 0,136, 30, 0, 0, 0, - & 221,0.010D0, 0,136, 31, 0, 0, 0, - & 221,0.006D0, 0,136, 32, 0, 0, 0, - & 221,0.003D0, 0,137, 30, 0, 0, 0, - & 221,0.009D0, 0,137, 31, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1179,1197)/ - & 221,0.017D0, 0,137, 32, 0, 0, 0, - & 221,0.011D0, 0,136,179, 0, 0, 0, - & 221,0.015D0, 0,136,180, 0, 0, 0, - & 221,0.011D0, 0,137,179, 0, 0, 0, - & 221,0.022D0, 0,137,180, 0, 0, 0, - & 221,0.001D0, 0,164, 42, 0, 0, 0, - & 221,0.002D0, 0,164, 43, 0, 0, 0, - & 221,0.001D0, 0,165, 42, 0, 0, 0, - & 221,0.001D0, 0,165, 43, 0, 0, 0, - & 221,0.001D0, 0,166, 42, 0, 0, 0, - & 221,0.001D0, 0,166, 43, 0, 0, 0, - & 221,0.207D0,100, 1, 8, 4, 7, 0, - & 221,0.207D0,100, 3, 10, 4, 7, 0, - & 221,0.024D0,100, 1, 8, 2, 7, 0, - & 221,0.024D0,100, 3, 10, 2, 7, 0, - & 221,0.012D0,100, 3, 8, 4, 7, 0, - & 221,0.012D0,100, 1, 10, 4, 7, 0, - & 221,0.069D0,100, 4, 8, 1, 7, 0, - & 221,0.069D0,100, 4, 10, 3, 7, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1198,1216)/ - & 221,0.008D0,100, 2, 8, 1, 7, 0, - & 221,0.008D0,100, 2, 10, 3, 7, 0, - & 221,0.004D0,100, 4, 8, 3, 7, 0, - & 221,0.004D0,100, 4, 10, 1, 7, 0, - & 222,0.016D0,101,121,128,140, 0, 0, - & 222,0.016D0,101,123,130,140, 0, 0, - & 222,0.008D0,101,125,132,140, 0, 0, - & 222,0.048D0,101,121,128,141, 0, 0, - & 222,0.048D0,101,123,130,141, 0, 0, - & 222,0.022D0,101,125,132,141, 0, 0, - & 222,0.003D0,101,121,128,332, 0, 0, - & 222,0.003D0,101,123,130,332, 0, 0, - & 222,0.001D0,101,125,132,332, 0, 0, - & 222,0.008D0,101,121,128,142, 0, 0, - & 222,0.008D0,101,123,130,142, 0, 0, - & 222,0.004D0,101,125,132,142, 0, 0, - & 222,0.008D0,101,121,128,314, 0, 0, - & 222,0.008D0,101,123,130,314, 0, 0, - & 222,0.004D0,101,125,132,314, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1217,1235)/ - & 222,0.013D0,101,121,128,143, 0, 0, - & 222,0.013D0,101,123,130,143, 0, 0, - & 222,0.006D0,101,125,132,143, 0, 0, - & 222,0.004D0, 0,140, 30, 0, 0, 0, - & 222,0.010D0, 0,140, 31, 0, 0, 0, - & 222,0.006D0, 0,140, 32, 0, 0, 0, - & 222,0.003D0, 0,141, 30, 0, 0, 0, - & 222,0.009D0, 0,141, 31, 0, 0, 0, - & 222,0.017D0, 0,141, 32, 0, 0, 0, - & 222,0.011D0, 0,140,179, 0, 0, 0, - & 222,0.015D0, 0,140,180, 0, 0, 0, - & 222,0.011D0, 0,141,179, 0, 0, 0, - & 222,0.022D0, 0,141,180, 0, 0, 0, - & 222,0.001D0, 0,164, 34, 0, 0, 0, - & 222,0.002D0, 0,164, 35, 0, 0, 0, - & 222,0.001D0, 0,165, 34, 0, 0, 0, - & 222,0.001D0, 0,165, 35, 0, 0, 0, - & 222,0.001D0, 0,166, 34, 0, 0, 0, - & 222,0.001D0, 0,166, 35, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1236,1254)/ - & 222,0.207D0,100, 1, 8, 4, 8, 0, - & 222,0.207D0,100, 3, 10, 4, 8, 0, - & 222,0.024D0,100, 1, 8, 2, 8, 0, - & 222,0.024D0,100, 3, 10, 2, 8, 0, - & 222,0.012D0,100, 3, 8, 4, 8, 0, - & 222,0.012D0,100, 1, 10, 4, 8, 0, - & 222,0.069D0,100, 4, 8, 1, 8, 0, - & 222,0.069D0,100, 4, 10, 3, 8, 0, - & 222,0.008D0,100, 2, 8, 1, 8, 0, - & 222,0.008D0,100, 2, 10, 3, 8, 0, - & 222,0.004D0,100, 4, 8, 3, 8, 0, - & 222,0.004D0,100, 4, 10, 1, 8, 0, - & 223,0.016D0,101,121,128,144, 0, 0, - & 223,0.016D0,101,123,130,144, 0, 0, - & 223,0.008D0,101,125,132,144, 0, 0, - & 223,0.048D0,101,121,128,145, 0, 0, - & 223,0.048D0,101,123,130,145, 0, 0, - & 223,0.022D0,101,125,132,145, 0, 0, - & 223,0.003D0,101,121,128,333, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1255,1273)/ - & 223,0.003D0,101,123,130,333, 0, 0, - & 223,0.001D0,101,125,132,333, 0, 0, - & 223,0.008D0,101,121,128,146, 0, 0, - & 223,0.008D0,101,123,130,146, 0, 0, - & 223,0.004D0,101,125,132,146, 0, 0, - & 223,0.008D0,101,121,128,315, 0, 0, - & 223,0.008D0,101,123,130,315, 0, 0, - & 223,0.004D0,101,125,132,315, 0, 0, - & 223,0.013D0,101,121,128,147, 0, 0, - & 223,0.013D0,101,123,130,147, 0, 0, - & 223,0.006D0,101,125,132,147, 0, 0, - & 223,0.004D0, 0,144, 30, 0, 0, 0, - & 223,0.010D0, 0,144, 31, 0, 0, 0, - & 223,0.006D0, 0,144, 32, 0, 0, 0, - & 223,0.003D0, 0,145, 30, 0, 0, 0, - & 223,0.009D0, 0,145, 31, 0, 0, 0, - & 223,0.017D0, 0,145, 32, 0, 0, 0, - & 223,0.011D0, 0,144,179, 0, 0, 0, - & 223,0.015D0, 0,144,180, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1274,1292)/ - & 223,0.011D0, 0,145,179, 0, 0, 0, - & 223,0.022D0, 0,145,180, 0, 0, 0, - & 223,0.001D0, 0,164, 25, 0, 0, 0, - & 223,0.002D0, 0,164, 56, 0, 0, 0, - & 223,0.001D0, 0,165, 25, 0, 0, 0, - & 223,0.001D0, 0,165, 56, 0, 0, 0, - & 223,0.001D0, 0,166, 25, 0, 0, 0, - & 223,0.001D0, 0,166, 56, 0, 0, 0, - & 223,0.207D0,100, 1, 8, 4, 9, 0, - & 223,0.207D0,100, 3, 10, 4, 9, 0, - & 223,0.024D0,100, 1, 8, 2, 9, 0, - & 223,0.024D0,100, 3, 10, 2, 9, 0, - & 223,0.012D0,100, 3, 8, 4, 9, 0, - & 223,0.012D0,100, 1, 10, 4, 9, 0, - & 223,0.069D0,100, 4, 8, 1, 9, 0, - & 223,0.069D0,100, 4, 10, 3, 9, 0, - & 223,0.008D0,100, 2, 8, 1, 9, 0, - & 223,0.008D0,100, 2, 10, 3, 9, 0, - & 223,0.004D0,100, 4, 8, 3, 9, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1293,1311)/ - & 223,0.004D0,100, 4, 10, 1, 9, 0, - & 224,0.090D0,100,121,128, 4,109, 0, - & 224,0.090D0,100,123,130, 4,109, 0, - & 224,0.045D0,100,125,132, 4,109, 0, - & 224,0.010D0,100,121,128, 2,109, 0, - & 224,0.010D0,100,123,130, 2,109, 0, - & 224,0.005D0,100,125,132, 2,109, 0, - & 224,0.242D0,100, 1, 8, 4,109, 0, - & 224,0.242D0,100, 3, 10, 4,109, 0, - & 224,0.027D0,100, 1, 8, 2,109, 0, - & 224,0.027D0,100, 3, 10, 2,109, 0, - & 224,0.012D0,100, 3, 8, 4,109, 0, - & 224,0.012D0,100, 1, 10, 4,109, 0, - & 224,0.081D0,100, 4, 8, 1,109, 0, - & 224,0.081D0,100, 4, 10, 3,109, 0, - & 224,0.009D0,100, 2, 8, 1,109, 0, - & 224,0.009D0,100, 2, 10, 3,109, 0, - & 224,0.004D0,100, 4, 8, 3,109, 0, - & 224,0.004D0,100, 4, 10, 1,109, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1312,1330)/ - & 225,0.090D0,100,121,128, 4,110, 0, - & 225,0.090D0,100,123,130, 4,110, 0, - & 225,0.045D0,100,125,132, 4,110, 0, - & 225,0.010D0,100,121,128, 2,110, 0, - & 225,0.010D0,100,123,130, 2,110, 0, - & 225,0.005D0,100,125,132, 2,110, 0, - & 225,0.242D0,100, 1, 8, 4,110, 0, - & 225,0.242D0,100, 3, 10, 4,110, 0, - & 225,0.027D0,100, 1, 8, 2,110, 0, - & 225,0.027D0,100, 3, 10, 2,110, 0, - & 225,0.012D0,100, 3, 8, 4,110, 0, - & 225,0.012D0,100, 1, 10, 4,110, 0, - & 225,0.081D0,100, 4, 8, 1,110, 0, - & 225,0.081D0,100, 4, 10, 3,110, 0, - & 225,0.009D0,100, 2, 8, 1,110, 0, - & 225,0.009D0,100, 2, 10, 3,110, 0, - & 225,0.004D0,100, 4, 8, 3,110, 0, - & 225,0.004D0,100, 4, 10, 1,110, 0, - & 226,0.090D0,100,121,128, 4,111, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1331,1349)/ - & 226,0.090D0,100,123,130, 4,111, 0, - & 226,0.045D0,100,125,132, 4,111, 0, - & 226,0.010D0,100,121,128, 2,111, 0, - & 226,0.010D0,100,123,130, 2,111, 0, - & 226,0.005D0,100,125,132, 2,111, 0, - & 226,0.242D0,100, 1, 8, 4,111, 0, - & 226,0.242D0,100, 3, 10, 4,111, 0, - & 226,0.027D0,100, 1, 8, 2,111, 0, - & 226,0.027D0,100, 3, 10, 2,111, 0, - & 226,0.012D0,100, 3, 8, 4,111, 0, - & 226,0.012D0,100, 1, 10, 4,111, 0, - & 226,0.081D0,100, 4, 8, 1,111, 0, - & 226,0.081D0,100, 4, 10, 3,111, 0, - & 226,0.009D0,100, 2, 8, 1,111, 0, - & 226,0.009D0,100, 2, 10, 3,111, 0, - & 226,0.004D0,100, 4, 8, 3,111, 0, - & 226,0.004D0,100, 4, 10, 1,111, 0, - & 227,0.090D0,100,121,128, 4,112, 0, - & 227,0.090D0,100,123,130, 4,112, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1350,1368)/ - & 227,0.045D0,100,125,132, 4,112, 0, - & 227,0.010D0,100,121,128, 2,112, 0, - & 227,0.010D0,100,123,130, 2,112, 0, - & 227,0.005D0,100,125,132, 2,112, 0, - & 227,0.242D0,100, 1, 8, 4,112, 0, - & 227,0.242D0,100, 3, 10, 4,112, 0, - & 227,0.027D0,100, 1, 8, 2,112, 0, - & 227,0.027D0,100, 3, 10, 2,112, 0, - & 227,0.012D0,100, 3, 8, 4,112, 0, - & 227,0.012D0,100, 1, 10, 4,112, 0, - & 227,0.081D0,100, 4, 8, 1,112, 0, - & 227,0.081D0,100, 4, 10, 3,112, 0, - & 227,0.009D0,100, 2, 8, 1,112, 0, - & 227,0.009D0,100, 2, 10, 3,112, 0, - & 227,0.004D0,100, 4, 8, 3,112, 0, - & 227,0.004D0,100, 4, 10, 1,112, 0, - & 228,0.090D0,100,121,128, 4,113, 0, - & 228,0.090D0,100,123,130, 4,113, 0, - & 228,0.045D0,100,125,132, 4,113, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1369,1387)/ - & 228,0.010D0,100,121,128, 2,113, 0, - & 228,0.010D0,100,123,130, 2,113, 0, - & 228,0.005D0,100,125,132, 2,113, 0, - & 228,0.242D0,100, 1, 8, 4,113, 0, - & 228,0.242D0,100, 3, 10, 4,113, 0, - & 228,0.027D0,100, 1, 8, 2,113, 0, - & 228,0.027D0,100, 3, 10, 2,113, 0, - & 228,0.012D0,100, 3, 8, 4,113, 0, - & 228,0.012D0,100, 1, 10, 4,113, 0, - & 228,0.081D0,100, 4, 8, 1,113, 0, - & 228,0.081D0,100, 4, 10, 3,113, 0, - & 228,0.009D0,100, 2, 8, 1,113, 0, - & 228,0.009D0,100, 2, 10, 3,113, 0, - & 228,0.004D0,100, 4, 8, 3,113, 0, - & 228,0.004D0,100, 4, 10, 1,113, 0, - & 229,0.090D0,100,121,128, 4,114, 0, - & 229,0.090D0,100,123,130, 4,114, 0, - & 229,0.045D0,100,125,132, 4,114, 0, - & 229,0.010D0,100,121,128, 2,114, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1388,1406)/ - & 229,0.010D0,100,123,130, 2,114, 0, - & 229,0.005D0,100,125,132, 2,114, 0, - & 229,0.242D0,100, 1, 8, 4,114, 0, - & 229,0.242D0,100, 3, 10, 4,114, 0, - & 229,0.027D0,100, 1, 8, 2,114, 0, - & 229,0.027D0,100, 3, 10, 2,114, 0, - & 229,0.012D0,100, 3, 8, 4,114, 0, - & 229,0.012D0,100, 1, 10, 4,114, 0, - & 229,0.081D0,100, 4, 8, 1,114, 0, - & 229,0.081D0,100, 4, 10, 3,114, 0, - & 229,0.009D0,100, 2, 8, 1,114, 0, - & 229,0.009D0,100, 2, 10, 3,114, 0, - & 229,0.004D0,100, 4, 8, 3,114, 0, - & 229,0.004D0,100, 4, 10, 1,114, 0, - & 230,0.080D0,100,121,128, 4, 10, 0, - & 230,0.080D0,100,123,130, 4, 10, 0, - & 230,0.040D0,100,125,132, 4, 10, 0, - & 230,0.080D0,100,121,128, 9, 5, 0, - & 230,0.080D0,100,123,130, 9, 5, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1407,1425)/ - & 230,0.228D0,100, 1, 8, 4, 10, 0, - & 230,0.228D0,100, 3, 10, 4, 10, 0, - & 230,0.012D0,100, 3, 8, 4, 10, 0, - & 230,0.012D0,100, 1, 10, 4, 10, 0, - & 230,0.076D0,100, 4, 8, 1, 10, 0, - & 230,0.076D0,100, 4, 10, 3, 10, 0, - & 230,0.004D0,100, 4, 8, 3, 10, 0, - & 230,0.004D0,100, 4, 10, 1, 10, 0, - & 231,0.025D0, 0,121,127, 0, 0, 0, - & 231,0.025D0, 0,123,129, 0, 0, 0, - & 231,0.025D0, 0,125,131, 0, 0, 0, - & 231,0.008D0, 0, 1, 7, 0, 0, 0, - & 231,0.033D0, 0, 2, 8, 0, 0, 0, - & 231,0.008D0, 0, 3, 9, 0, 0, 0, - & 231,0.033D0, 0, 4, 10, 0, 0, 0, - & 231,0.801D0,130, 13, 13, 13, 0, 0, - & 231,0.042D0,130, 13, 13, 59, 0, 0, - & 245,0.016D0,101,127,122,171, 0, 0, - & 245,0.016D0,101,129,124,171, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1426,1444)/ - & 245,0.008D0,101,131,126,171, 0, 0, - & 245,0.048D0,101,127,122,172, 0, 0, - & 245,0.048D0,101,129,124,172, 0, 0, - & 245,0.022D0,101,131,126,172, 0, 0, - & 245,0.003D0,101,127,122,334, 0, 0, - & 245,0.003D0,101,129,124,334, 0, 0, - & 245,0.001D0,101,131,126,334, 0, 0, - & 245,0.008D0,101,127,122,173, 0, 0, - & 245,0.008D0,101,129,124,173, 0, 0, - & 245,0.004D0,101,131,126,173, 0, 0, - & 245,0.008D0,101,127,122,316, 0, 0, - & 245,0.008D0,101,129,124,316, 0, 0, - & 245,0.004D0,101,131,126,316, 0, 0, - & 245,0.013D0,101,127,122,174, 0, 0, - & 245,0.013D0,101,129,124,174, 0, 0, - & 245,0.006D0,101,131,126,174, 0, 0, - & 245,0.004D0, 0,171, 38, 0, 0, 0, - & 245,0.010D0, 0,171, 39, 0, 0, 0, - & 245,0.006D0, 0,171, 40, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1445,1463)/ - & 245,0.003D0, 0,172, 38, 0, 0, 0, - & 245,0.009D0, 0,172, 39, 0, 0, 0, - & 245,0.017D0, 0,172, 40, 0, 0, 0, - & 245,0.011D0, 0,171,144, 0, 0, 0, - & 245,0.015D0, 0,171,145, 0, 0, 0, - & 245,0.011D0, 0,172,144, 0, 0, 0, - & 245,0.022D0, 0,172,145, 0, 0, 0, - & 245,0.001D0, 0,164, 50, 0, 0, 0, - & 245,0.002D0, 0,164, 51, 0, 0, 0, - & 245,0.001D0, 0,165, 50, 0, 0, 0, - & 245,0.001D0, 0,165, 51, 0, 0, 0, - & 245,0.001D0, 0,166, 50, 0, 0, 0, - & 245,0.001D0, 0,166, 51, 0, 0, 0, - & 245,0.207D0,100, 7, 2, 10, 1, 0, - & 245,0.207D0,100, 9, 4, 10, 1, 0, - & 245,0.024D0,100, 7, 2, 8, 1, 0, - & 245,0.024D0,100, 9, 4, 8, 1, 0, - & 245,0.012D0,100, 9, 2, 10, 1, 0, - & 245,0.012D0,100, 7, 4, 10, 1, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1464,1482)/ - & 245,0.069D0,100, 10, 2, 7, 1, 0, - & 245,0.069D0,100, 10, 4, 9, 1, 0, - & 245,0.008D0,100, 8, 2, 7, 1, 0, - & 245,0.008D0,100, 8, 4, 9, 1, 0, - & 245,0.004D0,100, 10, 2, 9, 1, 0, - & 245,0.004D0,100, 10, 4, 7, 1, 0, - & 246,0.016D0,101,127,122,175, 0, 0, - & 246,0.016D0,101,129,124,175, 0, 0, - & 246,0.008D0,101,131,126,175, 0, 0, - & 246,0.048D0,101,127,122,176, 0, 0, - & 246,0.048D0,101,129,124,176, 0, 0, - & 246,0.022D0,101,131,126,176, 0, 0, - & 246,0.003D0,101,127,122,335, 0, 0, - & 246,0.003D0,101,129,124,335, 0, 0, - & 246,0.001D0,101,131,126,335, 0, 0, - & 246,0.008D0,101,127,122,177, 0, 0, - & 246,0.008D0,101,129,124,177, 0, 0, - & 246,0.004D0,101,131,126,177, 0, 0, - & 246,0.008D0,101,127,122,317, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1483,1501)/ - & 246,0.008D0,101,129,124,317, 0, 0, - & 246,0.004D0,101,131,126,317, 0, 0, - & 246,0.013D0,101,127,122,178, 0, 0, - & 246,0.013D0,101,129,124,178, 0, 0, - & 246,0.006D0,101,131,126,178, 0, 0, - & 246,0.004D0, 0,175, 38, 0, 0, 0, - & 246,0.010D0, 0,175, 39, 0, 0, 0, - & 246,0.006D0, 0,175, 40, 0, 0, 0, - & 246,0.003D0, 0,176, 38, 0, 0, 0, - & 246,0.009D0, 0,176, 39, 0, 0, 0, - & 246,0.017D0, 0,176, 40, 0, 0, 0, - & 246,0.011D0, 0,175,144, 0, 0, 0, - & 246,0.015D0, 0,175,145, 0, 0, 0, - & 246,0.011D0, 0,176,144, 0, 0, 0, - & 246,0.022D0, 0,176,145, 0, 0, 0, - & 246,0.001D0, 0,164, 46, 0, 0, 0, - & 246,0.002D0, 0,164, 47, 0, 0, 0, - & 246,0.001D0, 0,165, 46, 0, 0, 0, - & 246,0.001D0, 0,165, 47, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1502,1520)/ - & 246,0.001D0, 0,166, 46, 0, 0, 0, - & 246,0.001D0, 0,166, 47, 0, 0, 0, - & 246,0.207D0,100, 7, 2, 10, 2, 0, - & 246,0.207D0,100, 9, 4, 10, 2, 0, - & 246,0.024D0,100, 7, 2, 8, 2, 0, - & 246,0.024D0,100, 9, 4, 8, 2, 0, - & 246,0.012D0,100, 9, 2, 10, 2, 0, - & 246,0.012D0,100, 7, 4, 10, 2, 0, - & 246,0.069D0,100, 10, 2, 7, 2, 0, - & 246,0.069D0,100, 10, 4, 9, 2, 0, - & 246,0.008D0,100, 8, 2, 7, 2, 0, - & 246,0.008D0,100, 8, 4, 9, 2, 0, - & 246,0.004D0,100, 10, 2, 9, 2, 0, - & 246,0.004D0,100, 10, 4, 7, 2, 0, - & 247,0.016D0,101,127,122,179, 0, 0, - & 247,0.016D0,101,129,124,179, 0, 0, - & 247,0.008D0,101,131,126,179, 0, 0, - & 247,0.048D0,101,127,122,180, 0, 0, - & 247,0.048D0,101,129,124,180, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1521,1539)/ - & 247,0.022D0,101,131,126,180, 0, 0, - & 247,0.003D0,101,127,122,336, 0, 0, - & 247,0.003D0,101,129,124,336, 0, 0, - & 247,0.001D0,101,131,126,336, 0, 0, - & 247,0.008D0,101,127,122,181, 0, 0, - & 247,0.008D0,101,129,124,181, 0, 0, - & 247,0.004D0,101,131,126,181, 0, 0, - & 247,0.008D0,101,127,122,318, 0, 0, - & 247,0.008D0,101,129,124,318, 0, 0, - & 247,0.004D0,101,131,126,318, 0, 0, - & 247,0.013D0,101,127,122,182, 0, 0, - & 247,0.013D0,101,129,124,182, 0, 0, - & 247,0.006D0,101,131,126,182, 0, 0, - & 247,0.004D0, 0,179, 38, 0, 0, 0, - & 247,0.010D0, 0,179, 39, 0, 0, 0, - & 247,0.006D0, 0,179, 40, 0, 0, 0, - & 247,0.003D0, 0,180, 38, 0, 0, 0, - & 247,0.009D0, 0,180, 39, 0, 0, 0, - & 247,0.017D0, 0,180, 40, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1540,1558)/ - & 247,0.011D0, 0,179,144, 0, 0, 0, - & 247,0.015D0, 0,179,145, 0, 0, 0, - & 247,0.011D0, 0,180,144, 0, 0, 0, - & 247,0.022D0, 0,180,145, 0, 0, 0, - & 247,0.001D0, 0,164, 25, 0, 0, 0, - & 247,0.002D0, 0,164, 56, 0, 0, 0, - & 247,0.001D0, 0,165, 25, 0, 0, 0, - & 247,0.001D0, 0,165, 56, 0, 0, 0, - & 247,0.001D0, 0,166, 25, 0, 0, 0, - & 247,0.001D0, 0,166, 56, 0, 0, 0, - & 247,0.207D0,100, 7, 2, 10, 3, 0, - & 247,0.207D0,100, 9, 4, 10, 3, 0, - & 247,0.024D0,100, 7, 2, 8, 3, 0, - & 247,0.024D0,100, 9, 4, 8, 3, 0, - & 247,0.012D0,100, 9, 2, 10, 3, 0, - & 247,0.012D0,100, 7, 4, 10, 3, 0, - & 247,0.069D0,100, 10, 2, 7, 3, 0, - & 247,0.069D0,100, 10, 4, 9, 3, 0, - & 247,0.008D0,100, 8, 2, 7, 3, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1559,1577)/ - & 247,0.008D0,100, 8, 4, 9, 3, 0, - & 247,0.004D0,100, 10, 2, 9, 3, 0, - & 247,0.004D0,100, 10, 4, 7, 3, 0, - & 248,0.090D0,100,127,122, 10,115, 0, - & 248,0.090D0,100,129,124, 10,115, 0, - & 248,0.045D0,100,131,126, 10,115, 0, - & 248,0.010D0,100,127,122, 8,115, 0, - & 248,0.010D0,100,129,124, 8,115, 0, - & 248,0.005D0,100,131,126, 8,115, 0, - & 248,0.242D0,100, 7, 2, 10,115, 0, - & 248,0.242D0,100, 9, 4, 10,115, 0, - & 248,0.027D0,100, 7, 2, 8,115, 0, - & 248,0.027D0,100, 9, 4, 8,115, 0, - & 248,0.012D0,100, 9, 2, 10,115, 0, - & 248,0.012D0,100, 7, 4, 10,115, 0, - & 248,0.081D0,100, 10, 2, 7,115, 0, - & 248,0.081D0,100, 10, 4, 9,115, 0, - & 248,0.009D0,100, 8, 2, 7,115, 0, - & 248,0.009D0,100, 8, 4, 9,115, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1578,1596)/ - & 248,0.004D0,100, 10, 2, 9,115, 0, - & 248,0.004D0,100, 10, 4, 7,115, 0, - & 249,0.090D0,100,127,122, 10,116, 0, - & 249,0.090D0,100,129,124, 10,116, 0, - & 249,0.045D0,100,131,126, 10,116, 0, - & 249,0.010D0,100,127,122, 8,116, 0, - & 249,0.010D0,100,129,124, 8,116, 0, - & 249,0.005D0,100,131,126, 8,116, 0, - & 249,0.242D0,100, 7, 2, 10,116, 0, - & 249,0.242D0,100, 9, 4, 10,116, 0, - & 249,0.027D0,100, 7, 2, 8,116, 0, - & 249,0.027D0,100, 9, 4, 8,116, 0, - & 249,0.012D0,100, 9, 2, 10,116, 0, - & 249,0.012D0,100, 7, 4, 10,116, 0, - & 249,0.081D0,100, 10, 2, 7,116, 0, - & 249,0.081D0,100, 10, 4, 9,116, 0, - & 249,0.009D0,100, 8, 2, 7,116, 0, - & 249,0.009D0,100, 8, 4, 9,116, 0, - & 249,0.004D0,100, 10, 2, 9,116, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1597,1615)/ - & 249,0.004D0,100, 10, 4, 7,116, 0, - & 250,0.090D0,100,127,122, 10,117, 0, - & 250,0.090D0,100,129,124, 10,117, 0, - & 250,0.045D0,100,131,126, 10,117, 0, - & 250,0.010D0,100,127,122, 8,117, 0, - & 250,0.010D0,100,129,124, 8,117, 0, - & 250,0.005D0,100,131,126, 8,117, 0, - & 250,0.242D0,100, 7, 2, 10,117, 0, - & 250,0.242D0,100, 9, 4, 10,117, 0, - & 250,0.027D0,100, 7, 2, 8,117, 0, - & 250,0.027D0,100, 9, 4, 8,117, 0, - & 250,0.012D0,100, 9, 2, 10,117, 0, - & 250,0.012D0,100, 7, 4, 10,117, 0, - & 250,0.081D0,100, 10, 2, 7,117, 0, - & 250,0.081D0,100, 10, 4, 9,117, 0, - & 250,0.009D0,100, 8, 2, 7,117, 0, - & 250,0.009D0,100, 8, 4, 9,117, 0, - & 250,0.004D0,100, 10, 2, 9,117, 0, - & 250,0.004D0,100, 10, 4, 7,117, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1616,1634)/ - & 251,0.090D0,100,127,122, 10,118, 0, - & 251,0.090D0,100,129,124, 10,118, 0, - & 251,0.045D0,100,131,126, 10,118, 0, - & 251,0.010D0,100,127,122, 8,118, 0, - & 251,0.010D0,100,129,124, 8,118, 0, - & 251,0.005D0,100,131,126, 8,118, 0, - & 251,0.242D0,100, 7, 2, 10,118, 0, - & 251,0.242D0,100, 9, 4, 10,118, 0, - & 251,0.027D0,100, 7, 2, 8,118, 0, - & 251,0.027D0,100, 9, 4, 8,118, 0, - & 251,0.012D0,100, 9, 2, 10,118, 0, - & 251,0.012D0,100, 7, 4, 10,118, 0, - & 251,0.081D0,100, 10, 2, 7,118, 0, - & 251,0.081D0,100, 10, 4, 9,118, 0, - & 251,0.009D0,100, 8, 2, 7,118, 0, - & 251,0.009D0,100, 8, 4, 9,118, 0, - & 251,0.004D0,100, 10, 2, 9,118, 0, - & 251,0.004D0,100, 10, 4, 7,118, 0, - & 252,0.090D0,100,127,122, 10,119, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1635,1653)/ - & 252,0.090D0,100,129,124, 10,119, 0, - & 252,0.045D0,100,131,126, 10,119, 0, - & 252,0.010D0,100,127,122, 8,119, 0, - & 252,0.010D0,100,129,124, 8,119, 0, - & 252,0.005D0,100,131,126, 8,119, 0, - & 252,0.242D0,100, 7, 2, 10,119, 0, - & 252,0.242D0,100, 9, 4, 10,119, 0, - & 252,0.027D0,100, 7, 2, 8,119, 0, - & 252,0.027D0,100, 9, 4, 8,119, 0, - & 252,0.012D0,100, 9, 2, 10,119, 0, - & 252,0.012D0,100, 7, 4, 10,119, 0, - & 252,0.081D0,100, 10, 2, 7,119, 0, - & 252,0.081D0,100, 10, 4, 9,119, 0, - & 252,0.009D0,100, 8, 2, 7,119, 0, - & 252,0.009D0,100, 8, 4, 9,119, 0, - & 252,0.004D0,100, 10, 2, 9,119, 0, - & 252,0.004D0,100, 10, 4, 7,119, 0, - & 253,0.090D0,100,127,122, 10,120, 0, - & 253,0.090D0,100,129,124, 10,120, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1654,1672)/ - & 253,0.045D0,100,131,126, 10,120, 0, - & 253,0.010D0,100,127,122, 8,120, 0, - & 253,0.010D0,100,129,124, 8,120, 0, - & 253,0.005D0,100,131,126, 8,120, 0, - & 253,0.242D0,100, 7, 2, 10,120, 0, - & 253,0.242D0,100, 9, 4, 10,120, 0, - & 253,0.027D0,100, 7, 2, 8,120, 0, - & 253,0.027D0,100, 9, 4, 8,120, 0, - & 253,0.012D0,100, 9, 2, 10,120, 0, - & 253,0.012D0,100, 7, 4, 10,120, 0, - & 253,0.081D0,100, 10, 2, 7,120, 0, - & 253,0.081D0,100, 10, 4, 9,120, 0, - & 253,0.009D0,100, 8, 2, 7,120, 0, - & 253,0.009D0,100, 8, 4, 9,120, 0, - & 253,0.004D0,100, 10, 2, 9,120, 0, - & 253,0.004D0,100, 10, 4, 7,120, 0, - & 254,0.080D0,100,127,122, 10, 4, 0, - & 254,0.080D0,100,129,124, 10, 4, 0, - & 254,0.040D0,100,131,126, 10, 4, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1673,1691)/ - & 254,0.080D0,100,127,122, 3, 11, 0, - & 254,0.080D0,100,129,124, 3, 11, 0, - & 254,0.228D0,100, 7, 2, 10, 4, 0, - & 254,0.228D0,100, 9, 4, 10, 4, 0, - & 254,0.012D0,100, 9, 2, 10, 4, 0, - & 254,0.012D0,100, 7, 4, 10, 4, 0, - & 254,0.076D0,100, 10, 2, 7, 4, 0, - & 254,0.076D0,100, 10, 4, 9, 4, 0, - & 254,0.004D0,100, 10, 2, 9, 4, 0, - & 254,0.004D0,100, 10, 4, 7, 4, 0, - & 265,1.000D0, 0,221, 59, 0, 0, 0, - & 266,1.000D0, 0,222, 59, 0, 0, 0, - & 267,1.000D0, 0,223, 59, 0, 0, 0, - & 268,0.667D0, 0,266, 38, 0, 0, 0, - & 268,0.333D0, 0,265, 21, 0, 0, 0, - & 269,0.667D0, 0,265, 30, 0, 0, 0, - & 269,0.333D0, 0,266, 21, 0, 0, 0, - & 270,0.500D0, 0,265, 50, 0, 0, 0, - & 270,0.500D0, 0,266, 46, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1692,1710)/ - & 271,0.290D0, 0,266, 38, 0, 0, 0, - & 271,0.150D0, 0,265, 21, 0, 0, 0, - & 271,0.290D0, 0,222, 38, 0, 0, 0, - & 271,0.150D0, 0,221, 21, 0, 0, 0, - & 271,0.060D0, 0,266, 38, 21, 0, 0, - & 271,0.020D0, 0,265, 38, 30, 0, 0, - & 271,0.010D0, 0,265, 21, 21, 0, 0, - & 271,0.020D0, 0,222, 38, 21, 0, 0, - & 271,0.010D0, 0,221, 38, 30, 0, 0, - & 272,0.290D0, 0,265, 30, 0, 0, 0, - & 272,0.150D0, 0,266, 21, 0, 0, 0, - & 272,0.290D0, 0,221, 30, 0, 0, 0, - & 272,0.150D0, 0,222, 21, 0, 0, 0, - & 272,0.060D0, 0,265, 30, 21, 0, 0, - & 272,0.020D0, 0,266, 38, 30, 0, 0, - & 272,0.010D0, 0,266, 21, 21, 0, 0, - & 272,0.020D0, 0,221, 30, 21, 0, 0, - & 272,0.010D0, 0,222, 38, 30, 0, 0, - & 273,0.350D0, 0,221, 50, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1711,1729)/ - & 273,0.350D0, 0,222, 46, 0, 0, 0, - & 273,0.150D0, 0,265, 50, 0, 0, 0, - & 273,0.150D0, 0,266, 46, 0, 0, 0, - & 274,1.000D0, 0,245, 59, 0, 0, 0, - & 275,1.000D0, 0,246, 59, 0, 0, 0, - & 276,1.000D0, 0,247, 59, 0, 0, 0, - & 277,0.667D0, 0,275, 30, 0, 0, 0, - & 277,0.333D0, 0,274, 21, 0, 0, 0, - & 278,0.667D0, 0,274, 38, 0, 0, 0, - & 278,0.333D0, 0,275, 21, 0, 0, 0, - & 279,0.500D0, 0,274, 42, 0, 0, 0, - & 279,0.500D0, 0,275, 34, 0, 0, 0, - & 280,0.290D0, 0,275, 30, 0, 0, 0, - & 280,0.150D0, 0,274, 21, 0, 0, 0, - & 280,0.290D0, 0,246, 30, 0, 0, 0, - & 280,0.150D0, 0,245, 21, 0, 0, 0, - & 280,0.060D0, 0,275, 30, 21, 0, 0, - & 280,0.020D0, 0,274, 38, 30, 0, 0, - & 280,0.010D0, 0,274, 21, 21, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1730,1748)/ - & 280,0.020D0, 0,246, 30, 21, 0, 0, - & 280,0.010D0, 0,245, 38, 30, 0, 0, - & 281,0.290D0, 0,274, 38, 0, 0, 0, - & 281,0.150D0, 0,275, 21, 0, 0, 0, - & 281,0.290D0, 0,245, 38, 0, 0, 0, - & 281,0.150D0, 0,246, 21, 0, 0, 0, - & 281,0.060D0, 0,274, 38, 21, 0, 0, - & 281,0.020D0, 0,275, 38, 30, 0, 0, - & 281,0.010D0, 0,275, 21, 21, 0, 0, - & 281,0.020D0, 0,245, 38, 21, 0, 0, - & 281,0.010D0, 0,246, 38, 30, 0, 0, - & 282,0.350D0, 0,245, 42, 0, 0, 0, - & 282,0.350D0, 0,246, 34, 0, 0, 0, - & 282,0.150D0, 0,274, 42, 0, 0, 0, - & 282,0.150D0, 0,275, 34, 0, 0, 0, - & 285,1.000D0, 0, 24, 21, 0, 0, 0, - & 286,0.998D0, 0, 24, 38, 0, 0, 0, - & 286,0.002D0, 0, 38, 59, 0, 0, 0, - & 287,0.998D0, 0, 24, 30, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1749,1767)/ - & 287,0.002D0, 0, 30, 59, 0, 0, 0, - & 288,0.330D0, 0, 39, 30, 0, 0, 0, - & 288,0.340D0, 0, 23, 21, 0, 0, 0, - & 288,0.330D0, 0, 31, 38, 0, 0, 0, - & 289,0.250D0, 0, 46, 35, 0, 0, 0, - & 289,0.250D0, 0, 34, 47, 0, 0, 0, - & 289,0.250D0, 0, 50, 43, 0, 0, 0, - & 289,0.250D0, 0, 42, 51, 0, 0, 0, - & 290,0.996D0, 0, 22, 21, 0, 0, 0, - & 290,0.002D0, 0, 46, 34, 0, 0, 0, - & 290,0.002D0, 0, 50, 42, 0, 0, 0, - & 291,0.996D0, 0, 22, 38, 0, 0, 0, - & 291,0.004D0, 0, 46, 42, 0, 0, 0, - & 292,0.996D0, 0, 22, 30, 0, 0, 0, - & 292,0.004D0, 0, 50, 34, 0, 0, 0, - & 293,0.520D0, 0, 38, 30, 0, 0, 0, - & 293,0.260D0, 0, 21, 21, 0, 0, 0, - & 293,0.110D0, 0, 46, 34, 0, 0, 0, - & 293,0.110D0, 0, 50, 42, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1768,1786)/ - & 294,0.620D0, 0, 38, 30, 0, 0, 0, - & 294,0.310D0, 0, 21, 21, 0, 0, 0, - & 294,0.035D0, 0, 46, 34, 0, 0, 0, - & 294,0.035D0, 0, 50, 42, 0, 0, 0, - & 295,1.000D0, 0,254, 59, 0, 0, 0, - & 296,1.000D0, 0,230, 59, 0, 0, 0, - & 297,1.000D0, 0,254, 59, 0, 0, 0, - & 298,1.000D0, 0,230, 59, 0, 0, 0, - & 299,1.000D0, 0,254, 59, 0, 0, 0, - & 300,1.000D0, 0,230, 59, 0, 0, 0, - & 301,0.050D0, 0,121,127, 0, 0, 0, - & 301,0.050D0, 0,123,129, 0, 0, 0, - & 301,0.017D0, 0, 1, 7, 0, 0, 0, - & 301,0.066D0, 0, 2, 8, 0, 0, 0, - & 301,0.017D0, 0, 3, 9, 0, 0, 0, - & 301,0.640D0,130, 13, 13, 13, 0, 0, - & 301,0.160D0,130, 13, 13, 59, 0, 0, - & 302,0.022D0, 0, 38, 30, 38, 30, 23, - & 302,0.016D0, 0, 38, 30, 38, 30, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1787,1805)/ - & 302,0.009D0, 0, 38, 30, 46, 34, 0, - & 302,0.004D0, 0, 23, 38, 30, 0, 0, - & 302,0.002D0, 0, 46, 43, 30, 0, 0, - & 302,0.002D0, 0, 34, 51, 38, 0, 0, - & 302,0.001D0, 0, 38, 30, 73, 91, 0, - & 302,0.273D0, 0, 59,164, 0, 0, 0, - & 302,0.671D0, 0, 13, 13, 0, 0, 0, - & 303,0.022D0, 0, 38, 30, 38, 30, 0, - & 303,0.019D0, 0, 38, 30, 46, 34, 0, - & 303,0.012D0, 0, 38, 30, 38, 30, 23, - & 303,0.007D0, 0, 23, 38, 30, 0, 0, - & 303,0.002D0, 0, 46, 43, 30, 0, 0, - & 303,0.002D0, 0, 34, 51, 38, 0, 0, - & 303,0.003D0, 0, 38, 30, 73, 91, 0, - & 303,0.002D0, 0, 38, 30, 0, 0, 0, - & 303,0.002D0, 0, 46, 34, 0, 0, 0, - & 303,0.001D0, 0, 21, 21, 0, 0, 0, - & 303,0.135D0, 0, 59,164, 0, 0, 0, - & 303,0.793D0, 0, 13, 13, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1806,1824)/ - & 304,1.000D0, 0, 13, 13, 0, 0, 0, - & 305,1.000D0, 0, 13, 13, 0, 0, 0, - & 306,0.050D0, 0, 59,231, 0, 0, 0, - & 306,0.950D0, 0, 13, 13, 0, 0, 0, - & 307,0.350D0, 0, 59,231, 0, 0, 0, - & 307,0.650D0, 0, 13, 13, 0, 0, 0, - & 308,0.220D0, 0, 59,231, 0, 0, 0, - & 308,0.780D0, 0, 13, 13, 0, 0, 0, - & 309,0.280D0, 0, 46, 31, 0, 0, 0, - & 309,0.140D0, 0, 50, 23, 0, 0, 0, - & 309,0.187D0, 0,327, 30, 0, 0, 0, - & 309,0.093D0, 0,328, 21, 0, 0, 0, - & 309,0.110D0, 0, 50, 24, 0, 0, 0, - & 309,0.107D0, 0, 47, 30, 0, 0, 0, - & 309,0.053D0, 0, 51, 21, 0, 0, 0, - & 309,0.030D0, 0, 50,293, 0, 0, 0, - & 310,0.280D0, 0, 50, 39, 0, 0, 0, - & 310,0.140D0, 0, 46, 23, 0, 0, 0, - & 310,0.187D0, 0,328, 38, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1825,1843)/ - & 310,0.093D0, 0,327, 21, 0, 0, 0, - & 310,0.110D0, 0, 46, 24, 0, 0, 0, - & 310,0.107D0, 0, 51, 38, 0, 0, 0, - & 310,0.053D0, 0, 47, 21, 0, 0, 0, - & 310,0.030D0, 0, 46,293, 0, 0, 0, - & 311,0.280D0, 0, 34, 39, 0, 0, 0, - & 311,0.140D0, 0, 42, 23, 0, 0, 0, - & 311,0.187D0, 0,330, 38, 0, 0, 0, - & 311,0.093D0, 0,329, 21, 0, 0, 0, - & 311,0.110D0, 0, 42, 24, 0, 0, 0, - & 311,0.107D0, 0, 35, 38, 0, 0, 0, - & 311,0.053D0, 0, 43, 21, 0, 0, 0, - & 311,0.030D0, 0, 42,293, 0, 0, 0, - & 312,0.280D0, 0, 42, 31, 0, 0, 0, - & 312,0.140D0, 0, 34, 23, 0, 0, 0, - & 312,0.187D0, 0,329, 30, 0, 0, 0, - & 312,0.093D0, 0,330, 21, 0, 0, 0, - & 312,0.110D0, 0, 34, 24, 0, 0, 0, - & 312,0.107D0, 0, 43, 30, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1844,1862)/ - & 312,0.053D0, 0, 35, 21, 0, 0, 0, - & 312,0.030D0, 0, 34,293, 0, 0, 0, - & 313,0.430D0, 0,140, 38, 0, 0, 0, - & 313,0.215D0, 0,136, 21, 0, 0, 0, - & 313,0.235D0, 0,140, 38, 21, 0, 0, - & 313,0.120D0, 0,136, 38, 30, 0, 0, - & 314,0.430D0, 0,136, 30, 0, 0, 0, - & 314,0.215D0, 0,140, 21, 0, 0, 0, - & 314,0.235D0, 0,136, 30, 21, 0, 0, - & 314,0.120D0, 0,140, 38, 30, 0, 0, - & 315,0.480D0, 0,136, 50, 0, 0, 0, - & 315,0.480D0, 0,140, 46, 0, 0, 0, - & 315,0.040D0, 0,145, 59, 0, 0, 0, - & 316,0.430D0, 0,175, 30, 0, 0, 0, - & 316,0.215D0, 0,171, 21, 0, 0, 0, - & 316,0.235D0, 0,175, 30, 21, 0, 0, - & 316,0.120D0, 0,171, 38, 30, 0, 0, - & 317,0.430D0, 0,171, 38, 0, 0, 0, - & 317,0.215D0, 0,175, 21, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1863,1881)/ - & 317,0.235D0, 0,171, 38, 21, 0, 0, - & 317,0.120D0, 0,175, 38, 30, 0, 0, - & 318,0.480D0, 0,171, 42, 0, 0, 0, - & 318,0.480D0, 0,175, 34, 0, 0, 0, - & 318,0.040D0, 0,180, 59, 0, 0, 0, - & 319,0.540D0, 0,275, 30, 0, 0, 0, - & 319,0.270D0, 0,274, 21, 0, 0, 0, - & 319,0.030D0, 0,275, 30, 21, 0, 0, - & 319,0.010D0, 0,274, 38, 30, 0, 0, - & 319,0.010D0, 0,274, 21, 21, 0, 0, - & 319,0.090D0, 0,246, 30, 21, 0, 0, - & 319,0.030D0, 0,245, 38, 30, 0, 0, - & 319,0.020D0, 0,245, 21, 21, 0, 0, - & 320,0.540D0, 0,274, 38, 0, 0, 0, - & 320,0.270D0, 0,275, 21, 0, 0, 0, - & 320,0.030D0, 0,274, 38, 21, 0, 0, - & 320,0.010D0, 0,275, 38, 30, 0, 0, - & 320,0.010D0, 0,275, 21, 21, 0, 0, - & 320,0.090D0, 0,245, 38, 21, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1882,1900)/ - & 320,0.030D0, 0,246, 38, 30, 0, 0, - & 320,0.020D0, 0,246, 21, 21, 0, 0, - & 321,0.500D0, 0,275, 34, 0, 0, 0, - & 321,0.500D0, 0,274, 42, 0, 0, 0, - & 322,1.000D0, 0,254, 59, 0, 0, 0, - & 323,0.540D0, 0,266, 38, 0, 0, 0, - & 323,0.270D0, 0,265, 21, 0, 0, 0, - & 323,0.030D0, 0,266, 38, 21, 0, 0, - & 323,0.010D0, 0,265, 38, 30, 0, 0, - & 323,0.010D0, 0,265, 21, 21, 0, 0, - & 323,0.090D0, 0,222, 38, 21, 0, 0, - & 323,0.030D0, 0,221, 38, 30, 0, 0, - & 323,0.020D0, 0,221, 21, 21, 0, 0, - & 324,0.540D0, 0,265, 30, 0, 0, 0, - & 324,0.270D0, 0,266, 21, 0, 0, 0, - & 324,0.030D0, 0,265, 30, 21, 0, 0, - & 324,0.010D0, 0,266, 38, 30, 0, 0, - & 324,0.010D0, 0,266, 21, 21, 0, 0, - & 324,0.090D0, 0,221, 30, 21, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1901,1919)/ - & 324,0.030D0, 0,222, 38, 30, 0, 0, - & 324,0.020D0, 0,222, 21, 21, 0, 0, - & 325,0.500D0, 0,266, 46, 0, 0, 0, - & 325,0.500D0, 0,265, 50, 0, 0, 0, - & 326,1.000D0, 0,230, 59, 0, 0, 0, - & 327,0.667D0, 0, 50, 38, 0, 0, 0, - & 327,0.333D0, 0, 46, 21, 0, 0, 0, - & 328,0.667D0, 0, 46, 30, 0, 0, 0, - & 328,0.333D0, 0, 50, 21, 0, 0, 0, - & 329,0.667D0, 0, 34, 38, 0, 0, 0, - & 329,0.333D0, 0, 42, 21, 0, 0, 0, - & 330,0.667D0, 0, 42, 30, 0, 0, 0, - & 330,0.333D0, 0, 34, 21, 0, 0, 0, - & 331,0.667D0, 0,140, 38, 0, 0, 0, - & 331,0.333D0, 0,136, 21, 0, 0, 0, - & 332,0.667D0, 0,136, 30, 0, 0, 0, - & 332,0.333D0, 0,140, 21, 0, 0, 0, - & 333,0.500D0, 0,136, 50, 0, 0, 0, - & 333,0.500D0, 0,140, 46, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1920,1938)/ - & 334,0.667D0, 0,175, 30, 0, 0, 0, - & 334,0.333D0, 0,171, 21, 0, 0, 0, - & 335,0.667D0, 0,171, 38, 0, 0, 0, - & 335,0.333D0, 0,175, 21, 0, 0, 0, - & 336,0.500D0, 0,171, 42, 0, 0, 0, - & 336,0.500D0, 0,175, 34, 0, 0, 0, - & 337,0.667D0, 0,246, 30, 0, 0, 0, - & 337,0.333D0, 0,245, 21, 0, 0, 0, - & 338,0.667D0, 0,245, 38, 0, 0, 0, - & 338,0.333D0, 0,246, 21, 0, 0, 0, - & 339,0.500D0, 0,246, 34, 0, 0, 0, - & 339,0.500D0, 0,245, 42, 0, 0, 0, - & 340,1.000D0, 0,254, 59, 0, 0, 0, - & 341,0.667D0, 0,222, 38, 0, 0, 0, - & 341,0.333D0, 0,221, 21, 0, 0, 0, - & 342,0.667D0, 0,221, 30, 0, 0, 0, - & 342,0.333D0, 0,222, 21, 0, 0, 0, - & 343,0.500D0, 0,222, 46, 0, 0, 0, - & 343,0.500D0, 0,221, 50, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1939,1957)/ - & 344,1.000D0, 0,230, 59, 0, 0, 0, - & 345,1.000D0, 0,225, 30, 0, 0, 0, - & 346,1.000D0, 0,225, 21, 0, 0, 0, - & 347,1.000D0, 0,225, 21, 0, 0, 0, - & 348,1.000D0, 0,225, 38, 0, 0, 0, - & 349,0.600D0, 0,228, 38, 0, 0, 0, - & 349,0.300D0, 0,227, 21, 0, 0, 0, - & 349,0.100D0, 0,227, 59, 0, 0, 0, - & 350,0.600D0, 0,228, 38, 0, 0, 0, - & 350,0.300D0, 0,227, 21, 0, 0, 0, - & 350,0.100D0, 0,227, 59, 0, 0, 0, - & 351,0.600D0, 0,227, 30, 0, 0, 0, - & 351,0.300D0, 0,228, 21, 0, 0, 0, - & 351,0.100D0, 0,228, 59, 0, 0, 0, - & 352,0.600D0, 0,227, 30, 0, 0, 0, - & 352,0.300D0, 0,228, 21, 0, 0, 0, - & 352,0.100D0, 0,228, 59, 0, 0, 0, - & 353,1.000D0, 0,229, 59, 0, 0, 0, - & 354,1.000D0, 0,249, 38, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1958,1976)/ - & 355,1.000D0, 0,249, 21, 0, 0, 0, - & 356,1.000D0, 0,249, 21, 0, 0, 0, - & 357,1.000D0, 0,249, 30, 0, 0, 0, - & 358,0.600D0, 0,252, 30, 0, 0, 0, - & 358,0.300D0, 0,251, 21, 0, 0, 0, - & 358,0.100D0, 0,251, 59, 0, 0, 0, - & 359,0.600D0, 0,252, 30, 0, 0, 0, - & 359,0.300D0, 0,251, 21, 0, 0, 0, - & 359,0.100D0, 0,251, 59, 0, 0, 0, - & 360,0.600D0, 0,251, 38, 0, 0, 0, - & 360,0.300D0, 0,252, 21, 0, 0, 0, - & 360,0.100D0, 0,252, 59, 0, 0, 0, - & 361,0.600D0, 0,251, 38, 0, 0, 0, - & 361,0.300D0, 0,252, 21, 0, 0, 0, - & 361,0.100D0, 0,252, 59, 0, 0, 0, - & 362,1.000D0, 0,253, 59, 0, 0, 0, - & 363,0.400D0, 0, 53, 38, 0, 0, 0, - & 363,0.200D0, 0, 49, 21, 0, 0, 0, - & 363,0.100D0, 0, 51, 38, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1977,1995)/ - & 363,0.050D0, 0, 47, 21, 0, 0, 0, - & 363,0.150D0, 0, 46, 26, 0, 0, 0, - & 363,0.050D0, 0, 46, 56, 0, 0, 0, - & 363,0.050D0, 0, 46, 24, 0, 0, 0, - & 364,0.400D0, 0, 49, 30, 0, 0, 0, - & 364,0.200D0, 0, 53, 21, 0, 0, 0, - & 364,0.100D0, 0, 47, 30, 0, 0, 0, - & 364,0.050D0, 0, 51, 21, 0, 0, 0, - & 364,0.150D0, 0, 50, 26, 0, 0, 0, - & 364,0.050D0, 0, 50, 56, 0, 0, 0, - & 364,0.050D0, 0, 50, 24, 0, 0, 0, - & 365,0.400D0, 0, 37, 38, 0, 0, 0, - & 365,0.200D0, 0, 45, 21, 0, 0, 0, - & 365,0.100D0, 0, 35, 38, 0, 0, 0, - & 365,0.050D0, 0, 43, 21, 0, 0, 0, - & 365,0.150D0, 0, 42, 26, 0, 0, 0, - & 365,0.050D0, 0, 42, 56, 0, 0, 0, - & 365,0.050D0, 0, 42, 24, 0, 0, 0, - & 366,0.400D0, 0, 45, 30, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=1996,2014)/ - & 366,0.200D0, 0, 37, 21, 0, 0, 0, - & 366,0.100D0, 0, 43, 30, 0, 0, 0, - & 366,0.050D0, 0, 35, 21, 0, 0, 0, - & 366,0.150D0, 0, 34, 26, 0, 0, 0, - & 366,0.050D0, 0, 34, 56, 0, 0, 0, - & 366,0.050D0, 0, 34, 24, 0, 0, 0, - & 367,0.258D0, 0, 50, 38, 0, 0, 0, - & 367,0.129D0, 0, 46, 21, 0, 0, 0, - & 367,0.209D0, 0, 50, 39, 0, 0, 0, - & 367,0.105D0, 0, 46, 23, 0, 0, 0, - & 367,0.199D0, 0, 51, 38, 0, 0, 0, - & 367,0.100D0, 0, 47, 21, 0, 0, 0, - & 368,0.258D0, 0, 46, 30, 0, 0, 0, - & 368,0.129D0, 0, 50, 21, 0, 0, 0, - & 368,0.209D0, 0, 46, 31, 0, 0, 0, - & 368,0.105D0, 0, 50, 23, 0, 0, 0, - & 368,0.199D0, 0, 47, 30, 0, 0, 0, - & 368,0.100D0, 0, 51, 21, 0, 0, 0, - & 369,0.258D0, 0, 34, 38, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2015,2033)/ - & 369,0.129D0, 0, 42, 21, 0, 0, 0, - & 369,0.209D0, 0, 34, 39, 0, 0, 0, - & 369,0.105D0, 0, 42, 23, 0, 0, 0, - & 369,0.199D0, 0, 35, 38, 0, 0, 0, - & 369,0.100D0, 0, 43, 21, 0, 0, 0, - & 370,0.258D0, 0, 42, 30, 0, 0, 0, - & 370,0.129D0, 0, 34, 21, 0, 0, 0, - & 370,0.209D0, 0, 42, 31, 0, 0, 0, - & 370,0.105D0, 0, 34, 23, 0, 0, 0, - & 370,0.199D0, 0, 43, 30, 0, 0, 0, - & 370,0.100D0, 0, 35, 21, 0, 0, 0, - & 371,0.400D0, 0, 53, 38, 0, 0, 0, - & 371,0.200D0, 0, 49, 21, 0, 0, 0, - & 371,0.100D0, 0, 51, 38, 0, 0, 0, - & 371,0.050D0, 0, 47, 21, 0, 0, 0, - & 371,0.150D0, 0, 46, 26, 0, 0, 0, - & 371,0.050D0, 0, 46, 56, 0, 0, 0, - & 371,0.050D0, 0, 46, 24, 0, 0, 0, - & 372,0.400D0, 0, 49, 30, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2034,2052)/ - & 372,0.200D0, 0, 53, 21, 0, 0, 0, - & 372,0.100D0, 0, 47, 30, 0, 0, 0, - & 372,0.050D0, 0, 51, 21, 0, 0, 0, - & 372,0.150D0, 0, 50, 26, 0, 0, 0, - & 372,0.050D0, 0, 50, 56, 0, 0, 0, - & 372,0.050D0, 0, 50, 24, 0, 0, 0, - & 373,0.400D0, 0, 37, 38, 0, 0, 0, - & 373,0.200D0, 0, 45, 21, 0, 0, 0, - & 373,0.100D0, 0, 35, 38, 0, 0, 0, - & 373,0.050D0, 0, 43, 21, 0, 0, 0, - & 373,0.150D0, 0, 42, 26, 0, 0, 0, - & 373,0.050D0, 0, 42, 56, 0, 0, 0, - & 373,0.050D0, 0, 42, 24, 0, 0, 0, - & 374,0.400D0, 0, 45, 30, 0, 0, 0, - & 374,0.200D0, 0, 37, 21, 0, 0, 0, - & 374,0.100D0, 0, 43, 30, 0, 0, 0, - & 374,0.050D0, 0, 35, 21, 0, 0, 0, - & 374,0.150D0, 0, 34, 26, 0, 0, 0, - & 374,0.050D0, 0, 34, 56, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2053,2071)/ - & 374,0.050D0, 0, 34, 24, 0, 0, 0, - & 375,0.208D0, 0, 50, 39, 0, 0, 0, - & 375,0.104D0, 0, 46, 23, 0, 0, 0, - & 375,0.134D0, 0, 51, 38, 0, 0, 0, - & 375,0.067D0, 0, 47, 21, 0, 0, 0, - & 375,0.124D0, 0, 50, 38, 0, 0, 0, - & 375,0.062D0, 0, 46, 21, 0, 0, 0, - & 375,0.301D0, 0, 46, 22, 0, 0, 0, - & 376,0.208D0, 0, 46, 31, 0, 0, 0, - & 376,0.104D0, 0, 50, 23, 0, 0, 0, - & 376,0.134D0, 0, 47, 30, 0, 0, 0, - & 376,0.067D0, 0, 51, 21, 0, 0, 0, - & 376,0.124D0, 0, 46, 30, 0, 0, 0, - & 376,0.062D0, 0, 50, 21, 0, 0, 0, - & 376,0.301D0, 0, 50, 22, 0, 0, 0, - & 377,0.208D0, 0, 34, 39, 0, 0, 0, - & 377,0.104D0, 0, 42, 23, 0, 0, 0, - & 377,0.134D0, 0, 35, 38, 0, 0, 0, - & 377,0.067D0, 0, 43, 21, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2072,2090)/ - & 377,0.124D0, 0, 34, 38, 0, 0, 0, - & 377,0.062D0, 0, 42, 21, 0, 0, 0, - & 377,0.301D0, 0, 42, 22, 0, 0, 0, - & 378,0.208D0, 0, 42, 31, 0, 0, 0, - & 378,0.104D0, 0, 34, 23, 0, 0, 0, - & 378,0.134D0, 0, 43, 30, 0, 0, 0, - & 378,0.067D0, 0, 35, 21, 0, 0, 0, - & 378,0.124D0, 0, 42, 30, 0, 0, 0, - & 378,0.062D0, 0, 34, 21, 0, 0, 0, - & 378,0.301D0, 0, 34, 22, 0, 0, 0, - & 379,0.562D0, 0, 26, 38, 0, 0, 0, - & 379,0.155D0, 0, 39, 21, 0, 0, 0, - & 379,0.155D0, 0, 23, 38, 0, 0, 0, - & 379,0.088D0, 0,293, 38, 0, 0, 0, - & 379,0.020D0, 0, 46, 43, 0, 0, 0, - & 379,0.020D0, 0, 42, 47, 0, 0, 0, - & 380,0.562D0, 0, 26, 21, 0, 0, 0, - & 380,0.155D0, 0, 39, 30, 0, 0, 0, - & 380,0.155D0, 0, 31, 38, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2091,2109)/ - & 380,0.088D0, 0,293, 21, 0, 0, 0, - & 380,0.010D0, 0, 46, 35, 0, 0, 0, - & 380,0.010D0, 0, 50, 43, 0, 0, 0, - & 380,0.010D0, 0, 34, 47, 0, 0, 0, - & 380,0.010D0, 0, 42, 51, 0, 0, 0, - & 381,0.562D0, 0, 26, 30, 0, 0, 0, - & 381,0.155D0, 0, 31, 21, 0, 0, 0, - & 381,0.155D0, 0, 23, 30, 0, 0, 0, - & 381,0.088D0, 0,293, 30, 0, 0, 0, - & 381,0.020D0, 0, 34, 51, 0, 0, 0, - & 381,0.020D0, 0, 50, 35, 0, 0, 0, - & 382,0.360D0, 0, 31, 38, 38, 0, 0, - & 382,0.180D0, 0, 23, 38, 21, 0, 0, - & 382,0.040D0, 0, 39, 21, 21, 0, 0, - & 382,0.020D0, 0, 39, 38, 30, 0, 0, - & 382,0.300D0, 0, 38, 21, 0, 0, 0, - & 382,0.040D0, 0, 46, 43, 0, 0, 0, - & 382,0.040D0, 0, 42, 47, 0, 0, 0, - & 382,0.020D0, 0, 22, 39, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2110,2128)/ - & 383,0.180D0, 0, 39, 30, 21, 0, 0, - & 383,0.180D0, 0, 31, 38, 21, 0, 0, - & 383,0.160D0, 0, 23, 21, 21, 0, 0, - & 383,0.080D0, 0, 23, 38, 30, 0, 0, - & 383,0.300D0, 0, 38, 30, 0, 0, 0, - & 383,0.020D0, 0, 46, 35, 0, 0, 0, - & 383,0.020D0, 0, 50, 43, 0, 0, 0, - & 383,0.020D0, 0, 34, 47, 0, 0, 0, - & 383,0.020D0, 0, 42, 51, 0, 0, 0, - & 383,0.020D0, 0, 22, 23, 0, 0, 0, - & 384,0.360D0, 0, 39, 30, 30, 0, 0, - & 384,0.180D0, 0, 23, 30, 21, 0, 0, - & 384,0.040D0, 0, 31, 21, 21, 0, 0, - & 384,0.020D0, 0, 31, 30, 38, 0, 0, - & 384,0.300D0, 0, 30, 21, 0, 0, 0, - & 384,0.040D0, 0, 34, 51, 0, 0, 0, - & 384,0.040D0, 0, 50, 35, 0, 0, 0, - & 384,0.020D0, 0, 22, 31, 0, 0, 0, - & 385,0.184D0, 0, 41, 21, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2129,2147)/ - & 385,0.184D0, 0, 29, 38, 0, 0, 0, - & 385,0.184D0, 0, 39, 23, 0, 0, 0, - & 385,0.236D0, 0, 38, 21, 0, 0, 0, - & 385,0.160D0, 0, 24, 38, 0, 0, 0, - & 385,0.018D0, 0, 46, 43, 0, 0, 0, - & 385,0.018D0, 0, 42, 47, 0, 0, 0, - & 385,0.016D0, 0, 46, 42, 0, 0, 0, - & 386,0.184D0, 0, 41, 30, 0, 0, 0, - & 386,0.184D0, 0, 33, 38, 0, 0, 0, - & 386,0.184D0, 0, 39, 31, 0, 0, 0, - & 386,0.236D0, 0, 38, 30, 0, 0, 0, - & 386,0.160D0, 0, 24, 21, 0, 0, 0, - & 386,0.009D0, 0, 46, 35, 0, 0, 0, - & 386,0.009D0, 0, 50, 43, 0, 0, 0, - & 386,0.009D0, 0, 34, 47, 0, 0, 0, - & 386,0.009D0, 0, 42, 51, 0, 0, 0, - & 386,0.008D0, 0, 46, 34, 0, 0, 0, - & 386,0.008D0, 0, 42, 50, 0, 0, 0, - & 387,0.184D0, 0, 33, 21, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2148,2166)/ - & 387,0.184D0, 0, 29, 30, 0, 0, 0, - & 387,0.184D0, 0, 31, 23, 0, 0, 0, - & 387,0.236D0, 0, 30, 21, 0, 0, 0, - & 387,0.160D0, 0, 24, 30, 0, 0, 0, - & 387,0.018D0, 0, 34, 51, 0, 0, 0, - & 387,0.018D0, 0, 50, 35, 0, 0, 0, - & 387,0.016D0, 0, 34, 50, 0, 0, 0, - & 388,0.183D0, 0,231, 38, 30, 0, 0, - & 388,0.091D0, 0,231, 21, 21, 0, 0, - & 388,0.067D0, 0, 59,307, 0, 0, 0, - & 388,0.066D0, 0, 59,308, 0, 0, 0, - & 388,0.043D0, 0, 59,309, 0, 0, 0, - & 388,0.446D0,130, 13, 13, 13, 0, 0, - & 388,0.023D0,130, 13, 13, 59, 0, 0, - & 388,0.013D0, 0,121,127, 0, 0, 0, - & 388,0.013D0, 0,123,129, 0, 0, 0, - & 388,0.013D0, 0,125,131, 0, 0, 0, - & 388,0.004D0, 0, 1, 7, 0, 0, 0, - & 388,0.017D0, 0, 2, 8, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2167,2185)/ - & 388,0.004D0, 0, 3, 9, 0, 0, 0, - & 388,0.017D0, 0, 4, 10, 0, 0, 0, - & 389,0.046D0, 0, 59,388, 0, 0, 0, - & 389,0.009D0, 0, 59,231, 0, 0, 0, - & 389,0.755D0, 0, 13, 13, 0, 0, 0, - & 389,0.030D0, 0,121,127, 0, 0, 0, - & 389,0.030D0, 0,123,129, 0, 0, 0, - & 389,0.030D0, 0,125,131, 0, 0, 0, - & 389,0.010D0, 0, 1, 7, 0, 0, 0, - & 389,0.040D0, 0, 2, 8, 0, 0, 0, - & 389,0.010D0, 0, 3, 9, 0, 0, 0, - & 389,0.040D0, 0, 4, 10, 0, 0, 0, - & 390,0.210D0, 0, 59,388, 0, 0, 0, - & 390,0.085D0, 0, 59,231, 0, 0, 0, - & 390,0.565D0, 0, 13, 13, 0, 0, 0, - & 390,0.022D0, 0,121,127, 0, 0, 0, - & 390,0.022D0, 0,123,129, 0, 0, 0, - & 390,0.022D0, 0,125,131, 0, 0, 0, - & 390,0.007D0, 0, 1, 7, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2186,2204)/ - & 390,0.030D0, 0, 2, 8, 0, 0, 0, - & 390,0.007D0, 0, 3, 9, 0, 0, 0, - & 390,0.030D0, 0, 4, 10, 0, 0, 0, - & 391,0.162D0, 0, 59,388, 0, 0, 0, - & 391,0.071D0, 0, 59,231, 0, 0, 0, - & 391,0.615D0, 0, 13, 13, 0, 0, 0, - & 391,0.024D0, 0,121,127, 0, 0, 0, - & 391,0.024D0, 0,123,129, 0, 0, 0, - & 391,0.024D0, 0,125,131, 0, 0, 0, - & 391,0.008D0, 0, 1, 7, 0, 0, 0, - & 391,0.032D0, 0, 2, 8, 0, 0, 0, - & 391,0.008D0, 0, 3, 9, 0, 0, 0, - & 391,0.032D0, 0, 4, 10, 0, 0, 0, - & 392,0.034D0, 0,267, 38, 30, 0, 0, - & 392,0.017D0, 0,267, 21, 21, 0, 0, - & 392,0.044D0, 0,231, 38, 30, 0, 0, - & 392,0.022D0, 0,231, 21, 21, 0, 0, - & 392,0.050D0, 0,267, 59, 59, 0, 0, - & 392,0.114D0, 0, 59,389, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2205,2223)/ - & 392,0.113D0, 0, 59,390, 0, 0, 0, - & 392,0.054D0, 0, 59,391, 0, 0, 0, - & 392,0.403D0,130, 13, 13, 13, 0, 0, - & 392,0.021D0,130, 13, 13, 59, 0, 0, - & 392,0.020D0, 0,121,127, 0, 0, 0, - & 392,0.020D0, 0,123,129, 0, 0, 0, - & 392,0.020D0, 0,125,131, 0, 0, 0, - & 392,0.007D0, 0, 1, 7, 0, 0, 0, - & 392,0.027D0, 0, 2, 8, 0, 0, 0, - & 392,0.007D0, 0, 3, 9, 0, 0, 0, - & 392,0.027D0, 0, 4, 10, 0, 0, 0, - & 393,0.250D0, 0,246,222, 0, 0, 0, - & 393,0.250D0, 0,245,221, 0, 0, 0, - & 393,0.385D0,130, 13, 13, 13, 0, 0, - & 393,0.020D0,130, 13, 13, 59, 0, 0, - & 393,0.015D0, 0,121,127, 0, 0, 0, - & 393,0.015D0, 0,123,129, 0, 0, 0, - & 393,0.015D0, 0,125,131, 0, 0, 0, - & 393,0.005D0, 0, 1, 7, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2224,2242)/ - & 393,0.020D0, 0, 2, 8, 0, 0, 0, - & 393,0.005D0, 0, 3, 9, 0, 0, 0, - & 393,0.020D0, 0, 4, 10, 0, 0, 0, - & 395,0.195D0, 0, 39, 30, 0, 0, 0, - & 395,0.195D0, 0, 23, 21, 0, 0, 0, - & 395,0.195D0, 0, 31, 38, 0, 0, 0, - & 395,0.105D0, 0,286, 30, 0, 0, 0, - & 395,0.105D0, 0,285, 21, 0, 0, 0, - & 395,0.105D0, 0,287, 38, 0, 0, 0, - & 395,0.065D0, 0, 24, 38, 30, 0, 0, - & 395,0.035D0, 0, 24, 21, 21, 0, 0, - & 396,0.320D0, 0, 46, 34, 0, 0, 0, - & 396,0.320D0, 0, 60, 61, 0, 0, 0, - & 396,0.090D0, 0, 46, 35, 0, 0, 0, - & 396,0.090D0, 0, 42, 51, 0, 0, 0, - & 396,0.090D0, 0, 50, 43, 0, 0, 0, - & 396,0.090D0, 0, 34, 47, 0, 0, 0, - & 397,0.312D0, 0, 41, 30, 0, 0, 0, - & 397,0.312D0, 0, 29, 21, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2243,2261)/ - & 397,0.312D0, 0, 33, 38, 0, 0, 0, - & 397,0.016D0, 0, 46, 35, 0, 0, 0, - & 397,0.016D0, 0, 42, 51, 0, 0, 0, - & 397,0.016D0, 0, 50, 43, 0, 0, 0, - & 397,0.016D0, 0, 34, 47, 0, 0, 0, - & 398,0.805D0, 0, 26, 22, 0, 0, 0, - & 398,0.065D0, 0, 41, 30, 0, 0, 0, - & 398,0.065D0, 0, 29, 21, 0, 0, 0, - & 398,0.065D0, 0, 33, 38, 0, 0, 0, - & 399,0.667D0, 0, 24, 38, 30, 0, 0, - & 399,0.333D0, 0, 24, 21, 21, 0, 0, - & 62,0.440D0, 0, 21, 22, 0, 0, 0, - & 62,0.160D0, 0, 21, 25, 0, 0, 0, - & 62,0.200D0, 0, 50, 42, 0, 0, 0, - & 62,0.200D0, 0, 46, 34, 0, 0, 0, - & 63,0.440D0, 0, 38, 22, 0, 0, 0, - & 63,0.160D0, 0, 38, 25, 0, 0, 0, - & 63,0.400D0, 0, 46, 42, 0, 0, 0, - & 64,0.440D0, 0, 30, 22, 0, 0, 0/ - DATA (IDK(I),BRFRAC(I),NME(I),(IDKPRD(J,I),J=1,5),I=2262,2263)/ - & 64,0.160D0, 0, 30, 25, 0, 0, 0, - & 64,0.400D0, 0, 50, 34, 0, 0, 0/ -C--data for MRST98 LO PDF's - DATA (FMRS(1,1,I, 1),I=1,49)/ - & 0.01518D0, 0.01868D0, 0.02298D0, 0.02594D0, 0.02828D0, - & 0.03023D0, 0.03724D0, 0.04592D0, 0.05197D0, 0.05679D0, - & 0.06085D0, 0.07576D0, 0.09547D0, 0.11035D0, 0.12307D0, - & 0.13453D0, 0.15525D0, 0.18319D0, 0.22542D0, 0.26441D0, - & 0.33553D0, 0.39881D0, 0.45451D0, 0.51363D0, 0.56120D0, - & 0.59755D0, 0.62324D0, 0.63889D0, 0.64529D0, 0.64295D0, - & 0.63335D0, 0.61691D0, 0.59464D0, 0.56748D0, 0.53621D0, - & 0.50180D0, 0.46495D0, 0.42660D0, 0.38735D0, 0.34791D0, - & 0.30888D0, 0.27105D0, 0.23455D0, 0.16807D0, 0.11197D0, - & 0.06774D0, 0.03566D0, 0.00443D0, 0.00000D0/ - DATA (FMRS(1,1,I, 2),I=1,49)/ - & 0.01534D0, 0.01889D0, 0.02325D0, 0.02625D0, 0.02862D0, - & 0.03061D0, 0.03771D0, 0.04653D0, 0.05268D0, 0.05757D0, - & 0.06171D0, 0.07691D0, 0.09707D0, 0.11230D0, 0.12533D0, - & 0.13708D0, 0.15827D0, 0.18678D0, 0.22968D0, 0.26907D0, - & 0.34038D0, 0.40321D0, 0.45801D0, 0.51556D0, 0.56122D0, - & 0.59551D0, 0.61905D0, 0.63261D0, 0.63699D0, 0.63286D0, - & 0.62162D0, 0.60381D0, 0.58043D0, 0.55244D0, 0.52060D0, - & 0.48591D0, 0.44902D0, 0.41090D0, 0.37213D0, 0.33332D0, - & 0.29514D0, 0.25827D0, 0.22283D0, 0.15873D0, 0.10506D0, - & 0.06310D0, 0.03294D0, 0.00399D0, 0.00000D0/ - DATA (FMRS(1,1,I, 3),I=1,49)/ - & 0.01559D0, 0.01920D0, 0.02365D0, 0.02672D0, 0.02914D0, - & 0.03116D0, 0.03842D0, 0.04744D0, 0.05374D0, 0.05876D0, - & 0.06301D0, 0.07866D0, 0.09949D0, 0.11525D0, 0.12874D0, - & 0.14090D0, 0.16278D0, 0.19212D0, 0.23598D0, 0.27589D0, - & 0.34735D0, 0.40941D0, 0.46279D0, 0.51792D0, 0.56073D0, - & 0.59195D0, 0.61237D0, 0.62289D0, 0.62439D0, 0.61773D0, - & 0.60419D0, 0.58448D0, 0.55962D0, 0.53052D0, 0.49799D0, - & 0.46298D0, 0.42617D0, 0.38844D0, 0.35048D0, 0.31268D0, - & 0.27573D0, 0.24031D0, 0.20643D0, 0.14575D0, 0.09554D0, - & 0.05679D0, 0.02927D0, 0.00342D0, 0.00000D0/ - DATA (FMRS(1,1,I, 4),I=1,49)/ - & 0.01577D0, 0.01944D0, 0.02395D0, 0.02707D0, 0.02952D0, - & 0.03158D0, 0.03895D0, 0.04812D0, 0.05453D0, 0.05964D0, - & 0.06398D0, 0.07996D0, 0.10128D0, 0.11743D0, 0.13126D0, - & 0.14371D0, 0.16610D0, 0.19602D0, 0.24052D0, 0.28078D0, - & 0.35225D0, 0.41367D0, 0.46596D0, 0.51926D0, 0.56000D0, - & 0.58897D0, 0.60716D0, 0.61554D0, 0.61505D0, 0.60661D0, - & 0.59150D0, 0.57049D0, 0.54465D0, 0.51484D0, 0.48194D0, - & 0.44680D0, 0.41012D0, 0.37271D0, 0.33536D0, 0.29833D0, - & 0.26227D0, 0.22791D0, 0.19519D0, 0.13692D0, 0.08913D0, - & 0.05257D0, 0.02685D0, 0.00306D0, 0.00000D0/ - DATA (FMRS(1,1,I, 5),I=1,49)/ - & 0.01597D0, 0.01969D0, 0.02427D0, 0.02744D0, 0.02993D0, - & 0.03202D0, 0.03952D0, 0.04885D0, 0.05537D0, 0.06058D0, - & 0.06501D0, 0.08134D0, 0.10319D0, 0.11975D0, 0.13393D0, - & 0.14669D0, 0.16958D0, 0.20009D0, 0.24521D0, 0.28578D0, - & 0.35715D0, 0.41781D0, 0.46887D0, 0.52022D0, 0.55877D0, - & 0.58539D0, 0.60126D0, 0.60744D0, 0.60489D0, 0.59469D0, - & 0.57807D0, 0.55581D0, 0.52903D0, 0.49861D0, 0.46535D0, - & 0.43012D0, 0.39368D0, 0.35672D0, 0.32002D0, 0.28380D0, - & 0.24878D0, 0.21549D0, 0.18398D0, 0.12819D0, 0.08284D0, - & 0.04845D0, 0.02451D0, 0.00272D0, 0.00000D0/ - DATA (FMRS(1,1,I, 6),I=1,49)/ - & 0.01613D0, 0.01990D0, 0.02455D0, 0.02776D0, 0.03029D0, - & 0.03241D0, 0.04001D0, 0.04949D0, 0.05611D0, 0.06141D0, - & 0.06592D0, 0.08256D0, 0.10485D0, 0.12178D0, 0.13626D0, - & 0.14927D0, 0.17260D0, 0.20361D0, 0.24924D0, 0.29005D0, - & 0.36128D0, 0.42124D0, 0.47121D0, 0.52086D0, 0.55750D0, - & 0.58213D0, 0.59603D0, 0.60035D0, 0.59612D0, 0.58445D0, - & 0.56659D0, 0.54334D0, 0.51581D0, 0.48493D0, 0.45142D0, - & 0.41618D0, 0.37998D0, 0.34345D0, 0.30732D0, 0.27182D0, - & 0.23768D0, 0.20532D0, 0.17482D0, 0.12110D0, 0.07777D0, - & 0.04515D0, 0.02267D0, 0.00245D0, 0.00000D0/ - DATA (FMRS(1,1,I, 7),I=1,49)/ - & 0.01630D0, 0.02011D0, 0.02482D0, 0.02807D0, 0.03063D0, - & 0.03278D0, 0.04049D0, 0.05010D0, 0.05683D0, 0.06221D0, - & 0.06680D0, 0.08373D0, 0.10647D0, 0.12373D0, 0.13849D0, - & 0.15175D0, 0.17549D0, 0.20695D0, 0.25304D0, 0.29403D0, - & 0.36506D0, 0.42430D0, 0.47319D0, 0.52118D0, 0.55597D0, - & 0.57870D0, 0.59079D0, 0.59337D0, 0.58760D0, 0.57458D0, - & 0.55556D0, 0.53145D0, 0.50329D0, 0.47196D0, 0.43832D0, - & 0.40316D0, 0.36719D0, 0.33110D0, 0.29555D0, 0.26076D0, - & 0.22742D0, 0.19600D0, 0.16642D0, 0.11467D0, 0.07318D0, - & 0.04221D0, 0.02103D0, 0.00223D0, 0.00000D0/ - DATA (FMRS(1,1,I, 8),I=1,49)/ - & 0.01647D0, 0.02033D0, 0.02511D0, 0.02840D0, 0.03100D0, - & 0.03318D0, 0.04101D0, 0.05076D0, 0.05760D0, 0.06307D0, - & 0.06774D0, 0.08499D0, 0.10819D0, 0.12581D0, 0.14088D0, - & 0.15440D0, 0.17856D0, 0.21047D0, 0.25702D0, 0.29817D0, - & 0.36893D0, 0.42735D0, 0.47507D0, 0.52128D0, 0.55411D0, - & 0.57487D0, 0.58505D0, 0.58586D0, 0.57850D0, 0.56412D0, - & 0.54397D0, 0.51898D0, 0.49021D0, 0.45851D0, 0.42474D0, - & 0.38970D0, 0.35404D0, 0.31842D0, 0.28351D0, 0.24949D0, - & 0.21700D0, 0.18654D0, 0.15795D0, 0.10821D0, 0.06861D0, - & 0.03930D0, 0.01942D0, 0.00201D0, 0.00000D0/ - DATA (FMRS(1,1,I, 9),I=1,49)/ - & 0.01662D0, 0.02053D0, 0.02536D0, 0.02869D0, 0.03133D0, - & 0.03353D0, 0.04146D0, 0.05135D0, 0.05828D0, 0.06382D0, - & 0.06856D0, 0.08610D0, 0.10971D0, 0.12764D0, 0.14296D0, - & 0.15670D0, 0.18121D0, 0.21352D0, 0.26045D0, 0.30172D0, - & 0.37220D0, 0.42986D0, 0.47655D0, 0.52120D0, 0.55234D0, - & 0.57141D0, 0.57995D0, 0.57927D0, 0.57058D0, 0.55506D0, - & 0.53402D0, 0.50830D0, 0.47904D0, 0.44709D0, 0.41323D0, - & 0.37832D0, 0.34296D0, 0.30776D0, 0.27344D0, 0.24008D0, - & 0.20833D0, 0.17868D0, 0.15093D0, 0.10287D0, 0.06487D0, - & 0.03693D0, 0.01812D0, 0.00183D0, 0.00000D0/ - DATA (FMRS(1,1,I,10),I=1,49)/ - & 0.01676D0, 0.02072D0, 0.02560D0, 0.02898D0, 0.03164D0, - & 0.03388D0, 0.04190D0, 0.05191D0, 0.05894D0, 0.06456D0, - & 0.06937D0, 0.08718D0, 0.11117D0, 0.12940D0, 0.14497D0, - & 0.15892D0, 0.18377D0, 0.21643D0, 0.26368D0, 0.30503D0, - & 0.37520D0, 0.43209D0, 0.47774D0, 0.52089D0, 0.55041D0, - & 0.56787D0, 0.57486D0, 0.57280D0, 0.56285D0, 0.54631D0, - & 0.52442D0, 0.49810D0, 0.46842D0, 0.43624D0, 0.40236D0, - & 0.36762D0, 0.33255D0, 0.29778D0, 0.26402D0, 0.23132D0, - & 0.20029D0, 0.17139D0, 0.14445D0, 0.09798D0, 0.06147D0, - & 0.03479D0, 0.01695D0, 0.00168D0, 0.00000D0/ - DATA (FMRS(1,1,I,11),I=1,49)/ - & 0.01688D0, 0.02087D0, 0.02580D0, 0.02920D0, 0.03189D0, - & 0.03415D0, 0.04225D0, 0.05236D0, 0.05946D0, 0.06515D0, - & 0.07001D0, 0.08804D0, 0.11234D0, 0.13081D0, 0.14657D0, - & 0.16068D0, 0.18579D0, 0.21873D0, 0.26622D0, 0.30762D0, - & 0.37751D0, 0.43378D0, 0.47859D0, 0.52054D0, 0.54880D0, - & 0.56500D0, 0.57079D0, 0.56765D0, 0.55675D0, 0.53942D0, - & 0.51689D0, 0.49012D0, 0.46015D0, 0.42782D0, 0.39393D0, - & 0.35936D0, 0.32453D0, 0.29009D0, 0.25678D0, 0.22461D0, - & 0.19416D0, 0.16583D0, 0.13951D0, 0.09427D0, 0.05892D0, - & 0.03318D0, 0.01609D0, 0.00157D0, 0.00000D0/ - DATA (FMRS(1,1,I,12),I=1,49)/ - & 0.01713D0, 0.02119D0, 0.02622D0, 0.02969D0, 0.03243D0, - & 0.03474D0, 0.04300D0, 0.05334D0, 0.06060D0, 0.06641D0, - & 0.07140D0, 0.08989D0, 0.11485D0, 0.13381D0, 0.14997D0, - & 0.16442D0, 0.19008D0, 0.22357D0, 0.27152D0, 0.31299D0, - & 0.38219D0, 0.43708D0, 0.48008D0, 0.51946D0, 0.54505D0, - & 0.55859D0, 0.56192D0, 0.55654D0, 0.54370D0, 0.52483D0, - & 0.50100D0, 0.47335D0, 0.44283D0, 0.41025D0, 0.37649D0, - & 0.34225D0, 0.30799D0, 0.27433D0, 0.24202D0, 0.21092D0, - & 0.18167D0, 0.15459D0, 0.12954D0, 0.08683D0, 0.05380D0, - & 0.03001D0, 0.01438D0, 0.00136D0, 0.00000D0/ - DATA (FMRS(1,1,I,13),I=1,49)/ - & 0.01734D0, 0.02147D0, 0.02658D0, 0.03011D0, 0.03290D0, - & 0.03525D0, 0.04366D0, 0.05419D0, 0.06158D0, 0.06752D0, - & 0.07261D0, 0.09150D0, 0.11703D0, 0.13641D0, 0.15292D0, - & 0.16765D0, 0.19375D0, 0.22769D0, 0.27599D0, 0.31747D0, - & 0.38599D0, 0.43964D0, 0.48105D0, 0.51822D0, 0.54152D0, - & 0.55284D0, 0.55412D0, 0.54689D0, 0.53251D0, 0.51240D0, - & 0.48756D0, 0.45925D0, 0.42833D0, 0.39563D0, 0.36202D0, - & 0.32809D0, 0.29438D0, 0.26143D0, 0.22998D0, 0.19977D0, - & 0.17155D0, 0.14553D0, 0.12155D0, 0.08091D0, 0.04976D0, - & 0.02753D0, 0.01306D0, 0.00120D0, 0.00000D0/ - DATA (FMRS(1,1,I,14),I=1,49)/ - & 0.01759D0, 0.02179D0, 0.02699D0, 0.03059D0, 0.03343D0, - & 0.03582D0, 0.04441D0, 0.05515D0, 0.06270D0, 0.06876D0, - & 0.07397D0, 0.09331D0, 0.11948D0, 0.13933D0, 0.15621D0, - & 0.17125D0, 0.19782D0, 0.23224D0, 0.28086D0, 0.32228D0, - & 0.38998D0, 0.44216D0, 0.48181D0, 0.51649D0, 0.53727D0, - & 0.54619D0, 0.54525D0, 0.53606D0, 0.52007D0, 0.49864D0, - & 0.47286D0, 0.44390D0, 0.41261D0, 0.37987D0, 0.34645D0, - & 0.31295D0, 0.27985D0, 0.24773D0, 0.21718D0, 0.18802D0, - & 0.16091D0, 0.13605D0, 0.11323D0, 0.07479D0, 0.04562D0, - & 0.02500D0, 0.01174D0, 0.00105D0, 0.00000D0/ - DATA (FMRS(1,1,I,15),I=1,49)/ - & 0.01784D0, 0.02212D0, 0.02742D0, 0.03109D0, 0.03399D0, - & 0.03643D0, 0.04519D0, 0.05616D0, 0.06388D0, 0.07007D0, - & 0.07541D0, 0.09522D0, 0.12203D0, 0.14235D0, 0.15961D0, - & 0.17496D0, 0.20199D0, 0.23684D0, 0.28574D0, 0.32703D0, - & 0.39374D0, 0.44435D0, 0.48208D0, 0.51422D0, 0.53243D0, - & 0.53888D0, 0.53581D0, 0.52470D0, 0.50714D0, 0.48444D0, - & 0.45778D0, 0.42824D0, 0.39670D0, 0.36400D0, 0.33079D0, - & 0.29784D0, 0.26546D0, 0.23422D0, 0.20462D0, 0.17657D0, - & 0.15056D0, 0.12684D0, 0.10517D0, 0.06893D0, 0.04169D0, - & 0.02264D0, 0.01051D0, 0.00091D0, 0.00000D0/ - DATA (FMRS(1,1,I,16),I=1,49)/ - & 0.01807D0, 0.02243D0, 0.02782D0, 0.03155D0, 0.03450D0, - & 0.03698D0, 0.04591D0, 0.05708D0, 0.06495D0, 0.07127D0, - & 0.07672D0, 0.09696D0, 0.12435D0, 0.14510D0, 0.16268D0, - & 0.17830D0, 0.20573D0, 0.24094D0, 0.29002D0, 0.33115D0, - & 0.39689D0, 0.44603D0, 0.48202D0, 0.51185D0, 0.52778D0, - & 0.53213D0, 0.52713D0, 0.51440D0, 0.49550D0, 0.47182D0, - & 0.44444D0, 0.41444D0, 0.38277D0, 0.35014D0, 0.31726D0, - & 0.28479D0, 0.25306D0, 0.22258D0, 0.19389D0, 0.16682D0, - & 0.14175D0, 0.11905D0, 0.09839D0, 0.06403D0, 0.03844D0, - & 0.02069D0, 0.00951D0, 0.00080D0, 0.00000D0/ - DATA (FMRS(1,1,I,17),I=1,49)/ - & 0.01831D0, 0.02273D0, 0.02822D0, 0.03202D0, 0.03502D0, - & 0.03755D0, 0.04663D0, 0.05802D0, 0.06604D0, 0.07249D0, - & 0.07805D0, 0.09872D0, 0.12670D0, 0.14787D0, 0.16578D0, - & 0.18165D0, 0.20947D0, 0.24500D0, 0.29423D0, 0.33515D0, - & 0.39986D0, 0.44747D0, 0.48171D0, 0.50924D0, 0.52291D0, - & 0.52522D0, 0.51836D0, 0.50409D0, 0.48395D0, 0.45934D0, - & 0.43132D0, 0.40095D0, 0.36919D0, 0.33668D0, 0.30419D0, - & 0.27223D0, 0.24118D0, 0.21147D0, 0.18368D0, 0.15756D0, - & 0.13343D0, 0.11172D0, 0.09203D0, 0.05947D0, 0.03543D0, - & 0.01891D0, 0.00861D0, 0.00070D0, 0.00000D0/ - DATA (FMRS(1,1,I,18),I=1,49)/ - & 0.01851D0, 0.02299D0, 0.02855D0, 0.03241D0, 0.03546D0, - & 0.03802D0, 0.04724D0, 0.05881D0, 0.06696D0, 0.07351D0, - & 0.07917D0, 0.10019D0, 0.12865D0, 0.15015D0, 0.16833D0, - & 0.18440D0, 0.21252D0, 0.24831D0, 0.29761D0, 0.33832D0, - & 0.40212D0, 0.44845D0, 0.48121D0, 0.50687D0, 0.51871D0, - & 0.51934D0, 0.51104D0, 0.49556D0, 0.47446D0, 0.44911D0, - & 0.42066D0, 0.39005D0, 0.35822D0, 0.32587D0, 0.29370D0, - & 0.26224D0, 0.23174D0, 0.20270D0, 0.17561D0, 0.15023D0, - & 0.12693D0, 0.10599D0, 0.08707D0, 0.05595D0, 0.03312D0, - & 0.01756D0, 0.00793D0, 0.00063D0, 0.00000D0/ - DATA (FMRS(1,1,I,19),I=1,49)/ - & 0.01875D0, 0.02330D0, 0.02896D0, 0.03288D0, 0.03599D0, - & 0.03859D0, 0.04798D0, 0.05977D0, 0.06807D0, 0.07475D0, - & 0.08052D0, 0.10198D0, 0.13101D0, 0.15292D0, 0.17139D0, - & 0.18771D0, 0.21617D0, 0.25222D0, 0.30155D0, 0.34198D0, - & 0.40461D0, 0.44935D0, 0.48033D0, 0.50374D0, 0.51343D0, - & 0.51210D0, 0.50212D0, 0.48526D0, 0.46307D0, 0.43693D0, - & 0.40797D0, 0.37715D0, 0.34533D0, 0.31321D0, 0.28148D0, - & 0.25058D0, 0.22080D0, 0.19255D0, 0.16635D0, 0.14187D0, - & 0.11948D0, 0.09946D0, 0.08142D0, 0.05198D0, 0.03054D0, - & 0.01606D0, 0.00718D0, 0.00056D0, 0.00000D0/ - DATA (FMRS(1,1,I,20),I=1,49)/ - & 0.01896D0, 0.02358D0, 0.02932D0, 0.03331D0, 0.03646D0, - & 0.03911D0, 0.04864D0, 0.06062D0, 0.06906D0, 0.07585D0, - & 0.08173D0, 0.10357D0, 0.13310D0, 0.15536D0, 0.17410D0, - & 0.19062D0, 0.21937D0, 0.25563D0, 0.30495D0, 0.34510D0, - & 0.40666D0, 0.44998D0, 0.47941D0, 0.50085D0, 0.50868D0, - & 0.50571D0, 0.49430D0, 0.47628D0, 0.45320D0, 0.42642D0, - & 0.39707D0, 0.36611D0, 0.33435D0, 0.30245D0, 0.27113D0, - & 0.24074D0, 0.21159D0, 0.18404D0, 0.15862D0, 0.13491D0, - & 0.11330D0, 0.09405D0, 0.07676D0, 0.04872D0, 0.02844D0, - & 0.01484D0, 0.00658D0, 0.00050D0, 0.00000D0/ - DATA (FMRS(1,1,I,21),I=1,49)/ - & 0.01916D0, 0.02384D0, 0.02966D0, 0.03370D0, 0.03689D0, - & 0.03958D0, 0.04926D0, 0.06141D0, 0.06998D0, 0.07687D0, - & 0.08284D0, 0.10503D0, 0.13502D0, 0.15758D0, 0.17655D0, - & 0.19325D0, 0.22223D0, 0.25866D0, 0.30794D0, 0.34779D0, - & 0.40831D0, 0.45032D0, 0.47832D0, 0.49795D0, 0.50413D0, - & 0.49968D0, 0.48705D0, 0.46802D0, 0.44417D0, 0.41690D0, - & 0.38723D0, 0.35619D0, 0.32452D0, 0.29287D0, 0.26194D0, - & 0.23205D0, 0.20344D0, 0.17655D0, 0.15180D0, 0.12880D0, - & 0.10792D0, 0.08934D0, 0.07273D0, 0.04591D0, 0.02665D0, - & 0.01381D0, 0.00607D0, 0.00045D0, 0.00000D0/ - DATA (FMRS(1,1,I,22),I=1,49)/ - & 0.01941D0, 0.02417D0, 0.03009D0, 0.03420D0, 0.03745D0, - & 0.04018D0, 0.05003D0, 0.06241D0, 0.07114D0, 0.07817D0, - & 0.08426D0, 0.10688D0, 0.13744D0, 0.16039D0, 0.17965D0, - & 0.19656D0, 0.22582D0, 0.26244D0, 0.31163D0, 0.35107D0, - & 0.41025D0, 0.45056D0, 0.47676D0, 0.49416D0, 0.49829D0, - & 0.49204D0, 0.47792D0, 0.45768D0, 0.43295D0, 0.40511D0, - & 0.37512D0, 0.34401D0, 0.31250D0, 0.28120D0, 0.25076D0, - & 0.22150D0, 0.19361D0, 0.16754D0, 0.14361D0, 0.12149D0, - & 0.10149D0, 0.08376D0, 0.06796D0, 0.04260D0, 0.02455D0, - & 0.01262D0, 0.00549D0, 0.00039D0, 0.00000D0/ - DATA (FMRS(1,1,I,23),I=1,49)/ - & 0.01965D0, 0.02448D0, 0.03049D0, 0.03467D0, 0.03797D0, - & 0.04075D0, 0.05077D0, 0.06336D0, 0.07225D0, 0.07940D0, - & 0.08560D0, 0.10863D0, 0.13972D0, 0.16302D0, 0.18254D0, - & 0.19964D0, 0.22916D0, 0.26592D0, 0.31498D0, 0.35400D0, - & 0.41189D0, 0.45060D0, 0.47511D0, 0.49045D0, 0.49274D0, - & 0.48487D0, 0.46938D0, 0.44808D0, 0.42260D0, 0.39428D0, - & 0.36409D0, 0.33294D0, 0.30164D0, 0.27069D0, 0.24070D0, - & 0.21203D0, 0.18488D0, 0.15951D0, 0.13633D0, 0.11502D0, - & 0.09581D0, 0.07887D0, 0.06380D0, 0.03974D0, 0.02273D0, - & 0.01159D0, 0.00500D0, 0.00035D0, 0.00000D0/ - DATA (FMRS(1,1,I,24),I=1,49)/ - & 0.01987D0, 0.02478D0, 0.03088D0, 0.03511D0, 0.03847D0, - & 0.04129D0, 0.05147D0, 0.06426D0, 0.07329D0, 0.08055D0, - & 0.08686D0, 0.11027D0, 0.14184D0, 0.16546D0, 0.18521D0, - & 0.20248D0, 0.23220D0, 0.26906D0, 0.31795D0, 0.35654D0, - & 0.41317D0, 0.45035D0, 0.47330D0, 0.48677D0, 0.48734D0, - & 0.47799D0, 0.46135D0, 0.43917D0, 0.41301D0, 0.38430D0, - & 0.35392D0, 0.32282D0, 0.29171D0, 0.26113D0, 0.23164D0, - & 0.20355D0, 0.17701D0, 0.15231D0, 0.12990D0, 0.10928D0, - & 0.09079D0, 0.07455D0, 0.06012D0, 0.03723D0, 0.02116D0, - & 0.01072D0, 0.00459D0, 0.00031D0, 0.00000D0/ - DATA (FMRS(1,1,I,25),I=1,49)/ - & 0.02010D0, 0.02507D0, 0.03126D0, 0.03556D0, 0.03897D0, - & 0.04183D0, 0.05216D0, 0.06515D0, 0.07433D0, 0.08171D0, - & 0.08812D0, 0.11191D0, 0.14397D0, 0.16790D0, 0.18786D0, - & 0.20530D0, 0.23522D0, 0.27216D0, 0.32085D0, 0.35900D0, - & 0.41434D0, 0.45001D0, 0.47142D0, 0.48304D0, 0.48197D0, - & 0.47120D0, 0.45346D0, 0.43043D0, 0.40367D0, 0.37460D0, - & 0.34407D0, 0.31306D0, 0.28215D0, 0.25197D0, 0.22296D0, - & 0.19546D0, 0.16953D0, 0.14549D0, 0.12381D0, 0.10387D0, - & 0.08608D0, 0.07049D0, 0.05669D0, 0.03490D0, 0.01971D0, - & 0.00991D0, 0.00421D0, 0.00028D0, 0.00000D0/ - DATA (FMRS(1,1,I,26),I=1,49)/ - & 0.02032D0, 0.02536D0, 0.03164D0, 0.03600D0, 0.03946D0, - & 0.04236D0, 0.05285D0, 0.06604D0, 0.07535D0, 0.08285D0, - & 0.08936D0, 0.11352D0, 0.14603D0, 0.17026D0, 0.19043D0, - & 0.20801D0, 0.23810D0, 0.27509D0, 0.32355D0, 0.36123D0, - & 0.41527D0, 0.44945D0, 0.46936D0, 0.47919D0, 0.47657D0, - & 0.46453D0, 0.44572D0, 0.42188D0, 0.39463D0, 0.36526D0, - & 0.33462D0, 0.30373D0, 0.27307D0, 0.24328D0, 0.21472D0, - & 0.18782D0, 0.16253D0, 0.13914D0, 0.11811D0, 0.09886D0, - & 0.08171D0, 0.06673D0, 0.05353D0, 0.03277D0, 0.01840D0, - & 0.00919D0, 0.00387D0, 0.00025D0, 0.00000D0/ - DATA (FMRS(1,1,I,27),I=1,49)/ - & 0.02054D0, 0.02564D0, 0.03200D0, 0.03642D0, 0.03992D0, - & 0.04287D0, 0.05350D0, 0.06688D0, 0.07633D0, 0.08394D0, - & 0.09053D0, 0.11504D0, 0.14798D0, 0.17249D0, 0.19284D0, - & 0.21055D0, 0.24079D0, 0.27781D0, 0.32602D0, 0.36325D0, - & 0.41604D0, 0.44883D0, 0.46732D0, 0.47551D0, 0.47145D0, - & 0.45823D0, 0.43846D0, 0.41392D0, 0.38625D0, 0.35664D0, - & 0.32595D0, 0.29518D0, 0.26477D0, 0.23536D0, 0.20725D0, - & 0.18088D0, 0.15618D0, 0.13340D0, 0.11297D0, 0.09435D0, - & 0.07779D0, 0.06337D0, 0.05071D0, 0.03088D0, 0.01724D0, - & 0.00855D0, 0.00357D0, 0.00023D0, 0.00000D0/ - DATA (FMRS(1,1,I,28),I=1,49)/ - & 0.02074D0, 0.02591D0, 0.03234D0, 0.03682D0, 0.04037D0, - & 0.04335D0, 0.05412D0, 0.06768D0, 0.07725D0, 0.08496D0, - & 0.09165D0, 0.11648D0, 0.14982D0, 0.17457D0, 0.19509D0, - & 0.21292D0, 0.24327D0, 0.28031D0, 0.32827D0, 0.36504D0, - & 0.41665D0, 0.44811D0, 0.46527D0, 0.47196D0, 0.46656D0, - & 0.45228D0, 0.43165D0, 0.40650D0, 0.37846D0, 0.34867D0, - & 0.31800D0, 0.28733D0, 0.25718D0, 0.22812D0, 0.20048D0, - & 0.17458D0, 0.15043D0, 0.12823D0, 0.10834D0, 0.09029D0, - & 0.07427D0, 0.06037D0, 0.04820D0, 0.02920D0, 0.01621D0, - & 0.00800D0, 0.00332D0, 0.00021D0, 0.00000D0/ - DATA (FMRS(1,1,I,29),I=1,49)/ - & 0.02094D0, 0.02617D0, 0.03269D0, 0.03722D0, 0.04081D0, - & 0.04383D0, 0.05475D0, 0.06848D0, 0.07818D0, 0.08599D0, - & 0.09277D0, 0.11792D0, 0.15165D0, 0.17664D0, 0.19733D0, - & 0.21527D0, 0.24574D0, 0.28277D0, 0.33045D0, 0.36674D0, - & 0.41715D0, 0.44728D0, 0.46313D0, 0.46834D0, 0.46164D0, - & 0.44631D0, 0.42488D0, 0.39917D0, 0.37077D0, 0.34082D0, - & 0.31017D0, 0.27964D0, 0.24978D0, 0.22107D0, 0.19390D0, - & 0.16849D0, 0.14488D0, 0.12325D0, 0.10390D0, 0.08640D0, - & 0.07092D0, 0.05751D0, 0.04581D0, 0.02761D0, 0.01524D0, - & 0.00748D0, 0.00308D0, 0.00019D0, 0.00000D0/ - DATA (FMRS(1,1,I,30),I=1,49)/ - & 0.02115D0, 0.02644D0, 0.03303D0, 0.03762D0, 0.04125D0, - & 0.04431D0, 0.05536D0, 0.06927D0, 0.07910D0, 0.08701D0, - & 0.09387D0, 0.11934D0, 0.15345D0, 0.17867D0, 0.19951D0, - & 0.21755D0, 0.24811D0, 0.28512D0, 0.33251D0, 0.36831D0, - & 0.41752D0, 0.44634D0, 0.46092D0, 0.46470D0, 0.45678D0, - & 0.44042D0, 0.41827D0, 0.39206D0, 0.36329D0, 0.33323D0, - & 0.30260D0, 0.27226D0, 0.24270D0, 0.21435D0, 0.18761D0, - & 0.16271D0, 0.13963D0, 0.11853D0, 0.09974D0, 0.08276D0, - & 0.06777D0, 0.05484D0, 0.04358D0, 0.02615D0, 0.01436D0, - & 0.00700D0, 0.00286D0, 0.00017D0, 0.00000D0/ - DATA (FMRS(1,1,I,31),I=1,49)/ - & 0.02134D0, 0.02669D0, 0.03336D0, 0.03800D0, 0.04168D0, - & 0.04477D0, 0.05595D0, 0.07003D0, 0.07997D0, 0.08798D0, - & 0.09492D0, 0.12069D0, 0.15515D0, 0.18059D0, 0.20157D0, - & 0.21970D0, 0.25034D0, 0.28732D0, 0.33440D0, 0.36974D0, - & 0.41780D0, 0.44538D0, 0.45878D0, 0.46121D0, 0.45216D0, - & 0.43488D0, 0.41206D0, 0.38539D0, 0.35634D0, 0.32619D0, - & 0.29560D0, 0.26544D0, 0.23618D0, 0.20818D0, 0.18185D0, - & 0.15743D0, 0.13483D0, 0.11423D0, 0.09594D0, 0.07945D0, - & 0.06492D0, 0.05243D0, 0.04157D0, 0.02483D0, 0.01357D0, - & 0.00658D0, 0.00267D0, 0.00016D0, 0.00000D0/ - DATA (FMRS(1,1,I,32),I=1,49)/ - & 0.02153D0, 0.02693D0, 0.03367D0, 0.03836D0, 0.04208D0, - & 0.04521D0, 0.05651D0, 0.07075D0, 0.08080D0, 0.08890D0, - & 0.09592D0, 0.12197D0, 0.15676D0, 0.18239D0, 0.20349D0, - & 0.22170D0, 0.25240D0, 0.28933D0, 0.33609D0, 0.37098D0, - & 0.41793D0, 0.44434D0, 0.45663D0, 0.45780D0, 0.44772D0, - & 0.42965D0, 0.40618D0, 0.37910D0, 0.34986D0, 0.31963D0, - & 0.28912D0, 0.25913D0, 0.23015D0, 0.20249D0, 0.17658D0, - & 0.15257D0, 0.13044D0, 0.11030D0, 0.09247D0, 0.07643D0, - & 0.06234D0, 0.05026D0, 0.03976D0, 0.02365D0, 0.01287D0, - & 0.00620D0, 0.00250D0, 0.00014D0, 0.00000D0/ - DATA (FMRS(1,1,I,33),I=1,49)/ - & 0.02171D0, 0.02717D0, 0.03398D0, 0.03872D0, 0.04248D0, - & 0.04565D0, 0.05708D0, 0.07147D0, 0.08164D0, 0.08983D0, - & 0.09693D0, 0.12326D0, 0.15838D0, 0.18421D0, 0.20543D0, - & 0.22371D0, 0.25448D0, 0.29136D0, 0.33779D0, 0.37222D0, - & 0.41806D0, 0.44331D0, 0.45449D0, 0.45441D0, 0.44330D0, - & 0.42446D0, 0.40038D0, 0.37291D0, 0.34349D0, 0.31319D0, - & 0.28277D0, 0.25295D0, 0.22427D0, 0.19695D0, 0.17145D0, - & 0.14785D0, 0.12618D0, 0.10650D0, 0.08912D0, 0.07353D0, - & 0.05986D0, 0.04817D0, 0.03803D0, 0.02252D0, 0.01220D0, - & 0.00585D0, 0.00235D0, 0.00013D0, 0.00000D0/ - DATA (FMRS(1,1,I,34),I=1,49)/ - & 0.02190D0, 0.02741D0, 0.03429D0, 0.03909D0, 0.04289D0, - & 0.04609D0, 0.05764D0, 0.07219D0, 0.08247D0, 0.09075D0, - & 0.09793D0, 0.12453D0, 0.15996D0, 0.18597D0, 0.20731D0, - & 0.22565D0, 0.25646D0, 0.29325D0, 0.33935D0, 0.37330D0, - & 0.41800D0, 0.44209D0, 0.45219D0, 0.45092D0, 0.43883D0, - & 0.41923D0, 0.39461D0, 0.36679D0, 0.33718D0, 0.30687D0, - & 0.27654D0, 0.24693D0, 0.21853D0, 0.19159D0, 0.16650D0, - & 0.14332D0, 0.12207D0, 0.10288D0, 0.08593D0, 0.07076D0, - & 0.05749D0, 0.04618D0, 0.03639D0, 0.02146D0, 0.01157D0, - & 0.00552D0, 0.00220D0, 0.00012D0, 0.00000D0/ - DATA (FMRS(1,1,I,35),I=1,49)/ - & 0.02208D0, 0.02764D0, 0.03459D0, 0.03943D0, 0.04327D0, - & 0.04650D0, 0.05818D0, 0.07288D0, 0.08327D0, 0.09162D0, - & 0.09888D0, 0.12574D0, 0.16147D0, 0.18765D0, 0.20909D0, - & 0.22750D0, 0.25834D0, 0.29505D0, 0.34083D0, 0.37432D0, - & 0.41794D0, 0.44094D0, 0.45002D0, 0.44763D0, 0.43463D0, - & 0.41432D0, 0.38921D0, 0.36108D0, 0.33130D0, 0.30099D0, - & 0.27077D0, 0.24136D0, 0.21322D0, 0.18665D0, 0.16193D0, - & 0.13915D0, 0.11830D0, 0.09955D0, 0.08301D0, 0.06823D0, - & 0.05533D0, 0.04437D0, 0.03490D0, 0.02050D0, 0.01100D0, - & 0.00523D0, 0.00207D0, 0.00011D0, 0.00000D0/ - DATA (FMRS(1,1,I,36),I=1,49)/ - & 0.02225D0, 0.02787D0, 0.03488D0, 0.03977D0, 0.04364D0, - & 0.04690D0, 0.05869D0, 0.07354D0, 0.08402D0, 0.09246D0, - & 0.09978D0, 0.12689D0, 0.16290D0, 0.18924D0, 0.21077D0, - & 0.22923D0, 0.26010D0, 0.29672D0, 0.34217D0, 0.37521D0, - & 0.41781D0, 0.43978D0, 0.44789D0, 0.44447D0, 0.43062D0, - & 0.40968D0, 0.38412D0, 0.35571D0, 0.32579D0, 0.29550D0, - & 0.26538D0, 0.23618D0, 0.20831D0, 0.18206D0, 0.15771D0, - & 0.13531D0, 0.11485D0, 0.09649D0, 0.08034D0, 0.06592D0, - & 0.05337D0, 0.04272D0, 0.03354D0, 0.01963D0, 0.01049D0, - & 0.00496D0, 0.00196D0, 0.00011D0, 0.00000D0/ - DATA (FMRS(1,1,I,37),I=1,49)/ - & 0.02242D0, 0.02809D0, 0.03517D0, 0.04010D0, 0.04401D0, - & 0.04731D0, 0.05921D0, 0.07420D0, 0.08479D0, 0.09331D0, - & 0.10070D0, 0.12805D0, 0.16433D0, 0.19082D0, 0.21245D0, - & 0.23095D0, 0.26184D0, 0.29836D0, 0.34345D0, 0.37604D0, - & 0.41760D0, 0.43853D0, 0.44568D0, 0.44123D0, 0.42654D0, - & 0.40499D0, 0.37899D0, 0.35034D0, 0.32029D0, 0.29001D0, - & 0.26003D0, 0.23104D0, 0.20345D0, 0.17752D0, 0.15354D0, - & 0.13153D0, 0.11147D0, 0.09348D0, 0.07771D0, 0.06366D0, - & 0.05147D0, 0.04112D0, 0.03222D0, 0.01879D0, 0.01000D0, - & 0.00471D0, 0.00185D0, 0.00010D0, 0.00000D0/ - DATA (FMRS(1,1,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,2,I, 1),I=1,49)/ - & 0.00513D0, 0.00648D0, 0.00818D0, 0.00938D0, 0.01034D0, - & 0.01116D0, 0.01418D0, 0.01818D0, 0.02118D0, 0.02372D0, - & 0.02613D0, 0.03576D0, 0.05040D0, 0.06228D0, 0.07266D0, - & 0.08202D0, 0.09864D0, 0.12002D0, 0.14955D0, 0.17387D0, - & 0.21184D0, 0.23954D0, 0.25956D0, 0.27606D0, 0.28502D0, - & 0.28790D0, 0.28586D0, 0.27985D0, 0.27060D0, 0.25918D0, - & 0.24535D0, 0.23028D0, 0.21416D0, 0.19735D0, 0.18044D0, - & 0.16347D0, 0.14671D0, 0.13049D0, 0.11512D0, 0.10018D0, - & 0.08630D0, 0.07360D0, 0.06172D0, 0.04171D0, 0.02610D0, - & 0.01478D0, 0.00721D0, 0.00074D0, 0.00000D0/ - DATA (FMRS(1,2,I, 2),I=1,49)/ - & 0.00518D0, 0.00654D0, 0.00828D0, 0.00950D0, 0.01049D0, - & 0.01133D0, 0.01443D0, 0.01854D0, 0.02162D0, 0.02423D0, - & 0.02670D0, 0.03657D0, 0.05155D0, 0.06366D0, 0.07421D0, - & 0.08371D0, 0.10052D0, 0.12206D0, 0.15163D0, 0.17583D0, - & 0.21329D0, 0.24028D0, 0.25950D0, 0.27498D0, 0.28295D0, - & 0.28491D0, 0.28206D0, 0.27535D0, 0.26555D0, 0.25365D0, - & 0.23952D0, 0.22423D0, 0.20802D0, 0.19123D0, 0.17441D0, - & 0.15763D0, 0.14114D0, 0.12520D0, 0.11019D0, 0.09565D0, - & 0.08218D0, 0.06990D0, 0.05847D0, 0.03927D0, 0.02442D0, - & 0.01373D0, 0.00665D0, 0.00066D0, 0.00000D0/ - DATA (FMRS(1,2,I, 3),I=1,49)/ - & 0.00524D0, 0.00664D0, 0.00843D0, 0.00970D0, 0.01072D0, - & 0.01159D0, 0.01481D0, 0.01908D0, 0.02229D0, 0.02501D0, - & 0.02757D0, 0.03781D0, 0.05328D0, 0.06572D0, 0.07653D0, - & 0.08622D0, 0.10330D0, 0.12505D0, 0.15465D0, 0.17864D0, - & 0.21528D0, 0.24119D0, 0.25922D0, 0.27320D0, 0.27971D0, - & 0.28035D0, 0.27635D0, 0.26864D0, 0.25807D0, 0.24551D0, - & 0.23101D0, 0.21544D0, 0.19911D0, 0.18240D0, 0.16578D0, - & 0.14929D0, 0.13320D0, 0.11772D0, 0.10322D0, 0.08926D0, - & 0.07639D0, 0.06473D0, 0.05394D0, 0.03591D0, 0.02212D0, - & 0.01231D0, 0.00589D0, 0.00057D0, 0.00000D0/ - DATA (FMRS(1,2,I, 4),I=1,49)/ - & 0.00529D0, 0.00672D0, 0.00855D0, 0.00985D0, 0.01090D0, - & 0.01179D0, 0.01510D0, 0.01949D0, 0.02279D0, 0.02558D0, - & 0.02822D0, 0.03873D0, 0.05456D0, 0.06724D0, 0.07823D0, - & 0.08806D0, 0.10532D0, 0.12720D0, 0.15680D0, 0.18061D0, - & 0.21663D0, 0.24172D0, 0.25888D0, 0.27177D0, 0.27723D0, - & 0.27696D0, 0.27213D0, 0.26373D0, 0.25262D0, 0.23966D0, - & 0.22489D0, 0.20919D0, 0.19281D0, 0.17616D0, 0.15968D0, - & 0.14345D0, 0.12763D0, 0.11250D0, 0.09838D0, 0.08485D0, - & 0.07242D0, 0.06118D0, 0.05083D0, 0.03363D0, 0.02058D0, - & 0.01136D0, 0.00539D0, 0.00050D0, 0.00000D0/ - DATA (FMRS(1,2,I, 5),I=1,49)/ - & 0.00534D0, 0.00680D0, 0.00868D0, 0.01001D0, 0.01108D0, - & 0.01200D0, 0.01540D0, 0.01993D0, 0.02332D0, 0.02620D0, - & 0.02891D0, 0.03971D0, 0.05590D0, 0.06884D0, 0.08000D0, - & 0.08997D0, 0.10741D0, 0.12941D0, 0.15897D0, 0.18257D0, - & 0.21790D0, 0.24212D0, 0.25836D0, 0.27010D0, 0.27446D0, - & 0.27326D0, 0.26762D0, 0.25853D0, 0.24692D0, 0.23356D0, - & 0.21851D0, 0.20270D0, 0.18633D0, 0.16975D0, 0.15345D0, - & 0.13751D0, 0.12199D0, 0.10721D0, 0.09351D0, 0.08043D0, - & 0.06843D0, 0.05765D0, 0.04775D0, 0.03138D0, 0.01907D0, - & 0.01045D0, 0.00491D0, 0.00045D0, 0.00000D0/ - DATA (FMRS(1,2,I, 6),I=1,49)/ - & 0.00539D0, 0.00688D0, 0.00879D0, 0.01015D0, 0.01125D0, - & 0.01219D0, 0.01567D0, 0.02031D0, 0.02379D0, 0.02674D0, - & 0.02951D0, 0.04056D0, 0.05708D0, 0.07022D0, 0.08154D0, - & 0.09162D0, 0.10921D0, 0.13130D0, 0.16082D0, 0.18422D0, - & 0.21894D0, 0.24239D0, 0.25783D0, 0.26859D0, 0.27204D0, - & 0.27005D0, 0.26373D0, 0.25409D0, 0.24206D0, 0.22838D0, - & 0.21313D0, 0.19724D0, 0.18088D0, 0.16440D0, 0.14826D0, - & 0.13257D0, 0.11731D0, 0.10284D0, 0.08950D0, 0.07679D0, - & 0.06517D0, 0.05477D0, 0.04524D0, 0.02956D0, 0.01786D0, - & 0.00972D0, 0.00453D0, 0.00040D0, 0.00000D0/ - DATA (FMRS(1,2,I, 7),I=1,49)/ - & 0.00544D0, 0.00695D0, 0.00890D0, 0.01029D0, 0.01141D0, - & 0.01237D0, 0.01593D0, 0.02068D0, 0.02425D0, 0.02727D0, - & 0.03010D0, 0.04138D0, 0.05820D0, 0.07155D0, 0.08301D0, - & 0.09319D0, 0.11091D0, 0.13308D0, 0.16253D0, 0.18572D0, - & 0.21983D0, 0.24255D0, 0.25721D0, 0.26706D0, 0.26966D0, - & 0.26692D0, 0.25996D0, 0.24983D0, 0.23740D0, 0.22344D0, - & 0.20806D0, 0.19209D0, 0.17575D0, 0.15940D0, 0.14342D0, - & 0.12794D0, 0.11298D0, 0.09881D0, 0.08579D0, 0.07344D0, - & 0.06219D0, 0.05213D0, 0.04295D0, 0.02791D0, 0.01677D0, - & 0.00906D0, 0.00419D0, 0.00037D0, 0.00000D0/ - DATA (FMRS(1,2,I, 8),I=1,49)/ - & 0.00549D0, 0.00703D0, 0.00902D0, 0.01044D0, 0.01159D0, - & 0.01257D0, 0.01622D0, 0.02109D0, 0.02474D0, 0.02783D0, - & 0.03073D0, 0.04227D0, 0.05940D0, 0.07296D0, 0.08456D0, - & 0.09485D0, 0.11270D0, 0.13493D0, 0.16429D0, 0.18726D0, - & 0.22070D0, 0.24263D0, 0.25647D0, 0.26535D0, 0.26707D0, - & 0.26357D0, 0.25596D0, 0.24532D0, 0.23250D0, 0.21829D0, - & 0.20276D0, 0.18675D0, 0.17045D0, 0.15424D0, 0.13845D0, - & 0.12321D0, 0.10855D0, 0.09470D0, 0.08203D0, 0.07005D0, - & 0.05917D0, 0.04947D0, 0.04065D0, 0.02627D0, 0.01569D0, - & 0.00842D0, 0.00386D0, 0.00033D0, 0.00000D0/ - DATA (FMRS(1,2,I, 9),I=1,49)/ - & 0.00553D0, 0.00711D0, 0.00913D0, 0.01057D0, 0.01174D0, - & 0.01274D0, 0.01647D0, 0.02144D0, 0.02517D0, 0.02833D0, - & 0.03129D0, 0.04304D0, 0.06045D0, 0.07418D0, 0.08591D0, - & 0.09629D0, 0.11425D0, 0.13653D0, 0.16579D0, 0.18855D0, - & 0.22139D0, 0.24264D0, 0.25577D0, 0.26380D0, 0.26479D0, - & 0.26063D0, 0.25250D0, 0.24142D0, 0.22830D0, 0.21390D0, - & 0.19824D0, 0.18222D0, 0.16597D0, 0.14988D0, 0.13426D0, - & 0.11924D0, 0.10484D0, 0.09128D0, 0.07889D0, 0.06724D0, - & 0.05666D0, 0.04727D0, 0.03875D0, 0.02492D0, 0.01480D0, - & 0.00790D0, 0.00360D0, 0.00030D0, 0.00000D0/ - DATA (FMRS(1,2,I,10),I=1,49)/ - & 0.00558D0, 0.00718D0, 0.00923D0, 0.01071D0, 0.01190D0, - & 0.01291D0, 0.01671D0, 0.02178D0, 0.02559D0, 0.02881D0, - & 0.03183D0, 0.04379D0, 0.06146D0, 0.07536D0, 0.08720D0, - & 0.09766D0, 0.11571D0, 0.13802D0, 0.16719D0, 0.18973D0, - & 0.22198D0, 0.24256D0, 0.25502D0, 0.26225D0, 0.26252D0, - & 0.25776D0, 0.24914D0, 0.23766D0, 0.22428D0, 0.20968D0, - & 0.19393D0, 0.17791D0, 0.16173D0, 0.14575D0, 0.13032D0, - & 0.11552D0, 0.10136D0, 0.08807D0, 0.07596D0, 0.06462D0, - & 0.05433D0, 0.04524D0, 0.03701D0, 0.02369D0, 0.01400D0, - & 0.00743D0, 0.00336D0, 0.00028D0, 0.00000D0/ - DATA (FMRS(1,2,I,11),I=1,49)/ - & 0.00562D0, 0.00723D0, 0.00932D0, 0.01081D0, 0.01202D0, - & 0.01305D0, 0.01691D0, 0.02206D0, 0.02593D0, 0.02920D0, - & 0.03226D0, 0.04438D0, 0.06226D0, 0.07629D0, 0.08822D0, - & 0.09874D0, 0.11687D0, 0.13920D0, 0.16827D0, 0.19064D0, - & 0.22242D0, 0.24246D0, 0.25439D0, 0.26100D0, 0.26071D0, - & 0.25548D0, 0.24648D0, 0.23472D0, 0.22112D0, 0.20638D0, - & 0.19059D0, 0.17454D0, 0.15845D0, 0.14257D0, 0.12728D0, - & 0.11265D0, 0.09869D0, 0.08561D0, 0.07373D0, 0.06261D0, - & 0.05256D0, 0.04369D0, 0.03568D0, 0.02275D0, 0.01339D0, - & 0.00707D0, 0.00318D0, 0.00026D0, 0.00000D0/ - DATA (FMRS(1,2,I,12),I=1,49)/ - & 0.00570D0, 0.00736D0, 0.00950D0, 0.01104D0, 0.01228D0, - & 0.01335D0, 0.01733D0, 0.02266D0, 0.02665D0, 0.03003D0, - & 0.03319D0, 0.04566D0, 0.06397D0, 0.07827D0, 0.09038D0, - & 0.10102D0, 0.11928D0, 0.14164D0, 0.17050D0, 0.19247D0, - & 0.22321D0, 0.24211D0, 0.25293D0, 0.25822D0, 0.25677D0, - & 0.25059D0, 0.24082D0, 0.22847D0, 0.21448D0, 0.19945D0, - & 0.18361D0, 0.16759D0, 0.15163D0, 0.13598D0, 0.12100D0, - & 0.10676D0, 0.09321D0, 0.08058D0, 0.06917D0, 0.05856D0, - & 0.04898D0, 0.04057D0, 0.03301D0, 0.02089D0, 0.01219D0, - & 0.00638D0, 0.00284D0, 0.00022D0, 0.00000D0/ - DATA (FMRS(1,2,I,13),I=1,49)/ - & 0.00578D0, 0.00747D0, 0.00966D0, 0.01124D0, 0.01252D0, - & 0.01361D0, 0.01770D0, 0.02318D0, 0.02729D0, 0.03076D0, - & 0.03400D0, 0.04677D0, 0.06545D0, 0.07997D0, 0.09223D0, - & 0.10297D0, 0.12133D0, 0.14370D0, 0.17234D0, 0.19395D0, - & 0.22379D0, 0.24170D0, 0.25156D0, 0.25575D0, 0.25334D0, - & 0.24638D0, 0.23598D0, 0.22317D0, 0.20887D0, 0.19364D0, - & 0.17776D0, 0.16180D0, 0.14597D0, 0.13054D0, 0.11583D0, - & 0.10193D0, 0.08873D0, 0.07648D0, 0.06548D0, 0.05529D0, - & 0.04609D0, 0.03806D0, 0.03088D0, 0.01941D0, 0.01124D0, - & 0.00583D0, 0.00257D0, 0.00020D0, 0.00000D0/ - DATA (FMRS(1,2,I,14),I=1,49)/ - & 0.00586D0, 0.00760D0, 0.00985D0, 0.01147D0, 0.01278D0, - & 0.01391D0, 0.01812D0, 0.02377D0, 0.02801D0, 0.03158D0, - & 0.03491D0, 0.04802D0, 0.06710D0, 0.08186D0, 0.09428D0, - & 0.10512D0, 0.12358D0, 0.14593D0, 0.17430D0, 0.19551D0, - & 0.22431D0, 0.24113D0, 0.24990D0, 0.25292D0, 0.24948D0, - & 0.24168D0, 0.23063D0, 0.21737D0, 0.20273D0, 0.18735D0, - & 0.17142D0, 0.15550D0, 0.13986D0, 0.12470D0, 0.11033D0, - & 0.09680D0, 0.08400D0, 0.07217D0, 0.06162D0, 0.05183D0, - & 0.04308D0, 0.03546D0, 0.02866D0, 0.01788D0, 0.01027D0, - & 0.00528D0, 0.00231D0, 0.00017D0, 0.00000D0/ - DATA (FMRS(1,2,I,15),I=1,49)/ - & 0.00596D0, 0.00773D0, 0.01005D0, 0.01171D0, 0.01307D0, - & 0.01423D0, 0.01857D0, 0.02439D0, 0.02876D0, 0.03244D0, - & 0.03586D0, 0.04932D0, 0.06880D0, 0.08380D0, 0.09637D0, - & 0.10730D0, 0.12584D0, 0.14815D0, 0.17622D0, 0.19694D0, - & 0.22466D0, 0.24034D0, 0.24804D0, 0.24983D0, 0.24536D0, - & 0.23677D0, 0.22506D0, 0.21136D0, 0.19645D0, 0.18096D0, - & 0.16500D0, 0.14922D0, 0.13378D0, 0.11890D0, 0.10488D0, - & 0.09171D0, 0.07933D0, 0.06793D0, 0.05781D0, 0.04848D0, - & 0.04016D0, 0.03293D0, 0.02652D0, 0.01642D0, 0.00936D0, - & 0.00477D0, 0.00206D0, 0.00015D0, 0.00000D0/ - DATA (FMRS(1,2,I,16),I=1,49)/ - & 0.00604D0, 0.00786D0, 0.01023D0, 0.01194D0, 0.01333D0, - & 0.01452D0, 0.01898D0, 0.02497D0, 0.02945D0, 0.03323D0, - & 0.03674D0, 0.05050D0, 0.07034D0, 0.08554D0, 0.09824D0, - & 0.10925D0, 0.12785D0, 0.15009D0, 0.17786D0, 0.19815D0, - & 0.22486D0, 0.23952D0, 0.24625D0, 0.24698D0, 0.24163D0, - & 0.23233D0, 0.22009D0, 0.20603D0, 0.19091D0, 0.17529D0, - & 0.15938D0, 0.14374D0, 0.12849D0, 0.11388D0, 0.10016D0, - & 0.08733D0, 0.07533D0, 0.06433D0, 0.05458D0, 0.04564D0, - & 0.03769D0, 0.03082D0, 0.02473D0, 0.01521D0, 0.00860D0, - & 0.00435D0, 0.00186D0, 0.00013D0, 0.00000D0/ - DATA (FMRS(1,2,I,17),I=1,49)/ - & 0.00614D0, 0.00799D0, 0.01042D0, 0.01217D0, 0.01359D0, - & 0.01482D0, 0.01940D0, 0.02555D0, 0.03016D0, 0.03404D0, - & 0.03763D0, 0.05170D0, 0.07188D0, 0.08729D0, 0.10010D0, - & 0.11119D0, 0.12983D0, 0.15200D0, 0.17943D0, 0.19928D0, - & 0.22497D0, 0.23860D0, 0.24438D0, 0.24406D0, 0.23786D0, - & 0.22788D0, 0.21517D0, 0.20077D0, 0.18546D0, 0.16976D0, - & 0.15392D0, 0.13841D0, 0.12338D0, 0.10905D0, 0.09563D0, - & 0.08314D0, 0.07152D0, 0.06090D0, 0.05152D0, 0.04295D0, - & 0.03537D0, 0.02883D0, 0.02306D0, 0.01409D0, 0.00791D0, - & 0.00396D0, 0.00168D0, 0.00011D0, 0.00000D0/ - DATA (FMRS(1,2,I,18),I=1,49)/ - & 0.00621D0, 0.00810D0, 0.01058D0, 0.01236D0, 0.01382D0, - & 0.01507D0, 0.01975D0, 0.02604D0, 0.03075D0, 0.03471D0, - & 0.03837D0, 0.05269D0, 0.07316D0, 0.08872D0, 0.10163D0, - & 0.11277D0, 0.13143D0, 0.15352D0, 0.18066D0, 0.20012D0, - & 0.22496D0, 0.23774D0, 0.24276D0, 0.24159D0, 0.23471D0, - & 0.22421D0, 0.21113D0, 0.19645D0, 0.18102D0, 0.16532D0, - & 0.14952D0, 0.13412D0, 0.11930D0, 0.10519D0, 0.09201D0, - & 0.07983D0, 0.06850D0, 0.05818D0, 0.04914D0, 0.04085D0, - & 0.03356D0, 0.02728D0, 0.02176D0, 0.01322D0, 0.00738D0, - & 0.00367D0, 0.00154D0, 0.00010D0, 0.00000D0/ - DATA (FMRS(1,2,I,19),I=1,49)/ - & 0.00631D0, 0.00824D0, 0.01077D0, 0.01261D0, 0.01410D0, - & 0.01538D0, 0.02018D0, 0.02663D0, 0.03146D0, 0.03553D0, - & 0.03927D0, 0.05390D0, 0.07469D0, 0.09044D0, 0.10345D0, - & 0.11464D0, 0.13332D0, 0.15529D0, 0.18206D0, 0.20106D0, - & 0.22486D0, 0.23661D0, 0.24071D0, 0.23855D0, 0.23089D0, - & 0.21978D0, 0.20626D0, 0.19133D0, 0.17575D0, 0.16006D0, - & 0.14433D0, 0.12911D0, 0.11452D0, 0.10069D0, 0.08783D0, - & 0.07600D0, 0.06503D0, 0.05507D0, 0.04638D0, 0.03845D0, - & 0.03149D0, 0.02552D0, 0.02030D0, 0.01225D0, 0.00679D0, - & 0.00335D0, 0.00139D0, 0.00009D0, 0.00000D0/ - DATA (FMRS(1,2,I,20),I=1,49)/ - & 0.00640D0, 0.00837D0, 0.01095D0, 0.01282D0, 0.01434D0, - & 0.01565D0, 0.02057D0, 0.02717D0, 0.03210D0, 0.03625D0, - & 0.04007D0, 0.05496D0, 0.07605D0, 0.09195D0, 0.10504D0, - & 0.11628D0, 0.13496D0, 0.15682D0, 0.18325D0, 0.20182D0, - & 0.22471D0, 0.23557D0, 0.23887D0, 0.23587D0, 0.22753D0, - & 0.21592D0, 0.20204D0, 0.18691D0, 0.17123D0, 0.15556D0, - & 0.13990D0, 0.12485D0, 0.11047D0, 0.09690D0, 0.08432D0, - & 0.07279D0, 0.06213D0, 0.05248D0, 0.04407D0, 0.03646D0, - & 0.02978D0, 0.02408D0, 0.01910D0, 0.01145D0, 0.00631D0, - & 0.00309D0, 0.00127D0, 0.00008D0, 0.00000D0/ - DATA (FMRS(1,2,I,21),I=1,49)/ - & 0.00648D0, 0.00848D0, 0.01111D0, 0.01302D0, 0.01457D0, - & 0.01591D0, 0.02092D0, 0.02766D0, 0.03269D0, 0.03692D0, - & 0.04081D0, 0.05593D0, 0.07728D0, 0.09331D0, 0.10647D0, - & 0.11774D0, 0.13641D0, 0.15816D0, 0.18425D0, 0.20243D0, - & 0.22446D0, 0.23452D0, 0.23710D0, 0.23336D0, 0.22443D0, - & 0.21239D0, 0.19820D0, 0.18290D0, 0.16716D0, 0.15148D0, - & 0.13595D0, 0.12104D0, 0.10685D0, 0.09353D0, 0.08121D0, - & 0.06995D0, 0.05958D0, 0.05021D0, 0.04207D0, 0.03472D0, - & 0.02829D0, 0.02282D0, 0.01806D0, 0.01077D0, 0.00590D0, - & 0.00287D0, 0.00118D0, 0.00007D0, 0.00000D0/ - DATA (FMRS(1,2,I,22),I=1,49)/ - & 0.00659D0, 0.00863D0, 0.01133D0, 0.01328D0, 0.01487D0, - & 0.01624D0, 0.02138D0, 0.02828D0, 0.03345D0, 0.03777D0, - & 0.04174D0, 0.05717D0, 0.07882D0, 0.09501D0, 0.10826D0, - & 0.11956D0, 0.13822D0, 0.15980D0, 0.18547D0, 0.20313D0, - & 0.22408D0, 0.23313D0, 0.23482D0, 0.23017D0, 0.22053D0, - & 0.20797D0, 0.19344D0, 0.17794D0, 0.16215D0, 0.14650D0, - & 0.13110D0, 0.11639D0, 0.10245D0, 0.08944D0, 0.07745D0, - & 0.06653D0, 0.05651D0, 0.04748D0, 0.03968D0, 0.03265D0, - & 0.02652D0, 0.02133D0, 0.01682D0, 0.00997D0, 0.00542D0, - & 0.00262D0, 0.00106D0, 0.00006D0, 0.00000D0/ - DATA (FMRS(1,2,I,23),I=1,49)/ - & 0.00669D0, 0.00878D0, 0.01153D0, 0.01352D0, 0.01515D0, - & 0.01655D0, 0.02181D0, 0.02888D0, 0.03416D0, 0.03858D0, - & 0.04263D0, 0.05833D0, 0.08027D0, 0.09661D0, 0.10992D0, - & 0.12125D0, 0.13987D0, 0.16129D0, 0.18654D0, 0.20370D0, - & 0.22365D0, 0.23178D0, 0.23266D0, 0.22717D0, 0.21689D0, - & 0.20387D0, 0.18906D0, 0.17340D0, 0.15758D0, 0.14198D0, - & 0.12670D0, 0.11220D0, 0.09851D0, 0.08577D0, 0.07408D0, - & 0.06350D0, 0.05377D0, 0.04507D0, 0.03757D0, 0.03084D0, - & 0.02497D0, 0.02003D0, 0.01574D0, 0.00927D0, 0.00500D0, - & 0.00240D0, 0.00096D0, 0.00006D0, 0.00000D0/ - DATA (FMRS(1,2,I,24),I=1,49)/ - & 0.00679D0, 0.00892D0, 0.01172D0, 0.01376D0, 0.01542D0, - & 0.01685D0, 0.02222D0, 0.02944D0, 0.03483D0, 0.03934D0, - & 0.04345D0, 0.05941D0, 0.08161D0, 0.09806D0, 0.11144D0, - & 0.12278D0, 0.14136D0, 0.16260D0, 0.18745D0, 0.20414D0, - & 0.22314D0, 0.23041D0, 0.23054D0, 0.22429D0, 0.21345D0, - & 0.20006D0, 0.18498D0, 0.16918D0, 0.15336D0, 0.13783D0, - & 0.12271D0, 0.10840D0, 0.09494D0, 0.08246D0, 0.07106D0, - & 0.06075D0, 0.05132D0, 0.04292D0, 0.03570D0, 0.02922D0, - & 0.02361D0, 0.01888D0, 0.01480D0, 0.00867D0, 0.00465D0, - & 0.00221D0, 0.00088D0, 0.00005D0, 0.00000D0/ - DATA (FMRS(1,2,I,25),I=1,49)/ - & 0.00689D0, 0.00906D0, 0.01192D0, 0.01399D0, 0.01569D0, - & 0.01715D0, 0.02264D0, 0.03000D0, 0.03550D0, 0.04009D0, - & 0.04429D0, 0.06049D0, 0.08294D0, 0.09952D0, 0.11294D0, - & 0.12429D0, 0.14282D0, 0.16389D0, 0.18832D0, 0.20454D0, - & 0.22261D0, 0.22902D0, 0.22843D0, 0.22145D0, 0.21007D0, - & 0.19632D0, 0.18101D0, 0.16509D0, 0.14928D0, 0.13382D0, - & 0.11886D0, 0.10475D0, 0.09153D0, 0.07931D0, 0.06819D0, - & 0.05815D0, 0.04900D0, 0.04089D0, 0.03393D0, 0.02770D0, - & 0.02232D0, 0.01781D0, 0.01392D0, 0.00811D0, 0.00432D0, - & 0.00204D0, 0.00081D0, 0.00004D0, 0.00000D0/ - DATA (FMRS(1,2,I,26),I=1,49)/ - & 0.00699D0, 0.00920D0, 0.01211D0, 0.01423D0, 0.01596D0, - & 0.01744D0, 0.02304D0, 0.03056D0, 0.03616D0, 0.04084D0, - & 0.04510D0, 0.06154D0, 0.08423D0, 0.10091D0, 0.11437D0, - & 0.12573D0, 0.14419D0, 0.16508D0, 0.18909D0, 0.20485D0, - & 0.22201D0, 0.22760D0, 0.22631D0, 0.21867D0, 0.20676D0, - & 0.19266D0, 0.17717D0, 0.16120D0, 0.14536D0, 0.12999D0, - & 0.11520D0, 0.10128D0, 0.08831D0, 0.07633D0, 0.06548D0, - & 0.05572D0, 0.04685D0, 0.03900D0, 0.03228D0, 0.02629D0, - & 0.02113D0, 0.01682D0, 0.01311D0, 0.00760D0, 0.00403D0, - & 0.00189D0, 0.00074D0, 0.00004D0, 0.00000D0/ - DATA (FMRS(1,2,I,27),I=1,49)/ - & 0.00708D0, 0.00933D0, 0.01230D0, 0.01445D0, 0.01621D0, - & 0.01773D0, 0.02343D0, 0.03108D0, 0.03678D0, 0.04155D0, - & 0.04587D0, 0.06253D0, 0.08544D0, 0.10221D0, 0.11571D0, - & 0.12707D0, 0.14546D0, 0.16617D0, 0.18977D0, 0.20509D0, - & 0.22139D0, 0.22623D0, 0.22430D0, 0.21604D0, 0.20367D0, - & 0.18926D0, 0.17361D0, 0.15759D0, 0.14176D0, 0.12648D0, - & 0.11185D0, 0.09812D0, 0.08537D0, 0.07364D0, 0.06303D0, - & 0.05352D0, 0.04490D0, 0.03729D0, 0.03081D0, 0.02503D0, - & 0.02007D0, 0.01594D0, 0.01240D0, 0.00714D0, 0.00376D0, - & 0.00176D0, 0.00068D0, 0.00004D0, 0.00000D0/ - DATA (FMRS(1,2,I,28),I=1,49)/ - & 0.00718D0, 0.00946D0, 0.01247D0, 0.01467D0, 0.01646D0, - & 0.01800D0, 0.02380D0, 0.03158D0, 0.03738D0, 0.04221D0, - & 0.04660D0, 0.06346D0, 0.08657D0, 0.10342D0, 0.11695D0, - & 0.12830D0, 0.14663D0, 0.16715D0, 0.19037D0, 0.20527D0, - & 0.22075D0, 0.22489D0, 0.22237D0, 0.21353D0, 0.20079D0, - & 0.18610D0, 0.17031D0, 0.15425D0, 0.13844D0, 0.12326D0, - & 0.10877D0, 0.09523D0, 0.08268D0, 0.07119D0, 0.06080D0, - & 0.05153D0, 0.04314D0, 0.03575D0, 0.02948D0, 0.02390D0, - & 0.01913D0, 0.01516D0, 0.01177D0, 0.00675D0, 0.00353D0, - & 0.00164D0, 0.00063D0, 0.00003D0, 0.00000D0/ - DATA (FMRS(1,2,I,29),I=1,49)/ - & 0.00727D0, 0.00959D0, 0.01265D0, 0.01488D0, 0.01670D0, - & 0.01827D0, 0.02417D0, 0.03208D0, 0.03797D0, 0.04288D0, - & 0.04733D0, 0.06440D0, 0.08769D0, 0.10463D0, 0.11818D0, - & 0.12952D0, 0.14777D0, 0.16810D0, 0.19092D0, 0.20540D0, - & 0.22008D0, 0.22352D0, 0.22043D0, 0.21103D0, 0.19791D0, - & 0.18297D0, 0.16705D0, 0.15095D0, 0.13519D0, 0.12011D0, - & 0.10577D0, 0.09241D0, 0.08008D0, 0.06881D0, 0.05866D0, - & 0.04961D0, 0.04145D0, 0.03427D0, 0.02822D0, 0.02282D0, - & 0.01822D0, 0.01441D0, 0.01116D0, 0.00637D0, 0.00332D0, - & 0.00153D0, 0.00059D0, 0.00003D0, 0.00000D0/ - DATA (FMRS(1,2,I,30),I=1,49)/ - & 0.00737D0, 0.00972D0, 0.01283D0, 0.01510D0, 0.01695D0, - & 0.01854D0, 0.02454D0, 0.03258D0, 0.03856D0, 0.04354D0, - & 0.04805D0, 0.06532D0, 0.08879D0, 0.10580D0, 0.11936D0, - & 0.13069D0, 0.14886D0, 0.16900D0, 0.19141D0, 0.20548D0, - & 0.21937D0, 0.22213D0, 0.21850D0, 0.20855D0, 0.19507D0, - & 0.17994D0, 0.16388D0, 0.14775D0, 0.13208D0, 0.11709D0, - & 0.10291D0, 0.08973D0, 0.07760D0, 0.06655D0, 0.05664D0, - & 0.04779D0, 0.03985D0, 0.03289D0, 0.02702D0, 0.02182D0, - & 0.01738D0, 0.01372D0, 0.01060D0, 0.00602D0, 0.00312D0, - & 0.00143D0, 0.00055D0, 0.00003D0, 0.00000D0/ - DATA (FMRS(1,2,I,31),I=1,49)/ - & 0.00746D0, 0.00985D0, 0.01300D0, 0.01530D0, 0.01718D0, - & 0.01880D0, 0.02489D0, 0.03306D0, 0.03912D0, 0.04417D0, - & 0.04873D0, 0.06619D0, 0.08983D0, 0.10690D0, 0.12048D0, - & 0.13179D0, 0.14987D0, 0.16982D0, 0.19186D0, 0.20553D0, - & 0.21868D0, 0.22081D0, 0.21666D0, 0.20623D0, 0.19242D0, - & 0.17710D0, 0.16093D0, 0.14478D0, 0.12919D0, 0.11430D0, - & 0.10026D0, 0.08726D0, 0.07533D0, 0.06447D0, 0.05479D0, - & 0.04614D0, 0.03840D0, 0.03163D0, 0.02594D0, 0.02091D0, - & 0.01662D0, 0.01309D0, 0.01009D0, 0.00571D0, 0.00295D0, - & 0.00134D0, 0.00051D0, 0.00003D0, 0.00000D0/ - DATA (FMRS(1,2,I,32),I=1,49)/ - & 0.00755D0, 0.00997D0, 0.01317D0, 0.01550D0, 0.01741D0, - & 0.01905D0, 0.02522D0, 0.03351D0, 0.03966D0, 0.04477D0, - & 0.04938D0, 0.06700D0, 0.09079D0, 0.10792D0, 0.12151D0, - & 0.13280D0, 0.15080D0, 0.17056D0, 0.19223D0, 0.20552D0, - & 0.21797D0, 0.21951D0, 0.21489D0, 0.20403D0, 0.18991D0, - & 0.17441D0, 0.15817D0, 0.14202D0, 0.12646D0, 0.11170D0, - & 0.09780D0, 0.08498D0, 0.07322D0, 0.06257D0, 0.05306D0, - & 0.04463D0, 0.03708D0, 0.03049D0, 0.02496D0, 0.02008D0, - & 0.01594D0, 0.01252D0, 0.00963D0, 0.00542D0, 0.00279D0, - & 0.00126D0, 0.00048D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(1,2,I,33),I=1,49)/ - & 0.00764D0, 0.01009D0, 0.01333D0, 0.01570D0, 0.01763D0, - & 0.01930D0, 0.02556D0, 0.03396D0, 0.04019D0, 0.04537D0, - & 0.05004D0, 0.06783D0, 0.09177D0, 0.10895D0, 0.12254D0, - & 0.13381D0, 0.15173D0, 0.17130D0, 0.19261D0, 0.20552D0, - & 0.21726D0, 0.21822D0, 0.21313D0, 0.20185D0, 0.18743D0, - & 0.17175D0, 0.15545D0, 0.13931D0, 0.12379D0, 0.10917D0, - & 0.09540D0, 0.08276D0, 0.07118D0, 0.06072D0, 0.05139D0, - & 0.04317D0, 0.03581D0, 0.02938D0, 0.02402D0, 0.01929D0, - & 0.01528D0, 0.01198D0, 0.00920D0, 0.00516D0, 0.00264D0, - & 0.00119D0, 0.00045D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(1,2,I,34),I=1,49)/ - & 0.00773D0, 0.01021D0, 0.01350D0, 0.01590D0, 0.01786D0, - & 0.01955D0, 0.02590D0, 0.03441D0, 0.04072D0, 0.04597D0, - & 0.05068D0, 0.06863D0, 0.09272D0, 0.10994D0, 0.12353D0, - & 0.13477D0, 0.15260D0, 0.17197D0, 0.19290D0, 0.20543D0, - & 0.21649D0, 0.21688D0, 0.21134D0, 0.19965D0, 0.18497D0, - & 0.16913D0, 0.15278D0, 0.13665D0, 0.12121D0, 0.10669D0, - & 0.09308D0, 0.08060D0, 0.06921D0, 0.05894D0, 0.04980D0, - & 0.04176D0, 0.03458D0, 0.02833D0, 0.02311D0, 0.01853D0, - & 0.01465D0, 0.01147D0, 0.00879D0, 0.00491D0, 0.00250D0, - & 0.00112D0, 0.00042D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(1,2,I,35),I=1,49)/ - & 0.00781D0, 0.01033D0, 0.01366D0, 0.01609D0, 0.01808D0, - & 0.01979D0, 0.02622D0, 0.03484D0, 0.04123D0, 0.04653D0, - & 0.05129D0, 0.06941D0, 0.09362D0, 0.11088D0, 0.12448D0, - & 0.13569D0, 0.15342D0, 0.17260D0, 0.19318D0, 0.20535D0, - & 0.21576D0, 0.21562D0, 0.20966D0, 0.19759D0, 0.18266D0, - & 0.16668D0, 0.15028D0, 0.13418D0, 0.11882D0, 0.10439D0, - & 0.09094D0, 0.07861D0, 0.06739D0, 0.05729D0, 0.04834D0, - & 0.04048D0, 0.03346D0, 0.02736D0, 0.02228D0, 0.01784D0, - & 0.01408D0, 0.01100D0, 0.00842D0, 0.00468D0, 0.00237D0, - & 0.00106D0, 0.00039D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(1,2,I,36),I=1,49)/ - & 0.00790D0, 0.01044D0, 0.01382D0, 0.01628D0, 0.01829D0, - & 0.02002D0, 0.02653D0, 0.03525D0, 0.04172D0, 0.04707D0, - & 0.05188D0, 0.07013D0, 0.09447D0, 0.11177D0, 0.12535D0, - & 0.13654D0, 0.15418D0, 0.17318D0, 0.19341D0, 0.20524D0, - & 0.21505D0, 0.21440D0, 0.20805D0, 0.19563D0, 0.18048D0, - & 0.16438D0, 0.14795D0, 0.13186D0, 0.11657D0, 0.10226D0, - & 0.08894D0, 0.07676D0, 0.06571D0, 0.05578D0, 0.04700D0, - & 0.03929D0, 0.03242D0, 0.02648D0, 0.02153D0, 0.01720D0, - & 0.01356D0, 0.01058D0, 0.00808D0, 0.00448D0, 0.00226D0, - & 0.00101D0, 0.00037D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(1,2,I,37),I=1,49)/ - & 0.00798D0, 0.01056D0, 0.01397D0, 0.01646D0, 0.01850D0, - & 0.02025D0, 0.02684D0, 0.03567D0, 0.04221D0, 0.04762D0, - & 0.05247D0, 0.07087D0, 0.09532D0, 0.11265D0, 0.12622D0, - & 0.13738D0, 0.15492D0, 0.17373D0, 0.19361D0, 0.20510D0, - & 0.21429D0, 0.21315D0, 0.20641D0, 0.19365D0, 0.17829D0, - & 0.16207D0, 0.14561D0, 0.12954D0, 0.11434D0, 0.10013D0, - & 0.08696D0, 0.07493D0, 0.06406D0, 0.05429D0, 0.04567D0, - & 0.03812D0, 0.03141D0, 0.02561D0, 0.02079D0, 0.01659D0, - & 0.01305D0, 0.01017D0, 0.00775D0, 0.00428D0, 0.00215D0, - & 0.00095D0, 0.00035D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(1,2,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I, 1),I=1,49)/ - & 3.68244D0, 3.61785D0, 3.55346D0, 3.51555D0, 3.48837D0, - & 3.46702D0, 3.39811D0, 3.32177D0, 3.27072D0, 3.23000D0, - & 3.19378D0, 3.05765D0, 2.86346D0, 2.71339D0, 2.58651D0, - & 2.47572D0, 2.28777D0, 2.06245D0, 1.78178D0, 1.57726D0, - & 1.30519D0, 1.14076D0, 1.03654D0, 0.95264D0, 0.89447D0, - & 0.84663D0, 0.80090D0, 0.75325D0, 0.70217D0, 0.64784D0, - & 0.59048D0, 0.53173D0, 0.47263D0, 0.41459D0, 0.35887D0, - & 0.30634D0, 0.25757D0, 0.21335D0, 0.17415D0, 0.13936D0, - & 0.10957D0, 0.08459D0, 0.06372D0, 0.03369D0, 0.01574D0, - & 0.00625D0, 0.00195D0, 0.00005D0, 0.00000D0/ - DATA (FMRS(1,3,I, 2),I=1,49)/ - & 6.24307D0, 5.86376D0, 5.50631D0, 5.30646D0, 5.16844D0, - & 5.06337D0, 4.74657D0, 4.44005D0, 4.26242D0, 4.13555D0, - & 4.03502D0, 3.71094D0, 3.34882D0, 3.11051D0, 2.92600D0, - & 2.77355D0, 2.52821D0, 2.24967D0, 1.91859D0, 1.68481D0, - & 1.37946D0, 1.19535D0, 1.07673D0, 0.97819D0, 0.90750D0, - & 0.84881D0, 0.79381D0, 0.73852D0, 0.68149D0, 0.62276D0, - & 0.56254D0, 0.50226D0, 0.44285D0, 0.38548D0, 0.33123D0, - & 0.28073D0, 0.23437D0, 0.19279D0, 0.15633D0, 0.12427D0, - & 0.09707D0, 0.07445D0, 0.05572D0, 0.02906D0, 0.01339D0, - & 0.00524D0, 0.00161D0, 0.00004D0, 0.00000D0/ - DATA (FMRS(1,3,I, 3),I=1,49)/ - & 11.05139D0, 9.94786D0, 8.95244D0, 8.41536D0, 8.05287D0, - & 7.78166D0, 6.98996D0, 6.26416D0, 5.86369D0, 5.58758D0, - & 5.37431D0, 4.72923D0, 4.08790D0, 3.70661D0, 3.43015D0, - & 3.21204D0, 2.87740D0, 2.51734D0, 2.11023D0, 1.83283D0, - & 1.47833D0, 1.26530D0, 1.12571D0, 1.00618D0, 0.91793D0, - & 0.84442D0, 0.77712D0, 0.71204D0, 0.64770D0, 0.58389D0, - & 0.52071D0, 0.45928D0, 0.40030D0, 0.34459D0, 0.29298D0, - & 0.24576D0, 0.20309D0, 0.16540D0, 0.13284D0, 0.10462D0, - & 0.08093D0, 0.06152D0, 0.04560D0, 0.02333D0, 0.01054D0, - & 0.00404D0, 0.00122D0, 0.00003D0, 0.00000D0/ - DATA (FMRS(1,3,I, 4),I=1,49)/ - & 15.37825D0, 13.53065D0, 11.90193D0, 11.03924D0, 10.46378D0, - & 10.03696D0, 8.81034D0, 7.71341D0, 7.12073D0, 6.71781D0, - & 6.40918D0, 5.49848D0, 4.63276D0, 4.13943D0, 3.79203D0, - & 3.52386D0, 3.12196D0, 2.70149D0, 2.23890D0, 1.93011D0, - & 1.54059D0, 1.30714D0, 1.15286D0, 1.01886D0, 0.91881D0, - & 0.83562D0, 0.76055D0, 0.68952D0, 0.62095D0, 0.55452D0, - & 0.49011D0, 0.42861D0, 0.37052D0, 0.31647D0, 0.26702D0, - & 0.22241D0, 0.18246D0, 0.14751D0, 0.11769D0, 0.09209D0, - & 0.07074D0, 0.05343D0, 0.03933D0, 0.01985D0, 0.00885D0, - & 0.00335D0, 0.00100D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(1,3,I, 5),I=1,49)/ - & 20.54786D0, 17.73643D0, 15.30522D0, 14.03720D0, 13.19955D0, - & 12.58273D0, 10.83264D0, 9.29877D0, 8.48369D0, 7.93560D0, - & 7.51848D0, 6.31010D0, 5.19808D0, 4.58383D0, 4.16067D0, - & 3.83948D0, 3.36690D0, 2.88348D0, 2.36367D0, 2.02276D0, - & 1.59751D0, 1.34336D0, 1.17440D0, 1.02619D0, 0.91484D0, - & 0.82260D0, 0.74049D0, 0.66431D0, 0.59227D0, 0.52387D0, - & 0.45886D0, 0.39784D0, 0.34106D0, 0.28898D0, 0.24193D0, - & 0.20003D0, 0.16291D0, 0.13075D0, 0.10361D0, 0.08049D0, - & 0.06141D0, 0.04606D0, 0.03367D0, 0.01676D0, 0.00737D0, - & 0.00275D0, 0.00081D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(1,3,I, 6),I=1,49)/ - & 25.87997D0, 22.00579D0, 18.70564D0, 17.00514D0, 15.89031D0, - & 15.07400D0, 12.78092D0, 10.80231D0, 9.76436D0, 9.07223D0, - & 8.54820D0, 7.05063D0, 5.70461D0, 4.97765D0, 4.48471D0, - & 4.11512D0, 3.57867D0, 3.03899D0, 2.46867D0, 2.09967D0, - & 1.64344D0, 1.37152D0, 1.19009D0, 1.03003D0, 0.90944D0, - & 0.81000D0, 0.72245D0, 0.64242D0, 0.56795D0, 0.49835D0, - & 0.43318D0, 0.37285D0, 0.31739D0, 0.26712D0, 0.22217D0, - & 0.18254D0, 0.14775D0, 0.11786D0, 0.09285D0, 0.07171D0, - & 0.05439D0, 0.04056D0, 0.02948D0, 0.01450D0, 0.00631D0, - & 0.00232D0, 0.00067D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(1,3,I, 7),I=1,49)/ - & 31.48650D0, 26.43816D0, 22.19174D0, 20.02570D0, 18.61470D0, - & 17.58636D0, 14.72161D0, 12.28168D0, 11.01532D0, 10.17669D0, - & 9.54456D0, 7.75761D0, 6.18119D0, 5.34474D0, 4.78459D0, - & 4.36861D0, 3.77149D0, 3.17878D0, 2.56125D0, 2.16614D0, - & 1.68135D0, 1.39321D0, 1.20050D0, 1.02990D0, 0.90129D0, - & 0.79577D0, 0.70378D0, 0.62075D0, 0.54457D0, 0.47435D0, - & 0.40939D0, 0.34999D0, 0.29601D0, 0.24758D0, 0.20467D0, - & 0.16718D0, 0.13453D0, 0.10670D0, 0.08361D0, 0.06425D0, - & 0.04845D0, 0.03594D0, 0.02598D0, 0.01264D0, 0.00544D0, - & 0.00198D0, 0.00057D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(1,3,I, 8),I=1,49)/ - & 38.19562D0, 31.67731D0, 26.26192D0, 23.52700D0, 21.75654D0, - & 20.47217D0, 16.92324D0, 13.93891D0, 12.40615D0, 11.39793D0, - & 10.64140D0, 8.52490D0, 6.69053D0, 5.73328D0, 5.09966D0, - & 4.63338D0, 3.97084D0, 3.32155D0, 2.65414D0, 2.23167D0, - & 1.71719D0, 1.41235D0, 1.20819D0, 1.02708D0, 0.89064D0, - & 0.77934D0, 0.68328D0, 0.59764D0, 0.52014D0, 0.44964D0, - & 0.38523D0, 0.32704D0, 0.27476D0, 0.22832D0, 0.18758D0, - & 0.15228D0, 0.12182D0, 0.09604D0, 0.07484D0, 0.05719D0, - & 0.04288D0, 0.03164D0, 0.02275D0, 0.01095D0, 0.00466D0, - & 0.00168D0, 0.00048D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(1,3,I, 9),I=1,49)/ - & 44.69263D0, 36.69535D0, 30.11768D0, 26.82255D0, 24.70025D0, - & 23.16639D0, 18.95601D0, 15.45187D0, 13.66736D0, 12.49995D0, - & 11.62724D0, 9.20581D0, 7.13631D0, 6.07035D0, 5.37118D0, - & 4.86033D0, 4.14011D0, 3.44140D0, 2.73081D0, 2.28485D0, - & 1.74506D0, 1.42613D0, 1.21246D0, 1.02274D0, 0.88003D0, - & 0.76424D0, 0.66513D0, 0.57765D0, 0.49935D0, 0.42889D0, - & 0.36519D0, 0.30820D0, 0.25746D0, 0.21275D0, 0.17388D0, - & 0.14043D0, 0.11178D0, 0.08767D0, 0.06799D0, 0.05171D0, - & 0.03859D0, 0.02834D0, 0.02028D0, 0.00968D0, 0.00408D0, - & 0.00146D0, 0.00041D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(1,3,I,10),I=1,49)/ - & 51.42669D0, 41.84610D0, 34.03689D0, 30.15309D0, 27.66303D0, - & 25.86942D0, 20.97504D0, 16.93923D0, 14.89954D0, 13.57172D0, - & 12.58248D0, 9.85775D0, 7.55746D0, 6.38605D0, 5.62372D0, - & 5.07013D0, 4.29501D0, 3.54959D0, 2.79853D0, 2.33075D0, - & 1.76763D0, 1.43584D0, 1.21358D0, 1.01625D0, 0.86814D0, - & 0.74860D0, 0.64707D0, 0.55827D0, 0.47958D0, 0.40941D0, - & 0.34660D0, 0.29089D0, 0.24172D0, 0.19871D0, 0.16160D0, - & 0.12988D0, 0.10289D0, 0.08032D0, 0.06202D0, 0.04695D0, - & 0.03489D0, 0.02551D0, 0.01818D0, 0.00860D0, 0.00360D0, - & 0.00128D0, 0.00036D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(1,3,I,11),I=1,49)/ - & 57.20334D0, 46.22931D0, 37.34534D0, 32.95134D0, 30.14391D0, - & 28.12686D0, 22.64741D0, 18.16087D0, 15.90648D0, 14.44434D0, - & 13.35786D0, 10.38182D0, 7.89242D0, 6.63544D0, 5.82215D0, - & 5.23423D0, 4.41529D0, 3.63279D0, 2.84983D0, 2.36499D0, - & 1.78374D0, 1.44206D0, 1.21326D0, 1.01023D0, 0.85815D0, - & 0.73593D0, 0.63273D0, 0.54312D0, 0.46430D0, 0.39449D0, - & 0.33248D0, 0.27783D0, 0.22993D0, 0.18826D0, 0.15250D0, - & 0.12212D0, 0.09637D0, 0.07495D0, 0.05770D0, 0.04352D0, - & 0.03223D0, 0.02349D0, 0.01668D0, 0.00784D0, 0.00326D0, - & 0.00115D0, 0.00032D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(1,3,I,12),I=1,49)/ - & 70.62117D0, 56.29525D0, 44.85603D0, 39.26056D0, 35.71024D0, - & 33.17249D0, 26.34026D0, 20.82458D0, 18.08508D0, 16.32156D0, - & 15.01807D0, 11.48651D0, 8.58576D0, 7.14521D0, 6.22372D0, - & 5.56345D0, 4.65284D0, 3.79371D0, 2.94559D0, 2.42633D0, - & 1.80899D0, 1.44797D0, 1.20662D0, 0.99291D0, 0.83369D0, - & 0.70687D0, 0.60112D0, 0.51056D0, 0.43209D0, 0.36357D0, - & 0.30359D0, 0.25146D0, 0.20630D0, 0.16753D0, 0.13462D0, - & 0.10696D0, 0.08376D0, 0.06466D0, 0.04944D0, 0.03702D0, - & 0.02722D0, 0.01971D0, 0.01390D0, 0.00645D0, 0.00265D0, - & 0.00093D0, 0.00026D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(1,3,I,13),I=1,49)/ - & 83.50434D0, 65.82890D0, 51.87140D0, 45.10521D0, 40.83618D0, - & 37.79736D0, 29.67546D0, 23.19327D0, 20.00393D0, 17.96325D0, - & 16.46149D0, 12.42825D0, 9.16326D0, 7.56303D0, 6.54853D0, - & 5.82663D0, 4.83880D0, 3.91602D0, 3.01472D0, 2.46779D0, - & 1.82202D0, 1.44614D0, 1.19543D0, 0.97402D0, 0.80992D0, - & 0.68027D0, 0.57325D0, 0.48262D0, 0.40504D0, 0.33808D0, - & 0.28014D0, 0.23033D0, 0.18761D0, 0.15130D0, 0.12077D0, - & 0.09534D0, 0.07419D0, 0.05692D0, 0.04326D0, 0.03220D0, - & 0.02354D0, 0.01696D0, 0.01189D0, 0.00546D0, 0.00222D0, - & 0.00077D0, 0.00021D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(1,3,I,14),I=1,49)/ - & 99.26808D0, 77.34151D0, 60.22972D0, 52.01289D0, 46.85941D0, - & 43.20707D0, 33.52017D0, 25.88194D0, 22.16110D0, 19.79557D0, - & 18.06292D0, 13.45200D0, 9.77556D0, 7.99825D0, 6.88178D0, - & 6.09288D0, 5.02224D0, 4.03207D0, 3.07569D0, 2.50055D0, - & 1.82658D0, 1.43637D0, 1.17694D0, 0.94870D0, 0.78062D0, - & 0.64903D0, 0.54156D0, 0.45166D0, 0.37564D0, 0.31084D0, - & 0.25547D0, 0.20834D0, 0.16843D0, 0.13481D0, 0.10686D0, - & 0.08378D0, 0.06476D0, 0.04934D0, 0.03727D0, 0.02756D0, - & 0.02003D0, 0.01435D0, 0.01000D0, 0.00454D0, 0.00183D0, - & 0.00063D0, 0.00017D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,15),I=1,49)/ - & 117.13634D0, 90.22787D0, 69.46667D0, 59.58908D0, 53.42973D0, - & 49.08310D0, 37.64029D0, 28.72286D0, 24.42074D0, 21.70264D0, - & 19.72087D0, 14.49332D0, 10.38573D0, 8.42544D0, 7.20484D0, - & 6.34818D0, 5.19436D0, 4.13748D0, 3.12707D0, 2.52493D0, - & 1.82437D0, 1.42118D0, 1.15415D0, 0.92032D0, 0.74934D0, - & 0.61673D0, 0.50955D0, 0.42103D0, 0.34703D0, 0.28471D0, - & 0.23205D0, 0.18777D0, 0.15064D0, 0.11967D0, 0.09419D0, - & 0.07336D0, 0.05631D0, 0.04263D0, 0.03201D0, 0.02354D0, - & 0.01700D0, 0.01211D0, 0.00839D0, 0.00377D0, 0.00151D0, - & 0.00052D0, 0.00014D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,16),I=1,49)/ - & 134.87820D0,102.87527D0, 78.42588D0, 66.88609D0, 59.72612D0, - & 54.69190D0, 41.52393D0, 31.36570D0, 26.50579D0, 23.45176D0, - & 21.23395D0, 15.42784D0, 10.92244D0, 8.79593D0, 7.48170D0, - & 6.56462D0, 5.33723D0, 4.22208D0, 3.16533D0, 2.54035D0, - & 1.81781D0, 1.40424D0, 1.13142D0, 0.89365D0, 0.72095D0, - & 0.58811D0, 0.48181D0, 0.39483D0, 0.32289D0, 0.26295D0, - & 0.21278D0, 0.17100D0, 0.13629D0, 0.10758D0, 0.08415D0, - & 0.06517D0, 0.04972D0, 0.03744D0, 0.02797D0, 0.02046D0, - & 0.01470D0, 0.01042D0, 0.00719D0, 0.00321D0, 0.00127D0, - & 0.00043D0, 0.00012D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,17),I=1,49)/ - & 154.38010D0,116.63111D0, 88.06633D0, 74.68806D0, 66.42747D0, - & 60.64011D0, 45.59593D0, 34.10384D0, 28.65021D0, 25.24085D0, - & 22.77463D0, 16.36506D0, 11.45095D0, 9.15610D0, 7.74790D0, - & 6.77064D0, 5.47057D0, 4.29852D0, 3.19720D0, 2.55058D0, - & 1.80771D0, 1.38488D0, 1.10716D0, 0.86634D0, 0.69264D0, - & 0.56014D0, 0.45511D0, 0.36997D0, 0.30026D0, 0.24276D0, - & 0.19507D0, 0.15573D0, 0.12333D0, 0.09676D0, 0.07524D0, - & 0.05794D0, 0.04395D0, 0.03292D0, 0.02447D0, 0.01781D0, - & 0.01274D0, 0.00899D0, 0.00618D0, 0.00274D0, 0.00108D0, - & 0.00037D0, 0.00010D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,18),I=1,49)/ - & 171.60985D0,128.66806D0, 96.41977D0, 81.40891D0, 72.17590D0, - & 65.72558D0, 49.04064D0, 36.39427D0, 30.43144D0, 26.71914D0, - & 24.04215D0, 17.12464D0, 11.87120D0, 9.43856D0, 7.95410D0, - & 6.92832D0, 5.57016D0, 4.35322D0, 3.21721D0, 2.55406D0, - & 1.79608D0, 1.36671D0, 1.08575D0, 0.84319D0, 0.66925D0, - & 0.53749D0, 0.43376D0, 0.35041D0, 0.28267D0, 0.22722D0, - & 0.18154D0, 0.14418D0, 0.11359D0, 0.08871D0, 0.06865D0, - & 0.05262D0, 0.03976D0, 0.02965D0, 0.02195D0, 0.01592D0, - & 0.01135D0, 0.00798D0, 0.00547D0, 0.00241D0, 0.00095D0, - & 0.00032D0, 0.00009D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,19),I=1,49)/ - & 193.78899D0,144.01862D0,106.97157D0, 89.85031D0, 79.36631D0, - & 72.06629D0, 53.29134D0, 39.18974D0, 32.59051D0, 28.50177D0, - & 25.56394D0, 18.02311D0, 12.35926D0, 9.76179D0, 8.18702D0, - & 7.10431D0, 5.67841D0, 4.40968D0, 3.23437D0, 2.55292D0, - & 1.77867D0, 1.34261D0, 1.05865D0, 0.81484D0, 0.64125D0, - & 0.51082D0, 0.40904D0, 0.32798D0, 0.26269D0, 0.20975D0, - & 0.16651D0, 0.13145D0, 0.10293D0, 0.07994D0, 0.06153D0, - & 0.04691D0, 0.03527D0, 0.02618D0, 0.01929D0, 0.01394D0, - & 0.00989D0, 0.00693D0, 0.00473D0, 0.00207D0, 0.00081D0, - & 0.00027D0, 0.00007D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,20),I=1,49)/ - & 214.89481D0,158.49641D0,116.83355D0, 97.69725D0, 86.02460D0, - & 77.91979D0, 57.17770D0, 41.71972D0, 34.53225D0, 30.09744D0, - & 26.92084D0, 18.81368D0, 12.78187D0, 10.03830D0, 8.38419D0, - & 7.25181D0, 5.76723D0, 4.45410D0, 3.24560D0, 2.54901D0, - & 1.76164D0, 1.32048D0, 1.03446D0, 0.79010D0, 0.61721D0, - & 0.48824D0, 0.38835D0, 0.30938D0, 0.24629D0, 0.19551D0, - & 0.15438D0, 0.12122D0, 0.09444D0, 0.07299D0, 0.05594D0, - & 0.04245D0, 0.03178D0, 0.02349D0, 0.01725D0, 0.01242D0, - & 0.00879D0, 0.00614D0, 0.00418D0, 0.00182D0, 0.00071D0, - & 0.00024D0, 0.00007D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,21),I=1,49)/ - & 234.93695D0,172.12665D0,126.03609D0,104.98046D0, 92.18044D0, - & 83.31506D0, 60.72429D0, 44.00365D0, 36.27307D0, 31.52044D0, - & 28.12565D0, 19.50453D0, 13.14306D0, 10.27071D0, 8.54710D0, - & 7.37140D0, 5.83642D0, 4.48556D0, 3.24949D0, 2.54059D0, - & 1.74309D0, 1.29840D0, 1.01128D0, 0.76711D0, 0.59538D0, - & 0.46805D0, 0.37012D0, 0.29319D0, 0.23219D0, 0.18337D0, - & 0.14410D0, 0.11261D0, 0.08738D0, 0.06725D0, 0.05133D0, - & 0.03881D0, 0.02895D0, 0.02133D0, 0.01562D0, 0.01121D0, - & 0.00791D0, 0.00551D0, 0.00374D0, 0.00162D0, 0.00063D0, - & 0.00021D0, 0.00006D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,22),I=1,49)/ - & 261.98752D0,190.37146D0,138.25069D0,114.59908D0,100.28083D0, - & 90.39440D0, 65.33586D0, 46.94503D0, 38.50155D0, 33.33386D0, - & 29.65516D0, 20.37022D0, 13.58831D0, 10.55348D0, 8.74295D0, - & 7.51340D0, 5.91633D0, 4.51953D0, 3.25037D0, 2.52703D0, - & 1.71812D0, 1.26985D0, 0.98192D0, 0.73853D0, 0.56860D0, - & 0.44359D0, 0.34825D0, 0.27396D0, 0.21556D0, 0.16918D0, - & 0.13216D0, 0.10269D0, 0.07927D0, 0.06069D0, 0.04611D0, - & 0.03471D0, 0.02577D0, 0.01891D0, 0.01380D0, 0.00987D0, - & 0.00694D0, 0.00482D0, 0.00326D0, 0.00141D0, 0.00055D0, - & 0.00018D0, 0.00005D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,23),I=1,49)/ - & 289.01031D0,208.43709D0,150.23653D0,123.98669D0,108.15595D0, - & 97.25583D0, 69.76177D0, 49.73855D0, 40.60409D0, 35.03629D0, - & 31.08496D0, 21.16773D0, 13.99081D0, 10.80513D0, 8.91469D0, - & 7.63597D0, 5.98282D0, 4.54504D0, 3.24687D0, 2.51128D0, - & 1.69316D0, 1.24243D0, 0.95435D0, 0.71223D0, 0.54431D0, - & 0.42170D0, 0.32889D0, 0.25710D0, 0.20110D0, 0.15697D0, - & 0.12195D0, 0.09429D0, 0.07242D0, 0.05518D0, 0.04175D0, - & 0.03132D0, 0.02316D0, 0.01693D0, 0.01232D0, 0.00878D0, - & 0.00615D0, 0.00426D0, 0.00288D0, 0.00124D0, 0.00048D0, - & 0.00016D0, 0.00004D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,24),I=1,49)/ - & 315.12421D0,225.74153D0,161.61246D0,132.84715D0,115.55888D0, - & 103.68510D0, 73.86555D0, 52.29894D0, 42.51674D0, 36.57598D0, - & 32.37159D0, 21.87235D0, 14.33730D0, 11.01653D0, 9.05547D0, - & 7.73389D0, 6.03187D0, 4.55934D0, 3.23736D0, 2.49207D0, - & 1.66734D0, 1.21544D0, 0.92800D0, 0.68769D0, 0.52210D0, - & 0.40197D0, 0.31164D0, 0.24228D0, 0.18850D0, 0.14640D0, - & 0.11322D0, 0.08715D0, 0.06666D0, 0.05059D0, 0.03813D0, - & 0.02850D0, 0.02101D0, 0.01531D0, 0.01111D0, 0.00790D0, - & 0.00552D0, 0.00382D0, 0.00258D0, 0.00111D0, 0.00043D0, - & 0.00014D0, 0.00004D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,25),I=1,49)/ - & 342.80673D0,243.95296D0,173.49684D0,142.06322D0,123.23465D0, - & 110.33495D0, 78.07693D0, 54.90473D0, 44.45325D0, 38.12883D0, - & 33.66507D0, 22.57285D0, 14.67683D0, 11.22134D0, 9.19035D0, - & 7.82660D0, 6.07682D0, 4.57070D0, 3.22605D0, 2.47181D0, - & 1.64130D0, 1.18872D0, 0.90224D0, 0.66398D0, 0.50084D0, - & 0.38326D0, 0.29541D0, 0.22842D0, 0.17680D0, 0.13666D0, - & 0.10521D0, 0.08063D0, 0.06143D0, 0.04643D0, 0.03487D0, - & 0.02598D0, 0.01909D0, 0.01388D0, 0.01004D0, 0.00712D0, - & 0.00496D0, 0.00343D0, 0.00231D0, 0.00099D0, 0.00038D0, - & 0.00013D0, 0.00004D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,26),I=1,49)/ - & 370.71918D0,262.16998D0,185.28712D0,151.16048D0,130.78375D0, - & 116.85600D0, 82.16776D0, 57.40948D0, 46.30192D0, 39.60334D0, - & 34.88776D0, 23.22383D0, 14.98428D0, 11.40259D0, 9.30664D0, - & 7.90402D0, 6.11093D0, 4.57472D0, 3.21035D0, 2.44880D0, - & 1.61427D0, 1.16192D0, 0.87693D0, 0.64114D0, 0.48063D0, - & 0.36570D0, 0.28035D0, 0.21566D0, 0.16615D0, 0.12784D0, - & 0.09801D0, 0.07482D0, 0.05679D0, 0.04277D0, 0.03202D0, - & 0.02378D0, 0.01743D0, 0.01263D0, 0.00912D0, 0.00645D0, - & 0.00449D0, 0.00310D0, 0.00208D0, 0.00089D0, 0.00034D0, - & 0.00012D0, 0.00003D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,27),I=1,49)/ - & 398.31635D0,280.05777D0,196.78310D0,159.99336D0,138.09111D0, - & 123.15311D0, 86.08746D0, 59.78946D0, 48.04917D0, 40.99130D0, - & 36.03455D0, 23.82682D0, 15.26416D0, 11.56505D0, 9.40909D0, - & 7.97073D0, 6.13825D0, 4.57511D0, 3.19349D0, 2.42581D0, - & 1.58834D0, 1.13668D0, 0.85340D0, 0.62017D0, 0.46227D0, - & 0.34987D0, 0.26689D0, 0.20435D0, 0.15674D0, 0.12011D0, - & 0.09172D0, 0.06977D0, 0.05278D0, 0.03962D0, 0.02958D0, - & 0.02190D0, 0.01601D0, 0.01157D0, 0.00834D0, 0.00589D0, - & 0.00409D0, 0.00282D0, 0.00189D0, 0.00081D0, 0.00031D0, - & 0.00010D0, 0.00003D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,28),I=1,49)/ - & 425.10541D0,297.30496D0,207.79007D0,168.41481D0,145.03664D0, - & 129.12375D0, 89.77434D0, 62.00834D0, 49.66874D0, 42.27205D0, - & 37.08847D0, 24.37295D0, 15.51221D0, 11.70602D0, 9.49577D0, - & 8.02523D0, 6.15776D0, 4.57120D0, 3.17506D0, 2.40249D0, - & 1.56325D0, 1.11278D0, 0.83141D0, 0.60084D0, 0.44554D0, - & 0.33559D0, 0.25483D0, 0.19432D0, 0.14844D0, 0.11333D0, - & 0.08624D0, 0.06537D0, 0.04932D0, 0.03692D0, 0.02748D0, - & 0.02030D0, 0.01481D0, 0.01068D0, 0.00768D0, 0.00541D0, - & 0.00376D0, 0.00258D0, 0.00173D0, 0.00074D0, 0.00028D0, - & 0.00010D0, 0.00003D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,29),I=1,49)/ - & 452.96622D0,315.13217D0,219.09509D0,177.03108D0,152.12305D0, - & 135.20210D0, 93.50108D0, 64.23380D0, 51.28493D0, 43.54515D0, - & 38.13279D0, 24.90754D0, 15.75054D0, 11.83897D0, 9.57579D0, - & 8.07414D0, 6.17308D0, 4.56436D0, 3.15482D0, 2.37807D0, - & 1.53780D0, 1.08891D0, 0.80971D0, 0.58195D0, 0.42935D0, - & 0.32187D0, 0.24333D0, 0.18479D0, 0.14060D0, 0.10697D0, - & 0.08112D0, 0.06130D0, 0.04611D0, 0.03442D0, 0.02556D0, - & 0.01884D0, 0.01371D0, 0.00987D0, 0.00709D0, 0.00499D0, - & 0.00346D0, 0.00237D0, 0.00159D0, 0.00068D0, 0.00026D0, - & 0.00009D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,30),I=1,49)/ - & 481.05176D0,332.98895D0,230.34398D0,185.57016D0,159.12541D0, - & 141.19426D0, 97.14677D0, 66.39220D0, 52.84356D0, 44.76743D0, - & 39.13180D0, 25.41137D0, 15.96984D0, 11.95815D0, 9.64523D0, - & 8.11468D0, 6.18265D0, 4.55389D0, 3.13269D0, 2.35270D0, - & 1.51231D0, 1.06542D0, 0.78862D0, 0.56381D0, 0.41396D0, - & 0.30893D0, 0.23257D0, 0.17592D0, 0.13335D0, 0.10111D0, - & 0.07645D0, 0.05760D0, 0.04319D0, 0.03217D0, 0.02383D0, - & 0.01753D0, 0.01273D0, 0.00915D0, 0.00656D0, 0.00461D0, - & 0.00319D0, 0.00219D0, 0.00146D0, 0.00062D0, 0.00024D0, - & 0.00008D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,31),I=1,49)/ - & 508.69336D0,350.46606D0,241.29128D0,193.85184D0,165.89978D0, - & 146.97998D0,100.64462D0, 68.44891D0, 54.32217D0, 45.92301D0, - & 40.07352D0, 25.88124D0, 16.17098D0, 12.06571D0, 9.70659D0, - & 8.14933D0, 6.18899D0, 4.54214D0, 3.11075D0, 2.32815D0, - & 1.48813D0, 1.04340D0, 0.76902D0, 0.54710D0, 0.39988D0, - & 0.29718D0, 0.22284D0, 0.16794D0, 0.12688D0, 0.09590D0, - & 0.07230D0, 0.05433D0, 0.04063D0, 0.03020D0, 0.02232D0, - & 0.01639D0, 0.01188D0, 0.00852D0, 0.00610D0, 0.00428D0, - & 0.00296D0, 0.00203D0, 0.00136D0, 0.00057D0, 0.00022D0, - & 0.00007D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,32),I=1,49)/ - & 535.18030D0,367.11212D0,251.65173D0,201.65910D0,172.26764D0, - & 152.40591D0,103.89980D0, 70.34598D0, 55.67789D0, 46.97741D0, - & 40.92907D0, 26.30087D0, 16.34517D0, 12.15570D0, 9.75539D0, - & 8.17448D0, 6.18955D0, 4.52735D0, 3.08788D0, 2.30359D0, - & 1.46475D0, 1.02248D0, 0.75063D0, 0.53161D0, 0.38695D0, - & 0.28648D0, 0.21405D0, 0.16077D0, 0.12112D0, 0.09128D0, - & 0.06863D0, 0.05145D0, 0.03839D0, 0.02847D0, 0.02101D0, - & 0.01540D0, 0.01114D0, 0.00798D0, 0.00571D0, 0.00400D0, - & 0.00276D0, 0.00189D0, 0.00126D0, 0.00054D0, 0.00020D0, - & 0.00007D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,33),I=1,49)/ - & 563.08673D0,384.57391D0,262.47256D0,209.79239D0,178.88937D0, - & 158.04028D0,107.26506D0, 72.29848D0, 57.06943D0, 48.05758D0, - & 41.80413D0, 26.72791D0, 16.52149D0, 12.24650D0, 9.80451D0, - & 8.19975D0, 6.19012D0, 4.51259D0, 3.06514D0, 2.27926D0, - & 1.44171D0, 1.00196D0, 0.73265D0, 0.51654D0, 0.37443D0, - & 0.27615D0, 0.20559D0, 0.15389D0, 0.11561D0, 0.08687D0, - & 0.06514D0, 0.04872D0, 0.03627D0, 0.02685D0, 0.01977D0, - & 0.01446D0, 0.01045D0, 0.00747D0, 0.00534D0, 0.00374D0, - & 0.00258D0, 0.00176D0, 0.00118D0, 0.00050D0, 0.00019D0, - & 0.00006D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,34),I=1,49)/ - & 590.49207D0,401.61096D0,272.95639D0,217.63766D0,185.25558D0, - & 163.44283D0,110.46277D0, 74.13376D0, 58.36747D0, 49.05885D0, - & 42.61046D0, 27.11206D0, 16.67322D0, 12.31989D0, 9.84041D0, - & 8.21457D0, 6.18338D0, 4.49312D0, 3.03982D0, 2.25340D0, - & 1.41818D0, 0.98144D0, 0.71494D0, 0.50189D0, 0.36238D0, - & 0.26631D0, 0.19763D0, 0.14748D0, 0.11046D0, 0.08279D0, - & 0.06193D0, 0.04622D0, 0.03434D0, 0.02537D0, 0.01865D0, - & 0.01362D0, 0.00983D0, 0.00702D0, 0.00501D0, 0.00351D0, - & 0.00242D0, 0.00165D0, 0.00110D0, 0.00046D0, 0.00018D0, - & 0.00006D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,35),I=1,49)/ - & 617.67798D0,418.44214D0,283.27148D0,225.33791D0,191.49365D0, - & 168.72942D0,113.57884D0, 75.91459D0, 59.62379D0, 50.02613D0, - & 43.38823D0, 27.48080D0, 16.81807D0, 12.38969D0, 9.87443D0, - & 8.22855D0, 6.17694D0, 4.47470D0, 3.01600D0, 2.22915D0, - & 1.39622D0, 0.96237D0, 0.69854D0, 0.48839D0, 0.35132D0, - & 0.25731D0, 0.19037D0, 0.14164D0, 0.10579D0, 0.07911D0, - & 0.05904D0, 0.04396D0, 0.03261D0, 0.02405D0, 0.01765D0, - & 0.01287D0, 0.00928D0, 0.00662D0, 0.00472D0, 0.00330D0, - & 0.00227D0, 0.00155D0, 0.00103D0, 0.00044D0, 0.00017D0, - & 0.00006D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,36),I=1,49)/ - & 643.85529D0,434.56937D0,293.10349D0,232.65437D0,197.40677D0, - & 173.73129D0,116.50865D0, 77.57690D0, 60.79072D0, 50.92106D0, - & 44.10533D0, 27.81589D0, 16.94600D0, 12.44906D0, 9.90141D0, - & 8.23759D0, 6.16791D0, 4.45540D0, 2.99242D0, 2.20560D0, - & 1.37532D0, 0.94442D0, 0.68324D0, 0.47589D0, 0.34114D0, - & 0.24908D0, 0.18375D0, 0.13636D0, 0.10159D0, 0.07580D0, - & 0.05645D0, 0.04195D0, 0.03106D0, 0.02287D0, 0.01676D0, - & 0.01221D0, 0.00879D0, 0.00626D0, 0.00446D0, 0.00311D0, - & 0.00214D0, 0.00146D0, 0.00097D0, 0.00041D0, 0.00016D0, - & 0.00005D0, 0.00001D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,37),I=1,49)/ - & 670.62598D0,450.98129D0,303.05762D0,240.03790D0,203.35986D0, - & 178.75746D0,119.43383D0, 79.22430D0, 61.94125D0, 51.79964D0, - & 44.80675D0, 28.13850D0, 17.06516D0, 12.50182D0, 9.92310D0, - & 8.24227D0, 6.15572D0, 4.43398D0, 2.96756D0, 2.18122D0, - & 1.35409D0, 0.92638D0, 0.66799D0, 0.46354D0, 0.33115D0, - & 0.24105D0, 0.17731D0, 0.13125D0, 0.09756D0, 0.07262D0, - & 0.05397D0, 0.04005D0, 0.02960D0, 0.02176D0, 0.01592D0, - & 0.01159D0, 0.00833D0, 0.00593D0, 0.00422D0, 0.00294D0, - & 0.00202D0, 0.00138D0, 0.00092D0, 0.00039D0, 0.00015D0, - & 0.00005D0, 0.00001D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,3,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I, 1),I=1,49)/ - & 0.86800D0, 0.76598D0, 0.67520D0, 0.62675D0, 0.59428D0, - & 0.57013D0, 0.50046D0, 0.43816D0, 0.40484D0, 0.38253D0, - & 0.36613D0, 0.31874D0, 0.27654D0, 0.25397D0, 0.23882D0, - & 0.22750D0, 0.21099D0, 0.19387D0, 0.17401D0, 0.15872D0, - & 0.13363D0, 0.11222D0, 0.09356D0, 0.07392D0, 0.05824D0, - & 0.04613D0, 0.03700D0, 0.03017D0, 0.02498D0, 0.02125D0, - & 0.01786D0, 0.01513D0, 0.01268D0, 0.01040D0, 0.00852D0, - & 0.00674D0, 0.00520D0, 0.00388D0, 0.00299D0, 0.00201D0, - & 0.00134D0, 0.00094D0, 0.00051D0, 0.00021D0, 0.00007D0, - & 0.00003D0, -0.00001D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I, 2),I=1,49)/ - & 0.88205D0, 0.77983D0, 0.68869D0, 0.63997D0, 0.60729D0, - & 0.58296D0, 0.51264D0, 0.44961D0, 0.41580D0, 0.39312D0, - & 0.37640D0, 0.32792D0, 0.28442D0, 0.26097D0, 0.24515D0, - & 0.23328D0, 0.21590D0, 0.19782D0, 0.17683D0, 0.16077D0, - & 0.13467D0, 0.11273D0, 0.09381D0, 0.07406D0, 0.05839D0, - & 0.04632D0, 0.03722D0, 0.03037D0, 0.02516D0, 0.02135D0, - & 0.01792D0, 0.01513D0, 0.01262D0, 0.01032D0, 0.00842D0, - & 0.00664D0, 0.00510D0, 0.00380D0, 0.00291D0, 0.00197D0, - & 0.00130D0, 0.00091D0, 0.00051D0, 0.00020D0, 0.00007D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I, 3),I=1,49)/ - & 0.91886D0, 0.81356D0, 0.71953D0, 0.66920D0, 0.63541D0, - & 0.61023D0, 0.53738D0, 0.47189D0, 0.43666D0, 0.41295D0, - & 0.39539D0, 0.34428D0, 0.29794D0, 0.27277D0, 0.25567D0, - & 0.24279D0, 0.22388D0, 0.20416D0, 0.18131D0, 0.16398D0, - & 0.13630D0, 0.11352D0, 0.09418D0, 0.07425D0, 0.05857D0, - & 0.04653D0, 0.03744D0, 0.03056D0, 0.02532D0, 0.02139D0, - & 0.01791D0, 0.01504D0, 0.01246D0, 0.01016D0, 0.00822D0, - & 0.00648D0, 0.00493D0, 0.00368D0, 0.00278D0, 0.00188D0, - & 0.00124D0, 0.00086D0, 0.00051D0, 0.00020D0, 0.00006D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I, 4),I=1,49)/ - & 0.95997D0, 0.84981D0, 0.75147D0, 0.69884D0, 0.66351D0, - & 0.63718D0, 0.56100D0, 0.49247D0, 0.45556D0, 0.43069D0, - & 0.41221D0, 0.35830D0, 0.30918D0, 0.28239D0, 0.26415D0, - & 0.25039D0, 0.23017D0, 0.20908D0, 0.18474D0, 0.16642D0, - & 0.13752D0, 0.11409D0, 0.09444D0, 0.07437D0, 0.05864D0, - & 0.04662D0, 0.03752D0, 0.03063D0, 0.02535D0, 0.02135D0, - & 0.01783D0, 0.01492D0, 0.01232D0, 0.01000D0, 0.00803D0, - & 0.00631D0, 0.00479D0, 0.00358D0, 0.00268D0, 0.00180D0, - & 0.00120D0, 0.00084D0, 0.00049D0, 0.00020D0, 0.00006D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I, 5),I=1,49)/ - & 1.02269D0, 0.90363D0, 0.79759D0, 0.74093D0, 0.70294D0, - & 0.67465D0, 0.59289D0, 0.51944D0, 0.47990D0, 0.45324D0, - & 0.43337D0, 0.37541D0, 0.32249D0, 0.29359D0, 0.27391D0, - & 0.25907D0, 0.23726D0, 0.21456D0, 0.18851D0, 0.16906D0, - & 0.13883D0, 0.11469D0, 0.09468D0, 0.07442D0, 0.05863D0, - & 0.04662D0, 0.03753D0, 0.03061D0, 0.02531D0, 0.02124D0, - & 0.01767D0, 0.01472D0, 0.01211D0, 0.00977D0, 0.00782D0, - & 0.00614D0, 0.00464D0, 0.00341D0, 0.00257D0, 0.00173D0, - & 0.00113D0, 0.00080D0, 0.00046D0, 0.00018D0, 0.00005D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I, 6),I=1,49)/ - & 1.08763D0, 0.95875D0, 0.84428D0, 0.78326D0, 0.74239D0, - & 0.71199D0, 0.62427D0, 0.54563D0, 0.50333D0, 0.47482D0, - & 0.45353D0, 0.39146D0, 0.33478D0, 0.30385D0, 0.28279D0, - & 0.26692D0, 0.24362D0, 0.21944D0, 0.19183D0, 0.17138D0, - & 0.13995D0, 0.11519D0, 0.09486D0, 0.07444D0, 0.05860D0, - & 0.04659D0, 0.03750D0, 0.03056D0, 0.02523D0, 0.02111D0, - & 0.01751D0, 0.01454D0, 0.01191D0, 0.00957D0, 0.00764D0, - & 0.00598D0, 0.00450D0, 0.00328D0, 0.00247D0, 0.00167D0, - & 0.00107D0, 0.00076D0, 0.00044D0, 0.00016D0, 0.00005D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I, 7),I=1,49)/ - & 1.16556D0, 1.02401D0, 0.89875D0, 0.83219D0, 0.78769D0, - & 0.75465D0, 0.65951D0, 0.57450D0, 0.52889D0, 0.49818D0, - & 0.47520D0, 0.40838D0, 0.34748D0, 0.31432D0, 0.29177D0, - & 0.27481D0, 0.24995D0, 0.22424D0, 0.19505D0, 0.17361D0, - & 0.14101D0, 0.11563D0, 0.09500D0, 0.07441D0, 0.05852D0, - & 0.04652D0, 0.03740D0, 0.03045D0, 0.02509D0, 0.02093D0, - & 0.01733D0, 0.01434D0, 0.01170D0, 0.00939D0, 0.00744D0, - & 0.00582D0, 0.00436D0, 0.00318D0, 0.00238D0, 0.00161D0, - & 0.00104D0, 0.00073D0, 0.00042D0, 0.00014D0, 0.00005D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I, 8),I=1,49)/ - & 1.26306D0, 1.10484D0, 0.96554D0, 0.89180D0, 0.84263D0, - & 0.80618D0, 0.70157D0, 0.60853D0, 0.55877D0, 0.52532D0, - & 0.50028D0, 0.42768D0, 0.36175D0, 0.32597D0, 0.30171D0, - & 0.28349D0, 0.25687D0, 0.22944D0, 0.19851D0, 0.17597D0, - & 0.14210D0, 0.11607D0, 0.09509D0, 0.07433D0, 0.05839D0, - & 0.04638D0, 0.03725D0, 0.03028D0, 0.02490D0, 0.02071D0, - & 0.01710D0, 0.01411D0, 0.01147D0, 0.00917D0, 0.00724D0, - & 0.00565D0, 0.00421D0, 0.00306D0, 0.00228D0, 0.00155D0, - & 0.00101D0, 0.00070D0, 0.00040D0, 0.00013D0, 0.00005D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I, 9),I=1,49)/ - & 1.36120D0, 1.18550D0, 1.03156D0, 0.95040D0, 0.89642D0, - & 0.85647D0, 0.74219D0, 0.64102D0, 0.58710D0, 0.55092D0, - & 0.52385D0, 0.44558D0, 0.37481D0, 0.33656D0, 0.31068D0, - & 0.29130D0, 0.26304D0, 0.23405D0, 0.20153D0, 0.17803D0, - & 0.14303D0, 0.11643D0, 0.09515D0, 0.07423D0, 0.05825D0, - & 0.04622D0, 0.03709D0, 0.03010D0, 0.02471D0, 0.02052D0, - & 0.01688D0, 0.01389D0, 0.01125D0, 0.00895D0, 0.00706D0, - & 0.00550D0, 0.00409D0, 0.00295D0, 0.00220D0, 0.00150D0, - & 0.00098D0, 0.00067D0, 0.00039D0, 0.00013D0, 0.00005D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,10),I=1,49)/ - & 1.47041D0, 1.27446D0, 1.10370D0, 1.01406D0, 0.95460D0, - & 0.91068D0, 0.78549D0, 0.67526D0, 0.61674D0, 0.57757D0, - & 0.54827D0, 0.46388D0, 0.38797D0, 0.34713D0, 0.31960D0, - & 0.29901D0, 0.26910D0, 0.23853D0, 0.20444D0, 0.17998D0, - & 0.14388D0, 0.11673D0, 0.09517D0, 0.07410D0, 0.05807D0, - & 0.04602D0, 0.03690D0, 0.02989D0, 0.02450D0, 0.02029D0, - & 0.01665D0, 0.01365D0, 0.01102D0, 0.00875D0, 0.00689D0, - & 0.00534D0, 0.00396D0, 0.00285D0, 0.00213D0, 0.00144D0, - & 0.00094D0, 0.00064D0, 0.00038D0, 0.00013D0, 0.00004D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,11),I=1,49)/ - & 1.56638D0, 1.35212D0, 1.16625D0, 1.06903D0, 1.00469D0, - & 0.95725D0, 0.82240D0, 0.70420D0, 0.64167D0, 0.59990D0, - & 0.56868D0, 0.47904D0, 0.39878D0, 0.35576D0, 0.32683D0, - & 0.30525D0, 0.27397D0, 0.24210D0, 0.20674D0, 0.18151D0, - & 0.14453D0, 0.11694D0, 0.09517D0, 0.07398D0, 0.05791D0, - & 0.04585D0, 0.03673D0, 0.02971D0, 0.02433D0, 0.02010D0, - & 0.01646D0, 0.01346D0, 0.01083D0, 0.00860D0, 0.00675D0, - & 0.00520D0, 0.00385D0, 0.00277D0, 0.00207D0, 0.00139D0, - & 0.00090D0, 0.00062D0, 0.00037D0, 0.00013D0, 0.00004D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,12),I=1,49)/ - & 1.80214D0, 1.54109D0, 1.31694D0, 1.20067D0, 1.12412D0, - & 1.06789D0, 0.90916D0, 0.77146D0, 0.69919D0, 0.65116D0, - & 0.61534D0, 0.51323D0, 0.42280D0, 0.37478D0, 0.34269D0, - & 0.31886D0, 0.28449D0, 0.24976D0, 0.21162D0, 0.18471D0, - & 0.14585D0, 0.11732D0, 0.09509D0, 0.07364D0, 0.05748D0, - & 0.04542D0, 0.03629D0, 0.02928D0, 0.02389D0, 0.01964D0, - & 0.01603D0, 0.01303D0, 0.01043D0, 0.00824D0, 0.00644D0, - & 0.00493D0, 0.00365D0, 0.00261D0, 0.00193D0, 0.00129D0, - & 0.00082D0, 0.00058D0, 0.00033D0, 0.00012D0, 0.00003D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,13),I=1,49)/ - & 2.04055D0, 1.73004D0, 1.46588D0, 1.32988D0, 1.24076D0, - & 1.17553D0, 0.99250D0, 0.83521D0, 0.75328D0, 0.69907D0, - & 0.65875D0, 0.54456D0, 0.44445D0, 0.39176D0, 0.35673D0, - & 0.33084D0, 0.29368D0, 0.25636D0, 0.21574D0, 0.18736D0, - & 0.14688D0, 0.11755D0, 0.09493D0, 0.07328D0, 0.05705D0, - & 0.04498D0, 0.03587D0, 0.02887D0, 0.02347D0, 0.01921D0, - & 0.01564D0, 0.01265D0, 0.01010D0, 0.00793D0, 0.00617D0, - & 0.00472D0, 0.00348D0, 0.00248D0, 0.00181D0, 0.00123D0, - & 0.00077D0, 0.00054D0, 0.00031D0, 0.00011D0, 0.00003D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,14),I=1,49)/ - & 2.34878D0, 1.97162D0, 1.65417D0, 1.49212D0, 1.38650D0, - & 1.30951D0, 1.09500D0, 0.91263D0, 0.81846D0, 0.75649D0, - & 0.71054D0, 0.58140D0, 0.46952D0, 0.41122D0, 0.37271D0, - & 0.34438D0, 0.30396D0, 0.26367D0, 0.22023D0, 0.19019D0, - & 0.14790D0, 0.11770D0, 0.09464D0, 0.07279D0, 0.05650D0, - & 0.04444D0, 0.03534D0, 0.02838D0, 0.02299D0, 0.01873D0, - & 0.01518D0, 0.01221D0, 0.00971D0, 0.00758D0, 0.00587D0, - & 0.00448D0, 0.00329D0, 0.00233D0, 0.00171D0, 0.00117D0, - & 0.00073D0, 0.00051D0, 0.00028D0, 0.00010D0, 0.00003D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,15),I=1,49)/ - & 2.72076D0, 2.25974D0, 1.87603D0, 1.68193D0, 1.55614D0, - & 1.46482D0, 1.21228D0, 1.00004D0, 0.89145D0, 0.82040D0, - & 0.76790D0, 0.62156D0, 0.49638D0, 0.43184D0, 0.38951D0, - & 0.35852D0, 0.31456D0, 0.27109D0, 0.22467D0, 0.19292D0, - & 0.14878D0, 0.11770D0, 0.09423D0, 0.07216D0, 0.05583D0, - & 0.04380D0, 0.03471D0, 0.02777D0, 0.02242D0, 0.01821D0, - & 0.01468D0, 0.01176D0, 0.00931D0, 0.00721D0, 0.00560D0, - & 0.00425D0, 0.00310D0, 0.00215D0, 0.00160D0, 0.00107D0, - & 0.00067D0, 0.00046D0, 0.00026D0, 0.00009D0, 0.00003D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,16),I=1,49)/ - & 3.10372D0, 2.55317D0, 2.09952D0, 1.87189D0, 1.72513D0, - & 1.61899D0, 1.32738D0, 1.08482D0, 0.96174D0, 0.88163D0, - & 0.82262D0, 0.65935D0, 0.52128D0, 0.45078D0, 0.40481D0, - & 0.37132D0, 0.32407D0, 0.27766D0, 0.22852D0, 0.19522D0, - & 0.14943D0, 0.11759D0, 0.09376D0, 0.07153D0, 0.05518D0, - & 0.04316D0, 0.03411D0, 0.02721D0, 0.02189D0, 0.01771D0, - & 0.01421D0, 0.01135D0, 0.00894D0, 0.00691D0, 0.00532D0, - & 0.00403D0, 0.00292D0, 0.00202D0, 0.00150D0, 0.00098D0, - & 0.00063D0, 0.00043D0, 0.00024D0, 0.00009D0, 0.00003D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,17),I=1,49)/ - & 3.53791D0, 2.88253D0, 2.34786D0, 2.08172D0, 1.91099D0, - & 1.78798D0, 1.45224D0, 1.17581D0, 1.03669D0, 0.94660D0, - & 0.88048D0, 0.69881D0, 0.54694D0, 0.47011D0, 0.42034D0, - & 0.38424D0, 0.33357D0, 0.28414D0, 0.23224D0, 0.19739D0, - & 0.14997D0, 0.11738D0, 0.09322D0, 0.07083D0, 0.05448D0, - & 0.04248D0, 0.03349D0, 0.02663D0, 0.02135D0, 0.01720D0, - & 0.01373D0, 0.01094D0, 0.00857D0, 0.00662D0, 0.00504D0, - & 0.00382D0, 0.00275D0, 0.00191D0, 0.00140D0, 0.00091D0, - & 0.00060D0, 0.00040D0, 0.00021D0, 0.00008D0, 0.00002D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,18),I=1,49)/ - & 3.93600D0, 3.18179D0, 2.57144D0, 2.26962D0, 2.07679D0, - & 1.93828D0, 1.56224D0, 1.25519D0, 1.10169D0, 1.00271D0, - & 0.93026D0, 0.73238D0, 0.56848D0, 0.48622D0, 0.43319D0, - & 0.39487D0, 0.34131D0, 0.28936D0, 0.23517D0, 0.19905D0, - & 0.15030D0, 0.11713D0, 0.09270D0, 0.07021D0, 0.05385D0, - & 0.04190D0, 0.03295D0, 0.02612D0, 0.02087D0, 0.01677D0, - & 0.01334D0, 0.01060D0, 0.00827D0, 0.00637D0, 0.00486D0, - & 0.00366D0, 0.00263D0, 0.00181D0, 0.00134D0, 0.00088D0, - & 0.00056D0, 0.00038D0, 0.00020D0, 0.00007D0, 0.00002D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,19),I=1,49)/ - & 4.46512D0, 3.57604D0, 2.86339D0, 2.51369D0, 2.29136D0, - & 2.13222D0, 1.70289D0, 1.35573D0, 1.18356D0, 1.07308D0, - & 0.99248D0, 0.77387D0, 0.59477D0, 0.50571D0, 0.44864D0, - & 0.40759D0, 0.35048D0, 0.29545D0, 0.23852D0, 0.20087D0, - & 0.15057D0, 0.11671D0, 0.09200D0, 0.06939D0, 0.05304D0, - & 0.04116D0, 0.03225D0, 0.02548D0, 0.02030D0, 0.01627D0, - & 0.01289D0, 0.01018D0, 0.00793D0, 0.00608D0, 0.00462D0, - & 0.00346D0, 0.00247D0, 0.00170D0, 0.00124D0, 0.00082D0, - & 0.00052D0, 0.00036D0, 0.00020D0, 0.00007D0, 0.00002D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,20),I=1,49)/ - & 4.98110D0, 3.95717D0, 3.14315D0, 2.74636D0, 2.49515D0, - & 2.31589D0, 1.83490D0, 1.44924D0, 1.25928D0, 1.13790D0, - & 1.04961D0, 0.81156D0, 0.61839D0, 0.52309D0, 0.46234D0, - & 0.41880D0, 0.35851D0, 0.30072D0, 0.24136D0, 0.20237D0, - & 0.15073D0, 0.11629D0, 0.09134D0, 0.06865D0, 0.05232D0, - & 0.04048D0, 0.03163D0, 0.02492D0, 0.01980D0, 0.01582D0, - & 0.01251D0, 0.00983D0, 0.00765D0, 0.00583D0, 0.00441D0, - & 0.00330D0, 0.00234D0, 0.00161D0, 0.00116D0, 0.00076D0, - & 0.00049D0, 0.00034D0, 0.00019D0, 0.00006D0, 0.00002D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,21),I=1,49)/ - & 5.48855D0, 4.32906D0, 3.41400D0, 2.97058D0, 2.69088D0, - & 2.49185D0, 1.96033D0, 1.53734D0, 1.33025D0, 1.19843D0, - & 1.10279D0, 0.84628D0, 0.63987D0, 0.53877D0, 0.47461D0, - & 0.42879D0, 0.36557D0, 0.30530D0, 0.24373D0, 0.20356D0, - & 0.15074D0, 0.11580D0, 0.09065D0, 0.06792D0, 0.05161D0, - & 0.03984D0, 0.03104D0, 0.02440D0, 0.01932D0, 0.01538D0, - & 0.01214D0, 0.00950D0, 0.00738D0, 0.00561D0, 0.00423D0, - & 0.00315D0, 0.00224D0, 0.00152D0, 0.00110D0, 0.00072D0, - & 0.00045D0, 0.00032D0, 0.00018D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,22),I=1,49)/ - & 6.18910D0, 4.83835D0, 3.78189D0, 3.27368D0, 2.95458D0, - & 2.72828D0, 2.12748D0, 1.65375D0, 1.42355D0, 1.27771D0, - & 1.17223D0, 0.89116D0, 0.66734D0, 0.55867D0, 0.49010D0, - & 0.44134D0, 0.37438D0, 0.31092D0, 0.24658D0, 0.20493D0, - & 0.15066D0, 0.11512D0, 0.08974D0, 0.06696D0, 0.05069D0, - & 0.03901D0, 0.03030D0, 0.02374D0, 0.01874D0, 0.01485D0, - & 0.01168D0, 0.00911D0, 0.00704D0, 0.00533D0, 0.00400D0, - & 0.00297D0, 0.00211D0, 0.00142D0, 0.00104D0, 0.00068D0, - & 0.00042D0, 0.00029D0, 0.00017D0, 0.00005D0, 0.00002D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,23),I=1,49)/ - & 6.90776D0, 5.35634D0, 4.15288D0, 3.57780D0, 3.21822D0, - & 2.96398D0, 2.29266D0, 1.76775D0, 1.51442D0, 1.35462D0, - & 1.23937D0, 0.93411D0, 0.69332D0, 0.57734D0, 0.50454D0, - & 0.45297D0, 0.38246D0, 0.31600D0, 0.24910D0, 0.20608D0, - & 0.15048D0, 0.11442D0, 0.08886D0, 0.06603D0, 0.04982D0, - & 0.03823D0, 0.02961D0, 0.02314D0, 0.01820D0, 0.01437D0, - & 0.01125D0, 0.00875D0, 0.00671D0, 0.00507D0, 0.00380D0, - & 0.00282D0, 0.00198D0, 0.00134D0, 0.00099D0, 0.00065D0, - & 0.00039D0, 0.00026D0, 0.00015D0, 0.00005D0, 0.00002D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,24),I=1,49)/ - & 7.62426D0, 5.86871D0, 4.51692D0, 3.87481D0, 3.47482D0, - & 3.19280D0, 2.45168D0, 1.87657D0, 1.60070D0, 1.42736D0, - & 1.30266D0, 0.97414D0, 0.71722D0, 0.59437D0, 0.51760D0, - & 0.46341D0, 0.38962D0, 0.32042D0, 0.25117D0, 0.20694D0, - & 0.15017D0, 0.11367D0, 0.08795D0, 0.06511D0, 0.04897D0, - & 0.03748D0, 0.02894D0, 0.02253D0, 0.01769D0, 0.01392D0, - & 0.01087D0, 0.00842D0, 0.00645D0, 0.00484D0, 0.00362D0, - & 0.00267D0, 0.00187D0, 0.00128D0, 0.00093D0, 0.00060D0, - & 0.00037D0, 0.00024D0, 0.00014D0, 0.00004D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,25),I=1,49)/ - & 8.39819D0, 6.41814D0, 4.90446D0, 4.18965D0, 3.74601D0, - & 3.43405D0, 2.61811D0, 1.98959D0, 1.68991D0, 1.50231D0, - & 1.36770D0, 1.01493D0, 0.74134D0, 0.61144D0, 0.53063D0, - & 0.47380D0, 0.39668D0, 0.32474D0, 0.25316D0, 0.20772D0, - & 0.14981D0, 0.11289D0, 0.08703D0, 0.06420D0, 0.04813D0, - & 0.03673D0, 0.02828D0, 0.02194D0, 0.01719D0, 0.01349D0, - & 0.01049D0, 0.00810D0, 0.00620D0, 0.00463D0, 0.00344D0, - & 0.00252D0, 0.00177D0, 0.00122D0, 0.00086D0, 0.00056D0, - & 0.00034D0, 0.00023D0, 0.00012D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,26),I=1,49)/ - & 9.19912D0, 6.98269D0, 5.29980D0, 4.50945D0, 4.02062D0, - & 3.67776D0, 2.78497D0, 2.10203D0, 1.77824D0, 1.57626D0, - & 1.43169D0, 1.05466D0, 0.76454D0, 0.62772D0, 0.54298D0, - & 0.48357D0, 0.40325D0, 0.32867D0, 0.25488D0, 0.20830D0, - & 0.14936D0, 0.11205D0, 0.08608D0, 0.06328D0, 0.04729D0, - & 0.03598D0, 0.02762D0, 0.02140D0, 0.01669D0, 0.01307D0, - & 0.01014D0, 0.00780D0, 0.00595D0, 0.00443D0, 0.00330D0, - & 0.00240D0, 0.00168D0, 0.00114D0, 0.00081D0, 0.00053D0, - & 0.00032D0, 0.00022D0, 0.00012D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,27),I=1,49)/ - & 10.00621D0, 7.54783D0, 5.69293D0, 4.82623D0, 4.29189D0, - & 3.91798D0, 2.94832D0, 2.21133D0, 1.86373D0, 1.64761D0, - & 1.49327D0, 1.09257D0, 0.78647D0, 0.64301D0, 0.55451D0, - & 0.49265D0, 0.40930D0, 0.33223D0, 0.25638D0, 0.20876D0, - & 0.14886D0, 0.11122D0, 0.08517D0, 0.06240D0, 0.04650D0, - & 0.03528D0, 0.02702D0, 0.02089D0, 0.01623D0, 0.01267D0, - & 0.00980D0, 0.00752D0, 0.00573D0, 0.00425D0, 0.00316D0, - & 0.00230D0, 0.00159D0, 0.00107D0, 0.00077D0, 0.00050D0, - & 0.00030D0, 0.00020D0, 0.00011D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,28),I=1,49)/ - & 10.80590D0, 8.10435D0, 6.07766D0, 5.13510D0, 4.55568D0, - & 4.15111D0, 3.10583D0, 2.31601D0, 1.94527D0, 1.71546D0, - & 1.55167D0, 1.12822D0, 0.80689D0, 0.65715D0, 0.56511D0, - & 0.50095D0, 0.41476D0, 0.33539D0, 0.25764D0, 0.20907D0, - & 0.14833D0, 0.11039D0, 0.08428D0, 0.06155D0, 0.04576D0, - & 0.03462D0, 0.02647D0, 0.02040D0, 0.01582D0, 0.01230D0, - & 0.00949D0, 0.00726D0, 0.00551D0, 0.00409D0, 0.00302D0, - & 0.00221D0, 0.00152D0, 0.00102D0, 0.00073D0, 0.00048D0, - & 0.00029D0, 0.00019D0, 0.00010D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,29),I=1,49)/ - & 11.65207D0, 8.68978D0, 6.48001D0, 5.45700D0, 4.82993D0, - & 4.39300D0, 3.26826D0, 2.42329D0, 2.02852D0, 1.78454D0, - & 1.61099D0, 1.16415D0, 0.82729D0, 0.67117D0, 0.57557D0, - & 0.50910D0, 0.42008D0, 0.33842D0, 0.25880D0, 0.20930D0, - & 0.14773D0, 0.10953D0, 0.08337D0, 0.06069D0, 0.04500D0, - & 0.03397D0, 0.02591D0, 0.01991D0, 0.01541D0, 0.01194D0, - & 0.00919D0, 0.00702D0, 0.00530D0, 0.00393D0, 0.00290D0, - & 0.00211D0, 0.00145D0, 0.00096D0, 0.00070D0, 0.00045D0, - & 0.00028D0, 0.00018D0, 0.00010D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,30),I=1,49)/ - & 12.52131D0, 9.28774D0, 6.88859D0, 5.78276D0, 5.10678D0, - & 4.63673D0, 3.43094D0, 2.53005D0, 2.11104D0, 1.85281D0, - & 1.66948D0, 1.19929D0, 0.84705D0, 0.68466D0, 0.58556D0, - & 0.51685D0, 0.42507D0, 0.34121D0, 0.25979D0, 0.20942D0, - & 0.14709D0, 0.10866D0, 0.08245D0, 0.05983D0, 0.04425D0, - & 0.03334D0, 0.02536D0, 0.01943D0, 0.01501D0, 0.01160D0, - & 0.00891D0, 0.00678D0, 0.00511D0, 0.00378D0, 0.00279D0, - & 0.00202D0, 0.00138D0, 0.00091D0, 0.00067D0, 0.00043D0, - & 0.00026D0, 0.00018D0, 0.00010D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,31),I=1,49)/ - & 13.38978D0, 9.88200D0, 7.29246D0, 6.10376D0, 5.37897D0, - & 4.87592D0, 3.58970D0, 2.63365D0, 2.19084D0, 1.91866D0, - & 1.72578D0, 1.23288D0, 0.86578D0, 0.69738D0, 0.59494D0, - & 0.52409D0, 0.42970D0, 0.34375D0, 0.26065D0, 0.20947D0, - & 0.14644D0, 0.10781D0, 0.08158D0, 0.05902D0, 0.04354D0, - & 0.03274D0, 0.02484D0, 0.01899D0, 0.01463D0, 0.01128D0, - & 0.00865D0, 0.00657D0, 0.00493D0, 0.00364D0, 0.00268D0, - & 0.00194D0, 0.00132D0, 0.00087D0, 0.00064D0, 0.00041D0, - & 0.00025D0, 0.00017D0, 0.00009D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,32),I=1,49)/ - & 14.23688D0, 10.45864D0, 7.68231D0, 6.41264D0, 5.64030D0, - & 5.10517D0, 3.74102D0, 2.73180D0, 2.26617D0, 1.98065D0, - & 1.77865D0, 1.26417D0, 0.88305D0, 0.70902D0, 0.60346D0, - & 0.53062D0, 0.43382D0, 0.34595D0, 0.26134D0, 0.20941D0, - & 0.14577D0, 0.10696D0, 0.08072D0, 0.05825D0, 0.04287D0, - & 0.03215D0, 0.02436D0, 0.01857D0, 0.01428D0, 0.01098D0, - & 0.00840D0, 0.00638D0, 0.00476D0, 0.00351D0, 0.00258D0, - & 0.00187D0, 0.00127D0, 0.00083D0, 0.00061D0, 0.00039D0, - & 0.00024D0, 0.00016D0, 0.00009D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,33),I=1,49)/ - & 15.13941D0, 11.07021D0, 8.09390D0, 6.73786D0, 5.91493D0, - & 5.34574D0, 3.89907D0, 2.83385D0, 2.34427D0, 2.04479D0, - & 1.83327D0, 1.29634D0, 0.90070D0, 0.72088D0, 0.61213D0, - & 0.53725D0, 0.43798D0, 0.34817D0, 0.26202D0, 0.20935D0, - & 0.14510D0, 0.10612D0, 0.07988D0, 0.05749D0, 0.04221D0, - & 0.03158D0, 0.02388D0, 0.01816D0, 0.01393D0, 0.01069D0, - & 0.00816D0, 0.00620D0, 0.00459D0, 0.00338D0, 0.00248D0, - & 0.00179D0, 0.00121D0, 0.00080D0, 0.00058D0, 0.00037D0, - & 0.00022D0, 0.00014D0, 0.00008D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,34),I=1,49)/ - & 16.04276D0, 11.67919D0, 8.50158D0, 7.05899D0, 6.18548D0, - & 5.58230D0, 4.05359D0, 2.93300D0, 2.41985D0, 2.10667D0, - & 1.88583D0, 1.32700D0, 0.91732D0, 0.73194D0, 0.62013D0, - & 0.54331D0, 0.44171D0, 0.35007D0, 0.26248D0, 0.20913D0, - & 0.14434D0, 0.10523D0, 0.07901D0, 0.05671D0, 0.04155D0, - & 0.03102D0, 0.02340D0, 0.01777D0, 0.01360D0, 0.01042D0, - & 0.00793D0, 0.00600D0, 0.00446D0, 0.00326D0, 0.00238D0, - & 0.00173D0, 0.00118D0, 0.00076D0, 0.00055D0, 0.00036D0, - & 0.00022D0, 0.00014D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,35),I=1,49)/ - & 16.94849D0, 12.28721D0, 8.90688D0, 7.37746D0, 6.45332D0, - & 5.81617D0, 4.20570D0, 3.03017D0, 2.49373D0, 2.16705D0, - & 1.93704D0, 1.35674D0, 0.93336D0, 0.74257D0, 0.62781D0, - & 0.54911D0, 0.44527D0, 0.35187D0, 0.26291D0, 0.20892D0, - & 0.14363D0, 0.10440D0, 0.07819D0, 0.05599D0, 0.04092D0, - & 0.03050D0, 0.02296D0, 0.01740D0, 0.01329D0, 0.01017D0, - & 0.00772D0, 0.00583D0, 0.00433D0, 0.00315D0, 0.00229D0, - & 0.00167D0, 0.00114D0, 0.00073D0, 0.00053D0, 0.00035D0, - & 0.00021D0, 0.00013D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,36),I=1,49)/ - & 17.83243D0, 12.87802D0, 9.29900D0, 7.68475D0, 6.71127D0, - & 6.04107D0, 4.35129D0, 3.12272D0, 2.56388D0, 2.22424D0, - & 1.98545D0, 1.38466D0, 0.94830D0, 0.75241D0, 0.63488D0, - & 0.55441D0, 0.44848D0, 0.35346D0, 0.26323D0, 0.20867D0, - & 0.14292D0, 0.10358D0, 0.07741D0, 0.05529D0, 0.04033D0, - & 0.03000D0, 0.02255D0, 0.01705D0, 0.01300D0, 0.00993D0, - & 0.00753D0, 0.00566D0, 0.00421D0, 0.00306D0, 0.00221D0, - & 0.00161D0, 0.00110D0, 0.00071D0, 0.00051D0, 0.00034D0, - & 0.00020D0, 0.00013D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,37),I=1,49)/ - & 18.74867D0, 13.48785D0, 9.70200D0, 7.99976D0, 6.97522D0, - & 6.27087D0, 4.49936D0, 3.21639D0, 2.63465D0, 2.28182D0, - & 2.03408D0, 1.41252D0, 0.96307D0, 0.76207D0, 0.64176D0, - & 0.55956D0, 0.45155D0, 0.35492D0, 0.26347D0, 0.20834D0, - & 0.14216D0, 0.10274D0, 0.07660D0, 0.05459D0, 0.03974D0, - & 0.02950D0, 0.02213D0, 0.01670D0, 0.01272D0, 0.00970D0, - & 0.00733D0, 0.00550D0, 0.00408D0, 0.00297D0, 0.00214D0, - & 0.00155D0, 0.00105D0, 0.00068D0, 0.00049D0, 0.00032D0, - & 0.00018D0, 0.00012D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,4,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I, 1),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I, 2),I=1,49)/ - & 0.00003D0, 0.00003D0, 0.00002D0, 0.00002D0, 0.00002D0, - & 0.00002D0, 0.00002D0, 0.00002D0, 0.00002D0, 0.00002D0, - & 0.00002D0, 0.00002D0, 0.00002D0, 0.00002D0, 0.00002D0, - & 0.00002D0, 0.00002D0, 0.00001D0, 0.00001D0, 0.00001D0, - & 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, - & 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, - & 0.00001D0, 0.00001D0, 0.00001D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I, 3),I=1,49)/ - & 0.03227D0, 0.02900D0, 0.02605D0, 0.02445D0, 0.02338D0, - & 0.02257D0, 0.02019D0, 0.01798D0, 0.01674D0, 0.01586D0, - & 0.01516D0, 0.01302D0, 0.01084D0, 0.00956D0, 0.00865D0, - & 0.00795D0, 0.00692D0, 0.00587D0, 0.00477D0, 0.00405D0, - & 0.00317D0, 0.00263D0, 0.00225D0, 0.00190D0, 0.00163D0, - & 0.00139D0, 0.00119D0, 0.00101D0, 0.00085D0, 0.00072D0, - & 0.00059D0, 0.00048D0, 0.00039D0, 0.00031D0, 0.00025D0, - & 0.00019D0, 0.00015D0, 0.00011D0, 0.00008D0, 0.00006D0, - & 0.00004D0, 0.00003D0, 0.00002D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I, 4),I=1,49)/ - & 0.08412D0, 0.07493D0, 0.06672D0, 0.06231D0, 0.05935D0, - & 0.05713D0, 0.05068D0, 0.04474D0, 0.04144D0, 0.03913D0, - & 0.03731D0, 0.03177D0, 0.02623D0, 0.02303D0, 0.02077D0, - & 0.01905D0, 0.01652D0, 0.01397D0, 0.01129D0, 0.00957D0, - & 0.00745D0, 0.00615D0, 0.00525D0, 0.00441D0, 0.00375D0, - & 0.00320D0, 0.00272D0, 0.00230D0, 0.00193D0, 0.00161D0, - & 0.00132D0, 0.00108D0, 0.00087D0, 0.00069D0, 0.00054D0, - & 0.00042D0, 0.00032D0, 0.00024D0, 0.00018D0, 0.00013D0, - & 0.00009D0, 0.00006D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I, 5),I=1,49)/ - & 0.14877D0, 0.13082D0, 0.11499D0, 0.10659D0, 0.10097D0, - & 0.09680D0, 0.08477D0, 0.07388D0, 0.06791D0, 0.06379D0, - & 0.06056D0, 0.05091D0, 0.04152D0, 0.03619D0, 0.03249D0, - & 0.02969D0, 0.02561D0, 0.02153D0, 0.01729D0, 0.01459D0, - & 0.01127D0, 0.00925D0, 0.00785D0, 0.00655D0, 0.00553D0, - & 0.00469D0, 0.00396D0, 0.00333D0, 0.00278D0, 0.00231D0, - & 0.00189D0, 0.00153D0, 0.00123D0, 0.00097D0, 0.00076D0, - & 0.00059D0, 0.00045D0, 0.00034D0, 0.00025D0, 0.00018D0, - & 0.00012D0, 0.00009D0, 0.00006D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I, 6),I=1,49)/ - & 0.22202D0, 0.19306D0, 0.16779D0, 0.15452D0, 0.14570D0, - & 0.13918D0, 0.12051D0, 0.10386D0, 0.09484D0, 0.08868D0, - & 0.08388D0, 0.06972D0, 0.05624D0, 0.04872D0, 0.04355D0, - & 0.03966D0, 0.03405D0, 0.02848D0, 0.02274D0, 0.01911D0, - & 0.01466D0, 0.01197D0, 0.01011D0, 0.00838D0, 0.00703D0, - & 0.00592D0, 0.00498D0, 0.00416D0, 0.00346D0, 0.00286D0, - & 0.00233D0, 0.00188D0, 0.00150D0, 0.00118D0, 0.00092D0, - & 0.00071D0, 0.00054D0, 0.00041D0, 0.00030D0, 0.00021D0, - & 0.00015D0, 0.00010D0, 0.00007D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I, 7),I=1,49)/ - & 0.30272D0, 0.26063D0, 0.22430D0, 0.20535D0, 0.19284D0, - & 0.18362D0, 0.15743D0, 0.13433D0, 0.12195D0, 0.11355D0, - & 0.10705D0, 0.08808D0, 0.07034D0, 0.06058D0, 0.05394D0, - & 0.04898D0, 0.04185D0, 0.03485D0, 0.02767D0, 0.02316D0, - & 0.01766D0, 0.01434D0, 0.01204D0, 0.00992D0, 0.00828D0, - & 0.00693D0, 0.00580D0, 0.00482D0, 0.00399D0, 0.00328D0, - & 0.00266D0, 0.00214D0, 0.00170D0, 0.00133D0, 0.00104D0, - & 0.00080D0, 0.00060D0, 0.00045D0, 0.00033D0, 0.00024D0, - & 0.00016D0, 0.00011D0, 0.00007D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I, 8),I=1,49)/ - & 0.40640D0, 0.34641D0, 0.29514D0, 0.26863D0, 0.25121D0, - & 0.23843D0, 0.20237D0, 0.17095D0, 0.15427D0, 0.14303D0, - & 0.13440D0, 0.10944D0, 0.08650D0, 0.07407D0, 0.06568D0, - & 0.05945D0, 0.05056D0, 0.04189D0, 0.03309D0, 0.02757D0, - & 0.02089D0, 0.01686D0, 0.01408D0, 0.01153D0, 0.00956D0, - & 0.00796D0, 0.00662D0, 0.00548D0, 0.00451D0, 0.00369D0, - & 0.00298D0, 0.00239D0, 0.00189D0, 0.00148D0, 0.00114D0, - & 0.00087D0, 0.00066D0, 0.00049D0, 0.00037D0, 0.00026D0, - & 0.00018D0, 0.00012D0, 0.00007D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I, 9),I=1,49)/ - & 0.51210D0, 0.43288D0, 0.36574D0, 0.33126D0, 0.30871D0, - & 0.29222D0, 0.24594D0, 0.20601D0, 0.18499D0, 0.17091D0, - & 0.16014D0, 0.12927D0, 0.10130D0, 0.08631D0, 0.07626D0, - & 0.06885D0, 0.05833D0, 0.04813D0, 0.03783D0, 0.03141D0, - & 0.02366D0, 0.01900D0, 0.01580D0, 0.01287D0, 0.01061D0, - & 0.00880D0, 0.00728D0, 0.00600D0, 0.00491D0, 0.00401D0, - & 0.00322D0, 0.00257D0, 0.00203D0, 0.00158D0, 0.00122D0, - & 0.00093D0, 0.00070D0, 0.00052D0, 0.00039D0, 0.00028D0, - & 0.00018D0, 0.00012D0, 0.00007D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,10),I=1,49)/ - & 0.62615D0, 0.52524D0, 0.44038D0, 0.39709D0, 0.36888D0, - & 0.34831D0, 0.29091D0, 0.24179D0, 0.21613D0, 0.19903D0, - & 0.18601D0, 0.14895D0, 0.11579D0, 0.09820D0, 0.08649D0, - & 0.07789D0, 0.06575D0, 0.05404D0, 0.04228D0, 0.03498D0, - & 0.02621D0, 0.02095D0, 0.01734D0, 0.01405D0, 0.01153D0, - & 0.00952D0, 0.00784D0, 0.00644D0, 0.00525D0, 0.00426D0, - & 0.00342D0, 0.00272D0, 0.00213D0, 0.00166D0, 0.00127D0, - & 0.00097D0, 0.00073D0, 0.00054D0, 0.00040D0, 0.00029D0, - & 0.00019D0, 0.00013D0, 0.00007D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,11),I=1,49)/ - & 0.72756D0, 0.60673D0, 0.50572D0, 0.45443D0, 0.42111D0, - & 0.39687D0, 0.32951D0, 0.27226D0, 0.24251D0, 0.22276D0, - & 0.20777D0, 0.16535D0, 0.12775D0, 0.10795D0, 0.09484D0, - & 0.08524D0, 0.07175D0, 0.05879D0, 0.04583D0, 0.03782D0, - & 0.02821D0, 0.02247D0, 0.01853D0, 0.01496D0, 0.01223D0, - & 0.01005D0, 0.00826D0, 0.00676D0, 0.00549D0, 0.00445D0, - & 0.00355D0, 0.00282D0, 0.00221D0, 0.00171D0, 0.00131D0, - & 0.00099D0, 0.00074D0, 0.00055D0, 0.00041D0, 0.00029D0, - & 0.00019D0, 0.00013D0, 0.00007D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,12),I=1,49)/ - & 0.97596D0, 0.80419D0, 0.66232D0, 0.59100D0, 0.54494D0, - & 0.51159D0, 0.41968D0, 0.34257D0, 0.30297D0, 0.27688D0, - & 0.25720D0, 0.20210D0, 0.15417D0, 0.12932D0, 0.11303D0, - & 0.10119D0, 0.08465D0, 0.06892D0, 0.05333D0, 0.04376D0, - & 0.03235D0, 0.02557D0, 0.02094D0, 0.01675D0, 0.01359D0, - & 0.01109D0, 0.00904D0, 0.00734D0, 0.00594D0, 0.00477D0, - & 0.00379D0, 0.00299D0, 0.00233D0, 0.00179D0, 0.00137D0, - & 0.00103D0, 0.00077D0, 0.00057D0, 0.00042D0, 0.00030D0, - & 0.00019D0, 0.00013D0, 0.00007D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,13),I=1,49)/ - & 1.22977D0, 1.00344D0, 0.81836D0, 0.72605D0, 0.66675D0, - & 0.62396D0, 0.50684D0, 0.40963D0, 0.36016D0, 0.32776D0, - & 0.30345D0, 0.23597D0, 0.17813D0, 0.14851D0, 0.12924D0, - & 0.11531D0, 0.09599D0, 0.07773D0, 0.05977D0, 0.04882D0, - & 0.03581D0, 0.02811D0, 0.02289D0, 0.01818D0, 0.01465D0, - & 0.01187D0, 0.00963D0, 0.00777D0, 0.00625D0, 0.00500D0, - & 0.00395D0, 0.00310D0, 0.00241D0, 0.00185D0, 0.00140D0, - & 0.00105D0, 0.00078D0, 0.00058D0, 0.00043D0, 0.00031D0, - & 0.00019D0, 0.00013D0, 0.00007D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,14),I=1,49)/ - & 1.55816D0, 1.25825D0, 1.01555D0, 0.89552D0, 0.81883D0, - & 0.76371D0, 0.61389D0, 0.49095D0, 0.42897D0, 0.38864D0, - & 0.35854D0, 0.27572D0, 0.20581D0, 0.17047D0, 0.14766D0, - & 0.13128D0, 0.10869D0, 0.08751D0, 0.06683D0, 0.05430D0, - & 0.03950D0, 0.03078D0, 0.02489D0, 0.01962D0, 0.01569D0, - & 0.01264D0, 0.01018D0, 0.00817D0, 0.00653D0, 0.00519D0, - & 0.00408D0, 0.00319D0, 0.00246D0, 0.00188D0, 0.00142D0, - & 0.00106D0, 0.00078D0, 0.00058D0, 0.00043D0, 0.00031D0, - & 0.00019D0, 0.00012D0, 0.00007D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,15),I=1,49)/ - & 1.94525D0, 1.55494D0, 1.24230D0, 1.08896D0, 0.99149D0, - & 0.92172D0, 0.73335D0, 0.58046D0, 0.50409D0, 0.45471D0, - & 0.41801D0, 0.31797D0, 0.23473D0, 0.19316D0, 0.16655D0, - & 0.14754D0, 0.12149D0, 0.09725D0, 0.07376D0, 0.05961D0, - & 0.04299D0, 0.03326D0, 0.02672D0, 0.02089D0, 0.01659D0, - & 0.01327D0, 0.01061D0, 0.00847D0, 0.00673D0, 0.00532D0, - & 0.00416D0, 0.00323D0, 0.00248D0, 0.00188D0, 0.00142D0, - & 0.00105D0, 0.00077D0, 0.00057D0, 0.00042D0, 0.00031D0, - & 0.00019D0, 0.00012D0, 0.00007D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,16),I=1,49)/ - & 2.34531D0, 1.85826D0, 1.47159D0, 1.28330D0, 1.16416D0, - & 1.07915D0, 0.85101D0, 0.66758D0, 0.57668D0, 0.51821D0, - & 0.47495D0, 0.35786D0, 0.26164D0, 0.21408D0, 0.18385D0, - & 0.16236D0, 0.13305D0, 0.10596D0, 0.07987D0, 0.06425D0, - & 0.04599D0, 0.03535D0, 0.02822D0, 0.02192D0, 0.01729D0, - & 0.01375D0, 0.01093D0, 0.00867D0, 0.00685D0, 0.00540D0, - & 0.00420D0, 0.00325D0, 0.00248D0, 0.00188D0, 0.00141D0, - & 0.00104D0, 0.00076D0, 0.00056D0, 0.00041D0, 0.00030D0, - & 0.00018D0, 0.00011D0, 0.00006D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,17),I=1,49)/ - & 2.80142D0, 2.20072D0, 1.72790D0, 1.49927D0, 1.35523D0, - & 1.25280D0, 0.97945D0, 0.76167D0, 0.65458D0, 0.58603D0, - & 0.53553D0, 0.39978D0, 0.28955D0, 0.23561D0, 0.20153D0, - & 0.17743D0, 0.14473D0, 0.11467D0, 0.08591D0, 0.06880D0, - & 0.04888D0, 0.03733D0, 0.02963D0, 0.02285D0, 0.01791D0, - & 0.01415D0, 0.01119D0, 0.00883D0, 0.00694D0, 0.00544D0, - & 0.00421D0, 0.00324D0, 0.00247D0, 0.00186D0, 0.00139D0, - & 0.00102D0, 0.00075D0, 0.00055D0, 0.00040D0, 0.00029D0, - & 0.00018D0, 0.00011D0, 0.00006D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,18),I=1,49)/ - & 3.21652D0, 2.50960D0, 1.95700D0, 1.69126D0, 1.52443D0, - & 1.40610D0, 1.09176D0, 0.84313D0, 0.72161D0, 0.64414D0, - & 0.58724D0, 0.43516D0, 0.31280D0, 0.25339D0, 0.21606D0, - & 0.18974D0, 0.15419D0, 0.12166D0, 0.09071D0, 0.07236D0, - & 0.05109D0, 0.03882D0, 0.03067D0, 0.02352D0, 0.01834D0, - & 0.01442D0, 0.01135D0, 0.00892D0, 0.00699D0, 0.00545D0, - & 0.00421D0, 0.00322D0, 0.00245D0, 0.00184D0, 0.00137D0, - & 0.00100D0, 0.00073D0, 0.00053D0, 0.00039D0, 0.00029D0, - & 0.00017D0, 0.00010D0, 0.00006D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,19),I=1,49)/ - & 3.76652D0, 2.91536D0, 2.25532D0, 1.93997D0, 1.74280D0, - & 1.60338D0, 1.23496D0, 0.94601D0, 0.80577D0, 0.71678D0, - & 0.65167D0, 0.47873D0, 0.34109D0, 0.27487D0, 0.23349D0, - & 0.20445D0, 0.16541D0, 0.12988D0, 0.09628D0, 0.07646D0, - & 0.05359D0, 0.04046D0, 0.03178D0, 0.02422D0, 0.01877D0, - & 0.01467D0, 0.01149D0, 0.00898D0, 0.00700D0, 0.00543D0, - & 0.00418D0, 0.00319D0, 0.00241D0, 0.00180D0, 0.00134D0, - & 0.00098D0, 0.00071D0, 0.00052D0, 0.00038D0, 0.00028D0, - & 0.00017D0, 0.00010D0, 0.00006D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,20),I=1,49)/ - & 4.30575D0, 3.30993D0, 2.54302D0, 2.17866D0, 1.95165D0, - & 1.79153D0, 1.37036D0, 1.04242D0, 0.88422D0, 0.78423D0, - & 0.71130D0, 0.51866D0, 0.36673D0, 0.29419D0, 0.24910D0, - & 0.21757D0, 0.17534D0, 0.13711D0, 0.10112D0, 0.07999D0, - & 0.05571D0, 0.04184D0, 0.03270D0, 0.02477D0, 0.01909D0, - & 0.01486D0, 0.01158D0, 0.00901D0, 0.00699D0, 0.00541D0, - & 0.00414D0, 0.00315D0, 0.00237D0, 0.00177D0, 0.00131D0, - & 0.00095D0, 0.00069D0, 0.00050D0, 0.00037D0, 0.00027D0, - & 0.00016D0, 0.00009D0, 0.00005D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,21),I=1,49)/ - & 4.82956D0, 3.69021D0, 2.81808D0, 2.40576D0, 2.14966D0, - & 1.96944D0, 1.49728D0, 1.13198D0, 0.95669D0, 0.84628D0, - & 0.76597D0, 0.55486D0, 0.38968D0, 0.31136D0, 0.26288D0, - & 0.22909D0, 0.18399D0, 0.14333D0, 0.10523D0, 0.08295D0, - & 0.05744D0, 0.04293D0, 0.03340D0, 0.02518D0, 0.01931D0, - & 0.01496D0, 0.01161D0, 0.00900D0, 0.00696D0, 0.00536D0, - & 0.00409D0, 0.00310D0, 0.00233D0, 0.00173D0, 0.00128D0, - & 0.00093D0, 0.00067D0, 0.00049D0, 0.00036D0, 0.00027D0, - & 0.00015D0, 0.00009D0, 0.00005D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,22),I=1,49)/ - & 5.55546D0, 4.21326D0, 3.19353D0, 2.71436D0, 2.41786D0, - & 2.20981D0, 1.66741D0, 1.25104D0, 1.05255D0, 0.92807D0, - & 0.83783D0, 0.60198D0, 0.41926D0, 0.33333D0, 0.28043D0, - & 0.24370D0, 0.19489D0, 0.15111D0, 0.11032D0, 0.08657D0, - & 0.05953D0, 0.04421D0, 0.03422D0, 0.02563D0, 0.01955D0, - & 0.01506D0, 0.01163D0, 0.00897D0, 0.00690D0, 0.00529D0, - & 0.00403D0, 0.00304D0, 0.00227D0, 0.00168D0, 0.00124D0, - & 0.00090D0, 0.00064D0, 0.00047D0, 0.00035D0, 0.00026D0, - & 0.00015D0, 0.00008D0, 0.00005D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,23),I=1,49)/ - & 6.30033D0, 4.74567D0, 3.57260D0, 3.02443D0, 2.68642D0, - & 2.44984D0, 1.83585D0, 1.36787D0, 1.14612D0, 1.00758D0, - & 0.90746D0, 0.64718D0, 0.44730D0, 0.35401D0, 0.29686D0, - & 0.25731D0, 0.20497D0, 0.15824D0, 0.11492D0, 0.08982D0, - & 0.06136D0, 0.04532D0, 0.03489D0, 0.02598D0, 0.01971D0, - & 0.01511D0, 0.01161D0, 0.00892D0, 0.00683D0, 0.00522D0, - & 0.00395D0, 0.00297D0, 0.00222D0, 0.00163D0, 0.00120D0, - & 0.00087D0, 0.00062D0, 0.00045D0, 0.00034D0, 0.00025D0, - & 0.00014D0, 0.00008D0, 0.00005D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,24),I=1,49)/ - & 7.03684D0, 5.26796D0, 3.94145D0, 3.32468D0, 2.94556D0, - & 2.68082D0, 1.99651D0, 1.47829D0, 1.23404D0, 1.08198D0, - & 0.97239D0, 0.68884D0, 0.47281D0, 0.37266D0, 0.31157D0, - & 0.26944D0, 0.21386D0, 0.16445D0, 0.11886D0, 0.09256D0, - & 0.06285D0, 0.04618D0, 0.03539D0, 0.02621D0, 0.01979D0, - & 0.01510D0, 0.01155D0, 0.00884D0, 0.00675D0, 0.00513D0, - & 0.00387D0, 0.00290D0, 0.00216D0, 0.00159D0, 0.00116D0, - & 0.00084D0, 0.00060D0, 0.00044D0, 0.00033D0, 0.00024D0, - & 0.00014D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,25),I=1,49)/ - & 7.83575D0, 5.83079D0, 4.33631D0, 3.64485D0, 3.22112D0, - & 2.92590D0, 2.16582D0, 1.59383D0, 1.32566D0, 1.15927D0, - & 1.03966D0, 0.73165D0, 0.49881D0, 0.39156D0, 0.32642D0, - & 0.28163D0, 0.22275D0, 0.17063D0, 0.12274D0, 0.09523D0, - & 0.06428D0, 0.04699D0, 0.03585D0, 0.02642D0, 0.01984D0, - & 0.01507D0, 0.01148D0, 0.00875D0, 0.00665D0, 0.00505D0, - & 0.00380D0, 0.00284D0, 0.00210D0, 0.00154D0, 0.00112D0, - & 0.00081D0, 0.00058D0, 0.00042D0, 0.00031D0, 0.00024D0, - & 0.00014D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,26),I=1,49)/ - & 8.65815D0, 6.40607D0, 4.73699D0, 3.96832D0, 3.49865D0, - & 3.17213D0, 2.33459D0, 1.70806D0, 1.41577D0, 1.23500D0, - & 1.10538D0, 0.77305D0, 0.52365D0, 0.40947D0, 0.34040D0, - & 0.29306D0, 0.23101D0, 0.17630D0, 0.12625D0, 0.09761D0, - & 0.06550D0, 0.04766D0, 0.03620D0, 0.02654D0, 0.01984D0, - & 0.01501D0, 0.01139D0, 0.00864D0, 0.00655D0, 0.00495D0, - & 0.00371D0, 0.00276D0, 0.00204D0, 0.00149D0, 0.00108D0, - & 0.00078D0, 0.00056D0, 0.00041D0, 0.00030D0, 0.00023D0, - & 0.00014D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,27),I=1,49)/ - & 9.48773D0, 6.98283D0, 5.13620D0, 4.28942D0, 3.77342D0, - & 3.41540D0, 2.50025D0, 1.81942D0, 1.50325D0, 1.30829D0, - & 1.16884D0, 0.81270D0, 0.54722D0, 0.42638D0, 0.35354D0, - & 0.30375D0, 0.23869D0, 0.18153D0, 0.12945D0, 0.09975D0, - & 0.06658D0, 0.04823D0, 0.03648D0, 0.02662D0, 0.01982D0, - & 0.01493D0, 0.01129D0, 0.00853D0, 0.00645D0, 0.00486D0, - & 0.00363D0, 0.00270D0, 0.00199D0, 0.00145D0, 0.00105D0, - & 0.00075D0, 0.00054D0, 0.00039D0, 0.00030D0, 0.00022D0, - & 0.00014D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,28),I=1,49)/ - & 10.30763D0, 7.54945D0, 5.52601D0, 4.60181D0, 4.04004D0, - & 3.65097D0, 2.65960D0, 1.92581D0, 1.58647D0, 1.37780D0, - & 1.22885D0, 0.84989D0, 0.56911D0, 0.44198D0, 0.36560D0, - & 0.31352D0, 0.24565D0, 0.18623D0, 0.13228D0, 0.10162D0, - & 0.06750D0, 0.04868D0, 0.03669D0, 0.02666D0, 0.01976D0, - & 0.01484D0, 0.01118D0, 0.00842D0, 0.00635D0, 0.00477D0, - & 0.00355D0, 0.00263D0, 0.00193D0, 0.00141D0, 0.00102D0, - & 0.00073D0, 0.00052D0, 0.00038D0, 0.00029D0, 0.00022D0, - & 0.00014D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,29),I=1,49)/ - & 11.17527D0, 8.14579D0, 5.93397D0, 4.92768D0, 4.31749D0, - & 3.89565D0, 2.82415D0, 2.03499D0, 1.67156D0, 1.44867D0, - & 1.28991D0, 0.88743D0, 0.59103D0, 0.45751D0, 0.37756D0, - & 0.32318D0, 0.25249D0, 0.19081D0, 0.13501D0, 0.10341D0, - & 0.06835D0, 0.04909D0, 0.03686D0, 0.02667D0, 0.01969D0, - & 0.01473D0, 0.01106D0, 0.00831D0, 0.00624D0, 0.00467D0, - & 0.00347D0, 0.00257D0, 0.00188D0, 0.00136D0, 0.00099D0, - & 0.00070D0, 0.00050D0, 0.00037D0, 0.00028D0, 0.00021D0, - & 0.00014D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,30),I=1,49)/ - & 12.06456D0, 8.75358D0, 6.34740D0, 5.25678D0, 4.59701D0, - & 4.14168D0, 2.98858D0, 2.14338D0, 1.75569D0, 1.51853D0, - & 1.34994D0, 0.92405D0, 0.61221D0, 0.47241D0, 0.38898D0, - & 0.33235D0, 0.25894D0, 0.19508D0, 0.13752D0, 0.10502D0, - & 0.06908D0, 0.04942D0, 0.03697D0, 0.02664D0, 0.01960D0, - & 0.01461D0, 0.01093D0, 0.00819D0, 0.00613D0, 0.00458D0, - & 0.00339D0, 0.00250D0, 0.00183D0, 0.00132D0, 0.00095D0, - & 0.00068D0, 0.00049D0, 0.00036D0, 0.00027D0, 0.00021D0, - & 0.00014D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,31),I=1,49)/ - & 12.95374D0, 9.35831D0, 6.75669D0, 5.58162D0, 4.87232D0, - & 4.38360D0, 3.14942D0, 2.24882D0, 1.83726D0, 1.58610D0, - & 1.40790D0, 0.95916D0, 0.63237D0, 0.48653D0, 0.39975D0, - & 0.34099D0, 0.26498D0, 0.19905D0, 0.13983D0, 0.10648D0, - & 0.06974D0, 0.04970D0, 0.03705D0, 0.02660D0, 0.01950D0, - & 0.01449D0, 0.01081D0, 0.00807D0, 0.00603D0, 0.00449D0, - & 0.00332D0, 0.00244D0, 0.00178D0, 0.00129D0, 0.00093D0, - & 0.00066D0, 0.00047D0, 0.00035D0, 0.00026D0, 0.00020D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,32),I=1,49)/ - & 13.81822D0, 9.94319D0, 7.15042D0, 5.89310D0, 5.13569D0, - & 4.61461D0, 3.30209D0, 2.34827D0, 1.91389D0, 1.64940D0, - & 1.46205D0, 0.99170D0, 0.65086D0, 0.49940D0, 0.40952D0, - & 0.34877D0, 0.27037D0, 0.20256D0, 0.14182D0, 0.10773D0, - & 0.07026D0, 0.04989D0, 0.03708D0, 0.02652D0, 0.01938D0, - & 0.01436D0, 0.01068D0, 0.00795D0, 0.00592D0, 0.00440D0, - & 0.00325D0, 0.00238D0, 0.00174D0, 0.00125D0, 0.00090D0, - & 0.00064D0, 0.00046D0, 0.00034D0, 0.00026D0, 0.00020D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,33),I=1,49)/ - & 14.74174D0, 10.56553D0, 7.56770D0, 6.22245D0, 5.41371D0, - & 4.85814D0, 3.46239D0, 2.45228D0, 1.99384D0, 1.71531D0, - & 1.51837D0, 1.02539D0, 0.66993D0, 0.51263D0, 0.41953D0, - & 0.35674D0, 0.27589D0, 0.20614D0, 0.14386D0, 0.10899D0, - & 0.07078D0, 0.05009D0, 0.03711D0, 0.02645D0, 0.01927D0, - & 0.01422D0, 0.01055D0, 0.00784D0, 0.00582D0, 0.00432D0, - & 0.00318D0, 0.00233D0, 0.00169D0, 0.00122D0, 0.00087D0, - & 0.00062D0, 0.00044D0, 0.00033D0, 0.00025D0, 0.00020D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,34),I=1,49)/ - & 15.66159D0, 11.18202D0, 7.97872D0, 6.54573D0, 5.68591D0, - & 5.09611D0, 3.61802D0, 2.55254D0, 2.07056D0, 1.77835D0, - & 1.57208D0, 1.05721D0, 0.68771D0, 0.52486D0, 0.42872D0, - & 0.36401D0, 0.28085D0, 0.20931D0, 0.14560D0, 0.11004D0, - & 0.07117D0, 0.05019D0, 0.03707D0, 0.02633D0, 0.01912D0, - & 0.01408D0, 0.01041D0, 0.00771D0, 0.00572D0, 0.00423D0, - & 0.00311D0, 0.00227D0, 0.00165D0, 0.00118D0, 0.00085D0, - & 0.00060D0, 0.00043D0, 0.00032D0, 0.00025D0, 0.00020D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,35),I=1,49)/ - & 16.58568D0, 11.79905D0, 8.38856D0, 6.86738D0, 5.95633D0, - & 5.33223D0, 3.77185D0, 2.65127D0, 2.14594D0, 1.84019D0, - & 1.62469D0, 1.08825D0, 0.70498D0, 0.53670D0, 0.43761D0, - & 0.37103D0, 0.28563D0, 0.21235D0, 0.14727D0, 0.11103D0, - & 0.07154D0, 0.05029D0, 0.03704D0, 0.02622D0, 0.01898D0, - & 0.01394D0, 0.01028D0, 0.00760D0, 0.00562D0, 0.00415D0, - & 0.00304D0, 0.00222D0, 0.00161D0, 0.00115D0, 0.00082D0, - & 0.00058D0, 0.00042D0, 0.00031D0, 0.00024D0, 0.00019D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,36),I=1,49)/ - & 17.48656D0, 12.39804D0, 8.78469D0, 7.17746D0, 6.21652D0, - & 5.55909D0, 3.91895D0, 2.74520D0, 2.21743D0, 1.89869D0, - & 1.67437D0, 1.11736D0, 0.72106D0, 0.54767D0, 0.44580D0, - & 0.37747D0, 0.28999D0, 0.21509D0, 0.14875D0, 0.11190D0, - & 0.07184D0, 0.05035D0, 0.03698D0, 0.02610D0, 0.01884D0, - & 0.01380D0, 0.01016D0, 0.00749D0, 0.00553D0, 0.00407D0, - & 0.00298D0, 0.00217D0, 0.00157D0, 0.00112D0, 0.00080D0, - & 0.00057D0, 0.00041D0, 0.00031D0, 0.00024D0, 0.00019D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,37),I=1,49)/ - & 18.41889D0, 13.01534D0, 9.19117D0, 7.49481D0, 6.48233D0, - & 5.79049D0, 4.06828D0, 2.84006D0, 2.28940D0, 1.95745D0, - & 1.72416D0, 1.14634D0, 0.73693D0, 0.55843D0, 0.45379D0, - & 0.38373D0, 0.29419D0, 0.21770D0, 0.15013D0, 0.11269D0, - & 0.07209D0, 0.05037D0, 0.03690D0, 0.02596D0, 0.01869D0, - & 0.01365D0, 0.01003D0, 0.00738D0, 0.00543D0, 0.00399D0, - & 0.00291D0, 0.00212D0, 0.00153D0, 0.00109D0, 0.00078D0, - & 0.00055D0, 0.00040D0, 0.00030D0, 0.00023D0, 0.00019D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,5,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I, 1),I=1,49)/ - & 0.44989D0, 0.39539D0, 0.34747D0, 0.32216D0, 0.30531D0, - & 0.29285D0, 0.25722D0, 0.22578D0, 0.20909D0, 0.19792D0, - & 0.18955D0, 0.16547D0, 0.14378D0, 0.13212D0, 0.12429D0, - & 0.11845D0, 0.11003D0, 0.10150D0, 0.09208D0, 0.08532D0, - & 0.07497D0, 0.06641D0, 0.05872D0, 0.04993D0, 0.04200D0, - & 0.03492D0, 0.02867D0, 0.02327D0, 0.01867D0, 0.01463D0, - & 0.01149D0, 0.00885D0, 0.00675D0, 0.00511D0, 0.00375D0, - & 0.00275D0, 0.00200D0, 0.00140D0, 0.00092D0, 0.00067D0, - & 0.00045D0, 0.00028D0, 0.00020D0, 0.00007D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I, 2),I=1,49)/ - & 0.46639D0, 0.41136D0, 0.36279D0, 0.33706D0, 0.31990D0, - & 0.30719D0, 0.27073D0, 0.23840D0, 0.22115D0, 0.20956D0, - & 0.20084D0, 0.17557D0, 0.15249D0, 0.13993D0, 0.13142D0, - & 0.12504D0, 0.11578D0, 0.10635D0, 0.09591D0, 0.08845D0, - & 0.07719D0, 0.06805D0, 0.05996D0, 0.05084D0, 0.04269D0, - & 0.03544D0, 0.02909D0, 0.02361D0, 0.01895D0, 0.01488D0, - & 0.01169D0, 0.00902D0, 0.00689D0, 0.00524D0, 0.00385D0, - & 0.00283D0, 0.00206D0, 0.00146D0, 0.00096D0, 0.00071D0, - & 0.00048D0, 0.00029D0, 0.00022D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I, 3),I=1,49)/ - & 0.50684D0, 0.44821D0, 0.39632D0, 0.36876D0, 0.35036D0, - & 0.33670D0, 0.29743D0, 0.26242D0, 0.24363D0, 0.23094D0, - & 0.22132D0, 0.19327D0, 0.16725D0, 0.15293D0, 0.14314D0, - & 0.13576D0, 0.12501D0, 0.11402D0, 0.10188D0, 0.09328D0, - & 0.08055D0, 0.07049D0, 0.06177D0, 0.05212D0, 0.04362D0, - & 0.03613D0, 0.02960D0, 0.02400D0, 0.01926D0, 0.01513D0, - & 0.01189D0, 0.00918D0, 0.00704D0, 0.00535D0, 0.00395D0, - & 0.00290D0, 0.00211D0, 0.00152D0, 0.00101D0, 0.00074D0, - & 0.00051D0, 0.00031D0, 0.00023D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I, 4),I=1,49)/ - & 0.55058D0, 0.48672D0, 0.43021D0, 0.40019D0, 0.38014D0, - & 0.36526D0, 0.32246D0, 0.28426D0, 0.26371D0, 0.24981D0, - & 0.23922D0, 0.20826D0, 0.17939D0, 0.16343D0, 0.15249D0, - & 0.14425D0, 0.13221D0, 0.11993D0, 0.10640D0, 0.09689D0, - & 0.08300D0, 0.07224D0, 0.06305D0, 0.05299D0, 0.04421D0, - & 0.03653D0, 0.02989D0, 0.02420D0, 0.01939D0, 0.01523D0, - & 0.01197D0, 0.00924D0, 0.00709D0, 0.00537D0, 0.00399D0, - & 0.00293D0, 0.00213D0, 0.00154D0, 0.00102D0, 0.00074D0, - & 0.00053D0, 0.00032D0, 0.00024D0, 0.00009D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I, 5),I=1,49)/ - & 0.61607D0, 0.54291D0, 0.47835D0, 0.44415D0, 0.42133D0, - & 0.40441D0, 0.35583D0, 0.31254D0, 0.28927D0, 0.27353D0, - & 0.26150D0, 0.22639D0, 0.19363D0, 0.17555D0, 0.16316D0, - & 0.15384D0, 0.14026D0, 0.12643D0, 0.11130D0, 0.10077D0, - & 0.08558D0, 0.07403D0, 0.06431D0, 0.05381D0, 0.04474D0, - & 0.03686D0, 0.03008D0, 0.02432D0, 0.01945D0, 0.01528D0, - & 0.01199D0, 0.00925D0, 0.00709D0, 0.00537D0, 0.00398D0, - & 0.00293D0, 0.00214D0, 0.00154D0, 0.00103D0, 0.00074D0, - & 0.00052D0, 0.00032D0, 0.00024D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I, 6),I=1,49)/ - & 0.68336D0, 0.60005D0, 0.52679D0, 0.48807D0, 0.46228D0, - & 0.44318D0, 0.38846D0, 0.33984D0, 0.31375D0, 0.29611D0, - & 0.28263D0, 0.24332D0, 0.20674D0, 0.18660D0, 0.17283D0, - & 0.16249D0, 0.14745D0, 0.13219D0, 0.11560D0, 0.10414D0, - & 0.08779D0, 0.07555D0, 0.06535D0, 0.05447D0, 0.04515D0, - & 0.03709D0, 0.03021D0, 0.02439D0, 0.01946D0, 0.01528D0, - & 0.01197D0, 0.00923D0, 0.00707D0, 0.00536D0, 0.00396D0, - & 0.00291D0, 0.00213D0, 0.00154D0, 0.00103D0, 0.00073D0, - & 0.00051D0, 0.00032D0, 0.00023D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I, 7),I=1,49)/ - & 0.76355D0, 0.66723D0, 0.58292D0, 0.53852D0, 0.50902D0, - & 0.48721D0, 0.42490D0, 0.36978D0, 0.34030D0, 0.32042D0, - & 0.30522D0, 0.26107D0, 0.22021D0, 0.19782D0, 0.18257D0, - & 0.17114D0, 0.15457D0, 0.13784D0, 0.11976D0, 0.10736D0, - & 0.08987D0, 0.07693D0, 0.06629D0, 0.05503D0, 0.04547D0, - & 0.03726D0, 0.03027D0, 0.02439D0, 0.01942D0, 0.01523D0, - & 0.01190D0, 0.00918D0, 0.00701D0, 0.00533D0, 0.00392D0, - & 0.00287D0, 0.00209D0, 0.00153D0, 0.00101D0, 0.00073D0, - & 0.00050D0, 0.00032D0, 0.00022D0, 0.00007D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I, 8),I=1,49)/ - & 0.86343D0, 0.75010D0, 0.65144D0, 0.59973D0, 0.56547D0, - & 0.54018D0, 0.46822D0, 0.40492D0, 0.37123D0, 0.34856D0, - & 0.33127D0, 0.28125D0, 0.23529D0, 0.21028D0, 0.19331D0, - & 0.18063D0, 0.16233D0, 0.14394D0, 0.12420D0, 0.11077D0, - & 0.09202D0, 0.07835D0, 0.06722D0, 0.05555D0, 0.04575D0, - & 0.03737D0, 0.03028D0, 0.02434D0, 0.01934D0, 0.01514D0, - & 0.01181D0, 0.00909D0, 0.00694D0, 0.00526D0, 0.00387D0, - & 0.00282D0, 0.00206D0, 0.00150D0, 0.00100D0, 0.00072D0, - & 0.00049D0, 0.00031D0, 0.00021D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I, 9),I=1,49)/ - & 0.96361D0, 0.83251D0, 0.71897D0, 0.65971D0, 0.62055D0, - & 0.59171D0, 0.50993D0, 0.43838D0, 0.40047D0, 0.37504D0, - & 0.35567D0, 0.29991D0, 0.24906D0, 0.22156D0, 0.20298D0, - & 0.18914D0, 0.16924D0, 0.14933D0, 0.12809D0, 0.11373D0, - & 0.09387D0, 0.07954D0, 0.06798D0, 0.05596D0, 0.04595D0, - & 0.03743D0, 0.03026D0, 0.02427D0, 0.01926D0, 0.01505D0, - & 0.01172D0, 0.00900D0, 0.00687D0, 0.00519D0, 0.00383D0, - & 0.00278D0, 0.00203D0, 0.00148D0, 0.00098D0, 0.00071D0, - & 0.00048D0, 0.00031D0, 0.00021D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,10),I=1,49)/ - & 1.07479D0, 0.92315D0, 0.79255D0, 0.72469D0, 0.67997D0, - & 0.64711D0, 0.55427D0, 0.47353D0, 0.43097D0, 0.40251D0, - & 0.38089D0, 0.31894D0, 0.26290D0, 0.23280D0, 0.21256D0, - & 0.19753D0, 0.17599D0, 0.15455D0, 0.13181D0, 0.11654D0, - & 0.09559D0, 0.08062D0, 0.06865D0, 0.05629D0, 0.04608D0, - & 0.03743D0, 0.03019D0, 0.02416D0, 0.01913D0, 0.01493D0, - & 0.01161D0, 0.00890D0, 0.00677D0, 0.00511D0, 0.00377D0, - & 0.00274D0, 0.00200D0, 0.00145D0, 0.00096D0, 0.00068D0, - & 0.00046D0, 0.00030D0, 0.00020D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,11),I=1,49)/ - & 1.17232D0, 1.00213D0, 0.85623D0, 0.78069D0, 0.73104D0, - & 0.69461D0, 0.59200D0, 0.50321D0, 0.45658D0, 0.42550D0, - & 0.40194D0, 0.33467D0, 0.27424D0, 0.24195D0, 0.22032D0, - & 0.20431D0, 0.18142D0, 0.15872D0, 0.13477D0, 0.11875D0, - & 0.09692D0, 0.08144D0, 0.06915D0, 0.05653D0, 0.04615D0, - & 0.03741D0, 0.03011D0, 0.02406D0, 0.01902D0, 0.01482D0, - & 0.01152D0, 0.00881D0, 0.00669D0, 0.00505D0, 0.00371D0, - & 0.00270D0, 0.00197D0, 0.00143D0, 0.00094D0, 0.00066D0, - & 0.00045D0, 0.00029D0, 0.00020D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,12),I=1,49)/ - & 1.41135D0, 1.19389D0, 1.00931D0, 0.91452D0, 0.85253D0, - & 0.80723D0, 0.68048D0, 0.57199D0, 0.51554D0, 0.47813D0, - & 0.44992D0, 0.37007D0, 0.29939D0, 0.26209D0, 0.23729D0, - & 0.21905D0, 0.19312D0, 0.16764D0, 0.14100D0, 0.12337D0, - & 0.09965D0, 0.08309D0, 0.07010D0, 0.05694D0, 0.04624D0, - & 0.03729D0, 0.02989D0, 0.02378D0, 0.01873D0, 0.01456D0, - & 0.01128D0, 0.00861D0, 0.00651D0, 0.00490D0, 0.00360D0, - & 0.00260D0, 0.00189D0, 0.00137D0, 0.00090D0, 0.00062D0, - & 0.00043D0, 0.00028D0, 0.00019D0, 0.00007D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,13),I=1,49)/ - & 1.65256D0, 1.38522D0, 1.16028D0, 1.04559D0, 0.97092D0, - & 0.91653D0, 0.76529D0, 0.63704D0, 0.57085D0, 0.52722D0, - & 0.49446D0, 0.40243D0, 0.32201D0, 0.28002D0, 0.25230D0, - & 0.23200D0, 0.20332D0, 0.17533D0, 0.14629D0, 0.12724D0, - & 0.10187D0, 0.08438D0, 0.07080D0, 0.05719D0, 0.04622D0, - & 0.03712D0, 0.02965D0, 0.02350D0, 0.01845D0, 0.01430D0, - & 0.01104D0, 0.00841D0, 0.00634D0, 0.00476D0, 0.00349D0, - & 0.00251D0, 0.00182D0, 0.00132D0, 0.00086D0, 0.00060D0, - & 0.00042D0, 0.00026D0, 0.00018D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,14),I=1,49)/ - & 1.96387D0, 1.62942D0, 1.35081D0, 1.20988D0, 1.11860D0, - & 1.05236D0, 0.86939D0, 0.71589D0, 0.63738D0, 0.58593D0, - & 0.54750D0, 0.44041D0, 0.34815D0, 0.30054D0, 0.26935D0, - & 0.24663D0, 0.21473D0, 0.18383D0, 0.15206D0, 0.13140D0, - & 0.10419D0, 0.08567D0, 0.07145D0, 0.05736D0, 0.04609D0, - & 0.03684D0, 0.02930D0, 0.02313D0, 0.01809D0, 0.01398D0, - & 0.01074D0, 0.00816D0, 0.00615D0, 0.00459D0, 0.00334D0, - & 0.00240D0, 0.00174D0, 0.00125D0, 0.00082D0, 0.00057D0, - & 0.00038D0, 0.00024D0, 0.00016D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,15),I=1,49)/ - & 2.33902D0, 1.92024D0, 1.57497D0, 1.40179D0, 1.29021D0, - & 1.20956D0, 0.98833D0, 0.80477D0, 0.71175D0, 0.65116D0, - & 0.60614D0, 0.48174D0, 0.37612D0, 0.32226D0, 0.28724D0, - & 0.26188D0, 0.22649D0, 0.19248D0, 0.15783D0, 0.13549D0, - & 0.10637D0, 0.08680D0, 0.07195D0, 0.05738D0, 0.04585D0, - & 0.03646D0, 0.02886D0, 0.02269D0, 0.01768D0, 0.01360D0, - & 0.01043D0, 0.00789D0, 0.00592D0, 0.00441D0, 0.00321D0, - & 0.00230D0, 0.00166D0, 0.00118D0, 0.00078D0, 0.00054D0, - & 0.00037D0, 0.00022D0, 0.00015D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,16),I=1,49)/ - & 2.72482D0, 2.21608D0, 1.80052D0, 1.59364D0, 1.46096D0, - & 1.36541D0, 1.10490D0, 0.89086D0, 0.78327D0, 0.71357D0, - & 0.66200D0, 0.52058D0, 0.40200D0, 0.34217D0, 0.30354D0, - & 0.27569D0, 0.23704D0, 0.20015D0, 0.16285D0, 0.13900D0, - & 0.10817D0, 0.08767D0, 0.07227D0, 0.05729D0, 0.04554D0, - & 0.03606D0, 0.02842D0, 0.02227D0, 0.01728D0, 0.01326D0, - & 0.01012D0, 0.00763D0, 0.00571D0, 0.00425D0, 0.00307D0, - & 0.00219D0, 0.00158D0, 0.00112D0, 0.00073D0, 0.00051D0, - & 0.00035D0, 0.00021D0, 0.00014D0, 0.00005D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,17),I=1,49)/ - & 3.16184D0, 2.54784D0, 2.05090D0, 1.80533D0, 1.64858D0, - & 1.53608D0, 1.23122D0, 0.98314D0, 0.85944D0, 0.77972D0, - & 0.72099D0, 0.56109D0, 0.42865D0, 0.36249D0, 0.32006D0, - & 0.28962D0, 0.24759D0, 0.20774D0, 0.16775D0, 0.14236D0, - & 0.10984D0, 0.08843D0, 0.07249D0, 0.05712D0, 0.04518D0, - & 0.03560D0, 0.02794D0, 0.02182D0, 0.01686D0, 0.01291D0, - & 0.00980D0, 0.00737D0, 0.00550D0, 0.00408D0, 0.00294D0, - & 0.00209D0, 0.00150D0, 0.00107D0, 0.00069D0, 0.00049D0, - & 0.00034D0, 0.00019D0, 0.00014D0, 0.00005D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,18),I=1,49)/ - & 3.56226D0, 2.84906D0, 2.27616D0, 1.99475D0, 1.81581D0, - & 1.68774D0, 1.34241D0, 1.06358D0, 0.92544D0, 0.83679D0, - & 0.77171D0, 0.59551D0, 0.45100D0, 0.37940D0, 0.33372D0, - & 0.30107D0, 0.25620D0, 0.21386D0, 0.17164D0, 0.14499D0, - & 0.11108D0, 0.08895D0, 0.07258D0, 0.05692D0, 0.04483D0, - & 0.03518D0, 0.02753D0, 0.02142D0, 0.01651D0, 0.01260D0, - & 0.00954D0, 0.00717D0, 0.00532D0, 0.00393D0, 0.00284D0, - & 0.00201D0, 0.00144D0, 0.00103D0, 0.00066D0, 0.00045D0, - & 0.00032D0, 0.00018D0, 0.00013D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,19),I=1,49)/ - & 4.09416D0, 3.24567D0, 2.57011D0, 2.24065D0, 2.03209D0, - & 1.88332D0, 1.48448D0, 1.16540D0, 1.00850D0, 0.90831D0, - & 0.83504D0, 0.63803D0, 0.47827D0, 0.39987D0, 0.35015D0, - & 0.31478D0, 0.26640D0, 0.22104D0, 0.17612D0, 0.14797D0, - & 0.11241D0, 0.08943D0, 0.07259D0, 0.05659D0, 0.04434D0, - & 0.03464D0, 0.02699D0, 0.02092D0, 0.01606D0, 0.01221D0, - & 0.00922D0, 0.00691D0, 0.00511D0, 0.00375D0, 0.00271D0, - & 0.00191D0, 0.00136D0, 0.00097D0, 0.00063D0, 0.00043D0, - & 0.00030D0, 0.00017D0, 0.00012D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,20),I=1,49)/ - & 4.61257D0, 3.62885D0, 2.85161D0, 2.47491D0, 2.23738D0, - & 2.06842D0, 1.61774D0, 1.26001D0, 1.08527D0, 0.97415D0, - & 0.89315D0, 0.67662D0, 0.50274D0, 0.41811D0, 0.36471D0, - & 0.32688D0, 0.27534D0, 0.22728D0, 0.17996D0, 0.15048D0, - & 0.11349D0, 0.08979D0, 0.07253D0, 0.05626D0, 0.04389D0, - & 0.03414D0, 0.02651D0, 0.02047D0, 0.01566D0, 0.01187D0, - & 0.00894D0, 0.00668D0, 0.00493D0, 0.00361D0, 0.00261D0, - & 0.00182D0, 0.00129D0, 0.00093D0, 0.00059D0, 0.00040D0, - & 0.00028D0, 0.00016D0, 0.00011D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,21),I=1,49)/ - & 5.12222D0, 4.00261D0, 3.12404D0, 2.70057D0, 2.43446D0, - & 2.24566D0, 1.74429D0, 1.34911D0, 1.15718D0, 1.03559D0, - & 0.94721D0, 0.71215D0, 0.52500D0, 0.43455D0, 0.37776D0, - & 0.33766D0, 0.28323D0, 0.23271D0, 0.18324D0, 0.15257D0, - & 0.11432D0, 0.08998D0, 0.07237D0, 0.05588D0, 0.04342D0, - & 0.03365D0, 0.02604D0, 0.02004D0, 0.01529D0, 0.01156D0, - & 0.00869D0, 0.00646D0, 0.00477D0, 0.00348D0, 0.00251D0, - & 0.00175D0, 0.00124D0, 0.00088D0, 0.00057D0, 0.00038D0, - & 0.00026D0, 0.00015D0, 0.00010D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,22),I=1,49)/ - & 5.82554D0, 4.51423D0, 3.49391D0, 3.00548D0, 2.69986D0, - & 2.48370D0, 1.91285D0, 1.46678D0, 1.25167D0, 1.11601D0, - & 1.01775D0, 0.75806D0, 0.55345D0, 0.45543D0, 0.39424D0, - & 0.35121D0, 0.29307D0, 0.23942D0, 0.18722D0, 0.15507D0, - & 0.11526D0, 0.09014D0, 0.07211D0, 0.05536D0, 0.04279D0, - & 0.03301D0, 0.02543D0, 0.01950D0, 0.01483D0, 0.01117D0, - & 0.00837D0, 0.00620D0, 0.00456D0, 0.00332D0, 0.00238D0, - & 0.00166D0, 0.00117D0, 0.00083D0, 0.00053D0, 0.00035D0, - & 0.00024D0, 0.00015D0, 0.00010D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,23),I=1,49)/ - & 6.54676D0, 5.03439D0, 3.86673D0, 3.31126D0, 2.96506D0, - & 2.72090D0, 2.07933D0, 1.58195D0, 1.34364D0, 1.19398D0, - & 1.08591D0, 0.80195D0, 0.58033D0, 0.47501D0, 0.40960D0, - & 0.36377D0, 0.30212D0, 0.24551D0, 0.19078D0, 0.15726D0, - & 0.11602D0, 0.09021D0, 0.07181D0, 0.05483D0, 0.04218D0, - & 0.03240D0, 0.02486D0, 0.01900D0, 0.01440D0, 0.01081D0, - & 0.00808D0, 0.00597D0, 0.00437D0, 0.00317D0, 0.00227D0, - & 0.00157D0, 0.00111D0, 0.00080D0, 0.00050D0, 0.00034D0, - & 0.00022D0, 0.00014D0, 0.00009D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,24),I=1,49)/ - & 7.26565D0, 5.54876D0, 4.23247D0, 3.60982D0, 3.22311D0, - & 2.95109D0, 2.23956D0, 1.69183D0, 1.43093D0, 1.26769D0, - & 1.15015D0, 0.84286D0, 0.60508D0, 0.49288D0, 0.42351D0, - & 0.37509D0, 0.31017D0, 0.25086D0, 0.19381D0, 0.15905D0, - & 0.11655D0, 0.09013D0, 0.07142D0, 0.05426D0, 0.04157D0, - & 0.03180D0, 0.02431D0, 0.01852D0, 0.01399D0, 0.01048D0, - & 0.00780D0, 0.00574D0, 0.00419D0, 0.00304D0, 0.00217D0, - & 0.00149D0, 0.00106D0, 0.00075D0, 0.00048D0, 0.00032D0, - & 0.00021D0, 0.00013D0, 0.00009D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,25),I=1,49)/ - & 8.04192D0, 6.10017D0, 4.62168D0, 3.92618D0, 3.49572D0, - & 3.19370D0, 2.40717D0, 1.80591D0, 1.52114D0, 1.34361D0, - & 1.21613D0, 0.88453D0, 0.63003D0, 0.51078D0, 0.43739D0, - & 0.38633D0, 0.31813D0, 0.25609D0, 0.19674D0, 0.16076D0, - & 0.11701D0, 0.09001D0, 0.07101D0, 0.05368D0, 0.04095D0, - & 0.03121D0, 0.02377D0, 0.01805D0, 0.01359D0, 0.01015D0, - & 0.00753D0, 0.00553D0, 0.00402D0, 0.00291D0, 0.00207D0, - & 0.00142D0, 0.00101D0, 0.00071D0, 0.00045D0, 0.00030D0, - & 0.00020D0, 0.00012D0, 0.00008D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,26),I=1,49)/ - & 8.84513D0, 6.66663D0, 5.01863D0, 4.24745D0, 3.77171D0, - & 3.43873D0, 2.57518D0, 1.91937D0, 1.61043D0, 1.41849D0, - & 1.28102D0, 0.92509D0, 0.65405D0, 0.52788D0, 0.45056D0, - & 0.39694D0, 0.32555D0, 0.26091D0, 0.19936D0, 0.16223D0, - & 0.11732D0, 0.08979D0, 0.07053D0, 0.05307D0, 0.04031D0, - & 0.03061D0, 0.02325D0, 0.01759D0, 0.01321D0, 0.00982D0, - & 0.00728D0, 0.00532D0, 0.00387D0, 0.00279D0, 0.00197D0, - & 0.00136D0, 0.00096D0, 0.00067D0, 0.00043D0, 0.00029D0, - & 0.00019D0, 0.00011D0, 0.00007D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,27),I=1,49)/ - & 9.65435D0, 7.23356D0, 5.41328D0, 4.56560D0, 4.04426D0, - & 3.68017D0, 2.73960D0, 2.02962D0, 1.69683D0, 1.49072D0, - & 1.34344D0, 0.96379D0, 0.67674D0, 0.54393D0, 0.46286D0, - & 0.40680D0, 0.33241D0, 0.26531D0, 0.20171D0, 0.16351D0, - & 0.11755D0, 0.08953D0, 0.07005D0, 0.05247D0, 0.03970D0, - & 0.03004D0, 0.02275D0, 0.01715D0, 0.01284D0, 0.00953D0, - & 0.00704D0, 0.00513D0, 0.00373D0, 0.00268D0, 0.00189D0, - & 0.00130D0, 0.00092D0, 0.00064D0, 0.00040D0, 0.00027D0, - & 0.00018D0, 0.00010D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,28),I=1,49)/ - & 10.45602D0, 7.79175D0, 5.79941D0, 4.87575D0, 4.30926D0, - & 3.91444D0, 2.89810D0, 2.13519D0, 1.77921D0, 1.55938D0, - & 1.40263D0, 1.00018D0, 0.69787D0, 0.55877D0, 0.47417D0, - & 0.41582D0, 0.33862D0, 0.26925D0, 0.20376D0, 0.16459D0, - & 0.11767D0, 0.08923D0, 0.06955D0, 0.05189D0, 0.03911D0, - & 0.02950D0, 0.02227D0, 0.01675D0, 0.01249D0, 0.00926D0, - & 0.00681D0, 0.00496D0, 0.00359D0, 0.00258D0, 0.00181D0, - & 0.00125D0, 0.00088D0, 0.00062D0, 0.00038D0, 0.00026D0, - & 0.00017D0, 0.00010D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,29),I=1,49)/ - & 11.30416D0, 8.37884D0, 6.20316D0, 5.19892D0, 4.58469D0, - & 4.15747D0, 3.06152D0, 2.24335D0, 1.86330D0, 1.62927D0, - & 1.46273D0, 1.03685D0, 0.71898D0, 0.57351D0, 0.48535D0, - & 0.42471D0, 0.34469D0, 0.27305D0, 0.20570D0, 0.16558D0, - & 0.11773D0, 0.08889D0, 0.06902D0, 0.05129D0, 0.03852D0, - & 0.02896D0, 0.02179D0, 0.01634D0, 0.01216D0, 0.00899D0, - & 0.00659D0, 0.00479D0, 0.00347D0, 0.00248D0, 0.00174D0, - & 0.00119D0, 0.00084D0, 0.00059D0, 0.00036D0, 0.00024D0, - & 0.00016D0, 0.00009D0, 0.00006D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,30),I=1,49)/ - & 12.17534D0, 8.97841D0, 6.61310D0, 5.52592D0, 4.86271D0, - & 4.40230D0, 3.22516D0, 2.35097D0, 1.94663D0, 1.69833D0, - & 1.52199D0, 1.07270D0, 0.73942D0, 0.58770D0, 0.49605D0, - & 0.43317D0, 0.35042D0, 0.27659D0, 0.20745D0, 0.16642D0, - & 0.11771D0, 0.08850D0, 0.06847D0, 0.05068D0, 0.03793D0, - & 0.02842D0, 0.02132D0, 0.01595D0, 0.01184D0, 0.00872D0, - & 0.00639D0, 0.00464D0, 0.00334D0, 0.00238D0, 0.00167D0, - & 0.00115D0, 0.00081D0, 0.00056D0, 0.00034D0, 0.00023D0, - & 0.00015D0, 0.00009D0, 0.00006D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,31),I=1,49)/ - & 13.04562D0, 9.57419D0, 7.01826D0, 5.84808D0, 5.13599D0, - & 4.64254D0, 3.38483D0, 2.45538D0, 2.02720D0, 1.76492D0, - & 1.57901D0, 1.10697D0, 0.75881D0, 0.60107D0, 0.50610D0, - & 0.44109D0, 0.35574D0, 0.27985D0, 0.20903D0, 0.16716D0, - & 0.11764D0, 0.08810D0, 0.06793D0, 0.05010D0, 0.03737D0, - & 0.02791D0, 0.02089D0, 0.01558D0, 0.01154D0, 0.00848D0, - & 0.00620D0, 0.00450D0, 0.00323D0, 0.00230D0, 0.00160D0, - & 0.00110D0, 0.00077D0, 0.00053D0, 0.00032D0, 0.00022D0, - & 0.00015D0, 0.00008D0, 0.00006D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,32),I=1,49)/ - & 13.89443D0, 10.15226D0, 7.40931D0, 6.15805D0, 5.39834D0, - & 4.87276D0, 3.53699D0, 2.55429D0, 2.10325D0, 1.82761D0, - & 1.63256D0, 1.13890D0, 0.77669D0, 0.61332D0, 0.51524D0, - & 0.44825D0, 0.36050D0, 0.28271D0, 0.21036D0, 0.16773D0, - & 0.11750D0, 0.08767D0, 0.06738D0, 0.04952D0, 0.03683D0, - & 0.02743D0, 0.02048D0, 0.01524D0, 0.01125D0, 0.00826D0, - & 0.00603D0, 0.00436D0, 0.00312D0, 0.00222D0, 0.00155D0, - & 0.00106D0, 0.00074D0, 0.00051D0, 0.00031D0, 0.00021D0, - & 0.00014D0, 0.00008D0, 0.00005D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,33),I=1,49)/ - & 14.79866D0, 10.76526D0, 7.82209D0, 6.48437D0, 5.67399D0, - & 5.11430D0, 3.69589D0, 2.65710D0, 2.18207D0, 1.89245D0, - & 1.68785D0, 1.17170D0, 0.79496D0, 0.62581D0, 0.52453D0, - & 0.45551D0, 0.36532D0, 0.28560D0, 0.21171D0, 0.16831D0, - & 0.11736D0, 0.08724D0, 0.06684D0, 0.04896D0, 0.03630D0, - & 0.02696D0, 0.02007D0, 0.01490D0, 0.01098D0, 0.00805D0, - & 0.00586D0, 0.00423D0, 0.00302D0, 0.00214D0, 0.00150D0, - & 0.00102D0, 0.00071D0, 0.00049D0, 0.00030D0, 0.00020D0, - & 0.00013D0, 0.00008D0, 0.00005D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,34),I=1,49)/ - & 15.70368D0, 11.37564D0, 8.23095D0, 6.80656D0, 5.94554D0, - & 5.35181D0, 3.85123D0, 2.75698D0, 2.25835D0, 1.95501D0, - & 1.74107D0, 1.20298D0, 0.81219D0, 0.63747D0, 0.53315D0, - & 0.46219D0, 0.36968D0, 0.28814D0, 0.21281D0, 0.16870D0, - & 0.11711D0, 0.08674D0, 0.06626D0, 0.04836D0, 0.03575D0, - & 0.02649D0, 0.01967D0, 0.01456D0, 0.01071D0, 0.00784D0, - & 0.00568D0, 0.00409D0, 0.00292D0, 0.00207D0, 0.00144D0, - & 0.00098D0, 0.00068D0, 0.00047D0, 0.00029D0, 0.00019D0, - & 0.00012D0, 0.00007D0, 0.00005D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,35),I=1,49)/ - & 16.61098D0, 11.98498D0, 8.63737D0, 7.12604D0, 6.21432D0, - & 5.58657D0, 4.00413D0, 2.85486D0, 2.33290D0, 2.01603D0, - & 1.79291D0, 1.23331D0, 0.82880D0, 0.64868D0, 0.54141D0, - & 0.46858D0, 0.37384D0, 0.29056D0, 0.21385D0, 0.16907D0, - & 0.11687D0, 0.08628D0, 0.06571D0, 0.04780D0, 0.03525D0, - & 0.02604D0, 0.01929D0, 0.01425D0, 0.01046D0, 0.00764D0, - & 0.00552D0, 0.00397D0, 0.00283D0, 0.00200D0, 0.00139D0, - & 0.00095D0, 0.00066D0, 0.00045D0, 0.00028D0, 0.00019D0, - & 0.00012D0, 0.00007D0, 0.00005D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,36),I=1,49)/ - & 17.49641D0, 12.57703D0, 9.03053D0, 7.43428D0, 6.47316D0, - & 5.81232D0, 4.15045D0, 2.94807D0, 2.40367D0, 2.07383D0, - & 1.84191D0, 1.26179D0, 0.84428D0, 0.65906D0, 0.54902D0, - & 0.47444D0, 0.37762D0, 0.29271D0, 0.21474D0, 0.16935D0, - & 0.11660D0, 0.08580D0, 0.06517D0, 0.04726D0, 0.03476D0, - & 0.02562D0, 0.01894D0, 0.01396D0, 0.01022D0, 0.00745D0, - & 0.00538D0, 0.00386D0, 0.00274D0, 0.00194D0, 0.00135D0, - & 0.00092D0, 0.00063D0, 0.00044D0, 0.00027D0, 0.00018D0, - & 0.00011D0, 0.00007D0, 0.00005D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,37),I=1,49)/ - & 18.41415D0, 13.18812D0, 9.43458D0, 7.75025D0, 6.73800D0, - & 6.04297D0, 4.29926D0, 3.04240D0, 2.47507D0, 2.13202D0, - & 1.89114D0, 1.29020D0, 0.85959D0, 0.66927D0, 0.55646D0, - & 0.48015D0, 0.38126D0, 0.29476D0, 0.21554D0, 0.16955D0, - & 0.11628D0, 0.08530D0, 0.06461D0, 0.04672D0, 0.03427D0, - & 0.02520D0, 0.01858D0, 0.01367D0, 0.00999D0, 0.00727D0, - & 0.00525D0, 0.00375D0, 0.00266D0, 0.00188D0, 0.00131D0, - & 0.00088D0, 0.00061D0, 0.00042D0, 0.00026D0, 0.00017D0, - & 0.00011D0, 0.00006D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,6,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I, 1),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I, 2),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I, 3),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I, 4),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I, 5),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I, 6),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I, 7),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I, 8),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I, 9),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,10),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,11),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,12),I=1,49)/ - & 0.00042D0, 0.00036D0, 0.00032D0, 0.00030D0, 0.00028D0, - & 0.00027D0, 0.00023D0, 0.00020D0, 0.00019D0, 0.00018D0, - & 0.00017D0, 0.00014D0, 0.00012D0, 0.00011D0, 0.00010D0, - & 0.00009D0, 0.00008D0, 0.00007D0, 0.00006D0, 0.00005D0, - & 0.00005D0, 0.00004D0, 0.00003D0, 0.00003D0, 0.00003D0, - & 0.00002D0, 0.00002D0, 0.00002D0, 0.00002D0, 0.00001D0, - & 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,13),I=1,49)/ - & 0.21520D0, 0.16773D0, 0.13065D0, 0.11283D0, 0.10165D0, - & 0.09372D0, 0.07266D0, 0.05600D0, 0.04786D0, 0.04266D0, - & 0.03883D0, 0.02862D0, 0.02044D0, 0.01649D0, 0.01402D0, - & 0.01228D0, 0.00994D0, 0.00781D0, 0.00579D0, 0.00460D0, - & 0.00322D0, 0.00243D0, 0.00191D0, 0.00146D0, 0.00114D0, - & 0.00089D0, 0.00070D0, 0.00055D0, 0.00043D0, 0.00034D0, - & 0.00026D0, 0.00020D0, 0.00015D0, 0.00011D0, 0.00009D0, - & 0.00006D0, 0.00005D0, 0.00003D0, 0.00002D0, 0.00001D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,14),I=1,49)/ - & 0.62424D0, 0.48455D0, 0.37589D0, 0.32385D0, 0.29126D0, - & 0.26818D0, 0.20706D0, 0.15892D0, 0.13546D0, 0.12053D0, - & 0.10954D0, 0.08034D0, 0.05707D0, 0.04589D0, 0.03892D0, - & 0.03403D0, 0.02747D0, 0.02151D0, 0.01589D0, 0.01258D0, - & 0.00876D0, 0.00658D0, 0.00515D0, 0.00391D0, 0.00303D0, - & 0.00236D0, 0.00185D0, 0.00144D0, 0.00112D0, 0.00088D0, - & 0.00067D0, 0.00051D0, 0.00039D0, 0.00029D0, 0.00022D0, - & 0.00016D0, 0.00011D0, 0.00008D0, 0.00006D0, 0.00004D0, - & 0.00002D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,15),I=1,49)/ - & 1.00765D0, 0.77678D0, 0.59844D0, 0.51350D0, 0.46049D0, - & 0.42306D0, 0.32436D0, 0.24719D0, 0.20981D0, 0.18611D0, - & 0.16874D0, 0.12279D0, 0.08652D0, 0.06923D0, 0.05850D0, - & 0.05102D0, 0.04100D0, 0.03196D0, 0.02347D0, 0.01849D0, - & 0.01279D0, 0.00955D0, 0.00743D0, 0.00560D0, 0.00430D0, - & 0.00334D0, 0.00260D0, 0.00202D0, 0.00157D0, 0.00121D0, - & 0.00093D0, 0.00071D0, 0.00053D0, 0.00040D0, 0.00029D0, - & 0.00021D0, 0.00015D0, 0.00011D0, 0.00007D0, 0.00005D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,16),I=1,49)/ - & 1.42250D0, 1.08981D0, 0.83442D0, 0.71339D0, 0.63810D0, - & 0.58505D0, 0.44575D0, 0.33755D0, 0.28542D0, 0.25249D0, - & 0.22841D0, 0.16506D0, 0.11545D0, 0.09197D0, 0.07747D0, - & 0.06738D0, 0.05394D0, 0.04186D0, 0.03057D0, 0.02399D0, - & 0.01648D0, 0.01223D0, 0.00946D0, 0.00708D0, 0.00541D0, - & 0.00417D0, 0.00323D0, 0.00250D0, 0.00193D0, 0.00149D0, - & 0.00113D0, 0.00086D0, 0.00064D0, 0.00048D0, 0.00035D0, - & 0.00026D0, 0.00018D0, 0.00013D0, 0.00009D0, 0.00005D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,17),I=1,49)/ - & 1.90329D0, 1.44918D0, 1.10274D0, 0.93938D0, 0.83807D0, - & 0.76686D0, 0.58064D0, 0.43692D0, 0.36805D0, 0.32470D0, - & 0.29309D0, 0.21032D0, 0.14604D0, 0.11582D0, 0.09725D0, - & 0.08437D0, 0.06728D0, 0.05198D0, 0.03776D0, 0.02950D0, - & 0.02012D0, 0.01485D0, 0.01142D0, 0.00850D0, 0.00645D0, - & 0.00494D0, 0.00381D0, 0.00293D0, 0.00225D0, 0.00172D0, - & 0.00131D0, 0.00098D0, 0.00073D0, 0.00054D0, 0.00040D0, - & 0.00029D0, 0.00021D0, 0.00014D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,18),I=1,49)/ - & 2.33137D0, 1.76616D0, 1.33713D0, 1.13567D0, 1.01106D0, - & 0.92363D0, 0.69576D0, 0.52083D0, 0.43738D0, 0.38501D0, - & 0.34690D0, 0.24753D0, 0.17085D0, 0.13502D0, 0.11307D0, - & 0.09789D0, 0.07781D0, 0.05991D0, 0.04333D0, 0.03374D0, - & 0.02288D0, 0.01680D0, 0.01286D0, 0.00952D0, 0.00719D0, - & 0.00549D0, 0.00420D0, 0.00322D0, 0.00246D0, 0.00188D0, - & 0.00142D0, 0.00107D0, 0.00079D0, 0.00059D0, 0.00043D0, - & 0.00031D0, 0.00022D0, 0.00015D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,19),I=1,49)/ - & 2.89798D0, 2.18213D0, 1.64207D0, 1.38971D0, 1.23410D0, - & 1.12518D0, 0.84241D0, 0.62670D0, 0.52435D0, 0.46034D0, - & 0.41389D0, 0.29333D0, 0.20103D0, 0.15819D0, 0.13206D0, - & 0.11405D0, 0.09031D0, 0.06924D0, 0.04982D0, 0.03863D0, - & 0.02602D0, 0.01899D0, 0.01446D0, 0.01064D0, 0.00798D0, - & 0.00606D0, 0.00462D0, 0.00352D0, 0.00268D0, 0.00204D0, - & 0.00153D0, 0.00115D0, 0.00085D0, 0.00062D0, 0.00046D0, - & 0.00034D0, 0.00024D0, 0.00016D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,20),I=1,49)/ - & 3.45978D0, 2.59142D0, 1.93977D0, 1.63658D0, 1.45012D0, - & 1.31987D0, 0.98290D0, 0.72728D0, 0.60655D0, 0.53126D0, - & 0.47676D0, 0.33590D0, 0.22879D0, 0.17936D0, 0.14933D0, - & 0.12869D0, 0.10156D0, 0.07757D0, 0.05556D0, 0.04293D0, - & 0.02875D0, 0.02087D0, 0.01582D0, 0.01157D0, 0.00864D0, - & 0.00653D0, 0.00495D0, 0.00376D0, 0.00285D0, 0.00216D0, - & 0.00162D0, 0.00120D0, 0.00089D0, 0.00065D0, 0.00048D0, - & 0.00035D0, 0.00025D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,21),I=1,49)/ - & 3.99390D0, 2.97724D0, 2.21795D0, 1.86604D0, 1.65015D0, - & 1.49961D0, 1.11138D0, 0.81834D0, 0.68051D0, 0.59480D0, - & 0.53289D0, 0.37345D0, 0.25296D0, 0.19764D0, 0.16415D0, - & 0.14119D0, 0.11109D0, 0.08457D0, 0.06032D0, 0.04645D0, - & 0.03094D0, 0.02236D0, 0.01688D0, 0.01228D0, 0.00913D0, - & 0.00687D0, 0.00519D0, 0.00392D0, 0.00296D0, 0.00223D0, - & 0.00167D0, 0.00124D0, 0.00091D0, 0.00067D0, 0.00049D0, - & 0.00036D0, 0.00025D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,22),I=1,49)/ - & 4.74104D0, 3.51318D0, 2.60162D0, 2.18119D0, 1.92405D0, - & 1.74515D0, 1.28558D0, 0.94085D0, 0.77956D0, 0.67959D0, - & 0.60758D0, 0.42298D0, 0.28453D0, 0.22138D0, 0.18331D0, - & 0.15728D0, 0.12329D0, 0.09346D0, 0.06632D0, 0.05087D0, - & 0.03366D0, 0.02418D0, 0.01815D0, 0.01313D0, 0.00971D0, - & 0.00726D0, 0.00546D0, 0.00411D0, 0.00309D0, 0.00232D0, - & 0.00172D0, 0.00128D0, 0.00094D0, 0.00068D0, 0.00049D0, - & 0.00036D0, 0.00026D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,23),I=1,49)/ - & 5.50879D0, 4.05964D0, 2.98973D0, 2.49849D0, 2.19888D0, - & 1.99086D0, 1.45844D0, 1.06135D0, 0.87646D0, 0.76222D0, - & 0.68014D0, 0.47060D0, 0.31455D0, 0.24380D0, 0.20130D0, - & 0.17233D0, 0.13462D0, 0.10166D0, 0.07179D0, 0.05486D0, - & 0.03607D0, 0.02577D0, 0.01926D0, 0.01386D0, 0.01019D0, - & 0.00758D0, 0.00568D0, 0.00425D0, 0.00318D0, 0.00238D0, - & 0.00176D0, 0.00130D0, 0.00095D0, 0.00069D0, 0.00050D0, - & 0.00037D0, 0.00026D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,24),I=1,49)/ - & 6.25919D0, 4.58931D0, 3.36270D0, 2.80183D0, 2.46064D0, - & 2.22421D0, 1.62105D0, 1.17360D0, 0.96617D0, 0.83838D0, - & 0.74677D0, 0.51381D0, 0.34143D0, 0.26369D0, 0.21716D0, - & 0.18553D0, 0.14447D0, 0.10870D0, 0.07643D0, 0.05820D0, - & 0.03805D0, 0.02705D0, 0.02012D0, 0.01441D0, 0.01054D0, - & 0.00781D0, 0.00582D0, 0.00434D0, 0.00324D0, 0.00241D0, - & 0.00178D0, 0.00131D0, 0.00095D0, 0.00069D0, 0.00050D0, - & 0.00037D0, 0.00026D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,25),I=1,49)/ - & 7.07966D0, 5.16501D0, 3.76564D0, 3.12838D0, 2.74171D0, - & 2.47426D0, 1.79422D0, 1.29235D0, 1.06071D0, 0.91840D0, - & 0.81663D0, 0.55877D0, 0.36917D0, 0.28412D0, 0.23339D0, - & 0.19900D0, 0.15447D0, 0.11582D0, 0.08108D0, 0.06153D0, - & 0.03999D0, 0.02830D0, 0.02096D0, 0.01493D0, 0.01087D0, - & 0.00803D0, 0.00595D0, 0.00442D0, 0.00329D0, 0.00244D0, - & 0.00180D0, 0.00131D0, 0.00096D0, 0.00069D0, 0.00050D0, - & 0.00036D0, 0.00026D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,26),I=1,49)/ - & 7.91829D0, 5.74916D0, 4.17141D0, 3.45573D0, 3.02255D0, - & 2.72346D0, 1.96537D0, 1.40870D0, 1.15285D0, 0.99608D0, - & 0.88421D0, 0.60182D0, 0.39541D0, 0.30330D0, 0.24854D0, - & 0.21150D0, 0.16368D0, 0.12231D0, 0.08527D0, 0.06448D0, - & 0.04169D0, 0.02937D0, 0.02165D0, 0.01535D0, 0.01113D0, - & 0.00818D0, 0.00604D0, 0.00447D0, 0.00331D0, 0.00245D0, - & 0.00180D0, 0.00131D0, 0.00095D0, 0.00068D0, 0.00049D0, - & 0.00036D0, 0.00026D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,27),I=1,49)/ - & 8.76657D0, 6.33661D0, 4.57707D0, 3.78184D0, 3.30161D0, - & 2.97059D0, 2.13403D0, 1.52261D0, 1.24269D0, 1.07161D0, - & 0.94977D0, 0.64324D0, 0.42046D0, 0.32150D0, 0.26285D0, - & 0.22328D0, 0.17230D0, 0.12835D0, 0.08912D0, 0.06719D0, - & 0.04322D0, 0.03031D0, 0.02226D0, 0.01571D0, 0.01134D0, - & 0.00830D0, 0.00611D0, 0.00451D0, 0.00333D0, 0.00245D0, - & 0.00180D0, 0.00131D0, 0.00095D0, 0.00068D0, 0.00048D0, - & 0.00036D0, 0.00026D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,28),I=1,49)/ - & 9.60252D0, 6.91204D0, 4.97199D0, 4.09813D0, 3.57154D0, - & 3.20914D0, 2.29574D0, 1.63105D0, 1.32784D0, 1.14296D0, - & 1.01154D0, 0.68194D0, 0.44362D0, 0.33823D0, 0.27595D0, - & 0.23401D0, 0.18011D0, 0.13377D0, 0.09255D0, 0.06957D0, - & 0.04454D0, 0.03111D0, 0.02277D0, 0.01600D0, 0.01150D0, - & 0.00839D0, 0.00616D0, 0.00453D0, 0.00333D0, 0.00245D0, - & 0.00179D0, 0.00130D0, 0.00094D0, 0.00067D0, 0.00048D0, - & 0.00035D0, 0.00025D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,29),I=1,49)/ - & 10.48807D0, 7.51842D0, 5.38590D0, 4.42859D0, 3.85291D0, - & 3.45734D0, 2.46302D0, 1.74255D0, 1.41507D0, 1.21586D0, - & 1.07451D0, 0.72111D0, 0.46688D0, 0.35494D0, 0.28897D0, - & 0.24464D0, 0.18781D0, 0.13908D0, 0.09587D0, 0.07187D0, - & 0.04579D0, 0.03185D0, 0.02323D0, 0.01626D0, 0.01165D0, - & 0.00847D0, 0.00619D0, 0.00454D0, 0.00333D0, 0.00244D0, - & 0.00178D0, 0.00129D0, 0.00093D0, 0.00066D0, 0.00047D0, - & 0.00035D0, 0.00025D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,30),I=1,49)/ - & 11.39334D0, 8.13482D0, 5.80422D0, 4.76138D0, 4.13555D0, - & 3.70617D0, 2.62967D0, 1.85288D0, 1.50103D0, 1.28747D0, - & 1.13621D0, 0.75917D0, 0.48927D0, 0.37093D0, 0.30137D0, - & 0.25473D0, 0.19506D0, 0.14404D0, 0.09894D0, 0.07396D0, - & 0.04691D0, 0.03251D0, 0.02363D0, 0.01647D0, 0.01175D0, - & 0.00851D0, 0.00621D0, 0.00454D0, 0.00332D0, 0.00243D0, - & 0.00176D0, 0.00127D0, 0.00091D0, 0.00065D0, 0.00046D0, - & 0.00034D0, 0.00025D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,31),I=1,49)/ - & 12.30020D0, 8.74942D0, 6.21933D0, 5.09070D0, 4.41468D0, - & 3.95152D0, 2.79315D0, 1.96055D0, 1.58465D0, 1.35697D0, - & 1.19598D0, 0.79580D0, 0.51068D0, 0.38615D0, 0.31314D0, - & 0.26427D0, 0.20189D0, 0.14868D0, 0.10179D0, 0.07589D0, - & 0.04793D0, 0.03309D0, 0.02397D0, 0.01665D0, 0.01184D0, - & 0.00855D0, 0.00621D0, 0.00453D0, 0.00330D0, 0.00241D0, - & 0.00174D0, 0.00126D0, 0.00090D0, 0.00064D0, 0.00046D0, - & 0.00034D0, 0.00025D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,32),I=1,49)/ - & 13.17835D0, 9.34137D0, 6.61692D0, 5.40505D0, 4.68045D0, - & 4.18467D0, 2.94753D0, 2.06155D0, 1.66276D0, 1.42169D0, - & 1.25150D0, 0.82954D0, 0.53019D0, 0.39993D0, 0.32374D0, - & 0.27283D0, 0.20796D0, 0.15278D0, 0.10427D0, 0.07755D0, - & 0.04878D0, 0.03356D0, 0.02424D0, 0.01677D0, 0.01189D0, - & 0.00856D0, 0.00621D0, 0.00451D0, 0.00328D0, 0.00239D0, - & 0.00173D0, 0.00124D0, 0.00089D0, 0.00063D0, 0.00045D0, - & 0.00033D0, 0.00025D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,33),I=1,49)/ - & 14.12059D0, 9.97430D0, 7.04054D0, 5.73929D0, 4.96264D0, - & 4.43195D0, 3.11069D0, 2.16791D0, 1.74484D0, 1.48959D0, - & 1.30967D0, 0.86476D0, 0.55049D0, 0.41422D0, 0.33471D0, - & 0.28168D0, 0.21423D0, 0.15699D0, 0.10682D0, 0.07925D0, - & 0.04965D0, 0.03404D0, 0.02451D0, 0.01690D0, 0.01194D0, - & 0.00857D0, 0.00620D0, 0.00449D0, 0.00326D0, 0.00237D0, - & 0.00171D0, 0.00123D0, 0.00088D0, 0.00062D0, 0.00044D0, - & 0.00032D0, 0.00025D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,34),I=1,49)/ - & 15.05309D0, 10.59701D0, 7.45476D0, 6.06488D0, 5.23678D0, - & 4.67164D0, 3.26773D0, 2.26948D0, 1.82284D0, 1.55389D0, - & 1.36460D0, 0.89767D0, 0.56921D0, 0.42730D0, 0.34468D0, - & 0.28967D0, 0.21983D0, 0.16070D0, 0.10902D0, 0.08069D0, - & 0.05036D0, 0.03441D0, 0.02470D0, 0.01698D0, 0.01196D0, - & 0.00856D0, 0.00617D0, 0.00446D0, 0.00323D0, 0.00234D0, - & 0.00168D0, 0.00121D0, 0.00086D0, 0.00061D0, 0.00043D0, - & 0.00032D0, 0.00024D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,35),I=1,49)/ - & 15.99294D0, 11.22254D0, 7.86947D0, 6.39022D0, 5.51032D0, - & 4.91055D0, 3.42373D0, 2.37005D0, 1.89992D0, 1.61733D0, - & 1.41872D0, 0.92998D0, 0.58753D0, 0.44006D0, 0.35440D0, - & 0.29744D0, 0.22527D0, 0.16430D0, 0.11114D0, 0.08207D0, - & 0.05103D0, 0.03476D0, 0.02489D0, 0.01705D0, 0.01198D0, - & 0.00855D0, 0.00615D0, 0.00444D0, 0.00321D0, 0.00232D0, - & 0.00166D0, 0.00119D0, 0.00085D0, 0.00060D0, 0.00042D0, - & 0.00031D0, 0.00024D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,36),I=1,49)/ - & 16.90825D0, 11.82917D0, 8.26989D0, 6.70353D0, 5.77324D0, - & 5.13985D0, 3.57272D0, 2.46560D0, 1.97292D0, 1.67727D0, - & 1.46976D0, 0.96025D0, 0.60456D0, 0.45187D0, 0.36334D0, - & 0.30458D0, 0.23023D0, 0.16756D0, 0.11304D0, 0.08330D0, - & 0.05162D0, 0.03506D0, 0.02503D0, 0.01710D0, 0.01198D0, - & 0.00853D0, 0.00612D0, 0.00440D0, 0.00318D0, 0.00229D0, - & 0.00164D0, 0.00117D0, 0.00083D0, 0.00059D0, 0.00042D0, - & 0.00031D0, 0.00024D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,37),I=1,49)/ - & 17.85379D0, 12.45318D0, 8.67996D0, 7.02354D0, 6.04126D0, - & 5.37323D0, 3.72362D0, 2.56187D0, 2.04622D0, 1.73730D0, - & 1.52078D0, 0.99029D0, 0.62133D0, 0.46343D0, 0.37206D0, - & 0.31151D0, 0.23502D0, 0.17068D0, 0.11483D0, 0.08444D0, - & 0.05214D0, 0.03531D0, 0.02515D0, 0.01713D0, 0.01196D0, - & 0.00850D0, 0.00608D0, 0.00437D0, 0.00315D0, 0.00226D0, - & 0.00162D0, 0.00115D0, 0.00082D0, 0.00058D0, 0.00041D0, - & 0.00030D0, 0.00024D0, 0.00017D0, 0.00010D0, 0.00006D0, - & 0.00003D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,7,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I, 1),I=1,49)/ - & 0.88043D0, 0.77333D0, 0.67888D0, 0.62888D0, 0.59555D0, - & 0.57086D0, 0.50019D0, 0.43775D0, 0.40464D0, 0.38254D0, - & 0.36610D0, 0.31885D0, 0.27689D0, 0.25464D0, 0.23989D0, - & 0.22903D0, 0.21364D0, 0.19859D0, 0.18303D0, 0.17273D0, - & 0.15826D0, 0.14656D0, 0.13527D0, 0.12062D0, 0.10522D0, - & 0.08955D0, 0.07420D0, 0.05981D0, 0.04692D0, 0.03554D0, - & 0.02630D0, 0.01878D0, 0.01298D0, 0.00870D0, 0.00554D0, - & 0.00339D0, 0.00198D0, 0.00110D0, 0.00049D0, 0.00026D0, - & 0.00012D0, 0.00002D0, 0.00002D0, 0.00000D0, -0.00001D0, - & -0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I, 2),I=1,49)/ - & 0.89442D0, 0.78714D0, 0.69235D0, 0.64208D0, 0.60853D0, - & 0.58367D0, 0.51236D0, 0.44919D0, 0.41561D0, 0.39314D0, - & 0.37639D0, 0.32808D0, 0.28485D0, 0.26176D0, 0.24637D0, - & 0.23501D0, 0.21882D0, 0.20291D0, 0.18634D0, 0.17532D0, - & 0.15979D0, 0.14730D0, 0.13538D0, 0.12014D0, 0.10435D0, - & 0.08847D0, 0.07306D0, 0.05873D0, 0.04595D0, 0.03477D0, - & 0.02571D0, 0.01837D0, 0.01273D0, 0.00855D0, 0.00550D0, - & 0.00340D0, 0.00204D0, 0.00117D0, 0.00055D0, 0.00031D0, - & 0.00017D0, 0.00006D0, 0.00005D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I, 3),I=1,49)/ - & 0.93116D0, 0.82082D0, 0.72315D0, 0.67127D0, 0.63662D0, - & 0.61092D0, 0.53708D0, 0.47148D0, 0.43647D0, 0.41299D0, - & 0.39541D0, 0.34450D0, 0.29850D0, 0.27374D0, 0.25714D0, - & 0.24483D0, 0.22722D0, 0.20981D0, 0.19154D0, 0.17933D0, - & 0.16210D0, 0.14837D0, 0.13550D0, 0.11937D0, 0.10300D0, - & 0.08681D0, 0.07133D0, 0.05711D0, 0.04449D0, 0.03362D0, - & 0.02480D0, 0.01774D0, 0.01234D0, 0.00831D0, 0.00539D0, - & 0.00338D0, 0.00208D0, 0.00122D0, 0.00062D0, 0.00038D0, - & 0.00022D0, 0.00010D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I, 4),I=1,49)/ - & 0.97222D0, 0.85703D0, 0.75505D0, 0.70088D0, 0.66470D0, - & 0.63785D0, 0.56070D0, 0.49207D0, 0.45539D0, 0.43075D0, - & 0.41225D0, 0.35857D0, 0.30984D0, 0.28350D0, 0.26581D0, - & 0.25266D0, 0.23382D0, 0.21514D0, 0.19549D0, 0.18234D0, - & 0.16379D0, 0.14912D0, 0.13552D0, 0.11873D0, 0.10198D0, - & 0.08556D0, 0.07005D0, 0.05591D0, 0.04344D0, 0.03278D0, - & 0.02413D0, 0.01727D0, 0.01201D0, 0.00813D0, 0.00530D0, - & 0.00334D0, 0.00207D0, 0.00123D0, 0.00065D0, 0.00042D0, - & 0.00025D0, 0.00012D0, 0.00009D0, 0.00002D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I, 5),I=1,49)/ - & 1.03488D0, 0.91080D0, 0.80113D0, 0.74294D0, 0.70410D0, - & 0.67529D0, 0.59258D0, 0.51904D0, 0.47974D0, 0.45332D0, - & 0.43343D0, 0.37573D0, 0.32325D0, 0.29486D0, 0.27577D0, - & 0.26158D0, 0.24123D0, 0.22104D0, 0.19979D0, 0.18555D0, - & 0.16552D0, 0.14984D0, 0.13548D0, 0.11801D0, 0.10084D0, - & 0.08422D0, 0.06865D0, 0.05459D0, 0.04229D0, 0.03183D0, - & 0.02342D0, 0.01674D0, 0.01163D0, 0.00790D0, 0.00517D0, - & 0.00326D0, 0.00204D0, 0.00126D0, 0.00069D0, 0.00044D0, - & 0.00027D0, 0.00014D0, 0.00010D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I, 6),I=1,49)/ - & 1.09976D0, 0.96588D0, 0.84779D0, 0.78524D0, 0.74353D0, - & 0.71261D0, 0.62395D0, 0.54523D0, 0.50318D0, 0.47492D0, - & 0.45362D0, 0.39183D0, 0.33563D0, 0.30525D0, 0.28482D0, - & 0.26964D0, 0.24787D0, 0.22628D0, 0.20357D0, 0.18835D0, - & 0.16700D0, 0.15043D0, 0.13540D0, 0.11734D0, 0.09983D0, - & 0.08303D0, 0.06744D0, 0.05346D0, 0.04131D0, 0.03103D0, - & 0.02280D0, 0.01628D0, 0.01131D0, 0.00768D0, 0.00506D0, - & 0.00319D0, 0.00201D0, 0.00126D0, 0.00071D0, 0.00044D0, - & 0.00028D0, 0.00015D0, 0.00010D0, 0.00005D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I, 7),I=1,49)/ - & 1.17764D0, 1.03108D0, 0.90223D0, 0.83415D0, 0.78882D0, - & 0.75526D0, 0.65918D0, 0.57411D0, 0.52875D0, 0.49829D0, - & 0.47532D0, 0.40880D0, 0.34842D0, 0.31585D0, 0.29397D0, - & 0.27773D0, 0.25447D0, 0.23144D0, 0.20722D0, 0.19102D0, - & 0.16837D0, 0.15091D0, 0.13525D0, 0.11665D0, 0.09880D0, - & 0.08184D0, 0.06625D0, 0.05236D0, 0.04036D0, 0.03026D0, - & 0.02219D0, 0.01583D0, 0.01099D0, 0.00745D0, 0.00494D0, - & 0.00313D0, 0.00199D0, 0.00124D0, 0.00071D0, 0.00044D0, - & 0.00028D0, 0.00014D0, 0.00011D0, 0.00005D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I, 8),I=1,49)/ - & 1.27508D0, 1.11188D0, 0.96899D0, 0.89374D0, 0.84374D0, - & 0.80677D0, 0.70124D0, 0.60814D0, 0.55864D0, 0.52545D0, - & 0.50042D0, 0.42815D0, 0.36279D0, 0.32765D0, 0.30409D0, - & 0.28664D0, 0.26167D0, 0.23701D0, 0.21111D0, 0.19383D0, - & 0.16977D0, 0.15136D0, 0.13503D0, 0.11586D0, 0.09768D0, - & 0.08056D0, 0.06499D0, 0.05119D0, 0.03935D0, 0.02943D0, - & 0.02154D0, 0.01534D0, 0.01065D0, 0.00723D0, 0.00480D0, - & 0.00305D0, 0.00194D0, 0.00121D0, 0.00071D0, 0.00043D0, - & 0.00029D0, 0.00014D0, 0.00011D0, 0.00005D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I, 9),I=1,49)/ - & 1.37316D0, 1.19249D0, 1.03498D0, 0.95232D0, 0.89751D0, - & 0.85705D0, 0.74185D0, 0.64064D0, 0.58699D0, 0.55108D0, - & 0.52402D0, 0.44610D0, 0.37594D0, 0.33836D0, 0.31323D0, - & 0.29464D0, 0.26809D0, 0.24193D0, 0.21452D0, 0.19627D0, - & 0.17094D0, 0.15171D0, 0.13480D0, 0.11515D0, 0.09667D0, - & 0.07946D0, 0.06388D0, 0.05018D0, 0.03847D0, 0.02871D0, - & 0.02099D0, 0.01493D0, 0.01036D0, 0.00705D0, 0.00466D0, - & 0.00297D0, 0.00189D0, 0.00119D0, 0.00071D0, 0.00043D0, - & 0.00029D0, 0.00015D0, 0.00010D0, 0.00005D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,10),I=1,49)/ - & 1.48232D0, 1.28141D0, 1.10710D0, 1.01596D0, 0.95567D0, - & 0.91125D0, 0.78516D0, 0.67489D0, 0.61664D0, 0.57774D0, - & 0.54846D0, 0.46445D0, 0.38919D0, 0.34906D0, 0.32230D0, - & 0.30254D0, 0.27439D0, 0.24670D0, 0.21778D0, 0.19857D0, - & 0.17201D0, 0.15198D0, 0.13451D0, 0.11441D0, 0.09567D0, - & 0.07837D0, 0.06280D0, 0.04920D0, 0.03762D0, 0.02802D0, - & 0.02045D0, 0.01454D0, 0.01009D0, 0.00685D0, 0.00453D0, - & 0.00289D0, 0.00185D0, 0.00117D0, 0.00069D0, 0.00044D0, - & 0.00029D0, 0.00015D0, 0.00011D0, 0.00004D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,11),I=1,49)/ - & 1.57825D0, 1.35904D0, 1.16962D0, 1.07091D0, 1.00575D0, - & 0.95780D0, 0.82207D0, 0.70384D0, 0.64159D0, 0.60009D0, - & 0.56890D0, 0.47964D0, 0.40007D0, 0.35779D0, 0.32966D0, - & 0.30893D0, 0.27945D0, 0.25052D0, 0.22036D0, 0.20038D0, - & 0.17283D0, 0.15216D0, 0.13426D0, 0.11380D0, 0.09487D0, - & 0.07750D0, 0.06195D0, 0.04843D0, 0.03696D0, 0.02748D0, - & 0.02002D0, 0.01423D0, 0.00988D0, 0.00669D0, 0.00443D0, - & 0.00283D0, 0.00181D0, 0.00116D0, 0.00068D0, 0.00044D0, - & 0.00028D0, 0.00016D0, 0.00011D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,12),I=1,49)/ - & 1.81391D0, 1.54794D0, 1.32027D0, 1.20251D0, 1.12515D0, - & 1.06843D0, 0.90882D0, 0.77111D0, 0.69913D0, 0.65138D0, - & 0.61560D0, 0.51392D0, 0.42424D0, 0.37702D0, 0.34578D0, - & 0.32285D0, 0.29039D0, 0.25868D0, 0.22580D0, 0.20412D0, - & 0.17445D0, 0.15244D0, 0.13361D0, 0.11242D0, 0.09312D0, - & 0.07561D0, 0.06012D0, 0.04679D0, 0.03556D0, 0.02636D0, - & 0.01913D0, 0.01356D0, 0.00940D0, 0.00637D0, 0.00422D0, - & 0.00270D0, 0.00172D0, 0.00112D0, 0.00066D0, 0.00042D0, - & 0.00027D0, 0.00016D0, 0.00011D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,13),I=1,49)/ - & 2.05224D0, 1.73683D0, 1.46916D0, 1.33169D0, 1.24177D0, - & 1.17604D0, 0.99216D0, 0.83488D0, 0.75325D0, 0.69933D0, - & 0.65905D0, 0.54532D0, 0.44603D0, 0.39419D0, 0.36006D0, - & 0.33511D0, 0.29992D0, 0.26571D0, 0.23041D0, 0.20724D0, - & 0.17571D0, 0.15255D0, 0.13296D0, 0.11116D0, 0.09157D0, - & 0.07397D0, 0.05855D0, 0.04538D0, 0.03436D0, 0.02540D0, - & 0.01839D0, 0.01299D0, 0.00900D0, 0.00610D0, 0.00403D0, - & 0.00259D0, 0.00165D0, 0.00107D0, 0.00064D0, 0.00040D0, - & 0.00027D0, 0.00015D0, 0.00011D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,14),I=1,49)/ - & 2.36037D0, 1.97834D0, 1.65740D0, 1.49390D0, 1.38749D0, - & 1.31001D0, 1.09465D0, 0.91231D0, 0.81846D0, 0.75678D0, - & 0.71089D0, 0.58224D0, 0.47125D0, 0.41385D0, 0.37630D0, - & 0.34896D0, 0.31058D0, 0.27348D0, 0.23541D0, 0.21054D0, - & 0.17694D0, 0.15252D0, 0.13212D0, 0.10968D0, 0.08980D0, - & 0.07213D0, 0.05680D0, 0.04381D0, 0.03304D0, 0.02434D0, - & 0.01758D0, 0.01241D0, 0.00857D0, 0.00582D0, 0.00382D0, - & 0.00247D0, 0.00159D0, 0.00103D0, 0.00060D0, 0.00038D0, - & 0.00026D0, 0.00014D0, 0.00011D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,15),I=1,49)/ - & 2.73224D0, 2.26638D0, 1.87922D0, 1.68367D0, 1.55710D0, - & 1.46530D0, 1.21194D0, 0.99975D0, 0.89148D0, 0.82073D0, - & 0.76831D0, 0.62250D0, 0.49828D0, 0.43470D0, 0.39338D0, - & 0.36342D0, 0.32158D0, 0.28138D0, 0.24036D0, 0.21374D0, - & 0.17800D0, 0.15230D0, 0.13108D0, 0.10804D0, 0.08789D0, - & 0.07017D0, 0.05499D0, 0.04222D0, 0.03170D0, 0.02325D0, - & 0.01673D0, 0.01178D0, 0.00810D0, 0.00551D0, 0.00361D0, - & 0.00232D0, 0.00150D0, 0.00098D0, 0.00058D0, 0.00036D0, - & 0.00025D0, 0.00014D0, 0.00010D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,16),I=1,49)/ - & 3.11511D0, 2.55975D0, 2.10267D0, 1.87361D0, 1.72607D0, - & 1.61945D0, 1.32704D0, 1.08455D0, 0.96180D0, 0.88200D0, - & 0.82308D0, 0.66038D0, 0.52333D0, 0.45384D0, 0.40893D0, - & 0.37652D0, 0.33144D0, 0.28836D0, 0.24465D0, 0.21643D0, - & 0.17877D0, 0.15196D0, 0.13002D0, 0.10649D0, 0.08613D0, - & 0.06841D0, 0.05335D0, 0.04078D0, 0.03051D0, 0.02230D0, - & 0.01601D0, 0.01123D0, 0.00772D0, 0.00522D0, 0.00344D0, - & 0.00221D0, 0.00143D0, 0.00094D0, 0.00056D0, 0.00035D0, - & 0.00023D0, 0.00014D0, 0.00009D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,17),I=1,49)/ - & 3.54920D0, 2.88904D0, 2.35096D0, 2.08340D0, 1.91191D0, - & 1.78843D0, 1.45191D0, 1.17555D0, 1.03678D0, 0.94701D0, - & 0.88099D0, 0.69993D0, 0.54914D0, 0.47339D0, 0.42472D0, - & 0.38973D0, 0.34130D0, 0.29525D0, 0.24881D0, 0.21897D0, - & 0.17941D0, 0.15149D0, 0.12887D0, 0.10488D0, 0.08433D0, - & 0.06664D0, 0.05172D0, 0.03936D0, 0.02933D0, 0.02138D0, - & 0.01531D0, 0.01070D0, 0.00735D0, 0.00494D0, 0.00327D0, - & 0.00210D0, 0.00135D0, 0.00089D0, 0.00053D0, 0.00034D0, - & 0.00022D0, 0.00013D0, 0.00009D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,18),I=1,49)/ - & 3.94722D0, 3.18825D0, 2.57451D0, 2.27128D0, 2.07769D0, - & 1.93872D0, 1.56191D0, 1.25495D0, 1.10181D0, 1.00316D0, - & 0.93081D0, 0.73357D0, 0.57081D0, 0.48966D0, 0.43777D0, - & 0.40060D0, 0.34934D0, 0.30080D0, 0.25209D0, 0.22090D0, - & 0.17980D0, 0.15100D0, 0.12785D0, 0.10349D0, 0.08283D0, - & 0.06518D0, 0.05037D0, 0.03822D0, 0.02839D0, 0.02063D0, - & 0.01472D0, 0.01026D0, 0.00705D0, 0.00475D0, 0.00313D0, - & 0.00200D0, 0.00129D0, 0.00084D0, 0.00049D0, 0.00033D0, - & 0.00020D0, 0.00013D0, 0.00009D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,19),I=1,49)/ - & 4.47623D0, 3.58243D0, 2.86642D0, 2.51532D0, 2.29224D0, - & 2.13264D0, 1.70256D0, 1.35552D0, 1.18371D0, 1.07357D0, - & 0.99309D0, 0.77516D0, 0.59726D0, 0.50937D0, 0.45348D0, - & 0.41360D0, 0.35886D0, 0.30730D0, 0.25582D0, 0.22304D0, - & 0.18010D0, 0.15028D0, 0.12653D0, 0.10177D0, 0.08099D0, - & 0.06341D0, 0.04879D0, 0.03686D0, 0.02728D0, 0.01973D0, - & 0.01404D0, 0.00977D0, 0.00668D0, 0.00449D0, 0.00295D0, - & 0.00189D0, 0.00122D0, 0.00079D0, 0.00046D0, 0.00031D0, - & 0.00019D0, 0.00011D0, 0.00008D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,20),I=1,49)/ - & 4.99213D0, 3.96349D0, 3.14614D0, 2.74797D0, 2.49601D0, - & 2.31631D0, 1.83458D0, 1.44905D0, 1.25946D0, 1.13844D0, - & 1.05027D0, 0.81294D0, 0.62102D0, 0.52694D0, 0.46740D0, - & 0.42508D0, 0.36719D0, 0.31292D0, 0.25900D0, 0.22482D0, - & 0.18028D0, 0.14958D0, 0.12531D0, 0.10024D0, 0.07938D0, - & 0.06186D0, 0.04742D0, 0.03568D0, 0.02633D0, 0.01896D0, - & 0.01347D0, 0.00937D0, 0.00636D0, 0.00427D0, 0.00280D0, - & 0.00180D0, 0.00116D0, 0.00076D0, 0.00045D0, 0.00029D0, - & 0.00019D0, 0.00009D0, 0.00007D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,21),I=1,49)/ - & 5.49949D0, 4.33534D0, 3.41695D0, 2.97216D0, 2.69173D0, - & 2.49225D0, 1.96002D0, 1.53717D0, 1.33047D0, 1.19901D0, - & 1.10350D0, 0.84773D0, 0.64263D0, 0.54279D0, 0.47988D0, - & 0.43530D0, 0.37453D0, 0.31778D0, 0.26166D0, 0.22622D0, - & 0.18027D0, 0.14882D0, 0.12412D0, 0.09878D0, 0.07788D0, - & 0.06045D0, 0.04618D0, 0.03463D0, 0.02546D0, 0.01831D0, - & 0.01296D0, 0.00899D0, 0.00611D0, 0.00409D0, 0.00268D0, - & 0.00172D0, 0.00111D0, 0.00073D0, 0.00045D0, 0.00028D0, - & 0.00018D0, 0.00010D0, 0.00007D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,22),I=1,49)/ - & 6.19994D0, 4.84455D0, 3.78480D0, 3.27524D0, 2.95541D0, - & 2.72867D0, 2.12718D0, 1.65361D0, 1.42381D0, 1.27834D0, - & 1.17300D0, 0.89272D0, 0.67027D0, 0.56291D0, 0.49563D0, - & 0.44814D0, 0.38367D0, 0.32378D0, 0.26487D0, 0.22786D0, - & 0.18016D0, 0.14778D0, 0.12256D0, 0.09693D0, 0.07601D0, - & 0.05870D0, 0.04463D0, 0.03333D0, 0.02440D0, 0.01750D0, - & 0.01234D0, 0.00854D0, 0.00580D0, 0.00388D0, 0.00253D0, - & 0.00162D0, 0.00104D0, 0.00069D0, 0.00042D0, 0.00026D0, - & 0.00018D0, 0.00010D0, 0.00006D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,23),I=1,49)/ - & 6.91850D0, 5.36248D0, 4.15576D0, 3.57933D0, 3.21903D0, - & 2.96436D0, 2.29236D0, 1.76765D0, 1.51472D0, 1.35530D0, - & 1.24020D0, 0.93576D0, 0.69640D0, 0.58179D0, 0.51031D0, - & 0.46004D0, 0.39207D0, 0.32922D0, 0.26771D0, 0.22925D0, - & 0.17994D0, 0.14672D0, 0.12105D0, 0.09521D0, 0.07427D0, - & 0.05708D0, 0.04320D0, 0.03213D0, 0.02345D0, 0.01676D0, - & 0.01179D0, 0.00813D0, 0.00551D0, 0.00368D0, 0.00240D0, - & 0.00152D0, 0.00099D0, 0.00064D0, 0.00039D0, 0.00024D0, - & 0.00017D0, 0.00009D0, 0.00006D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,24),I=1,49)/ - & 7.63491D0, 5.87479D0, 4.51976D0, 3.87632D0, 3.47562D0, - & 3.19317D0, 2.45140D0, 1.87649D0, 1.60104D0, 1.42808D0, - & 1.30355D0, 0.97589D0, 0.72045D0, 0.59900D0, 0.52360D0, - & 0.47074D0, 0.39952D0, 0.33394D0, 0.27005D0, 0.23029D0, - & 0.17956D0, 0.14561D0, 0.11956D0, 0.09355D0, 0.07262D0, - & 0.05557D0, 0.04190D0, 0.03105D0, 0.02258D0, 0.01609D0, - & 0.01128D0, 0.00777D0, 0.00525D0, 0.00350D0, 0.00227D0, - & 0.00145D0, 0.00095D0, 0.00060D0, 0.00036D0, 0.00023D0, - & 0.00015D0, 0.00008D0, 0.00006D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,25),I=1,49)/ - & 8.40875D0, 6.42416D0, 4.90727D0, 4.19114D0, 3.74679D0, - & 3.43441D0, 2.61784D0, 1.98954D0, 1.69029D0, 1.50308D0, - & 1.36865D0, 1.01677D0, 0.74472D0, 0.61626D0, 0.53686D0, - & 0.48138D0, 0.40687D0, 0.33856D0, 0.27230D0, 0.23124D0, - & 0.17912D0, 0.14448D0, 0.11807D0, 0.09190D0, 0.07100D0, - & 0.05410D0, 0.04063D0, 0.03001D0, 0.02174D0, 0.01545D0, - & 0.01080D0, 0.00742D0, 0.00500D0, 0.00332D0, 0.00215D0, - & 0.00138D0, 0.00091D0, 0.00056D0, 0.00034D0, 0.00022D0, - & 0.00014D0, 0.00008D0, 0.00005D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,26),I=1,49)/ - & 9.20959D0, 6.98865D0, 5.30257D0, 4.51092D0, 4.02140D0, - & 3.67813D0, 2.78472D0, 2.10201D0, 1.77866D0, 1.57708D0, - & 1.43269D0, 1.05659D0, 0.76808D0, 0.63273D0, 0.54942D0, - & 0.49139D0, 0.41371D0, 0.34277D0, 0.27426D0, 0.23197D0, - & 0.17855D0, 0.14327D0, 0.11656D0, 0.09025D0, 0.06944D0, - & 0.05268D0, 0.03941D0, 0.02899D0, 0.02094D0, 0.01485D0, - & 0.01035D0, 0.00708D0, 0.00476D0, 0.00316D0, 0.00205D0, - & 0.00131D0, 0.00085D0, 0.00054D0, 0.00031D0, 0.00021D0, - & 0.00013D0, 0.00008D0, 0.00005D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,27),I=1,49)/ - & 10.01660D0, 7.55374D0, 5.69567D0, 4.82767D0, 4.29265D0, - & 3.91834D0, 2.94808D0, 2.21134D0, 1.86419D0, 1.64848D0, - & 1.49433D0, 1.09459D0, 0.79015D0, 0.64820D0, 0.56116D0, - & 0.50070D0, 0.42001D0, 0.34660D0, 0.27598D0, 0.23256D0, - & 0.17794D0, 0.14210D0, 0.11511D0, 0.08871D0, 0.06797D0, - & 0.05137D0, 0.03829D0, 0.02806D0, 0.02022D0, 0.01430D0, - & 0.00994D0, 0.00679D0, 0.00455D0, 0.00301D0, 0.00196D0, - & 0.00124D0, 0.00081D0, 0.00052D0, 0.00030D0, 0.00020D0, - & 0.00013D0, 0.00008D0, 0.00005D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,28),I=1,49)/ - & 10.81622D0, 8.11020D0, 6.08037D0, 5.13653D0, 4.55643D0, - & 4.15146D0, 3.10560D0, 2.31605D0, 1.94577D0, 1.71637D0, - & 1.55278D0, 1.13032D0, 0.81070D0, 0.66250D0, 0.57195D0, - & 0.50921D0, 0.42571D0, 0.35000D0, 0.27744D0, 0.23299D0, - & 0.17730D0, 0.14094D0, 0.11373D0, 0.08726D0, 0.06658D0, - & 0.05015D0, 0.03725D0, 0.02723D0, 0.01957D0, 0.01380D0, - & 0.00957D0, 0.00653D0, 0.00437D0, 0.00288D0, 0.00188D0, - & 0.00119D0, 0.00077D0, 0.00050D0, 0.00029D0, 0.00019D0, - & 0.00012D0, 0.00007D0, 0.00005D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,29),I=1,49)/ - & 11.66230D0, 8.69558D0, 6.48269D0, 5.45841D0, 4.83067D0, - & 4.39335D0, 3.26805D0, 2.42336D0, 2.02906D0, 1.78549D0, - & 1.61215D0, 1.16634D0, 0.83123D0, 0.67669D0, 0.58260D0, - & 0.51757D0, 0.43126D0, 0.35327D0, 0.27879D0, 0.23332D0, - & 0.17659D0, 0.13975D0, 0.11233D0, 0.08581D0, 0.06521D0, - & 0.04895D0, 0.03623D0, 0.02642D0, 0.01893D0, 0.01332D0, - & 0.00922D0, 0.00628D0, 0.00420D0, 0.00276D0, 0.00179D0, - & 0.00113D0, 0.00073D0, 0.00048D0, 0.00028D0, 0.00018D0, - & 0.00012D0, 0.00007D0, 0.00004D0, 0.00001D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,30),I=1,49)/ - & 12.53147D0, 9.29349D0, 6.89124D0, 5.78416D0, 5.10752D0, - & 4.63707D0, 3.43073D0, 2.53015D0, 2.11162D0, 1.85381D0, - & 1.67070D0, 1.20157D0, 0.85112D0, 0.69035D0, 0.59278D0, - & 0.52552D0, 0.43648D0, 0.35628D0, 0.27996D0, 0.23352D0, - & 0.17581D0, 0.13853D0, 0.11093D0, 0.08439D0, 0.06389D0, - & 0.04778D0, 0.03525D0, 0.02563D0, 0.01832D0, 0.01286D0, - & 0.00888D0, 0.00603D0, 0.00403D0, 0.00265D0, 0.00171D0, - & 0.00109D0, 0.00070D0, 0.00046D0, 0.00026D0, 0.00017D0, - & 0.00011D0, 0.00006D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,31),I=1,49)/ - & 13.39986D0, 9.88770D0, 7.29509D0, 6.10513D0, 5.37969D0, - & 4.87627D0, 3.58951D0, 2.63377D0, 2.19145D0, 1.91971D0, - & 1.72706D0, 1.23525D0, 0.86997D0, 0.70322D0, 0.60234D0, - & 0.53296D0, 0.44131D0, 0.35903D0, 0.28099D0, 0.23364D0, - & 0.17503D0, 0.13736D0, 0.10960D0, 0.08305D0, 0.06264D0, - & 0.04669D0, 0.03435D0, 0.02491D0, 0.01775D0, 0.01244D0, - & 0.00857D0, 0.00581D0, 0.00387D0, 0.00255D0, 0.00164D0, - & 0.00105D0, 0.00067D0, 0.00044D0, 0.00025D0, 0.00016D0, - & 0.00011D0, 0.00006D0, 0.00004D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,32),I=1,49)/ - & 14.24690D0, 10.46430D0, 7.68491D0, 6.41400D0, 5.64102D0, - & 5.10551D0, 3.74084D0, 2.73196D0, 2.26682D0, 1.98174D0, - & 1.77998D0, 1.26662D0, 0.88736D0, 0.71501D0, 0.61103D0, - & 0.53966D0, 0.44562D0, 0.36142D0, 0.28180D0, 0.23363D0, - & 0.17423D0, 0.13620D0, 0.10832D0, 0.08177D0, 0.06147D0, - & 0.04567D0, 0.03352D0, 0.02425D0, 0.01724D0, 0.01204D0, - & 0.00828D0, 0.00559D0, 0.00373D0, 0.00245D0, 0.00158D0, - & 0.00099D0, 0.00065D0, 0.00042D0, 0.00024D0, 0.00015D0, - & 0.00010D0, 0.00006D0, 0.00004D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,33),I=1,49)/ - & 15.14936D0, 11.07583D0, 8.09647D0, 6.73922D0, 5.91564D0, - & 5.34608D0, 3.89891D0, 2.83403D0, 2.34496D0, 2.04593D0, - & 1.83464D0, 1.29886D0, 0.90513D0, 0.72701D0, 0.61986D0, - & 0.54647D0, 0.44998D0, 0.36383D0, 0.28262D0, 0.23362D0, - & 0.17343D0, 0.13505D0, 0.10704D0, 0.08050D0, 0.06032D0, - & 0.04468D0, 0.03270D0, 0.02360D0, 0.01675D0, 0.01165D0, - & 0.00800D0, 0.00538D0, 0.00360D0, 0.00236D0, 0.00153D0, - & 0.00094D0, 0.00062D0, 0.00040D0, 0.00024D0, 0.00014D0, - & 0.00010D0, 0.00005D0, 0.00004D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,34),I=1,49)/ - & 16.05264D0, 11.68476D0, 8.50413D0, 7.06033D0, 6.18619D0, - & 5.58264D0, 4.05344D0, 2.93321D0, 2.42057D0, 2.10785D0, - & 1.88726D0, 1.32960D0, 0.92187D0, 0.73821D0, 0.62802D0, - & 0.55270D0, 0.45389D0, 0.36590D0, 0.28320D0, 0.23345D0, - & 0.17251D0, 0.13385D0, 0.10575D0, 0.07924D0, 0.05918D0, - & 0.04371D0, 0.03189D0, 0.02297D0, 0.01625D0, 0.01129D0, - & 0.00773D0, 0.00520D0, 0.00346D0, 0.00227D0, 0.00146D0, - & 0.00090D0, 0.00059D0, 0.00038D0, 0.00022D0, 0.00014D0, - & 0.00009D0, 0.00005D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,35),I=1,49)/ - & 16.95831D0, 12.29275D0, 8.90942D0, 7.37879D0, 6.45402D0, - & 5.81651D0, 4.20556D0, 3.03041D0, 2.49449D0, 2.16827D0, - & 1.93852D0, 1.35941D0, 0.93802D0, 0.74899D0, 0.63586D0, - & 0.55868D0, 0.45763D0, 0.36787D0, 0.28375D0, 0.23328D0, - & 0.17165D0, 0.13272D0, 0.10453D0, 0.07807D0, 0.05811D0, - & 0.04281D0, 0.03114D0, 0.02238D0, 0.01579D0, 0.01096D0, - & 0.00748D0, 0.00503D0, 0.00334D0, 0.00218D0, 0.00141D0, - & 0.00087D0, 0.00056D0, 0.00036D0, 0.00021D0, 0.00013D0, - & 0.00009D0, 0.00005D0, 0.00004D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,36),I=1,49)/ - & 17.84218D0, 12.88352D0, 9.30151D0, 7.68607D0, 6.71197D0, - & 6.04141D0, 4.35117D0, 3.12299D0, 2.56467D0, 2.22550D0, - & 1.98697D0, 1.38741D0, 0.95307D0, 0.75895D0, 0.64306D0, - & 0.56414D0, 0.46100D0, 0.36960D0, 0.28418D0, 0.23305D0, - & 0.17079D0, 0.13162D0, 0.10337D0, 0.07695D0, 0.05711D0, - & 0.04196D0, 0.03045D0, 0.02184D0, 0.01537D0, 0.01065D0, - & 0.00725D0, 0.00488D0, 0.00323D0, 0.00211D0, 0.00135D0, - & 0.00084D0, 0.00054D0, 0.00035D0, 0.00020D0, 0.00012D0, - & 0.00009D0, 0.00005D0, 0.00003D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,37),I=1,49)/ - & 18.75837D0, 13.49331D0, 9.70449D0, 8.00107D0, 6.97591D0, - & 6.27121D0, 4.49926D0, 3.21668D0, 2.63548D0, 2.28312D0, - & 2.03566D0, 1.41534D0, 0.96795D0, 0.76874D0, 0.65009D0, - & 0.56943D0, 0.46423D0, 0.37122D0, 0.28450D0, 0.23274D0, - & 0.16989D0, 0.13050D0, 0.10219D0, 0.07583D0, 0.05612D0, - & 0.04112D0, 0.02978D0, 0.02129D0, 0.01496D0, 0.01035D0, - & 0.00703D0, 0.00473D0, 0.00312D0, 0.00203D0, 0.00130D0, - & 0.00081D0, 0.00052D0, 0.00034D0, 0.00019D0, 0.00012D0, - & 0.00008D0, 0.00005D0, 0.00003D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(1,8,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,1,I, 1),I=1,49)/ - & 0.01616D0, 0.01968D0, 0.02397D0, 0.02690D0, 0.02921D0, - & 0.03113D0, 0.03797D0, 0.04639D0, 0.05222D0, 0.05685D0, - & 0.06076D0, 0.07508D0, 0.09409D0, 0.10852D0, 0.12095D0, - & 0.13220D0, 0.15265D0, 0.18041D0, 0.22265D0, 0.26180D0, - & 0.33338D0, 0.39710D0, 0.45318D0, 0.51262D0, 0.56037D0, - & 0.59685D0, 0.62256D0, 0.63820D0, 0.64458D0, 0.64218D0, - & 0.63256D0, 0.61605D0, 0.59381D0, 0.56668D0, 0.53544D0, - & 0.50113D0, 0.46441D0, 0.42608D0, 0.38703D0, 0.34764D0, - & 0.30873D0, 0.27101D0, 0.23457D0, 0.16829D0, 0.11224D0, - & 0.06802D0, 0.03588D0, 0.00449D0, 0.00000D0/ - DATA (FMRS(2,1,I, 2),I=1,49)/ - & 0.01632D0, 0.01989D0, 0.02423D0, 0.02721D0, 0.02954D0, - & 0.03149D0, 0.03843D0, 0.04698D0, 0.05290D0, 0.05761D0, - & 0.06159D0, 0.07621D0, 0.09566D0, 0.11046D0, 0.12320D0, - & 0.13473D0, 0.15566D0, 0.18401D0, 0.22694D0, 0.26649D0, - & 0.33826D0, 0.40154D0, 0.45671D0, 0.51456D0, 0.56041D0, - & 0.59481D0, 0.61838D0, 0.63191D0, 0.63628D0, 0.63211D0, - & 0.62085D0, 0.60298D0, 0.57964D0, 0.55165D0, 0.51988D0, - & 0.48526D0, 0.44851D0, 0.41042D0, 0.37182D0, 0.33308D0, - & 0.29500D0, 0.25823D0, 0.22287D0, 0.15893D0, 0.10532D0, - & 0.06336D0, 0.03315D0, 0.00405D0, 0.00000D0/ - DATA (FMRS(2,1,I, 3),I=1,49)/ - & 0.01657D0, 0.02020D0, 0.02463D0, 0.02767D0, 0.03005D0, - & 0.03204D0, 0.03912D0, 0.04786D0, 0.05393D0, 0.05876D0, - & 0.06285D0, 0.07791D0, 0.09803D0, 0.11338D0, 0.12658D0, - & 0.13853D0, 0.16018D0, 0.18937D0, 0.23326D0, 0.27335D0, - & 0.34527D0, 0.40778D0, 0.46152D0, 0.51696D0, 0.55995D0, - & 0.59126D0, 0.61170D0, 0.62221D0, 0.62369D0, 0.61697D0, - & 0.60343D0, 0.58371D0, 0.55889D0, 0.52978D0, 0.49735D0, - & 0.46237D0, 0.42568D0, 0.38804D0, 0.35014D0, 0.31246D0, - & 0.27562D0, 0.24027D0, 0.20650D0, 0.14595D0, 0.09580D0, - & 0.05701D0, 0.02946D0, 0.00347D0, 0.00000D0/ - DATA (FMRS(2,1,I, 4),I=1,49)/ - & 0.01676D0, 0.02044D0, 0.02493D0, 0.02801D0, 0.03042D0, - & 0.03244D0, 0.03964D0, 0.04852D0, 0.05470D0, 0.05962D0, - & 0.06379D0, 0.07918D0, 0.09980D0, 0.11554D0, 0.12909D0, - & 0.14134D0, 0.16349D0, 0.19329D0, 0.23784D0, 0.27828D0, - & 0.35023D0, 0.41207D0, 0.46471D0, 0.51833D0, 0.55923D0, - & 0.58830D0, 0.60648D0, 0.61486D0, 0.61433D0, 0.60584D0, - & 0.59072D0, 0.56980D0, 0.54398D0, 0.51418D0, 0.48131D0, - & 0.44619D0, 0.40966D0, 0.37236D0, 0.33505D0, 0.29814D0, - & 0.26220D0, 0.22791D0, 0.19528D0, 0.13713D0, 0.08936D0, - & 0.05277D0, 0.02703D0, 0.00310D0, 0.00000D0/ - DATA (FMRS(2,1,I, 5),I=1,49)/ - & 0.01695D0, 0.02068D0, 0.02524D0, 0.02837D0, 0.03082D0, - & 0.03287D0, 0.04018D0, 0.04922D0, 0.05552D0, 0.06053D0, - & 0.06480D0, 0.08053D0, 0.10168D0, 0.11784D0, 0.13174D0, - & 0.14430D0, 0.16698D0, 0.19737D0, 0.24257D0, 0.28331D0, - & 0.35517D0, 0.41625D0, 0.46767D0, 0.51932D0, 0.55801D0, - & 0.58472D0, 0.60061D0, 0.60677D0, 0.60420D0, 0.59394D0, - & 0.57732D0, 0.55511D0, 0.52831D0, 0.49795D0, 0.46473D0, - & 0.42958D0, 0.39324D0, 0.35636D0, 0.31976D0, 0.28363D0, - & 0.24869D0, 0.21549D0, 0.18405D0, 0.12838D0, 0.08307D0, - & 0.04866D0, 0.02468D0, 0.00276D0, 0.00000D0/ - DATA (FMRS(2,1,I, 6),I=1,49)/ - & 0.01712D0, 0.02090D0, 0.02552D0, 0.02868D0, 0.03117D0, - & 0.03325D0, 0.04066D0, 0.04984D0, 0.05623D0, 0.06133D0, - & 0.06568D0, 0.08172D0, 0.10333D0, 0.11984D0, 0.13405D0, - & 0.14688D0, 0.17001D0, 0.20090D0, 0.24663D0, 0.28761D0, - & 0.35934D0, 0.41972D0, 0.47004D0, 0.51998D0, 0.55675D0, - & 0.58145D0, 0.59540D0, 0.59970D0, 0.59545D0, 0.58373D0, - & 0.56587D0, 0.54263D0, 0.51509D0, 0.48426D0, 0.45082D0, - & 0.41570D0, 0.37956D0, 0.34309D0, 0.30710D0, 0.27167D0, - & 0.23758D0, 0.20532D0, 0.17488D0, 0.12129D0, 0.07799D0, - & 0.04537D0, 0.02283D0, 0.00249D0, 0.00000D0/ - DATA (FMRS(2,1,I, 7),I=1,49)/ - & 0.01728D0, 0.02111D0, 0.02578D0, 0.02899D0, 0.03151D0, - & 0.03361D0, 0.04113D0, 0.05044D0, 0.05693D0, 0.06211D0, - & 0.06653D0, 0.08287D0, 0.10492D0, 0.12178D0, 0.13628D0, - & 0.14936D0, 0.17290D0, 0.20425D0, 0.25045D0, 0.29164D0, - & 0.36316D0, 0.42280D0, 0.47203D0, 0.52030D0, 0.55522D0, - & 0.57804D0, 0.59016D0, 0.59271D0, 0.58692D0, 0.57390D0, - & 0.55488D0, 0.53075D0, 0.50265D0, 0.47135D0, 0.43776D0, - & 0.40267D0, 0.36679D0, 0.33078D0, 0.29535D0, 0.26064D0, - & 0.22735D0, 0.19600D0, 0.16649D0, 0.11484D0, 0.07339D0, - & 0.04241D0, 0.02117D0, 0.00226D0, 0.00000D0/ - DATA (FMRS(2,1,I, 8),I=1,49)/ - & 0.01745D0, 0.02133D0, 0.02606D0, 0.02931D0, 0.03187D0, - & 0.03400D0, 0.04163D0, 0.05108D0, 0.05768D0, 0.06295D0, - & 0.06745D0, 0.08411D0, 0.10662D0, 0.12385D0, 0.13865D0, - & 0.15200D0, 0.17596D0, 0.20780D0, 0.25445D0, 0.29582D0, - & 0.36707D0, 0.42589D0, 0.47392D0, 0.52041D0, 0.55338D0, - & 0.57422D0, 0.58442D0, 0.58519D0, 0.57783D0, 0.56344D0, - & 0.54329D0, 0.51831D0, 0.48960D0, 0.45793D0, 0.42423D0, - & 0.38922D0, 0.35366D0, 0.31814D0, 0.28333D0, 0.24940D0, - & 0.21696D0, 0.18656D0, 0.15803D0, 0.10837D0, 0.06882D0, - & 0.03949D0, 0.01956D0, 0.00204D0, 0.00000D0/ - DATA (FMRS(2,1,I, 9),I=1,49)/ - & 0.01760D0, 0.02152D0, 0.02631D0, 0.02960D0, 0.03218D0, - & 0.03434D0, 0.04207D0, 0.05164D0, 0.05833D0, 0.06368D0, - & 0.06825D0, 0.08519D0, 0.10811D0, 0.12566D0, 0.14073D0, - & 0.15430D0, 0.17863D0, 0.21087D0, 0.25789D0, 0.29938D0, - & 0.37036D0, 0.42844D0, 0.47541D0, 0.52034D0, 0.55162D0, - & 0.57077D0, 0.57932D0, 0.57861D0, 0.56993D0, 0.55438D0, - & 0.53332D0, 0.50767D0, 0.47844D0, 0.44653D0, 0.41277D0, - & 0.37787D0, 0.34261D0, 0.30753D0, 0.27327D0, 0.24001D0, - & 0.20832D0, 0.17873D0, 0.15102D0, 0.10304D0, 0.06508D0, - & 0.03712D0, 0.01826D0, 0.00186D0, 0.00000D0/ - DATA (FMRS(2,1,I,10),I=1,49)/ - & 0.01775D0, 0.02171D0, 0.02655D0, 0.02988D0, 0.03249D0, - & 0.03468D0, 0.04249D0, 0.05219D0, 0.05897D0, 0.06440D0, - & 0.06904D0, 0.08625D0, 0.10956D0, 0.12741D0, 0.14273D0, - & 0.15651D0, 0.18119D0, 0.21379D0, 0.26115D0, 0.30273D0, - & 0.37339D0, 0.43070D0, 0.47663D0, 0.52004D0, 0.54971D0, - & 0.56723D0, 0.57424D0, 0.57214D0, 0.56221D0, 0.54564D0, - & 0.52375D0, 0.49748D0, 0.46783D0, 0.43572D0, 0.40192D0, - & 0.36718D0, 0.33221D0, 0.29755D0, 0.26385D0, 0.23124D0, - & 0.20028D0, 0.17145D0, 0.14454D0, 0.09813D0, 0.06166D0, - & 0.03497D0, 0.01708D0, 0.00171D0, 0.00000D0/ - DATA (FMRS(2,1,I,11),I=1,49)/ - & 0.01786D0, 0.02185D0, 0.02674D0, 0.03010D0, 0.03274D0, - & 0.03494D0, 0.04284D0, 0.05263D0, 0.05949D0, 0.06497D0, - & 0.06967D0, 0.08709D0, 0.11072D0, 0.12880D0, 0.14432D0, - & 0.15827D0, 0.18322D0, 0.21609D0, 0.26371D0, 0.30535D0, - & 0.37572D0, 0.43240D0, 0.47751D0, 0.51970D0, 0.54811D0, - & 0.56435D0, 0.57017D0, 0.56701D0, 0.55612D0, 0.53878D0, - & 0.51626D0, 0.48950D0, 0.45957D0, 0.42732D0, 0.39351D0, - & 0.35893D0, 0.32420D0, 0.28986D0, 0.25663D0, 0.22452D0, - & 0.19414D0, 0.16588D0, 0.13961D0, 0.09442D0, 0.05909D0, - & 0.03336D0, 0.01621D0, 0.00160D0, 0.00000D0/ - DATA (FMRS(2,1,I,12),I=1,49)/ - & 0.01811D0, 0.02217D0, 0.02715D0, 0.03057D0, 0.03326D0, - & 0.03551D0, 0.04357D0, 0.05358D0, 0.06059D0, 0.06620D0, - & 0.07102D0, 0.08890D0, 0.11320D0, 0.13179D0, 0.14772D0, - & 0.16201D0, 0.18751D0, 0.22095D0, 0.26905D0, 0.31076D0, - & 0.38043D0, 0.43573D0, 0.47902D0, 0.51865D0, 0.54434D0, - & 0.55794D0, 0.56131D0, 0.55592D0, 0.54308D0, 0.52418D0, - & 0.50041D0, 0.47277D0, 0.44227D0, 0.40979D0, 0.37605D0, - & 0.34185D0, 0.30765D0, 0.27411D0, 0.24188D0, 0.21085D0, - & 0.18166D0, 0.15463D0, 0.12966D0, 0.08698D0, 0.05397D0, - & 0.03017D0, 0.01449D0, 0.00138D0, 0.00000D0/ - DATA (FMRS(2,1,I,13),I=1,49)/ - & 0.01832D0, 0.02245D0, 0.02751D0, 0.03099D0, 0.03372D0, - & 0.03601D0, 0.04421D0, 0.05440D0, 0.06155D0, 0.06727D0, - & 0.07220D0, 0.09048D0, 0.11535D0, 0.13437D0, 0.15065D0, - & 0.16524D0, 0.19119D0, 0.22510D0, 0.27356D0, 0.31528D0, - & 0.38427D0, 0.43832D0, 0.48002D0, 0.51742D0, 0.54081D0, - & 0.55220D0, 0.55352D0, 0.54629D0, 0.53189D0, 0.51174D0, - & 0.48699D0, 0.45870D0, 0.42778D0, 0.39517D0, 0.36159D0, - & 0.32774D0, 0.29406D0, 0.26124D0, 0.22984D0, 0.19975D0, - & 0.17155D0, 0.14556D0, 0.12166D0, 0.08107D0, 0.04993D0, - & 0.02767D0, 0.01316D0, 0.00122D0, 0.00000D0/ - DATA (FMRS(2,1,I,14),I=1,49)/ - & 0.01856D0, 0.02276D0, 0.02791D0, 0.03145D0, 0.03424D0, - & 0.03657D0, 0.04493D0, 0.05533D0, 0.06263D0, 0.06849D0, - & 0.07353D0, 0.09227D0, 0.11778D0, 0.13727D0, 0.15393D0, - & 0.16884D0, 0.19528D0, 0.22966D0, 0.27847D0, 0.32014D0, - & 0.38833D0, 0.44089D0, 0.48079D0, 0.51572D0, 0.53660D0, - & 0.54555D0, 0.54466D0, 0.53550D0, 0.51948D0, 0.49806D0, - & 0.47232D0, 0.44337D0, 0.41209D0, 0.37941D0, 0.34606D0, - & 0.31264D0, 0.27962D0, 0.24761D0, 0.21707D0, 0.18804D0, - & 0.16093D0, 0.13609D0, 0.11331D0, 0.07496D0, 0.04577D0, - & 0.02513D0, 0.01183D0, 0.00106D0, 0.00000D0/ - DATA (FMRS(2,1,I,15),I=1,49)/ - & 0.01882D0, 0.02309D0, 0.02833D0, 0.03194D0, 0.03478D0, - & 0.03716D0, 0.04569D0, 0.05632D0, 0.06378D0, 0.06977D0, - & 0.07493D0, 0.09414D0, 0.12031D0, 0.14028D0, 0.15732D0, - & 0.17254D0, 0.19946D0, 0.23430D0, 0.28337D0, 0.32492D0, - & 0.39212D0, 0.44309D0, 0.48109D0, 0.51344D0, 0.53176D0, - & 0.53830D0, 0.53520D0, 0.52410D0, 0.50654D0, 0.48389D0, - & 0.45725D0, 0.42772D0, 0.39621D0, 0.36351D0, 0.33050D0, - & 0.29757D0, 0.26525D0, 0.23404D0, 0.20451D0, 0.17653D0, - & 0.15059D0, 0.12691D0, 0.10526D0, 0.06909D0, 0.04183D0, - & 0.02276D0, 0.01059D0, 0.00092D0, 0.00000D0/ - DATA (FMRS(2,1,I,16),I=1,49)/ - & 0.01904D0, 0.02338D0, 0.02872D0, 0.03239D0, 0.03528D0, - & 0.03770D0, 0.04639D0, 0.05722D0, 0.06483D0, 0.07094D0, - & 0.07621D0, 0.09585D0, 0.12261D0, 0.14301D0, 0.16039D0, - & 0.17588D0, 0.20321D0, 0.23842D0, 0.28769D0, 0.32908D0, - & 0.39530D0, 0.44481D0, 0.48105D0, 0.51110D0, 0.52712D0, - & 0.53155D0, 0.52655D0, 0.51382D0, 0.49491D0, 0.47126D0, - & 0.44390D0, 0.41395D0, 0.38228D0, 0.34968D0, 0.31695D0, - & 0.28453D0, 0.25288D0, 0.22245D0, 0.19380D0, 0.16677D0, - & 0.14180D0, 0.11912D0, 0.09847D0, 0.06418D0, 0.03856D0, - & 0.02081D0, 0.00959D0, 0.00081D0, 0.00000D0/ - DATA (FMRS(2,1,I,17),I=1,49)/ - & 0.01928D0, 0.02369D0, 0.02911D0, 0.03284D0, 0.03578D0, - & 0.03825D0, 0.04709D0, 0.05813D0, 0.06589D0, 0.07213D0, - & 0.07751D0, 0.09758D0, 0.12493D0, 0.14576D0, 0.16348D0, - & 0.17924D0, 0.20696D0, 0.24251D0, 0.29193D0, 0.33312D0, - & 0.39831D0, 0.44629D0, 0.48077D0, 0.50852D0, 0.52228D0, - & 0.52463D0, 0.51781D0, 0.50355D0, 0.48335D0, 0.45879D0, - & 0.43078D0, 0.40049D0, 0.36872D0, 0.33629D0, 0.30386D0, - & 0.27197D0, 0.24101D0, 0.21137D0, 0.18360D0, 0.15751D0, - & 0.13349D0, 0.11178D0, 0.09210D0, 0.05961D0, 0.03555D0, - & 0.01901D0, 0.00868D0, 0.00071D0, 0.00000D0/ - DATA (FMRS(2,1,I,18),I=1,49)/ - & 0.01947D0, 0.02394D0, 0.02943D0, 0.03322D0, 0.03621D0, - & 0.03871D0, 0.04769D0, 0.05889D0, 0.06678D0, 0.07312D0, - & 0.07860D0, 0.09903D0, 0.12687D0, 0.14804D0, 0.16603D0, - & 0.18199D0, 0.21002D0, 0.24583D0, 0.29534D0, 0.33632D0, - & 0.40060D0, 0.44729D0, 0.48029D0, 0.50614D0, 0.51810D0, - & 0.51876D0, 0.51049D0, 0.49502D0, 0.47387D0, 0.44861D0, - & 0.42013D0, 0.38960D0, 0.35780D0, 0.32553D0, 0.29342D0, - & 0.26197D0, 0.23158D0, 0.20258D0, 0.17557D0, 0.15022D0, - & 0.12699D0, 0.10608D0, 0.08715D0, 0.05607D0, 0.03324D0, - & 0.01765D0, 0.00799D0, 0.00064D0, 0.00000D0/ - DATA (FMRS(2,1,I,19),I=1,49)/ - & 0.01970D0, 0.02424D0, 0.02983D0, 0.03369D0, 0.03672D0, - & 0.03927D0, 0.04841D0, 0.05983D0, 0.06787D0, 0.07433D0, - & 0.07993D0, 0.10079D0, 0.12921D0, 0.15080D0, 0.16909D0, - & 0.18531D0, 0.21368D0, 0.24977D0, 0.29932D0, 0.34002D0, - & 0.40312D0, 0.44820D0, 0.47944D0, 0.50301D0, 0.51281D0, - & 0.51154D0, 0.50156D0, 0.48470D0, 0.46252D0, 0.43645D0, - & 0.40748D0, 0.37672D0, 0.34495D0, 0.31293D0, 0.28123D0, - & 0.25036D0, 0.22064D0, 0.19244D0, 0.16630D0, 0.14187D0, - & 0.11955D0, 0.09954D0, 0.08152D0, 0.05209D0, 0.03065D0, - & 0.01614D0, 0.00723D0, 0.00056D0, 0.00000D0/ - DATA (FMRS(2,1,I,20),I=1,49)/ - & 0.01991D0, 0.02452D0, 0.03019D0, 0.03410D0, 0.03718D0, - & 0.03977D0, 0.04905D0, 0.06066D0, 0.06884D0, 0.07541D0, - & 0.08111D0, 0.10235D0, 0.13129D0, 0.15323D0, 0.17180D0, - & 0.18822D0, 0.21689D0, 0.25320D0, 0.30276D0, 0.34318D0, - & 0.40521D0, 0.44885D0, 0.47855D0, 0.50013D0, 0.50806D0, - & 0.50515D0, 0.49374D0, 0.47571D0, 0.45269D0, 0.42596D0, - & 0.39662D0, 0.36569D0, 0.33399D0, 0.30222D0, 0.27090D0, - & 0.24056D0, 0.21144D0, 0.18393D0, 0.15855D0, 0.13491D0, - & 0.11336D0, 0.09413D0, 0.07687D0, 0.04883D0, 0.02854D0, - & 0.01493D0, 0.00663D0, 0.00051D0, 0.00000D0/ - DATA (FMRS(2,1,I,21),I=1,49)/ - & 0.02011D0, 0.02477D0, 0.03051D0, 0.03448D0, 0.03760D0, - & 0.04023D0, 0.04965D0, 0.06143D0, 0.06973D0, 0.07641D0, - & 0.08220D0, 0.10379D0, 0.13319D0, 0.15544D0, 0.17424D0, - & 0.19085D0, 0.21976D0, 0.25625D0, 0.30577D0, 0.34590D0, - & 0.40689D0, 0.44921D0, 0.47746D0, 0.49725D0, 0.50352D0, - & 0.49914D0, 0.48649D0, 0.46748D0, 0.44367D0, 0.41645D0, - & 0.38678D0, 0.35582D0, 0.32417D0, 0.29264D0, 0.26169D0, - & 0.23187D0, 0.20335D0, 0.17646D0, 0.15176D0, 0.12881D0, - & 0.10798D0, 0.08943D0, 0.07284D0, 0.04602D0, 0.02675D0, - & 0.01389D0, 0.00613D0, 0.00046D0, 0.00000D0/ - DATA (FMRS(2,1,I,22),I=1,49)/ - & 0.02035D0, 0.02509D0, 0.03093D0, 0.03496D0, 0.03814D0, - & 0.04081D0, 0.05040D0, 0.06241D0, 0.07087D0, 0.07768D0, - & 0.08359D0, 0.10562D0, 0.13559D0, 0.15824D0, 0.17734D0, - & 0.19417D0, 0.22338D0, 0.26006D0, 0.30949D0, 0.34920D0, - & 0.40885D0, 0.44948D0, 0.47592D0, 0.49348D0, 0.49770D0, - & 0.49152D0, 0.47736D0, 0.45716D0, 0.43246D0, 0.40467D0, - & 0.37468D0, 0.34367D0, 0.31217D0, 0.28097D0, 0.25052D0, - & 0.22133D0, 0.19355D0, 0.16747D0, 0.14359D0, 0.12150D0, - & 0.10155D0, 0.08384D0, 0.06806D0, 0.04272D0, 0.02464D0, - & 0.01269D0, 0.00554D0, 0.00040D0, 0.00000D0/ - DATA (FMRS(2,1,I,23),I=1,49)/ - & 0.02058D0, 0.02539D0, 0.03132D0, 0.03542D0, 0.03865D0, - & 0.04137D0, 0.05112D0, 0.06333D0, 0.07195D0, 0.07888D0, - & 0.08490D0, 0.10735D0, 0.13786D0, 0.16087D0, 0.18023D0, - & 0.19726D0, 0.22673D0, 0.26356D0, 0.31287D0, 0.35216D0, - & 0.41052D0, 0.44953D0, 0.47430D0, 0.48980D0, 0.49215D0, - & 0.48435D0, 0.46885D0, 0.44758D0, 0.42215D0, 0.39387D0, - & 0.36366D0, 0.33261D0, 0.30132D0, 0.27045D0, 0.24050D0, - & 0.21190D0, 0.18476D0, 0.15947D0, 0.13635D0, 0.11504D0, - & 0.09587D0, 0.07894D0, 0.06387D0, 0.03984D0, 0.02282D0, - & 0.01167D0, 0.00505D0, 0.00036D0, 0.00000D0/ - DATA (FMRS(2,1,I,24),I=1,49)/ - & 0.02080D0, 0.02568D0, 0.03170D0, 0.03585D0, 0.03914D0, - & 0.04189D0, 0.05180D0, 0.06421D0, 0.07296D0, 0.08001D0, - & 0.08614D0, 0.10897D0, 0.13997D0, 0.16330D0, 0.18290D0, - & 0.20010D0, 0.22978D0, 0.26672D0, 0.31586D0, 0.35473D0, - & 0.41182D0, 0.44931D0, 0.47248D0, 0.48612D0, 0.48676D0, - & 0.47750D0, 0.46081D0, 0.43866D0, 0.41258D0, 0.38389D0, - & 0.35352D0, 0.32245D0, 0.29140D0, 0.26089D0, 0.23143D0, - & 0.20340D0, 0.17690D0, 0.15229D0, 0.12990D0, 0.10931D0, - & 0.09084D0, 0.07461D0, 0.06021D0, 0.03734D0, 0.02125D0, - & 0.01078D0, 0.00462D0, 0.00032D0, 0.00000D0/ - DATA (FMRS(2,1,I,25),I=1,49)/ - & 0.02102D0, 0.02596D0, 0.03207D0, 0.03629D0, 0.03962D0, - & 0.04242D0, 0.05248D0, 0.06508D0, 0.07398D0, 0.08115D0, - & 0.08738D0, 0.11059D0, 0.14207D0, 0.16573D0, 0.18556D0, - & 0.20292D0, 0.23281D0, 0.26985D0, 0.31879D0, 0.35722D0, - & 0.41303D0, 0.44900D0, 0.47060D0, 0.48240D0, 0.48138D0, - & 0.47074D0, 0.45292D0, 0.42993D0, 0.40324D0, 0.37421D0, - & 0.34370D0, 0.31266D0, 0.28186D0, 0.25172D0, 0.22275D0, - & 0.19528D0, 0.16943D0, 0.14547D0, 0.12379D0, 0.10391D0, - & 0.08611D0, 0.07055D0, 0.05678D0, 0.03501D0, 0.01980D0, - & 0.00997D0, 0.00424D0, 0.00029D0, 0.00000D0/ - DATA (FMRS(2,1,I,26),I=1,49)/ - & 0.02124D0, 0.02625D0, 0.03244D0, 0.03672D0, 0.04010D0, - & 0.04294D0, 0.05315D0, 0.06595D0, 0.07499D0, 0.08227D0, - & 0.08860D0, 0.11218D0, 0.14413D0, 0.16809D0, 0.18813D0, - & 0.20564D0, 0.23571D0, 0.27281D0, 0.32152D0, 0.35948D0, - & 0.41398D0, 0.44847D0, 0.46857D0, 0.47858D0, 0.47599D0, - & 0.46404D0, 0.44519D0, 0.42139D0, 0.39420D0, 0.36490D0, - & 0.33431D0, 0.30337D0, 0.27282D0, 0.24304D0, 0.21455D0, - & 0.18765D0, 0.16244D0, 0.13911D0, 0.11808D0, 0.09890D0, - & 0.08174D0, 0.06681D0, 0.05361D0, 0.03286D0, 0.01847D0, - & 0.00924D0, 0.00390D0, 0.00026D0, 0.00000D0/ - DATA (FMRS(2,1,I,27),I=1,49)/ - & 0.02145D0, 0.02652D0, 0.03279D0, 0.03713D0, 0.04055D0, - & 0.04343D0, 0.05378D0, 0.06677D0, 0.07594D0, 0.08333D0, - & 0.08975D0, 0.11368D0, 0.14607D0, 0.17031D0, 0.19054D0, - & 0.20819D0, 0.23841D0, 0.27555D0, 0.32402D0, 0.36153D0, - & 0.41478D0, 0.44786D0, 0.46655D0, 0.47490D0, 0.47088D0, - & 0.45773D0, 0.43795D0, 0.41346D0, 0.38583D0, 0.35628D0, - & 0.32564D0, 0.29483D0, 0.26454D0, 0.23512D0, 0.20709D0, - & 0.18074D0, 0.15610D0, 0.13337D0, 0.11295D0, 0.09439D0, - & 0.07783D0, 0.06346D0, 0.05079D0, 0.03096D0, 0.01730D0, - & 0.00860D0, 0.00360D0, 0.00023D0, 0.00000D0/ - DATA (FMRS(2,1,I,28),I=1,49)/ - & 0.02164D0, 0.02677D0, 0.03312D0, 0.03751D0, 0.04098D0, - & 0.04390D0, 0.05439D0, 0.06755D0, 0.07684D0, 0.08433D0, - & 0.09084D0, 0.11510D0, 0.14789D0, 0.17239D0, 0.19279D0, - & 0.21056D0, 0.24091D0, 0.27806D0, 0.32630D0, 0.36334D0, - & 0.41540D0, 0.44716D0, 0.46451D0, 0.47135D0, 0.46602D0, - & 0.45177D0, 0.43117D0, 0.40606D0, 0.37805D0, 0.34829D0, - & 0.31763D0, 0.28699D0, 0.25693D0, 0.22788D0, 0.20031D0, - & 0.17447D0, 0.15036D0, 0.12818D0, 0.10834D0, 0.09032D0, - & 0.07432D0, 0.06046D0, 0.04827D0, 0.02929D0, 0.01628D0, - & 0.00804D0, 0.00334D0, 0.00021D0, 0.00000D0/ - DATA (FMRS(2,1,I,29),I=1,49)/ - & 0.02184D0, 0.02703D0, 0.03346D0, 0.03790D0, 0.04142D0, - & 0.04437D0, 0.05500D0, 0.06833D0, 0.07775D0, 0.08534D0, - & 0.09195D0, 0.11653D0, 0.14972D0, 0.17447D0, 0.19503D0, - & 0.21292D0, 0.24339D0, 0.28054D0, 0.32851D0, 0.36507D0, - & 0.41592D0, 0.44635D0, 0.46240D0, 0.46773D0, 0.46111D0, - & 0.44581D0, 0.42442D0, 0.39875D0, 0.37037D0, 0.34044D0, - & 0.30980D0, 0.27932D0, 0.24952D0, 0.22085D0, 0.19375D0, - & 0.16840D0, 0.14482D0, 0.12320D0, 0.10392D0, 0.08643D0, - & 0.07097D0, 0.05759D0, 0.04588D0, 0.02770D0, 0.01531D0, - & 0.00752D0, 0.00311D0, 0.00019D0, 0.00000D0/ - DATA (FMRS(2,1,I,30),I=1,49)/ - & 0.02204D0, 0.02729D0, 0.03379D0, 0.03829D0, 0.04185D0, - & 0.04484D0, 0.05560D0, 0.06911D0, 0.07865D0, 0.08634D0, - & 0.09303D0, 0.11793D0, 0.15151D0, 0.17649D0, 0.19722D0, - & 0.21521D0, 0.24577D0, 0.28291D0, 0.33057D0, 0.36667D0, - & 0.41631D0, 0.44543D0, 0.46021D0, 0.46408D0, 0.45622D0, - & 0.43995D0, 0.41780D0, 0.39163D0, 0.36293D0, 0.33287D0, - & 0.30229D0, 0.27195D0, 0.24246D0, 0.21416D0, 0.18750D0, - & 0.16265D0, 0.13957D0, 0.11850D0, 0.09976D0, 0.08278D0, - & 0.06783D0, 0.05492D0, 0.04366D0, 0.02623D0, 0.01442D0, - & 0.00705D0, 0.00289D0, 0.00017D0, 0.00000D0/ - DATA (FMRS(2,1,I,31),I=1,49)/ - & 0.02222D0, 0.02753D0, 0.03410D0, 0.03866D0, 0.04226D0, - & 0.04528D0, 0.05617D0, 0.06985D0, 0.07951D0, 0.08729D0, - & 0.09407D0, 0.11927D0, 0.15320D0, 0.17841D0, 0.19928D0, - & 0.21737D0, 0.24802D0, 0.28513D0, 0.33249D0, 0.36812D0, - & 0.41660D0, 0.44449D0, 0.45808D0, 0.46059D0, 0.45160D0, - & 0.43442D0, 0.41159D0, 0.38497D0, 0.35599D0, 0.32584D0, - & 0.29532D0, 0.26514D0, 0.23594D0, 0.20800D0, 0.18176D0, - & 0.15738D0, 0.13478D0, 0.11421D0, 0.09597D0, 0.07947D0, - & 0.06498D0, 0.05251D0, 0.04166D0, 0.02491D0, 0.01363D0, - & 0.00662D0, 0.00270D0, 0.00016D0, 0.00000D0/ - DATA (FMRS(2,1,I,32),I=1,49)/ - & 0.02240D0, 0.02776D0, 0.03441D0, 0.03901D0, 0.04265D0, - & 0.04571D0, 0.05672D0, 0.07055D0, 0.08032D0, 0.08819D0, - & 0.09505D0, 0.12053D0, 0.15480D0, 0.18021D0, 0.20120D0, - & 0.21937D0, 0.25009D0, 0.28716D0, 0.33421D0, 0.36938D0, - & 0.41675D0, 0.44346D0, 0.45593D0, 0.45721D0, 0.44717D0, - & 0.42917D0, 0.40572D0, 0.37869D0, 0.34947D0, 0.31928D0, - & 0.28882D0, 0.25885D0, 0.22992D0, 0.20233D0, 0.17646D0, - & 0.15252D0, 0.13038D0, 0.11028D0, 0.09251D0, 0.07647D0, - & 0.06240D0, 0.05033D0, 0.03984D0, 0.02372D0, 0.01293D0, - & 0.00625D0, 0.00253D0, 0.00015D0, 0.00000D0/ - DATA (FMRS(2,1,I,33),I=1,49)/ - & 0.02258D0, 0.02800D0, 0.03471D0, 0.03936D0, 0.04304D0, - & 0.04613D0, 0.05727D0, 0.07126D0, 0.08114D0, 0.08911D0, - & 0.09604D0, 0.12181D0, 0.15642D0, 0.18202D0, 0.20315D0, - & 0.22140D0, 0.25219D0, 0.28920D0, 0.33594D0, 0.37065D0, - & 0.41690D0, 0.44243D0, 0.45378D0, 0.45384D0, 0.44278D0, - & 0.42397D0, 0.39993D0, 0.37250D0, 0.34307D0, 0.31283D0, - & 0.28245D0, 0.25269D0, 0.22404D0, 0.19681D0, 0.17131D0, - & 0.14780D0, 0.12613D0, 0.10648D0, 0.08918D0, 0.07357D0, - & 0.05991D0, 0.04824D0, 0.03811D0, 0.02259D0, 0.01226D0, - & 0.00589D0, 0.00237D0, 0.00014D0, 0.00000D0/ - DATA (FMRS(2,1,I,34),I=1,49)/ - & 0.02276D0, 0.02823D0, 0.03502D0, 0.03972D0, 0.04344D0, - & 0.04656D0, 0.05782D0, 0.07197D0, 0.08196D0, 0.09001D0, - & 0.09702D0, 0.12306D0, 0.15799D0, 0.18378D0, 0.20502D0, - & 0.22334D0, 0.25418D0, 0.29111D0, 0.33751D0, 0.37174D0, - & 0.41686D0, 0.44123D0, 0.45149D0, 0.45035D0, 0.43832D0, - & 0.41874D0, 0.39416D0, 0.36638D0, 0.33679D0, 0.30651D0, - & 0.27625D0, 0.24670D0, 0.21831D0, 0.19144D0, 0.16636D0, - & 0.14329D0, 0.12204D0, 0.10286D0, 0.08597D0, 0.07080D0, - & 0.05755D0, 0.04624D0, 0.03646D0, 0.02153D0, 0.01162D0, - & 0.00556D0, 0.00222D0, 0.00012D0, 0.00000D0/ - DATA (FMRS(2,1,I,35),I=1,49)/ - & 0.02294D0, 0.02846D0, 0.03531D0, 0.04006D0, 0.04381D0, - & 0.04697D0, 0.05834D0, 0.07264D0, 0.08274D0, 0.09087D0, - & 0.09796D0, 0.12426D0, 0.15949D0, 0.18547D0, 0.20682D0, - & 0.22520D0, 0.25608D0, 0.29293D0, 0.33900D0, 0.37277D0, - & 0.41683D0, 0.44010D0, 0.44933D0, 0.44706D0, 0.43413D0, - & 0.41383D0, 0.38877D0, 0.36068D0, 0.33093D0, 0.30063D0, - & 0.27049D0, 0.24114D0, 0.21302D0, 0.18649D0, 0.16180D0, - & 0.13914D0, 0.11828D0, 0.09955D0, 0.08303D0, 0.06826D0, - & 0.05540D0, 0.04443D0, 0.03497D0, 0.02057D0, 0.01106D0, - & 0.00526D0, 0.00209D0, 0.00012D0, 0.00000D0/ - DATA (FMRS(2,1,I,36),I=1,49)/ - & 0.02310D0, 0.02867D0, 0.03558D0, 0.04038D0, 0.04417D0, - & 0.04736D0, 0.05885D0, 0.07328D0, 0.08348D0, 0.09170D0, - & 0.09885D0, 0.12540D0, 0.16092D0, 0.18705D0, 0.20850D0, - & 0.22693D0, 0.25784D0, 0.29461D0, 0.34036D0, 0.37368D0, - & 0.41672D0, 0.43895D0, 0.44722D0, 0.44390D0, 0.43013D0, - & 0.40920D0, 0.38369D0, 0.35531D0, 0.32545D0, 0.29515D0, - & 0.26511D0, 0.23598D0, 0.20812D0, 0.18191D0, 0.15758D0, - & 0.13530D0, 0.11483D0, 0.09649D0, 0.08034D0, 0.06595D0, - & 0.05344D0, 0.04278D0, 0.03361D0, 0.01970D0, 0.01054D0, - & 0.00499D0, 0.00197D0, 0.00011D0, 0.00000D0/ - DATA (FMRS(2,1,I,37),I=1,49)/ - & 0.02327D0, 0.02889D0, 0.03587D0, 0.04071D0, 0.04453D0, - & 0.04775D0, 0.05935D0, 0.07393D0, 0.08423D0, 0.09253D0, - & 0.09975D0, 0.12655D0, 0.16235D0, 0.18864D0, 0.21018D0, - & 0.22866D0, 0.25959D0, 0.29626D0, 0.34166D0, 0.37452D0, - & 0.41652D0, 0.43771D0, 0.44502D0, 0.44067D0, 0.42606D0, - & 0.40453D0, 0.37859D0, 0.34994D0, 0.31996D0, 0.28968D0, - & 0.25976D0, 0.23084D0, 0.20328D0, 0.17738D0, 0.15341D0, - & 0.13150D0, 0.11145D0, 0.09348D0, 0.07773D0, 0.06369D0, - & 0.05153D0, 0.04117D0, 0.03229D0, 0.01885D0, 0.01005D0, - & 0.00474D0, 0.00186D0, 0.00010D0, 0.00000D0/ - DATA (FMRS(2,1,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,2,I, 1),I=1,49)/ - & 0.00683D0, 0.00832D0, 0.01013D0, 0.01138D0, 0.01237D0, - & 0.01320D0, 0.01619D0, 0.02004D0, 0.02286D0, 0.02522D0, - & 0.02744D0, 0.03623D0, 0.04952D0, 0.06032D0, 0.06982D0, - & 0.07843D0, 0.09385D0, 0.11395D0, 0.14220D0, 0.16592D0, - & 0.20382D0, 0.23228D0, 0.25344D0, 0.27158D0, 0.28216D0, - & 0.28647D0, 0.28570D0, 0.28068D0, 0.27216D0, 0.26127D0, - & 0.24773D0, 0.23281D0, 0.21663D0, 0.19968D0, 0.18252D0, - & 0.16522D0, 0.14809D0, 0.13153D0, 0.11576D0, 0.10050D0, - & 0.08631D0, 0.07335D0, 0.06127D0, 0.04098D0, 0.02531D0, - & 0.01409D0, 0.00672D0, 0.00064D0, 0.00000D0/ - DATA (FMRS(2,2,I, 2),I=1,49)/ - & 0.00687D0, 0.00838D0, 0.01023D0, 0.01151D0, 0.01252D0, - & 0.01336D0, 0.01643D0, 0.02037D0, 0.02327D0, 0.02569D0, - & 0.02797D0, 0.03698D0, 0.05059D0, 0.06162D0, 0.07129D0, - & 0.08004D0, 0.09567D0, 0.11595D0, 0.14429D0, 0.16793D0, - & 0.20539D0, 0.23318D0, 0.25356D0, 0.27069D0, 0.28025D0, - & 0.28363D0, 0.28200D0, 0.27624D0, 0.26713D0, 0.25572D0, - & 0.24185D0, 0.22669D0, 0.21040D0, 0.19345D0, 0.17637D0, - & 0.15928D0, 0.14242D0, 0.12615D0, 0.11076D0, 0.09591D0, - & 0.08215D0, 0.06963D0, 0.05800D0, 0.03856D0, 0.02367D0, - & 0.01309D0, 0.00619D0, 0.00057D0, 0.00000D0/ - DATA (FMRS(2,2,I, 3),I=1,49)/ - & 0.00693D0, 0.00848D0, 0.01038D0, 0.01170D0, 0.01274D0, - & 0.01362D0, 0.01679D0, 0.02088D0, 0.02389D0, 0.02641D0, - & 0.02877D0, 0.03812D0, 0.05220D0, 0.06356D0, 0.07349D0, - & 0.08244D0, 0.09836D0, 0.11888D0, 0.14732D0, 0.17082D0, - & 0.20757D0, 0.23434D0, 0.25356D0, 0.26918D0, 0.27725D0, - & 0.27927D0, 0.27642D0, 0.26960D0, 0.25969D0, 0.24758D0, - & 0.23327D0, 0.21778D0, 0.20136D0, 0.18446D0, 0.16756D0, - & 0.15079D0, 0.13434D0, 0.11852D0, 0.10371D0, 0.08946D0, - & 0.07631D0, 0.06442D0, 0.05345D0, 0.03522D0, 0.02142D0, - & 0.01172D0, 0.00548D0, 0.00049D0, 0.00000D0/ - DATA (FMRS(2,2,I, 4),I=1,49)/ - & 0.00697D0, 0.00855D0, 0.01050D0, 0.01184D0, 0.01291D0, - & 0.01380D0, 0.01706D0, 0.02126D0, 0.02435D0, 0.02694D0, - & 0.02937D0, 0.03897D0, 0.05339D0, 0.06499D0, 0.07510D0, - & 0.08419D0, 0.10031D0, 0.12100D0, 0.14949D0, 0.17285D0, - & 0.20905D0, 0.23506D0, 0.25342D0, 0.26794D0, 0.27493D0, - & 0.27599D0, 0.27230D0, 0.26475D0, 0.25426D0, 0.24171D0, - & 0.22712D0, 0.21140D0, 0.19495D0, 0.17811D0, 0.16138D0, - & 0.14485D0, 0.12869D0, 0.11323D0, 0.09881D0, 0.08500D0, - & 0.07230D0, 0.06086D0, 0.05034D0, 0.03297D0, 0.01992D0, - & 0.01081D0, 0.00501D0, 0.00044D0, 0.00000D0/ - DATA (FMRS(2,2,I, 5),I=1,49)/ - & 0.00702D0, 0.00863D0, 0.01062D0, 0.01200D0, 0.01309D0, - & 0.01401D0, 0.01735D0, 0.02167D0, 0.02485D0, 0.02751D0, - & 0.03001D0, 0.03988D0, 0.05465D0, 0.06649D0, 0.07678D0, - & 0.08602D0, 0.10233D0, 0.12317D0, 0.15168D0, 0.17488D0, - & 0.21046D0, 0.23564D0, 0.25309D0, 0.26645D0, 0.27234D0, - & 0.27243D0, 0.26786D0, 0.25959D0, 0.24854D0, 0.23557D0, - & 0.22068D0, 0.20486D0, 0.18841D0, 0.17163D0, 0.15506D0, - & 0.13880D0, 0.12296D0, 0.10788D0, 0.09387D0, 0.08052D0, - & 0.06829D0, 0.05730D0, 0.04726D0, 0.03074D0, 0.01844D0, - & 0.00993D0, 0.00456D0, 0.00039D0, 0.00000D0/ - DATA (FMRS(2,2,I, 6),I=1,49)/ - & 0.00706D0, 0.00870D0, 0.01073D0, 0.01213D0, 0.01325D0, - & 0.01419D0, 0.01761D0, 0.02203D0, 0.02528D0, 0.02801D0, - & 0.03057D0, 0.04067D0, 0.05575D0, 0.06780D0, 0.07825D0, - & 0.08760D0, 0.10408D0, 0.12504D0, 0.15354D0, 0.17659D0, - & 0.21162D0, 0.23607D0, 0.25274D0, 0.26511D0, 0.27006D0, - & 0.26933D0, 0.26403D0, 0.25518D0, 0.24367D0, 0.23035D0, - & 0.21525D0, 0.19935D0, 0.18289D0, 0.16620D0, 0.14980D0, - & 0.13377D0, 0.11822D0, 0.10346D0, 0.08981D0, 0.07685D0, - & 0.06502D0, 0.05441D0, 0.04475D0, 0.02894D0, 0.01725D0, - & 0.00923D0, 0.00420D0, 0.00035D0, 0.00000D0/ - DATA (FMRS(2,2,I, 7),I=1,49)/ - & 0.00711D0, 0.00877D0, 0.01083D0, 0.01227D0, 0.01340D0, - & 0.01436D0, 0.01785D0, 0.02237D0, 0.02570D0, 0.02850D0, - & 0.03112D0, 0.04143D0, 0.05680D0, 0.06905D0, 0.07964D0, - & 0.08911D0, 0.10573D0, 0.12679D0, 0.15527D0, 0.17816D0, - & 0.21263D0, 0.23638D0, 0.25229D0, 0.26373D0, 0.26781D0, - & 0.26630D0, 0.26033D0, 0.25095D0, 0.23903D0, 0.22536D0, - & 0.21011D0, 0.19416D0, 0.17766D0, 0.16111D0, 0.14488D0, - & 0.12910D0, 0.11382D0, 0.09936D0, 0.08606D0, 0.07347D0, - & 0.06201D0, 0.05178D0, 0.04247D0, 0.02732D0, 0.01619D0, - & 0.00860D0, 0.00389D0, 0.00031D0, 0.00000D0/ - DATA (FMRS(2,2,I, 8),I=1,49)/ - & 0.00716D0, 0.00885D0, 0.01095D0, 0.01241D0, 0.01357D0, - & 0.01455D0, 0.01812D0, 0.02275D0, 0.02616D0, 0.02902D0, - & 0.03170D0, 0.04225D0, 0.05792D0, 0.07038D0, 0.08112D0, - & 0.09070D0, 0.10747D0, 0.12863D0, 0.15707D0, 0.17976D0, - & 0.21362D0, 0.23661D0, 0.25172D0, 0.26218D0, 0.26535D0, - & 0.26303D0, 0.25640D0, 0.24647D0, 0.23413D0, 0.22018D0, - & 0.20477D0, 0.18875D0, 0.17228D0, 0.15585D0, 0.13983D0, - & 0.12430D0, 0.10932D0, 0.09519D0, 0.08225D0, 0.07005D0, - & 0.05898D0, 0.04912D0, 0.04018D0, 0.02570D0, 0.01514D0, - & 0.00799D0, 0.00358D0, 0.00028D0, 0.00000D0/ - DATA (FMRS(2,2,I, 9),I=1,49)/ - & 0.00720D0, 0.00891D0, 0.01105D0, 0.01254D0, 0.01372D0, - & 0.01472D0, 0.01836D0, 0.02308D0, 0.02656D0, 0.02948D0, - & 0.03221D0, 0.04297D0, 0.05891D0, 0.07154D0, 0.08241D0, - & 0.09208D0, 0.10897D0, 0.13020D0, 0.15860D0, 0.18111D0, - & 0.21443D0, 0.23674D0, 0.25116D0, 0.26078D0, 0.26316D0, - & 0.26017D0, 0.25299D0, 0.24260D0, 0.22991D0, 0.21577D0, - & 0.20023D0, 0.18414D0, 0.16776D0, 0.15141D0, 0.13557D0, - & 0.12027D0, 0.10555D0, 0.09171D0, 0.07908D0, 0.06721D0, - & 0.05646D0, 0.04691D0, 0.03829D0, 0.02437D0, 0.01428D0, - & 0.00749D0, 0.00333D0, 0.00026D0, 0.00000D0/ - DATA (FMRS(2,2,I,10),I=1,49)/ - & 0.00724D0, 0.00898D0, 0.01115D0, 0.01266D0, 0.01386D0, - & 0.01488D0, 0.01859D0, 0.02340D0, 0.02695D0, 0.02993D0, - & 0.03271D0, 0.04366D0, 0.05985D0, 0.07265D0, 0.08364D0, - & 0.09340D0, 0.11040D0, 0.13168D0, 0.16002D0, 0.18235D0, - & 0.21512D0, 0.23679D0, 0.25054D0, 0.25935D0, 0.26099D0, - & 0.25738D0, 0.24967D0, 0.23885D0, 0.22588D0, 0.21153D0, - & 0.19588D0, 0.17977D0, 0.16345D0, 0.14723D0, 0.13156D0, - & 0.11648D0, 0.10202D0, 0.08846D0, 0.07613D0, 0.06457D0, - & 0.05413D0, 0.04488D0, 0.03655D0, 0.02315D0, 0.01349D0, - & 0.00703D0, 0.00311D0, 0.00024D0, 0.00000D0/ - DATA (FMRS(2,2,I,11),I=1,49)/ - & 0.00727D0, 0.00904D0, 0.01123D0, 0.01276D0, 0.01398D0, - & 0.01501D0, 0.01877D0, 0.02366D0, 0.02727D0, 0.03029D0, - & 0.03311D0, 0.04422D0, 0.06061D0, 0.07353D0, 0.08461D0, - & 0.09444D0, 0.11152D0, 0.13285D0, 0.16112D0, 0.18330D0, - & 0.21564D0, 0.23680D0, 0.25001D0, 0.25818D0, 0.25925D0, - & 0.25517D0, 0.24705D0, 0.23591D0, 0.22272D0, 0.20821D0, - & 0.19248D0, 0.17638D0, 0.16011D0, 0.14399D0, 0.12847D0, - & 0.11356D0, 0.09932D0, 0.08597D0, 0.07388D0, 0.06256D0, - & 0.05235D0, 0.04334D0, 0.03522D0, 0.02223D0, 0.01290D0, - & 0.00670D0, 0.00295D0, 0.00022D0, 0.00000D0/ - DATA (FMRS(2,2,I,12),I=1,49)/ - & 0.00735D0, 0.00915D0, 0.01141D0, 0.01298D0, 0.01423D0, - & 0.01529D0, 0.01917D0, 0.02422D0, 0.02794D0, 0.03106D0, - & 0.03397D0, 0.04541D0, 0.06221D0, 0.07541D0, 0.08668D0, - & 0.09664D0, 0.11388D0, 0.13528D0, 0.16340D0, 0.18523D0, - & 0.21662D0, 0.23667D0, 0.24876D0, 0.25560D0, 0.25550D0, - & 0.25041D0, 0.24145D0, 0.22968D0, 0.21606D0, 0.20125D0, - & 0.18540D0, 0.16932D0, 0.15319D0, 0.13731D0, 0.12210D0, - & 0.10759D0, 0.09378D0, 0.08090D0, 0.06929D0, 0.05847D0, - & 0.04874D0, 0.04022D0, 0.03256D0, 0.02039D0, 0.01173D0, - & 0.00603D0, 0.00263D0, 0.00019D0, 0.00000D0/ - DATA (FMRS(2,2,I,13),I=1,49)/ - & 0.00742D0, 0.00926D0, 0.01156D0, 0.01317D0, 0.01446D0, - & 0.01554D0, 0.01952D0, 0.02471D0, 0.02853D0, 0.03173D0, - & 0.03472D0, 0.04644D0, 0.06360D0, 0.07703D0, 0.08845D0, - & 0.09852D0, 0.11589D0, 0.13732D0, 0.16529D0, 0.18680D0, - & 0.21735D0, 0.23643D0, 0.24757D0, 0.25329D0, 0.25220D0, - & 0.24629D0, 0.23665D0, 0.22439D0, 0.21043D0, 0.19540D0, - & 0.17949D0, 0.16343D0, 0.14746D0, 0.13180D0, 0.11686D0, - & 0.10269D0, 0.08926D0, 0.07677D0, 0.06556D0, 0.05517D0, - & 0.04584D0, 0.03772D0, 0.03044D0, 0.01893D0, 0.01082D0, - & 0.00551D0, 0.00238D0, 0.00017D0, 0.00000D0/ - DATA (FMRS(2,2,I,14),I=1,49)/ - & 0.00750D0, 0.00938D0, 0.01173D0, 0.01339D0, 0.01471D0, - & 0.01583D0, 0.01992D0, 0.02526D0, 0.02920D0, 0.03250D0, - & 0.03557D0, 0.04761D0, 0.06516D0, 0.07882D0, 0.09041D0, - & 0.10060D0, 0.11809D0, 0.13955D0, 0.16731D0, 0.18846D0, - & 0.21802D0, 0.23605D0, 0.24613D0, 0.25062D0, 0.24846D0, - & 0.24169D0, 0.23135D0, 0.21858D0, 0.20428D0, 0.18902D0, - & 0.17309D0, 0.15708D0, 0.14130D0, 0.12590D0, 0.11127D0, - & 0.09745D0, 0.08445D0, 0.07239D0, 0.06165D0, 0.05170D0, - & 0.04281D0, 0.03511D0, 0.02824D0, 0.01743D0, 0.00988D0, - & 0.00499D0, 0.00213D0, 0.00015D0, 0.00000D0/ - DATA (FMRS(2,2,I,15),I=1,49)/ - & 0.00758D0, 0.00950D0, 0.01192D0, 0.01362D0, 0.01498D0, - & 0.01613D0, 0.02034D0, 0.02584D0, 0.02990D0, 0.03330D0, - & 0.03646D0, 0.04882D0, 0.06676D0, 0.08067D0, 0.09242D0, - & 0.10271D0, 0.12031D0, 0.14177D0, 0.16927D0, 0.19002D0, - & 0.21855D0, 0.23546D0, 0.24445D0, 0.24771D0, 0.24448D0, - & 0.23683D0, 0.22584D0, 0.21262D0, 0.19799D0, 0.18255D0, - & 0.16661D0, 0.15073D0, 0.13511D0, 0.12003D0, 0.10571D0, - & 0.09233D0, 0.07973D0, 0.06812D0, 0.05781D0, 0.04834D0, - & 0.03990D0, 0.03259D0, 0.02612D0, 0.01599D0, 0.00899D0, - & 0.00450D0, 0.00190D0, 0.00013D0, 0.00000D0/ - DATA (FMRS(2,2,I,16),I=1,49)/ - & 0.00766D0, 0.00962D0, 0.01210D0, 0.01384D0, 0.01522D0, - & 0.01640D0, 0.02073D0, 0.02638D0, 0.03055D0, 0.03403D0, - & 0.03728D0, 0.04992D0, 0.06822D0, 0.08234D0, 0.09422D0, - & 0.10460D0, 0.12228D0, 0.14371D0, 0.17097D0, 0.19133D0, - & 0.21891D0, 0.23481D0, 0.24283D0, 0.24499D0, 0.24085D0, - & 0.23246D0, 0.22090D0, 0.20727D0, 0.19242D0, 0.17687D0, - & 0.16094D0, 0.14517D0, 0.12974D0, 0.11493D0, 0.10094D0, - & 0.08792D0, 0.07568D0, 0.06448D0, 0.05456D0, 0.04548D0, - & 0.03743D0, 0.03047D0, 0.02435D0, 0.01480D0, 0.00826D0, - & 0.00410D0, 0.00171D0, 0.00011D0, 0.00000D0/ - DATA (FMRS(2,2,I,17),I=1,49)/ - & 0.00775D0, 0.00975D0, 0.01228D0, 0.01406D0, 0.01548D0, - & 0.01669D0, 0.02112D0, 0.02692D0, 0.03120D0, 0.03478D0, - & 0.03810D0, 0.05104D0, 0.06968D0, 0.08400D0, 0.09602D0, - & 0.10648D0, 0.12423D0, 0.14563D0, 0.17261D0, 0.19256D0, - & 0.21918D0, 0.23405D0, 0.24112D0, 0.24221D0, 0.23719D0, - & 0.22809D0, 0.21600D0, 0.20198D0, 0.18694D0, 0.17130D0, - & 0.15541D0, 0.13976D0, 0.12455D0, 0.11000D0, 0.09636D0, - & 0.08368D0, 0.07182D0, 0.06101D0, 0.05149D0, 0.04278D0, - & 0.03510D0, 0.02849D0, 0.02269D0, 0.01370D0, 0.00759D0, - & 0.00374D0, 0.00155D0, 0.00010D0, 0.00000D0/ - DATA (FMRS(2,2,I,18),I=1,49)/ - & 0.00782D0, 0.00985D0, 0.01243D0, 0.01424D0, 0.01569D0, - & 0.01692D0, 0.02146D0, 0.02738D0, 0.03175D0, 0.03540D0, - & 0.03879D0, 0.05197D0, 0.07089D0, 0.08537D0, 0.09749D0, - & 0.10801D0, 0.12581D0, 0.14716D0, 0.17390D0, 0.19349D0, - & 0.21930D0, 0.23333D0, 0.23963D0, 0.23986D0, 0.23413D0, - & 0.22447D0, 0.21197D0, 0.19769D0, 0.18248D0, 0.16678D0, - & 0.15094D0, 0.13543D0, 0.12040D0, 0.10608D0, 0.09270D0, - & 0.08031D0, 0.06878D0, 0.05828D0, 0.04908D0, 0.04068D0, - & 0.03329D0, 0.02694D0, 0.02140D0, 0.01285D0, 0.00708D0, - & 0.00346D0, 0.00142D0, 0.00009D0, 0.00000D0/ - DATA (FMRS(2,2,I,19),I=1,49)/ - & 0.00791D0, 0.00998D0, 0.01261D0, 0.01447D0, 0.01595D0, - & 0.01722D0, 0.02186D0, 0.02794D0, 0.03242D0, 0.03616D0, - & 0.03963D0, 0.05310D0, 0.07234D0, 0.08702D0, 0.09924D0, - & 0.10983D0, 0.12767D0, 0.14895D0, 0.17537D0, 0.19453D0, - & 0.21933D0, 0.23238D0, 0.23773D0, 0.23696D0, 0.23039D0, - & 0.22010D0, 0.20715D0, 0.19257D0, 0.17716D0, 0.16147D0, - & 0.14570D0, 0.13034D0, 0.11556D0, 0.10152D0, 0.08847D0, - & 0.07643D0, 0.06526D0, 0.05515D0, 0.04631D0, 0.03827D0, - & 0.03122D0, 0.02519D0, 0.01995D0, 0.01190D0, 0.00650D0, - & 0.00315D0, 0.00128D0, 0.00008D0, 0.00000D0/ - DATA (FMRS(2,2,I,20),I=1,49)/ - & 0.00799D0, 0.01010D0, 0.01278D0, 0.01467D0, 0.01619D0, - & 0.01748D0, 0.02223D0, 0.02844D0, 0.03302D0, 0.03684D0, - & 0.04038D0, 0.05409D0, 0.07362D0, 0.08846D0, 0.10078D0, - & 0.11143D0, 0.12930D0, 0.15050D0, 0.17662D0, 0.19539D0, - & 0.21931D0, 0.23148D0, 0.23602D0, 0.23438D0, 0.22712D0, - & 0.21628D0, 0.20296D0, 0.18814D0, 0.17260D0, 0.15692D0, - & 0.14124D0, 0.12600D0, 0.11146D0, 0.09768D0, 0.08490D0, - & 0.07317D0, 0.06233D0, 0.05253D0, 0.04400D0, 0.03627D0, - & 0.02950D0, 0.02375D0, 0.01875D0, 0.01112D0, 0.00604D0, - & 0.00291D0, 0.00117D0, 0.00007D0, 0.00000D0/ - DATA (FMRS(2,2,I,21),I=1,49)/ - & 0.00806D0, 0.01021D0, 0.01293D0, 0.01486D0, 0.01641D0, - & 0.01772D0, 0.02256D0, 0.02890D0, 0.03357D0, 0.03747D0, - & 0.04106D0, 0.05501D0, 0.07479D0, 0.08976D0, 0.10217D0, - & 0.11285D0, 0.13073D0, 0.15184D0, 0.17768D0, 0.19608D0, - & 0.21918D0, 0.23055D0, 0.23436D0, 0.23195D0, 0.22407D0, - & 0.21277D0, 0.19913D0, 0.18411D0, 0.16851D0, 0.15282D0, - & 0.13724D0, 0.12215D0, 0.10780D0, 0.09426D0, 0.08175D0, - & 0.07030D0, 0.05975D0, 0.05024D0, 0.04199D0, 0.03453D0, - & 0.02802D0, 0.02251D0, 0.01772D0, 0.01045D0, 0.00564D0, - & 0.00270D0, 0.00108D0, 0.00006D0, 0.00000D0/ - DATA (FMRS(2,2,I,22),I=1,49)/ - & 0.00816D0, 0.01035D0, 0.01313D0, 0.01511D0, 0.01669D0, - & 0.01803D0, 0.02299D0, 0.02949D0, 0.03427D0, 0.03826D0, - & 0.04194D0, 0.05616D0, 0.07626D0, 0.09141D0, 0.10390D0, - & 0.11463D0, 0.13252D0, 0.15350D0, 0.17897D0, 0.19689D0, - & 0.21895D0, 0.22932D0, 0.23223D0, 0.22887D0, 0.22024D0, - & 0.20839D0, 0.19437D0, 0.17913D0, 0.16346D0, 0.14778D0, - & 0.13233D0, 0.11744D0, 0.10335D0, 0.09011D0, 0.07794D0, - & 0.06684D0, 0.05665D0, 0.04749D0, 0.03958D0, 0.03245D0, - & 0.02625D0, 0.02103D0, 0.01650D0, 0.00967D0, 0.00518D0, - & 0.00246D0, 0.00097D0, 0.00005D0, 0.00000D0/ - DATA (FMRS(2,2,I,23),I=1,49)/ - & 0.00826D0, 0.01049D0, 0.01333D0, 0.01534D0, 0.01695D0, - & 0.01833D0, 0.02340D0, 0.03004D0, 0.03494D0, 0.03901D0, - & 0.04276D0, 0.05725D0, 0.07764D0, 0.09293D0, 0.10551D0, - & 0.11628D0, 0.13416D0, 0.15502D0, 0.18011D0, 0.19758D0, - & 0.21867D0, 0.22812D0, 0.23018D0, 0.22598D0, 0.21667D0, - & 0.20434D0, 0.19000D0, 0.17460D0, 0.15883D0, 0.14320D0, - & 0.12787D0, 0.11321D0, 0.09934D0, 0.08640D0, 0.07454D0, - & 0.06376D0, 0.05389D0, 0.04504D0, 0.03744D0, 0.03063D0, - & 0.02471D0, 0.01973D0, 0.01544D0, 0.00899D0, 0.00479D0, - & 0.00225D0, 0.00088D0, 0.00005D0, 0.00000D0/ - DATA (FMRS(2,2,I,24),I=1,49)/ - & 0.00835D0, 0.01062D0, 0.01351D0, 0.01556D0, 0.01721D0, - & 0.01861D0, 0.02378D0, 0.03057D0, 0.03556D0, 0.03972D0, - & 0.04354D0, 0.05827D0, 0.07891D0, 0.09434D0, 0.10698D0, - & 0.11778D0, 0.13564D0, 0.15636D0, 0.18108D0, 0.19811D0, - & 0.21829D0, 0.22687D0, 0.22819D0, 0.22319D0, 0.21330D0, - & 0.20053D0, 0.18593D0, 0.17036D0, 0.15459D0, 0.13902D0, - & 0.12383D0, 0.10936D0, 0.09573D0, 0.08306D0, 0.07149D0, - & 0.06100D0, 0.05144D0, 0.04289D0, 0.03556D0, 0.02901D0, - & 0.02335D0, 0.01859D0, 0.01451D0, 0.00840D0, 0.00444D0, - & 0.00208D0, 0.00081D0, 0.00004D0, 0.00000D0/ - DATA (FMRS(2,2,I,25),I=1,49)/ - & 0.00844D0, 0.01075D0, 0.01369D0, 0.01578D0, 0.01746D0, - & 0.01889D0, 0.02417D0, 0.03109D0, 0.03619D0, 0.04043D0, - & 0.04431D0, 0.05929D0, 0.08018D0, 0.09573D0, 0.10844D0, - & 0.11926D0, 0.13709D0, 0.15767D0, 0.18202D0, 0.19861D0, - & 0.21788D0, 0.22561D0, 0.22620D0, 0.22044D0, 0.20998D0, - & 0.19681D0, 0.18196D0, 0.16625D0, 0.15048D0, 0.13499D0, - & 0.11994D0, 0.10567D0, 0.09228D0, 0.07987D0, 0.06858D0, - & 0.05838D0, 0.04911D0, 0.04085D0, 0.03379D0, 0.02749D0, - & 0.02207D0, 0.01753D0, 0.01364D0, 0.00785D0, 0.00413D0, - & 0.00192D0, 0.00074D0, 0.00004D0, 0.00000D0/ - DATA (FMRS(2,2,I,26),I=1,49)/ - & 0.00853D0, 0.01088D0, 0.01388D0, 0.01600D0, 0.01772D0, - & 0.01917D0, 0.02456D0, 0.03161D0, 0.03680D0, 0.04112D0, - & 0.04508D0, 0.06028D0, 0.08140D0, 0.09707D0, 0.10983D0, - & 0.12067D0, 0.13846D0, 0.15889D0, 0.18286D0, 0.19901D0, - & 0.21739D0, 0.22430D0, 0.22419D0, 0.21773D0, 0.20672D0, - & 0.19320D0, 0.17811D0, 0.16233D0, 0.14654D0, 0.13113D0, - & 0.11622D0, 0.10216D0, 0.08901D0, 0.07686D0, 0.06584D0, - & 0.05592D0, 0.04692D0, 0.03894D0, 0.03214D0, 0.02608D0, - & 0.02089D0, 0.01655D0, 0.01285D0, 0.00735D0, 0.00384D0, - & 0.00177D0, 0.00068D0, 0.00003D0, 0.00000D0/ - DATA (FMRS(2,2,I,27),I=1,49)/ - & 0.00862D0, 0.01100D0, 0.01405D0, 0.01622D0, 0.01796D0, - & 0.01944D0, 0.02492D0, 0.03211D0, 0.03739D0, 0.04178D0, - & 0.04580D0, 0.06121D0, 0.08256D0, 0.09833D0, 0.11114D0, - & 0.12198D0, 0.13974D0, 0.16000D0, 0.18361D0, 0.19934D0, - & 0.21688D0, 0.22303D0, 0.22227D0, 0.21516D0, 0.20368D0, - & 0.18983D0, 0.17455D0, 0.15870D0, 0.14292D0, 0.12759D0, - & 0.11282D0, 0.09895D0, 0.08604D0, 0.07413D0, 0.06336D0, - & 0.05370D0, 0.04495D0, 0.03722D0, 0.03066D0, 0.02482D0, - & 0.01983D0, 0.01568D0, 0.01214D0, 0.00691D0, 0.00359D0, - & 0.00164D0, 0.00063D0, 0.00003D0, 0.00000D0/ - DATA (FMRS(2,2,I,28),I=1,49)/ - & 0.00871D0, 0.01113D0, 0.01422D0, 0.01642D0, 0.01819D0, - & 0.01970D0, 0.02527D0, 0.03257D0, 0.03795D0, 0.04240D0, - & 0.04648D0, 0.06209D0, 0.08364D0, 0.09950D0, 0.11235D0, - & 0.12320D0, 0.14090D0, 0.16101D0, 0.18426D0, 0.19960D0, - & 0.21635D0, 0.22178D0, 0.22043D0, 0.21273D0, 0.20082D0, - & 0.18670D0, 0.17123D0, 0.15532D0, 0.13957D0, 0.12434D0, - & 0.10972D0, 0.09602D0, 0.08332D0, 0.07164D0, 0.06111D0, - & 0.05170D0, 0.04318D0, 0.03568D0, 0.02933D0, 0.02371D0, - & 0.01889D0, 0.01491D0, 0.01151D0, 0.00652D0, 0.00337D0, - & 0.00153D0, 0.00058D0, 0.00003D0, 0.00000D0/ - DATA (FMRS(2,2,I,29),I=1,49)/ - & 0.00880D0, 0.01125D0, 0.01439D0, 0.01662D0, 0.01842D0, - & 0.01995D0, 0.02562D0, 0.03305D0, 0.03850D0, 0.04303D0, - & 0.04716D0, 0.06297D0, 0.08471D0, 0.10067D0, 0.11354D0, - & 0.12440D0, 0.14205D0, 0.16199D0, 0.18487D0, 0.19981D0, - & 0.21577D0, 0.22050D0, 0.21856D0, 0.21030D0, 0.19797D0, - & 0.18358D0, 0.16796D0, 0.15200D0, 0.13629D0, 0.12116D0, - & 0.10670D0, 0.09318D0, 0.08069D0, 0.06924D0, 0.05894D0, - & 0.04976D0, 0.04148D0, 0.03421D0, 0.02806D0, 0.02263D0, - & 0.01799D0, 0.01417D0, 0.01091D0, 0.00615D0, 0.00316D0, - & 0.00143D0, 0.00054D0, 0.00003D0, 0.00000D0/ - DATA (FMRS(2,2,I,30),I=1,49)/ - & 0.00889D0, 0.01137D0, 0.01456D0, 0.01683D0, 0.01865D0, - & 0.02021D0, 0.02596D0, 0.03351D0, 0.03906D0, 0.04365D0, - & 0.04784D0, 0.06384D0, 0.08576D0, 0.10180D0, 0.11470D0, - & 0.12555D0, 0.14314D0, 0.16292D0, 0.18544D0, 0.19997D0, - & 0.21516D0, 0.21921D0, 0.21670D0, 0.20790D0, 0.19518D0, - & 0.18054D0, 0.16480D0, 0.14880D0, 0.13314D0, 0.11810D0, - & 0.10380D0, 0.09048D0, 0.07819D0, 0.06696D0, 0.05688D0, - & 0.04793D0, 0.03987D0, 0.03282D0, 0.02686D0, 0.02162D0, - & 0.01715D0, 0.01347D0, 0.01036D0, 0.00581D0, 0.00297D0, - & 0.00134D0, 0.00050D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(2,2,I,31),I=1,49)/ - & 0.00897D0, 0.01149D0, 0.01472D0, 0.01702D0, 0.01887D0, - & 0.02045D0, 0.02630D0, 0.03396D0, 0.03958D0, 0.04424D0, - & 0.04848D0, 0.06466D0, 0.08676D0, 0.10286D0, 0.11579D0, - & 0.12663D0, 0.14416D0, 0.16377D0, 0.18594D0, 0.20009D0, - & 0.21455D0, 0.21797D0, 0.21493D0, 0.20563D0, 0.19256D0, - & 0.17769D0, 0.16185D0, 0.14582D0, 0.13021D0, 0.11528D0, - & 0.10112D0, 0.08798D0, 0.07588D0, 0.06486D0, 0.05500D0, - & 0.04626D0, 0.03841D0, 0.03155D0, 0.02578D0, 0.02071D0, - & 0.01640D0, 0.01285D0, 0.00986D0, 0.00551D0, 0.00280D0, - & 0.00125D0, 0.00046D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(2,2,I,32),I=1,49)/ - & 0.00905D0, 0.01160D0, 0.01487D0, 0.01721D0, 0.01909D0, - & 0.02069D0, 0.02661D0, 0.03438D0, 0.04008D0, 0.04480D0, - & 0.04909D0, 0.06543D0, 0.08768D0, 0.10385D0, 0.11679D0, - & 0.12763D0, 0.14509D0, 0.16454D0, 0.18637D0, 0.20016D0, - & 0.21393D0, 0.21676D0, 0.21323D0, 0.20346D0, 0.19008D0, - & 0.17502D0, 0.15909D0, 0.14304D0, 0.12749D0, 0.11266D0, - & 0.09863D0, 0.08567D0, 0.07376D0, 0.06293D0, 0.05328D0, - & 0.04474D0, 0.03708D0, 0.03039D0, 0.02479D0, 0.01988D0, - & 0.01572D0, 0.01229D0, 0.00941D0, 0.00524D0, 0.00265D0, - & 0.00118D0, 0.00043D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(2,2,I,33),I=1,49)/ - & 0.00914D0, 0.01172D0, 0.01503D0, 0.01740D0, 0.01930D0, - & 0.02092D0, 0.02693D0, 0.03481D0, 0.04058D0, 0.04536D0, - & 0.04970D0, 0.06621D0, 0.08862D0, 0.10485D0, 0.11781D0, - & 0.12863D0, 0.14602D0, 0.16531D0, 0.18679D0, 0.20022D0, - & 0.21330D0, 0.21555D0, 0.21154D0, 0.20131D0, 0.18763D0, - & 0.17238D0, 0.15637D0, 0.14031D0, 0.12482D0, 0.11010D0, - & 0.09620D0, 0.08342D0, 0.07168D0, 0.06106D0, 0.05161D0, - & 0.04326D0, 0.03580D0, 0.02928D0, 0.02384D0, 0.01908D0, - & 0.01506D0, 0.01176D0, 0.00899D0, 0.00498D0, 0.00251D0, - & 0.00111D0, 0.00041D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(2,2,I,34),I=1,49)/ - & 0.00922D0, 0.01183D0, 0.01519D0, 0.01758D0, 0.01951D0, - & 0.02116D0, 0.02725D0, 0.03523D0, 0.04108D0, 0.04592D0, - & 0.05030D0, 0.06698D0, 0.08953D0, 0.10581D0, 0.11878D0, - & 0.12959D0, 0.14690D0, 0.16601D0, 0.18715D0, 0.20021D0, - & 0.21262D0, 0.21429D0, 0.20982D0, 0.19916D0, 0.18519D0, - & 0.16977D0, 0.15369D0, 0.13763D0, 0.12221D0, 0.10760D0, - & 0.09385D0, 0.08123D0, 0.06969D0, 0.05926D0, 0.05001D0, - & 0.04183D0, 0.03456D0, 0.02822D0, 0.02295D0, 0.01833D0, - & 0.01444D0, 0.01126D0, 0.00858D0, 0.00473D0, 0.00238D0, - & 0.00105D0, 0.00038D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(2,2,I,35),I=1,49)/ - & 0.00930D0, 0.01194D0, 0.01534D0, 0.01777D0, 0.01972D0, - & 0.02138D0, 0.02755D0, 0.03564D0, 0.04156D0, 0.04645D0, - & 0.05088D0, 0.06771D0, 0.09039D0, 0.10673D0, 0.11970D0, - & 0.13050D0, 0.14773D0, 0.16667D0, 0.18748D0, 0.20020D0, - & 0.21197D0, 0.21309D0, 0.20820D0, 0.19714D0, 0.18290D0, - & 0.16734D0, 0.15119D0, 0.13514D0, 0.11978D0, 0.10528D0, - & 0.09167D0, 0.07922D0, 0.06786D0, 0.05760D0, 0.04853D0, - & 0.04052D0, 0.03343D0, 0.02726D0, 0.02213D0, 0.01765D0, - & 0.01387D0, 0.01080D0, 0.00822D0, 0.00451D0, 0.00226D0, - & 0.00099D0, 0.00036D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(2,2,I,36),I=1,49)/ - & 0.00938D0, 0.01205D0, 0.01549D0, 0.01794D0, 0.01992D0, - & 0.02160D0, 0.02784D0, 0.03602D0, 0.04201D0, 0.04696D0, - & 0.05143D0, 0.06840D0, 0.09121D0, 0.10758D0, 0.12056D0, - & 0.13134D0, 0.14849D0, 0.16728D0, 0.18776D0, 0.20016D0, - & 0.21132D0, 0.21194D0, 0.20664D0, 0.19522D0, 0.18074D0, - & 0.16504D0, 0.14884D0, 0.13281D0, 0.11752D0, 0.10313D0, - & 0.08965D0, 0.07735D0, 0.06616D0, 0.05608D0, 0.04717D0, - & 0.03933D0, 0.03239D0, 0.02637D0, 0.02137D0, 0.01702D0, - & 0.01336D0, 0.01038D0, 0.00788D0, 0.00431D0, 0.00215D0, - & 0.00094D0, 0.00034D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(2,2,I,37),I=1,49)/ - & 0.00946D0, 0.01216D0, 0.01563D0, 0.01812D0, 0.02011D0, - & 0.02182D0, 0.02814D0, 0.03641D0, 0.04247D0, 0.04747D0, - & 0.05199D0, 0.06909D0, 0.09202D0, 0.10844D0, 0.12142D0, - & 0.13217D0, 0.14925D0, 0.16786D0, 0.18802D0, 0.20008D0, - & 0.21063D0, 0.21075D0, 0.20506D0, 0.19327D0, 0.17856D0, - & 0.16274D0, 0.14648D0, 0.13048D0, 0.11526D0, 0.10099D0, - & 0.08766D0, 0.07551D0, 0.06448D0, 0.05458D0, 0.04583D0, - & 0.03816D0, 0.03137D0, 0.02550D0, 0.02064D0, 0.01641D0, - & 0.01285D0, 0.00997D0, 0.00756D0, 0.00412D0, 0.00204D0, - & 0.00089D0, 0.00032D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(2,2,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I, 1),I=1,49)/ - & 2.49594D0, 2.59678D0, 2.70121D0, 2.76381D0, 2.80882D0, - & 2.84400D0, 2.95410D0, 3.06293D0, 3.12376D0, 3.16433D0, - & 3.19612D0, 3.26381D0, 3.24185D0, 3.15396D0, 3.04339D0, - & 2.92461D0, 2.68378D0, 2.34265D0, 1.85814D0, 1.47710D0, - & 0.96403D0, 0.68739D0, 0.56164D0, 0.53053D0, 0.57114D0, - & 0.63752D0, 0.70266D0, 0.75190D0, 0.77864D0, 0.78165D0, - & 0.76223D0, 0.72410D0, 0.67143D0, 0.60861D0, 0.54010D0, - & 0.46946D0, 0.39966D0, 0.33340D0, 0.27271D0, 0.21796D0, - & 0.17035D0, 0.13022D0, 0.09678D0, 0.04919D0, 0.02174D0, - & 0.00799D0, 0.00226D0, 0.00004D0, 0.00000D0/ - DATA (FMRS(2,3,I, 2),I=1,49)/ - & 4.92533D0, 4.79050D0, 4.65910D0, 4.58370D0, 4.53079D0, - & 4.49006D0, 4.36491D0, 4.24084D0, 4.16793D0, 4.11560D0, - & 4.07957D0, 3.94076D0, 3.72768D0, 3.53640D0, 3.35786D0, - & 3.19001D0, 2.88282D0, 2.48367D0, 1.95213D0, 1.55132D0, - & 1.02835D0, 0.75268D0, 0.62744D0, 0.59181D0, 0.62218D0, - & 0.67462D0, 0.72413D0, 0.75779D0, 0.77032D0, 0.76124D0, - & 0.73236D0, 0.68747D0, 0.63069D0, 0.56612D0, 0.49789D0, - & 0.42912D0, 0.36239D0, 0.29993D0, 0.24354D0, 0.19324D0, - & 0.14994D0, 0.11382D0, 0.08400D0, 0.04209D0, 0.01833D0, - & 0.00664D0, 0.00185D0, 0.00003D0, 0.00000D0/ - DATA (FMRS(2,3,I, 3),I=1,49)/ - & 9.56993D0, 8.80858D0, 8.10702D0, 7.72221D0, 7.45989D0, - & 7.26226D0, 6.67868D0, 6.13604D0, 5.83460D0, 5.62657D0, - & 5.47187D0, 4.98498D0, 4.45878D0, 4.10350D0, 3.81920D0, - & 3.57625D0, 3.16921D0, 2.68460D0, 2.08542D0, 1.65674D0, - & 1.11953D0, 0.84374D0, 0.71690D0, 0.67195D0, 0.68567D0, - & 0.71718D0, 0.74433D0, 0.75653D0, 0.75014D0, 0.72558D0, - & 0.68509D0, 0.63243D0, 0.57149D0, 0.50592D0, 0.43925D0, - & 0.37400D0, 0.31223D0, 0.25550D0, 0.20529D0, 0.16120D0, - & 0.12380D0, 0.09303D0, 0.06796D0, 0.03337D0, 0.01425D0, - & 0.00506D0, 0.00138D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(2,3,I, 4),I=1,49)/ - & 13.80940D0, 12.36505D0, 11.07010D0, 10.37511D0, 9.90777D0, - & 9.55916D0, 8.54772D0, 7.63175D0, 7.13319D0, 6.79336D0, - & 6.53831D0, 5.76591D0, 4.99154D0, 4.51033D0, 4.14636D0, - & 3.84778D0, 3.36791D0, 2.82235D0, 2.17611D0, 1.72845D0, - & 1.18134D0, 0.90432D0, 0.77478D0, 0.72147D0, 0.72239D0, - & 0.73883D0, 0.75059D0, 0.74861D0, 0.73014D0, 0.69610D0, - & 0.64889D0, 0.59216D0, 0.52949D0, 0.46423D0, 0.39938D0, - & 0.33717D0, 0.27919D0, 0.22665D0, 0.18078D0, 0.14088D0, - & 0.10742D0, 0.08015D0, 0.05814D0, 0.02814D0, 0.01185D0, - & 0.00415D0, 0.00112D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(2,3,I, 5),I=1,49)/ - & 18.88911D0, 16.54105D0, 14.48190D0, 13.39606D0, 12.67388D0, - & 12.13950D0, 10.61083D0, 9.25560D0, 8.52999D0, 8.04031D0, - & 7.67199D0, 6.58349D0, 5.54112D0, 4.92668D0, 4.47939D0, - & 4.12305D0, 3.56848D0, 2.96102D0, 2.26733D0, 1.80038D0, - & 1.24179D0, 0.96142D0, 0.82726D0, 0.76409D0, 0.75165D0, - & 0.75317D0, 0.75022D0, 0.73504D0, 0.70570D0, 0.66340D0, - & 0.61066D0, 0.55093D0, 0.48745D0, 0.42321D0, 0.36077D0, - & 0.30193D0, 0.24792D0, 0.19962D0, 0.15797D0, 0.12220D0, - & 0.09245D0, 0.06850D0, 0.04934D0, 0.02353D0, 0.00976D0, - & 0.00337D0, 0.00090D0, 0.00002D0, 0.00000D0/ - DATA (FMRS(2,3,I, 6),I=1,49)/ - & 24.17862D0, 20.81157D0, 17.90894D0, 16.39907D0, 15.40344D0, - & 14.67132D0, 12.59987D0, 10.79385D0, 9.83948D0, 9.20057D0, - & 8.72036D0, 7.32519D0, 6.02998D0, 5.29291D0, 4.77007D0, - & 4.36196D0, 3.74120D0, 3.07968D0, 2.34504D0, 1.86151D0, - & 1.29269D0, 1.00884D0, 0.87005D0, 0.79769D0, 0.77342D0, - & 0.76224D0, 0.74721D0, 0.72151D0, 0.68376D0, 0.63535D0, - & 0.57871D0, 0.51714D0, 0.45352D0, 0.39051D0, 0.33033D0, - & 0.27444D0, 0.22374D0, 0.17892D0, 0.14065D0, 0.10811D0, - & 0.08127D0, 0.05985D0, 0.04284D0, 0.02018D0, 0.00827D0, - & 0.00283D0, 0.00075D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(2,3,I, 7),I=1,49)/ - & 29.73861D0, 25.23818D0, 21.41267D0, 19.44500D0, 18.15658D0, - & 17.21404D0, 14.57125D0, 12.29875D0, 11.11092D0, 10.32111D0, - & 9.72854D0, 8.02926D0, 6.48794D0, 5.63342D0, 5.03891D0, - & 4.58210D0, 3.89945D0, 3.18799D0, 2.41570D0, 1.91680D0, - & 1.33767D0, 1.04936D0, 0.90523D0, 0.82366D0, 0.78841D0, - & 0.76591D0, 0.74039D0, 0.70578D0, 0.66114D0, 0.60793D0, - & 0.54844D0, 0.48585D0, 0.42265D0, 0.36114D0, 0.30329D0, - & 0.25030D0, 0.20271D0, 0.16106D0, 0.12587D0, 0.09616D0, - & 0.07187D0, 0.05262D0, 0.03744D0, 0.01745D0, 0.00707D0, - & 0.00239D0, 0.00063D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(2,3,I, 8),I=1,49)/ - & 36.41777D0, 30.48425D0, 25.50925D0, 22.97827D0, 21.33235D0, - & 20.13434D0, 16.80486D0, 13.98059D0, 12.52029D0, 11.55588D0, - & 10.83420D0, 8.78991D0, 6.97511D0, 5.99232D0, 5.32046D0, - & 4.81154D0, 4.06330D0, 3.29938D0, 2.48793D0, 1.97297D0, - & 1.38262D0, 1.08896D0, 0.93866D0, 0.84707D0, 0.80034D0, - & 0.76640D0, 0.73057D0, 0.68748D0, 0.63647D0, 0.57905D0, - & 0.51730D0, 0.45416D0, 0.39180D0, 0.33216D0, 0.27689D0, - & 0.22693D0, 0.18251D0, 0.14405D0, 0.11189D0, 0.08494D0, - & 0.06310D0, 0.04592D0, 0.03248D0, 0.01496D0, 0.00600D0, - & 0.00201D0, 0.00052D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(2,3,I, 9),I=1,49)/ - & 42.89913D0, 35.51439D0, 29.39055D0, 26.30256D0, 24.30551D0, - & 22.85784D0, 18.86316D0, 15.51177D0, 13.79420D0, 12.66617D0, - & 11.82423D0, 9.46212D0, 7.39982D0, 6.30264D0, 5.56252D0, - & 5.00794D0, 4.20275D0, 3.39360D0, 2.54868D0, 2.01994D0, - & 1.41958D0, 1.12075D0, 0.96469D0, 0.86425D0, 0.80777D0, - & 0.76439D0, 0.72030D0, 0.67061D0, 0.61480D0, 0.55436D0, - & 0.49120D0, 0.42796D0, 0.36659D0, 0.30874D0, 0.25576D0, - & 0.20835D0, 0.16660D0, 0.13075D0, 0.10101D0, 0.07629D0, - & 0.05637D0, 0.04082D0, 0.02872D0, 0.01310D0, 0.00521D0, - & 0.00173D0, 0.00045D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(2,3,I,10),I=1,49)/ - & 49.61974D0, 40.67585D0, 33.33157D0, 29.65726D0, 27.29273D0, - & 25.58490D0, 20.90223D0, 17.01226D0, 15.03449D0, 13.74211D0, - & 12.78005D0, 10.10345D0, 7.80003D0, 6.59295D0, 5.78776D0, - & 5.18997D0, 4.33113D0, 3.47979D0, 2.60379D0, 2.06215D0, - & 1.45191D0, 1.14765D0, 0.98577D0, 0.87686D0, 0.81144D0, - & 0.75966D0, 0.70838D0, 0.65310D0, 0.59339D0, 0.53065D0, - & 0.46666D0, 0.40372D0, 0.34354D0, 0.28753D0, 0.23679D0, - & 0.19183D0, 0.15254D0, 0.11910D0, 0.09155D0, 0.06880D0, - & 0.05059D0, 0.03647D0, 0.02554D0, 0.01155D0, 0.00456D0, - & 0.00150D0, 0.00039D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(2,3,I,11),I=1,49)/ - & 55.39180D0, 45.07076D0, 36.65840D0, 32.47479D0, 29.79258D0, - & 27.86062D0, 22.58892D0, 18.24235D0, 16.04583D0, 14.61602D0, - & 13.55394D0, 10.61757D0, 8.11747D0, 6.82180D0, 5.96451D0, - & 5.33234D0, 4.43100D0, 3.54652D0, 2.64619D0, 2.09446D0, - & 1.47626D0, 1.16746D0, 1.00084D0, 0.88523D0, 0.81292D0, - & 0.75482D0, 0.69824D0, 0.63893D0, 0.57653D0, 0.51229D0, - & 0.44790D0, 0.38538D0, 0.32625D0, 0.27173D0, 0.22275D0, - & 0.17969D0, 0.14226D0, 0.11063D0, 0.08472D0, 0.06341D0, - & 0.04647D0, 0.03337D0, 0.02328D0, 0.01046D0, 0.00410D0, - & 0.00135D0, 0.00035D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(2,3,I,12),I=1,49)/ - & 68.81419D0, 55.16745D0, 44.20809D0, 38.82247D0, 35.39534D0, - & 32.94036D0, 26.30577D0, 20.91710D0, 18.22705D0, 16.48958D0, - & 15.20488D0, 11.69679D0, 8.77186D0, 7.28789D0, 6.32113D0, - & 5.61724D0, 4.62839D0, 3.67636D0, 2.72714D0, 2.15522D0, - & 1.52072D0, 1.20219D0, 1.02548D0, 0.89610D0, 0.81011D0, - & 0.73981D0, 0.67337D0, 0.60686D0, 0.53995D0, 0.47362D0, - & 0.40911D0, 0.34808D0, 0.29158D0, 0.24046D0, 0.19523D0, - & 0.15609D0, 0.12251D0, 0.09445D0, 0.07178D0, 0.05329D0, - & 0.03875D0, 0.02763D0, 0.01914D0, 0.00848D0, 0.00328D0, - & 0.00107D0, 0.00027D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(2,3,I,13),I=1,49)/ - & 81.72071D0, 64.73620D0, 51.25830D0, 44.69851D0, 40.54929D0, - & 37.59021D0, 29.65526D0, 23.28836D0, 20.14139D0, 18.12166D0, - & 16.63424D0, 12.61228D0, 9.31401D0, 7.66787D0, 6.60816D0, - & 5.84402D0, 4.78269D0, 3.77556D0, 2.78721D0, 2.19932D0, - & 1.55169D0, 1.22492D0, 1.03973D0, 0.89912D0, 0.80240D0, - & 0.72291D0, 0.64937D0, 0.57800D0, 0.50838D0, 0.44121D0, - & 0.37732D0, 0.31807D0, 0.26412D0, 0.21603D0, 0.17402D0, - & 0.13809D0, 0.10760D0, 0.08235D0, 0.06220D0, 0.04588D0, - & 0.03314D0, 0.02349D0, 0.01618D0, 0.00709D0, 0.00272D0, - & 0.00088D0, 0.00022D0, 0.00001D0, 0.00000D0/ - DATA (FMRS(2,3,I,14),I=1,49)/ - & 97.52657D0, 76.29261D0, 59.65305D0, 51.63612D0, 46.59734D0, - & 43.02061D0, 33.50751D0, 25.97167D0, 22.28590D0, 19.93624D0, - & 18.21366D0, 13.60275D0, 9.88582D0, 8.06142D0, 6.90102D0, - & 6.07241D0, 4.93443D0, 3.87015D0, 2.84210D0, 2.23830D0, - & 1.57740D0, 1.24193D0, 1.04776D0, 0.89562D0, 0.78827D0, - & 0.70003D0, 0.62012D0, 0.54473D0, 0.47326D0, 0.40608D0, - & 0.34362D0, 0.28678D0, 0.23589D0, 0.19121D0, 0.15279D0, - & 0.12024D0, 0.09296D0, 0.07060D0, 0.05295D0, 0.03880D0, - & 0.02782D0, 0.01961D0, 0.01341D0, 0.00581D0, 0.00221D0, - & 0.00071D0, 0.00018D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,15),I=1,49)/ - & 115.42858D0, 89.21046D0, 68.91241D0, 59.22810D0, 53.17852D0, - & 48.90368D0, 37.62299D0, 28.79719D0, 24.52433D0, 21.81818D0, - & 19.84305D0, 14.60749D0, 10.45530D0, 8.44881D0, 7.18665D0, - & 6.29326D0, 5.07912D0, 3.95881D0, 2.89174D0, 2.27205D0, - & 1.59726D0, 1.25251D0, 1.04935D0, 0.88634D0, 0.76946D0, - & 0.67380D0, 0.58880D0, 0.51059D0, 0.43833D0, 0.37190D0, - & 0.31141D0, 0.25732D0, 0.20974D0, 0.16850D0, 0.13349D0, - & 0.10422D0, 0.07994D0, 0.06028D0, 0.04489D0, 0.03267D0, - & 0.02328D0, 0.01630D0, 0.01109D0, 0.00475D0, 0.00179D0, - & 0.00057D0, 0.00015D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,16),I=1,49)/ - & 133.20726D0,101.88441D0, 77.88580D0, 66.53202D0, 59.47687D0, - & 54.51081D0, 41.49468D0, 31.41946D0, 26.58451D0, 23.53963D0, - & 21.32609D0, 15.50695D0, 10.95547D0, 8.78473D0, 7.43186D0, - & 6.48132D0, 5.20052D0, 4.03146D0, 2.93090D0, 2.29753D0, - & 1.61041D0, 1.25744D0, 1.04659D0, 0.87462D0, 0.75027D0, - & 0.64906D0, 0.56054D0, 0.48074D0, 0.40844D0, 0.34317D0, - & 0.28476D0, 0.23329D0, 0.18860D0, 0.15037D0, 0.11827D0, - & 0.09171D0, 0.06985D0, 0.05235D0, 0.03876D0, 0.02805D0, - & 0.01988D0, 0.01385D0, 0.00937D0, 0.00398D0, 0.00150D0, - & 0.00048D0, 0.00012D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,17),I=1,49)/ - & 152.75288D0,115.66533D0, 87.53463D0, 74.33386D0, 66.17272D0, - & 60.44971D0, 45.54741D0, 34.13087D0, 28.69873D0, 25.29647D0, - & 22.83273D0, 16.40709D0, 11.44748D0, 9.11138D0, 7.66812D0, - & 6.66113D0, 5.31487D0, 4.09842D0, 2.96558D0, 2.31899D0, - & 1.61977D0, 1.25878D0, 1.04063D0, 0.86046D0, 0.72956D0, - & 0.62377D0, 0.53260D0, 0.45191D0, 0.38010D0, 0.31636D0, - & 0.26019D0, 0.21141D0, 0.16955D0, 0.13419D0, 0.10481D0, - & 0.08073D0, 0.06109D0, 0.04550D0, 0.03350D0, 0.02411D0, - & 0.01700D0, 0.01178D0, 0.00794D0, 0.00335D0, 0.00125D0, - & 0.00040D0, 0.00010D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,18),I=1,49)/ - & 170.01192D0,127.71370D0, 95.88535D0, 81.04548D0, 71.90795D0, - & 65.51928D0, 48.96956D0, 36.39437D0, 30.45131D0, 26.74517D0, - & 24.06967D0, 17.13549D0, 11.83889D0, 9.36824D0, 7.85201D0, - & 6.79985D0, 5.40144D0, 4.14772D0, 2.98965D0, 2.33267D0, - & 1.62383D0, 1.25653D0, 1.03280D0, 0.84662D0, 0.71111D0, - & 0.60235D0, 0.50969D0, 0.42880D0, 0.35778D0, 0.29558D0, - & 0.24138D0, 0.19483D0, 0.15529D0, 0.12217D0, 0.09488D0, - & 0.07271D0, 0.05474D0, 0.04057D0, 0.02974D0, 0.02131D0, - & 0.01497D0, 0.01034D0, 0.00694D0, 0.00291D0, 0.00108D0, - & 0.00035D0, 0.00009D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,19),I=1,49)/ - & 192.21783D0,143.06714D0,106.42301D0, 89.46533D0, 79.07272D0, - & 71.83153D0, 53.18588D0, 39.15232D0, 32.57201D0, 28.48916D0, - & 25.55252D0, 17.99626D0, 12.29353D0, 9.66291D0, 8.06074D0, - & 6.95556D0, 5.49677D0, 4.20023D0, 3.01333D0, 2.34451D0, - & 1.62470D0, 1.25025D0, 1.02039D0, 0.82787D0, 0.68779D0, - & 0.57628D0, 0.48256D0, 0.40194D0, 0.33226D0, 0.27214D0, - & 0.22041D0, 0.17653D0, 0.13970D0, 0.10915D0, 0.08422D0, - & 0.06416D0, 0.04803D0, 0.03538D0, 0.02582D0, 0.01841D0, - & 0.01287D0, 0.00885D0, 0.00592D0, 0.00247D0, 0.00092D0, - & 0.00029D0, 0.00008D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,20),I=1,49)/ - & 213.34880D0,157.54303D0,116.26574D0, 97.28644D0, 85.70139D0, - & 77.65329D0, 57.03621D0, 41.64487D0, 34.47643D0, 30.04790D0, - & 26.87277D0, 18.75275D0, 12.68704D0, 9.91527D0, 8.23788D0, - & 7.08656D0, 5.57571D0, 4.24254D0, 3.03117D0, 2.35234D0, - & 1.62325D0, 1.24282D0, 1.00799D0, 0.81051D0, 0.66705D0, - & 0.55370D0, 0.45951D0, 0.37948D0, 0.31121D0, 0.25302D0, - & 0.20347D0, 0.16190D0, 0.12732D0, 0.09891D0, 0.07590D0, - & 0.05752D0, 0.04285D0, 0.03141D0, 0.02283D0, 0.01621D0, - & 0.01129D0, 0.00774D0, 0.00517D0, 0.00215D0, 0.00079D0, - & 0.00025D0, 0.00007D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,21),I=1,49)/ - & 233.39284D0,171.15466D0,125.43786D0,104.53514D0, 91.82097D0, - & 83.01126D0, 60.54451D0, 43.89167D0, 36.18145D0, 31.43626D0, - & 28.04374D0, 19.41375D0, 13.02433D0, 10.12820D0, 8.38525D0, - & 7.19405D0, 5.63853D0, 4.27419D0, 3.04230D0, 2.35510D0, - & 1.61821D0, 1.23292D0, 0.99418D0, 0.79299D0, 0.64721D0, - & 0.53284D0, 0.43872D0, 0.35966D0, 0.29291D0, 0.23658D0, - & 0.18910D0, 0.14961D0, 0.11702D0, 0.09045D0, 0.06907D0, - & 0.05212D0, 0.03865D0, 0.02823D0, 0.02044D0, 0.01446D0, - & 0.01004D0, 0.00687D0, 0.00457D0, 0.00189D0, 0.00070D0, - & 0.00022D0, 0.00006D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,22),I=1,49)/ - & 260.44016D0,189.36696D0,137.60457D0,114.10131D0, 99.86725D0, - & 90.03576D0, 65.10178D0, 46.78208D0, 38.36169D0, 33.20363D0, - & 29.52871D0, 20.24143D0, 13.44020D0, 10.38777D0, 8.56307D0, - & 7.32250D0, 5.71195D0, 4.30962D0, 3.05294D0, 2.35572D0, - & 1.60960D0, 1.21865D0, 0.97551D0, 0.77034D0, 0.62226D0, - & 0.50716D0, 0.41356D0, 0.33596D0, 0.27128D0, 0.21734D0, - & 0.17244D0, 0.13547D0, 0.10527D0, 0.08085D0, 0.06139D0, - & 0.04607D0, 0.03398D0, 0.02471D0, 0.01781D0, 0.01255D0, - & 0.00868D0, 0.00593D0, 0.00393D0, 0.00162D0, 0.00060D0, - & 0.00019D0, 0.00005D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,23),I=1,49)/ - & 287.44696D0,207.38838D0,149.53354D0,123.42919D0,107.68206D0, - & 96.83708D0, 69.47065D0, 49.52397D0, 40.41636D0, 34.86102D0, - & 30.91543D0, 21.00356D0, 13.81644D0, 10.61949D0, 8.71986D0, - & 7.43441D0, 5.77408D0, 4.33783D0, 3.05923D0, 2.35324D0, - & 1.59919D0, 1.20346D0, 0.95679D0, 0.74861D0, 0.59903D0, - & 0.48379D0, 0.39106D0, 0.31505D0, 0.25241D0, 0.20076D0, - & 0.15822D0, 0.12352D0, 0.09541D0, 0.07286D0, 0.05504D0, - & 0.04110D0, 0.03018D0, 0.02185D0, 0.01570D0, 0.01103D0, - & 0.00760D0, 0.00518D0, 0.00342D0, 0.00141D0, 0.00052D0, - & 0.00017D0, 0.00004D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,24),I=1,49)/ - & 313.51825D0,224.63136D0,160.84229D0,132.22295D0,115.01953D0, - & 103.20245D0, 73.51698D0, 52.03463D0, 42.28400D0, 36.35911D0, - & 32.16307D0, 21.67765D0, 14.14149D0, 10.81558D0, 8.84983D0, - & 7.52509D0, 5.82169D0, 4.35654D0, 3.05952D0, 2.34629D0, - & 1.58590D0, 1.18656D0, 0.93734D0, 0.72724D0, 0.57702D0, - & 0.46218D0, 0.37070D0, 0.29646D0, 0.23590D0, 0.18642D0, - & 0.14603D0, 0.11337D0, 0.08712D0, 0.06621D0, 0.04979D0, - & 0.03702D0, 0.02708D0, 0.01953D0, 0.01399D0, 0.00980D0, - & 0.00674D0, 0.00458D0, 0.00302D0, 0.00124D0, 0.00046D0, - & 0.00015D0, 0.00004D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,25),I=1,49)/ - & 341.15173D0,242.77290D0,172.65150D0,141.36496D0,122.62321D0, - & 109.78229D0, 77.66644D0, 54.58787D0, 44.17350D0, 37.86890D0, - & 33.41642D0, 22.34751D0, 14.46016D0, 11.00588D0, 8.97477D0, - & 7.61137D0, 5.86592D0, 4.37273D0, 3.05810D0, 2.33803D0, - & 1.57177D0, 1.16920D0, 0.91780D0, 0.70620D0, 0.55570D0, - & 0.44154D0, 0.35145D0, 0.27905D0, 0.22057D0, 0.17322D0, - & 0.13490D0, 0.10417D0, 0.07964D0, 0.06025D0, 0.04510D0, - & 0.03340D0, 0.02434D0, 0.01749D0, 0.01249D0, 0.00873D0, - & 0.00599D0, 0.00406D0, 0.00268D0, 0.00110D0, 0.00041D0, - & 0.00013D0, 0.00004D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,26),I=1,49)/ - & 368.98822D0,260.90195D0,184.35516D0,150.38000D0,130.09390D0, - & 116.22827D0, 81.69344D0, 57.04021D0, 45.97627D0, 39.30195D0, - & 34.60083D0, 22.97047D0, 14.74975D0, 11.17543D0, 9.08370D0, - & 7.68467D0, 5.90104D0, 4.38251D0, 3.05244D0, 2.32659D0, - & 1.55551D0, 1.15047D0, 0.89759D0, 0.68521D0, 0.53495D0, - & 0.42187D0, 0.33342D0, 0.26295D0, 0.20656D0, 0.16128D0, - & 0.12493D0, 0.09597D0, 0.07303D0, 0.05500D0, 0.04100D0, - & 0.03027D0, 0.02198D0, 0.01575D0, 0.01122D0, 0.00782D0, - & 0.00536D0, 0.00363D0, 0.00239D0, 0.00098D0, 0.00036D0, - & 0.00012D0, 0.00003D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,27),I=1,49)/ - & 396.49847D0,278.69458D0,195.76036D0,159.12776D0,137.32101D0, - & 122.44904D0, 85.54959D0, 59.36906D0, 47.67925D0, 40.65031D0, - & 35.71157D0, 23.54779D0, 15.01388D0, 11.32784D0, 9.18018D0, - & 7.74858D0, 5.93008D0, 4.38884D0, 3.04508D0, 2.31422D0, - & 1.53913D0, 1.13220D0, 0.87829D0, 0.66558D0, 0.51586D0, - & 0.40401D0, 0.31721D0, 0.24862D0, 0.19419D0, 0.15083D0, - & 0.11625D0, 0.08889D0, 0.06736D0, 0.05053D0, 0.03753D0, - & 0.02761D0, 0.01999D0, 0.01428D0, 0.01015D0, 0.00707D0, - & 0.00483D0, 0.00327D0, 0.00215D0, 0.00088D0, 0.00033D0, - & 0.00011D0, 0.00003D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,28),I=1,49)/ - & 423.18488D0,295.83777D0,206.67247D0,167.46211D0,144.18538D0, - & 128.34305D0, 89.17443D0, 61.53922D0, 49.25727D0, 41.89430D0, - & 36.73269D0, 24.07136D0, 15.24876D0, 11.46075D0, 9.26257D0, - & 7.80186D0, 5.95221D0, 4.39115D0, 3.03561D0, 2.30059D0, - & 1.52239D0, 1.11417D0, 0.85969D0, 0.64709D0, 0.49822D0, - & 0.38776D0, 0.30261D0, 0.23584D0, 0.18326D0, 0.14166D0, - & 0.10869D0, 0.08277D0, 0.06247D0, 0.04670D0, 0.03458D0, - & 0.02536D0, 0.01831D0, 0.01305D0, 0.00927D0, 0.00644D0, - & 0.00439D0, 0.00297D0, 0.00195D0, 0.00080D0, 0.00030D0, - & 0.00010D0, 0.00003D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,29),I=1,49)/ - & 450.92862D0,313.54996D0,217.87523D0,175.98549D0,151.18591D0, - & 134.34097D0, 92.83694D0, 63.71518D0, 50.83173D0, 43.13081D0, - & 37.74429D0, 24.58404D0, 15.47489D0, 11.58672D0, 9.33925D0, - & 7.85026D0, 5.97071D0, 4.39081D0, 3.02434D0, 2.28559D0, - & 1.50481D0, 1.09565D0, 0.84093D0, 0.62877D0, 0.48096D0, - & 0.37201D0, 0.28863D0, 0.22371D0, 0.17297D0, 0.13307D0, - & 0.10166D0, 0.07711D0, 0.05798D0, 0.04320D0, 0.03189D0, - & 0.02332D0, 0.01680D0, 0.01195D0, 0.00847D0, 0.00587D0, - & 0.00400D0, 0.00270D0, 0.00178D0, 0.00073D0, 0.00027D0, - & 0.00009D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,30),I=1,49)/ - & 478.88074D0,331.28183D0,229.01660D0,184.42841D0,158.10007D0, - & 140.25114D0, 96.41853D0, 65.82523D0, 52.35015D0, 44.31818D0, - & 38.71195D0, 25.06767D0, 15.68364D0, 11.70050D0, 9.40671D0, - & 7.89123D0, 5.98412D0, 4.38708D0, 3.01099D0, 2.26914D0, - & 1.48646D0, 1.07684D0, 0.82225D0, 0.61085D0, 0.46437D0, - & 0.35704D0, 0.27550D0, 0.21242D0, 0.16347D0, 0.12519D0, - & 0.09525D0, 0.07197D0, 0.05394D0, 0.04005D0, 0.02949D0, - & 0.02151D0, 0.01546D0, 0.01097D0, 0.00776D0, 0.00538D0, - & 0.00366D0, 0.00247D0, 0.00162D0, 0.00067D0, 0.00025D0, - & 0.00008D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,31),I=1,49)/ - & 506.38092D0,348.62979D0,239.85460D0,192.61319D0,164.78622D0, - & 145.95520D0, 99.85363D0, 67.83522D0, 53.79026D0, 45.44058D0, - & 39.62410D0, 25.51892D0, 15.87554D0, 11.80362D0, 9.46678D0, - & 7.92687D0, 5.99445D0, 4.38186D0, 2.99723D0, 2.25276D0, - & 1.46868D0, 1.05889D0, 0.80464D0, 0.59419D0, 0.44909D0, - & 0.34338D0, 0.26361D0, 0.20228D0, 0.15498D0, 0.11820D0, - & 0.08960D0, 0.06746D0, 0.05040D0, 0.03731D0, 0.02741D0, - & 0.01994D0, 0.01431D0, 0.01014D0, 0.00716D0, 0.00495D0, - & 0.00337D0, 0.00227D0, 0.00149D0, 0.00061D0, 0.00023D0, - & 0.00007D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,32),I=1,49)/ - & 532.71063D0,365.14023D0,250.10423D0,200.32385D0,171.06720D0, - & 151.30153D0,103.04897D0, 69.68893D0, 55.11074D0, 46.46502D0, - & 40.45333D0, 25.92270D0, 16.04272D0, 11.89083D0, 9.51556D0, - & 7.95409D0, 5.99947D0, 4.37358D0, 2.98195D0, 2.23557D0, - & 1.45083D0, 1.04132D0, 0.78773D0, 0.57848D0, 0.43489D0, - & 0.33086D0, 0.25280D0, 0.19316D0, 0.14738D0, 0.11200D0, - & 0.08461D0, 0.06352D0, 0.04732D0, 0.03494D0, 0.02560D0, - & 0.01860D0, 0.01332D0, 0.00942D0, 0.00665D0, 0.00459D0, - & 0.00312D0, 0.00210D0, 0.00138D0, 0.00057D0, 0.00021D0, - & 0.00007D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,33),I=1,49)/ - & 560.44952D0,382.45715D0,260.80753D0,208.35481D0,177.59706D0, - & 156.85155D0,106.35128D0, 71.59602D0, 56.46558D0, 47.51407D0, - & 41.30114D0, 26.33344D0, 16.21190D0, 11.97881D0, 9.56466D0, - & 7.98144D0, 6.00450D0, 4.36531D0, 2.96673D0, 2.21850D0, - & 1.43317D0, 1.02401D0, 0.77116D0, 0.56317D0, 0.42112D0, - & 0.31878D0, 0.24243D0, 0.18443D0, 0.14015D0, 0.10612D0, - & 0.07989D0, 0.05980D0, 0.04442D0, 0.03272D0, 0.02392D0, - & 0.01734D0, 0.01239D0, 0.00875D0, 0.00617D0, 0.00426D0, - & 0.00289D0, 0.00195D0, 0.00128D0, 0.00052D0, 0.00020D0, - & 0.00006D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,34),I=1,49)/ - & 587.66711D0,399.34082D0,271.17145D0,216.09799D0,183.87283D0, - & 162.17198D0,109.48943D0, 73.38959D0, 57.73061D0, 48.48780D0, - & 42.08379D0, 26.70440D0, 16.35846D0, 12.05124D0, 9.60203D0, - & 7.99942D0, 6.00308D0, 4.35260D0, 2.94870D0, 2.19937D0, - & 1.41431D0, 1.00609D0, 0.75435D0, 0.54797D0, 0.40769D0, - & 0.30718D0, 0.23257D0, 0.17622D0, 0.13341D0, 0.10068D0, - & 0.07556D0, 0.05639D0, 0.04179D0, 0.03071D0, 0.02240D0, - & 0.01621D0, 0.01157D0, 0.00816D0, 0.00575D0, 0.00396D0, - & 0.00269D0, 0.00181D0, 0.00119D0, 0.00049D0, 0.00018D0, - & 0.00006D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,35),I=1,49)/ - & 614.66376D0,416.01791D0,281.36646D0,223.69629D0,190.02084D0, - & 167.37685D0,112.54659D0, 75.12943D0, 58.95456D0, 49.42817D0, - & 42.83852D0, 27.06040D0, 16.49837D0, 12.12015D0, 9.63748D0, - & 8.01641D0, 6.00168D0, 4.34055D0, 2.93168D0, 2.18137D0, - & 1.39666D0, 0.98938D0, 0.73876D0, 0.53395D0, 0.39535D0, - & 0.29658D0, 0.22360D0, 0.16878D0, 0.12732D0, 0.09577D0, - & 0.07167D0, 0.05334D0, 0.03944D0, 0.02892D0, 0.02106D0, - & 0.01521D0, 0.01085D0, 0.00764D0, 0.00537D0, 0.00370D0, - & 0.00251D0, 0.00169D0, 0.00111D0, 0.00046D0, 0.00017D0, - & 0.00006D0, 0.00002D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,36),I=1,49)/ - & 640.64490D0,431.98953D0,291.07977D0,230.91319D0,195.84616D0, - & 172.29993D0,115.42027D0, 76.75350D0, 60.09168D0, 50.29848D0, - & 43.53482D0, 27.38445D0, 16.62263D0, 12.17943D0, 9.66642D0, - & 8.02868D0, 5.99763D0, 4.32731D0, 2.91439D0, 2.16350D0, - & 1.37952D0, 0.97339D0, 0.72400D0, 0.52085D0, 0.38394D0, - & 0.28684D0, 0.21543D0, 0.16204D0, 0.12184D0, 0.09139D0, - & 0.06820D0, 0.05064D0, 0.03736D0, 0.02734D0, 0.01987D0, - & 0.01434D0, 0.01021D0, 0.00718D0, 0.00505D0, 0.00348D0, - & 0.00236D0, 0.00159D0, 0.00104D0, 0.00043D0, 0.00016D0, - & 0.00005D0, 0.00001D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,37),I=1,49)/ - & 667.19971D0,448.23413D0,300.90906D0,238.19307D0,201.70891D0, - & 177.24495D0,118.28902D0, 78.36304D0, 61.21302D0, 51.15329D0, - & 44.21644D0, 27.69705D0, 16.73916D0, 12.23290D0, 9.69072D0, - & 8.03703D0, 5.99069D0, 4.31202D0, 2.89571D0, 2.14460D0, - & 1.36178D0, 0.95706D0, 0.70912D0, 0.50779D0, 0.37268D0, - & 0.27731D0, 0.20750D0, 0.15552D0, 0.11658D0, 0.08719D0, - & 0.06491D0, 0.04808D0, 0.03540D0, 0.02586D0, 0.01877D0, - & 0.01352D0, 0.00961D0, 0.00676D0, 0.00475D0, 0.00327D0, - & 0.00222D0, 0.00149D0, 0.00098D0, 0.00040D0, 0.00015D0, - & 0.00005D0, 0.00001D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,3,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I, 1),I=1,49)/ - & 0.96883D0, 0.83010D0, 0.71060D0, 0.64853D0, 0.60767D0, - & 0.57770D0, 0.49346D0, 0.42161D0, 0.38501D0, 0.36146D0, - & 0.34535D0, 0.30095D0, 0.26559D0, 0.24803D0, 0.23669D0, - & 0.22831D0, 0.21597D0, 0.20255D0, 0.18524D0, 0.17029D0, - & 0.14323D0, 0.11890D0, 0.09745D0, 0.07499D0, 0.05725D0, - & 0.04365D0, 0.03351D0, 0.02602D0, 0.02043D0, 0.01653D0, - & 0.01318D0, 0.01067D0, 0.00853D0, 0.00671D0, 0.00530D0, - & 0.00405D0, 0.00296D0, 0.00217D0, 0.00162D0, 0.00103D0, - & 0.00065D0, 0.00047D0, 0.00023D0, 0.00008D0, 0.00004D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I, 2),I=1,49)/ - & 0.97285D0, 0.83723D0, 0.71985D0, 0.65865D0, 0.61827D0, - & 0.58859D0, 0.50491D0, 0.43319D0, 0.39649D0, 0.37279D0, - & 0.35657D0, 0.31149D0, 0.27487D0, 0.25626D0, 0.24402D0, - & 0.23487D0, 0.22125D0, 0.20637D0, 0.18739D0, 0.17135D0, - & 0.14312D0, 0.11837D0, 0.09689D0, 0.07465D0, 0.05719D0, - & 0.04386D0, 0.03391D0, 0.02652D0, 0.02098D0, 0.01703D0, - & 0.01365D0, 0.01107D0, 0.00885D0, 0.00698D0, 0.00550D0, - & 0.00421D0, 0.00309D0, 0.00226D0, 0.00169D0, 0.00108D0, - & 0.00069D0, 0.00049D0, 0.00025D0, 0.00010D0, 0.00003D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I, 3),I=1,49)/ - & 0.99630D0, 0.86193D0, 0.74498D0, 0.68373D0, 0.64319D0, - & 0.61334D0, 0.52882D0, 0.45586D0, 0.41827D0, 0.39388D0, - & 0.37707D0, 0.32984D0, 0.29034D0, 0.26968D0, 0.25582D0, - & 0.24531D0, 0.22956D0, 0.21234D0, 0.19077D0, 0.17310D0, - & 0.14315D0, 0.11778D0, 0.09624D0, 0.07426D0, 0.05716D0, - & 0.04417D0, 0.03445D0, 0.02716D0, 0.02168D0, 0.01765D0, - & 0.01422D0, 0.01151D0, 0.00919D0, 0.00726D0, 0.00569D0, - & 0.00437D0, 0.00323D0, 0.00233D0, 0.00177D0, 0.00113D0, - & 0.00072D0, 0.00052D0, 0.00028D0, 0.00011D0, 0.00003D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I, 4),I=1,49)/ - & 1.02892D0, 0.89240D0, 0.77327D0, 0.71073D0, 0.66929D0, - & 0.63873D0, 0.55202D0, 0.47687D0, 0.43798D0, 0.41263D0, - & 0.39503D0, 0.34528D0, 0.30287D0, 0.28033D0, 0.26505D0, - & 0.25342D0, 0.23594D0, 0.21688D0, 0.19336D0, 0.17449D0, - & 0.14328D0, 0.11746D0, 0.09586D0, 0.07403D0, 0.05716D0, - & 0.04437D0, 0.03479D0, 0.02755D0, 0.02207D0, 0.01800D0, - & 0.01451D0, 0.01172D0, 0.00935D0, 0.00736D0, 0.00577D0, - & 0.00444D0, 0.00328D0, 0.00236D0, 0.00178D0, 0.00114D0, - & 0.00075D0, 0.00052D0, 0.00029D0, 0.00011D0, 0.00004D0, - & 0.00003D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I, 5),I=1,49)/ - & 1.08451D0, 0.94133D0, 0.81630D0, 0.75061D0, 0.70706D0, - & 0.67493D0, 0.58367D0, 0.50437D0, 0.46318D0, 0.43623D0, - & 0.41737D0, 0.36373D0, 0.31732D0, 0.29240D0, 0.27539D0, - & 0.26243D0, 0.24295D0, 0.22186D0, 0.19623D0, 0.17608D0, - & 0.14355D0, 0.11725D0, 0.09556D0, 0.07384D0, 0.05715D0, - & 0.04453D0, 0.03504D0, 0.02784D0, 0.02236D0, 0.01824D0, - & 0.01470D0, 0.01187D0, 0.00949D0, 0.00742D0, 0.00580D0, - & 0.00445D0, 0.00328D0, 0.00235D0, 0.00175D0, 0.00116D0, - & 0.00074D0, 0.00053D0, 0.00029D0, 0.00011D0, 0.00004D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I, 6),I=1,49)/ - & 1.14357D0, 0.99242D0, 0.86045D0, 0.79114D0, 0.74518D0, - & 0.71127D0, 0.61492D0, 0.53108D0, 0.48742D0, 0.45878D0, - & 0.43857D0, 0.38094D0, 0.33056D0, 0.30333D0, 0.28470D0, - & 0.27048D0, 0.24918D0, 0.22626D0, 0.19875D0, 0.17749D0, - & 0.14383D0, 0.11711D0, 0.09533D0, 0.07370D0, 0.05713D0, - & 0.04464D0, 0.03521D0, 0.02805D0, 0.02256D0, 0.01839D0, - & 0.01482D0, 0.01197D0, 0.00955D0, 0.00745D0, 0.00580D0, - & 0.00443D0, 0.00326D0, 0.00233D0, 0.00174D0, 0.00116D0, - & 0.00074D0, 0.00053D0, 0.00029D0, 0.00011D0, 0.00004D0, - & 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I, 7),I=1,49)/ - & 1.21691D0, 1.05450D0, 0.91294D0, 0.83868D0, 0.78948D0, - & 0.75319D0, 0.65015D0, 0.56049D0, 0.51374D0, 0.48302D0, - & 0.46120D0, 0.39885D0, 0.34401D0, 0.31429D0, 0.29395D0, - & 0.27845D0, 0.25529D0, 0.23055D0, 0.20123D0, 0.17890D0, - & 0.14416D0, 0.11703D0, 0.09514D0, 0.07357D0, 0.05711D0, - & 0.04471D0, 0.03532D0, 0.02818D0, 0.02268D0, 0.01846D0, - & 0.01487D0, 0.01199D0, 0.00952D0, 0.00742D0, 0.00577D0, - & 0.00441D0, 0.00322D0, 0.00229D0, 0.00172D0, 0.00114D0, - & 0.00072D0, 0.00051D0, 0.00029D0, 0.00010D0, 0.00004D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I, 8),I=1,49)/ - & 1.31000D0, 1.13230D0, 0.97784D0, 0.89699D0, 0.84348D0, - & 0.80406D0, 0.69226D0, 0.59511D0, 0.54444D0, 0.51110D0, - & 0.48726D0, 0.41913D0, 0.35898D0, 0.32638D0, 0.30408D0, - & 0.28713D0, 0.26192D0, 0.23518D0, 0.20389D0, 0.18042D0, - & 0.14454D0, 0.11697D0, 0.09497D0, 0.07342D0, 0.05705D0, - & 0.04474D0, 0.03539D0, 0.02827D0, 0.02275D0, 0.01851D0, - & 0.01488D0, 0.01197D0, 0.00947D0, 0.00737D0, 0.00571D0, - & 0.00437D0, 0.00318D0, 0.00224D0, 0.00169D0, 0.00111D0, - & 0.00070D0, 0.00049D0, 0.00029D0, 0.00010D0, 0.00004D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I, 9),I=1,49)/ - & 1.40457D0, 1.21051D0, 1.04237D0, 0.95458D0, 0.89657D0, - & 0.85387D0, 0.73299D0, 0.62815D0, 0.57350D0, 0.53752D0, - & 0.51167D0, 0.43783D0, 0.37258D0, 0.33726D0, 0.31316D0, - & 0.29488D0, 0.26778D0, 0.23925D0, 0.20624D0, 0.18177D0, - & 0.14489D0, 0.11694D0, 0.09483D0, 0.07330D0, 0.05698D0, - & 0.04474D0, 0.03543D0, 0.02831D0, 0.02277D0, 0.01852D0, - & 0.01487D0, 0.01192D0, 0.00942D0, 0.00732D0, 0.00564D0, - & 0.00433D0, 0.00313D0, 0.00219D0, 0.00166D0, 0.00109D0, - & 0.00068D0, 0.00049D0, 0.00028D0, 0.00010D0, 0.00003D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,10),I=1,49)/ - & 1.51092D0, 1.29750D0, 1.11331D0, 1.01744D0, 0.95421D0, - & 0.90772D0, 0.77643D0, 0.66288D0, 0.60378D0, 0.56488D0, - & 0.53682D0, 0.45681D0, 0.38616D0, 0.34803D0, 0.32208D0, - & 0.30246D0, 0.27350D0, 0.24321D0, 0.20851D0, 0.18308D0, - & 0.14525D0, 0.11692D0, 0.09469D0, 0.07316D0, 0.05689D0, - & 0.04470D0, 0.03541D0, 0.02828D0, 0.02274D0, 0.01846D0, - & 0.01479D0, 0.01184D0, 0.00933D0, 0.00722D0, 0.00556D0, - & 0.00426D0, 0.00307D0, 0.00215D0, 0.00161D0, 0.00106D0, - & 0.00067D0, 0.00048D0, 0.00027D0, 0.00010D0, 0.00003D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,11),I=1,49)/ - & 1.60472D0, 1.37368D0, 1.17498D0, 1.07183D0, 1.00391D0, - & 0.95405D0, 0.81348D0, 0.69224D0, 0.62923D0, 0.58777D0, - & 0.55781D0, 0.47247D0, 0.39725D0, 0.35677D0, 0.32928D0, - & 0.30856D0, 0.27807D0, 0.24637D0, 0.21032D0, 0.18413D0, - & 0.14554D0, 0.11692D0, 0.09459D0, 0.07304D0, 0.05681D0, - & 0.04465D0, 0.03537D0, 0.02823D0, 0.02270D0, 0.01839D0, - & 0.01471D0, 0.01176D0, 0.00923D0, 0.00712D0, 0.00549D0, - & 0.00419D0, 0.00301D0, 0.00213D0, 0.00157D0, 0.00105D0, - & 0.00065D0, 0.00047D0, 0.00027D0, 0.00010D0, 0.00004D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,12),I=1,49)/ - & 1.83637D0, 1.55987D0, 1.32404D0, 1.20242D0, 1.12267D0, - & 1.06429D0, 0.90056D0, 0.76032D0, 0.68777D0, 0.64012D0, - & 0.60555D0, 0.50757D0, 0.42172D0, 0.37588D0, 0.34496D0, - & 0.32177D0, 0.28792D0, 0.25312D0, 0.21417D0, 0.18636D0, - & 0.14617D0, 0.11691D0, 0.09435D0, 0.07276D0, 0.05658D0, - & 0.04447D0, 0.03521D0, 0.02807D0, 0.02254D0, 0.01819D0, - & 0.01452D0, 0.01154D0, 0.00905D0, 0.00695D0, 0.00533D0, - & 0.00404D0, 0.00292D0, 0.00205D0, 0.00149D0, 0.00100D0, - & 0.00062D0, 0.00045D0, 0.00024D0, 0.00010D0, 0.00003D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,13),I=1,49)/ - & 2.07152D0, 1.74663D0, 1.47172D0, 1.33085D0, 1.23884D0, - & 1.17167D0, 0.98420D0, 0.82476D0, 0.74268D0, 0.68890D0, - & 0.64981D0, 0.53955D0, 0.44363D0, 0.39281D0, 0.35874D0, - & 0.33333D0, 0.29647D0, 0.25893D0, 0.21746D0, 0.18826D0, - & 0.14670D0, 0.11688D0, 0.09412D0, 0.07248D0, 0.05632D0, - & 0.04424D0, 0.03500D0, 0.02787D0, 0.02234D0, 0.01798D0, - & 0.01431D0, 0.01132D0, 0.00886D0, 0.00679D0, 0.00517D0, - & 0.00390D0, 0.00284D0, 0.00195D0, 0.00143D0, 0.00095D0, - & 0.00059D0, 0.00043D0, 0.00023D0, 0.00009D0, 0.00002D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,14),I=1,49)/ - & 2.37643D0, 1.98603D0, 1.65879D0, 1.49235D0, 1.38415D0, - & 1.30543D0, 1.08702D0, 0.90288D0, 0.80867D0, 0.74716D0, - & 0.70240D0, 0.57696D0, 0.46881D0, 0.41209D0, 0.37432D0, - & 0.34632D0, 0.30599D0, 0.26535D0, 0.22106D0, 0.19032D0, - & 0.14723D0, 0.11682D0, 0.09381D0, 0.07211D0, 0.05596D0, - & 0.04392D0, 0.03471D0, 0.02757D0, 0.02204D0, 0.01767D0, - & 0.01400D0, 0.01105D0, 0.00862D0, 0.00657D0, 0.00496D0, - & 0.00374D0, 0.00270D0, 0.00182D0, 0.00137D0, 0.00090D0, - & 0.00057D0, 0.00039D0, 0.00023D0, 0.00007D0, 0.00002D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,15),I=1,49)/ - & 2.74566D0, 2.27231D0, 1.87960D0, 1.68150D0, 1.55338D0, - & 1.46052D0, 1.20454D0, 0.99082D0, 0.88227D0, 0.81170D0, - & 0.76034D0, 0.61745D0, 0.49560D0, 0.43237D0, 0.39059D0, - & 0.35980D0, 0.31580D0, 0.27191D0, 0.22470D0, 0.19238D0, - & 0.14774D0, 0.11669D0, 0.09344D0, 0.07165D0, 0.05549D0, - & 0.04347D0, 0.03429D0, 0.02720D0, 0.02166D0, 0.01729D0, - & 0.01366D0, 0.01073D0, 0.00832D0, 0.00636D0, 0.00476D0, - & 0.00357D0, 0.00255D0, 0.00175D0, 0.00131D0, 0.00086D0, - & 0.00052D0, 0.00037D0, 0.00021D0, 0.00007D0, 0.00002D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,16),I=1,49)/ - & 3.12622D0, 2.56414D0, 2.10216D0, 1.87087D0, 1.72199D0, - & 1.61445D0, 1.31978D0, 1.07596D0, 0.95298D0, 0.87335D0, - & 0.81544D0, 0.65540D0, 0.52031D0, 0.45090D0, 0.40535D0, - & 0.37197D0, 0.32458D0, 0.27772D0, 0.22787D0, 0.19414D0, - & 0.14813D0, 0.11651D0, 0.09303D0, 0.07117D0, 0.05501D0, - & 0.04302D0, 0.03385D0, 0.02678D0, 0.02128D0, 0.01692D0, - & 0.01332D0, 0.01043D0, 0.00806D0, 0.00611D0, 0.00459D0, - & 0.00341D0, 0.00242D0, 0.00166D0, 0.00123D0, 0.00082D0, - & 0.00050D0, 0.00034D0, 0.00020D0, 0.00006D0, 0.00003D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,17),I=1,49)/ - & 3.55799D0, 2.89188D0, 2.34954D0, 2.08007D0, 1.90742D0, - & 1.78316D0, 1.44470D0, 1.16721D0, 1.02825D0, 0.93863D0, - & 0.87356D0, 0.69490D0, 0.54567D0, 0.46976D0, 0.42028D0, - & 0.38422D0, 0.33334D0, 0.28346D0, 0.23097D0, 0.19583D0, - & 0.14845D0, 0.11627D0, 0.09257D0, 0.07063D0, 0.05448D0, - & 0.04252D0, 0.03337D0, 0.02631D0, 0.02087D0, 0.01652D0, - & 0.01297D0, 0.01012D0, 0.00778D0, 0.00585D0, 0.00440D0, - & 0.00326D0, 0.00231D0, 0.00157D0, 0.00115D0, 0.00076D0, - & 0.00047D0, 0.00031D0, 0.00019D0, 0.00006D0, 0.00003D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,18),I=1,49)/ - & 3.95423D0, 3.18985D0, 2.57232D0, 2.26740D0, 2.07281D0, - & 1.93314D0, 1.55464D0, 1.24668D0, 1.09337D0, 0.99486D0, - & 0.92342D0, 0.72838D0, 0.56689D0, 0.48541D0, 0.43260D0, - & 0.39429D0, 0.34049D0, 0.28810D0, 0.23344D0, 0.19715D0, - & 0.14866D0, 0.11602D0, 0.09214D0, 0.07013D0, 0.05399D0, - & 0.04205D0, 0.03295D0, 0.02591D0, 0.02050D0, 0.01618D0, - & 0.01266D0, 0.00984D0, 0.00753D0, 0.00565D0, 0.00424D0, - & 0.00314D0, 0.00221D0, 0.00150D0, 0.00109D0, 0.00072D0, - & 0.00043D0, 0.00030D0, 0.00018D0, 0.00006D0, 0.00002D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,19),I=1,49)/ - & 4.48113D0, 3.58253D0, 2.86323D0, 2.51070D0, 2.28676D0, - & 2.12659D0, 1.69508D0, 1.34718D0, 1.17523D0, 1.06522D0, - & 0.98559D0, 0.76963D0, 0.59272D0, 0.50431D0, 0.44739D0, - & 0.40630D0, 0.34895D0, 0.29355D0, 0.23628D0, 0.19863D0, - & 0.14882D0, 0.11566D0, 0.09156D0, 0.06947D0, 0.05334D0, - & 0.04144D0, 0.03238D0, 0.02540D0, 0.02000D0, 0.01574D0, - & 0.01227D0, 0.00950D0, 0.00724D0, 0.00541D0, 0.00404D0, - & 0.00298D0, 0.00211D0, 0.00142D0, 0.00103D0, 0.00067D0, - & 0.00041D0, 0.00028D0, 0.00016D0, 0.00006D0, 0.00002D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,20),I=1,49)/ - & 4.99499D0, 3.96212D0, 3.14196D0, 2.74258D0, 2.48991D0, - & 2.30973D0, 1.82681D0, 1.44056D0, 1.25085D0, 1.12995D0, - & 1.04258D0, 0.80704D0, 0.61586D0, 0.52113D0, 0.46048D0, - & 0.41689D0, 0.35636D0, 0.29827D0, 0.23871D0, 0.19986D0, - & 0.14892D0, 0.11531D0, 0.09101D0, 0.06887D0, 0.05276D0, - & 0.04087D0, 0.03186D0, 0.02494D0, 0.01954D0, 0.01534D0, - & 0.01192D0, 0.00921D0, 0.00699D0, 0.00520D0, 0.00387D0, - & 0.00284D0, 0.00201D0, 0.00135D0, 0.00099D0, 0.00063D0, - & 0.00039D0, 0.00027D0, 0.00014D0, 0.00005D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,21),I=1,49)/ - & 5.50061D0, 4.33261D0, 3.41176D0, 2.96594D0, 2.68491D0, - & 2.48503D0, 1.95181D0, 1.52837D0, 1.32157D0, 1.19023D0, - & 1.09549D0, 0.84140D0, 0.63686D0, 0.53627D0, 0.47219D0, - & 0.42632D0, 0.36291D0, 0.30239D0, 0.24078D0, 0.20086D0, - & 0.14892D0, 0.11489D0, 0.09045D0, 0.06826D0, 0.05215D0, - & 0.04031D0, 0.03135D0, 0.02446D0, 0.01914D0, 0.01497D0, - & 0.01162D0, 0.00892D0, 0.00678D0, 0.00502D0, 0.00373D0, - & 0.00273D0, 0.00191D0, 0.00128D0, 0.00093D0, 0.00060D0, - & 0.00037D0, 0.00026D0, 0.00014D0, 0.00005D0, 0.00001D0, - & 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,22),I=1,49)/ - & 6.19859D0, 4.83989D0, 3.77815D0, 3.26780D0, 2.94753D0, - & 2.72049D0, 2.11828D0, 1.64429D0, 1.41443D0, 1.26909D0, - & 1.16448D0, 0.88574D0, 0.66367D0, 0.55547D0, 0.48697D0, - & 0.43816D0, 0.37106D0, 0.30748D0, 0.24329D0, 0.20204D0, - & 0.14885D0, 0.11433D0, 0.08969D0, 0.06745D0, 0.05136D0, - & 0.03959D0, 0.03069D0, 0.02386D0, 0.01861D0, 0.01451D0, - & 0.01121D0, 0.00856D0, 0.00649D0, 0.00480D0, 0.00355D0, - & 0.00258D0, 0.00180D0, 0.00120D0, 0.00087D0, 0.00057D0, - & 0.00034D0, 0.00024D0, 0.00013D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,23),I=1,49)/ - & 6.91462D0, 5.35579D0, 4.14753D0, 3.57056D0, 3.20996D0, - & 2.95511D0, 2.28266D0, 1.75769D0, 1.50477D0, 1.34548D0, - & 1.23109D0, 0.92809D0, 0.68898D0, 0.57345D0, 0.50073D0, - & 0.44914D0, 0.37855D0, 0.31211D0, 0.24552D0, 0.20305D0, - & 0.14871D0, 0.11376D0, 0.08894D0, 0.06666D0, 0.05060D0, - & 0.03890D0, 0.03007D0, 0.02332D0, 0.01811D0, 0.01408D0, - & 0.01081D0, 0.00824D0, 0.00620D0, 0.00458D0, 0.00337D0, - & 0.00246D0, 0.00171D0, 0.00112D0, 0.00082D0, 0.00053D0, - & 0.00032D0, 0.00022D0, 0.00013D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,24),I=1,49)/ - & 7.62855D0, 5.86601D0, 4.50985D0, 3.86607D0, 3.46522D0, - & 3.18268D0, 2.44073D0, 1.86575D0, 1.59038D0, 1.41758D0, - & 1.29375D0, 0.96750D0, 0.71223D0, 0.58984D0, 0.51319D0, - & 0.45902D0, 0.38523D0, 0.31616D0, 0.24739D0, 0.20383D0, - & 0.14846D0, 0.11312D0, 0.08817D0, 0.06586D0, 0.04986D0, - & 0.03821D0, 0.02946D0, 0.02275D0, 0.01763D0, 0.01365D0, - & 0.01046D0, 0.00797D0, 0.00597D0, 0.00439D0, 0.00323D0, - & 0.00235D0, 0.00162D0, 0.00107D0, 0.00078D0, 0.00051D0, - & 0.00031D0, 0.00021D0, 0.00012D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,25),I=1,49)/ - & 8.39955D0, 6.41302D0, 4.89545D0, 4.17923D0, 3.73489D0, - & 3.42253D0, 2.60607D0, 1.97793D0, 1.67884D0, 1.49183D0, - & 1.35810D0, 1.00761D0, 0.73567D0, 0.60627D0, 0.52562D0, - & 0.46884D0, 0.39183D0, 0.32012D0, 0.24919D0, 0.20455D0, - & 0.14818D0, 0.11246D0, 0.08739D0, 0.06506D0, 0.04911D0, - & 0.03752D0, 0.02885D0, 0.02220D0, 0.01716D0, 0.01324D0, - & 0.01012D0, 0.00771D0, 0.00575D0, 0.00422D0, 0.00309D0, - & 0.00225D0, 0.00154D0, 0.00103D0, 0.00074D0, 0.00048D0, - & 0.00030D0, 0.00020D0, 0.00010D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,26),I=1,49)/ - & 9.19737D0, 6.97494D0, 5.28863D0, 4.49714D0, 4.00779D0, - & 3.66466D0, 2.77170D0, 2.08938D0, 1.76629D0, 1.56497D0, - & 1.42130D0, 1.04661D0, 0.75821D0, 0.62194D0, 0.53740D0, - & 0.47810D0, 0.39797D0, 0.32376D0, 0.25078D0, 0.20510D0, - & 0.14782D0, 0.11174D0, 0.08657D0, 0.06424D0, 0.04835D0, - & 0.03684D0, 0.02824D0, 0.02168D0, 0.01670D0, 0.01284D0, - & 0.00977D0, 0.00742D0, 0.00552D0, 0.00404D0, 0.00296D0, - & 0.00214D0, 0.00146D0, 0.00097D0, 0.00071D0, 0.00044D0, - & 0.00028D0, 0.00017D0, 0.00010D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,27),I=1,49)/ - & 10.00116D0, 7.53729D0, 5.67949D0, 4.81192D0, 4.27724D0, - & 3.90320D0, 2.93374D0, 2.19765D0, 1.85088D0, 1.63549D0, - & 1.48207D0, 1.08380D0, 0.77950D0, 0.63664D0, 0.54841D0, - & 0.48671D0, 0.40364D0, 0.32707D0, 0.25218D0, 0.20556D0, - & 0.14742D0, 0.11104D0, 0.08576D0, 0.06344D0, 0.04762D0, - & 0.03619D0, 0.02766D0, 0.02119D0, 0.01627D0, 0.01248D0, - & 0.00947D0, 0.00716D0, 0.00532D0, 0.00389D0, 0.00284D0, - & 0.00205D0, 0.00139D0, 0.00092D0, 0.00068D0, 0.00042D0, - & 0.00026D0, 0.00016D0, 0.00009D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,28),I=1,49)/ - & 10.79744D0, 8.09092D0, 6.06186D0, 5.11871D0, 4.53915D0, - & 4.13458D0, 3.08987D0, 2.30126D0, 1.93148D0, 1.70248D0, - & 1.53966D0, 1.11875D0, 0.79931D0, 0.65024D0, 0.55853D0, - & 0.49459D0, 0.40879D0, 0.33003D0, 0.25337D0, 0.20589D0, - & 0.14698D0, 0.11033D0, 0.08498D0, 0.06267D0, 0.04691D0, - & 0.03557D0, 0.02711D0, 0.02071D0, 0.01586D0, 0.01214D0, - & 0.00920D0, 0.00692D0, 0.00514D0, 0.00376D0, 0.00272D0, - & 0.00196D0, 0.00133D0, 0.00087D0, 0.00064D0, 0.00040D0, - & 0.00025D0, 0.00016D0, 0.00009D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,29),I=1,49)/ - & 11.63983D0, 8.67317D0, 6.46161D0, 5.43834D0, 4.81133D0, - & 4.37457D0, 3.25082D0, 2.40738D0, 2.01373D0, 1.77063D0, - & 1.59811D0, 1.15395D0, 0.81909D0, 0.66374D0, 0.56853D0, - & 0.50235D0, 0.41381D0, 0.33288D0, 0.25448D0, 0.20616D0, - & 0.14650D0, 0.10959D0, 0.08417D0, 0.06189D0, 0.04620D0, - & 0.03495D0, 0.02656D0, 0.02024D0, 0.01545D0, 0.01181D0, - & 0.00893D0, 0.00670D0, 0.00496D0, 0.00362D0, 0.00261D0, - & 0.00187D0, 0.00127D0, 0.00083D0, 0.00060D0, 0.00038D0, - & 0.00023D0, 0.00015D0, 0.00008D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,30),I=1,49)/ - & 12.50504D0, 9.26774D0, 6.86743D0, 5.76168D0, 5.08599D0, - & 4.61626D0, 3.41191D0, 2.51292D0, 2.09519D0, 1.83795D0, - & 1.65570D0, 1.18836D0, 0.83825D0, 0.67674D0, 0.57810D0, - & 0.50972D0, 0.41855D0, 0.33552D0, 0.25546D0, 0.20633D0, - & 0.14597D0, 0.10882D0, 0.08334D0, 0.06111D0, 0.04550D0, - & 0.03432D0, 0.02602D0, 0.01977D0, 0.01507D0, 0.01148D0, - & 0.00865D0, 0.00649D0, 0.00478D0, 0.00347D0, 0.00250D0, - & 0.00177D0, 0.00121D0, 0.00078D0, 0.00056D0, 0.00036D0, - & 0.00022D0, 0.00014D0, 0.00008D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,31),I=1,49)/ - & 13.36928D0, 9.85846D0, 7.26844D0, 6.08018D0, 5.35592D0, - & 4.85338D0, 3.56907D0, 2.61529D0, 2.17393D0, 1.90285D0, - & 1.71111D0, 1.22123D0, 0.85642D0, 0.68899D0, 0.58709D0, - & 0.51663D0, 0.42295D0, 0.33794D0, 0.25632D0, 0.20644D0, - & 0.14544D0, 0.10808D0, 0.08256D0, 0.06036D0, 0.04483D0, - & 0.03373D0, 0.02551D0, 0.01933D0, 0.01470D0, 0.01117D0, - & 0.00840D0, 0.00629D0, 0.00462D0, 0.00334D0, 0.00240D0, - & 0.00170D0, 0.00116D0, 0.00075D0, 0.00053D0, 0.00034D0, - & 0.00021D0, 0.00014D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,32),I=1,49)/ - & 14.21204D0, 10.43149D0, 7.65538D0, 6.38652D0, 5.61495D0, - & 5.08051D0, 3.71876D0, 2.71221D0, 2.24821D0, 1.96390D0, - & 1.76311D0, 1.25185D0, 0.87317D0, 0.70020D0, 0.59526D0, - & 0.52288D0, 0.42687D0, 0.34005D0, 0.25702D0, 0.20645D0, - & 0.14487D0, 0.10733D0, 0.08179D0, 0.05963D0, 0.04417D0, - & 0.03317D0, 0.02503D0, 0.01893D0, 0.01436D0, 0.01089D0, - & 0.00816D0, 0.00610D0, 0.00447D0, 0.00322D0, 0.00232D0, - & 0.00164D0, 0.00111D0, 0.00072D0, 0.00051D0, 0.00033D0, - & 0.00020D0, 0.00013D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,33),I=1,49)/ - & 15.10980D0, 11.03912D0, 8.06381D0, 6.70901D0, 5.88712D0, - & 5.31881D0, 3.87508D0, 2.81294D0, 2.32519D0, 2.02704D0, - & 1.81681D0, 1.28330D0, 0.89029D0, 0.71163D0, 0.60357D0, - & 0.52922D0, 0.43085D0, 0.34218D0, 0.25771D0, 0.20646D0, - & 0.14430D0, 0.10659D0, 0.08103D0, 0.05890D0, 0.04353D0, - & 0.03261D0, 0.02455D0, 0.01854D0, 0.01403D0, 0.01061D0, - & 0.00794D0, 0.00591D0, 0.00432D0, 0.00310D0, 0.00224D0, - & 0.00159D0, 0.00107D0, 0.00069D0, 0.00049D0, 0.00032D0, - & 0.00019D0, 0.00012D0, 0.00006D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,34),I=1,49)/ - & 16.00814D0, 11.64399D0, 8.46821D0, 7.02730D0, 6.15513D0, - & 5.55303D0, 4.02783D0, 2.91076D0, 2.39965D0, 2.08793D0, - & 1.86846D0, 1.31328D0, 0.90643D0, 0.72231D0, 0.61128D0, - & 0.53505D0, 0.43443D0, 0.34403D0, 0.25822D0, 0.20634D0, - & 0.14366D0, 0.10580D0, 0.08022D0, 0.05817D0, 0.04288D0, - & 0.03206D0, 0.02408D0, 0.01814D0, 0.01369D0, 0.01034D0, - & 0.00771D0, 0.00572D0, 0.00418D0, 0.00300D0, 0.00216D0, - & 0.00152D0, 0.00103D0, 0.00065D0, 0.00048D0, 0.00031D0, - & 0.00018D0, 0.00012D0, 0.00006D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,35),I=1,49)/ - & 16.90871D0, 12.24779D0, 8.87019D0, 7.34290D0, 6.42039D0, - & 5.78454D0, 4.17816D0, 3.00661D0, 2.47242D0, 2.14733D0, - & 1.91876D0, 1.34235D0, 0.92199D0, 0.73258D0, 0.61867D0, - & 0.54063D0, 0.43786D0, 0.34580D0, 0.25870D0, 0.20622D0, - & 0.14305D0, 0.10506D0, 0.07947D0, 0.05749D0, 0.04228D0, - & 0.03154D0, 0.02364D0, 0.01777D0, 0.01338D0, 0.01009D0, - & 0.00750D0, 0.00555D0, 0.00406D0, 0.00290D0, 0.00208D0, - & 0.00145D0, 0.00100D0, 0.00062D0, 0.00047D0, 0.00030D0, - & 0.00017D0, 0.00012D0, 0.00005D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,36),I=1,49)/ - & 17.78739D0, 12.83436D0, 9.25897D0, 7.64732D0, 6.67578D0, - & 6.00710D0, 4.32199D0, 3.09786D0, 2.54148D0, 2.20357D0, - & 1.96631D0, 1.36964D0, 0.93649D0, 0.74208D0, 0.62547D0, - & 0.54573D0, 0.44096D0, 0.34736D0, 0.25907D0, 0.20605D0, - & 0.14244D0, 0.10433D0, 0.07874D0, 0.05683D0, 0.04170D0, - & 0.03105D0, 0.02321D0, 0.01741D0, 0.01309D0, 0.00985D0, - & 0.00731D0, 0.00540D0, 0.00394D0, 0.00282D0, 0.00201D0, - & 0.00140D0, 0.00096D0, 0.00060D0, 0.00045D0, 0.00029D0, - & 0.00016D0, 0.00012D0, 0.00005D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,37),I=1,49)/ - & 18.69798D0, 13.43965D0, 9.65843D0, 7.95932D0, 6.93703D0, - & 6.23444D0, 4.46823D0, 3.19019D0, 2.61115D0, 2.26017D0, - & 2.01407D0, 1.39688D0, 0.95084D0, 0.75143D0, 0.63213D0, - & 0.55070D0, 0.44393D0, 0.34881D0, 0.25937D0, 0.20581D0, - & 0.14178D0, 0.10356D0, 0.07799D0, 0.05614D0, 0.04110D0, - & 0.03053D0, 0.02278D0, 0.01705D0, 0.01280D0, 0.00961D0, - & 0.00713D0, 0.00525D0, 0.00382D0, 0.00273D0, 0.00195D0, - & 0.00136D0, 0.00092D0, 0.00058D0, 0.00043D0, 0.00028D0, - & 0.00015D0, 0.00011D0, 0.00005D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,4,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I, 1),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I, 2),I=1,49)/ - & 0.00003D0, 0.00002D0, 0.00002D0, 0.00002D0, 0.00002D0, - & 0.00002D0, 0.00002D0, 0.00002D0, 0.00002D0, 0.00002D0, - & 0.00002D0, 0.00002D0, 0.00002D0, 0.00002D0, 0.00002D0, - & 0.00002D0, 0.00002D0, 0.00001D0, 0.00001D0, 0.00001D0, - & 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, - & 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, - & 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I, 3),I=1,49)/ - & 0.02821D0, 0.02609D0, 0.02411D0, 0.02301D0, 0.02226D0, - & 0.02169D0, 0.01996D0, 0.01827D0, 0.01727D0, 0.01654D0, - & 0.01595D0, 0.01400D0, 0.01174D0, 0.01027D0, 0.00917D0, - & 0.00829D0, 0.00696D0, 0.00558D0, 0.00415D0, 0.00329D0, - & 0.00239D0, 0.00200D0, 0.00182D0, 0.00170D0, 0.00161D0, - & 0.00151D0, 0.00140D0, 0.00127D0, 0.00113D0, 0.00099D0, - & 0.00084D0, 0.00071D0, 0.00058D0, 0.00047D0, 0.00038D0, - & 0.00029D0, 0.00023D0, 0.00017D0, 0.00013D0, 0.00009D0, - & 0.00006D0, 0.00004D0, 0.00003D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I, 4),I=1,49)/ - & 0.07423D0, 0.06794D0, 0.06215D0, 0.05896D0, 0.05679D0, - & 0.05514D0, 0.05023D0, 0.04550D0, 0.04276D0, 0.04079D0, - & 0.03919D0, 0.03404D0, 0.02827D0, 0.02460D0, 0.02188D0, - & 0.01974D0, 0.01650D0, 0.01320D0, 0.00980D0, 0.00778D0, - & 0.00567D0, 0.00475D0, 0.00430D0, 0.00399D0, 0.00376D0, - & 0.00351D0, 0.00322D0, 0.00290D0, 0.00256D0, 0.00223D0, - & 0.00189D0, 0.00158D0, 0.00129D0, 0.00104D0, 0.00083D0, - & 0.00064D0, 0.00049D0, 0.00037D0, 0.00027D0, 0.00020D0, - & 0.00014D0, 0.00009D0, 0.00006D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I, 5),I=1,49)/ - & 0.13335D0, 0.12014D0, 0.10818D0, 0.10170D0, 0.09731D0, - & 0.09401D0, 0.08430D0, 0.07519D0, 0.07001D0, 0.06635D0, - & 0.06344D0, 0.05426D0, 0.04442D0, 0.03837D0, 0.03396D0, - & 0.03053D0, 0.02541D0, 0.02025D0, 0.01501D0, 0.01192D0, - & 0.00870D0, 0.00726D0, 0.00654D0, 0.00602D0, 0.00561D0, - & 0.00519D0, 0.00472D0, 0.00422D0, 0.00370D0, 0.00319D0, - & 0.00269D0, 0.00224D0, 0.00183D0, 0.00146D0, 0.00116D0, - & 0.00089D0, 0.00068D0, 0.00051D0, 0.00038D0, 0.00027D0, - & 0.00019D0, 0.00013D0, 0.00008D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I, 6),I=1,49)/ - & 0.20163D0, 0.17920D0, 0.15918D0, 0.14846D0, 0.14125D0, - & 0.13587D0, 0.12018D0, 0.10574D0, 0.09768D0, 0.09205D0, - & 0.08763D0, 0.07395D0, 0.05979D0, 0.05130D0, 0.04521D0, - & 0.04052D0, 0.03360D0, 0.02669D0, 0.01976D0, 0.01569D0, - & 0.01145D0, 0.00954D0, 0.00855D0, 0.00780D0, 0.00720D0, - & 0.00661D0, 0.00597D0, 0.00530D0, 0.00461D0, 0.00396D0, - & 0.00333D0, 0.00275D0, 0.00223D0, 0.00178D0, 0.00140D0, - & 0.00108D0, 0.00082D0, 0.00061D0, 0.00045D0, 0.00032D0, - & 0.00022D0, 0.00015D0, 0.00010D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I, 7),I=1,49)/ - & 0.27774D0, 0.24395D0, 0.21415D0, 0.19835D0, 0.18780D0, - & 0.17996D0, 0.15730D0, 0.13677D0, 0.12547D0, 0.11766D0, - & 0.11157D0, 0.09303D0, 0.07437D0, 0.06341D0, 0.05566D0, - & 0.04974D0, 0.04109D0, 0.03255D0, 0.02405D0, 0.01909D0, - & 0.01394D0, 0.01158D0, 0.01033D0, 0.00936D0, 0.00857D0, - & 0.00780D0, 0.00699D0, 0.00616D0, 0.00533D0, 0.00455D0, - & 0.00380D0, 0.00313D0, 0.00253D0, 0.00201D0, 0.00157D0, - & 0.00121D0, 0.00091D0, 0.00068D0, 0.00050D0, 0.00036D0, - & 0.00024D0, 0.00016D0, 0.00011D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I, 8),I=1,49)/ - & 0.37644D0, 0.32674D0, 0.28346D0, 0.26073D0, 0.24565D0, - & 0.23449D0, 0.20256D0, 0.17404D0, 0.15854D0, 0.14793D0, - & 0.13972D0, 0.11511D0, 0.09095D0, 0.07707D0, 0.06738D0, - & 0.06004D0, 0.04941D0, 0.03901D0, 0.02877D0, 0.02283D0, - & 0.01667D0, 0.01381D0, 0.01226D0, 0.01101D0, 0.01000D0, - & 0.00902D0, 0.00803D0, 0.00703D0, 0.00604D0, 0.00513D0, - & 0.00426D0, 0.00349D0, 0.00280D0, 0.00222D0, 0.00173D0, - & 0.00132D0, 0.00099D0, 0.00074D0, 0.00054D0, 0.00039D0, - & 0.00026D0, 0.00017D0, 0.00011D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I, 9),I=1,49)/ - & 0.47784D0, 0.41072D0, 0.35284D0, 0.32270D0, 0.30279D0, - & 0.28813D0, 0.24646D0, 0.20968D0, 0.18991D0, 0.17647D0, - & 0.16612D0, 0.13548D0, 0.10603D0, 0.08938D0, 0.07787D0, - & 0.06921D0, 0.05678D0, 0.04472D0, 0.03292D0, 0.02612D0, - & 0.01906D0, 0.01575D0, 0.01392D0, 0.01241D0, 0.01119D0, - & 0.01003D0, 0.00887D0, 0.00772D0, 0.00660D0, 0.00557D0, - & 0.00461D0, 0.00376D0, 0.00301D0, 0.00237D0, 0.00184D0, - & 0.00140D0, 0.00105D0, 0.00077D0, 0.00057D0, 0.00041D0, - & 0.00027D0, 0.00018D0, 0.00011D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,10),I=1,49)/ - & 0.58781D0, 0.50078D0, 0.42641D0, 0.38796D0, 0.36269D0, - & 0.34414D0, 0.29176D0, 0.24601D0, 0.22164D0, 0.20518D0, - & 0.19257D0, 0.15561D0, 0.12070D0, 0.10126D0, 0.08794D0, - & 0.07799D0, 0.06379D0, 0.05011D0, 0.03684D0, 0.02922D0, - & 0.02130D0, 0.01755D0, 0.01544D0, 0.01368D0, 0.01225D0, - & 0.01090D0, 0.00959D0, 0.00830D0, 0.00706D0, 0.00594D0, - & 0.00489D0, 0.00397D0, 0.00316D0, 0.00248D0, 0.00192D0, - & 0.00146D0, 0.00109D0, 0.00080D0, 0.00059D0, 0.00042D0, - & 0.00027D0, 0.00018D0, 0.00012D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,11),I=1,49)/ - & 0.68602D0, 0.58051D0, 0.49095D0, 0.44491D0, 0.41476D0, - & 0.39269D0, 0.33066D0, 0.27690D0, 0.24847D0, 0.22936D0, - & 0.21477D0, 0.17232D0, 0.13275D0, 0.11095D0, 0.09613D0, - & 0.08510D0, 0.06944D0, 0.05445D0, 0.03997D0, 0.03169D0, - & 0.02308D0, 0.01898D0, 0.01663D0, 0.01466D0, 0.01306D0, - & 0.01157D0, 0.01013D0, 0.00872D0, 0.00740D0, 0.00620D0, - & 0.00508D0, 0.00411D0, 0.00327D0, 0.00256D0, 0.00197D0, - & 0.00149D0, 0.00111D0, 0.00081D0, 0.00060D0, 0.00042D0, - & 0.00028D0, 0.00018D0, 0.00012D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,12),I=1,49)/ - & 0.92772D0, 0.77438D0, 0.64603D0, 0.58078D0, 0.53835D0, - & 0.50746D0, 0.42147D0, 0.34811D0, 0.30983D0, 0.28433D0, - & 0.26501D0, 0.20960D0, 0.15924D0, 0.13208D0, 0.11385D0, - & 0.10043D0, 0.08155D0, 0.06370D0, 0.04663D0, 0.03692D0, - & 0.02683D0, 0.02195D0, 0.01909D0, 0.01665D0, 0.01467D0, - & 0.01287D0, 0.01115D0, 0.00952D0, 0.00801D0, 0.00666D0, - & 0.00542D0, 0.00436D0, 0.00344D0, 0.00268D0, 0.00205D0, - & 0.00155D0, 0.00115D0, 0.00083D0, 0.00061D0, 0.00043D0, - & 0.00028D0, 0.00018D0, 0.00011D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,13),I=1,49)/ - & 1.17595D0, 0.97076D0, 0.80093D0, 0.71538D0, 0.66007D0, - & 0.61997D0, 0.50921D0, 0.41588D0, 0.36771D0, 0.33586D0, - & 0.31184D0, 0.24377D0, 0.18310D0, 0.15092D0, 0.12956D0, - & 0.11394D0, 0.09216D0, 0.07174D0, 0.05238D0, 0.04143D0, - & 0.03003D0, 0.02446D0, 0.02114D0, 0.01827D0, 0.01595D0, - & 0.01387D0, 0.01193D0, 0.01011D0, 0.00845D0, 0.00698D0, - & 0.00565D0, 0.00451D0, 0.00355D0, 0.00275D0, 0.00209D0, - & 0.00157D0, 0.00116D0, 0.00084D0, 0.00061D0, 0.00043D0, - & 0.00028D0, 0.00018D0, 0.00011D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,14),I=1,49)/ - & 1.49839D0, 1.22261D0, 0.99703D0, 0.88447D0, 0.81213D0, - & 0.75993D0, 0.61688D0, 0.49791D0, 0.43718D0, 0.39731D0, - & 0.36742D0, 0.28369D0, 0.21052D0, 0.17237D0, 0.14732D0, - & 0.12915D0, 0.10402D0, 0.08067D0, 0.05873D0, 0.04638D0, - & 0.03352D0, 0.02715D0, 0.02331D0, 0.01995D0, 0.01725D0, - & 0.01486D0, 0.01267D0, 0.01065D0, 0.00884D0, 0.00725D0, - & 0.00583D0, 0.00463D0, 0.00362D0, 0.00279D0, 0.00211D0, - & 0.00158D0, 0.00116D0, 0.00083D0, 0.00061D0, 0.00043D0, - & 0.00027D0, 0.00018D0, 0.00011D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,15),I=1,49)/ - & 1.87945D0, 1.51634D0, 1.22268D0, 1.07750D0, 0.98475D0, - & 0.91809D0, 0.73686D0, 0.58798D0, 0.51279D0, 0.46377D0, - & 0.42722D0, 0.32591D0, 0.23902D0, 0.19443D0, 0.16545D0, - & 0.14459D0, 0.11596D0, 0.08960D0, 0.06503D0, 0.05127D0, - & 0.03691D0, 0.02973D0, 0.02534D0, 0.02147D0, 0.01838D0, - & 0.01569D0, 0.01327D0, 0.01107D0, 0.00912D0, 0.00743D0, - & 0.00594D0, 0.00469D0, 0.00364D0, 0.00279D0, 0.00210D0, - & 0.00156D0, 0.00114D0, 0.00082D0, 0.00059D0, 0.00041D0, - & 0.00026D0, 0.00017D0, 0.00010D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,16),I=1,49)/ - & 2.27429D0, 1.81716D0, 1.45106D0, 1.27151D0, 1.15736D0, - & 1.07564D0, 0.85491D0, 0.67549D0, 0.58568D0, 0.52749D0, - & 0.48429D0, 0.36563D0, 0.26542D0, 0.21469D0, 0.18200D0, - & 0.15862D0, 0.12673D0, 0.09760D0, 0.07063D0, 0.05559D0, - & 0.03988D0, 0.03195D0, 0.02705D0, 0.02273D0, 0.01930D0, - & 0.01634D0, 0.01371D0, 0.01136D0, 0.00930D0, 0.00753D0, - & 0.00599D0, 0.00470D0, 0.00364D0, 0.00277D0, 0.00208D0, - & 0.00154D0, 0.00112D0, 0.00080D0, 0.00058D0, 0.00040D0, - & 0.00025D0, 0.00016D0, 0.00010D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,17),I=1,49)/ - & 2.72539D0, 2.15724D0, 1.70653D0, 1.48715D0, 1.34837D0, - & 1.24937D0, 0.98364D0, 0.76983D0, 0.66373D0, 0.59537D0, - & 0.54484D0, 0.40724D0, 0.29272D0, 0.23547D0, 0.19888D0, - & 0.17287D0, 0.13761D0, 0.10564D0, 0.07622D0, 0.05987D0, - & 0.04278D0, 0.03409D0, 0.02869D0, 0.02390D0, 0.02012D0, - & 0.01691D0, 0.01408D0, 0.01159D0, 0.00943D0, 0.00759D0, - & 0.00600D0, 0.00469D0, 0.00361D0, 0.00273D0, 0.00204D0, - & 0.00151D0, 0.00109D0, 0.00078D0, 0.00056D0, 0.00039D0, - & 0.00024D0, 0.00015D0, 0.00009D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,18),I=1,49)/ - & 3.13641D0, 2.46418D0, 1.93488D0, 1.67881D0, 1.51744D0, - & 1.40264D0, 1.09608D0, 0.85138D0, 0.73076D0, 0.65340D0, - & 0.59642D0, 0.44225D0, 0.31539D0, 0.25259D0, 0.21272D0, - & 0.18450D0, 0.14644D0, 0.11211D0, 0.08069D0, 0.06328D0, - & 0.04506D0, 0.03575D0, 0.02993D0, 0.02476D0, 0.02070D0, - & 0.01729D0, 0.01432D0, 0.01172D0, 0.00949D0, 0.00760D0, - & 0.00598D0, 0.00466D0, 0.00357D0, 0.00269D0, 0.00201D0, - & 0.00147D0, 0.00106D0, 0.00075D0, 0.00054D0, 0.00038D0, - & 0.00023D0, 0.00015D0, 0.00009D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,19),I=1,49)/ - & 3.68153D0, 2.86757D0, 2.23222D0, 1.92702D0, 1.73553D0, - & 1.59976D0, 1.23927D0, 0.95419D0, 0.81477D0, 0.72581D0, - & 0.66053D0, 0.48527D0, 0.34292D0, 0.27324D0, 0.22931D0, - & 0.19839D0, 0.15691D0, 0.11975D0, 0.08593D0, 0.06725D0, - & 0.04768D0, 0.03762D0, 0.03130D0, 0.02569D0, 0.02130D0, - & 0.01766D0, 0.01453D0, 0.01182D0, 0.00951D0, 0.00757D0, - & 0.00594D0, 0.00459D0, 0.00350D0, 0.00264D0, 0.00195D0, - & 0.00143D0, 0.00103D0, 0.00072D0, 0.00052D0, 0.00036D0, - & 0.00022D0, 0.00014D0, 0.00008D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,20),I=1,49)/ - & 4.21665D0, 3.26014D0, 2.51906D0, 2.16522D0, 1.94405D0, - & 1.78768D0, 1.37455D0, 1.05042D0, 0.89295D0, 0.79293D0, - & 0.71977D0, 0.52460D0, 0.36780D0, 0.29178D0, 0.24415D0, - & 0.21076D0, 0.16620D0, 0.12648D0, 0.09052D0, 0.07070D0, - & 0.04993D0, 0.03920D0, 0.03244D0, 0.02644D0, 0.02178D0, - & 0.01794D0, 0.01467D0, 0.01187D0, 0.00951D0, 0.00753D0, - & 0.00588D0, 0.00453D0, 0.00344D0, 0.00258D0, 0.00191D0, - & 0.00139D0, 0.00099D0, 0.00070D0, 0.00050D0, 0.00035D0, - & 0.00021D0, 0.00013D0, 0.00008D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,21),I=1,49)/ - & 4.73651D0, 3.63839D0, 2.79314D0, 2.39169D0, 2.14159D0, - & 1.96521D0, 1.50121D0, 1.13968D0, 0.96506D0, 0.85456D0, - & 0.77398D0, 0.56020D0, 0.39006D0, 0.30823D0, 0.25724D0, - & 0.22164D0, 0.17431D0, 0.13232D0, 0.09445D0, 0.07364D0, - & 0.05181D0, 0.04050D0, 0.03335D0, 0.02701D0, 0.02212D0, - & 0.01812D0, 0.01474D0, 0.01187D0, 0.00946D0, 0.00747D0, - & 0.00580D0, 0.00446D0, 0.00337D0, 0.00252D0, 0.00185D0, - & 0.00135D0, 0.00096D0, 0.00068D0, 0.00049D0, 0.00034D0, - & 0.00020D0, 0.00013D0, 0.00007D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,22),I=1,49)/ - & 5.45753D0, 4.15887D0, 3.16726D0, 2.69936D0, 2.40907D0, - & 2.20495D0, 1.67083D0, 1.25820D0, 1.06032D0, 0.93568D0, - & 0.84511D0, 0.60646D0, 0.41869D0, 0.32928D0, 0.27391D0, - & 0.23544D0, 0.18455D0, 0.13964D0, 0.09936D0, 0.07728D0, - & 0.05411D0, 0.04206D0, 0.03442D0, 0.02766D0, 0.02248D0, - & 0.01829D0, 0.01478D0, 0.01184D0, 0.00938D0, 0.00736D0, - & 0.00570D0, 0.00435D0, 0.00328D0, 0.00244D0, 0.00179D0, - & 0.00129D0, 0.00092D0, 0.00065D0, 0.00046D0, 0.00032D0, - & 0.00019D0, 0.00012D0, 0.00007D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,23),I=1,49)/ - & 6.19783D0, 4.68879D0, 3.54494D0, 3.00840D0, 2.67675D0, - & 2.44420D0, 1.83862D0, 1.37436D0, 1.15316D0, 1.01443D0, - & 0.91394D0, 0.65074D0, 0.44579D0, 0.34906D0, 0.28951D0, - & 0.24830D0, 0.19403D0, 0.14639D0, 0.10384D0, 0.08058D0, - & 0.05616D0, 0.04343D0, 0.03534D0, 0.02820D0, 0.02276D0, - & 0.01841D0, 0.01478D0, 0.01177D0, 0.00929D0, 0.00725D0, - & 0.00558D0, 0.00425D0, 0.00319D0, 0.00236D0, 0.00173D0, - & 0.00124D0, 0.00088D0, 0.00062D0, 0.00044D0, 0.00031D0, - & 0.00018D0, 0.00011D0, 0.00007D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,24),I=1,49)/ - & 6.92966D0, 5.20839D0, 3.91218D0, 3.30740D0, 2.93482D0, - & 2.67420D0, 1.99847D0, 1.48399D0, 1.24028D0, 1.08801D0, - & 0.97803D0, 0.69152D0, 0.47043D0, 0.36691D0, 0.30350D0, - & 0.25978D0, 0.20243D0, 0.15231D0, 0.10773D0, 0.08341D0, - & 0.05788D0, 0.04454D0, 0.03605D0, 0.02858D0, 0.02293D0, - & 0.01844D0, 0.01473D0, 0.01167D0, 0.00917D0, 0.00713D0, - & 0.00547D0, 0.00415D0, 0.00310D0, 0.00229D0, 0.00167D0, - & 0.00120D0, 0.00085D0, 0.00059D0, 0.00043D0, 0.00030D0, - & 0.00017D0, 0.00011D0, 0.00006D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,25),I=1,49)/ - & 7.72396D0, 5.76848D0, 4.30532D0, 3.62618D0, 3.20915D0, - & 2.91815D0, 2.16681D0, 1.59861D0, 1.33097D0, 1.16435D0, - & 1.04435D0, 0.73337D0, 0.49551D0, 0.38498D0, 0.31761D0, - & 0.27133D0, 0.21084D0, 0.15821D0, 0.11158D0, 0.08620D0, - & 0.05955D0, 0.04560D0, 0.03673D0, 0.02893D0, 0.02307D0, - & 0.01845D0, 0.01466D0, 0.01156D0, 0.00904D0, 0.00700D0, - & 0.00535D0, 0.00404D0, 0.00301D0, 0.00221D0, 0.00161D0, - & 0.00115D0, 0.00081D0, 0.00057D0, 0.00041D0, 0.00028D0, - & 0.00017D0, 0.00010D0, 0.00006D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,26),I=1,49)/ - & 8.54145D0, 6.34073D0, 4.70401D0, 3.94803D0, 3.48525D0, - & 3.16305D0, 2.33446D0, 1.71181D0, 1.42007D0, 1.23908D0, - & 1.10907D0, 0.77380D0, 0.51947D0, 0.40212D0, 0.33092D0, - & 0.28218D0, 0.21869D0, 0.16367D0, 0.11510D0, 0.08871D0, - & 0.06103D0, 0.04651D0, 0.03727D0, 0.02918D0, 0.02314D0, - & 0.01840D0, 0.01456D0, 0.01142D0, 0.00889D0, 0.00686D0, - & 0.00522D0, 0.00393D0, 0.00292D0, 0.00214D0, 0.00155D0, - & 0.00111D0, 0.00078D0, 0.00054D0, 0.00039D0, 0.00027D0, - & 0.00016D0, 0.00009D0, 0.00005D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,27),I=1,49)/ - & 9.36625D0, 6.91445D0, 5.10115D0, 4.26741D0, 3.75848D0, - & 3.40490D0, 2.49891D0, 1.82207D0, 1.50649D0, 1.31134D0, - & 1.17150D0, 0.81249D0, 0.54219D0, 0.41829D0, 0.34343D0, - & 0.29234D0, 0.22601D0, 0.16873D0, 0.11834D0, 0.09101D0, - & 0.06235D0, 0.04731D0, 0.03774D0, 0.02938D0, 0.02318D0, - & 0.01834D0, 0.01444D0, 0.01128D0, 0.00875D0, 0.00672D0, - & 0.00510D0, 0.00383D0, 0.00283D0, 0.00207D0, 0.00150D0, - & 0.00107D0, 0.00075D0, 0.00052D0, 0.00038D0, 0.00026D0, - & 0.00015D0, 0.00009D0, 0.00005D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,28),I=1,49)/ - & 10.18132D0, 7.47793D0, 5.48877D0, 4.57798D0, 4.02345D0, - & 3.63894D0, 2.65699D0, 1.92733D0, 1.58864D0, 1.37981D0, - & 1.23051D0, 0.84875D0, 0.56329D0, 0.43322D0, 0.35493D0, - & 0.30165D0, 0.23267D0, 0.17330D0, 0.12123D0, 0.09305D0, - & 0.06349D0, 0.04798D0, 0.03811D0, 0.02952D0, 0.02317D0, - & 0.01825D0, 0.01431D0, 0.01114D0, 0.00861D0, 0.00659D0, - & 0.00498D0, 0.00373D0, 0.00275D0, 0.00201D0, 0.00145D0, - & 0.00103D0, 0.00072D0, 0.00050D0, 0.00036D0, 0.00026D0, - & 0.00014D0, 0.00008D0, 0.00005D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,29),I=1,49)/ - & 11.04388D0, 8.07089D0, 5.89435D0, 4.90182D0, 4.29909D0, - & 3.88193D0, 2.82014D0, 2.03528D0, 1.67258D0, 1.44958D0, - & 1.29048D0, 0.88533D0, 0.58442D0, 0.44808D0, 0.36634D0, - & 0.31085D0, 0.23922D0, 0.17778D0, 0.12404D0, 0.09501D0, - & 0.06457D0, 0.04859D0, 0.03843D0, 0.02962D0, 0.02314D0, - & 0.01814D0, 0.01416D0, 0.01098D0, 0.00846D0, 0.00645D0, - & 0.00486D0, 0.00363D0, 0.00267D0, 0.00194D0, 0.00140D0, - & 0.00099D0, 0.00069D0, 0.00048D0, 0.00035D0, 0.00025D0, - & 0.00014D0, 0.00008D0, 0.00005D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,30),I=1,49)/ - & 11.92777D0, 8.67505D0, 6.30518D0, 5.22873D0, 4.57663D0, - & 4.12613D0, 2.98306D0, 2.14237D0, 1.75551D0, 1.51831D0, - & 1.34943D0, 0.92100D0, 0.60483D0, 0.46237D0, 0.37725D0, - & 0.31962D0, 0.24543D0, 0.18198D0, 0.12665D0, 0.09681D0, - & 0.06554D0, 0.04912D0, 0.03869D0, 0.02967D0, 0.02307D0, - & 0.01801D0, 0.01401D0, 0.01082D0, 0.00830D0, 0.00632D0, - & 0.00475D0, 0.00353D0, 0.00259D0, 0.00188D0, 0.00135D0, - & 0.00095D0, 0.00066D0, 0.00047D0, 0.00034D0, 0.00024D0, - & 0.00014D0, 0.00008D0, 0.00004D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,31),I=1,49)/ - & 12.81161D0, 9.27611D0, 6.71181D0, 5.55130D0, 4.84990D0, - & 4.36615D0, 3.14234D0, 2.24650D0, 1.83587D0, 1.58474D0, - & 1.40629D0, 0.95519D0, 0.62425D0, 0.47590D0, 0.38756D0, - & 0.32788D0, 0.25125D0, 0.18591D0, 0.12907D0, 0.09846D0, - & 0.06642D0, 0.04959D0, 0.03891D0, 0.02970D0, 0.02299D0, - & 0.01788D0, 0.01385D0, 0.01067D0, 0.00816D0, 0.00619D0, - & 0.00464D0, 0.00344D0, 0.00252D0, 0.00182D0, 0.00130D0, - & 0.00092D0, 0.00064D0, 0.00045D0, 0.00033D0, 0.00023D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,32),I=1,49)/ - & 13.67059D0, 9.85720D0, 7.10279D0, 5.86046D0, 5.11119D0, - & 4.59523D0, 3.29346D0, 2.34466D0, 1.91134D0, 1.64694D0, - & 1.45941D0, 0.98687D0, 0.64209D0, 0.48825D0, 0.39691D0, - & 0.33535D0, 0.25648D0, 0.18940D0, 0.13119D0, 0.09990D0, - & 0.06714D0, 0.04995D0, 0.03906D0, 0.02968D0, 0.02289D0, - & 0.01773D0, 0.01369D0, 0.01051D0, 0.00801D0, 0.00606D0, - & 0.00453D0, 0.00335D0, 0.00245D0, 0.00177D0, 0.00126D0, - & 0.00089D0, 0.00062D0, 0.00043D0, 0.00032D0, 0.00023D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,33),I=1,49)/ - & 14.58850D0, 10.47558D0, 7.51716D0, 6.18731D0, 5.38695D0, - & 4.83668D0, 3.45207D0, 2.44727D0, 1.99002D0, 1.71168D0, - & 1.51462D0, 1.01965D0, 0.66046D0, 0.50094D0, 0.40651D0, - & 0.34300D0, 0.26182D0, 0.19296D0, 0.13335D0, 0.10136D0, - & 0.06788D0, 0.05032D0, 0.03921D0, 0.02967D0, 0.02278D0, - & 0.01759D0, 0.01353D0, 0.01035D0, 0.00787D0, 0.00594D0, - & 0.00443D0, 0.00327D0, 0.00238D0, 0.00172D0, 0.00122D0, - & 0.00086D0, 0.00060D0, 0.00042D0, 0.00031D0, 0.00022D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,34),I=1,49)/ - & 15.50215D0, 11.08776D0, 7.92505D0, 6.50796D0, 5.65681D0, - & 5.07248D0, 3.60600D0, 2.54615D0, 2.06552D0, 1.77359D0, - & 1.56726D0, 1.05062D0, 0.67763D0, 0.51270D0, 0.41535D0, - & 0.35001D0, 0.26666D0, 0.19615D0, 0.13524D0, 0.10260D0, - & 0.06847D0, 0.05058D0, 0.03928D0, 0.02960D0, 0.02264D0, - & 0.01742D0, 0.01336D0, 0.01019D0, 0.00772D0, 0.00581D0, - & 0.00432D0, 0.00318D0, 0.00232D0, 0.00166D0, 0.00118D0, - & 0.00083D0, 0.00058D0, 0.00041D0, 0.00030D0, 0.00022D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,35),I=1,49)/ - & 16.42021D0, 11.70052D0, 8.33176D0, 6.82695D0, 5.92484D0, - & 5.30641D0, 3.75809D0, 2.64348D0, 2.13966D0, 1.83429D0, - & 1.61881D0, 1.08081D0, 0.69429D0, 0.52409D0, 0.42389D0, - & 0.35678D0, 0.27133D0, 0.19921D0, 0.13706D0, 0.10380D0, - & 0.06904D0, 0.05083D0, 0.03934D0, 0.02953D0, 0.02251D0, - & 0.01726D0, 0.01320D0, 0.01004D0, 0.00759D0, 0.00569D0, - & 0.00422D0, 0.00310D0, 0.00225D0, 0.00162D0, 0.00115D0, - & 0.00080D0, 0.00056D0, 0.00039D0, 0.00029D0, 0.00021D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,36),I=1,49)/ - & 17.31499D0, 12.29519D0, 8.72473D0, 7.13436D0, 6.18265D0, - & 5.53107D0, 3.90347D0, 2.73604D0, 2.20994D0, 1.89170D0, - & 1.66747D0, 1.10914D0, 0.70980D0, 0.53464D0, 0.43178D0, - & 0.36300D0, 0.27560D0, 0.20200D0, 0.13869D0, 0.10485D0, - & 0.06952D0, 0.05103D0, 0.03937D0, 0.02945D0, 0.02237D0, - & 0.01710D0, 0.01303D0, 0.00989D0, 0.00746D0, 0.00558D0, - & 0.00413D0, 0.00303D0, 0.00220D0, 0.00157D0, 0.00111D0, - & 0.00078D0, 0.00054D0, 0.00038D0, 0.00028D0, 0.00021D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,37),I=1,49)/ - & 18.24071D0, 12.90782D0, 9.12782D0, 7.44886D0, 6.44591D0, - & 5.76014D0, 4.05101D0, 2.82949D0, 2.28068D0, 1.94934D0, - & 1.71624D0, 1.13734D0, 0.72513D0, 0.54501D0, 0.43949D0, - & 0.36907D0, 0.27974D0, 0.20467D0, 0.14023D0, 0.10583D0, - & 0.06996D0, 0.05118D0, 0.03937D0, 0.02934D0, 0.02221D0, - & 0.01693D0, 0.01286D0, 0.00973D0, 0.00732D0, 0.00547D0, - & 0.00404D0, 0.00296D0, 0.00214D0, 0.00153D0, 0.00108D0, - & 0.00076D0, 0.00052D0, 0.00037D0, 0.00027D0, 0.00020D0, - & 0.00013D0, 0.00007D0, 0.00004D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,5,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I, 1),I=1,49)/ - & 0.49855D0, 0.42587D0, 0.36389D0, 0.33197D0, 0.31109D0, - & 0.29584D0, 0.25332D0, 0.21750D0, 0.19938D0, 0.18774D0, - & 0.17961D0, 0.15726D0, 0.13904D0, 0.12982D0, 0.12379D0, - & 0.11933D0, 0.11282D0, 0.10593D0, 0.09760D0, 0.09090D0, - & 0.07946D0, 0.06933D0, 0.06013D0, 0.04980D0, 0.04078D0, - & 0.03302D0, 0.02641D0, 0.02091D0, 0.01639D0, 0.01253D0, - & 0.00964D0, 0.00728D0, 0.00545D0, 0.00406D0, 0.00291D0, - & 0.00211D0, 0.00151D0, 0.00106D0, 0.00067D0, 0.00051D0, - & 0.00036D0, 0.00020D0, 0.00015D0, 0.00005D0, 0.00001D0, - & -0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I, 2),I=1,49)/ - & 0.50643D0, 0.43610D0, 0.37562D0, 0.34428D0, 0.32368D0, - & 0.30859D0, 0.26628D0, 0.23029D0, 0.21194D0, 0.20007D0, - & 0.19176D0, 0.16857D0, 0.14897D0, 0.13868D0, 0.13176D0, - & 0.12655D0, 0.11883D0, 0.11060D0, 0.10078D0, 0.09314D0, - & 0.08065D0, 0.07007D0, 0.06069D0, 0.05033D0, 0.04135D0, - & 0.03363D0, 0.02706D0, 0.02157D0, 0.01702D0, 0.01315D0, - & 0.01020D0, 0.00777D0, 0.00589D0, 0.00442D0, 0.00323D0, - & 0.00236D0, 0.00171D0, 0.00122D0, 0.00079D0, 0.00059D0, - & 0.00042D0, 0.00024D0, 0.00018D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I, 3),I=1,49)/ - & 0.53555D0, 0.46535D0, 0.40441D0, 0.37256D0, 0.35153D0, - & 0.33606D0, 0.29238D0, 0.25475D0, 0.23531D0, 0.22262D0, - & 0.21361D0, 0.18804D0, 0.16542D0, 0.15305D0, 0.14451D0, - & 0.13799D0, 0.12824D0, 0.11785D0, 0.10571D0, 0.09664D0, - & 0.08259D0, 0.07132D0, 0.06165D0, 0.05118D0, 0.04219D0, - & 0.03449D0, 0.02794D0, 0.02243D0, 0.01784D0, 0.01392D0, - & 0.01089D0, 0.00837D0, 0.00641D0, 0.00486D0, 0.00360D0, - & 0.00265D0, 0.00193D0, 0.00138D0, 0.00092D0, 0.00067D0, - & 0.00048D0, 0.00029D0, 0.00022D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I, 4),I=1,49)/ - & 0.57226D0, 0.49911D0, 0.43533D0, 0.40188D0, 0.37974D0, - & 0.36342D0, 0.31717D0, 0.27704D0, 0.25615D0, 0.24242D0, - & 0.23256D0, 0.20428D0, 0.17865D0, 0.16439D0, 0.15446D0, - & 0.14683D0, 0.13543D0, 0.12334D0, 0.10944D0, 0.09929D0, - & 0.08411D0, 0.07232D0, 0.06240D0, 0.05181D0, 0.04280D0, - & 0.03507D0, 0.02851D0, 0.02298D0, 0.01835D0, 0.01437D0, - & 0.01128D0, 0.00872D0, 0.00670D0, 0.00509D0, 0.00378D0, - & 0.00278D0, 0.00204D0, 0.00149D0, 0.00099D0, 0.00072D0, - & 0.00050D0, 0.00032D0, 0.00023D0, 0.00009D0, 0.00003D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I, 5),I=1,49)/ - & 0.63213D0, 0.55147D0, 0.48109D0, 0.44417D0, 0.41970D0, - & 0.40166D0, 0.35046D0, 0.30587D0, 0.28254D0, 0.26712D0, - & 0.25592D0, 0.22358D0, 0.19384D0, 0.17718D0, 0.16554D0, - & 0.15661D0, 0.14330D0, 0.12931D0, 0.11348D0, 0.10220D0, - & 0.08579D0, 0.07344D0, 0.06325D0, 0.05250D0, 0.04341D0, - & 0.03561D0, 0.02901D0, 0.02344D0, 0.01875D0, 0.01473D0, - & 0.01158D0, 0.00897D0, 0.00690D0, 0.00525D0, 0.00392D0, - & 0.00287D0, 0.00212D0, 0.00153D0, 0.00104D0, 0.00075D0, - & 0.00052D0, 0.00033D0, 0.00023D0, 0.00009D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I, 6),I=1,49)/ - & 0.69484D0, 0.60548D0, 0.52759D0, 0.48675D0, 0.45969D0, - & 0.43974D0, 0.38311D0, 0.33372D0, 0.30779D0, 0.29059D0, - & 0.27800D0, 0.24152D0, 0.20772D0, 0.18874D0, 0.17549D0, - & 0.16535D0, 0.15028D0, 0.13457D0, 0.11704D0, 0.10475D0, - & 0.08728D0, 0.07444D0, 0.06400D0, 0.05308D0, 0.04390D0, - & 0.03605D0, 0.02939D0, 0.02378D0, 0.01903D0, 0.01499D0, - & 0.01179D0, 0.00914D0, 0.00703D0, 0.00535D0, 0.00400D0, - & 0.00293D0, 0.00217D0, 0.00156D0, 0.00107D0, 0.00077D0, - & 0.00053D0, 0.00034D0, 0.00024D0, 0.00009D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I, 7),I=1,49)/ - & 0.77164D0, 0.67034D0, 0.58230D0, 0.53624D0, 0.50577D0, - & 0.48332D0, 0.41966D0, 0.36421D0, 0.33508D0, 0.31572D0, - & 0.30145D0, 0.26012D0, 0.22178D0, 0.20031D0, 0.18536D0, - & 0.17396D0, 0.15711D0, 0.13969D0, 0.12049D0, 0.10724D0, - & 0.08874D0, 0.07542D0, 0.06472D0, 0.05362D0, 0.04433D0, - & 0.03642D0, 0.02969D0, 0.02403D0, 0.01923D0, 0.01516D0, - & 0.01193D0, 0.00926D0, 0.00710D0, 0.00541D0, 0.00405D0, - & 0.00297D0, 0.00219D0, 0.00158D0, 0.00108D0, 0.00077D0, - & 0.00052D0, 0.00033D0, 0.00024D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I, 8),I=1,49)/ - & 0.86838D0, 0.75105D0, 0.64953D0, 0.59658D0, 0.56163D0, - & 0.53592D0, 0.46317D0, 0.39995D0, 0.36678D0, 0.34473D0, - & 0.32838D0, 0.28112D0, 0.23740D0, 0.21303D0, 0.19616D0, - & 0.18334D0, 0.16450D0, 0.14520D0, 0.12419D0, 0.10991D0, - & 0.09031D0, 0.07647D0, 0.06547D0, 0.05416D0, 0.04475D0, - & 0.03674D0, 0.02994D0, 0.02423D0, 0.01939D0, 0.01529D0, - & 0.01202D0, 0.00932D0, 0.00715D0, 0.00545D0, 0.00407D0, - & 0.00298D0, 0.00220D0, 0.00159D0, 0.00108D0, 0.00077D0, - & 0.00052D0, 0.00033D0, 0.00024D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I, 9),I=1,49)/ - & 0.96608D0, 0.83177D0, 0.71606D0, 0.65593D0, 0.61632D0, - & 0.58722D0, 0.50510D0, 0.43397D0, 0.39671D0, 0.37195D0, - & 0.35355D0, 0.30046D0, 0.25156D0, 0.22448D0, 0.20581D0, - & 0.19169D0, 0.17103D0, 0.15004D0, 0.12743D0, 0.11224D0, - & 0.09169D0, 0.07737D0, 0.06612D0, 0.05461D0, 0.04508D0, - & 0.03697D0, 0.03013D0, 0.02435D0, 0.01949D0, 0.01536D0, - & 0.01207D0, 0.00933D0, 0.00718D0, 0.00545D0, 0.00407D0, - & 0.00298D0, 0.00219D0, 0.00159D0, 0.00106D0, 0.00076D0, - & 0.00052D0, 0.00033D0, 0.00024D0, 0.00009D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,10),I=1,49)/ - & 1.07543D0, 0.92116D0, 0.78892D0, 0.72047D0, 0.67548D0, - & 0.64249D0, 0.54968D0, 0.46963D0, 0.42782D0, 0.40008D0, - & 0.37941D0, 0.32003D0, 0.26568D0, 0.23578D0, 0.21528D0, - & 0.19985D0, 0.17739D0, 0.15473D0, 0.13057D0, 0.11449D0, - & 0.09302D0, 0.07823D0, 0.06672D0, 0.05501D0, 0.04535D0, - & 0.03715D0, 0.03025D0, 0.02442D0, 0.01953D0, 0.01538D0, - & 0.01207D0, 0.00932D0, 0.00717D0, 0.00543D0, 0.00405D0, - & 0.00296D0, 0.00217D0, 0.00158D0, 0.00105D0, 0.00075D0, - & 0.00051D0, 0.00033D0, 0.00023D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,11),I=1,49)/ - & 1.17158D0, 0.99923D0, 0.85209D0, 0.77617D0, 0.72639D0, - & 0.68993D0, 0.58762D0, 0.49971D0, 0.45391D0, 0.42357D0, - & 0.40096D0, 0.33616D0, 0.27719D0, 0.24495D0, 0.22293D0, - & 0.20642D0, 0.18248D0, 0.15848D0, 0.13306D0, 0.11628D0, - & 0.09406D0, 0.07891D0, 0.06718D0, 0.05531D0, 0.04555D0, - & 0.03727D0, 0.03032D0, 0.02446D0, 0.01953D0, 0.01537D0, - & 0.01205D0, 0.00930D0, 0.00714D0, 0.00540D0, 0.00402D0, - & 0.00294D0, 0.00214D0, 0.00155D0, 0.00104D0, 0.00074D0, - & 0.00050D0, 0.00032D0, 0.00022D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,12),I=1,49)/ - & 1.40820D0, 1.18938D0, 1.00430D0, 0.90953D0, 0.84767D0, - & 0.80252D0, 0.67658D0, 0.56932D0, 0.51382D0, 0.47719D0, - & 0.44989D0, 0.37226D0, 0.30256D0, 0.26497D0, 0.23955D0, - & 0.22062D0, 0.19343D0, 0.16648D0, 0.13836D0, 0.12007D0, - & 0.09626D0, 0.08032D0, 0.06811D0, 0.05588D0, 0.04588D0, - & 0.03745D0, 0.03039D0, 0.02446D0, 0.01948D0, 0.01531D0, - & 0.01197D0, 0.00921D0, 0.00706D0, 0.00532D0, 0.00395D0, - & 0.00288D0, 0.00209D0, 0.00151D0, 0.00101D0, 0.00072D0, - & 0.00049D0, 0.00031D0, 0.00021D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,13),I=1,49)/ - & 1.64756D0, 1.37951D0, 1.15467D0, 1.04031D0, 0.96596D0, - & 0.91188D0, 0.76181D0, 0.63505D0, 0.56988D0, 0.52704D0, - & 0.49515D0, 0.40510D0, 0.32525D0, 0.28268D0, 0.25415D0, - & 0.23303D0, 0.20292D0, 0.17336D0, 0.14288D0, 0.12329D0, - & 0.09812D0, 0.08148D0, 0.06886D0, 0.05629D0, 0.04609D0, - & 0.03753D0, 0.03037D0, 0.02438D0, 0.01937D0, 0.01519D0, - & 0.01185D0, 0.00910D0, 0.00695D0, 0.00523D0, 0.00387D0, - & 0.00281D0, 0.00204D0, 0.00147D0, 0.00097D0, 0.00069D0, - & 0.00048D0, 0.00029D0, 0.00020D0, 0.00007D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,14),I=1,49)/ - & 1.95709D0, 1.62260D0, 1.34467D0, 1.20438D0, 1.11362D0, - & 1.04783D0, 0.86639D0, 0.71460D0, 0.63715D0, 0.58648D0, - & 0.54885D0, 0.44345D0, 0.35130D0, 0.30283D0, 0.27064D0, - & 0.24698D0, 0.21351D0, 0.18099D0, 0.14786D0, 0.12681D0, - & 0.10011D0, 0.08269D0, 0.06959D0, 0.05666D0, 0.04624D0, - & 0.03752D0, 0.03025D0, 0.02422D0, 0.01919D0, 0.01499D0, - & 0.01165D0, 0.00893D0, 0.00678D0, 0.00510D0, 0.00375D0, - & 0.00271D0, 0.00197D0, 0.00141D0, 0.00093D0, 0.00065D0, - & 0.00045D0, 0.00028D0, 0.00019D0, 0.00007D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,15),I=1,49)/ - & 2.33106D0, 1.91266D0, 1.56849D0, 1.39616D0, 1.28524D0, - & 1.20514D0, 0.98569D0, 0.80398D0, 0.71204D0, 0.65222D0, - & 0.60792D0, 0.48491D0, 0.37897D0, 0.32402D0, 0.28785D0, - & 0.26145D0, 0.22441D0, 0.18878D0, 0.15289D0, 0.13035D0, - & 0.10206D0, 0.08383D0, 0.07023D0, 0.05691D0, 0.04625D0, - & 0.03736D0, 0.03004D0, 0.02396D0, 0.01891D0, 0.01473D0, - & 0.01139D0, 0.00872D0, 0.00659D0, 0.00494D0, 0.00362D0, - & 0.00261D0, 0.00189D0, 0.00136D0, 0.00089D0, 0.00062D0, - & 0.00043D0, 0.00026D0, 0.00018D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,16),I=1,49)/ - & 2.71585D0, 2.20785D0, 1.79373D0, 1.58787D0, 1.45597D0, - & 1.36104D0, 1.10250D0, 0.89041D0, 0.78391D0, 0.71494D0, - & 0.66403D0, 0.52372D0, 0.40449D0, 0.34337D0, 0.30346D0, - & 0.27452D0, 0.23417D0, 0.19570D0, 0.15732D0, 0.13343D0, - & 0.10373D0, 0.08475D0, 0.07072D0, 0.05705D0, 0.04617D0, - & 0.03716D0, 0.02977D0, 0.02366D0, 0.01861D0, 0.01445D0, - & 0.01114D0, 0.00850D0, 0.00640D0, 0.00478D0, 0.00350D0, - & 0.00251D0, 0.00181D0, 0.00130D0, 0.00086D0, 0.00058D0, - & 0.00040D0, 0.00024D0, 0.00016D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,17),I=1,49)/ - & 3.15180D0, 2.53892D0, 2.04375D0, 1.79938D0, 1.64351D0, - & 1.53170D0, 1.22899D0, 0.98294D0, 0.86032D0, 0.78129D0, - & 0.72315D0, 0.56409D0, 0.43066D0, 0.36305D0, 0.31926D0, - & 0.28768D0, 0.24394D0, 0.20257D0, 0.16168D0, 0.13644D0, - & 0.10531D0, 0.08560D0, 0.07112D0, 0.05711D0, 0.04602D0, - & 0.03691D0, 0.02945D0, 0.02332D0, 0.01829D0, 0.01415D0, - & 0.01087D0, 0.00826D0, 0.00621D0, 0.00462D0, 0.00337D0, - & 0.00241D0, 0.00173D0, 0.00124D0, 0.00082D0, 0.00055D0, - & 0.00038D0, 0.00023D0, 0.00015D0, 0.00005D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,18),I=1,49)/ - & 3.55145D0, 2.83962D0, 2.26870D0, 1.98860D0, 1.81061D0, - & 1.68328D0, 1.34021D0, 1.06346D0, 0.92638D0, 0.83839D0, - & 0.77383D0, 0.59827D0, 0.45255D0, 0.37938D0, 0.33229D0, - & 0.29849D0, 0.25191D0, 0.20813D0, 0.16517D0, 0.13882D0, - & 0.10653D0, 0.08622D0, 0.07137D0, 0.05708D0, 0.04584D0, - & 0.03664D0, 0.02914D0, 0.02300D0, 0.01798D0, 0.01388D0, - & 0.01064D0, 0.00807D0, 0.00604D0, 0.00448D0, 0.00326D0, - & 0.00232D0, 0.00166D0, 0.00119D0, 0.00077D0, 0.00053D0, - & 0.00036D0, 0.00022D0, 0.00015D0, 0.00005D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,19),I=1,49)/ - & 4.08243D0, 3.23554D0, 2.56218D0, 2.23414D0, 2.02661D0, - & 1.87862D0, 1.48217D0, 1.16519D0, 1.00935D0, 0.90979D0, - & 0.83697D0, 0.64037D0, 0.47917D0, 0.39910D0, 0.34794D0, - & 0.31141D0, 0.26137D0, 0.21468D0, 0.16924D0, 0.14156D0, - & 0.10788D0, 0.08686D0, 0.07159D0, 0.05697D0, 0.04554D0, - & 0.03624D0, 0.02871D0, 0.02258D0, 0.01759D0, 0.01353D0, - & 0.01034D0, 0.00780D0, 0.00582D0, 0.00431D0, 0.00313D0, - & 0.00222D0, 0.00159D0, 0.00113D0, 0.00073D0, 0.00050D0, - & 0.00034D0, 0.00021D0, 0.00014D0, 0.00005D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,20),I=1,49)/ - & 4.59984D0, 3.61795D0, 2.84314D0, 2.46798D0, 2.23154D0, - & 2.06341D0, 1.61522D0, 1.25965D0, 1.08594D0, 0.97542D0, - & 0.89482D0, 0.67853D0, 0.50302D0, 0.41664D0, 0.36179D0, - & 0.32280D0, 0.26966D0, 0.22039D0, 0.17274D0, 0.14391D0, - & 0.10901D0, 0.08736D0, 0.07173D0, 0.05682D0, 0.04524D0, - & 0.03586D0, 0.02831D0, 0.02220D0, 0.01723D0, 0.01322D0, - & 0.01007D0, 0.00756D0, 0.00563D0, 0.00415D0, 0.00301D0, - & 0.00213D0, 0.00152D0, 0.00108D0, 0.00071D0, 0.00046D0, - & 0.00032D0, 0.00019D0, 0.00013D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,21),I=1,49)/ - & 5.10866D0, 3.99099D0, 3.11497D0, 2.69310D0, 2.42814D0, - & 2.24021D0, 1.74141D0, 1.34843D0, 1.15753D0, 1.03651D0, - & 0.94850D0, 0.71355D0, 0.52465D0, 0.43244D0, 0.37419D0, - & 0.33296D0, 0.27700D0, 0.22539D0, 0.17578D0, 0.14590D0, - & 0.10992D0, 0.08772D0, 0.07175D0, 0.05660D0, 0.04490D0, - & 0.03547D0, 0.02791D0, 0.02182D0, 0.01688D0, 0.01291D0, - & 0.00980D0, 0.00735D0, 0.00546D0, 0.00401D0, 0.00289D0, - & 0.00204D0, 0.00145D0, 0.00103D0, 0.00067D0, 0.00045D0, - & 0.00030D0, 0.00018D0, 0.00012D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,22),I=1,49)/ - & 5.81063D0, 4.50144D0, 3.48388D0, 2.99716D0, 2.69275D0, - & 2.47752D0, 1.90937D0, 1.46556D0, 1.25149D0, 1.11639D0, - & 1.01845D0, 0.75875D0, 0.55228D0, 0.45248D0, 0.38985D0, - & 0.34573D0, 0.28616D0, 0.23159D0, 0.17950D0, 0.14831D0, - & 0.11099D0, 0.08809D0, 0.07172D0, 0.05628D0, 0.04443D0, - & 0.03495D0, 0.02738D0, 0.02132D0, 0.01642D0, 0.01252D0, - & 0.00947D0, 0.00708D0, 0.00524D0, 0.00384D0, 0.00275D0, - & 0.00194D0, 0.00137D0, 0.00097D0, 0.00062D0, 0.00042D0, - & 0.00028D0, 0.00017D0, 0.00011D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,23),I=1,49)/ - & 6.53035D0, 5.02028D0, 3.85558D0, 3.30194D0, 2.95702D0, - & 2.71384D0, 2.07512D0, 1.58008D0, 1.34283D0, 1.19373D0, - & 1.08596D0, 0.80189D0, 0.57834D0, 0.47125D0, 0.40444D0, - & 0.35757D0, 0.29461D0, 0.23726D0, 0.18285D0, 0.15046D0, - & 0.11188D0, 0.08836D0, 0.07162D0, 0.05593D0, 0.04396D0, - & 0.03443D0, 0.02686D0, 0.02084D0, 0.01599D0, 0.01216D0, - & 0.00917D0, 0.00683D0, 0.00504D0, 0.00368D0, 0.00262D0, - & 0.00186D0, 0.00129D0, 0.00092D0, 0.00058D0, 0.00038D0, - & 0.00026D0, 0.00015D0, 0.00010D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,24),I=1,49)/ - & 7.24769D0, 5.53321D0, 4.22004D0, 3.59932D0, 3.21397D0, - & 2.94299D0, 2.23445D0, 1.68918D0, 1.42937D0, 1.26671D0, - & 1.14944D0, 0.84202D0, 0.60229D0, 0.48837D0, 0.41766D0, - & 0.36826D0, 0.30216D0, 0.24227D0, 0.18575D0, 0.15227D0, - & 0.11258D0, 0.08849D0, 0.07143D0, 0.05553D0, 0.04345D0, - & 0.03390D0, 0.02636D0, 0.02037D0, 0.01559D0, 0.01181D0, - & 0.00887D0, 0.00659D0, 0.00484D0, 0.00353D0, 0.00252D0, - & 0.00176D0, 0.00124D0, 0.00088D0, 0.00055D0, 0.00037D0, - & 0.00025D0, 0.00014D0, 0.00009D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,25),I=1,49)/ - & 8.02203D0, 6.08288D0, 4.60775D0, 3.91431D0, 3.48531D0, - & 3.18439D0, 2.40103D0, 1.80237D0, 1.51875D0, 1.34182D0, - & 1.21461D0, 0.88286D0, 0.62643D0, 0.50552D0, 0.43085D0, - & 0.37888D0, 0.30963D0, 0.24719D0, 0.18858D0, 0.15401D0, - & 0.11322D0, 0.08857D0, 0.07120D0, 0.05510D0, 0.04294D0, - & 0.03336D0, 0.02585D0, 0.01990D0, 0.01519D0, 0.01146D0, - & 0.00858D0, 0.00636D0, 0.00466D0, 0.00338D0, 0.00242D0, - & 0.00168D0, 0.00119D0, 0.00083D0, 0.00052D0, 0.00035D0, - & 0.00023D0, 0.00013D0, 0.00009D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,26),I=1,49)/ - & 8.82307D0, 6.64735D0, 5.00295D0, 4.23399D0, 3.75981D0, - & 3.42801D0, 2.56785D0, 1.91480D0, 1.60708D0, 1.41578D0, - & 1.27859D0, 0.92256D0, 0.64966D0, 0.52190D0, 0.44338D0, - & 0.38892D0, 0.31662D0, 0.25175D0, 0.19114D0, 0.15555D0, - & 0.11371D0, 0.08855D0, 0.07090D0, 0.05462D0, 0.04239D0, - & 0.03281D0, 0.02532D0, 0.01944D0, 0.01478D0, 0.01112D0, - & 0.00830D0, 0.00614D0, 0.00448D0, 0.00324D0, 0.00231D0, - & 0.00160D0, 0.00113D0, 0.00079D0, 0.00049D0, 0.00033D0, - & 0.00022D0, 0.00013D0, 0.00008D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,27),I=1,49)/ - & 9.62987D0, 7.21210D0, 5.39571D0, 4.55043D0, 4.03076D0, - & 3.66794D0, 2.73100D0, 2.02398D0, 1.69250D0, 1.48708D0, - & 1.34010D0, 0.96040D0, 0.67159D0, 0.53727D0, 0.45509D0, - & 0.39827D0, 0.32310D0, 0.25593D0, 0.19347D0, 0.15692D0, - & 0.11411D0, 0.08848D0, 0.07058D0, 0.05414D0, 0.04185D0, - & 0.03228D0, 0.02482D0, 0.01900D0, 0.01440D0, 0.01080D0, - & 0.00804D0, 0.00593D0, 0.00431D0, 0.00312D0, 0.00222D0, - & 0.00152D0, 0.00108D0, 0.00075D0, 0.00046D0, 0.00031D0, - & 0.00020D0, 0.00012D0, 0.00008D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,28),I=1,49)/ - & 10.42894D0, 7.76794D0, 5.77982D0, 4.85875D0, 4.29406D0, - & 3.90061D0, 2.88817D0, 2.12844D0, 1.77387D0, 1.55479D0, - & 1.39837D0, 0.99596D0, 0.69200D0, 0.55150D0, 0.46587D0, - & 0.40684D0, 0.32899D0, 0.25970D0, 0.19552D0, 0.15809D0, - & 0.11441D0, 0.08837D0, 0.07023D0, 0.05366D0, 0.04133D0, - & 0.03176D0, 0.02435D0, 0.01859D0, 0.01405D0, 0.01051D0, - & 0.00780D0, 0.00573D0, 0.00416D0, 0.00301D0, 0.00213D0, - & 0.00146D0, 0.00103D0, 0.00071D0, 0.00045D0, 0.00029D0, - & 0.00020D0, 0.00011D0, 0.00008D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,29),I=1,49)/ - & 11.27410D0, 8.35239D0, 6.18132D0, 5.17989D0, 4.56762D0, - & 4.14187D0, 3.05014D0, 2.23540D0, 1.85687D0, 1.62366D0, - & 1.45750D0, 1.03178D0, 0.71238D0, 0.56563D0, 0.47653D0, - & 0.41529D0, 0.33476D0, 0.26336D0, 0.19748D0, 0.15919D0, - & 0.11465D0, 0.08820D0, 0.06985D0, 0.05316D0, 0.04080D0, - & 0.03125D0, 0.02388D0, 0.01817D0, 0.01370D0, 0.01022D0, - & 0.00757D0, 0.00554D0, 0.00401D0, 0.00290D0, 0.00205D0, - & 0.00140D0, 0.00098D0, 0.00068D0, 0.00043D0, 0.00028D0, - & 0.00019D0, 0.00011D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,30),I=1,49)/ - & 12.14199D0, 8.94909D0, 6.58882D0, 5.50470D0, 4.84361D0, - & 4.38480D0, 3.21222D0, 2.34175D0, 1.93908D0, 1.69167D0, - & 1.51576D0, 1.06678D0, 0.73213D0, 0.57923D0, 0.48674D0, - & 0.42334D0, 0.34023D0, 0.26678D0, 0.19927D0, 0.16016D0, - & 0.11481D0, 0.08798D0, 0.06944D0, 0.05264D0, 0.04025D0, - & 0.03073D0, 0.02343D0, 0.01777D0, 0.01335D0, 0.00994D0, - & 0.00734D0, 0.00536D0, 0.00388D0, 0.00278D0, 0.00196D0, - & 0.00135D0, 0.00094D0, 0.00065D0, 0.00041D0, 0.00027D0, - & 0.00017D0, 0.00010D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,31),I=1,49)/ - & 13.00875D0, 9.54182D0, 6.99142D0, 5.82458D0, 5.11479D0, - & 4.62308D0, 3.37031D0, 2.44489D0, 2.01852D0, 1.75723D0, - & 1.57179D0, 1.10022D0, 0.75086D0, 0.59207D0, 0.49634D0, - & 0.43089D0, 0.34532D0, 0.26994D0, 0.20090D0, 0.16103D0, - & 0.11492D0, 0.08774D0, 0.06903D0, 0.05213D0, 0.03973D0, - & 0.03024D0, 0.02300D0, 0.01739D0, 0.01303D0, 0.00968D0, - & 0.00712D0, 0.00520D0, 0.00375D0, 0.00268D0, 0.00188D0, - & 0.00130D0, 0.00090D0, 0.00063D0, 0.00039D0, 0.00025D0, - & 0.00016D0, 0.00009D0, 0.00006D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,32),I=1,49)/ - & 13.85388D0, 10.11672D0, 7.37984D0, 6.13221D0, 5.37500D0, - & 4.85130D0, 3.52087D0, 2.54252D0, 2.09344D0, 1.81889D0, - & 1.62437D0, 1.13136D0, 0.76814D0, 0.60383D0, 0.50509D0, - & 0.43774D0, 0.34990D0, 0.27275D0, 0.20231D0, 0.16173D0, - & 0.11495D0, 0.08745D0, 0.06859D0, 0.05162D0, 0.03921D0, - & 0.02977D0, 0.02256D0, 0.01702D0, 0.01273D0, 0.00943D0, - & 0.00693D0, 0.00505D0, 0.00364D0, 0.00260D0, 0.00181D0, - & 0.00125D0, 0.00086D0, 0.00060D0, 0.00037D0, 0.00024D0, - & 0.00016D0, 0.00009D0, 0.00006D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,33),I=1,49)/ - & 14.75398D0, 10.72621D0, 7.78974D0, 6.45599D0, 5.64833D0, - & 5.09068D0, 3.67806D0, 2.64398D0, 2.17108D0, 1.88265D0, - & 1.67867D0, 1.16335D0, 0.78579D0, 0.61581D0, 0.51399D0, - & 0.44470D0, 0.35453D0, 0.27558D0, 0.20373D0, 0.16245D0, - & 0.11497D0, 0.08717D0, 0.06816D0, 0.05112D0, 0.03871D0, - & 0.02930D0, 0.02213D0, 0.01666D0, 0.01243D0, 0.00919D0, - & 0.00674D0, 0.00490D0, 0.00353D0, 0.00251D0, 0.00175D0, - & 0.00120D0, 0.00083D0, 0.00058D0, 0.00036D0, 0.00023D0, - & 0.00015D0, 0.00009D0, 0.00006D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,34),I=1,49)/ - & 15.65461D0, 11.33290D0, 8.19558D0, 6.77553D0, 5.91747D0, - & 5.32596D0, 3.83165D0, 2.74249D0, 2.24617D0, 1.94414D0, - & 1.73088D0, 1.19385D0, 0.80244D0, 0.62703D0, 0.52226D0, - & 0.45111D0, 0.35875D0, 0.27811D0, 0.20493D0, 0.16299D0, - & 0.11490D0, 0.08681D0, 0.06768D0, 0.05059D0, 0.03819D0, - & 0.02883D0, 0.02172D0, 0.01631D0, 0.01213D0, 0.00895D0, - & 0.00656D0, 0.00475D0, 0.00341D0, 0.00243D0, 0.00169D0, - & 0.00116D0, 0.00080D0, 0.00055D0, 0.00034D0, 0.00022D0, - & 0.00015D0, 0.00008D0, 0.00005D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,35),I=1,49)/ - & 16.55734D0, 11.93842D0, 8.59892D0, 7.09231D0, 6.18381D0, - & 5.55847D0, 3.98278D0, 2.83900D0, 2.31954D0, 2.00411D0, - & 1.78173D0, 1.22341D0, 0.81850D0, 0.63782D0, 0.53020D0, - & 0.45726D0, 0.36278D0, 0.28052D0, 0.20606D0, 0.16351D0, - & 0.11482D0, 0.08647D0, 0.06722D0, 0.05009D0, 0.03770D0, - & 0.02838D0, 0.02133D0, 0.01598D0, 0.01187D0, 0.00873D0, - & 0.00639D0, 0.00462D0, 0.00330D0, 0.00235D0, 0.00163D0, - & 0.00111D0, 0.00077D0, 0.00053D0, 0.00033D0, 0.00021D0, - & 0.00014D0, 0.00008D0, 0.00005D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,36),I=1,49)/ - & 17.43806D0, 12.52661D0, 8.98898D0, 7.39784D0, 6.44021D0, - & 5.78196D0, 4.12737D0, 2.93087D0, 2.38917D0, 2.06088D0, - & 1.82979D0, 1.25117D0, 0.83346D0, 0.64781D0, 0.53752D0, - & 0.46291D0, 0.36645D0, 0.28268D0, 0.20706D0, 0.16393D0, - & 0.11470D0, 0.08612D0, 0.06676D0, 0.04960D0, 0.03723D0, - & 0.02796D0, 0.02096D0, 0.01566D0, 0.01161D0, 0.00852D0, - & 0.00623D0, 0.00449D0, 0.00321D0, 0.00227D0, 0.00158D0, - & 0.00107D0, 0.00074D0, 0.00051D0, 0.00031D0, 0.00020D0, - & 0.00013D0, 0.00008D0, 0.00005D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,37),I=1,49)/ - & 18.35067D0, 13.13351D0, 9.38971D0, 7.71095D0, 6.70247D0, - & 6.01024D0, 4.27436D0, 3.02381D0, 2.45940D0, 2.11802D0, - & 1.87806D0, 1.27887D0, 0.84828D0, 0.65765D0, 0.54469D0, - & 0.46841D0, 0.37001D0, 0.28475D0, 0.20797D0, 0.16429D0, - & 0.11453D0, 0.08573D0, 0.06628D0, 0.04909D0, 0.03675D0, - & 0.02752D0, 0.02059D0, 0.01535D0, 0.01135D0, 0.00831D0, - & 0.00606D0, 0.00437D0, 0.00311D0, 0.00220D0, 0.00153D0, - & 0.00103D0, 0.00072D0, 0.00049D0, 0.00030D0, 0.00019D0, - & 0.00013D0, 0.00007D0, 0.00005D0, 0.00001D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,6,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I, 1),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I, 2),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I, 3),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I, 4),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I, 5),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I, 6),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I, 7),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I, 8),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I, 9),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,10),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,11),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,12),I=1,49)/ - & 0.00041D0, 0.00036D0, 0.00032D0, 0.00030D0, 0.00028D0, - & 0.00027D0, 0.00023D0, 0.00021D0, 0.00019D0, 0.00018D0, - & 0.00017D0, 0.00014D0, 0.00012D0, 0.00011D0, 0.00010D0, - & 0.00009D0, 0.00008D0, 0.00007D0, 0.00006D0, 0.00005D0, - & 0.00004D0, 0.00004D0, 0.00003D0, 0.00003D0, 0.00003D0, - & 0.00003D0, 0.00002D0, 0.00002D0, 0.00002D0, 0.00002D0, - & 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, 0.00001D0, - & 0.00001D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,13),I=1,49)/ - & 0.21131D0, 0.16558D0, 0.12967D0, 0.11232D0, 0.10141D0, - & 0.09365D0, 0.07296D0, 0.05647D0, 0.04835D0, 0.04314D0, - & 0.03929D0, 0.02893D0, 0.02049D0, 0.01636D0, 0.01376D0, - & 0.01193D0, 0.00947D0, 0.00725D0, 0.00522D0, 0.00409D0, - & 0.00289D0, 0.00226D0, 0.00187D0, 0.00153D0, 0.00127D0, - & 0.00106D0, 0.00087D0, 0.00071D0, 0.00058D0, 0.00046D0, - & 0.00037D0, 0.00028D0, 0.00022D0, 0.00016D0, 0.00012D0, - & 0.00009D0, 0.00007D0, 0.00005D0, 0.00003D0, 0.00002D0, - & 0.00001D0, 0.00001D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,14),I=1,49)/ - & 0.61374D0, 0.47881D0, 0.37330D0, 0.32254D0, 0.29066D0, - & 0.26804D0, 0.20788D0, 0.16016D0, 0.13675D0, 0.12177D0, - & 0.11072D0, 0.08109D0, 0.05711D0, 0.04545D0, 0.03813D0, - & 0.03299D0, 0.02611D0, 0.01996D0, 0.01434D0, 0.01121D0, - & 0.00789D0, 0.00617D0, 0.00509D0, 0.00414D0, 0.00341D0, - & 0.00282D0, 0.00231D0, 0.00188D0, 0.00151D0, 0.00120D0, - & 0.00094D0, 0.00073D0, 0.00056D0, 0.00042D0, 0.00031D0, - & 0.00023D0, 0.00016D0, 0.00012D0, 0.00008D0, 0.00005D0, - & 0.00003D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,15),I=1,49)/ - & 0.99259D0, 0.76862D0, 0.59480D0, 0.51168D0, 0.45967D0, - & 0.42287D0, 0.32549D0, 0.24886D0, 0.21152D0, 0.18775D0, - & 0.17025D0, 0.12366D0, 0.08636D0, 0.06840D0, 0.05719D0, - & 0.04937D0, 0.03895D0, 0.02967D0, 0.02125D0, 0.01657D0, - & 0.01162D0, 0.00903D0, 0.00740D0, 0.00597D0, 0.00488D0, - & 0.00399D0, 0.00325D0, 0.00263D0, 0.00210D0, 0.00166D0, - & 0.00130D0, 0.00100D0, 0.00076D0, 0.00057D0, 0.00042D0, - & 0.00031D0, 0.00022D0, 0.00015D0, 0.00011D0, 0.00007D0, - & 0.00004D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,16),I=1,49)/ - & 1.40334D0, 1.07950D0, 0.82983D0, 0.71109D0, 0.63704D0, - & 0.58478D0, 0.44710D0, 0.33953D0, 0.28741D0, 0.25436D0, - & 0.23011D0, 0.16589D0, 0.11498D0, 0.09067D0, 0.07559D0, - & 0.06510D0, 0.05120D0, 0.03889D0, 0.02777D0, 0.02161D0, - & 0.01509D0, 0.01166D0, 0.00950D0, 0.00760D0, 0.00617D0, - & 0.00501D0, 0.00405D0, 0.00325D0, 0.00258D0, 0.00203D0, - & 0.00158D0, 0.00121D0, 0.00091D0, 0.00068D0, 0.00050D0, - & 0.00037D0, 0.00026D0, 0.00018D0, 0.00012D0, 0.00008D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,17),I=1,49)/ - & 1.88020D0, 1.43681D0, 1.09723D0, 0.93659D0, 0.83676D0, - & 0.76647D0, 0.58212D0, 0.43908D0, 0.37019D0, 0.32667D0, - & 0.29484D0, 0.21099D0, 0.14515D0, 0.11396D0, 0.09473D0, - & 0.08141D0, 0.06382D0, 0.04833D0, 0.03440D0, 0.02672D0, - & 0.01856D0, 0.01428D0, 0.01156D0, 0.00918D0, 0.00739D0, - & 0.00596D0, 0.00478D0, 0.00381D0, 0.00301D0, 0.00236D0, - & 0.00181D0, 0.00138D0, 0.00104D0, 0.00077D0, 0.00057D0, - & 0.00041D0, 0.00030D0, 0.00020D0, 0.00014D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,18),I=1,49)/ - & 2.30534D0, 1.75221D0, 1.33088D0, 1.13244D0, 1.00946D0, - & 0.92305D0, 0.69723D0, 0.52301D0, 0.43952D0, 0.38693D0, - & 0.34856D0, 0.24795D0, 0.16954D0, 0.13265D0, 0.11000D0, - & 0.09436D0, 0.07379D0, 0.05574D0, 0.03958D0, 0.03067D0, - & 0.02123D0, 0.01626D0, 0.01309D0, 0.01033D0, 0.00826D0, - & 0.00663D0, 0.00529D0, 0.00419D0, 0.00329D0, 0.00257D0, - & 0.00197D0, 0.00150D0, 0.00112D0, 0.00083D0, 0.00061D0, - & 0.00044D0, 0.00032D0, 0.00022D0, 0.00015D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,19),I=1,49)/ - & 2.86856D0, 2.16633D0, 1.63487D0, 1.38587D0, 1.23207D0, - & 1.12426D0, 0.84372D0, 0.62876D0, 0.52633D0, 0.46206D0, - & 0.41530D0, 0.29334D0, 0.19914D0, 0.15517D0, 0.12832D0, - & 0.10984D0, 0.08563D0, 0.06450D0, 0.04565D0, 0.03529D0, - & 0.02431D0, 0.01851D0, 0.01482D0, 0.01161D0, 0.00922D0, - & 0.00734D0, 0.00582D0, 0.00458D0, 0.00358D0, 0.00278D0, - & 0.00212D0, 0.00160D0, 0.00119D0, 0.00088D0, 0.00064D0, - & 0.00047D0, 0.00033D0, 0.00023D0, 0.00015D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,20),I=1,49)/ - & 3.42748D0, 2.57399D0, 1.93167D0, 1.63211D0, 1.44759D0, - & 1.31854D0, 0.98395D0, 0.72909D0, 0.60825D0, 0.53267D0, - & 0.47783D0, 0.33544D0, 0.22632D0, 0.17572D0, 0.14495D0, - & 0.12384D0, 0.09630D0, 0.07234D0, 0.05105D0, 0.03938D0, - & 0.02701D0, 0.02047D0, 0.01631D0, 0.01268D0, 0.01001D0, - & 0.00793D0, 0.00625D0, 0.00489D0, 0.00380D0, 0.00294D0, - & 0.00223D0, 0.00168D0, 0.00125D0, 0.00091D0, 0.00066D0, - & 0.00048D0, 0.00035D0, 0.00024D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,21),I=1,49)/ - & 3.95907D0, 2.95830D0, 2.20894D0, 1.86088D0, 1.64705D0, - & 1.49778D0, 1.11204D0, 0.81980D0, 0.68185D0, 0.59583D0, - & 0.53354D0, 0.37251D0, 0.24993D0, 0.19343D0, 0.15921D0, - & 0.13581D0, 0.10535D0, 0.07895D0, 0.05557D0, 0.04278D0, - & 0.02922D0, 0.02205D0, 0.01748D0, 0.01352D0, 0.01061D0, - & 0.00835D0, 0.00655D0, 0.00511D0, 0.00395D0, 0.00304D0, - & 0.00230D0, 0.00172D0, 0.00128D0, 0.00093D0, 0.00067D0, - & 0.00049D0, 0.00035D0, 0.00024D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,22),I=1,49)/ - & 4.70301D0, 3.49223D0, 2.59131D0, 2.17500D0, 1.92006D0, - & 1.74251D0, 1.28559D0, 0.94171D0, 0.78029D0, 0.68000D0, - & 0.60759D0, 0.42132D0, 0.28074D0, 0.21641D0, 0.17764D0, - & 0.15121D0, 0.11695D0, 0.08738D0, 0.06130D0, 0.04706D0, - & 0.03198D0, 0.02400D0, 0.01891D0, 0.01452D0, 0.01131D0, - & 0.00885D0, 0.00690D0, 0.00535D0, 0.00412D0, 0.00314D0, - & 0.00237D0, 0.00177D0, 0.00130D0, 0.00095D0, 0.00068D0, - & 0.00049D0, 0.00036D0, 0.00024D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,23),I=1,49)/ - & 5.46775D0, 4.03669D0, 2.97803D0, 2.49113D0, 2.19384D0, - & 1.98726D0, 1.45764D0, 1.06148D0, 0.87647D0, 0.76190D0, - & 0.67941D0, 0.46817D0, 0.30998D0, 0.23809D0, 0.19493D0, - & 0.16562D0, 0.12774D0, 0.09517D0, 0.06655D0, 0.05097D0, - & 0.03446D0, 0.02573D0, 0.02017D0, 0.01538D0, 0.01190D0, - & 0.00925D0, 0.00718D0, 0.00553D0, 0.00424D0, 0.00322D0, - & 0.00242D0, 0.00179D0, 0.00132D0, 0.00095D0, 0.00069D0, - & 0.00049D0, 0.00036D0, 0.00024D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,24),I=1,49)/ - & 6.21519D0, 4.56429D0, 3.34948D0, 2.79317D0, 2.45443D0, - & 2.21950D0, 1.61934D0, 1.17290D0, 0.96539D0, 0.83728D0, - & 0.74526D0, 0.51062D0, 0.33614D0, 0.25732D0, 0.21020D0, - & 0.17828D0, 0.13715D0, 0.10192D0, 0.07106D0, 0.05428D0, - & 0.03653D0, 0.02714D0, 0.02117D0, 0.01604D0, 0.01234D0, - & 0.00954D0, 0.00736D0, 0.00565D0, 0.00431D0, 0.00326D0, - & 0.00243D0, 0.00180D0, 0.00132D0, 0.00095D0, 0.00068D0, - & 0.00049D0, 0.00035D0, 0.00024D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,25),I=1,49)/ - & 7.03262D0, 5.13776D0, 3.75072D0, 3.11823D0, 2.73413D0, - & 2.46827D0, 1.79141D0, 1.29068D0, 1.05901D0, 0.91641D0, - & 0.81423D0, 0.55475D0, 0.36312D0, 0.27706D0, 0.22581D0, - & 0.19119D0, 0.14672D0, 0.10875D0, 0.07559D0, 0.05760D0, - & 0.03859D0, 0.02852D0, 0.02214D0, 0.01668D0, 0.01276D0, - & 0.00981D0, 0.00753D0, 0.00575D0, 0.00436D0, 0.00329D0, - & 0.00245D0, 0.00180D0, 0.00132D0, 0.00095D0, 0.00068D0, - & 0.00048D0, 0.00035D0, 0.00024D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,26),I=1,49)/ - & 7.86804D0, 5.71947D0, 4.15459D0, 3.44391D0, 3.01342D0, - & 2.71602D0, 1.96133D0, 1.40596D0, 1.15014D0, 0.99314D0, - & 0.88088D0, 0.59694D0, 0.38863D0, 0.29560D0, 0.24039D0, - & 0.20320D0, 0.15555D0, 0.11500D0, 0.07970D0, 0.06059D0, - & 0.04040D0, 0.02973D0, 0.02296D0, 0.01720D0, 0.01308D0, - & 0.01001D0, 0.00765D0, 0.00581D0, 0.00439D0, 0.00330D0, - & 0.00245D0, 0.00180D0, 0.00131D0, 0.00094D0, 0.00067D0, - & 0.00048D0, 0.00034D0, 0.00024D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,27),I=1,49)/ - & 8.71308D0, 6.30440D0, 4.55822D0, 3.76823D0, 3.29083D0, - & 2.96160D0, 2.12868D0, 1.51874D0, 1.23894D0, 1.06767D0, - & 0.94548D0, 0.63752D0, 0.41296D0, 0.31319D0, 0.25418D0, - & 0.21452D0, 0.16385D0, 0.12085D0, 0.08351D0, 0.06334D0, - & 0.04205D0, 0.03081D0, 0.02369D0, 0.01765D0, 0.01336D0, - & 0.01017D0, 0.00773D0, 0.00586D0, 0.00441D0, 0.00330D0, - & 0.00244D0, 0.00178D0, 0.00129D0, 0.00092D0, 0.00066D0, - & 0.00047D0, 0.00034D0, 0.00024D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,28),I=1,49)/ - & 9.54571D0, 6.87720D0, 4.95101D0, 4.08263D0, 3.55902D0, - & 3.19851D0, 2.28903D0, 1.62602D0, 1.32303D0, 1.13803D0, - & 1.00630D0, 0.67540D0, 0.43546D0, 0.32936D0, 0.26680D0, - & 0.22485D0, 0.17138D0, 0.12612D0, 0.08693D0, 0.06579D0, - & 0.04350D0, 0.03173D0, 0.02430D0, 0.01801D0, 0.01357D0, - & 0.01029D0, 0.00779D0, 0.00587D0, 0.00441D0, 0.00329D0, - & 0.00242D0, 0.00177D0, 0.00128D0, 0.00091D0, 0.00065D0, - & 0.00046D0, 0.00033D0, 0.00024D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,29),I=1,49)/ - & 10.42768D0, 7.48069D0, 5.36257D0, 4.41099D0, 3.83846D0, - & 3.44489D0, 2.45481D0, 1.73627D0, 1.40913D0, 1.20986D0, - & 1.06825D0, 0.71372D0, 0.45804D0, 0.34552D0, 0.27937D0, - & 0.23511D0, 0.17881D0, 0.13130D0, 0.09026D0, 0.06816D0, - & 0.04488D0, 0.03260D0, 0.02487D0, 0.01834D0, 0.01375D0, - & 0.01038D0, 0.00783D0, 0.00588D0, 0.00440D0, 0.00327D0, - & 0.00240D0, 0.00175D0, 0.00126D0, 0.00090D0, 0.00063D0, - & 0.00045D0, 0.00033D0, 0.00024D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,30),I=1,49)/ - & 11.32906D0, 8.09395D0, 5.77834D0, 4.74153D0, 4.11903D0, - & 3.69178D0, 2.61985D0, 1.84528D0, 1.49390D0, 1.28038D0, - & 1.12893D0, 0.75094D0, 0.47979D0, 0.36099D0, 0.29135D0, - & 0.24485D0, 0.18584D0, 0.13617D0, 0.09335D0, 0.07035D0, - & 0.04613D0, 0.03338D0, 0.02536D0, 0.01861D0, 0.01389D0, - & 0.01045D0, 0.00785D0, 0.00587D0, 0.00438D0, 0.00324D0, - & 0.00237D0, 0.00172D0, 0.00124D0, 0.00088D0, 0.00062D0, - & 0.00044D0, 0.00032D0, 0.00024D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,31),I=1,49)/ - & 12.23197D0, 8.70533D0, 6.19083D0, 5.06852D0, 4.39601D0, - & 3.93512D0, 2.78170D0, 1.95161D0, 1.57633D0, 1.34878D0, - & 1.18767D0, 0.78675D0, 0.50057D0, 0.37571D0, 0.30272D0, - & 0.25408D0, 0.19247D0, 0.14074D0, 0.09625D0, 0.07237D0, - & 0.04728D0, 0.03408D0, 0.02579D0, 0.01885D0, 0.01401D0, - & 0.01049D0, 0.00785D0, 0.00586D0, 0.00435D0, 0.00321D0, - & 0.00235D0, 0.00170D0, 0.00122D0, 0.00086D0, 0.00061D0, - & 0.00043D0, 0.00031D0, 0.00023D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,32),I=1,49)/ - & 13.10605D0, 9.29397D0, 6.58574D0, 5.38050D0, 4.65963D0, - & 4.16627D0, 2.93446D0, 2.05131D0, 1.65329D0, 1.41245D0, - & 1.24220D0, 0.81972D0, 0.51953D0, 0.38906D0, 0.31298D0, - & 0.26237D0, 0.19840D0, 0.14478D0, 0.09878D0, 0.07413D0, - & 0.04825D0, 0.03465D0, 0.02614D0, 0.01902D0, 0.01408D0, - & 0.01051D0, 0.00784D0, 0.00583D0, 0.00432D0, 0.00318D0, - & 0.00232D0, 0.00167D0, 0.00120D0, 0.00085D0, 0.00060D0, - & 0.00042D0, 0.00031D0, 0.00023D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,33),I=1,49)/ - & 14.04396D0, 9.92333D0, 7.00645D0, 5.71217D0, 4.93947D0, - & 4.41134D0, 3.09586D0, 2.15625D0, 1.73413D0, 1.47923D0, - & 1.29933D0, 0.85413D0, 0.53923D0, 0.40291D0, 0.32360D0, - & 0.27095D0, 0.20451D0, 0.14895D0, 0.10139D0, 0.07594D0, - & 0.04925D0, 0.03524D0, 0.02649D0, 0.01920D0, 0.01416D0, - & 0.01053D0, 0.00783D0, 0.00580D0, 0.00428D0, 0.00315D0, - & 0.00229D0, 0.00165D0, 0.00118D0, 0.00083D0, 0.00058D0, - & 0.00041D0, 0.00030D0, 0.00022D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,34),I=1,49)/ - & 14.97171D0, 10.54223D0, 7.41762D0, 6.03510D0, 5.21118D0, - & 4.64879D0, 3.25111D0, 2.25643D0, 1.81093D0, 1.54244D0, - & 1.35325D0, 0.88628D0, 0.55744D0, 0.41560D0, 0.33329D0, - & 0.27873D0, 0.21001D0, 0.15267D0, 0.10367D0, 0.07749D0, - & 0.05007D0, 0.03571D0, 0.02675D0, 0.01931D0, 0.01419D0, - & 0.01051D0, 0.00779D0, 0.00576D0, 0.00424D0, 0.00311D0, - & 0.00225D0, 0.00162D0, 0.00115D0, 0.00081D0, 0.00057D0, - & 0.00041D0, 0.00030D0, 0.00022D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,35),I=1,49)/ - & 15.90678D0, 11.16388D0, 7.82922D0, 6.35772D0, 5.48225D0, - & 4.88541D0, 3.40531D0, 2.35558D0, 1.88678D0, 1.60477D0, - & 1.40636D0, 0.91783D0, 0.57524D0, 0.42799D0, 0.34272D0, - & 0.28629D0, 0.21535D0, 0.15626D0, 0.10587D0, 0.07899D0, - & 0.05087D0, 0.03616D0, 0.02700D0, 0.01941D0, 0.01421D0, - & 0.01050D0, 0.00776D0, 0.00572D0, 0.00420D0, 0.00307D0, - & 0.00222D0, 0.00159D0, 0.00113D0, 0.00080D0, 0.00056D0, - & 0.00040D0, 0.00029D0, 0.00022D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,36),I=1,49)/ - & 16.81722D0, 11.76659D0, 8.22652D0, 6.66831D0, 5.74271D0, - & 5.11243D0, 3.55252D0, 2.44976D0, 1.95860D0, 1.66366D0, - & 1.45643D0, 0.94739D0, 0.59179D0, 0.43945D0, 0.35142D0, - & 0.29325D0, 0.22023D0, 0.15953D0, 0.10786D0, 0.08033D0, - & 0.05156D0, 0.03654D0, 0.02720D0, 0.01949D0, 0.01422D0, - & 0.01047D0, 0.00772D0, 0.00567D0, 0.00416D0, 0.00303D0, - & 0.00219D0, 0.00157D0, 0.00111D0, 0.00078D0, 0.00055D0, - & 0.00039D0, 0.00029D0, 0.00022D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,37),I=1,49)/ - & 17.75747D0, 12.38637D0, 8.63327D0, 6.98544D0, 6.00814D0, - & 5.34342D0, 3.70158D0, 2.54461D0, 2.03070D0, 1.72263D0, - & 1.50647D0, 0.97674D0, 0.60811D0, 0.45069D0, 0.35992D0, - & 0.30003D0, 0.22496D0, 0.16268D0, 0.10975D0, 0.08160D0, - & 0.05220D0, 0.03687D0, 0.02737D0, 0.01954D0, 0.01421D0, - & 0.01044D0, 0.00767D0, 0.00562D0, 0.00411D0, 0.00299D0, - & 0.00215D0, 0.00154D0, 0.00109D0, 0.00077D0, 0.00053D0, - & 0.00038D0, 0.00028D0, 0.00021D0, 0.00016D0, 0.00009D0, - & 0.00005D0, 0.00002D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,7,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I, 1),I=1,49)/ - & 0.98494D0, 0.83942D0, 0.71517D0, 0.65113D0, 0.60921D0, - & 0.57857D0, 0.49313D0, 0.42114D0, 0.38478D0, 0.36147D0, - & 0.34532D0, 0.30109D0, 0.26601D0, 0.24883D0, 0.23797D0, - & 0.23013D0, 0.21908D0, 0.20797D0, 0.19531D0, 0.18554D0, - & 0.16898D0, 0.15367D0, 0.13862D0, 0.11992D0, 0.10161D0, - & 0.08421D0, 0.06813D0, 0.05380D0, 0.04148D0, 0.03102D0, - & 0.02276D0, 0.01618D0, 0.01125D0, 0.00763D0, 0.00500D0, - & 0.00317D0, 0.00203D0, 0.00121D0, 0.00069D0, 0.00043D0, - & 0.00027D0, 0.00012D0, 0.00011D0, 0.00003D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I, 2),I=1,49)/ - & 0.98889D0, 0.84649D0, 0.72438D0, 0.66122D0, 0.61978D0, - & 0.58944D0, 0.50458D0, 0.43271D0, 0.39626D0, 0.37282D0, - & 0.35655D0, 0.31168D0, 0.27538D0, 0.25719D0, 0.24547D0, - & 0.23690D0, 0.22464D0, 0.21217D0, 0.19794D0, 0.18712D0, - & 0.16930D0, 0.15330D0, 0.13787D0, 0.11894D0, 0.10059D0, - & 0.08325D0, 0.06732D0, 0.05317D0, 0.04104D0, 0.03076D0, - & 0.02264D0, 0.01619D0, 0.01134D0, 0.00776D0, 0.00516D0, - & 0.00334D0, 0.00218D0, 0.00135D0, 0.00080D0, 0.00052D0, - & 0.00034D0, 0.00018D0, 0.00014D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I, 3),I=1,49)/ - & 1.01222D0, 0.87111D0, 0.74946D0, 0.68626D0, 0.64467D0, - & 0.61416D0, 0.52846D0, 0.45538D0, 0.41806D0, 0.39393D0, - & 0.37708D0, 0.33010D0, 0.29099D0, 0.27082D0, 0.25752D0, - & 0.24766D0, 0.23338D0, 0.21871D0, 0.20204D0, 0.18963D0, - & 0.16990D0, 0.15288D0, 0.13686D0, 0.11759D0, 0.09914D0, - & 0.08186D0, 0.06611D0, 0.05221D0, 0.04030D0, 0.03030D0, - & 0.02237D0, 0.01612D0, 0.01138D0, 0.00788D0, 0.00532D0, - & 0.00353D0, 0.00233D0, 0.00151D0, 0.00092D0, 0.00061D0, - & 0.00042D0, 0.00024D0, 0.00016D0, 0.00005D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I, 4),I=1,49)/ - & 1.04476D0, 0.90153D0, 0.77771D0, 0.71324D0, 0.67074D0, - & 0.63953D0, 0.55166D0, 0.47640D0, 0.43777D0, 0.41269D0, - & 0.39507D0, 0.34558D0, 0.30362D0, 0.28161D0, 0.26695D0, - & 0.25601D0, 0.24007D0, 0.22367D0, 0.20514D0, 0.19155D0, - & 0.17043D0, 0.15264D0, 0.13620D0, 0.11664D0, 0.09810D0, - & 0.08084D0, 0.06518D0, 0.05144D0, 0.03971D0, 0.02989D0, - & 0.02211D0, 0.01600D0, 0.01135D0, 0.00790D0, 0.00539D0, - & 0.00362D0, 0.00238D0, 0.00157D0, 0.00098D0, 0.00066D0, - & 0.00045D0, 0.00026D0, 0.00018D0, 0.00006D0, 0.00003D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I, 5),I=1,49)/ - & 1.10026D0, 0.95040D0, 0.82069D0, 0.75308D0, 0.70848D0, - & 0.67571D0, 0.58330D0, 0.50390D0, 0.46299D0, 0.43632D0, - & 0.41743D0, 0.36409D0, 0.31818D0, 0.29384D0, 0.27750D0, - & 0.26527D0, 0.24742D0, 0.22908D0, 0.20853D0, 0.19368D0, - & 0.17108D0, 0.15248D0, 0.13556D0, 0.11567D0, 0.09702D0, - & 0.07977D0, 0.06421D0, 0.05061D0, 0.03905D0, 0.02941D0, - & 0.02179D0, 0.01578D0, 0.01121D0, 0.00787D0, 0.00539D0, - & 0.00363D0, 0.00243D0, 0.00163D0, 0.00101D0, 0.00068D0, - & 0.00046D0, 0.00028D0, 0.00020D0, 0.00007D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I, 6),I=1,49)/ - & 1.15923D0, 1.00143D0, 0.86481D0, 0.79358D0, 0.74658D0, - & 0.71202D0, 0.61454D0, 0.53061D0, 0.48723D0, 0.45888D0, - & 0.43867D0, 0.38135D0, 0.33152D0, 0.30491D0, 0.28699D0, - & 0.27355D0, 0.25394D0, 0.23384D0, 0.21150D0, 0.19554D0, - & 0.17166D0, 0.15236D0, 0.13502D0, 0.11484D0, 0.09608D0, - & 0.07883D0, 0.06335D0, 0.04988D0, 0.03847D0, 0.02897D0, - & 0.02148D0, 0.01557D0, 0.01108D0, 0.00781D0, 0.00536D0, - & 0.00363D0, 0.00245D0, 0.00167D0, 0.00103D0, 0.00070D0, - & 0.00046D0, 0.00029D0, 0.00021D0, 0.00007D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I, 7),I=1,49)/ - & 1.23248D0, 1.06345D0, 0.91726D0, 0.84109D0, 0.79085D0, - & 0.75393D0, 0.64976D0, 0.56002D0, 0.51357D0, 0.48314D0, - & 0.46132D0, 0.39931D0, 0.34507D0, 0.31602D0, 0.29642D0, - & 0.28173D0, 0.26034D0, 0.23848D0, 0.21438D0, 0.19736D0, - & 0.17224D0, 0.15227D0, 0.13452D0, 0.11404D0, 0.09516D0, - & 0.07789D0, 0.06251D0, 0.04914D0, 0.03786D0, 0.02851D0, - & 0.02113D0, 0.01532D0, 0.01096D0, 0.00772D0, 0.00530D0, - & 0.00360D0, 0.00243D0, 0.00166D0, 0.00104D0, 0.00071D0, - & 0.00048D0, 0.00030D0, 0.00020D0, 0.00008D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I, 8),I=1,49)/ - & 1.32548D0, 1.14118D0, 0.98212D0, 0.89937D0, 0.84484D0, - & 0.80478D0, 0.69187D0, 0.59465D0, 0.54428D0, 0.51124D0, - & 0.48741D0, 0.41964D0, 0.36014D0, 0.32825D0, 0.30675D0, - & 0.29065D0, 0.26725D0, 0.24348D0, 0.21747D0, 0.19931D0, - & 0.17288D0, 0.15217D0, 0.13398D0, 0.11319D0, 0.09418D0, - & 0.07689D0, 0.06158D0, 0.04833D0, 0.03719D0, 0.02798D0, - & 0.02073D0, 0.01504D0, 0.01077D0, 0.00760D0, 0.00523D0, - & 0.00355D0, 0.00240D0, 0.00165D0, 0.00105D0, 0.00070D0, - & 0.00048D0, 0.00029D0, 0.00020D0, 0.00007D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I, 9),I=1,49)/ - & 1.41996D0, 1.21934D0, 1.04662D0, 0.95694D0, 0.89790D0, - & 0.85457D0, 0.73259D0, 0.62769D0, 0.57336D0, 0.53768D0, - & 0.51185D0, 0.43840D0, 0.37384D0, 0.33927D0, 0.31599D0, - & 0.29859D0, 0.27338D0, 0.24788D0, 0.22018D0, 0.20102D0, - & 0.17344D0, 0.15210D0, 0.13351D0, 0.11246D0, 0.09333D0, - & 0.07602D0, 0.06075D0, 0.04762D0, 0.03659D0, 0.02749D0, - & 0.02036D0, 0.01479D0, 0.01057D0, 0.00748D0, 0.00516D0, - & 0.00349D0, 0.00238D0, 0.00163D0, 0.00104D0, 0.00069D0, - & 0.00047D0, 0.00028D0, 0.00019D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,10),I=1,49)/ - & 1.52623D0, 1.30628D0, 1.11753D0, 1.01977D0, 0.95552D0, - & 0.90841D0, 0.77603D0, 0.66243D0, 0.60365D0, 0.56506D0, - & 0.53703D0, 0.45743D0, 0.38751D0, 0.35017D0, 0.32507D0, - & 0.30636D0, 0.27933D0, 0.25214D0, 0.22280D0, 0.20266D0, - & 0.17397D0, 0.15202D0, 0.13306D0, 0.11174D0, 0.09248D0, - & 0.07516D0, 0.05994D0, 0.04691D0, 0.03600D0, 0.02702D0, - & 0.02000D0, 0.01454D0, 0.01039D0, 0.00736D0, 0.00507D0, - & 0.00344D0, 0.00235D0, 0.00162D0, 0.00103D0, 0.00069D0, - & 0.00047D0, 0.00027D0, 0.00019D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,11),I=1,49)/ - & 1.61996D0, 1.38242D0, 1.17917D0, 1.07414D0, 1.00521D0, - & 0.95472D0, 0.81307D0, 0.69180D0, 0.62911D0, 0.58797D0, - & 0.55803D0, 0.47313D0, 0.39867D0, 0.35901D0, 0.33241D0, - & 0.31262D0, 0.28411D0, 0.25553D0, 0.22487D0, 0.20396D0, - & 0.17439D0, 0.15196D0, 0.13270D0, 0.11116D0, 0.09180D0, - & 0.07446D0, 0.05929D0, 0.04635D0, 0.03552D0, 0.02665D0, - & 0.01972D0, 0.01433D0, 0.01024D0, 0.00726D0, 0.00500D0, - & 0.00340D0, 0.00233D0, 0.00161D0, 0.00102D0, 0.00069D0, - & 0.00047D0, 0.00027D0, 0.00019D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,12),I=1,49)/ - & 1.85147D0, 1.56851D0, 1.32816D0, 1.20469D0, 1.12394D0, - & 1.06494D0, 0.90014D0, 0.75989D0, 0.68768D0, 0.64036D0, - & 0.60582D0, 0.50832D0, 0.42330D0, 0.37835D0, 0.34837D0, - & 0.32616D0, 0.29437D0, 0.26278D0, 0.22928D0, 0.20671D0, - & 0.17525D0, 0.15178D0, 0.13188D0, 0.10989D0, 0.09032D0, - & 0.07294D0, 0.05789D0, 0.04511D0, 0.03448D0, 0.02582D0, - & 0.01907D0, 0.01385D0, 0.00987D0, 0.00700D0, 0.00482D0, - & 0.00328D0, 0.00224D0, 0.00154D0, 0.00100D0, 0.00066D0, - & 0.00045D0, 0.00027D0, 0.00019D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,13),I=1,49)/ - & 2.08649D0, 1.75519D0, 1.47580D0, 1.33308D0, 1.24007D0, - & 1.17230D0, 0.98378D0, 0.82434D0, 0.74261D0, 0.68917D0, - & 0.65012D0, 0.54038D0, 0.44535D0, 0.39548D0, 0.36240D0, - & 0.33801D0, 0.30327D0, 0.26901D0, 0.23303D0, 0.20903D0, - & 0.17595D0, 0.15158D0, 0.13113D0, 0.10875D0, 0.08901D0, - & 0.07161D0, 0.05666D0, 0.04403D0, 0.03356D0, 0.02508D0, - & 0.01848D0, 0.01341D0, 0.00954D0, 0.00676D0, 0.00467D0, - & 0.00317D0, 0.00216D0, 0.00148D0, 0.00096D0, 0.00064D0, - & 0.00043D0, 0.00027D0, 0.00018D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,14),I=1,49)/ - & 2.39126D0, 1.99450D0, 1.66281D0, 1.49454D0, 1.38536D0, - & 1.30604D0, 1.08660D0, 0.90248D0, 0.80863D0, 0.74747D0, - & 0.70276D0, 0.57787D0, 0.47070D0, 0.41497D0, 0.37825D0, - & 0.35132D0, 0.31319D0, 0.27591D0, 0.23714D0, 0.21153D0, - & 0.17666D0, 0.15129D0, 0.13023D0, 0.10742D0, 0.08751D0, - & 0.07010D0, 0.05525D0, 0.04280D0, 0.03250D0, 0.02426D0, - & 0.01784D0, 0.01291D0, 0.00918D0, 0.00650D0, 0.00451D0, - & 0.00308D0, 0.00210D0, 0.00146D0, 0.00091D0, 0.00061D0, - & 0.00040D0, 0.00024D0, 0.00017D0, 0.00007D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,15),I=1,49)/ - & 2.76033D0, 2.28068D0, 1.88356D0, 1.68366D0, 1.55456D0, - & 1.46111D0, 1.20412D0, 0.99043D0, 0.88227D0, 0.81205D0, - & 0.76076D0, 0.61847D0, 0.49766D0, 0.43549D0, 0.39480D0, - & 0.36513D0, 0.32340D0, 0.28293D0, 0.24126D0, 0.21400D0, - & 0.17728D0, 0.15089D0, 0.12922D0, 0.10598D0, 0.08590D0, - & 0.06852D0, 0.05375D0, 0.04146D0, 0.03141D0, 0.02338D0, - & 0.01716D0, 0.01238D0, 0.00882D0, 0.00618D0, 0.00431D0, - & 0.00292D0, 0.00200D0, 0.00136D0, 0.00088D0, 0.00058D0, - & 0.00038D0, 0.00023D0, 0.00015D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,16),I=1,49)/ - & 3.14075D0, 2.57242D0, 2.10607D0, 1.87299D0, 1.72314D0, - & 1.61501D0, 1.31935D0, 1.07560D0, 0.95301D0, 0.87374D0, - & 0.81592D0, 0.65651D0, 0.52253D0, 0.45423D0, 0.40982D0, - & 0.37760D0, 0.33254D0, 0.28915D0, 0.24485D0, 0.21612D0, - & 0.17773D0, 0.15044D0, 0.12821D0, 0.10460D0, 0.08439D0, - & 0.06702D0, 0.05238D0, 0.04027D0, 0.03041D0, 0.02258D0, - & 0.01653D0, 0.01190D0, 0.00847D0, 0.00593D0, 0.00412D0, - & 0.00279D0, 0.00191D0, 0.00129D0, 0.00084D0, 0.00056D0, - & 0.00036D0, 0.00023D0, 0.00014D0, 0.00006D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,17),I=1,49)/ - & 3.57238D0, 2.90007D0, 2.35339D0, 2.08215D0, 1.90855D0, - & 1.78371D0, 1.44428D0, 1.16687D0, 1.02831D0, 0.93907D0, - & 0.87409D0, 0.69611D0, 0.54805D0, 0.47331D0, 0.42502D0, - & 0.39015D0, 0.34166D0, 0.29530D0, 0.24836D0, 0.21814D0, - & 0.17810D0, 0.14991D0, 0.12715D0, 0.10317D0, 0.08284D0, - & 0.06549D0, 0.05101D0, 0.03909D0, 0.02941D0, 0.02178D0, - & 0.01590D0, 0.01142D0, 0.00811D0, 0.00570D0, 0.00393D0, - & 0.00267D0, 0.00181D0, 0.00123D0, 0.00079D0, 0.00053D0, - & 0.00034D0, 0.00022D0, 0.00013D0, 0.00006D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,18),I=1,49)/ - & 3.96850D0, 3.19797D0, 2.57613D0, 2.26945D0, 2.07391D0, - & 1.93368D0, 1.55423D0, 1.24636D0, 1.09346D0, 0.99533D0, - & 0.92399D0, 0.72966D0, 0.56941D0, 0.48914D0, 0.43755D0, - & 0.40046D0, 0.34910D0, 0.30027D0, 0.25115D0, 0.21971D0, - & 0.17833D0, 0.14941D0, 0.12622D0, 0.10197D0, 0.08154D0, - & 0.06423D0, 0.04986D0, 0.03809D0, 0.02858D0, 0.02112D0, - & 0.01538D0, 0.01101D0, 0.00783D0, 0.00549D0, 0.00377D0, - & 0.00256D0, 0.00173D0, 0.00118D0, 0.00076D0, 0.00050D0, - & 0.00033D0, 0.00020D0, 0.00012D0, 0.00005D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,19),I=1,49)/ - & 4.49525D0, 3.59055D0, 2.86699D0, 2.51271D0, 2.28784D0, - & 2.12710D0, 1.69466D0, 1.34689D0, 1.17536D0, 1.06574D0, - & 0.98622D0, 0.77102D0, 0.59540D0, 0.50826D0, 0.45260D0, - & 0.41278D0, 0.35791D0, 0.30610D0, 0.25436D0, 0.22147D0, - & 0.17849D0, 0.14870D0, 0.12502D0, 0.10045D0, 0.07994D0, - & 0.06271D0, 0.04847D0, 0.03689D0, 0.02761D0, 0.02033D0, - & 0.01477D0, 0.01056D0, 0.00749D0, 0.00523D0, 0.00359D0, - & 0.00243D0, 0.00165D0, 0.00112D0, 0.00070D0, 0.00047D0, - & 0.00031D0, 0.00018D0, 0.00012D0, 0.00004D0, 0.00002D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,20),I=1,49)/ - & 5.00899D0, 3.97007D0, 3.14567D0, 2.74457D0, 2.49097D0, - & 2.31023D0, 1.82640D0, 1.44029D0, 1.25101D0, 1.13051D0, - & 1.04327D0, 0.80852D0, 0.61869D0, 0.52527D0, 0.46592D0, - & 0.42363D0, 0.36563D0, 0.31116D0, 0.25711D0, 0.22294D0, - & 0.17857D0, 0.14803D0, 0.12392D0, 0.09909D0, 0.07852D0, - & 0.06137D0, 0.04727D0, 0.03584D0, 0.02676D0, 0.01965D0, - & 0.01424D0, 0.01018D0, 0.00720D0, 0.00501D0, 0.00343D0, - & 0.00232D0, 0.00157D0, 0.00107D0, 0.00066D0, 0.00045D0, - & 0.00029D0, 0.00018D0, 0.00012D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,21),I=1,49)/ - & 5.51448D0, 4.34048D0, 3.41543D0, 2.96790D0, 2.68596D0, - & 2.48552D0, 1.95141D0, 1.52811D0, 1.32176D0, 1.19083D0, - & 1.09623D0, 0.84295D0, 0.63982D0, 0.54059D0, 0.47785D0, - & 0.43329D0, 0.37244D0, 0.31558D0, 0.25945D0, 0.22413D0, - & 0.17852D0, 0.14733D0, 0.12285D0, 0.09781D0, 0.07721D0, - & 0.06012D0, 0.04616D0, 0.03490D0, 0.02597D0, 0.01904D0, - & 0.01376D0, 0.00981D0, 0.00692D0, 0.00481D0, 0.00330D0, - & 0.00222D0, 0.00150D0, 0.00102D0, 0.00064D0, 0.00042D0, - & 0.00028D0, 0.00017D0, 0.00011D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,22),I=1,49)/ - & 6.21231D0, 4.84766D0, 3.78177D0, 3.26973D0, 2.94855D0, - & 2.72097D0, 2.11789D0, 1.64406D0, 1.41467D0, 1.26974D0, - & 1.16528D0, 0.88741D0, 0.66681D0, 0.56001D0, 0.49289D0, - & 0.44543D0, 0.38094D0, 0.32104D0, 0.26228D0, 0.22553D0, - & 0.17838D0, 0.14638D0, 0.12146D0, 0.09617D0, 0.07554D0, - & 0.05855D0, 0.04477D0, 0.03372D0, 0.02502D0, 0.01828D0, - & 0.01316D0, 0.00936D0, 0.00658D0, 0.00457D0, 0.00313D0, - & 0.00210D0, 0.00142D0, 0.00097D0, 0.00060D0, 0.00039D0, - & 0.00026D0, 0.00016D0, 0.00010D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,23),I=1,49)/ - & 6.92819D0, 5.36347D0, 4.15110D0, 3.57245D0, 3.21096D0, - & 2.95557D0, 2.28227D0, 1.75749D0, 1.50504D0, 1.34618D0, - & 1.23195D0, 0.92986D0, 0.69228D0, 0.57821D0, 0.50690D0, - & 0.45669D0, 0.38876D0, 0.32601D0, 0.26481D0, 0.22674D0, - & 0.17816D0, 0.14541D0, 0.12011D0, 0.09461D0, 0.07396D0, - & 0.05707D0, 0.04348D0, 0.03263D0, 0.02417D0, 0.01758D0, - & 0.01264D0, 0.00894D0, 0.00628D0, 0.00436D0, 0.00298D0, - & 0.00199D0, 0.00135D0, 0.00091D0, 0.00057D0, 0.00037D0, - & 0.00024D0, 0.00015D0, 0.00010D0, 0.00004D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,24),I=1,49)/ - & 7.64199D0, 5.87362D0, 4.51337D0, 3.86793D0, 3.46620D0, - & 3.18314D0, 2.44035D0, 1.86558D0, 1.59069D0, 1.41834D0, - & 1.29468D0, 0.96937D0, 0.71569D0, 0.59480D0, 0.51959D0, - & 0.46683D0, 0.39572D0, 0.33035D0, 0.26693D0, 0.22767D0, - & 0.17780D0, 0.14441D0, 0.11876D0, 0.09309D0, 0.07246D0, - & 0.05571D0, 0.04226D0, 0.03164D0, 0.02333D0, 0.01693D0, - & 0.01213D0, 0.00857D0, 0.00600D0, 0.00415D0, 0.00282D0, - & 0.00189D0, 0.00128D0, 0.00086D0, 0.00054D0, 0.00035D0, - & 0.00022D0, 0.00014D0, 0.00009D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,25),I=1,49)/ - & 8.41285D0, 6.42055D0, 4.89893D0, 4.18106D0, 3.73585D0, - & 3.42298D0, 2.60571D0, 1.97779D0, 1.67919D0, 1.49264D0, - & 1.35909D0, 1.00958D0, 0.73928D0, 0.61142D0, 0.53225D0, - & 0.47690D0, 0.40260D0, 0.33461D0, 0.26898D0, 0.22853D0, - & 0.17741D0, 0.14339D0, 0.11741D0, 0.09159D0, 0.07099D0, - & 0.05437D0, 0.04108D0, 0.03067D0, 0.02252D0, 0.01631D0, - & 0.01165D0, 0.00822D0, 0.00574D0, 0.00396D0, 0.00268D0, - & 0.00180D0, 0.00120D0, 0.00081D0, 0.00050D0, 0.00033D0, - & 0.00021D0, 0.00013D0, 0.00008D0, 0.00003D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,26),I=1,49)/ - & 9.21054D0, 6.98238D0, 5.29207D0, 4.49895D0, 4.00873D0, - & 3.66510D0, 2.77134D0, 2.08927D0, 1.76669D0, 1.56583D0, - & 1.42235D0, 1.04868D0, 0.76198D0, 0.62728D0, 0.54426D0, - & 0.48640D0, 0.40901D0, 0.33853D0, 0.27078D0, 0.22922D0, - & 0.17691D0, 0.14232D0, 0.11604D0, 0.09010D0, 0.06954D0, - & 0.05305D0, 0.03996D0, 0.02972D0, 0.02176D0, 0.01572D0, - & 0.01122D0, 0.00790D0, 0.00548D0, 0.00378D0, 0.00255D0, - & 0.00171D0, 0.00115D0, 0.00078D0, 0.00048D0, 0.00031D0, - & 0.00020D0, 0.00012D0, 0.00008D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,27),I=1,49)/ - & 10.01421D0, 7.54466D0, 5.68289D0, 4.81371D0, 4.27818D0, - & 3.90363D0, 2.93340D0, 2.19757D0, 1.85131D0, 1.63639D0, - & 1.48318D0, 1.08596D0, 0.78341D0, 0.64217D0, 0.55547D0, - & 0.49525D0, 0.41494D0, 0.34210D0, 0.27239D0, 0.22977D0, - & 0.17638D0, 0.14126D0, 0.11473D0, 0.08869D0, 0.06818D0, - & 0.05182D0, 0.03892D0, 0.02884D0, 0.02107D0, 0.01518D0, - & 0.01082D0, 0.00760D0, 0.00526D0, 0.00363D0, 0.00244D0, - & 0.00163D0, 0.00110D0, 0.00075D0, 0.00046D0, 0.00030D0, - & 0.00019D0, 0.00012D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,28),I=1,49)/ - & 10.81038D0, 8.09822D0, 6.06522D0, 5.12048D0, 4.54007D0, - & 4.13500D0, 3.08954D0, 2.30121D0, 1.93196D0, 1.70343D0, - & 1.54082D0, 1.12100D0, 0.80336D0, 0.65594D0, 0.56579D0, - & 0.50334D0, 0.42032D0, 0.34528D0, 0.27377D0, 0.23019D0, - & 0.17582D0, 0.14022D0, 0.11347D0, 0.08735D0, 0.06690D0, - & 0.05067D0, 0.03795D0, 0.02804D0, 0.02043D0, 0.01468D0, - & 0.01043D0, 0.00733D0, 0.00506D0, 0.00348D0, 0.00235D0, - & 0.00155D0, 0.00105D0, 0.00071D0, 0.00043D0, 0.00029D0, - & 0.00018D0, 0.00011D0, 0.00007D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,29),I=1,49)/ - & 11.65265D0, 8.68040D0, 6.46494D0, 5.44008D0, 4.81224D0, - & 4.37498D0, 3.25050D0, 2.40736D0, 2.01424D0, 1.77163D0, - & 1.59933D0, 1.15629D0, 0.82328D0, 0.66961D0, 0.57598D0, - & 0.51130D0, 0.42557D0, 0.34836D0, 0.27505D0, 0.23054D0, - & 0.17519D0, 0.13914D0, 0.11219D0, 0.08600D0, 0.06563D0, - & 0.04954D0, 0.03699D0, 0.02726D0, 0.01981D0, 0.01419D0, - & 0.01006D0, 0.00705D0, 0.00487D0, 0.00334D0, 0.00225D0, - & 0.00148D0, 0.00100D0, 0.00068D0, 0.00041D0, 0.00027D0, - & 0.00017D0, 0.00010D0, 0.00006D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,30),I=1,49)/ - & 12.51775D0, 9.27489D0, 6.87071D0, 5.76340D0, 5.08688D0, - & 4.61667D0, 3.41161D0, 2.51293D0, 2.09575D0, 1.83900D0, - & 1.65698D0, 1.19078D0, 0.84258D0, 0.68277D0, 0.58574D0, - & 0.51889D0, 0.43052D0, 0.35121D0, 0.27618D0, 0.23078D0, - & 0.17451D0, 0.13804D0, 0.11091D0, 0.08467D0, 0.06438D0, - & 0.04844D0, 0.03605D0, 0.02651D0, 0.01920D0, 0.01373D0, - & 0.00970D0, 0.00677D0, 0.00468D0, 0.00321D0, 0.00215D0, - & 0.00142D0, 0.00096D0, 0.00064D0, 0.00040D0, 0.00026D0, - & 0.00017D0, 0.00010D0, 0.00006D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,31),I=1,49)/ - & 13.38188D0, 9.86555D0, 7.27170D0, 6.08188D0, 5.35680D0, - & 4.85378D0, 3.56878D0, 2.61532D0, 2.17453D0, 1.90394D0, - & 1.71244D0, 1.22374D0, 0.86087D0, 0.69518D0, 0.59491D0, - & 0.52599D0, 0.43513D0, 0.35383D0, 0.27719D0, 0.23095D0, - & 0.17383D0, 0.13697D0, 0.10968D0, 0.08342D0, 0.06322D0, - & 0.04742D0, 0.03518D0, 0.02580D0, 0.01865D0, 0.01331D0, - & 0.00937D0, 0.00652D0, 0.00451D0, 0.00308D0, 0.00206D0, - & 0.00136D0, 0.00092D0, 0.00061D0, 0.00038D0, 0.00024D0, - & 0.00016D0, 0.00010D0, 0.00006D0, 0.00002D0, 0.00001D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,32),I=1,49)/ - & 14.22455D0, 10.43853D0, 7.65861D0, 6.38821D0, 5.61583D0, - & 5.08091D0, 3.71848D0, 2.71227D0, 2.24884D0, 1.96503D0, - & 1.76449D0, 1.25443D0, 0.87775D0, 0.70654D0, 0.60325D0, - & 0.53242D0, 0.43925D0, 0.35613D0, 0.27800D0, 0.23100D0, - & 0.17312D0, 0.13592D0, 0.10849D0, 0.08223D0, 0.06212D0, - & 0.04645D0, 0.03438D0, 0.02514D0, 0.01814D0, 0.01292D0, - & 0.00909D0, 0.00631D0, 0.00435D0, 0.00297D0, 0.00198D0, - & 0.00130D0, 0.00088D0, 0.00059D0, 0.00036D0, 0.00023D0, - & 0.00015D0, 0.00009D0, 0.00006D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,33),I=1,49)/ - & 15.12220D0, 11.04609D0, 8.06700D0, 6.71068D0, 5.88799D0, - & 5.31921D0, 3.87481D0, 2.81304D0, 2.32586D0, 2.02823D0, - & 1.81825D0, 1.28597D0, 0.89499D0, 0.71812D0, 0.61173D0, - & 0.53894D0, 0.44342D0, 0.35844D0, 0.27882D0, 0.23104D0, - & 0.17241D0, 0.13488D0, 0.10730D0, 0.08105D0, 0.06103D0, - & 0.04549D0, 0.03359D0, 0.02450D0, 0.01765D0, 0.01253D0, - & 0.00880D0, 0.00610D0, 0.00420D0, 0.00286D0, 0.00191D0, - & 0.00125D0, 0.00083D0, 0.00057D0, 0.00034D0, 0.00022D0, - & 0.00014D0, 0.00008D0, 0.00005D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,34),I=1,49)/ - & 16.02044D0, 11.65091D0, 8.47137D0, 7.02895D0, 6.15599D0, - & 5.55343D0, 4.02757D0, 2.91088D0, 2.40036D0, 2.08916D0, - & 1.86995D0, 1.31603D0, 0.91125D0, 0.72894D0, 0.61960D0, - & 0.54494D0, 0.44718D0, 0.36046D0, 0.27943D0, 0.23094D0, - & 0.17160D0, 0.13377D0, 0.10610D0, 0.07985D0, 0.05994D0, - & 0.04455D0, 0.03282D0, 0.02388D0, 0.01715D0, 0.01216D0, - & 0.00853D0, 0.00590D0, 0.00405D0, 0.00275D0, 0.00184D0, - & 0.00120D0, 0.00080D0, 0.00054D0, 0.00033D0, 0.00021D0, - & 0.00013D0, 0.00008D0, 0.00005D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,35),I=1,49)/ - & 16.92092D0, 12.25466D0, 8.87333D0, 7.34454D0, 6.42124D0, - & 5.78493D0, 4.17791D0, 3.00675D0, 2.47316D0, 2.14860D0, - & 1.92031D0, 1.34518D0, 0.92693D0, 0.73935D0, 0.62715D0, - & 0.55068D0, 0.45078D0, 0.36238D0, 0.28002D0, 0.23083D0, - & 0.17082D0, 0.13273D0, 0.10496D0, 0.07873D0, 0.05891D0, - & 0.04367D0, 0.03209D0, 0.02331D0, 0.01669D0, 0.01182D0, - & 0.00827D0, 0.00571D0, 0.00391D0, 0.00265D0, 0.00178D0, - & 0.00117D0, 0.00077D0, 0.00052D0, 0.00031D0, 0.00020D0, - & 0.00012D0, 0.00008D0, 0.00005D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,36),I=1,49)/ - & 17.79951D0, 12.84117D0, 9.26208D0, 7.64895D0, 6.67663D0, - & 6.00749D0, 4.32176D0, 3.09803D0, 2.54226D0, 2.20489D0, - & 1.96790D0, 1.37254D0, 0.94153D0, 0.74899D0, 0.63410D0, - & 0.55594D0, 0.45404D0, 0.36409D0, 0.28048D0, 0.23067D0, - & 0.17006D0, 0.13172D0, 0.10387D0, 0.07767D0, 0.05796D0, - & 0.04286D0, 0.03142D0, 0.02277D0, 0.01627D0, 0.01150D0, - & 0.00803D0, 0.00554D0, 0.00379D0, 0.00256D0, 0.00172D0, - & 0.00113D0, 0.00074D0, 0.00050D0, 0.00030D0, 0.00019D0, - & 0.00012D0, 0.00007D0, 0.00005D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,37),I=1,49)/ - & 18.71000D0, 13.44641D0, 9.66151D0, 7.96092D0, 6.93787D0, - & 6.23483D0, 4.46802D0, 3.19039D0, 2.61196D0, 2.26153D0, - & 2.01571D0, 1.39986D0, 0.95599D0, 0.75847D0, 0.64090D0, - & 0.56106D0, 0.45717D0, 0.36568D0, 0.28085D0, 0.23044D0, - & 0.16924D0, 0.13067D0, 0.10276D0, 0.07660D0, 0.05700D0, - & 0.04204D0, 0.03075D0, 0.02224D0, 0.01586D0, 0.01118D0, - & 0.00780D0, 0.00537D0, 0.00367D0, 0.00247D0, 0.00167D0, - & 0.00108D0, 0.00071D0, 0.00047D0, 0.00029D0, 0.00018D0, - & 0.00011D0, 0.00006D0, 0.00004D0, 0.00002D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - DATA (FMRS(2,8,I,38),I=1,49)/ - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0, - & 0.00000D0, 0.00000D0, 0.00000D0, 0.00000D0/ - - END diff --git a/GeneratorInterface/Herwig6Interface/plugins/BuildFile.xml b/GeneratorInterface/Herwig6Interface/plugins/BuildFile.xml deleted file mode 100644 index f70985d3df25c..0000000000000 --- a/GeneratorInterface/Herwig6Interface/plugins/BuildFile.xml +++ /dev/null @@ -1,13 +0,0 @@ - - - - - - - - - - - - - diff --git a/GeneratorInterface/Herwig6Interface/plugins/Dummies.cc b/GeneratorInterface/Herwig6Interface/plugins/Dummies.cc deleted file mode 100644 index 02b3da209b243..0000000000000 --- a/GeneratorInterface/Herwig6Interface/plugins/Dummies.cc +++ /dev/null @@ -1,21 +0,0 @@ -#include - -#include "FWCore/MessageLogger/interface/MessageLogger.h" - -#include "SimDataFormats/GeneratorProducts/interface/HepMCProduct.h" - -CLHEP::HepRandomEngine* randomEngine; - -extern "C" { - void hwaend_() {return;} - - void cmsending_(int* ecode) { - edm::LogError("")<<" ERROR: Herwig stoped run after receiving error code "<<*ecode<<".\n"; - throw cms::Exception("Herwig6Error") <<" Herwig stoped run with error code "<<*ecode<<"."; - } - - double hwrgen_(int* idummy) - { - return randomEngine->flat(); - } -} diff --git a/GeneratorInterface/Herwig6Interface/plugins/Herwig6Filter.cc b/GeneratorInterface/Herwig6Interface/plugins/Herwig6Filter.cc deleted file mode 100644 index 08426fe9f7242..0000000000000 --- a/GeneratorInterface/Herwig6Interface/plugins/Herwig6Filter.cc +++ /dev/null @@ -1,42 +0,0 @@ -// system include files -#include - -// user include files -#include "FWCore/Framework/interface/Frameworkfwd.h" -#include "FWCore/Framework/interface/stream/EDFilter.h" -#include "FWCore/Framework/interface/Event.h" -#include "FWCore/Framework/interface/MakerMacros.h" -#include "FWCore/ParameterSet/interface/ParameterSet.h" -#include "FWCore/MessageLogger/interface/MessageLogger.h" - -#include "SimDataFormats/GeneratorProducts/interface/HepMCProduct.h" - -// -// class declaration -// - -class Herwig6Filter : public edm::stream::EDFilter<> { -public: - explicit Herwig6Filter(const edm::ParameterSet&); - ~Herwig6Filter() override = default; - -private: - virtual bool filter(edm::Event&, const edm::EventSetup&); -}; - -Herwig6Filter::Herwig6Filter(const edm::ParameterSet& ppp) {} - -bool Herwig6Filter::filter(edm::Event& iEvent, const edm::EventSetup& iSetup) { - std::vector > AllProds; - iEvent.getManyByType(AllProds); - - if (AllProds.size() == 0) { - edm::LogInfo("") << " Event is skipped and removed.\n"; - return false; - } else - return true; -} - -//define this as a plug-in - -DEFINE_FWK_MODULE(Herwig6Filter); diff --git a/GeneratorInterface/Herwig6Interface/plugins/Herwig6Hadronizer.cc b/GeneratorInterface/Herwig6Interface/plugins/Herwig6Hadronizer.cc deleted file mode 100644 index ee149719a7036..0000000000000 --- a/GeneratorInterface/Herwig6Interface/plugins/Herwig6Hadronizer.cc +++ /dev/null @@ -1,1004 +0,0 @@ -#include -#include - -#include -#include -#include -#include -#include -#include - -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include "HepPID/ParticleIDTranslations.hh" - -#include "FWCore/Concurrency/interface/SharedResourceNames.h" -#include "FWCore/MessageLogger/interface/MessageLogger.h" - -#include "SimDataFormats/GeneratorProducts/interface/HepMCProduct.h" -#include "SimDataFormats/GeneratorProducts/interface/GenRunInfoProduct.h" - -#include "SimDataFormats/GeneratorProducts/interface/LesHouches.h" -#include "SimDataFormats/GeneratorProducts/interface/LHECommonBlocks.h" - -#include "GeneratorInterface/Core/interface/ParameterCollector.h" -#include "GeneratorInterface/Core/interface/BaseHadronizer.h" -#include "GeneratorInterface/Core/interface/GeneratorFilter.h" -#include "GeneratorInterface/Core/interface/HadronizerFilter.h" -#include "GeneratorInterface/Core/interface/FortranInstance.h" - -#include "GeneratorInterface/LHEInterface/interface/LHEEvent.h" - -#include "GeneratorInterface/Herwig6Interface/interface/Herwig6Instance.h" -#include "GeneratorInterface/Herwig6Interface/interface/herwig.h" - -#include "DataFormats/Math/interface/LorentzVector.h" - -namespace CLHEP { - class HepRandomEngine; -} - -extern "C" { -void hwuidt_(int *iopt, int *ipdg, int *iwig, char nwig[8]); -double hwualf_(int *mode, double *scale); -double hwuaem_(double *scale); -} - -// helpers -namespace { - inline bool call_hwmatch() { - int result; - hwmatch(&result); - return result; - } - inline bool call_hwmsct() { - int result; - hwmsct(&result); - return result; - } - - int pdgToHerwig(int ipdg, char *nwig) { - int iopt = 1; - int iwig = 0; - hwuidt_(&iopt, &ipdg, &iwig, nwig); - return ipdg ? iwig : 0; - } - - bool markStable(int pdgId) { - char nwig[9] = " "; - if (!pdgToHerwig(pdgId, nwig)) - return false; - hwusta(nwig, 1); - return true; - } -} // namespace - -class Herwig6Hadronizer : public gen::BaseHadronizer, public gen::Herwig6Instance { -public: - Herwig6Hadronizer(const edm::ParameterSet ¶ms); - ~Herwig6Hadronizer() override; - - void setSLHAFromHeader(const std::vector &lines); - bool initialize(const lhef::HEPRUP *heprup); - - bool readSettings(int); - - // bool initializeForInternalPartons() { return initialize(0); } - // bool initializeForExternalPartons() { return initialize(lheRunInfo()->getHEPRUP()); } - - bool initializeForInternalPartons(); - bool initializeForExternalPartons() { return initializeForInternalPartons(); } - - bool declareStableParticles(const std::vector &pdgIds); - bool declareSpecialSettings(const std::vector &); - - void statistics(); - - bool generatePartonsAndHadronize() { return hadronize(); } - bool hadronize(); - bool decay(); - bool residualDecay(); - void finalizeEvent(); - - const char *classname() const { return "Herwig6Hadronizer"; } - -private: - void doSetRandomEngine(CLHEP::HepRandomEngine *v) override; - std::vector const &doSharedResources() const override { return theSharedResources; } - - void clear(); - - int pythiaStatusCode(const HepMC::GenParticle *p) const; - void pythiaStatusCodes(); - - void upInit() override; - void upEvnt() override; - - static const std::vector theSharedResources; - - HepMC::IO_HERWIG conv; - bool needClear; - bool externalPartons; - - gen::ParameterCollector parameters; - int herwigVerbosity; - int hepmcVerbosity; - int maxEventsToPrint; - bool printCards; - bool emulatePythiaStatusCodes; - double comEnergy; - bool useJimmy; - bool doMPInteraction; - int numTrials; - bool fConvertToPDG; // convert PIDs - bool doMatching; - bool inclusiveMatching; - int nMatch; - double matchingScale; - - bool readMCatNLOfile; - - // ------------------------------------------------------------------------------- - std::string particleSpecFileName; //Lars 20/Jul/2011 - bool readParticleSpecFile; - // ------------------------------------------------------------------------------- -}; - -extern "C" { -void hwwarn_(const char *method, int *id); -void setherwpdf_(void); -void mysetpdfpath_(const char *path); -} // extern "C" - -const std::vector Herwig6Hadronizer::theSharedResources = {edm::SharedResourceNames::kHerwig6, - gen::FortranInstance::kFortranInstance}; - -Herwig6Hadronizer::Herwig6Hadronizer(const edm::ParameterSet ¶ms) - : BaseHadronizer(params), - needClear(false), - parameters(params.getParameter("HerwigParameters")), - herwigVerbosity(params.getUntrackedParameter("herwigVerbosity", 0)), - hepmcVerbosity(params.getUntrackedParameter("hepmcVerbosity", 0)), - maxEventsToPrint(params.getUntrackedParameter("maxEventsToPrint", 0)), - printCards(params.getUntrackedParameter("printCards", false)), - emulatePythiaStatusCodes(params.getUntrackedParameter("emulatePythiaStatusCodes", false)), - comEnergy(params.getParameter("comEnergy")), - useJimmy(params.getParameter("useJimmy")), - doMPInteraction(params.getParameter("doMPInteraction")), - numTrials(params.getUntrackedParameter("numTrialsMPI", 100)), - doMatching(params.getUntrackedParameter("doMatching", false)), - inclusiveMatching(params.getUntrackedParameter("inclusiveMatching", true)), - nMatch(params.getUntrackedParameter("nMatch", 0)), - matchingScale(params.getUntrackedParameter("matchingScale", 0.0)), - readMCatNLOfile(false), - - // added to be able to read external particle spectrum file - particleSpecFileName(params.getUntrackedParameter("ParticleSpectrumFileName", "")), - readParticleSpecFile(params.getUntrackedParameter("readParticleSpecFile", false)) - -{ - fConvertToPDG = false; - if (params.exists("doPDGConvert")) - fConvertToPDG = params.getParameter("doPDGConvert"); -} - -Herwig6Hadronizer::~Herwig6Hadronizer() { clear(); } - -void Herwig6Hadronizer::doSetRandomEngine(CLHEP::HepRandomEngine *v) { setHerwigRandomEngine(v); } - -void Herwig6Hadronizer::clear() { - if (!needClear) - return; - - // teminate elementary process - call(hwefin); - if (useJimmy) - call(jmefin); - - needClear = false; -} - -void Herwig6Hadronizer::setSLHAFromHeader(const std::vector &lines) { - std::set blocks; - std::string block; - for (std::vector::const_iterator iter = lines.begin(); iter != lines.end(); ++iter) { - std::string line = *iter; - std::transform(line.begin(), line.end(), line.begin(), (int (*)(int))std::toupper); - std::string::size_type pos = line.find('#'); - if (pos != std::string::npos) - line.resize(pos); - - if (line.empty()) - continue; - - if (!boost::algorithm::is_space()(line[0])) { - std::vector tokens; - boost::split(tokens, line, boost::algorithm::is_space(), boost::token_compress_on); - if (tokens.empty()) - continue; - block.clear(); - if (tokens.size() < 2) - continue; - if (tokens[0] == "BLOCK") - block = tokens[1]; - else if (tokens[0] == "DECAY") - block = "DECAY"; - - if (block.empty()) - continue; - - if (!blocks.count(block)) { - blocks.insert(block); - edm::LogWarning("Generator|Herwig6Hadronzier") - << "Unsupported SLHA block \"" << block << "\". It will be ignored." << std::endl; - } - } - } -} - -bool Herwig6Hadronizer::readSettings(int key) { - clear(); - const lhef::HEPRUP *heprup = lheRunInfo()->getHEPRUP(); - externalPartons = (heprup != nullptr); - - if (key == 0 && externalPartons) - return false; - if (key > 0 && !externalPartons) - return false; - - std::ostringstream info; - info << "---------------------------------------------------\n"; - info << "Taking in settinsg for Herwig6Hadronizer for " << (externalPartons ? "external" : "internal") - << " partons\n"; - info << "---------------------------------------------------\n"; - - info << " Herwig verbosity level = " << herwigVerbosity << "\n"; - info << " HepMC verbosity = " << hepmcVerbosity << "\n"; - info << " Number of events to be printed = " << maxEventsToPrint << "\n"; - - // Call hwudat to set up HERWIG block data - hwudat(); - - // Setting basic parameters - if (externalPartons) { - hwproc.PBEAM1 = heprup->EBMUP.first; - hwproc.PBEAM2 = heprup->EBMUP.second; - pdgToHerwig(heprup->IDBMUP.first, hwbmch.PART1); - pdgToHerwig(heprup->IDBMUP.second, hwbmch.PART2); - } else { - hwproc.PBEAM1 = 0.5 * comEnergy; - hwproc.PBEAM2 = 0.5 * comEnergy; - pdgToHerwig(2212, hwbmch.PART1); - pdgToHerwig(2212, hwbmch.PART2); - } - - if (doMatching) { - hwmatchpram.n_match = nMatch; - hwmatchpram.matching_scale = matchingScale; - - if (inclusiveMatching) - hwmatchpram.max_multiplicity_flag = 1; - else - hwmatchpram.max_multiplicity_flag = 0; - } - - if (useJimmy) { - info << " HERWIG will be using JIMMY for UE/MI.\n"; - jmparm.MSFLAG = 1; - if (doMPInteraction) - info << " JIMMY trying to generate multiple interactions.\n"; - } - - // set the IPROC already here... needed for VB pairs - - bool iprocFound = false; - - for (gen::ParameterCollector::const_iterator line = parameters.begin(); line != parameters.end(); ++line) { - if (!strcmp((line->substr(0, 5)).c_str(), "IPROC")) { - if (!give(*line)) - throw edm::Exception(edm::errors::Configuration) - << "Herwig 6 did not accept the following: \"" << *line << "\"." << std::endl; - else - iprocFound = true; - } - } - - if (!iprocFound && !externalPartons) - throw edm::Exception(edm::errors::Configuration) << "You have to define the process with IPROC." << std::endl; - - // initialize other common blocks ... - call(hwigin); // default init - - hwevnt.MAXER = 100000000; // O(inf) - hwpram.LWSUD = 0; // don't write Sudakov form factors - hwdspn.LWDEC = 0; // don't write three/four body decays - // (no fort.77 and fort.88 ...) - // init LHAPDF glue - std::memset(hwprch.AUTPDF, ' ', sizeof hwprch.AUTPDF); - for (unsigned int i = 0; i < 2; i++) { - hwpram.MODPDF[i] = -111; - std::memcpy(hwprch.AUTPDF[i], "HWLHAPDF", 8); - } - - hwevnt.MAXPR = maxEventsToPrint; - hwpram.IPRINT = herwigVerbosity; - // hwprop.RMASS[6] = 175.0; //FIXME - - if (printCards) { - info << "\n"; - info << "------------------------------------\n"; - info << "Reading HERWIG parameters\n"; - info << "------------------------------------\n"; - } - for (gen::ParameterCollector::const_iterator line = parameters.begin(); line != parameters.end(); ++line) { - if (printCards) - info << " " << *line << "\n"; - if (!give(*line)) - throw edm::Exception(edm::errors::Configuration) - << "Herwig 6 did not accept the following: \"" << *line << "\"." << std::endl; - } - - if (printCards) - info << "\n"; - - if (externalPartons) { - std::vector slha = lheRunInfo()->findHeader("slha"); - if (!slha.empty()) - setSLHAFromHeader(slha); - } - - needClear = true; - - std::pair pdfs(-1, -1); - if (externalPartons) - pdfs = lheRunInfo()->pdfSetTranslation(); - - if (hwpram.MODPDF[0] != -111 || hwpram.MODPDF[1] != -111) { - for (unsigned int i = 0; i < 2; i++) - if (hwpram.MODPDF[i] == -111) - hwpram.MODPDF[i] = -1; - - if (pdfs.first != -1 || pdfs.second != -1) - edm::LogError("Generator|Herwig6Hadronzier") << "Both external Les Houches event and " - "config file specify a PDF set. " - "User PDF will override external one." - << std::endl; - - pdfs.first = hwpram.MODPDF[0] != -111 ? hwpram.MODPDF[0] : -1; - pdfs.second = hwpram.MODPDF[1] != -111 ? hwpram.MODPDF[1] : -1; - } - - printf("pdfs.first = %i, pdfs.second = %i\n", pdfs.first, pdfs.second); - - hwpram.MODPDF[0] = pdfs.first; - hwpram.MODPDF[1] = pdfs.second; - - if (externalPartons && hwproc.IPROC >= 0) - hwproc.IPROC = -1; - - //Lars: lower EFFMIN threshold, to continue execution of IPROC=4000, lambda'_211=0.01 at LM7,10 - if (readParticleSpecFile) { - openParticleSpecFile(particleSpecFileName); - hwpram.EFFMIN = 1e-5; - } - - edm::LogInfo(info.str()); - - return true; -} - -bool Herwig6Hadronizer::initializeForInternalPartons() { - if (useJimmy) - call(jimmin); - - call(hwuinc); - - // initialize HERWIG event generation - call(hweini); - - if (useJimmy) { - call(jminit); - } - - return true; -} - -bool Herwig6Hadronizer::initialize(const lhef::HEPRUP *heprup) { - clear(); - - externalPartons = (heprup != nullptr); - - std::ostringstream info; - info << "---------------------------------------------------\n"; - info << "Initializing Herwig6Hadronizer for " << (externalPartons ? "external" : "internal") << " partons\n"; - info << "---------------------------------------------------\n"; - - info << " Herwig verbosity level = " << herwigVerbosity << "\n"; - info << " HepMC verbosity = " << hepmcVerbosity << "\n"; - info << " Number of events to be printed = " << maxEventsToPrint << "\n"; - - // Call hwudat to set up HERWIG block data - hwudat(); - - // Setting basic parameters - if (externalPartons) { - hwproc.PBEAM1 = heprup->EBMUP.first; - hwproc.PBEAM2 = heprup->EBMUP.second; - pdgToHerwig(heprup->IDBMUP.first, hwbmch.PART1); - pdgToHerwig(heprup->IDBMUP.second, hwbmch.PART2); - } else { - hwproc.PBEAM1 = 0.5 * comEnergy; - hwproc.PBEAM2 = 0.5 * comEnergy; - pdgToHerwig(2212, hwbmch.PART1); - pdgToHerwig(2212, hwbmch.PART2); - } - - if (useJimmy) { - info << " HERWIG will be using JIMMY for UE/MI.\n"; - jmparm.MSFLAG = 1; - if (doMPInteraction) - info << " JIMMY trying to generate multiple interactions.\n"; - } - - // set the IPROC already here... needed for VB pairs - - bool iprocFound = false; - - for (gen::ParameterCollector::const_iterator line = parameters.begin(); line != parameters.end(); ++line) { - if (!strcmp((line->substr(0, 5)).c_str(), "IPROC")) { - if (!give(*line)) - throw edm::Exception(edm::errors::Configuration) - << "Herwig 6 did not accept the following: \"" << *line << "\"." << std::endl; - else - iprocFound = true; - } - } - - if (!iprocFound && !externalPartons) - throw edm::Exception(edm::errors::Configuration) << "You have to define the process with IPROC." << std::endl; - - // initialize other common blocks ... - call(hwigin); - hwevnt.MAXER = 100000000; // O(inf) - hwpram.LWSUD = 0; // don't write Sudakov form factors - hwdspn.LWDEC = 0; // don't write three/four body decays - // (no fort.77 and fort.88 ...) - - // init LHAPDF glue - - std::memset(hwprch.AUTPDF, ' ', sizeof hwprch.AUTPDF); - for (unsigned int i = 0; i < 2; i++) { - hwpram.MODPDF[i] = -111; - std::memcpy(hwprch.AUTPDF[i], "HWLHAPDF", 8); - } - - if (useJimmy) - call(jimmin); - - hwevnt.MAXPR = maxEventsToPrint; - hwpram.IPRINT = herwigVerbosity; - // hwprop.RMASS[6] = 175.0; //FIXME - - if (printCards) { - info << "\n"; - info << "------------------------------------\n"; - info << "Reading HERWIG parameters\n"; - info << "------------------------------------\n"; - } - for (gen::ParameterCollector::const_iterator line = parameters.begin(); line != parameters.end(); ++line) { - if (printCards) - info << " " << *line << "\n"; - if (!give(*line)) - throw edm::Exception(edm::errors::Configuration) - << "Herwig 6 did not accept the following: \"" << *line << "\"." << std::endl; - } - - if (printCards) - info << "\n"; - - if (externalPartons) { - std::vector slha = lheRunInfo()->findHeader("slha"); - if (!slha.empty()) - setSLHAFromHeader(slha); - } - - needClear = true; - - std::pair pdfs(-1, -1); - if (externalPartons) - pdfs = lheRunInfo()->pdfSetTranslation(); - - if (hwpram.MODPDF[0] != -111 || hwpram.MODPDF[1] != -111) { - for (unsigned int i = 0; i < 2; i++) - if (hwpram.MODPDF[i] == -111) - hwpram.MODPDF[i] = -1; - - if (pdfs.first != -1 || pdfs.second != -1) - edm::LogError("Generator|Herwig6Hadronzier") << "Both external Les Houches event and " - "config file specify a PDF set. " - "User PDF will override external one." - << std::endl; - - pdfs.first = hwpram.MODPDF[0] != -111 ? hwpram.MODPDF[0] : -1; - pdfs.second = hwpram.MODPDF[1] != -111 ? hwpram.MODPDF[1] : -1; - } - - printf("pdfs.first = %i, pdfs.second = %i\n", pdfs.first, pdfs.second); - - hwpram.MODPDF[0] = pdfs.first; - hwpram.MODPDF[1] = pdfs.second; - - if (externalPartons) - hwproc.IPROC = -1; - - //Lars: lower EFFMIN threshold, to continue execution of IPROC=4000, lambda'_211=0.01 at LM7,10 - if (readParticleSpecFile) { - openParticleSpecFile(particleSpecFileName); - hwpram.EFFMIN = 1e-5; - } - - // HERWIG preparations ... - call(hwuinc); - markStable(13); // MU+ - markStable(-13); // MU- - markStable(3112); // SIGMA+ - markStable(-3112); // SIGMABAR+ - markStable(3222); // SIGMA- - markStable(-3222); // SIGMABAR- - markStable(3122); // LAMBDA0 - markStable(-3122); // LAMBDABAR0 - markStable(3312); // XI- - markStable(-3312); // XIBAR+ - markStable(3322); // XI0 - markStable(-3322); // XI0BAR - markStable(3334); // OMEGA- - markStable(-3334); // OMEGABAR+ - markStable(211); // PI+ - markStable(-211); // PI- - markStable(321); // K+ - markStable(-321); // K- - markStable(310); // K_S0 - markStable(130); // K_L0 - - // better: merge with declareStableParticles - // and get the list from configuration / Geant4 / Core somewhere - - // initialize HERWIG event generation - call(hweini); - - if (useJimmy) - call(jminit); - - edm::LogInfo(info.str()); - - return true; -} - -bool Herwig6Hadronizer::declareStableParticles(const std::vector &pdgIds) { - markStable(13); // MU+ - markStable(-13); // MU- - markStable(3112); // SIGMA+ - markStable(-3112); // SIGMABAR+ - markStable(3222); // SIGMA- - markStable(-3222); // SIGMABAR- - markStable(3122); // LAMBDA0 - markStable(-3122); // LAMBDABAR0 - markStable(3312); // XI- - markStable(-3312); // XIBAR+ - markStable(3322); // XI0 - markStable(-3322); // XI0BAR - markStable(3334); // OMEGA- - markStable(-3334); // OMEGABAR+ - markStable(211); // PI+ - markStable(-211); // PI- - markStable(321); // K+ - markStable(-321); // K- - markStable(310); // K_S0 - markStable(130); // K_L0 - - for (std::vector::const_iterator iter = pdgIds.begin(); iter != pdgIds.end(); ++iter) - if (!markStable(*iter)) - return false; - return true; -} - -bool Herwig6Hadronizer::declareSpecialSettings(const std::vector &) { return true; } - -void Herwig6Hadronizer::statistics() { - if (!runInfo().internalXSec()) { - // not set via LHE, so get it from HERWIG - // the reason is that HERWIG doesn't compute the xsec - // in all LHE modes - - double RNWGT = 1. / hwevnt.NWGTS; - double AVWGT = hwevnt.WGTSUM * RNWGT; - - double xsec = 1.0e3 * AVWGT; - - runInfo().setInternalXSec(xsec); - } -} - -bool Herwig6Hadronizer::hadronize() { - // hard process generation, parton shower, hadron formation - - InstanceWrapper wrapper(this); // safe guard - - event().reset(); - - // call herwig routines to create HEPEVT - - hwuine(); // initialize event - - if (callWithTimeout(10, hwepro)) { // process event and PS - // We hung for more than 10 seconds - int error = 199; - hwwarn_("HWHGUP", &error); - } - - hwbgen(); // parton cascades - - // call jimmy ... only if event is not killed yet by HERWIG - if (useJimmy && doMPInteraction && !hwevnt.IERROR && call_hwmsct()) { - if (lheEvent()) - lheEvent()->count(lhef::LHERunInfo::kKilled); - return false; - } - - hwdhob(); // heavy quark decays - hwcfor(); // cluster formation - hwcdec(); // cluster decays - - // // if event *not* killed by HERWIG, return true - // if (hwevnt.IERROR) { - // hwufne(); // finalize event, to keep system clean - // if (lheEvent()) lheEvent()->count(lhef::LHERunInfo::kKilled); - // return false; - // } - - //if (lheEvent()) lheEvent()->count(lhef::LHERunInfo::kAccepted); - - hwdhad(); // unstable particle decays - hwdhvy(); // heavy flavour decays - hwmevt(); // soft underlying event - - hwufne(); // finalize event - - // if event *not* killed by HERWIG, return true - if (hwevnt.IERROR) { - if (lheEvent()) - lheEvent()->count(lhef::LHERunInfo::kKilled); - return false; - } - - if (doMatching) { - bool pass = call_hwmatch(); - if (!pass) { - printf("Event failed MLM matching\n"); - if (lheEvent()) - lheEvent()->count(lhef::LHERunInfo::kSelected); - return false; - } - } - - if (lheEvent()) - lheEvent()->count(lhef::LHERunInfo::kAccepted); - - event() = std::make_unique(); - if (!conv.fill_next_event(event().get())) - throw cms::Exception("Herwig6Error") << "HepMC Conversion problems in event." << std::endl; - - // do particle ID conversion Herwig->PDG, if requested - if (fConvertToPDG) { - for (HepMC::GenEvent::particle_iterator part = event()->particles_begin(); part != event()->particles_end(); - ++part) { - if ((*part)->pdg_id() != HepPID::translateHerwigtoPDT((*part)->pdg_id())) - (*part)->set_pdg_id(HepPID::translateHerwigtoPDT((*part)->pdg_id())); - } - } - - return true; -} - -void Herwig6Hadronizer::finalizeEvent() { - lhef::LHEEvent::fixHepMCEventTimeOrdering(event().get()); - - HepMC::PdfInfo pdfInfo; - if (externalPartons) { - lheEvent()->fillEventInfo(event().get()); - lheEvent()->fillPdfInfo(&pdfInfo); - - // for MC@NLO: IDWRUP is not filled... - if (event()->signal_process_id() == 0) - event()->set_signal_process_id(abs(hwproc.IPROC)); - } - - HepMC::GenParticle *incomingParton = nullptr; - HepMC::GenParticle *targetParton = nullptr; - - HepMC::GenParticle *incomingProton = nullptr; - HepMC::GenParticle *targetProton = nullptr; - - // find incoming parton (first entry with IST=121) - for (HepMC::GenEvent::particle_const_iterator it = event()->particles_begin(); - (it != event()->particles_end() && incomingParton == nullptr); - it++) - if ((*it)->status() == 121) - incomingParton = (*it); - - // find target parton (first entry with IST=122) - for (HepMC::GenEvent::particle_const_iterator it = event()->particles_begin(); - (it != event()->particles_end() && targetParton == nullptr); - it++) - if ((*it)->status() == 122) - targetParton = (*it); - - // find incoming Proton (first entry ID=2212, IST=101) - for (HepMC::GenEvent::particle_const_iterator it = event()->particles_begin(); - (it != event()->particles_end() && incomingProton == nullptr); - it++) - if ((*it)->status() == 101 && (*it)->pdg_id() == 2212) - incomingProton = (*it); - - // find target Proton (first entry ID=2212, IST=102) - for (HepMC::GenEvent::particle_const_iterator it = event()->particles_begin(); - (it != event()->particles_end() && targetProton == nullptr); - it++) - if ((*it)->status() == 102 && (*it)->pdg_id() == 2212) - targetProton = (*it); - - // find hard scale Q (computed from colliding partons) - if (incomingParton && targetParton) { - math::XYZTLorentzVector totMomentum(0, 0, 0, 0); - totMomentum += incomingParton->momentum(); - totMomentum += targetParton->momentum(); - double evScale = totMomentum.mass(); - double evScale2 = evScale * evScale; - - // find alpha_QED & alpha_QCD - int one = 1; - double alphaQCD = hwualf_(&one, &evScale); - double alphaQED = hwuaem_(&evScale2); - - if (!externalPartons || event()->event_scale() < 0) - event()->set_event_scale(evScale); - if (!externalPartons || event()->alphaQCD() < 0) - event()->set_alphaQCD(alphaQCD); - if (!externalPartons || event()->alphaQED() < 0) - event()->set_alphaQED(alphaQED); - - if (!externalPartons || pdfInfo.x1() < 0) { - // get the PDF information - pdfInfo.set_id1(incomingParton->pdg_id() == 21 ? 0 : incomingParton->pdg_id()); - pdfInfo.set_id2(targetParton->pdg_id() == 21 ? 0 : targetParton->pdg_id()); - if (incomingProton && targetProton) { - double x1 = incomingParton->momentum().pz() / incomingProton->momentum().pz(); - double x2 = targetParton->momentum().pz() / targetProton->momentum().pz(); - pdfInfo.set_x1(x1); - pdfInfo.set_x2(x2); - } - // we do not fill pdf1 & pdf2, since they are not easily available (what are they needed for anyways???) - pdfInfo.set_scalePDF(evScale); // the same as Q above... does this make sense? - } - - if (!externalPartons || event()->signal_process_id() < 0) - event()->set_signal_process_id(abs(hwproc.IPROC)); - event()->set_pdf_info(pdfInfo); - } - - // add event weight & PDF information - if (lheRunInfo() != nullptr && std::abs(lheRunInfo()->getHEPRUP()->IDWTUP) == 4) - // in LHE weighting mode 4 the weight is an xsec, so convert form HERWIG - // to standard CMS unit "picobarn" - event()->weights().push_back(1.0e3 * hwevnt.EVWGT); - else - event()->weights().push_back(hwevnt.EVWGT); - - // find final parton (first entry with IST=123) - HepMC::GenParticle *finalParton = nullptr; - for (HepMC::GenEvent::particle_const_iterator it = event()->particles_begin(); - (it != event()->particles_end() && finalParton == nullptr); - it++) - if ((*it)->status() == 123) - finalParton = (*it); - - // add GenEventInfo & binning Values - eventInfo() = std::make_unique(event().get()); - if (finalParton) { - double thisPt = finalParton->momentum().perp(); - eventInfo()->setBinningValues(std::vector(1, thisPt)); - } - - // emulate PY6 status codes, if switched on... - if (emulatePythiaStatusCodes) - pythiaStatusCodes(); -} - -bool Herwig6Hadronizer::decay() { - // hadron decays - - // InstanceWrapper wrapper(this); // safe guard - // - // //int iproc = hwproc.IPROC; - // //hwproc.IPROC = 312; - // hwdhad(); // unstable particle decays - // //hwproc.IPROC = iproc; - // - // hwdhvy(); // heavy flavour decays - // hwmevt(); // soft underlying event - // - // if (doMatching) { - // bool pass = call_hwmatch(); - // if (!pass) { - // printf("Event failed MLM matching\n"); - // hwufne(); - // if (lheEvent()) lheEvent()->count(lhef::LHERunInfo::kKilled); - // return false; - // } - // } - // - // hwufne(); // finalize event - // - // if (hwevnt.IERROR) - // return false; - // - // if (lheEvent()) lheEvent()->count(lhef::LHERunInfo::kAccepted); - // - // event().reset(new HepMC::GenEvent); - // if (!conv.fill_next_event(event().get())) - // throw cms::Exception("Herwig6Error") - // << "HepMC Conversion problems in event." << std::endl; - // - // // do particle ID conversion Herwig->PDG, if requested - // if ( fConvertToPDG ) { - // for ( HepMC::GenEvent::particle_iterator part = event()->particles_begin(); part != event()->particles_end(); ++part) { - // if ((*part)->pdg_id() != HepPID::translateHerwigtoPDT((*part)->pdg_id())) - // (*part)->set_pdg_id(HepPID::translateHerwigtoPDT((*part)->pdg_id())); - // } - // } - - return true; -} - -bool Herwig6Hadronizer::residualDecay() { return true; } - -void Herwig6Hadronizer::upInit() { - lhef::CommonBlocks::fillHEPRUP(lheRunInfo()->getHEPRUP()); - heprup_.pdfgup[0] = heprup_.pdfgup[1] = -1; - heprup_.pdfsup[0] = heprup_.pdfsup[1] = -1; - // we set up the PDFs ourselves - - // pass HERWIG paramaters fomr header (if present) - std::string mcnloHeader = "herwig6header"; - std::vector headers = lheRunInfo()->getHeaders(); - for (std::vector::const_iterator hIter = headers.begin(); hIter != headers.end(); ++hIter) { - if (hIter->tag() == mcnloHeader) { - readMCatNLOfile = true; - for (lhef::LHERunInfo::Header::const_iterator lIter = hIter->begin(); lIter != hIter->end(); ++lIter) { - if ((lIter->c_str())[0] != '#' && (lIter->c_str())[0] != '\n') { // it's not a comment) - if (!give(*lIter)) - throw edm::Exception(edm::errors::Configuration) - << "Herwig 6 did not accept the following: \"" << *lIter << "\"." << std::endl; - } - } - } - } -} - -void Herwig6Hadronizer::upEvnt() { - lhef::CommonBlocks::fillHEPEUP(lheEvent()->getHEPEUP()); - - // if MCatNLO external file is read, read comment & pass IHPRO to HERWIG - if (readMCatNLOfile) { - for (std::vector::const_iterator iter = lheEvent()->getComments().begin(); - iter != lheEvent()->getComments().end(); - ++iter) { - std::string toParse(iter->substr(1)); - if (!give(toParse)) - throw edm::Exception(edm::errors::Configuration) - << "Herwig 6 did not accept the following: \"" << toParse << "\"." << std::endl; - } - } -} - -int Herwig6Hadronizer::pythiaStatusCode(const HepMC::GenParticle *p) const { - int status = p->status(); - - // weird 9922212 particles... - if (status == 3 && !p->end_vertex()) - return 2; - - if (status >= 1 && status <= 3) - return status; - - if (!p->end_vertex()) - return 1; - - // let's prevent particles having status 3, if the identical - // particle downstream is a better status 3 candidate - int currentId = p->pdg_id(); - int orig = status; - if (status == 123 || status == 124 || status == 155 || status == 156 || status == 160 || - (status >= 195 && status <= 197)) { - for (const HepMC::GenParticle *q = p;;) { - const HepMC::GenVertex *vtx = q->end_vertex(); - if (!vtx) - break; - - HepMC::GenVertex::particles_out_const_iterator iter; - for (iter = vtx->particles_out_const_begin(); iter != vtx->particles_out_const_end(); ++iter) - if ((*iter)->pdg_id() == currentId) - break; - - if (iter == vtx->particles_out_const_end()) - break; - - q = *iter; - if (q->status() == 3 || ((status == 120 || status == 123 || status == 124) && orig > 124)) - return 4; - } - } - - int nesting = 0; - for (;;) { - if ((status >= 120 && status <= 122) || status == 3) { - // avoid flagging status 3 if there is a - // better status 3 candidate upstream - if (externalPartons) - return ((orig >= 121 && orig <= 124) || orig == 3) ? 3 : 4; - else - return (nesting || (status != 3 && orig <= 124)) ? 3 : 4; - } - - // check whether we are leaving the hard process - // including heavy resonance decays - if (!(status == 4 || status == 123 || status == 124 || status == 155 || status == 156 || status == 160 || - (status >= 195 && status <= 197))) - break; - - const HepMC::GenVertex *vtx = p->production_vertex(); - if (!vtx || !vtx->particles_in_size()) - break; - - p = *vtx->particles_in_const_begin(); - status = p->status(); - - int newId = p->pdg_id(); - - if (!newId) - break; - - // nesting increases if we move to the next-best mother - if (newId != currentId) { - if (++nesting > 1 && externalPartons) - break; - currentId = newId; - } - } - - return 2; -} - -void Herwig6Hadronizer::pythiaStatusCodes() { - for (HepMC::GenEvent::particle_iterator iter = event()->particles_begin(); iter != event()->particles_end(); iter++) - (*iter)->set_status(pythiaStatusCode(*iter)); - - for (HepMC::GenEvent::particle_iterator iter = event()->particles_begin(); iter != event()->particles_end(); iter++) - if ((*iter)->status() == 4) - (*iter)->set_status(2); -} - -#include "GeneratorInterface/ExternalDecays/interface/ExternalDecayDriver.h" - -typedef edm::GeneratorFilter Herwig6GeneratorFilter; -DEFINE_FWK_MODULE(Herwig6GeneratorFilter); - -typedef edm::HadronizerFilter Herwig6HadronizerFilter; -DEFINE_FWK_MODULE(Herwig6HadronizerFilter); diff --git a/GeneratorInterface/Herwig6Interface/plugins/cms_hwwarn.F b/GeneratorInterface/Herwig6Interface/plugins/cms_hwwarn.F deleted file mode 100644 index 1b865f352040c..0000000000000 --- a/GeneratorInterface/Herwig6Interface/plugins/cms_hwwarn.F +++ /dev/null @@ -1,92 +0,0 @@ -CDECK ID>, HWWARN. -*CMZ :- -26/04/91 10.18.58 by Bryan Webber -*-- Author : Bryan Webber -C -C -C---------------------------------------------------------------------- -C modified by Fabian Stoeckli, March 2007 -C in order to catch run stop for CMSSW -C -C----------------------------------------------------------------------- - SUBROUTINE HWWARN(SUBRTN,ICODE) -C----------------------------------------------------------------------- -C DEALS WITH ERRORS DURING EXECUTION -C SUBRTN = NAME OF CALLING SUBROUTINE -C ICODE = ERROR CODE: - -1 NONFATAL, KILL EVENT & PRINT NOTHING -C 0- 49 NONFATAL, PRINT WARNING & CONTINUE -C 50- 99 NONFATAL, PRINT WARNING & JUMP -C 100-199 NONFATAL, DUMP & KILL EVENT -C 200-299 FATAL, TERMINATE RUN -C 300-399 FATAL, DUMP EVENT & TERMINATE RUN -C 400-499 FATAL, DUMP EVENT & STOP DEAD -C 500- FATAL, STOP DEAD WITH NO DUMP -C----------------------------------------------------------------------- - IMPLICIT NONE - DOUBLE PRECISION ZERO,ONE,TWO,THREE,FOUR,HALF - PARAMETER (ZERO =0.D0, ONE =1.D0, TWO =2.D0, - & THREE=3.D0, FOUR=4.D0, HALF=0.5D0) - -C - INTEGER NMXHEP,IERROR,NEVHEP,NHEP,ISTHEP,IDHEP,JMOHEP,JDAHEP,IDHW, - & ISTAT,LWEVT,MAXER,MAXPR,NRN,NUMER,NUMERU,NWGTS - - DOUBLE PRECISION PHEP,VHEP,AVWGT,EVWGT,GAMWT,TLOUT,WBIGST,WGTMAX, - & WGTSUM,WSQSUM - - LOGICAL NOWGT,GENSOF - - PARAMETER (NMXHEP=4000) - COMMON/HEPEVT/NEVHEP,NHEP,ISTHEP(NMXHEP),IDHEP(NMXHEP), - & JMOHEP(2,NMXHEP),JDAHEP(2,NMXHEP),PHEP(5,NMXHEP),VHEP(4,NMXHEP) - - COMMON/HWEVNT/AVWGT,EVWGT,GAMWT,TLOUT,WBIGST,WGTMAX,WGTSUM,WSQSUM, - & IDHW(NMXHEP),IERROR,ISTAT,LWEVT,MAXER,MAXPR,NOWGT,NRN(2),NUMER, - & NUMERU,NWGTS,GENSOF - - INTEGER ICODE - CHARACTER*6 SUBRTN - - IF (ICODE.GE.0) WRITE (6,10) SUBRTN,ICODE - 10 FORMAT(/' HWWARN CALLED FROM SUBPROGRAM ',A6,': CODE =',I4) - IF (ICODE.LT.0) THEN - IERROR=ICODE - RETURN - ELSEIF (ICODE.LT.100) THEN - WRITE (6,20) NEVHEP,NRN,EVWGT - 20 FORMAT(' EVENT',I8,': SEEDS =',I11,' &',I11, - &' WEIGHT =',E11.4/' EVENT SURVIVES. EXECUTION CONTINUES') - IF (ICODE.GT.49) RETURN - ELSEIF (ICODE.LT.200) THEN - WRITE (6,30) NEVHEP,NRN,EVWGT - 30 FORMAT(' EVENT',I8,': SEEDS =',I11,' &',I11, - &' WEIGHT =',E11.4/' EVENT KILLED. EXECUTION CONTINUES') - IERROR=ICODE - RETURN - ELSEIF (ICODE.LT.300) THEN - WRITE (6,40) - 40 FORMAT(' EVENT SURVIVES. RUN ENDS GRACEFULLY') - CALL HWEFIN - CALL HWAEND - CALL cmsending(ICODE) - ELSEIF (ICODE.LT.400) THEN - WRITE (6,50) - 50 FORMAT(' EVENT KILLED: DUMP FOLLOWS. RUN ENDS GRACEFULLY') - IERROR=ICODE - CALL HWUEPR - CALL HWUBPR - CALL HWEFIN - CALL HWAEND - CALL cmsending(ICODE) - ELSEIF (ICODE.LT.500) THEN - WRITE (6,60) - 60 FORMAT(' EVENT KILLED: DUMP FOLLOWS. RUN STOPS DEAD') - IERROR=ICODE - CALL HWUEPR - CALL HWUBPR - CALL cmsending(ICODE) - ELSE - WRITE (6,70) - 70 FORMAT(' RUN CANNOT CONTINUE') - CALL cmsending(ICODE) - ENDIF - END diff --git a/GeneratorInterface/Herwig6Interface/plugins/hwmsct_dummy.F b/GeneratorInterface/Herwig6Interface/plugins/hwmsct_dummy.F deleted file mode 100644 index 86c6cd4ae27e2..0000000000000 --- a/GeneratorInterface/Herwig6Interface/plugins/hwmsct_dummy.F +++ /dev/null @@ -1,27 +0,0 @@ -CCC ADDED BY FABIAN STOECKLI -CCC CAUSE C++ DOESN'T LIKE LOGICAL !!!! - - - DOUBLE PRECISION FUNCTION HWMSCT_DUMMY(KERNTRR) - - DOUBLE PRECISION ABORE, KERNTRR - LOGICAL DOWORK - EXTERNAL HWMSCT - - CALL HWMSCT(DOWORK) - - ABORE=0.0d0 - - IF(DOWORK) THEN - ABORE = 1.0d0 - ELSE - ABORE = 0.0d0 - ENDIF - - -C write(*,*) ABORE, DOWORK - - HWMSCT_DUMMY = ABORE - - RETURN - END diff --git a/GeneratorInterface/Herwig6Interface/plugins/hwudat.F b/GeneratorInterface/Herwig6Interface/plugins/hwudat.F deleted file mode 100644 index 982d6fc51f3a6..0000000000000 --- a/GeneratorInterface/Herwig6Interface/plugins/hwudat.F +++ /dev/null @@ -1 +0,0 @@ -#include "GeneratorInterface/Herwig6Interface/interface/hwudat.f" diff --git a/GeneratorInterface/Herwig6Interface/plugins/pathhelper.F b/GeneratorInterface/Herwig6Interface/plugins/pathhelper.F deleted file mode 100644 index eef17ced2d1b0..0000000000000 --- a/GeneratorInterface/Herwig6Interface/plugins/pathhelper.F +++ /dev/null @@ -1,35 +0,0 @@ - subroutine mysetPDFpath(pathname) - implicit real*8 (A-H,O-Z) - integer noemax,nopmax,npfmax,nofmax,linemax,nmxset - parameter (noemax=1000,nopmax=40,npfmax=10,nofmax=10,linemax=20) -c nmxset is the max number of sets that can be initialised at one time ---- added V5 - parameter (nmxset=3) - character*232 pathname - character*232 lhapath - common/LHAPDFC/lhapath - character*20 lhaparm(20) - real*8 lhavalue(20) - common/LHACONTROL/lhaparm,lhavalue - - lhaparm(20) = 'LHAPATH' - do j=1,lnblnk(lhapath) - lhapath(j:j)='' - enddo - lhapath = pathname - - return - end - - - subroutine setherwpdf() - CHARACTER*20 - & AUTPDF - CHARACTER*4 - & BDECAY - COMMON/HWPRCH/AUTPDF(2),BDECAY - - AUTPDF(1) = 'HWLHAPDF' - AUTPDF(2) = 'HWLHAPDF' - - return - end diff --git a/GeneratorInterface/Herwig6Interface/src/Herwig6Instance.cc b/GeneratorInterface/Herwig6Interface/src/Herwig6Instance.cc deleted file mode 100644 index b4f2e1268ecf1..0000000000000 --- a/GeneratorInterface/Herwig6Interface/src/Herwig6Instance.cc +++ /dev/null @@ -1,290 +0,0 @@ -#include -#include -#include -#include -#include -#include -#include - -#ifdef _POSIX_C_SOURCE -#include -#include -#include -#endif - -#include - -#include - -#include "FWCore/ParameterSet/interface/FileInPath.h" -#include "FWCore/Utilities/interface/Exception.h" -#include "FWCore/MessageLogger/interface/MessageLogger.h" - -#include "GeneratorInterface/Herwig6Interface/interface/herwig.h" -#include "GeneratorInterface/Herwig6Interface/interface/Herwig6Instance.h" - -#include "params.inc" - -extern "C" void jminit_(); -__attribute__((visibility("hidden"))) void dummy() { - int dummyInt = 0; - jminit_(); - jimmin_(); - jminit_(); - hwmsct_(&dummyInt); - jmefin_(); -} - -// Added for reading in the paremeter files (orig. L. Sonnenschein) -extern "C" void lunread_(const char filename[], const int length); - -using namespace gen; - -// implementation for the Fortran callbacks from Herwig - -// this gets a random number from the currently running instance -// so, if the have separate instances for let's say decayers based on -// Herwig than the Herwig pp collision instance, we get independent -// random numbers. Also true for FastSim, since FastSim uses its own -// random numbers. This means FastSim needs take a Herwig6Instance -// instance of its own instead of calling into Herwig directly. -double gen::hwrgen_(int *idummy) { - Herwig6Instance *instance = FortranInstance::getInstance(); - assert(instance != nullptr); - assert(instance->randomEngine != nullptr); - return instance->randomEngine->flat(); -} - -void gen::cms_hwwarn_(char fn[6], int *code, int *exit) { - std::string function(fn, 6); - *exit = FortranInstance::getInstance()->hwwarn(function, *code); -} - -extern "C" { -void hwaend_() {} - -void cmsending_(int *ecode) { - throw cms::Exception("Herwig6Error") << "Herwig6 stopped run with error code " << *ecode << "." << std::endl; -} -} - -struct gen::TimeoutHolder { - sigjmp_buf buf; -}; - -// Herwig6Instance methods - -Herwig6Instance::Herwig6Instance() : randomEngine(nullptr), timeoutPrivate() {} - -Herwig6Instance::~Herwig6Instance() {} - -// timeout tool - -#ifdef _POSIX_C_SOURCE -// some deep POSIX hackery to catch HERWIG sometimes (O(10k events) with -// complicated topologies) getting caught in and endless loop :-( - -void Herwig6Instance::_timeout_sighandler(int signr) { - Herwig6Instance *instance = FortranInstance::getInstance(); - assert(instance != nullptr); - assert(instance->timeoutPrivate); - siglongjmp(instance->timeoutPrivate->buf, 1); -} - -bool Herwig6Instance::timeout(unsigned int secs, void (*fn)()) { - if (timeoutPrivate) - throw cms::Exception("ReentrancyProblem") << "Herwig6Instance::timeout() called recursively." << std::endl; - struct sigaction saOld; - std::memset(&saOld, 0, sizeof saOld); - - struct itimerval itv; - timerclear(&itv.it_value); - timerclear(&itv.it_interval); - itv.it_value.tv_sec = 0; - itv.it_interval.tv_sec = 0; - setitimer(ITIMER_VIRTUAL, &itv, nullptr); - - sigset_t ss; - sigemptyset(&ss); - sigaddset(&ss, SIGVTALRM); - - sigprocmask(SIG_UNBLOCK, &ss, nullptr); - sigprocmask(SIG_BLOCK, &ss, nullptr); - - timeoutPrivate = std::make_unique(); - if (sigsetjmp(timeoutPrivate->buf, 1)) { - timeoutPrivate.reset(); - - itv.it_value.tv_sec = 0; - itv.it_interval.tv_sec = 0; - setitimer(ITIMER_VIRTUAL, &itv, nullptr); - sigprocmask(SIG_UNBLOCK, &ss, nullptr); - return true; - } - - itv.it_value.tv_sec = secs; - itv.it_interval.tv_sec = secs; - setitimer(ITIMER_VIRTUAL, &itv, nullptr); - - struct sigaction sa; - std::memset(&sa, 0, sizeof sa); - sa.sa_handler = &Herwig6Instance::_timeout_sighandler; - sa.sa_flags = SA_ONESHOT; - sigemptyset(&sa.sa_mask); - - sigaction(SIGVTALRM, &sa, &saOld); - sigprocmask(SIG_UNBLOCK, &ss, nullptr); - - try { - fn(); - } catch (...) { - timeoutPrivate.reset(); - - itv.it_value.tv_sec = 0; - itv.it_interval.tv_sec = 0; - setitimer(ITIMER_VIRTUAL, &itv, nullptr); - - sigaction(SIGVTALRM, &saOld, nullptr); - - throw; - } - - timeoutPrivate.reset(); - - itv.it_value.tv_sec = 0; - itv.it_interval.tv_sec = 0; - setitimer(ITIMER_VIRTUAL, &itv, nullptr); - - sigaction(SIGVTALRM, &saOld, nullptr); - - return false; -} -#else -bool Herwig6Instance::timeout(unsigned int secs, void (*fn)()) { - fn(); - return false; -} -#endif - -bool Herwig6Instance::hwwarn(const std::string &fn, int code) { return false; } - -// regular Herwig6Instance methods - -bool Herwig6Instance::give(const std::string &line) { - typedef std::istringstream::traits_type traits; - - const char *p = line.c_str(), *q; - p += std::strspn(p, " \t\r\n"); - - for (q = p; std::isalnum(*q); q++) - ; - std::string name(p, q - p); - - const ConfigParam *param; - for (param = configParams; param->name; param++) - if (name == param->name) - break; - if (!param->name) - return false; - - p = q + std::strspn(q, " \t\r\n"); - - std::size_t pos = 0; - std::size_t mult = 1; - for (unsigned int i = 0; i < 3; i++) { - if (!param->dim[i].size) - break; - - if (*p++ != (i ? ',' : '(')) - return false; - - p += std::strspn(p, " \t\r\n"); - - for (q = p; std::isdigit(*q); q++) - ; - std::istringstream ss(std::string(p, q - p)); - std::size_t index; - ss >> index; - if (ss.bad() || ss.peek() != traits::eof()) - return false; - - if (index < param->dim[i].offset) - return false; - index -= param->dim[i].offset; - if (index >= param->dim[i].size) - return false; - - p = q + std::strspn(q, " \t\r\n"); - - pos += mult * index; - mult *= param->dim[i].size; - } - - if (param->dim[0].size) { - if (*p++ != ')') - return false; - p += std::strspn(p, " \t\r\n"); - } - - if (*p++ != '=') - return false; - p += std::strspn(p, " \t\r\n"); - - for (q = p; *q && (std::isalnum(*q) || std::strchr(".-+", *q)); q++) - ; - std::istringstream ss(std::string(p, q - p)); - - p = q + std::strspn(q, " \t\r\n"); - if (*p && *p != '!') - return false; - - switch (param->type) { - case kInt: { - int value; - ss >> value; - if (ss.bad() || ss.peek() != traits::eof()) - return false; - - ((int *)param->ptr)[pos] = value; - break; - } - case kDouble: { - double value; - ss >> value; - if (ss.bad() || ss.peek() != traits::eof()) - return false; - - ((double *)param->ptr)[pos] = value; - break; - } - case kLogical: { - std::string value_; - ss >> value_; - if (ss.bad() || ss.peek() != traits::eof()) - return false; - - for (std::string::iterator iter = value_.begin(); iter != value_.end(); ++iter) - *iter = std::tolower(*iter); - bool value; - if (value_ == "yes" || value_ == "true" || value_ == "1") - value = true; - else if (value_ == "no" || value_ == "false" || value_ == "0") - value = false; - else - return false; - - ((int *)param->ptr)[pos] = value; - break; - } - } - - return true; -} - -void Herwig6Instance::openParticleSpecFile(const std::string fileName) { - edm::FileInPath fileAndPath(fileName); - // WARING : This will call HWWARN if file does not exist. - lunread_(fileAndPath.fullPath().c_str(), strlen(fileAndPath.fullPath().c_str())); - - return; -} diff --git a/GeneratorInterface/Herwig6Interface/src/cms_hwwarn.F b/GeneratorInterface/Herwig6Interface/src/cms_hwwarn.F deleted file mode 100644 index f6ce1924153d4..0000000000000 --- a/GeneratorInterface/Herwig6Interface/src/cms_hwwarn.F +++ /dev/null @@ -1,140 +0,0 @@ -CDECK ID>, HWWARN. -*CMZ :- -26/04/91 10.18.58 by Bryan Webber -*-- Author : Bryan Webber -C -C -C---------------------------------------------------------------------- -C modified by Fabian Stoeckli, March 2007 -C in order to catch run stop for CMSSW -C -C----------------------------------------------------------------------- - SUBROUTINE HWWARN(SUBRTN,ICODE) -C----------------------------------------------------------------------- -C DEALS WITH ERRORS DURING EXECUTION -C SUBRTN = NAME OF CALLING SUBROUTINE -C ICODE = ERROR CODE: - -1 NONFATAL, KILL EVENT & PRINT NOTHING -C 0- 49 NONFATAL, PRINT WARNING & CONTINUE -C 50- 99 NONFATAL, PRINT WARNING & JUMP -C 100-199 NONFATAL, DUMP & KILL EVENT -C 200-299 FATAL, TERMINATE RUN -C 300-399 FATAL, DUMP EVENT & TERMINATE RUN -C 400-499 FATAL, DUMP EVENT & STOP DEAD -C 500- FATAL, STOP DEAD WITH NO DUMP -C----------------------------------------------------------------------- - IMPLICIT NONE - DOUBLE PRECISION ZERO,ONE,TWO,THREE,FOUR,HALF - PARAMETER (ZERO =0.D0, ONE =1.D0, TWO =2.D0, - & THREE=3.D0, FOUR=4.D0, HALF=0.5D0) - -C - INTEGER NMXHEP,IERROR,NEVHEP,NHEP,ISTHEP,IDHEP,JMOHEP,JDAHEP,IDHW, - & ISTAT,LWEVT,MAXER,MAXPR,NRN,NUMER,NUMERU,NWGTS - - DOUBLE PRECISION PHEP,VHEP,AVWGT,EVWGT,GAMWT,TLOUT,WBIGST,WGTMAX, - & WGTSUM,WSQSUM - - LOGICAL NOWGT,GENSOF - - PARAMETER (NMXHEP=4000) - COMMON/HEPEVT/NEVHEP,NHEP,ISTHEP(NMXHEP),IDHEP(NMXHEP), - & JMOHEP(2,NMXHEP),JDAHEP(2,NMXHEP),PHEP(5,NMXHEP),VHEP(4,NMXHEP) - - COMMON/HWEVNT/AVWGT,EVWGT,GAMWT,TLOUT,WBIGST,WGTMAX,WGTSUM,WSQSUM, - & IDHW(NMXHEP),IERROR,ISTAT,LWEVT,MAXER,MAXPR,NOWGT,NRN(2),NUMER, - & NUMERU,NWGTS,GENSOF - - INTEGER ICODE - CHARACTER*6 SUBRTN - - LOGICAL EXIT - CALL CMS_HWWARN(SUBRTN,ICODE,EXIT) - IF (EXIT) RETURN - - IF (ICODE.GE.0) WRITE (6,10) SUBRTN,ICODE - 10 FORMAT(/' HWWARN CALLED FROM SUBPROGRAM ',A6,': CODE =',I4) - IF (ICODE.LT.0) THEN - IERROR=ICODE - RETURN - ELSEIF (ICODE.LT.100) THEN - WRITE (6,20) NEVHEP,NRN,EVWGT - 20 FORMAT(' EVENT',I8,': SEEDS =',I11,' &',I11, - &' WEIGHT =',E11.4/' EVENT SURVIVES. EXECUTION CONTINUES') - IF (ICODE.GT.49) RETURN - ELSEIF (ICODE.LT.200) THEN - WRITE (6,30) NEVHEP,NRN,EVWGT - 30 FORMAT(' EVENT',I8,': SEEDS =',I11,' &',I11, - &' WEIGHT =',E11.4/' EVENT KILLED. EXECUTION CONTINUES') - IERROR=ICODE - RETURN - ELSEIF (ICODE.LT.300) THEN - WRITE (6,40) - 40 FORMAT(' EVENT SURVIVES. RUN ENDS GRACEFULLY') - CALL HWEFIN - CALL HWAEND - CALL cmsending(ICODE) - ELSEIF (ICODE.LT.400) THEN - WRITE (6,50) - 50 FORMAT(' EVENT KILLED: DUMP FOLLOWS. RUN ENDS GRACEFULLY') - IERROR=ICODE - CALL HWUEPR - CALL HWUBPR - CALL HWEFIN - CALL HWAEND - CALL cmsending(ICODE) - ELSEIF (ICODE.LT.500) THEN - WRITE (6,60) - 60 FORMAT(' EVENT KILLED: DUMP FOLLOWS. RUN STOPS DEAD') - IERROR=ICODE - CALL HWUEPR - CALL HWUBPR - CALL cmsending(ICODE) - ELSE - WRITE (6,70) - 70 FORMAT(' RUN CANNOT CONTINUE') - CALL cmsending(ICODE) - ENDIF - END - -C------------ -C -C On 4/2/2012 - Modification by J.V.Yarba, FNAL: -C Makeup for old-stryle fortran tauola routines that are called by Herwig6 core code -C -C------------ - - SUBROUTINE INIETC(jakk1,jakk2,itd,ifpho) - COMMON / IDFC / IDFF - COMMON / TAURAD / XK0DEC,ITDKRC - DOUBLE PRECISION XK0DEC - COMMON / JAKI / JAK1,JAK2,JAKP,JAKM,KTOM - COMMON /PHOACT/ IFPHOT - SAVE -C KTO=1 will denote tau+, thus :: IDFF=-15 - IDFF=-15 -C XK0 for tau decays. - XK0DEC=0.01 -C radiative correction switch in tau --> e (mu) decays ! - ITDKRC=itd -C switches of tau+ tau- decay modes !! - JAK1=jakk1 - JAK2=jakk2 -C photos activation switch -ccc --> Note by J.V.Yarba: this is no longer relevant with tauola++ -ccc --> but we keep it in for historical reasons - IFPHOT=IFPHO - end - - SUBROUTINE INIPHX(XK00) -* ---------------------------------------------------------------------- -* INITIALISATION OF PARAMETERS -* USED IN QED and/or GSW ROUTINES -* ---------------------------------------------------------------------- - COMMON / QEDPRM /ALFINV,ALFPI,XK0 - REAL*8 ALFINV,ALFPI,XK0 - REAL*8 PI8,XK00 -* - PI8 = 4.D0*DATAN(1.D0) - ALFINV = 137.03604D0 - ALFPI = 1D0/(ALFINV*PI8) - XK0=XK00 - END diff --git a/GeneratorInterface/Herwig6Interface/src/fastjetfortran_madfks.cc b/GeneratorInterface/Herwig6Interface/src/fastjetfortran_madfks.cc deleted file mode 100644 index 3f7cc688beccb..0000000000000 --- a/GeneratorInterface/Herwig6Interface/src/fastjetfortran_madfks.cc +++ /dev/null @@ -1,462 +0,0 @@ -//STARTHEADER -// -// Copyright (c) 2005-2011, Matteo Cacciari, Gavin P. Salam and Gregory Soyez -// -//---------------------------------------------------------------------- -// This file is part of FastJet. -// -// FastJet 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 of the License, or -// (at your option) any later version. -// -// The algorithms that underlie FastJet have required considerable -// development and are described in hep-ph/0512210. If you use -// FastJet as part of work towards a scientific publication, please -// include a citation to the FastJet paper. -// -// FastJet 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 FastJet. If not, see . -//---------------------------------------------------------------------- -//ENDHEADER - -#include -#include - -#include "fastjet/ClusterSequence.hh" -#include "fastjet/ClusterSequenceArea.hh" -#include "fastjet/Selector.hh" -#include "fastjet/SISConePlugin.hh" - -using namespace std; -using namespace fastjet; - -FASTJET_BEGIN_NAMESPACE // defined in fastjet/internal/base.hh - - /// a namespace for the fortran-wrapper which contains commonly-used - /// structures and means to transfer fortran <-> C++ - namespace fwrapper { - vector input_particles, jets; - unique_ptr plugin; - JetDefinition jet_def; - unique_ptr cs; - - /// helper routine to transfer fortran input particles into - void transfer_input_particles(const double *p, const int &npart) { - input_particles.resize(0); - input_particles.reserve(npart); - for (int i = 0; i < npart; i++) { - valarray mom(4); // mom[0..3] - for (int j = 0; j <= 3; j++) { - mom[j] = *(p++); - // RF-MZ: reorder the arguments because in madfks energy goes first; in fastjet last. - // mom[(j+3) % 4] = *(p++); - } - PseudoJet psjet(mom); - psjet.set_user_index(i); - input_particles.push_back(psjet); - } - } - - /// helper routine to help transfer jets -> f77jets[4*ijet+0..3] - void transfer_jets(double *f77jets, int &njets) { - njets = jets.size(); - for (int i = 0; i < njets; i++) { - for (int j = 0; j <= 3; j++) { - *f77jets = jets[i][j]; - // RF-MZ: reorder the arguments because in madfks energy goes first; in fastjet last. - //*f77jets = jets[i][(j+3) % 4]; - f77jets++; - } - } - } - - /// helper routine packaging the transfers, the clustering - /// and the extraction of the jets - void transfer_cluster_transfer(const double *p, - const int &npart, - const JetDefinition &jet_def, - const double &ptmin, - double *f77jets, - int &njets, - int *whichjet, - const double &ghost_maxrap = 0.0, - const int &nrepeat = 0, - const double &ghost_area = 0.0) { - // transfer p[4*ipart+0..3] -> input_particles[i] - transfer_input_particles(p, npart); - - // perform the clustering - if (ghost_maxrap == 0.0) { - // cluster without areas - cs = std::make_unique(input_particles, jet_def); - } else { - // cluster with areas - GhostedAreaSpec area_spec(ghost_maxrap, nrepeat, ghost_area); - AreaDefinition area_def(active_area, area_spec); - cs = std::make_unique(input_particles, jet_def, area_def); - } - // extract jets (pt-ordered) - jets = sorted_by_pt(cs->inclusive_jets(ptmin)); - - // transfer jets -> f77jets[4*ijet+0..3] - transfer_jets(f77jets, njets); - - // Determine which parton/particle ended-up in which jet - // set all jet entrie to zero first - for (int ii = 0; ii < npart; ++ii) - whichjet[ii] = 0; - - // Loop over jets and find constituents - for (int kk = 0; kk < njets; ++kk) { - vector constit = cs->constituents(jets[kk]); - for (unsigned int ll = 0; ll < constit.size(); ++ll) - whichjet[constit[ll].user_index()] = kk + 1; - } - } -} -FASTJET_END_NAMESPACE - -using namespace fastjet::fwrapper; - -extern "C" { - -/// f77 interface to SISCone (via fastjet), as defined in arXiv:0704.0292 -/// [see below for the interface to kt, Cam/Aachen & kt] -// -// Corresponds to the following Fortran subroutine -// interface structure: -// -// SUBROUTINE FASTJETSISCONE(P,NPART,R,F,F77JETS,NJETS,WHICHJET) -// DOUBLE PRECISION P(4,*), R, F, F77JETS(4,*) -// INTEGER NPART, NJETS, WHICHJET(*) -// -// where on input -// -// P the input particle 4-momenta -// NPART the number of input momenta -// R the radius parameter -// F the overlap threshold -// -// and on output -// -// F77JETS the output jet momenta (whose second dim should be >= NPART) -// sorted in order of decreasing p_t. -// NJETS the number of output jets -// WHICHJET(i) the jet of parton/particle 'i' -// -// NOTE: if you are interfacing fastjet to Pythia 6, Pythia stores its -// momenta as a matrix of the form P(4000,5), whereas this fortran -// interface to fastjet expects them as P(4,NPART), i.e. you must take -// the transpose of the Pythia array and drop the fifth component -// (particle mass). -// -void fastjetsiscone_( - const double *p, const int &npart, const double &R, const double &f, double *f77jets, int &njets, int *whichjet) { - // prepare jet def - plugin = std::make_unique(R, f); - jet_def = plugin.get(); - - // do everything - // transfer_cluster_transfer(p,npart,jet_def,f77jets,njets,whichjet); -} - -/// f77 interface to SISCone (via fastjet), as defined in arXiv:0704.0292 -/// [see below for the interface to kt, Cam/Aachen & kt] -/// Also calculates the active area of the jets, as defined in -/// arXiv.org:0802.1188 -// -// Corresponds to the following Fortran subroutine -// interface structure: -// -// SUBROUTINE FASTJETSISCONEWITHAREA(P,NPART,R,F,GHMAXRAP,NREP,GHAREA,F77JETS,NJETS,WHICHJET) -// DOUBLE PRECISION P(4,*), R, F, F77JETS(4,*), GHMAXRAP, GHAREA -// INTEGER NPART, NJETS, NREP, WHICHJET(*) -// -// where on input -// -// P the input particle 4-momenta -// NPART the number of input momenta -// R the radius parameter -// F the overlap threshold -// GHMAXRAP the maximum (abs) rapidity covered by ghosts (FastJet default 6.0) -// NREP the number of repetitions used to evaluate the area (FastJet default 1) -// GHAREA the area of a single ghost (FastJet default 0.01) -// -// and on output -// -// F77JETS the output jet momenta (whose second dim should be >= NPART) -// sorted in order of decreasing p_t. -// NJETS the number of output jets -// WHICHJET(i) the jet of parton/particle 'i' -// -// NOTE: if you are interfacing fastjet to Pythia 6, Pythia stores its -// momenta as a matrix of the form P(4000,5), whereas this fortran -// interface to fastjet expects them as P(4,NPART), i.e. you must take -// the transpose of the Pythia array and drop the fifth component -// (particle mass). -// -void fastjetsisconewitharea_(const double *p, - const int &npart, - const double &R, - const double &f, - const double &ghost_rapmax, - const int &nrepeat, - const double &ghost_area, - double *f77jets, - int &njets, - int *whichjet) { - // prepare jet def - plugin = std::make_unique(R, f); - jet_def = plugin.get(); - - // do everything - // transfer_cluster_transfer(p,npart,jet_def,f77jets,njets,whichjet,ghost_rapmax,nrepeat,ghost_area); -} - -/// f77 interface to the pp generalised-kt (sequential recombination) -/// algorithms, as defined in arXiv.org:0802.1189, which includes -/// kt, Cambridge/Aachen and anti-kt as special cases. -// -// Corresponds to the following Fortran subroutine -// interface structure: -// -// SUBROUTINE FASTJETPPGENKT(P,NPART,R,PALG,F77JETS,NJETS,WHICHJET) -// DOUBLE PRECISION P(4,*), R, PALG, F, F77JETS(4,*) -// INTEGER NPART, NJETS, WHICHJET(*) -// -// where on input -// -// P the input particle 4-momenta -// NPART the number of input momenta -// R the radius parameter -// PALG the power for the generalised kt alg -// (1.0=kt, 0.0=C/A, -1.0 = anti-kt) -// -// and on output -// -// F77JETS the output jet momenta (whose second dim should be >= NPART) -// sorted in order of decreasing p_t. -// NJETS the number of output jets -// WHICHJET(i) the jet of parton/particle 'i' -// -// For the values of PALG that correspond to "standard" cases (1.0=kt, -// 0.0=C/A, -1.0 = anti-kt) this routine actually calls the direct -// implementation of those algorithms, whereas for other values of -// PALG it calls the generalised kt implementation. -// -// NOTE: if you are interfacing fastjet to Pythia 6, Pythia stores its -// momenta as a matrix of the form P(4000,5), whereas this fortran -// interface to fastjet expects them as P(4,NPART), i.e. you must take -// the transpose of the Pythia array and drop the fifth component -// (particle mass). -// -void fastjetppgenkt_(const double *p, - const int &npart, - const double &R, - const double &ptjetmin, - const double &palg, - double *f77jets, - int &njets, - int *whichjet) { - // prepare jet def - if (palg == 1.0) { - jet_def = JetDefinition(kt_algorithm, R); - } else if (palg == 0.0) { - jet_def = JetDefinition(cambridge_algorithm, R); - } else if (palg == -1.0) { - jet_def = JetDefinition(antikt_algorithm, R); - } else { - jet_def = JetDefinition(genkt_algorithm, R, palg); - } - - // do everything - transfer_cluster_transfer(p, npart, jet_def, ptjetmin, f77jets, njets, whichjet); -} - -/// f77 interface to the pp generalised-kt (sequential recombination) -/// algorithms, as defined in arXiv.org:0802.1189, which includes -/// kt, Cambridge/Aachen and anti-kt as special cases. -/// Also calculates the active area of the jets, as defined in -/// arXiv.org:0802.1188 -// -// Corresponds to the following Fortran subroutine -// interface structure: -// -// SUBROUTINE FASTJETPPGENKTWITHAREA(P,NPART,R,PALG,GHMAXRAP,NREP,GHAREA,F77JETS,NJETS,WHICHJET) -// DOUBLE PRECISION P(4,*), R, PALG, GHMAXRAP, GHAREA, F77JETS(4,*) -// INTEGER NPART, NREP, NJETS, WHICHJET(*) -// -// where on input -// -// P the input particle 4-momenta -// NPART the number of input momenta -// R the radius parameter -// PALG the power for the generalised kt alg -// (1.0=kt, 0.0=C/A, -1.0 = anti-kt) -// GHMAXRAP the maximum (abs) rapidity covered by ghosts (FastJet default 6.0) -// NREP the number of repetitions used to evaluate the area (FastJet default 1) -// GHAREA the area of a single ghost (FastJet default 0.01) -// -// and on output -// -// F77JETS the output jet momenta (whose second dim should be >= NPART) -// sorted in order of decreasing p_t. -// NJETS the number of output jets -// WHICHJET(i) the jet of parton/particle 'i' -// -// For the values of PALG that correspond to "standard" cases (1.0=kt, -// 0.0=C/A, -1.0 = anti-kt) this routine actually calls the direct -// implementation of those algorithms, whereas for other values of -// PALG it calls the generalised kt implementation. -// -// NOTE: if you are interfacing fastjet to Pythia 6, Pythia stores its -// momenta as a matrix of the form P(4000,5), whereas this fortran -// interface to fastjet expects them as P(4,NPART), i.e. you must take -// the transpose of the Pythia array and drop the fifth component -// (particle mass). -// -void fastjetppgenktwitharea_(const double *p, - const int &npart, - const double &R, - const double &palg, - const double &ghost_rapmax, - const int &nrepeat, - const double &ghost_area, - double *f77jets, - int &njets, - int *whichjet) { - // prepare jet def - if (palg == 1.0) { - jet_def = JetDefinition(kt_algorithm, R); - } else if (palg == 0.0) { - jet_def = JetDefinition(cambridge_algorithm, R); - } else if (palg == -1.0) { - jet_def = JetDefinition(antikt_algorithm, R); - } else { - jet_def = JetDefinition(genkt_algorithm, R, palg); - } - - // do everything - // transfer_cluster_transfer(p,npart,jet_def,f77jets,njets,whichjet,ghost_rapmax,nrepeat,ghost_area); -} - -/// f77 interface to provide access to the constituents of a jet found -/// in the jet clustering with one of the above routines. -/// -/// Given the index ijet of a jet (in the range 1...njets) obtained in -/// the last call to jet clustering, fill the array -/// constituent_indices, with nconstituents entries, with the indices -/// of the constituents that belong to that jet (which will be in the -/// range 1...npart) -// -// Corresponds to the following Fortran subroutine -// interface structure: -// -// SUBROUTINE FASTJETCONSTITUENTS(IJET,CONSTITUENT_INDICES,NCONSTITUENTS) -// INTEGER IJET -// INTEGER CONSTITUENT_INDICES(*) -// INTEGER nconstituents -// -void fastjetconstituents_(const int &ijet, int *constituent_indices, int &nconstituents) { - assert(cs.get() != nullptr); - assert(ijet > 0 && ijet <= int(jets.size())); - - vector constituents = cs->constituents(jets[ijet - 1]); - - nconstituents = constituents.size(); - for (int i = 0; i < nconstituents; i++) { - constituent_indices[i] = constituents[i].cluster_hist_index() + 1; - } -} - -/// f77 interface to provide access to the area of a jet found -/// in the jet clustering with one of the above "...witharea" routines. -/// -/// Given the index ijet of a jet (in the range 1...njets) obtained in -/// the last call to jet clustering, return its area. If the jets have -/// not been obtained with a "...witharea" soutine it returns 0. -// -// Corresponds to the following Fortran subroutine -// interface structure: -// -// FUNCTION FASTJETAREA(IJET) -// DOUBLE PRECISION FASTJETAREA -// INTEGER IJET -// -double fastjetarea_(const int &ijet) { - assert(ijet > 0 && ijet <= int(jets.size())); - const ClusterSequenceAreaBase *csab = dynamic_cast(cs.get()); - if (csab != nullptr) { - // we have areas and can use csab to access all the area-related info - return csab->area(jets[ijet - 1]); - } else { - return 0.; - // Error("No area information associated to this jet."); - } -} - -/// return the dmin corresponding to the recombination that went from -/// n+1 to n jets (sometimes known as d_{n n+1}). -// -// Corresponds to the following Fortran interface -// -// FUNCTION FASTJETDMERGE(N) -// DOUBLE PRECISION FASTJETDMERGE -// INTEGER N -// -double fastjetdmerge_(const int &n) { - assert(cs.get() != nullptr); - return cs->exclusive_dmerge(n); -} - -/// return the maximum of the dmin encountered during all recombinations -/// up to the one that led to an n-jet final state; identical to -/// exclusive_dmerge, except in cases where the dmin do not increase -/// monotonically. -// -// Corresponds to the following Fortran interface -// -// FUNCTION FASTJETDMERGEMAX(N) -// DOUBLE PRECISION FASTJETDMERGEMAX -// INTEGER N -// -double fastjetdmergemax_(const int &n) { - assert(cs.get() != nullptr); - return cs->exclusive_dmerge_max(n); -} - -/// return the background transverse momentum density per unit scalar -/// area rho, its fluctuation sigma, and the mean area of the jets used for the -/// background estimation in a given event, -/// as evaluated in the range [rapmin,rapmax] in rapidity and [phimin,phimax] in azimuth -// -// Corresponds to the following Fortran interface -// -// SUBROUTINE FASTJETGLOBALRHOANDSIGMA(RAPMIN,RAPMAX,PHIMIN,PHIMAX,RHO,SIGMA,MEANAREA) -// DOUBLE PRECISION RAPMIN,RAPMAX,PHIMIN,PHIMAX -// DOUBLE PRECISION RHO,SIGMA,MEANAREA -// -void fastjetglobalrhoandsigma_(const double &rapmin, - const double &rapmax, - const double &phimin, - const double &phimax, - double &rho, - double &sigma, - double &meanarea) { - const ClusterSequenceAreaBase *csab = dynamic_cast(cs.get()); - if (csab != nullptr) { - // we have areas and can use csab to access all the area-related info - Selector range = SelectorRapRange(rapmin, rapmax) && SelectorPhiRange(phimin, phimax); - bool use_area_4vector = false; - csab->get_median_rho_and_sigma(range, use_area_4vector, rho, sigma, meanarea); - } else { - Error("Clustering with area is necessary in order to be able to evaluate rho."); - } -} -} diff --git a/GeneratorInterface/Herwig6Interface/src/hwmatch.F b/GeneratorInterface/Herwig6Interface/src/hwmatch.F deleted file mode 100644 index b5684e132cdc9..0000000000000 --- a/GeneratorInterface/Herwig6Interface/src/hwmatch.F +++ /dev/null @@ -1,278 +0,0 @@ -C MLM-style matching for aMC@NLO showering in Herwig6 -C Original code from R.Frederix and S.Frixione -C Adapted for CMSSW interface by J.Bendavid -c Ported back to original Algorithm by -c K. Schweiger and M.A.Harrendorf -C---------------------------------------------------------------------- - SUBROUTINE HWDUMMY -C Force compiler to generate code for hwmatch - INTEGER DUMINT - call HWMATCH(DUMINT) - RETURN -C---------------------------------------------------------------------- - END -C---------------------------------------------------------------------- - SUBROUTINE HWHDECAY -c -c INCLUDE 'HERWIG65.INC' -c -c INTEGER NMAX,IHEP,IST,ID1 -c PARAMETER (NMAX=2000) -c -c DO 200 IHEP=1,NHEP -c IST=ISTHEP(IHEP) -c ID1=IDHEP(IHEP) -c IF(IST.GE.120 .or. IST.LE.125) THEN -c IF(ID1.EQ.25)THEN -c ISTHEP(IHEP) = 1 -c CALL HWDHIG(ZERO) -c ENDIF -c ENDIF -c 200 CONTINUE -c - RETURN -c - END -C---------------------------------------------------------------------- - SUBROUTINE HWMATCH(PASS) -C USER'S ROUTINE TO ANALYSE DATA FROM EVENT -C---------------------------------------------------------------------- - INCLUDE 'HERWIG65.INC' -c Variables specific to matching - INTEGER PASS - INTEGER NMAX - PARAMETER (NMAX=2000) - INTEGER NS,IHEP,ist,id,i,n_match,max_multiplicity_flag - INTEGER IHARD,NHARD,JMO1,JMO2 - DOUBLE PRECISION PS(4,NMAX),matching_scale - LOGICAL max_multiplicity,matched -c Other variables, used here for checks - -c - common/HWMATCHPRAM/n_match,max_multiplicity_flag,matching_scale -c - if (MAX_MULTIPLICITY_FLAG.GT.0) then - MAX_MULTIPLICITY = .true. - else - MAX_MULTIPLICITY = .false. - endif -c - IF (IERROR.NE.0) RETURN - NS=0 - IHARD=-1 - NHARD=0 - DO IHEP=1,min(NHEP,10) - IF(ISTHEP(IHEP).EQ.120)THEN - IHARD=IHEP - NHARD=NHARD+1 - ENDIF - ENDDO - IF( (IHARD.EQ.-1.OR.NHARD.NE.1).AND. - # IERROR.EQ.0) THEN - CALL HWUEPR - WRITE(*,*)IHARD,NHARD - CALL HWWARN('HWMATCH',501) - ENDIF - DO 100 IHEP=1,NHEP - IST=ISTHEP(IHEP) ! status code of the current particle - ID =IDHEP(IHEP) ! PDG-code of the current particle -c Keep QCD partons from primary shower. This already excludes radiation -c from particles that are decayed in Herwig, but not decays that have -c been included via MadSpin. - IF( IST.EQ.2 .AND. ( (ABS(ID).GE.1.AND.ABS(ID).LE.5) .OR. - $ ID.EQ.21 ) ) THEN - JMO1=JMOHEP(1,JMOHEP(1,IHEP)) - JMO2=JMOHEP(2,JMOHEP(1,IHEP)) - IF(ISTHEP(JMO1).GE.121.AND.ISTHEP(JMO1).LE.124.AND. - $ JMOHEP(1,JMO1).EQ.IHARD.AND.JMO2.EQ.IHARD)THEN - NS=NS+1 - IF (NS.GT.NMAX) STOP 'Too many particles!' - DO I=1,4 - PS(I,NS)=PHEP(I,IHEP) - ENDDO - ENDIF - ENDIF - 100 CONTINUE -c -c matching_scale: this is the \mu_Q of the paper -c matching_scale=50d0 -c n_match identified the i-parton sample of the paper: that's the number -c of partons AT THE BORN LEVEL in a given multiplicity -c set max_multiplicity=.true. if the current sample is that of largest -c multiplicity, and equal to .false. otherwise - call MLM_matching(ps,ns,matching_scale,n_match - & ,max_multiplicity, matched) -c -c - if (matched) then - pass = 1 - else - pass = 0 - endif -c - return -c -c From this point onwards, continue with your normal analysis -c - END - - - subroutine MLM_matching(p_shower,n_shower,matching_scale,n_match - & ,max_multiplicity, matched) - implicit none -C Hard event information: - INTEGER MAXNUP - PARAMETER (MAXNUP=500) - INTEGER NUP,IDPRUP,IDUP,ISTUP,MOTHUP,ICOLUP - DOUBLE PRECISION XWGTUP,SCALUP,AQEDUP,AQCDUP,PUP,VTIMUP,SPINUP - COMMON/HEPEUP/NUP,IDPRUP,XWGTUP,SCALUP,AQEDUP,AQCDUP, - & IDUP(MAXNUP),ISTUP(MAXNUP),MOTHUP(2,MAXNUP), - & ICOLUP(2,MAXNUP),PUP(5,MAXNUP),VTIMUP(MAXNUP), - & SPINUP(MAXNUP) - integer n_hard,i,j - double precision p_hard(4,MAXNUP) - INTEGER njet_hard,jet_hard(MAXNUP),n_match,n_shower,njet_shower - & ,jet_shower(n_shower) - DOUBLE PRECISION palg,rfj,sycut,pjet_hard(4,MAXNUP),matching_scale - & ,p_shower(4,n_shower),pjet_shower(4,n_shower),getdrv - logical matched,max_multiplicity,jet_shower_matched - double precision SHSCALE - common/cSHSCALE/SHSCALE - matched=.true. - palg=1d0 - sycut=matching_scale - rfj=1.0d0 - call fastjetppgenkt(p_shower,n_shower,rfj,sycut,palg,pjet_shower - & ,njet_shower,jet_shower) -c -c double precision firsteta -c firsteta = getpseudorap(pjet_shower(4,1),pjet_shower(1,1),pjet_shower(2,1),pjet_shower(3,1)) -c WRITE(*,*) njet_shower, pjet_shower(4,1), pjet_shower(1,1) -c WRITE(*,*) njet_shower, pjet_shower(2,1), pjet_shower(3,1) -c WRITE(*,*) njet_shower, sycut -c First check that the number of jets after showering is okay if the -c number of jets required in the matching - If (max_multiplicity) then - if (njet_shower.lt.n_match) then - matched=.false. - return - endif - else - if (njet_shower.ne.n_match) then - matched=.false. - return - endif - endif - n_hard=0 - do i=1,nup - if (ISTUP(i).eq.1.and.(abs(IDUP(i)).lt.6.or.IDUP(i).eq.21)) - & then -c Final state QCD parton - n_hard=n_hard+1 - do j=1,4 - p_hard(j,n_hard)=PUP(j,i) - enddo - endif - enddo - sycut=0d0 -c WRITE(*,*) n_hard - call fastjetppgenkt(p_hard,n_hard,rfj,sycut,palg,pjet_hard - & ,njet_hard,jet_hard) -c Check that the hardest jet after showering 'match' with the hardest -c jets before showering - do i=1,n_match - jet_shower_matched=.false. - do j=1,njet_hard - if (getdrv(pjet_shower(1,i),pjet_hard(1,j)).lt.1.5d0*rfj) - & then - jet_shower_matched=.true. - exit - endif - enddo - if (.not.jet_shower_matched) then - matched=.false. - return - exit - endif - enddo -c - return - end - - - function getpseudorap(en,ptx,pty,pl) - implicit none - real*8 getpseudorap,en,ptx,pty,pl,tiny,pt,eta,th - parameter (tiny=1.d-8) -c - pt=sqrt(ptx**2+pty**2) - if(pt.lt.tiny.and.abs(pl).lt.tiny)then - eta=sign(1.d0,pl)*1.d8 - else - th=atan2(pt,pl) - eta=-log(tan(th/2.d0)) - endif - getpseudorap=eta - return - end - - - function getdelphi(ptx1,pty1,ptx2,pty2) - implicit none - real*8 getdelphi,ptx1,pty1,ptx2,pty2,tiny,pt1,pt2,tmp - parameter (tiny=1.d-5) -c - pt1=sqrt(ptx1**2+pty1**2) - pt2=sqrt(ptx2**2+pty2**2) - if(pt1.ne.0.d0.and.pt2.ne.0.d0)then - tmp=ptx1*ptx2+pty1*pty2 - tmp=tmp/(pt1*pt2) - if(abs(tmp).gt.1.d0+tiny)then - write(*,*)'Cosine larger than 1' - stop - elseif(abs(tmp).ge.1.d0)then - tmp=sign(1.d0,tmp) - endif - tmp=acos(tmp) - else - tmp=1.d8 - endif - getdelphi=tmp - return - end - - - function getdr(en1,ptx1,pty1,pl1,en2,ptx2,pty2,pl2) - implicit none - real*8 getdr,en1,ptx1,pty1,pl1,en2,ptx2,pty2,pl2,deta,dphi, - # getpseudorap,getdelphi -c - deta=getpseudorap(en1,ptx1,pty1,pl1)- - # getpseudorap(en2,ptx2,pty2,pl2) - dphi=getdelphi(ptx1,pty1,ptx2,pty2) - getdr=sqrt(dphi**2+deta**2) - return - end - - - function getdrv(p1,p2) - implicit none - real*8 getdrv,p1(5),p2(5) - real*8 getdr -c - getdrv=getdr(p1(4),p1(1),p1(2),p1(3), - # p2(4),p2(1),p2(2),p2(3)) - return - end - - - FUNCTION PTCALC(P) - IMPLICIT NONE - DOUBLE PRECISION PTCALC,P(4),PTSQ - PTSQ=P(1)**2+P(2)**2 - IF (PTSQ.EQ.0D0) THEN - PTCALC=0D0 - ELSE - PTCALC=SQRT(PTSQ) - ENDIF - END diff --git a/GeneratorInterface/Herwig6Interface/src/hwudat.F b/GeneratorInterface/Herwig6Interface/src/hwudat.F deleted file mode 100644 index 982d6fc51f3a6..0000000000000 --- a/GeneratorInterface/Herwig6Interface/src/hwudat.F +++ /dev/null @@ -1 +0,0 @@ -#include "GeneratorInterface/Herwig6Interface/interface/hwudat.f" diff --git a/GeneratorInterface/Herwig6Interface/src/lunread.F b/GeneratorInterface/Herwig6Interface/src/lunread.F deleted file mode 100644 index 95c880fe82eed..0000000000000 --- a/GeneratorInterface/Herwig6Interface/src/lunread.F +++ /dev/null @@ -1,31 +0,0 @@ - SUBROUTINE LUNREAD(filename) - - - IMPLICIT NONE - - CHARACTER*(*) filename - - DOUBLE PRECISION VIPWID,DXRCYL,DXZMAX,DXRSPH - LOGICAL WZRFR,FIX4JT - INTEGER IMSSM, IHIGGS,PARITY,LRSUSY - COMMON/HW6202/VIPWID(3),DXRCYL,DXZMAX,DXRSPH,WZRFR,FIX4JT, - & IMSSM,IHIGGS,PARITY,LRSUSY - - OPEN(UNIT=LRSUSY,FORM='FORMATTED',STATUS='OLD',ERR=999, - $ FILE=filename) - - CALL HWISSP !reading in susy/sugra point - CLOSE(UNIT=LRSUSY) - - GOTO 1111 - - 999 WRITE (6,*) - WRITE (6,*) 'SUSY input file did not open correctly.' - WRITE (6,*) 'Please check that it is in the right place.' - WRITE (6,*) 'Examples can be obtained from the isawig web page' - CALL CMSENDING(299) - - 1111 CONTINUE - - END - diff --git a/GeneratorInterface/Herwig6Interface/src/params.inc b/GeneratorInterface/Herwig6Interface/src/params.inc deleted file mode 100644 index 5717d0e4ba270..0000000000000 --- a/GeneratorInterface/Herwig6Interface/src/params.inc +++ /dev/null @@ -1,251 +0,0 @@ -enum ParamTypes { kInt, kDouble, kLogical }; - -// zero-dimensional (single-value) parameter -#define PARM_N0(type, block, name) \ - { \ -#name, &block.name, type, { \ - {0, 0}, {0, 0}, { 0, 0 } \ - } \ - } - -// one-dimensional parameter -#define PARM_N1_O0(type, block, name) \ - { \ -#name, &block.name, type, { \ - {sizeof block.name / sizeof block.name[0], 0}, {0, 0}, { 0, 0 } \ - } \ - } -#define PARM_N1_O1(type, block, name) \ - { \ -#name, &block.name, type, { \ - {sizeof block.name / sizeof block.name[0], 1}, {0, 0}, { 0, 0 } \ - } \ - } - -// two-dimensional parameter -#define PARM_N2_O0(type, block, name) \ - { \ -#name, &block.name, type, { \ - {sizeof block.name / sizeof block.name[0], 0}, {sizeof block.name[0] / sizeof block.name[0][0], 0}, { 0, 0 } \ - } \ - } -#define PARM_N2_O1(type, block, name) \ - { \ -#name, &block.name, type, { \ - {sizeof block.name / sizeof block.name[0], 1}, {sizeof block.name[0] / sizeof block.name[0][0], 1}, { 0, 0 } \ - } \ - } - -// three-dimensional parameter -#define PARM_N3_O0(type, block, name) \ - { \ -#name, &block.name, type, { \ - {sizeof block.name / sizeof block.name[0], 0}, {sizeof block.name[0] / sizeof block.name[0][0], 0}, { \ - sizeof block.name[0][0] / sizeof block.name[0][0][0], 0 \ - } \ - } \ - } -#define PARM_N3_O1(type, block, name) \ - { \ -#name, &block.name, type, { \ - {sizeof block.name / sizeof block.name[0], 1}, {sizeof block.name[0] / sizeof block.name[0][0], 1}, { \ - sizeof block.name[0][0] / sizeof block.name[0][0][0], 1 \ - } \ - } \ - } - -// end -#define PARM_LAST \ - { 0, } - -struct ConfigParam { - const char *name; - void *ptr = nullptr; - ParamTypes type = {}; - struct { - unsigned short size; - unsigned short offset; - } dim[3] = {}; -} static const configParams[] = {PARM_N0(kDouble, hw6202, DXRCYL), - PARM_N0(kDouble, hw6202, DXRSPH), - PARM_N0(kDouble, hw6202, DXZMAX), - PARM_N0(kInt, hw6202, LRSUSY), - PARM_N1_O1(kDouble, hw6202, VIPWID), - PARM_N0(kLogical, hw6202, WZRFR), - PARM_N0(kDouble, hw6203, AVABW), - PARM_N0(kLogical, hw6203, NEGWTS), - PARM_N0(kInt, hw6300, IOPSH), - PARM_N0(kInt, hw6300, IOPSTP), - PARM_N0(kLogical, hw6300, OPTM), - PARM_N0(kLogical, hw6500, PRESPL), - PARM_N1_O1(kDouble, hwbosc, ENHANC), - PARM_N0(kDouble, hwbosc, GAMMAX), - PARM_N0(kInt, hwbosc, IOPHIG), - PARM_N1_O1(kInt, hwbosc, MODBOS), - PARM_N0(kLogical, hwbrch, BREIT), - PARM_N0(kLogical, hwbrch, USECMF), - PARM_N0(kDouble, hwdist, EXAG), - PARM_N0(kInt, hwdist, IOPDKL), - PARM_N0(kInt, hwdist, MAXDKL), - PARM_N0(kInt, hwdist, MIXING), - PARM_N0(kInt, hwdist, PIPSMR), - PARM_N0(kDouble, hwdist, PLTCUT), - PARM_N0(kDouble, hwdist, VMIN2), - PARM_N1_O1(kDouble, hwdist, XMIX), - PARM_N1_O1(kDouble, hwdist, YMIX), - PARM_N0(kLogical, hwdspn, FOURB), - PARM_N0(kLogical, hwdspn, SYSPIN), - PARM_N0(kLogical, hwdspn, THREEB), - PARM_N0(kDouble, hwevnt, AVWGT), - PARM_N0(kInt, hwevnt, LWEVT), - PARM_N0(kInt, hwevnt, MAXER), - PARM_N0(kInt, hwevnt, MAXPR), - PARM_N0(kInt, hwevnt, NOWGT), - PARM_N0(kDouble, hwevnt, WGTMAX), - PARM_N0(kLogical, hwgupr, LHGLSF), - PARM_N0(kLogical, hwgupr, LHSOFT), - PARM_N0(kDouble, hwhard, ASFIXD), - PARM_N0(kInt, hwhard, BGSHAT), - PARM_N0(kInt, hwhard, DURHAM), - PARM_N0(kDouble, hwhard, EMMAX), - PARM_N0(kDouble, hwhard, EMMIN), - PARM_N0(kDouble, hwhard, EMPOW), - PARM_N1_O1(kDouble, hwhard, EPOLN), - PARM_N0(kInt, hwhard, IAPHIG), - PARM_N1_O1(kInt, hwhard, IBRN), - PARM_N0(kInt, hwhard, IBSH), - PARM_N0(kInt, hwhard, IHPRO), - PARM_N0(kDouble, hwhard, OMEGA0), - PARM_N0(kDouble, hwhard, PHOMAS), - PARM_N1_O1(kDouble, hwhard, PPOLN), - PARM_N0(kDouble, hwhard, PTMAX), - PARM_N0(kDouble, hwhard, PTMIN), - PARM_N0(kDouble, hwhard, PTPOW), - PARM_N0(kDouble, hwhard, Q2MAX), - PARM_N0(kDouble, hwhard, Q2MIN), - PARM_N0(kDouble, hwhard, Q2POW), - PARM_N0(kDouble, hwhard, Q2WWMN), - PARM_N0(kDouble, hwhard, Q2WWMX), - PARM_N0(kDouble, hwhard, QLIM), - PARM_N0(kDouble, hwhard, THMAX), - PARM_N0(kDouble, hwhard, TMNISR), - PARM_N0(kDouble, hwhard, WHMIN), - PARM_N0(kDouble, hwhard, Y4JT), - PARM_N0(kDouble, hwhard, YBMAX), - PARM_N0(kDouble, hwhard, YBMIN), - PARM_N0(kDouble, hwhard, YJMAX), - PARM_N0(kDouble, hwhard, YJMIN), - PARM_N0(kDouble, hwhard, YWWMAX), - PARM_N0(kDouble, hwhard, YWWMIN), - PARM_N0(kDouble, hwhard, ZJMAX), - PARM_N0(kDouble, hwhard, ZMXISR), - PARM_N0(kDouble, hwminb, PMBK1), - PARM_N0(kDouble, hwminb, PMBK2), - PARM_N0(kDouble, hwminb, PMBM1), - PARM_N0(kDouble, hwminb, PMBM2), - PARM_N0(kDouble, hwminb, PMBN1), - PARM_N0(kDouble, hwminb, PMBN2), - PARM_N0(kDouble, hwminb, PMBN3), - PARM_N0(kDouble, hwminb, PMBP1), - PARM_N0(kDouble, hwminb, PMBP2), - PARM_N0(kDouble, hwminb, PMBP3), - PARM_N2_O1(kDouble, hwpram, AFCH), - PARM_N0(kDouble, hwpram, ALPHEM), - PARM_N0(kLogical, hwpram, AZSOFT), - PARM_N0(kLogical, hwpram, AZSPIN), - PARM_N0(kDouble, hwpram, B1LIM), - PARM_N0(kDouble, hwpram, BTCLM), - PARM_N1_O1(kInt, hwpram, CLDIR), - PARM_N0(kDouble, hwpram, CLMAX), - PARM_N0(kDouble, hwpram, CLPOW), - PARM_N1_O1(kDouble, hwpram, CLSMR), - PARM_N0(kDouble, hwpram, CSPEED), - PARM_N0(kDouble, hwpram, ENSOF), - PARM_N0(kDouble, hwpram, ET2MIX), - PARM_N0(kDouble, hwpram, ETAMIX), - PARM_N0(kDouble, hwpram, F0MIX), - PARM_N0(kDouble, hwpram, F1MIX), - PARM_N0(kDouble, hwpram, F2MIX), - PARM_N0(kDouble, hwpram, GAMW), - PARM_N0(kDouble, hwpram, GAMZ), - PARM_N0(kDouble, hwpram, GAMZP), - PARM_N0(kDouble, hwpram, GCUTME), - PARM_N0(kDouble, hwpram, GEV2NB), - PARM_N0(kDouble, hwpram, H1MIX), - PARM_N0(kLogical, hwpram, HARDME), - PARM_N1_O1(kInt, hwpram, IOP4JT), - PARM_N0(kInt, hwpram, IOPREM), - PARM_N0(kInt, hwpram, IPRINT), - PARM_N0(kInt, hwpram, ISPAC), - PARM_N0(kInt, hwpram, LRSUD), - PARM_N0(kInt, hwpram, LWSUD), - PARM_N1_O1(kInt, hwpram, MODPDF), - PARM_N0(kInt, hwpram, NBTRY), - PARM_N0(kInt, hwpram, NCOLO), - PARM_N0(kInt, hwpram, NCTRY), - PARM_N0(kInt, hwpram, NETRY), - PARM_N0(kInt, hwpram, NFLAV), - PARM_N0(kLogical, hwpram, NOSPAC), - PARM_N0(kInt, hwpram, NPRFMT), - PARM_N0(kInt, hwpram, NSTRU), - PARM_N0(kInt, hwpram, NSTRY), - PARM_N0(kInt, hwpram, NZBIN), - PARM_N0(kDouble, hwpram, OMHMIX), - PARM_N0(kDouble, hwpram, PDIQK), - PARM_N0(kDouble, hwpram, PH3MIX), - PARM_N0(kDouble, hwpram, PHIMIX), - PARM_N0(kLogical, hwpram, PRNDEC), - PARM_N0(kLogical, hwpram, PRNDEF), - PARM_N0(kLogical, hwpram, PRNTEX), - PARM_N0(kLogical, hwpram, PRNWEB), - PARM_N0(kDouble, hwpram, PRSOF), - PARM_N0(kLogical, hwpram, PRVTX), - PARM_N1_O1(kDouble, hwpram, PSPLT), - PARM_N0(kDouble, hwpram, PTRMS), - PARM_N0(kDouble, hwpram, QCDLAM), - PARM_N0(kDouble, hwpram, QDIQK), - PARM_N1_O1(kDouble, hwpram, QFCH), - PARM_N0(kDouble, hwpram, QSPAC), - PARM_N0(kDouble, hwpram, SCABI), - PARM_N0(kLogical, hwpram, SOFTME), - PARM_N0(kDouble, hwpram, SWEIN), - PARM_N1_O1(kDouble, hwpram, VCKM), - PARM_N2_O1(kDouble, hwpram, VFCH), - PARM_N0(kDouble, hwpram, VGCUT), - PARM_N0(kDouble, hwpram, VPCUT), - PARM_N0(kDouble, hwpram, VQCUT), - PARM_N0(kDouble, hwpram, ZBINM), - PARM_N0(kLogical, hwpram, ZPRIME), - PARM_N0(kInt, hwproc, IPROC), - PARM_N1_O0(kDouble, hwprop, RLTIM), - PARM_N1_O0(kDouble, hwprop, RMASS), - PARM_N1_O1(kLogical, hwprop, VTOCDK), - PARM_N1_O1(kLogical, hwprop, VTORDK), - PARM_N0(kLogical, hwrpar, RPARTY), - PARM_N0(kLogical, hwsusy, SUSYIN), - PARM_N0(kInt, hwuclu, CLRECO), - PARM_N0(kDouble, hwuclu, PRECO), - PARM_N0(kDouble, hwusud, ACCUR), - PARM_N0(kInt, hwusud, INTER), - PARM_N0(kInt, hwusud, NQEV), - PARM_N0(kInt, hwusud, SUDORD), - PARM_N0(kDouble, hwuwts, DECWT), - PARM_N1_O1(kDouble, hwuwts, PWT), - PARM_N3_O0(kDouble, hwuwts, REPWT), - PARM_N0(kDouble, hwuwts, SNGWT), - PARM_N1_O1(kDouble, jmparm, JMRAD), - PARM_N0(kInt, jmparm, JMUEO), - PARM_N0(kDouble, jmparm, PTJIM), - PARM_N3_O1(kDouble, hwrpar, LAMDA1), // Added for RPV (orig. fomr L. Sonnenschein) - PARM_N3_O1(kDouble, hwrpar, LAMDA2), // \" - PARM_N3_O1(kDouble, hwrpar, LAMDA3), // \" - PARM_LAST}; - -#undef PARM_N0 -#undef PARM_N1_O0 -#undef PARM_N1_O1 -#undef PARM_N2_O0 -#undef PARM_N2_O1 -#undef PARM_N3_O0 -#undef PARM_N3_O1 -#undef PARM_LAST diff --git a/GeneratorInterface/Herwig6Interface/test/BuildFile.xml b/GeneratorInterface/Herwig6Interface/test/BuildFile.xml deleted file mode 100644 index 47b19a065aedc..0000000000000 --- a/GeneratorInterface/Herwig6Interface/test/BuildFile.xml +++ /dev/null @@ -1,10 +0,0 @@ - - - - - - - - - - diff --git a/GeneratorInterface/Herwig6Interface/test/H4muAnalyzer.cc b/GeneratorInterface/Herwig6Interface/test/H4muAnalyzer.cc deleted file mode 100644 index 585db78ec8cb4..0000000000000 --- a/GeneratorInterface/Herwig6Interface/test/H4muAnalyzer.cc +++ /dev/null @@ -1,87 +0,0 @@ -/* This is en example for an Analyzer of a Herwig HepMCProduct - and looks for muons pairs and fills a histogram - with the invaraint mass of the four. -*/ - -// -// Original Author: Fabian Stoeckli -// Created: Tue Nov 14 13:43:02 CET 2006 -// -// - -// system include files -#include -#include - -#include - -#include -#include -#include - -#include "FWCore/Framework/interface/one/EDAnalyzer.h" -#include "FWCore/Framework/interface/Event.h" -#include "FWCore/Framework/interface/MakerMacros.h" -#include "FWCore/ParameterSet/interface/ParameterSet.h" -#include "FWCore/ServiceRegistry/interface/Service.h" - -#include "SimDataFormats/GeneratorProducts/interface/HepMCProduct.h" - -#include "DataFormats/Math/interface/LorentzVector.h" - -#include "CommonTools/UtilAlgos/interface/TFileService.h" - -// -// class declaration -// - -class H4muAnalyzer : public edm::one::EDAnalyzer { -public: - explicit H4muAnalyzer(const edm::ParameterSet&); - ~H4muAnalyzer() override = default; - -private: - void analyze(const edm::Event&, const edm::EventSetup&) override; - - // ----------member data --------------------------- - - const edm::EDGetTokenT hepMCToken_; - TH1D* weight_histo; - TH1D* invmass_histo; -}; - -H4muAnalyzer::H4muAnalyzer(const edm::ParameterSet& iConfig) - : hepMCToken_(consumes(edm::InputTag("VtxSmeared"))) { - usesResource(TFileService::kSharedResource); - edm::Service fs; - invmass_histo = fs->make("invmass_histo", "invmass_histo", 60, 170, 180); -} - -// ------------ method called to for each event ------------ -void H4muAnalyzer::analyze(const edm::Event& iEvent, const edm::EventSetup& iSetup) { - // get HepMC::GenEvent ... - const edm::Handle& evt_h = iEvent.getHandle(hepMCToken_); - const HepMC::GenEvent* evt = evt_h->GetEvent(); - - // look for stable muons - std::vector muons; - for (auto it = evt->particles_begin(); it != evt->particles_end(); ++it) { - if (std::abs((*it)->pdg_id()) == 13 && (*it)->status() == 1) - muons.push_back(*it); - } - - // if there are at least four muons - // calculate invarant mass of first two and fill it into histogram - math::XYZTLorentzVector tot_momentum; - double inv_mass = 0.0; - if (muons.size() > 3) { - for (unsigned int i = 0; i < 4; ++i) - tot_momentum += muons[i]->momentum(); - inv_mass = tot_momentum.mass(); - } - invmass_histo->Fill(inv_mass); -} - -//define this as a plug-in -typedef H4muAnalyzer H4muExampleAnalyzer; -DEFINE_FWK_MODULE(H4muExampleAnalyzer); diff --git a/GeneratorInterface/Herwig6Interface/test/analyze_cfg.py b/GeneratorInterface/Herwig6Interface/test/analyze_cfg.py deleted file mode 100644 index e66a6fc5a2b70..0000000000000 --- a/GeneratorInterface/Herwig6Interface/test/analyze_cfg.py +++ /dev/null @@ -1,17 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -process = cms.Process("Analyze") - -process.source = cms.Source("PoolSource", - fileNames = cms.untracked.vstring("file:herwigHZZ4mu.root") -) - -process.h4muAnalyzer = cms.EDAnalyzer("H4muExampleAnalyzer") - -process.TFileService = cms.Service("TFileService", - fileName = cms.string("H4mu_histo.root") -) - -process.path = cms.Path( - process.h4muAnalyzer -) diff --git a/GeneratorInterface/Herwig6Interface/test/softsusy317_isajet764_LM5_GUTlp211eq0.01.hw65 b/GeneratorInterface/Herwig6Interface/test/softsusy317_isajet764_LM5_GUTlp211eq0.01.hw65 deleted file mode 100644 index a2f2d368e5bc3..0000000000000 --- a/GeneratorInterface/Herwig6Interface/test/softsusy317_isajet764_LM5_GUTlp211eq0.01.hw65 +++ /dev/null @@ -1,556 +0,0 @@ - 65 - 401 809.7715 0.85029E-25 - 402 805.9034 0.83320E-25 - 403 809.8583 0.85165E-25 - 404 805.9917 0.83450E-25 - 405 736.3132 0.67408E-25 - 406 602.0221 0.16508E-24 - 407 809.7715 0.85029E-25 - 408 805.9034 0.83320E-25 - 409 809.8583 0.85165E-25 - 410 805.9917 0.83450E-25 - 411 736.3132 0.67408E-25 - 412 602.0221 0.16508E-24 - 413 779.1530 0.15181E-23 - 414 780.9406 0.40301E-24 - 415 779.3389 0.16159E-23 - 416 780.9387 0.40301E-24 - 417 776.9724 0.48184E-24 - 418 788.7983 0.53542E-25 - 419 779.1530 0.15181E-23 - 420 780.9406 0.40301E-24 - 421 779.3389 0.16159E-23 - 422 780.9387 0.40301E-24 - 423 776.9724 0.48184E-24 - 424 788.7983 0.53542E-25 - 425 336.7142 0.87678E-24 - 426 327.3023 0.94943E-24 - 427 336.1170 0.86636E-24 - 428 326.6880 0.93785E-24 - 429 263.8799 0.10469E-23 - 430 326.0573 0.97220E-24 - 431 336.7142 0.87678E-24 - 432 327.3023 0.94943E-24 - 433 336.1170 0.86636E-24 - 434 326.6880 0.93785E-24 - 435 263.8799 0.10469E-23 - 436 326.0573 0.97220E-24 - 437 269.9774 0.96258E-24 - 438 0.0000 0.10000E+31 - 439 269.9685 0.96266E-24 - 440 0.0000 0.10000E+31 - 441 337.9765 0.86086E-24 - 442 0.0000 0.10000E+31 - 443 269.9774 0.96258E-24 - 444 0.0000 0.10000E+31 - 445 269.9685 0.96266E-24 - 446 0.0000 0.10000E+31 - 447 337.9765 0.86086E-24 - 448 0.0000 0.10000E+31 - 449 853.9710 0.10173E-24 - 450 145.0261 0.26217E-16 - 451 269.0789 0.65712E-22 - 452 -467.1762 0.25950E-24 - 453 485.5071 0.21540E-24 - 454 268.8879 0.55139E-22 - 455 485.4318 0.22303E-24 - 456 268.8879 0.55139E-22 - 457 485.4318 0.22303E-24 - 203 114.6024 0.12347E-21 - 204 545.8823 0.36899E-24 - 205 544.9200 0.33326E-24 - 206 551.3525 0.42601E-24 - 207 551.3525 0.42601E-24 - 458 0.0000 0.10000E+31 - 6 172.5000 0.57076E-24 - 12 172.5000 0.57076E-24 - 7 - 401 0.18987456E-01 0 450 1 0 0 0 - 401 0.30727637E+00 0 451 1 0 0 0 - 401 0.11233432E-02 0 452 1 0 0 0 - 401 0.18062534E-01 0 453 1 0 0 0 - 401 0.60500652E+00 0 456 2 0 0 0 - 401 0.47774833E-01 0 457 2 0 0 0 - 401 0.17689018E-02 0 130 1 0 0 0 - 7 - 402 0.89146551E-02 0 450 2 0 0 0 - 402 0.31501123E+00 0 451 2 0 0 0 - 402 0.66123198E-03 0 452 2 0 0 0 - 402 0.13715161E-01 0 453 2 0 0 0 - 402 0.64061910E+00 0 454 1 0 0 0 - 402 0.19353544E-01 0 455 1 0 0 0 - 402 0.17250794E-02 0 129 1 0 0 0 - 6 - 403 0.19020233E-01 0 450 3 0 0 0 - 403 0.30781880E+00 0 451 3 0 0 0 - 403 0.11255068E-02 0 452 3 0 0 0 - 403 0.18097809E-01 0 453 3 0 0 0 - 403 0.60607016E+00 0 456 4 0 0 0 - 403 0.47867473E-01 0 457 4 0 0 0 - 6 - 404 0.89296149E-02 0 450 4 0 0 0 - 404 0.31555220E+00 0 451 4 0 0 0 - 404 0.66247419E-03 0 452 4 0 0 0 - 404 0.13741295E-01 0 453 4 0 0 0 - 404 0.64172369E+00 0 454 3 0 0 0 - 404 0.19390689E-01 0 455 3 0 0 0 - 7 - 405 0.18391680E-01 0 450 5 0 0 0 - 405 0.21098188E+00 0 451 5 0 0 0 - 405 0.75529334E-02 0 452 5 0 0 0 - 405 0.12433084E-01 0 453 5 0 0 0 - 405 0.34408250E+00 0 456 6 0 0 0 - 405 0.29645646E+00 0 457 6 0 0 0 - 405 0.11010145E+00 0 199 406 0 0 0 - 4 - 406 0.21431969E+00 0 450 6 0 0 0 - 406 0.15326932E+00 0 451 6 0 0 0 - 406 0.45796680E+00 0 454 5 0 0 0 - 406 0.17444420E+00 0 455 5 0 0 0 - 7 - 407 0.18987456E-01 0 450 7 0 0 0 - 407 0.30727637E+00 0 451 7 0 0 0 - 407 0.11233432E-02 0 452 7 0 0 0 - 407 0.18062534E-01 0 453 7 0 0 0 - 407 0.60500652E+00 0 454 8 0 0 0 - 407 0.47774833E-01 0 455 8 0 0 0 - 407 0.17689018E-02 0 124 7 0 0 0 - 7 - 408 0.89146551E-02 0 450 8 0 0 0 - 408 0.31501123E+00 0 451 8 0 0 0 - 408 0.66123198E-03 0 452 8 0 0 0 - 408 0.13715161E-01 0 453 8 0 0 0 - 408 0.64061910E+00 0 456 7 0 0 0 - 408 0.19353544E-01 0 457 7 0 0 0 - 408 0.17250794E-02 0 123 7 0 0 0 - 6 - 409 0.19020233E-01 0 450 9 0 0 0 - 409 0.30781880E+00 0 451 9 0 0 0 - 409 0.11255068E-02 0 452 9 0 0 0 - 409 0.18097809E-01 0 453 9 0 0 0 - 409 0.60607016E+00 0 454 10 0 0 0 - 409 0.47867473E-01 0 455 10 0 0 0 - 6 - 410 0.89296149E-02 0 450 10 0 0 0 - 410 0.31555220E+00 0 451 10 0 0 0 - 410 0.66247419E-03 0 452 10 0 0 0 - 410 0.13741295E-01 0 453 10 0 0 0 - 410 0.64172369E+00 0 456 9 0 0 0 - 410 0.19390689E-01 0 457 9 0 0 0 - 7 - 411 0.18391680E-01 0 450 11 0 0 0 - 411 0.21098188E+00 0 451 11 0 0 0 - 411 0.75529334E-02 0 452 11 0 0 0 - 411 0.12433084E-01 0 453 11 0 0 0 - 411 0.34408250E+00 0 454 12 0 0 0 - 411 0.29645646E+00 0 455 12 0 0 0 - 411 0.11010145E+00 0 198 412 0 0 0 - 4 - 412 0.21431969E+00 0 450 12 0 0 0 - 412 0.15326932E+00 0 451 12 0 0 0 - 412 0.45796680E+00 0 456 11 0 0 0 - 412 0.17444420E+00 0 457 11 0 0 0 - 6 - 413 0.93112987E+00 0 450 1 0 0 0 - 413 0.36372973E-02 0 451 1 0 0 0 - 413 0.85570861E-03 0 452 1 0 0 0 - 413 0.36024214E-02 0 453 1 0 0 0 - 413 0.30387361E-01 0 124 1 0 0 0 - 413 0.30387361E-01 0 123 2 0 0 0 - 4 - 414 0.99135202E+00 0 450 2 0 0 0 - 414 0.38760703E-02 0 451 2 0 0 0 - 414 0.91543538E-03 0 452 2 0 0 0 - 414 0.38564450E-02 0 453 2 0 0 0 - 4 - 415 0.99137777E+00 0 450 3 0 0 0 - 415 0.38730134E-02 0 451 3 0 0 0 - 415 0.91153313E-03 0 452 3 0 0 0 - 415 0.38377044E-02 0 453 3 0 0 0 - 4 - 416 0.99135214E+00 0 450 4 0 0 0 - 416 0.38760621E-02 0 451 4 0 0 0 - 416 0.91542362E-03 0 452 4 0 0 0 - 416 0.38563875E-02 0 453 4 0 0 0 - 7 - 417 0.26550066E+00 0 450 5 0 0 0 - 417 0.27000329E-01 0 451 5 0 0 0 - 417 0.80569431E-01 0 452 5 0 0 0 - 417 0.96266814E-01 0 453 5 0 0 0 - 417 0.45330629E-01 0 456 6 0 0 0 - 417 0.37393034E+00 0 457 6 0 0 0 - 417 0.11140180E+00 0 199 406 0 0 0 - 8 - 418 0.20881891E+00 0 454 5 0 0 0 - 418 0.15996996E+00 0 455 5 0 0 0 - 418 0.11176319E+00 0 200 406 0 0 0 - 418 0.50989900E-01 0 203 406 0 0 0 - 418 0.21471873E-01 0 450 6 0 0 0 - 418 0.92676848E-01 0 451 6 0 0 0 - 418 0.10270265E+00 0 452 6 0 0 0 - 418 0.25160667E+00 0 453 6 0 0 0 - 6 - 419 0.93112987E+00 0 450 7 0 0 0 - 419 0.36372973E-02 0 451 7 0 0 0 - 419 0.85570861E-03 0 452 7 0 0 0 - 419 0.36024214E-02 0 453 7 0 0 0 - 419 0.30387361E-01 0 130 7 0 0 0 - 419 0.30387361E-01 0 129 8 0 0 0 - 4 - 420 0.99135202E+00 0 450 8 0 0 0 - 420 0.38760703E-02 0 451 8 0 0 0 - 420 0.91543538E-03 0 452 8 0 0 0 - 420 0.38564450E-02 0 453 8 0 0 0 - 4 - 421 0.99137777E+00 0 450 9 0 0 0 - 421 0.38730134E-02 0 451 9 0 0 0 - 421 0.91153313E-03 0 452 9 0 0 0 - 421 0.38377044E-02 0 453 9 0 0 0 - 4 - 422 0.99135214E+00 0 450 10 0 0 0 - 422 0.38760621E-02 0 451 10 0 0 0 - 422 0.91542362E-03 0 452 10 0 0 0 - 422 0.38563875E-02 0 453 10 0 0 0 - 7 - 423 0.26550066E+00 0 450 11 0 0 0 - 423 0.27000329E-01 0 451 11 0 0 0 - 423 0.80569431E-01 0 452 11 0 0 0 - 423 0.96266814E-01 0 453 11 0 0 0 - 423 0.45330629E-01 0 454 12 0 0 0 - 423 0.37393034E+00 0 455 12 0 0 0 - 423 0.11140180E+00 0 198 412 0 0 0 - 8 - 424 0.20881891E+00 0 456 11 0 0 0 - 424 0.15996996E+00 0 457 11 0 0 0 - 424 0.11176319E+00 0 200 412 0 0 0 - 424 0.50989900E-01 0 203 412 0 0 0 - 424 0.21471873E-01 0 450 12 0 0 0 - 424 0.92676848E-01 0 451 12 0 0 0 - 424 0.10270265E+00 0 452 12 0 0 0 - 424 0.25160667E+00 0 453 12 0 0 0 - 3 - 425 0.32877696E+00 0 450 121 0 0 0 - 425 0.24110740E+00 0 451 121 0 0 0 - 425 0.43011564E+00 0 456 122 0 0 0 - 3 - 426 0.42878333E+00 0 450 122 0 0 0 - 426 0.17448008E+00 0 451 122 0 0 0 - 426 0.39673659E+00 0 454 121 0 0 0 - 4 - 427 0.32376629E+00 0 450 123 0 0 0 - 427 0.23483782E+00 0 451 123 0 0 0 - 427 0.41895267E+00 0 456 124 0 0 0 - 427 0.22443237E-01 0 8 1 0 0 0 - 4 - 428 0.42197946E+00 0 450 124 0 0 0 - 428 0.16933756E+00 0 451 124 0 0 0 - 428 0.38506940E+00 0 454 123 0 0 0 - 428 0.23613576E-01 0 7 1 0 0 0 - 1 - 429 0.10000000E+01 0 450 125 0 0 0 - 8 - 430 0.43576348E+00 0 450 126 0 0 0 - 430 0.17235108E+00 0 451 126 0 0 0 - 430 0.39172751E+00 0 454 125 0 0 0 - 430 0.17550499E-04 0 429 126 131 0 0 - 430 0.17550276E-04 0 429 122 127 0 0 - 430 0.17550276E-04 0 429 124 129 0 0 - 430 0.52650827E-04 0 429 2 7 0 0 - 430 0.52650827E-04 0 429 4 9 0 0 - 3 - 431 0.32877696E+00 0 450 127 0 0 0 - 431 0.24110740E+00 0 451 127 0 0 0 - 431 0.43011564E+00 0 454 128 0 0 0 - 3 - 432 0.42878333E+00 0 450 128 0 0 0 - 432 0.17448008E+00 0 451 128 0 0 0 - 432 0.39673659E+00 0 456 127 0 0 0 - 4 - 433 0.32376629E+00 0 450 129 0 0 0 - 433 0.23483782E+00 0 451 129 0 0 0 - 433 0.41895267E+00 0 454 130 0 0 0 - 433 0.22443237E-01 0 2 7 0 0 0 - 4 - 434 0.42197946E+00 0 450 130 0 0 0 - 434 0.16933756E+00 0 451 130 0 0 0 - 434 0.38506940E+00 0 456 129 0 0 0 - 434 0.23613576E-01 0 1 7 0 0 0 - 1 - 435 0.10000000E+01 0 450 131 0 0 0 - 8 - 436 0.43576348E+00 0 450 132 0 0 0 - 436 0.17235108E+00 0 451 132 0 0 0 - 436 0.39172751E+00 0 456 131 0 0 0 - 436 0.17550499E-04 0 435 132 125 0 0 - 436 0.17550276E-04 0 435 128 121 0 0 - 436 0.17550276E-04 0 435 130 123 0 0 - 436 0.52650827E-04 0 435 8 1 0 0 - 436 0.52650827E-04 0 435 10 3 0 0 - 1 - 437 0.10000000E+01 0 450 121 0 0 0 - 0 - 1 - 439 0.10000000E+01 0 450 123 0 0 0 - 0 - 3 - 441 0.36035112E+00 0 450 125 0 0 0 - 441 0.23023024E+00 0 451 125 0 0 0 - 441 0.40941864E+00 0 456 126 0 0 0 - 0 - 1 - 443 0.10000000E+01 0 450 127 0 0 0 - 0 - 1 - 445 0.10000000E+01 0 450 129 0 0 0 - 0 - 3 - 447 0.36035112E+00 0 450 131 0 0 0 - 447 0.23023024E+00 0 451 131 0 0 0 - 447 0.40941864E+00 0 454 132 0 0 0 - 0 - 32 - 449 0.50884945E-03 0 454 5 12 0 0 - 449 0.50884945E-03 0 456 6 11 0 0 - 449 0.12970238E-03 0 455 5 12 0 0 - 449 0.12970238E-03 0 457 6 11 0 0 - 449 0.80830861E-04 0 450 6 12 0 0 - 449 0.28526594E-03 0 451 6 12 0 0 - 449 0.45927911E-04 0 452 13 0 0 0 - 449 0.14390543E-04 0 452 6 12 0 0 - 449 0.32524855E-04 0 453 13 0 0 0 - 449 0.65648084E-04 0 453 6 12 0 0 - 449 0.18488983E-01 0 408 2 0 0 0 - 449 0.18488983E-01 0 402 8 0 0 0 - 449 0.15705960E-01 0 407 1 0 0 0 - 449 0.15705960E-01 0 401 7 0 0 0 - 449 0.41405197E-01 0 420 2 0 0 0 - 449 0.41405197E-01 0 414 8 0 0 0 - 449 0.43362003E-01 0 419 1 0 0 0 - 449 0.43362003E-01 0 413 7 0 0 0 - 449 0.15645819E-01 0 409 3 0 0 0 - 449 0.15645819E-01 0 403 9 0 0 0 - 449 0.43156471E-01 0 421 3 0 0 0 - 449 0.43156471E-01 0 415 9 0 0 0 - 449 0.18416228E-01 0 410 4 0 0 0 - 449 0.18416228E-01 0 404 10 0 0 0 - 449 0.41400731E-01 0 422 4 0 0 0 - 449 0.41400731E-01 0 416 10 0 0 0 - 449 0.99618219E-01 0 411 5 0 0 0 - 449 0.99618219E-01 0 405 11 0 0 0 - 449 0.47047544E-01 0 423 5 0 0 0 - 449 0.47047544E-01 0 417 11 0 0 0 - 449 0.11485200E+00 0 412 6 0 0 0 - 449 0.11485200E+00 0 406 12 0 0 0 - 4 - 450 0.20645994E+00 300 129 8 1 0 0 - 450 0.20645994E+00 300 123 2 7 0 0 - 450 0.29354006E+00 300 130 7 1 0 0 - 450 0.29354006E+00 300 124 1 7 0 0 - 15 - 451 0.30698870E-04 0 450 59 0 0 0 - 451 0.13495973E+00 0 450 200 0 0 0 - 451 0.79318578E-03 0 450 121 127 0 0 - 451 0.80115709E-03 0 450 123 129 0 0 - 451 0.61164075E-03 0 450 125 131 0 0 - 451 0.84153021E-03 0 450 122 128 0 0 - 451 0.85311598E-03 0 450 124 130 0 0 - 451 0.86524489E-03 0 450 126 132 0 0 - 451 0.85180557E+00 0 450 203 0 0 0 - 451 0.40787328E-02 0 429 131 0 0 0 - 451 0.40787328E-02 0 435 125 0 0 0 - 451 0.69958493E-04 300 129 8 1 0 0 - 451 0.69958493E-04 300 123 2 7 0 0 - 451 0.70378919E-04 300 130 7 1 0 0 - 451 0.70378919E-04 300 124 1 7 0 0 - 24 - 452 0.29978046E+00 0 454 199 0 0 0 - 452 0.29978046E+00 0 456 198 0 0 0 - 452 0.11241741E+00 0 450 200 0 0 0 - 452 0.24130087E+00 0 451 200 0 0 0 - 452 0.18162712E-01 0 450 203 0 0 0 - 452 0.87577468E-02 0 451 203 0 0 0 - 452 0.16164022E-03 0 425 127 0 0 0 - 452 0.16164022E-03 0 431 121 0 0 0 - 452 0.16288109E-03 0 427 129 0 0 0 - 452 0.16288109E-03 0 433 123 0 0 0 - 452 0.42679565E-03 0 437 127 0 0 0 - 452 0.42679565E-03 0 443 121 0 0 0 - 452 0.42682371E-03 0 439 129 0 0 0 - 452 0.42682371E-03 0 445 123 0 0 0 - 452 0.35227311E-02 0 429 131 0 0 0 - 452 0.35227311E-02 0 435 125 0 0 0 - 452 0.26113100E-02 0 441 131 0 0 0 - 452 0.26113100E-02 0 447 125 0 0 0 - 452 0.85640879E-03 0 426 128 0 0 0 - 452 0.85640879E-03 0 432 122 0 0 0 - 452 0.86261274E-03 0 428 130 0 0 0 - 452 0.86261274E-03 0 434 124 0 0 0 - 452 0.86899294E-03 0 430 132 0 0 0 - 452 0.86899294E-03 0 436 126 0 0 0 - 24 - 453 0.29298851E+00 0 454 199 0 0 0 - 453 0.29298851E+00 0 456 198 0 0 0 - 453 0.18813413E-01 0 450 200 0 0 0 - 453 0.14596928E-01 0 451 200 0 0 0 - 453 0.78913406E-01 0 450 203 0 0 0 - 453 0.17669924E+00 0 451 203 0 0 0 - 453 0.54005352E-02 0 425 127 0 0 0 - 453 0.54005352E-02 0 431 121 0 0 0 - 453 0.54360665E-02 0 427 129 0 0 0 - 453 0.54360665E-02 0 433 123 0 0 0 - 453 0.18277694E-02 0 437 127 0 0 0 - 453 0.18277694E-02 0 443 121 0 0 0 - 453 0.18278768E-02 0 439 129 0 0 0 - 453 0.18278768E-02 0 445 123 0 0 0 - 453 0.23487406E-02 0 429 131 0 0 0 - 453 0.23487406E-02 0 435 125 0 0 0 - 453 0.84591666E-02 0 441 131 0 0 0 - 453 0.84591666E-02 0 447 125 0 0 0 - 453 0.12322118E-01 0 426 128 0 0 0 - 453 0.12322118E-01 0 432 122 0 0 0 - 453 0.12399239E-01 0 428 130 0 0 0 - 453 0.12399239E-01 0 434 124 0 0 0 - 453 0.12478511E-01 0 430 132 0 0 0 - 453 0.12478510E-01 0 436 126 0 0 0 - 7 - 454 0.12470232E-02 0 450 127 122 0 0 - 454 0.12634727E-02 0 450 129 124 0 0 - 454 0.12469235E-02 0 450 131 126 0 0 - 454 0.98900825E+00 0 450 198 0 0 0 - 454 0.69978102E-02 0 435 126 0 0 0 - 454 0.13287627E-03 300 129 7 1 0 0 - 454 0.10363537E-03 300 124 2 7 0 0 - 11 - 455 0.83987266E-01 0 450 198 0 0 0 - 455 0.31760731E+00 0 451 198 0 0 0 - 455 0.11430835E-01 0 426 127 0 0 0 - 455 0.11502418E-01 0 428 129 0 0 0 - 455 0.15500817E-01 0 430 131 0 0 0 - 455 0.24638874E-01 0 431 122 0 0 0 - 455 0.24801077E-01 0 433 124 0 0 0 - 455 0.15833349E-02 0 435 126 0 0 0 - 455 0.27071733E-01 0 447 126 0 0 0 - 455 0.27681920E+00 0 454 200 0 0 0 - 455 0.20505717E+00 0 454 203 0 0 0 - 7 - 456 0.12470232E-02 0 450 121 128 0 0 - 456 0.12634727E-02 0 450 123 130 0 0 - 456 0.12469235E-02 0 450 125 132 0 0 - 456 0.98900825E+00 0 450 199 0 0 0 - 456 0.69978102E-02 0 429 132 0 0 0 - 456 0.13287627E-03 300 123 1 7 0 0 - 456 0.10363537E-03 300 130 8 1 0 0 - 11 - 457 0.83987266E-01 0 450 199 0 0 0 - 457 0.31760731E+00 0 451 199 0 0 0 - 457 0.11430835E-01 0 432 121 0 0 0 - 457 0.11502418E-01 0 434 123 0 0 0 - 457 0.15500817E-01 0 436 125 0 0 0 - 457 0.24638874E-01 0 425 128 0 0 0 - 457 0.24801077E-01 0 427 130 0 0 0 - 457 0.15833349E-02 0 429 132 0 0 0 - 457 0.27071733E-01 0 441 132 0 0 0 - 457 0.27681920E+00 0 456 200 0 0 0 - 457 0.20505717E+00 0 456 203 0 0 0 - 28 - 203 0.17568057E-03 0 123 129 0 0 0 - 203 0.50245289E-01 0 125 131 0 0 0 - 203 0.21102170E-02 0 3 9 0 0 0 - 203 0.83481371E+00 0 5 11 0 0 0 - 203 0.37210666E-01 0 4 10 0 0 0 - 203 0.13943256E-02 0 59 59 0 0 0 - 203 0.29159440E-01 0 13 13 0 0 0 - 203 0.23377300E-02 0 198 121 128 0 0 - 203 0.23377300E-02 0 198 123 130 0 0 - 203 0.23377300E-02 0 198 125 132 0 0 - 203 0.70131901E-02 0 198 8 1 0 0 - 203 0.70131901E-02 0 198 10 3 0 0 - 203 0.23377300E-02 0 199 127 122 0 0 - 203 0.23377300E-02 0 199 129 124 0 0 - 203 0.23377300E-02 0 199 131 126 0 0 - 203 0.70131901E-02 0 199 2 7 0 0 - 203 0.70131901E-02 0 199 4 9 0 0 - 203 0.19228218E-03 0 200 122 128 0 0 - 203 0.19228218E-03 0 200 124 130 0 0 - 203 0.19228218E-03 0 200 126 132 0 0 - 203 0.96773685E-04 0 200 121 127 0 0 - 203 0.96773685E-04 0 200 123 129 0 0 - 203 0.96773685E-04 0 200 125 131 0 0 - 203 0.33153844E-03 0 200 2 8 0 0 - 203 0.33153844E-03 0 200 4 10 0 0 - 203 0.42710319E-03 0 200 1 7 0 0 - 203 0.42710319E-03 0 200 3 9 0 0 - 203 0.42710319E-03 0 200 5 11 0 0 - 16 - 204 0.20897391E-03 0 123 129 0 0 0 - 204 0.59849538E-01 0 125 131 0 0 0 - 204 0.24630432E-02 0 3 9 0 0 0 - 204 0.79029417E+00 0 5 11 0 0 0 - 204 0.11621310E+00 0 6 12 0 0 0 - 204 0.18747861E-03 0 13 13 0 0 0 - 204 0.10610422E-02 0 198 199 0 0 0 - 204 0.51321380E-03 0 200 200 0 0 0 - 204 0.61240462E-02 0 450 450 0 0 0 - 204 0.18912423E-01 0 450 451 0 0 0 - 204 0.54971856E-03 0 451 451 0 0 0 - 204 0.13975571E-02 0 454 456 0 0 0 - 204 0.16072226E-02 0 203 203 0 0 0 - 204 0.32726126E-04 0 437 443 0 0 0 - 204 0.32757438E-04 0 439 445 0 0 0 - 204 0.55295188E-03 0 429 435 0 0 0 - 12 - 205 0.18865766E-03 0 123 129 0 0 0 - 205 0.54033298E-01 0 125 131 0 0 0 - 205 0.22236253E-02 0 3 9 0 0 0 - 205 0.71374947E+00 0 5 11 0 0 0 - 205 0.14826368E+00 0 6 12 0 0 0 - 205 0.15861224E-03 0 13 13 0 0 0 - 205 0.91404784E-02 0 450 450 0 0 0 - 205 0.47978062E-01 0 450 451 0 0 0 - 205 0.21792423E-01 0 451 451 0 0 0 - 205 0.13656162E-02 0 454 456 0 0 0 - 205 0.86055516E-03 0 203 200 0 0 0 - 205 0.24551654E-03 0 429 435 0 0 0 - 7 - 206 0.24401299E-03 0 124 129 0 0 0 - 206 0.69887616E-01 0 126 131 0 0 0 - 206 0.26341393E-02 0 4 9 0 0 0 - 206 0.84759015E+00 0 6 11 0 0 0 - 206 0.78338034E-01 0 454 450 0 0 0 - 206 0.13714211E-03 0 454 451 0 0 0 - 206 0.11689055E-02 0 203 198 0 0 0 - 7 - 207 0.24401299E-03 0 130 123 0 0 0 - 207 0.69887616E-01 0 132 125 0 0 0 - 207 0.26341393E-02 0 10 3 0 0 0 - 207 0.84759015E+00 0 12 5 0 0 0 - 207 0.78338034E-01 0 456 450 0 0 0 - 207 0.13714211E-03 0 456 451 0 0 0 - 207 0.11689055E-02 0 203 199 0 0 0 - 0 - 5 - 6 0.33333334E+00 100 2 7 5 0 0 - 6 0.33333334E+00 100 4 9 5 0 0 - 6 0.11111110E+00 100 122 127 5 0 0 - 6 0.11111110E+00 100 124 129 5 0 0 - 6 0.11111110E+00 100 126 131 5 0 0 - 5 - 12 0.33333334E+00 100 8 1 11 0 0 - 12 0.33333334E+00 100 10 3 11 0 0 - 12 0.11111110E+00 100 128 121 11 0 0 - 12 0.11111110E+00 100 130 123 11 0 0 - 12 0.11111110E+00 100 132 125 11 0 0 - 9.71082973 -0.10895976 - 0.99189180 -0.03281658 0.11385520 -0.04594250 - -0.06795013 -0.95150322 0.25201967 -0.16282038 - 0.04532100 -0.06740447 -0.70039904 -0.70911485 - -0.09736235 0.29836449 0.65800017 -0.68449628 - -0.97185177 0.23559318 -0.23559318 -0.97185177 - -0.93156815 0.36356679 -0.36356679 -0.93156815 - -1.07164252 -0.22134325 -1.37740076 - -659.82702637 284.82598877 -323.60800171 - 462.50100708 - F - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.29154500E-01 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 - 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 diff --git a/GeneratorInterface/Herwig6Interface/test/testHerwig6_cfg.py b/GeneratorInterface/Herwig6Interface/test/testHerwig6_cfg.py deleted file mode 100644 index 06e6d171f6592..0000000000000 --- a/GeneratorInterface/Herwig6Interface/test/testHerwig6_cfg.py +++ /dev/null @@ -1,69 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -process = cms.Process('Test') - -process.load('Configuration.StandardSequences.Services_cff') -process.load('FWCore.MessageService.MessageLogger_cfi') - -process.maxEvents = cms.untracked.PSet(input = cms.untracked.int32(500)) - -process.source = cms.Source("EmptySource") - -process.generator = cms.EDFilter("Herwig6GeneratorFilter", - comEnergy = cms.double(10000.0), - useJimmy = cms.bool(True), - doMPInteraction = cms.bool(True), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(0), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(0), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), - - emulatePythiaStatusCodes = cms.untracked.bool(True), - - HerwigParameters = cms.PSet( - parameterSets = cms.vstring( - 'jimmyUESettings', - 'herwigHZZ4mu' -# 'herwigQCDjets' - ), - jimmyUESettings = cms.vstring( - 'JMUEO = 1 ! multiparton interaction model', - 'PTJIM = 4.449 ! 2.8x(sqrt(s)/1.8TeV)^0.27 @ 10 TeV', - 'JMRAD(73) = 1.8 ! inverse proton radius squared', - 'PRSOF = 0.0 ! prob. of a soft underlying event' - ), - herwigHZZ4mu = cms.vstring( - 'RMASS(201) = 175 ! Mass of the Higgs boson', - 'IPROC = 1611 ! Process gg -> H -> ZZ', - 'MODBOS(1) = 3 ! enforde first Z -> mumu', - 'MODBOS(2) = 3 ! enforce second Z -> mumu', - 'MODPDF(1) = 20060 ! PDF set according to LHAGLUE', - 'MODPDF(2) = 20060 ! MRST2001LO', - 'PTJIM = 2.5', - 'PTMIN = 2.5' - ), - herwigQCDjets = cms.vstring( - 'IPROC = 2505 ! QCD 2->2 processes', - 'PTMIN = 80. ! minimum pt in hadronic jet', - 'MODPDF(1) = 10041 ! PDF set according to LHAGLUE', - 'MODPDF(2) = 10041 ! CTEQ6L', - ) - ) -) - -process.ProductionFilterSequence = cms.Sequence(process.generator) - -process.generation_step = cms.Path(process.ProductionFilterSequence) - -process.output = cms.OutputModule("PoolOutputModule", - fileName = cms.untracked.string('herwigHZZ4mu.root'), - SelectEvents = cms.untracked.PSet( - SelectEvents = cms.vstring('generation_step') - ) -) - -process.output_step = cms.EndPath(process.output) diff --git a/GeneratorInterface/Herwig6Interface/test/testHerwig6_externalParticleSpecFile_cfg.py b/GeneratorInterface/Herwig6Interface/test/testHerwig6_externalParticleSpecFile_cfg.py deleted file mode 100644 index 8d706e5e47b1d..0000000000000 --- a/GeneratorInterface/Herwig6Interface/test/testHerwig6_externalParticleSpecFile_cfg.py +++ /dev/null @@ -1,61 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -process = cms.Process('Test') - -process.load('Configuration.StandardSequences.Services_cff') -process.load('FWCore.MessageService.MessageLogger_cfi') - -process.maxEvents = cms.untracked.PSet(input = cms.untracked.int32(10)) - -process.source = cms.Source("EmptySource") - -process.generator = cms.EDFilter("Herwig6GeneratorFilter", - comEnergy = cms.double(7000.0), - useJimmy = cms.bool(True), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(0), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(1), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), - - emulatePythiaStatusCodes = cms.untracked.bool(True), - - ParticleSpectrumFileName = cms.untracked.string('GeneratorInterface/Herwig6Interface/test/softsusy317_isajet764_LM5_GUTlp211eq0.01.hw65'), - readParticleSpecFile = cms.untracked.bool(True), - - HerwigParameters = cms.PSet( - parameterSets = cms.vstring( - 'jimmyCMSdefault7TeV', - 'softsusyIsajetRPV' - ), - jimmyCMSdefault7TeV = cms.vstring( - 'MODPDF(1) = 10041 ! PDF set according to LHAGLUE', - 'MODPDF(2) = 10041 ! CTEQ6L', - 'JMUEO = 1 ! multiparton interaction model', - 'PTJIM = 4.040 ! 2.8x(sqrt(s)/1.8TeV)^0.27 @ 7 TeV', - 'JMRAD(73) = 1.8 ! inverse proton radius squared', - 'PRSOF = 0.0 ! prob. of a soft underlying event' - ), - softsusyIsajetRPV = cms.vstring( - 'IPROC = 4000 !resonant RPV slepton production (4010-50)', - ) - ) -) - -process.ProductionFilterSequence = cms.Sequence(process.generator) - -process.generation_step = cms.Path(process.ProductionFilterSequence) - -process.output = cms.OutputModule("PoolOutputModule", - #fileName = cms.untracked.string('herwigHZZ4mu.root'), - fileName = cms.untracked.string('softsusyIsajetRPV.root'), - SelectEvents = cms.untracked.PSet( - SelectEvents = cms.vstring('generation_step') - ) -) - -process.output_step = cms.EndPath(process.output) diff --git a/GeneratorInterface/Herwig6Interface/test/testHerwig6_lhe_cfg.py b/GeneratorInterface/Herwig6Interface/test/testHerwig6_lhe_cfg.py deleted file mode 100644 index 399a6d5dd6920..0000000000000 --- a/GeneratorInterface/Herwig6Interface/test/testHerwig6_lhe_cfg.py +++ /dev/null @@ -1,71 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -process = cms.Process('Test') - -process.load('Configuration.StandardSequences.Services_cff') -process.load('FWCore.MessageService.MessageLogger_cfi') - -process.maxEvents = cms.untracked.PSet(input = cms.untracked.int32(500)) - -process.source = cms.Source("LHESource", - fileNames = cms.untracked.vstring("file:ttbar_5flavours_xqcut20_10TeV.lhe") -) - -process.generator = cms.EDFilter("Herwig6HadronizerFilter", - comEnergy = cms.double(10000.0), - useJimmy = cms.bool(True), - doMPInteraction = cms.bool(True), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(0), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(0), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), - - emulatePythiaStatusCodes = cms.untracked.bool(True), - - HerwigParameters = cms.PSet( - parameterSets = cms.vstring( - 'jimmyUESettings', - 'herwigHZZ4mu' -# 'herwigQCDjets' - ), - jimmyUESettings = cms.vstring( - 'JMUEO = 1 ! multiparton interaction model', - 'PTJIM = 4.449 ! 2.8x(sqrt(s)/1.8TeV)^0.27 @ 10 TeV', - 'JMRAD(73) = 1.8 ! inverse proton radius squared', - 'PRSOF = 0.0 ! prob. of a soft underlying event' - ), - herwigHZZ4mu = cms.vstring( - 'RMASS(201) = 175 ! Mass of the Higgs boson', - 'IPROC = 1611 ! Process gg -> H -> ZZ', - 'MODBOS(1) = 3 ! enforde first Z -> mumu', - 'MODBOS(2) = 3 ! enforce second Z -> mumu', - 'MODPDF(1) = 20060 ! PDF set according to LHAGLUE', - 'MODPDF(2) = 20060 ! MRST2001LO', - 'PTJIM = 2.5', - 'PTMIN = 2.5' - ), - herwigQCDjets = cms.vstring( - 'IPROC = 2505 ! QCD 2->2 processes', - 'PTMIN = 80. ! minimum pt in hadronic jet', - 'MODPDF(1) = 10041 ! PDF set according to LHAGLUE', - 'MODPDF(2) = 10041 ! CTEQ6L', - ) - ) -) - -process.ProductionFilterSequence = cms.Sequence(process.generator) - -process.generation_step = cms.Path(process.ProductionFilterSequence) - -process.output = cms.OutputModule("PoolOutputModule", - fileName = cms.untracked.string('herwigHZZ4mu.root'), - SelectEvents = cms.untracked.PSet( - SelectEvents = cms.vstring('generation_step') - ) -) - -process.output_step = cms.EndPath(process.output) diff --git a/GeneratorInterface/Herwig6Interface/test/testaMCatNLOTTW.py b/GeneratorInterface/Herwig6Interface/test/testaMCatNLOTTW.py deleted file mode 100644 index 20fefd0ca8913..0000000000000 --- a/GeneratorInterface/Herwig6Interface/test/testaMCatNLOTTW.py +++ /dev/null @@ -1,118 +0,0 @@ -# Auto generated configuration file -# using: -# Revision: 1.381.2.11 -# Source: /local/reps/CMSSW/CMSSW/Configuration/PyReleaseValidation/python/ConfigBuilder.py,v -# with command line options: Hadronizer_WWTo2L2Nu_mcatnlo_herwig6_8TeV_cff.py -s GEN --conditions=auto:mc --no_exec -import FWCore.ParameterSet.Config as cms - -process = cms.Process('GEN') - -# import of standard configurations -process.load('Configuration.StandardSequences.Services_cff') -process.load('SimGeneral.HepPDTESSource.pythiapdt_cfi') -process.load('FWCore.MessageService.MessageLogger_cfi') -process.load('Configuration.EventContent.EventContent_cff') -process.load('SimGeneral.MixingModule.mixNoPU_cfi') -process.load('Configuration.StandardSequences.GeometryRecoDB_cff') -process.load('Configuration.StandardSequences.MagneticField_38T_cff') -process.load('Configuration.StandardSequences.Generator_cff') -process.load('IOMC.EventVertexGenerators.VtxSmearedRealistic8TeVCollision_cfi') -process.load('GeneratorInterface.Core.genFilterSummary_cff') -process.load('Configuration.StandardSequences.EndOfProcess_cff') -process.load('Configuration.StandardSequences.FrontierConditions_GlobalTag_cff') - -process.maxEvents = cms.untracked.PSet( - input = cms.untracked.int32(-1) -) - -process.source = cms.Source("LHESource", - fileNames = cms.untracked.vstring('/store/lhe/7932/8TeV_ttbarWaMCatNLO_events.lhe'), -# fileNames = cms.untracked.vstring('file:/tmp/spadhi/8TeV_ttbarWaMCatNLO_events.lhe'), - firstRun = cms.untracked.uint32(1), - firstLuminosityBlock = cms.untracked.uint32(1), - skipEvents = cms.untracked.uint32(0), -) - - -process.options = cms.untracked.PSet( - -) - -process.generator = cms.EDFilter("Herwig6HadronizerFilter", - comEnergy = cms.double(8000.0), - crossSection = cms.untracked.double(0.1835), - doMPInteraction = cms.bool(False), - emulatePythiaStatusCodes = cms.untracked.bool(True), - filterEfficiency = cms.untracked.double(1.0), - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(0), - lhapdfSetPath = cms.untracked.string(''), - maxEventsToPrint = cms.untracked.int32(3), - printCards = cms.untracked.bool(False), - useJimmy = cms.bool(False), - doMatching = cms.untracked.bool(False), - nMatch = cms.untracked.int32(0), - inclusiveMatching = cms.untracked.bool(True), - matchingScale = cms.untracked.double(0.0), - ExternalDecays = cms.PSet( - Photos = cms.untracked.PSet(), - parameterSets = cms.vstring( "Photos" ) - ), - - HerwigParameters = cms.PSet( - herwigUEsettings = cms.vstring( - 'JMUEO = 1 ! multiparton interaction model', - 'PTJIM = 4.189 ! 2.8x(sqrt(s)/1.8TeV)^0.27 @ 8 TeV', - 'JMRAD(73) = 1.8 ! inverse proton radius squared', - 'PRSOF = 0.0 ! prob. of a soft underlying event', - 'MAXER = 1000000 ! max error' - ), - herwigMcatnlo = cms.vstring( - 'PTMIN = 0.5 ! minimum pt in hadronic jet', - 'IPROC = -18000 ! proc should be -ve', - 'MODPDF(1) = 194800 ! pdf set 1', - 'MODPDF(2) = 194800 ! pdf set 2' - ), - parameterSets = cms.vstring('herwigUEsettings', - 'herwigMcatnlo') - ) -) - -# Production Info -process.configurationMetadata = cms.untracked.PSet( - version = cms.untracked.string('$Revision: 1.3 $'), - annotation = cms.untracked.string('Hadronizer_WWTo2L2Nu_mcatnlo_herwig6_8TeV_cff.py nevts:1'), - name = cms.untracked.string('PyReleaseValidation') -) - -# Output definition - -process.RECOSIMoutput = cms.OutputModule("PoolOutputModule", - splitLevel = cms.untracked.int32(0), - eventAutoFlushCompressedSize = cms.untracked.int32(5242880), - outputCommands = process.RECOSIMEventContent.outputCommands, - fileName = cms.untracked.string('file:output.root'), - dataset = cms.untracked.PSet( - filterName = cms.untracked.string(''), - dataTier = cms.untracked.string('') - ), - SelectEvents = cms.untracked.PSet( - SelectEvents = cms.vstring('generation_step') - ) -) - -# Additional output definition -# Other statements -process.genstepfilter.triggerConditions=cms.vstring("generation_step") -from Configuration.AlCa.GlobalTag import GlobalTag -process.GlobalTag = GlobalTag(process.GlobalTag, 'auto:mc', '') - -# Path and EndPath definitions -process.generation_step = cms.Path(process.generator*process.pgen) -process.genfiltersummary_step = cms.EndPath(process.genFilterSummary) -process.endjob_step = cms.EndPath(process.endOfProcess) -process.RECOSIMoutput_step = cms.EndPath(process.RECOSIMoutput) - -# Schedule definition -process.schedule = cms.Schedule(process.generation_step,process.genfiltersummary_step,process.endjob_step,process.RECOSIMoutput_step) - diff --git a/GeneratorInterface/Herwig6Interface/test/testaMCatNLO_H0jet.py b/GeneratorInterface/Herwig6Interface/test/testaMCatNLO_H0jet.py deleted file mode 100644 index c81c102dc9238..0000000000000 --- a/GeneratorInterface/Herwig6Interface/test/testaMCatNLO_H0jet.py +++ /dev/null @@ -1,119 +0,0 @@ -# Auto generated configuration file -# using: -# Revision: 1.381.2.11 -# Source: /local/reps/CMSSW/CMSSW/Configuration/PyReleaseValidation/python/ConfigBuilder.py,v -# with command line options: Hadronizer_WWTo2L2Nu_mcatnlo_herwig6_8TeV_cff.py -s GEN --conditions=auto:mc --no_exec -import FWCore.ParameterSet.Config as cms - -process = cms.Process('GEN') - -# import of standard configurations -process.load('Configuration.StandardSequences.Services_cff') -process.load('SimGeneral.HepPDTESSource.pythiapdt_cfi') -process.load('FWCore.MessageService.MessageLogger_cfi') -process.load('Configuration.EventContent.EventContent_cff') -process.load('SimGeneral.MixingModule.mixNoPU_cfi') -process.load('Configuration.StandardSequences.GeometryRecoDB_cff') -process.load('Configuration.StandardSequences.MagneticField_38T_cff') -process.load('Configuration.StandardSequences.Generator_cff') -process.load('IOMC.EventVertexGenerators.VtxSmearedRealistic8TeVCollision_cfi') -process.load('GeneratorInterface.Core.genFilterSummary_cff') -process.load('Configuration.StandardSequences.EndOfProcess_cff') -process.load('Configuration.StandardSequences.FrontierConditions_GlobalTag_cff') - -process.maxEvents = cms.untracked.PSet( - input = cms.untracked.int32(200) -) - -process.source = cms.Source("LHESource", - fileNames = cms.untracked.vstring('/store/lhe/7945/h0j_MT.events_clean.lhe'), - firstRun = cms.untracked.uint32(1), - firstLuminosityBlock = cms.untracked.uint32(1), - skipEvents = cms.untracked.uint32(0), -) - - -process.options = cms.untracked.PSet( - -) - -process.generator = cms.EDFilter("Herwig6HadronizerFilter", - comEnergy = cms.double(8000.0), - crossSection = cms.untracked.double(-1), - doMPInteraction = cms.bool(True), - emulatePythiaStatusCodes = cms.untracked.bool(True), - filterEfficiency = cms.untracked.double(1.0), - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - lhapdfSetPath = cms.untracked.string(''), - maxEventsToPrint = cms.untracked.int32(3), - printCards = cms.untracked.bool(False), - useJimmy = cms.bool(True), - doMatching = cms.untracked.bool(True), - nMatch = cms.untracked.int32(0), - inclusiveMatching = cms.untracked.bool(False), - matchingScale = cms.untracked.double(50.0), - ExternalDecays = cms.PSet( - Photos = cms.untracked.PSet(), - parameterSets = cms.vstring( "Photos" ) - ), - - HerwigParameters = cms.PSet( - herwigUEsettings = cms.vstring( - 'JMUEO = 2 ! multiparton interaction model', - 'PTJIM = 4.189 ! 2.8x(sqrt(s)/1.8TeV)^0.27 @ 8 TeV', - 'JMRAD(73) = 1.8 ! inverse proton radius squared', - 'PRSOF = 0.0 ! prob. of a soft underlying event', - 'MAXER = 1000000 ! max error' - ), - herwigMcatnlo = cms.vstring( - 'IPROC = -1612 ! Higgs to diphoton in this case', - 'PTMIN = 0.5 ! minimum pt in hadronic jet', - 'MODPDF(1) = 21100 ! pdf set 1', - 'MODPDF(2) = 21100 ! pdf set 2', - 'RMASS(201) = 125.' - ), - parameterSets = cms.vstring('herwigUEsettings', - 'herwigMcatnlo') - ) -) - -# Production Info -process.configurationMetadata = cms.untracked.PSet( - version = cms.untracked.string('$Revision: 1.381.2.11 $'), - annotation = cms.untracked.string('Hadronizer_WWTo2L2Nu_mcatnlo_herwig6_8TeV_cff.py nevts:1'), - name = cms.untracked.string('PyReleaseValidation') -) - -# Output definition - -process.RECOSIMoutput = cms.OutputModule("PoolOutputModule", - splitLevel = cms.untracked.int32(0), - eventAutoFlushCompressedSize = cms.untracked.int32(5242880), - outputCommands = process.RECOSIMEventContent.outputCommands, - fileName = cms.untracked.string('file:output.root'), - dataset = cms.untracked.PSet( - filterName = cms.untracked.string(''), - dataTier = cms.untracked.string('') - ), - SelectEvents = cms.untracked.PSet( - SelectEvents = cms.vstring('generation_step') - ) -) - -# Additional output definition - -# Other statements -process.genstepfilter.triggerConditions=cms.vstring("generation_step") -from Configuration.AlCa.GlobalTag import GlobalTag -process.GlobalTag = GlobalTag(process.GlobalTag, 'auto:mc', '') - -# Path and EndPath definitions -process.generation_step = cms.Path(process.generator*process.pgen) -process.genfiltersummary_step = cms.EndPath(process.genFilterSummary) -process.endjob_step = cms.EndPath(process.endOfProcess) -process.RECOSIMoutput_step = cms.EndPath(process.RECOSIMoutput) - -# Schedule definition -process.schedule = cms.Schedule(process.generation_step,process.genfiltersummary_step,process.endjob_step,process.RECOSIMoutput_step) - diff --git a/GeneratorInterface/Herwig6Interface/test/ttbar_5flavours_xqcut20_10TeV.lhe b/GeneratorInterface/Herwig6Interface/test/ttbar_5flavours_xqcut20_10TeV.lhe deleted file mode 100644 index e30f9b946526c..0000000000000 --- a/GeneratorInterface/Herwig6Interface/test/ttbar_5flavours_xqcut20_10TeV.lhe +++ /dev/null @@ -1,1543 +0,0 @@ - -
- - -# MG/ME version : 4.2.9 -# madgraph version : 4.2.5 -# template version : 2.2.3 -# helas version : 3.3 -# model version : sm_1.1 - - -#********************************************************************* -# MadGraph/MadEvent * -# http://madgraph.hep.uiuc.edu * -# * -# proc_card.dat * -# * -# This file is used to generate the code for a specific process. * -# Some notation/conventions: * -# * -# 0. Do not modify the TAGS and their order. * -# 1. hash/pound is a comment. * -# 2. The charcter after the @ is used as an identifier for the class * -# of processes. It can be a single or a digit. * -# 3. The number of lines for the max couplings depends on how many * -# different classes of couplings are present in the model * -# In the SM these are just two: QED (which include EW) and QCD * -# 4. Write "end_coup" after the couplings list, * -# to tell MG that the couplings input is over. * -# 5. Write "done" after the proc list to * -# to tell MG that the proc input is over. * -# 6. Some model names available at present are: * -# sm = Standard Model * -# sm_ckm = Standard Model with Cabibbo matrix * -# mssm = Minimal Supersymmetric Standard Model * -# 2hdm = Generic Two Higgs Doublet model * -# heft = Higgs EFT (+Standard Model) * -# usrmod = User Model * -# 7. Don't leave spaces between the particles name in the * -# definition of the multiparticles. * -#********************************************************************* -#********************************************************************* -# Process(es) requested : mg2 input * -#********************************************************************* -# Begin PROCESS # This is TAG. Do not modify this line -pp>tt~ @0 # Process -QCD=2 # max qcd order -QED=0 # max qed order -end_coup # the coupling list is over -pp>tt~j @1 # Process -QCD=3 # max qcd order -QED=0 # max qed order -end_coup # the coupling list is over -pp>tt~jj @2 # Process -QCD=4 # max qcd order -QED=0 # max qed order -end_coup # the coupling list is over -pp>tt~jjj @3 # Process -QCD=5 # max qcd order -QED=0 # max qed order -end_coup # the coupling list is over -done # the process list is over -# End PROCESS # This is TAG. Do not modify this line -#********************************************************************* -# Model information * -#********************************************************************* -# Begin MODEL # This is TAG. Do not modify this line -smzerobmass -# End MODEL # This is TAG. Do not modify this line -#********************************************************************* -# Start multiparticle definitions * -#********************************************************************* -# Begin MULTIPARTICLES # This is TAG. Do not modify this line -p uu~dd~ss~cc~bb~g -j uu~dd~ss~cc~bb~g -l+ e+mu+ -l- e-mu- -vl vevm -vl~ ve~vm~ -# End MULTIPARTICLES # This is TAG. Do not modify this line - - -#****************************************************************** -# MadGraph/MadEvent * -#****************************************************************** -# Les Houches friendly file for the SM parameters of MadGraph * -# Spectrum and decay widths produced by SMCalc * -#****************************************************************** -#*Please note the following IMPORTANT issues: * -# * -#0. REFRAIN from editing this file by hand! Some of the parame- * -# ters are not independent * -# (such as G_Fermi, alpha_em, sin(theta_W),MZ,MW) and serious * -# problems might be encountered (such as violation of unitarity * -# or gauge invariance). Always use a calculator. * -# * -#1. alpha_S(MZ) has been used in the calculation of the parameters* -# but, for consistency, it will be reset by madgraph to the * -# value expected IF the pdfs for collisions with hadrons are * -# used. This value is KEPT by madgraph when no pdf are used * -# lpp(i)=0 . * -# * -#2. Values of the charm and bottom kinematic (pole) masses are * -# those used in the matrix elements and phase space UNLESS they * -# are set to ZERO from the start in the model (particles.dat) * -# This happens, for example, when using 5-flavor QCD where * -# charm and bottom are treated as partons in the initial state * -# and a zero mass might be hardwired in the model definition. * -# * -#****************************************************************** -Block SMINPUTS # Standard Model inputs - 1 1.32350785E+02 # alpha_em(MZ)(-1) SM MSbar - 2 1.16639000E-05 # G_Fermi - 3 1.18000000E-01 # alpha_s(MZ) SM MSbar - 4 9.11880000E+01 # Z mass (as input parameter) -Block MGYUKAWA # Yukawa masses m/v=y/sqrt(2) -# PDG YMASS - 5 4.20000000E+00 # mbottom for the Yukawa y_b - 4 1.42000000E+00 # mcharm for the Yukawa y_c - 6 1.64500000E+02 # mtop for the Yukawa y_t - 15 1.77700000E+00 # mtau for the Yukawa y_ta -Block MGCKM # CKM elements for MadGraph - 1 1 9.75000000E-01 # Vud for Cabibbo matrix -Block MASS # Mass spectrum (kinematic masses) -# PDG Mass - 5 4.70000000E+00 # bottom pole mass - 6 1.70900000E+02 # top pole mass - 15 1.77700000E+00 # tau mass - 23 9.11880000E+01 # Z mass - 24 8.04000000E+01 # W mass - 25 1.20000000E+02 # H mass -# PDG Width -DECAY 6 1.40736322E+00 # top width -DECAY 23 2.44041149E+00 # Z width -DECAY 24 2.04614832E+00 # W width -DECAY 25 5.75450381E-03 # H width -# BR NDA ID1 ID2 - 8.27247499E-02 2 4 -4 # BR( H -> c cbar ) - 7.17633150E-01 2 5 -5 # BR( H -> b bbar ) - 0.00000000E+00 2 6 -6 # BR( H -> t tbar ) - 4.31613962E-02 2 15 -15 # BR( H -> tau- tau+) - 6.90147194E-03 2 23 23 # BR( H -> Z Z^(*)) - 7.47460022E-02 2 24 -24 # BR( H -> W W^(*)) - 3.02414236E-02 2 21 21 # BR( H -> g g ) - 1.43040946E-03 2 22 22 # BR( H -> A A ) - - -#********************************************************************* -# MadGraph/MadEvent * -# http://madgraph.hep.uiuc.edu * -# * -# run_card.dat * -# * -# This file is used to set the parameters of the run. * -# * -# Some notation/conventions: * -# * -# Lines starting with a '# ' are info or comments * -# * -# mind the format: value = variable ! comment * -#********************************************************************* -# -#******************* -# Running parameters -#******************* -# -#********************************************************************* -# Tag name for the run (one word) * -#********************************************************************* - 'fermi' = run_tag ! name of the run -#********************************************************************* -# Run to generate the grid pack * -#********************************************************************* - .true. = gridpack !True = setting up the grid pack -#********************************************************************* -# Number of events and rnd seed * -#********************************************************************* - 10000 = nevents ! Number of unweighted events requested - 153 = iseed ! rnd seed (0=assigned automatically=default)) -#********************************************************************* -# Collider type and energy * -#********************************************************************* - 1 = lpp1 ! beam 1 type (0=NO PDF) - 1 = lpp2 ! beam 2 type (0=NO PDF) - 5000 = ebeam1 ! beam 1 energy in GeV - 5000 = ebeam2 ! beam 2 energy in GeV -#********************************************************************* -# Beam polarization from -100 (left-handed) to 100 (right-handed) * -#********************************************************************* - 0 = polbeam1 ! beam polarization for beam 1 - 0 = polbeam2 ! beam polarization for beam 2 -#********************************************************************* -# PDF CHOICE: this automatically fixes also alpha_s and its evol. * -#********************************************************************* - 'cteq6l1' = pdlabel ! PDF set -#********************************************************************* -# Renormalization and factorization scales * -#********************************************************************* - F = fixed_ren_scale ! if .true. use fixed ren scale - F = fixed_fac_scale ! if .true. use fixed fac scale - 91.1880 = scale ! fixed ren scale - 91.1880 = dsqrt_q2fact1 ! fixed fact scale for pdf1 - 91.1880 = dsqrt_q2fact2 ! fixed fact scale for pdf2 - 1 = scalefact ! scale factor for event-by-event scales -#********************************************************************* -# Matching - Warning! ickkw > 0 is still beta -#********************************************************************* - 1 = ickkw ! 0 no matching, 1 MLM, 2 CKKW matching -#********************************************************************* -# -#********************************** -# BW cutoff (M+/-bwcutoff*Gamma) -#********************************** - 5 = bwcutoff -#******************* -# Standard Cuts -#******************* -# -#********************************************************************* -# Minimum and maximum pt's * -#********************************************************************* - 20 = ptj ! minimum pt for the jets - 20 = ptb ! minimum pt for the b - 0 = pta ! minimum pt for the photons - 0 = ptl ! minimum pt for the charged leptons - 0 = misset ! minimum missing Et (sum of neutrino's momenta) - 0 = ptheavy ! minimum pt for one heavy final state - 1d5 = ptjmax ! maximum pt for the jets - 1d5 = ptbmax ! maximum pt for the b - 1d5 = ptamax ! maximum pt for the photons - 1d5 = ptlmax ! maximum pt for the charged leptons - 1d5 = missetmax ! maximum missing Et (sum of neutrino's momenta) -#********************************************************************* -# Minimum and maximum E's (in the lab frame) * -#********************************************************************* - 0 = ej ! minimum E for the jets - 0 = eb ! minimum E for the b - 0 = ea ! minimum E for the photons - 0 = el ! minimum E for the charged leptons - 1d5 = ejmax ! maximum E for the jets - 1d5 = ebmax ! maximum E for the b - 1d5 = eamax ! maximum E for the photons - 1d5 = elmax ! maximum E for the charged leptons -#********************************************************************* -# Maximum and minimum rapidity * -#********************************************************************* - 5d0 = etaj ! max rap for the jets - 5d0 = etab ! max rap for the b - 2d5 = etaa ! max rap for the photons - 2d5 = etal ! max rap for the charged leptons - 0d0 = etajmin ! min rap for the jets - 0d0 = etabmin ! min rap for the b - 0d0 = etaamin ! min rap for the photons - 0d0 = etalmin ! main rap for the charged leptons -#********************************************************************* -# Minimum and maximum DeltaR distance * -#********************************************************************* - 0.001 = drjj ! min distance between jets - 0.001 = drbb ! min distance between b's - 0 = drll ! min distance between leptons - 0 = draa ! min distance between gammas - 0.001 = drbj ! min distance between b and jet - 0 = draj ! min distance between gamma and jet - 0 = drjl ! min distance between jet and lepton - 0 = drab ! min distance between gamma and b - 0 = drbl ! min distance between b and lepton - 0 = dral ! min distance between gamma and lepton - 1d2 = drjjmax ! max distance between jets - 1d2 = drbbmax ! max distance between b's - 1d2 = drllmax ! max distance between leptons - 1d2 = draamax ! max distance between gammas - 1d2 = drbjmax ! max distance between b and jet - 1d2 = drajmax ! max distance between gamma and jet - 1d2 = drjlmax ! max distance between jet and lepton - 1d2 = drabmax ! max distance between gamma and b - 1d2 = drblmax ! max distance between b and lepton - 1d2 = dralmax ! maxdistance between gamma and lepton -#********************************************************************* -# Minimum and maximum invariant mass for pairs * -#********************************************************************* - 0 = mmjj ! min invariant mass of a jet pair - 0 = mmbb ! min invariant mass of a b pair - 0 = mmaa ! min invariant mass of gamma gamma pair - 0 = mmll ! min invariant mass of l+l- (same flavour) lepton pair - 1d5 = mmjjmax ! max invariant mass of a jet pair - 1d5 = mmbbmax ! max invariant mass of a b pair - 1d5 = mmaamax ! max invariant mass of gamma gamma pair - 1d5 = mmllmax ! max invariant mass of l+l- (same flavour) lepton pair -#********************************************************************* -# Minimum and maximum invariant mass for all letpons * -#********************************************************************* - 0 = mmnl ! min invariant mass for all letpons (l+- and vl) - 1d5 = mmnlmax ! max invariant mass for all letpons (l+- and vl) -#********************************************************************* -# Inclusive cuts * -#********************************************************************* - 0 = xptj ! minimum pt for at least one jet - 0 = xptb ! minimum pt for at least one b - 0 = xpta ! minimum pt for at least one photon - 0 = xptl ! minimum pt for at least one charged lepton -#********************************************************************* -# Control the pt's of the jets sorted by pt * -#********************************************************************* - 0 = ptj1min ! minimum pt for the leading jet in pt - 0 = ptj2min ! minimum pt for the second jet in pt - 0 = ptj3min ! minimum pt for the third jet in pt - 0 = ptj4min ! minimum pt for the fourth jet in pt - 1d5 = ptj1max ! maximum pt for the leading jet in pt - 1d5 = ptj2max ! maximum pt for the second jet in pt - 1d5 = ptj3max ! maximum pt for the third jet in pt - 1d5 = ptj4max ! maximum pt for the fourth jet in pt - 0 = cutuse ! reject event if fails any (0) / all (1) jet pt cuts -#********************************************************************* -# Control the Ht(k)=Sum of k leading jets * -#********************************************************************* - 0 = htjmin ! minimum jet HT=Sum(jet pt) - 1d5 = htjmax ! maximum jet HT=Sum(jet pt) - 0 = ht2min ! minimum Ht for the two leading jets - 0 = ht3min ! minimum Ht for the three leading jets - 0 = ht4min ! minimum Ht for the four leading jets - 1d5 = ht2max ! maximum Ht for the two leading jets - 1d5 = ht3max ! maximum Ht for the three leading jets - 1d5 = ht4max ! maximum Ht for the four leading jets -#********************************************************************* -# WBF cuts * -#********************************************************************* - 0 = xetamin ! minimum rapidity for two jets in the WBF case - 0 = deltaeta ! minimum rapidity for two jets in the WBF case -#********************************************************************* -# maximal pdg code for quark to be considered as a jet * -# otherwise b cuts are applied * -#********************************************************************* - 5 = maxjetflavor -#********************************************************************* -# Jet measure cuts * -#********************************************************************* - 20 = xqcut ! minimum kt jet measure between partons -#********************************************************************* - - -#********************************************************************* -# MadGraph/MadEvent * -# http://madgraph.hep.uiuc.edu * -# * -# grid_card.dat * -# * -# This file is used to set the parameters of the run. * -# * -# Some notation/conventions: * -# * -# Lines starting with a '# ' are info or comments * -# * -# mind the format: value = variable ! comment * -#********************************************************************* -# -#******************* -# Running parameters -#******************* -# -#********************************************************************* -# Tell if this is a grid run or not, false during warm-up on the * -# cluster, automatically set to true after warm-up and the gridpack * -# is ready. The user should not change this. * -#********************************************************************* - .true. = GridRun !True = Runs in the grid mode -#********************************************************************* -# Number of events and rnd seed * -#********************************************************************* - 20 = gevents ! Number of unweighted events requested - 50 = gseed ! rnd seed - -1 = ngran ! Granularity (minimum # events per channel) -#********************************************************************* - - -# Number of Events : 122 -# Integrated weight (pb) : .14755E+04 -# Max wgt : .73264E+00 -# Average wgt : .12094E+02 - - -# All parameters that are given here can be selected to be set from this -# header by setting the # corresponding CMSSW config parameter to -1 -# In case this is done, the entries here must exist of an error message -# is given. - 0 = minjets ! Smallest number of additional light flavour jets - 3 = maxjets ! Largest number (inclusive ktMLM matching multipl.) - -
- - 2212 2212 0.50000000000E+04 0.50000000000E+04 0 0 10042 10042 3 3 - 0.16932125000E+03 0.17343934426E+00 0.73263561074E+00 0 - 0.87079500000E+03 0.89197377049E+00 0.73263561074E+00 1 - 0.43539750000E+03 0.44598688525E+00 0.73263561074E+00 2 - - - 5 1 0.1000000E+01 0.1726545E+03 0.7555679E-02 0.1180465E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.18688742027E+03 0.18688742027E+03 0.00000000000E+00 0. 1. - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.59850702019E+03 0.59850702019E+03 0.00000000000E+00 0. -1. - 6 1 1 2 503 0 -0.29167810590E+02 0.43110739918E+02 -0.16218916918E+02 0.17938550760E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 502 0.62885393833E+01 -0.12215339632E+01 0.33660478990E+02 0.17430110648E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 0.22879271206E+02 -0.41889205955E+02 -0.42906116200E+03 0.43170782638E+03 0.00000000000E+00 0. -1. -# 0.1726545E+03 0.1726545E+03 0.4773014E+02 - - - 4 0 0.1000000E+01 0.2452097E+03 0.7555679E-02 0.1123683E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.23825062552E+03 0.23825062552E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.28126024235E+03 0.28126024235E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.17314768866E+03 0.30673797762E+02 -0.10475211149E+03 0.26664736792E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 503 -0.17314768866E+03 -0.30673797762E+02 0.61742494657E+02 0.25286349994E+03 0.17090000000E+03 0. -1. -# 0.2452097E+03 0.2452097E+03 - - - 5 1 0.1000000E+01 0.2026938E+03 0.7555679E-02 0.1153807E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.22079880529E+03 0.22079880529E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.16743514974E+03 0.16743514974E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.57919885743E+02 0.11462218883E+02 0.39434481632E+02 0.18506210841E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.35554739982E+02 -0.18495881381E+02 0.24887914281E+02 0.17729200614E+03 0.17090000000E+03 0. 1. - 21 1 1 2 504 503 0.22365145761E+02 0.70336624985E+01 -0.10958740359E+02 0.25879840481E+02 0.00000000000E+00 0. 1. -# 0.1808118E+03 0.2026938E+03 0.2296504E+02 - - - 5 1 0.1000000E+01 0.2203645E+03 0.7555679E-02 0.1140387E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.14689037039E+03 0.14689037039E+03 0.00000000000E+00 0. 1. - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.14258460074E+04 0.14258460074E+04 0.00000000000E+00 0. -1. - 6 1 1 2 503 0 0.12003140999E+03 -0.40064525567E+02 -0.41294533627E+02 0.21662122264E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 502 -0.13637720574E+03 0.96899446318E+02 -0.18646303474E+03 0.30325487344E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 0.16345795756E+02 -0.56834920751E+02 -0.10511980687E+04 0.10528602818E+04 0.00000000000E+00 0. -1. -# 0.2203645E+03 0.2203645E+03 0.5913876E+02 - - - 4 0 0.1000000E+01 0.1709358E+03 0.7555679E-02 0.1182169E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.95088365628E+03 0.95088365628E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.30973015669E+02 0.30973015669E+02 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.19396520294E+01 -0.29137443275E+01 0.50359031609E+03 0.53181036903E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 503 0.19396520294E+01 0.29137443275E+01 0.41632032452E+03 0.45004630291E+03 0.17090000000E+03 0. 1. -# 0.1709358E+03 0.1709358E+03 - - - 6 2 0.1000000E+01 0.2563665E+03 0.7555679E-02 0.1116870E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.63956900290E+03 0.63956900290E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.10256159666E+04 0.10256159666E+04 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.12336430328E+03 -0.13752321206E+03 -0.23497314901E+03 0.34431174237E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 505 -0.10558108468E+03 0.98452138315E+02 0.21051339817E+03 0.30718543225E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 0.25339364831E+02 -0.57333525193E+01 -0.68442377984E+03 0.68491668482E+03 0.00000000000E+00 0. -1. - 21 1 1 2 505 504 -0.43122583436E+02 0.44804426261E+02 0.32283656699E+03 0.32877111005E+03 0.00000000000E+00 0. 1. -# 0.2563665E+03 0.2563665E+03 0.6199640E+02 0.2597989E+02 - - - 6 2 0.1000000E+01 0.3424755E+03 0.7555679E-02 0.1074465E+00 - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 0.16203987193E+04 0.16203987193E+04 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.62102571788E+03 0.62102571788E+03 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 0.16436891470E+03 0.27629490826E+03 0.20457347084E+03 0.41762798209E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 502 -0.13418473460E+03 -0.25977810290E+03 -0.45088175524E+03 0.56390723789E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 -0.98242690763E+02 -0.60054240969E+01 0.99707021630E+03 0.10019165173E+04 0.00000000000E+00 0. 1. - 21 1 1 2 504 503 0.68058510668E+02 -0.10511381271E+02 0.24861106949E+03 0.25797269988E+03 0.00000000000E+00 0. -1. -# 0.3424755E+03 0.3424755E+03 0.5038078E+02 0.6886545E+02 - - - 6 2 0.1000000E+01 0.3196951E+03 0.7555679E-02 0.1084250E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.51806964570E+03 0.51806964570E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.27872863662E+03 0.27872863662E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.27666806900E+03 0.96923257149E+02 0.11677904120E+03 0.35886417019E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 505 -0.23930085036E+03 -0.68095575135E+02 0.11790227001E+03 0.32405193968E+03 0.17090000000E+03 0. 1. - 21 1 1 2 505 504 -0.35001607000E+02 0.28452991845E+02 -0.22542220012E+02 0.50426549759E+02 0.00000000000E+00 0. 1. - 21 1 1 2 503 502 -0.23656116456E+01 -0.57280673860E+02 0.27201917885E+02 0.63455622705E+02 0.00000000000E+00 0. 1. -# 0.3196951E+03 0.3196951E+03 0.5537638E+02 0.4510749E+02 - - - 6 2 0.1000000E+01 0.1933902E+03 0.7555679E-02 0.1161490E+00 - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 0.16276753117E+04 0.16276753117E+04 0.00000000000E+00 0. 1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.37999520811E+03 0.37999520811E+03 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 -0.62579671300E+02 -0.20414389214E+02 -0.12503828232E+03 0.22175289083E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 502 0.43690425095E+02 0.13883954517E+03 -0.14232910873E+03 0.26580003337E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 0.13618347171E+02 -0.59497408804E+02 0.95651283967E+03 0.95845824817E+03 0.00000000000E+00 0. 1. - 21 1 1 2 502 501 0.52708990335E+01 -0.58927747151E+02 0.55853465498E+03 0.56165934745E+03 0.00000000000E+00 0. 1. -# 0.1933902E+03 0.1933902E+03 0.1240508E+03 0.3124678E+02 - - - 5 1 0.1000000E+01 0.1772230E+03 0.7555679E-02 0.1176041E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.10683660620E+04 0.10683660620E+04 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.21775024403E+03 0.21775024403E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.25267491460E+02 -0.13177960237E+03 0.99613065018E+02 0.23902694921E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.33404509814E+02 0.26641281175E+02 0.86411591471E+03 0.88188930326E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 -0.58672001275E+02 0.10513832120E+03 -0.11311316179E+03 0.16520005354E+03 0.00000000000E+00 0. -1. -# 0.1772230E+03 0.1772230E+03 0.1204013E+03 - - - 5 1 0.1000000E+01 0.1791119E+03 0.7555679E-02 0.1174255E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.40949949764E+03 0.40949949764E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.51346541547E+03 0.51346541547E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.34112751571E+02 -0.83089697427E+02 0.75365686244E+02 0.20725437101E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.58130715615E+02 -0.12453329403E+02 0.23116301472E+03 0.29355990000E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 -0.24017964044E+02 0.95543026829E+02 -0.41049461880E+03 0.42215064211E+03 0.00000000000E+00 0. -1. -# 0.1791119E+03 0.1791119E+03 0.9851565E+02 - - - 6 2 0.1000000E+01 0.2179310E+03 0.7555679E-02 0.1142152E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.27595750528E+03 0.27595750528E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.36546849654E+03 0.36546849654E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.11607081045E+03 -0.10718666952E+03 -0.10301222932E+03 0.25451865266E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 505 -0.52108141044E+02 0.13191733333E+03 0.70551770810E+02 0.23302747383E+03 0.17090000000E+03 0. -1. - 21 1 1 2 504 503 -0.28547760166E+02 0.30778757724E+02 -0.74720400215E+02 0.85705570098E+02 0.00000000000E+00 0. -1. - 21 1 1 2 505 504 -0.35414909241E+02 -0.55509421541E+02 0.17669867468E+02 0.68174305223E+02 0.00000000000E+00 0. -1. -# 0.2179310E+03 0.2179310E+03 0.6500639E+02 0.4197983E+02 - - - 5 1 0.1000000E+01 0.1835643E+03 0.7555679E-02 0.1170138E+00 - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.20091721901E+03 0.20091721901E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.24772486966E+03 0.24772486966E+03 0.00000000000E+00 0. 1. - 6 1 1 2 502 0 -0.51138094158E+02 -0.49409407617E+02 0.21275998251E+02 0.18632195882E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 501 0.62615754316E+02 0.23485291075E+02 -0.10831766926E+03 0.21310049052E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 -0.11477660158E+02 0.25924116543E+02 0.40234020368E+02 0.49219639334E+02 0.00000000000E+00 0. 1. -# 0.1835643E+03 0.1835643E+03 0.2835131E+02 - - - 6 2 0.1000000E+01 0.3526097E+03 0.7555679E-02 0.1070373E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.35392096379E+03 0.35392096379E+03 0.00000000000E+00 0. -1. - 1 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 -0.17273174508E+04 0.17273174508E+04 0.00000000000E+00 0. -1. - 6 1 1 2 503 0 0.15685307427E+02 0.30837578789E+03 0.20648223625E+03 0.40888064189E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 -0.59424231343E+02 -0.30292021639E+03 -0.68233501107E+03 0.76816650155E+03 0.17090000000E+03 0. 1. - 1 1 1 2 501 0 0.14610293768E+02 0.30734479167E+02 -0.71565170260E+03 0.71646034665E+03 0.00000000000E+00 0. -1. - 21 1 1 2 502 501 0.29128630147E+02 -0.36190050669E+02 -0.18189200956E+03 0.18773092448E+03 0.00000000000E+00 0. -1. -# 0.3526097E+03 0.3526097E+03 0.3403041E+02 0.4411213E+02 - - - 6 2 0.1000000E+01 0.1724735E+03 0.7555679E-02 0.1180643E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.10135713283E+03 0.10135713283E+03 0.00000000000E+00 0. 1. - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 -0.10125209188E+04 0.10125209188E+04 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 -0.24565566744E+02 -0.56993387183E+01 -0.88964921638E+02 0.19431293527E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 0.16237129569E+02 -0.29247692259E+02 -0.11477385595E+03 0.20856394676E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 0.26504828709E+02 -0.17674954911E+01 -0.39650070470E+03 0.39738953033E+03 0.00000000000E+00 0. 1. - 21 1 1 2 504 503 -0.18176391535E+02 0.36714526468E+02 -0.31092430370E+03 0.31361163929E+03 0.00000000000E+00 0. 1. -# 0.1724735E+03 0.1724735E+03 0.2656370E+02 0.3612902E+02 - - - 4 0 0.1000000E+01 0.1978499E+03 0.7555679E-02 0.1157749E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.13167373264E+03 0.13167373264E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.30283148460E+03 0.30283148460E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.67179120297E+02 -0.73652907731E+02 -0.11498125604E+03 0.22883462208E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 503 -0.67179120297E+02 0.73652907731E+02 -0.56176495915E+02 0.20567059516E+03 0.17090000000E+03 0. 1. -# 0.1978499E+03 0.1978499E+03 - - - 6 2 0.1000000E+01 0.1938877E+03 0.7555679E-02 0.1161068E+00 - 21 -1 0 0 504 505 0.00000000000E+00 0.00000000000E+00 0.11623755913E+03 0.11623755913E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.71004598714E+03 0.71004598714E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.11159239093E+03 -0.31955853380E+02 -0.33174263038E+03 0.39081200223E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 505 0.58301548432E+02 0.35765969471E+02 -0.95867682788E+02 0.20754685670E+03 0.17090000000E+03 0. 1. - 21 1 1 2 504 503 0.32566288071E+02 -0.12623096663E+02 0.20081545990E+02 0.40288635835E+02 0.00000000000E+00 0. 1. - 21 1 1 2 502 501 0.20724554422E+02 0.88129805728E+01 -0.18627966084E+03 0.18763605151E+03 0.00000000000E+00 0. -1. -# 0.1938877E+03 0.1938877E+03 0.3524017E+02 0.2252056E+02 - - - 5 1 0.1000000E+01 0.1931117E+03 0.7555679E-02 0.1161728E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.34643066842E+03 0.34643066842E+03 0.00000000000E+00 0. -1. - 1 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.10543567917E+04 0.10543567917E+04 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 0.28808256079E+02 0.56586829491E+02 -0.86039530703E+02 0.20159760845E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 502 -0.10452295329E+03 0.54050449185E+01 0.25080101307E+03 0.32103305193E+03 0.17090000000E+03 0. -1. - 1 1 1 2 501 0 0.75714697210E+02 -0.61991874409E+02 -0.87268760564E+03 0.87815679972E+03 0.00000000000E+00 0. 1. -# 0.1931117E+03 0.1931117E+03 0.9785555E+02 - - - 5 1 0.1000000E+01 0.2668752E+03 0.7555679E-02 0.1110788E+00 - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.16195278590E+04 0.16195278590E+04 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.20918231117E+03 0.20918231117E+03 0.00000000000E+00 0. -1. - 6 1 1 2 503 0 -0.10379155607E+03 0.20407404701E+03 0.46089274005E+03 0.54226177406E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 0.59391115268E+02 -0.83518618131E+01 -0.10749449896E+03 0.21061561071E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 0.44400440806E+02 -0.19572218519E+03 0.10569473067E+04 0.10758327854E+04 0.00000000000E+00 0. -1. -# 0.2668752E+03 0.1811184E+03 0.2049770E+03 - - - 5 1 0.1000000E+01 0.1714384E+03 0.7555679E-02 0.1181668E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.16219330740E+03 0.16219330740E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.15521698491E+04 0.15521698491E+04 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.24737162416E+02 0.11863921802E+02 0.49918767050E+01 0.17316006664E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.18128091551E+00 0.14482542918E+02 -0.28027265495E+02 0.17378755572E+03 0.17090000000E+03 0. -1. - 21 1 1 2 504 503 0.24555881501E+02 -0.26346464721E+02 -0.13669411529E+04 0.13674155341E+04 0.00000000000E+00 0. 1. -# 0.1714384E+03 0.1714384E+03 0.3601566E+02 - - - 6 2 0.1000000E+01 0.1749959E+03 0.7555679E-02 0.1178179E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.24362073937E+03 0.24362073937E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 504 505 0.00000000000E+00 0.00000000000E+00 -0.10259175202E+04 0.10259175202E+04 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.11515077803E+01 0.85343082582E+02 -0.17408049378E+02 0.19181923235E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 505 -0.33188271266E+02 0.17070412244E+02 0.50914229171E+02 0.18218652271E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 -0.57055301665E+01 -0.41482567424E+02 0.26842745172E+02 0.49738209085E+02 0.00000000000E+00 0. 1. - 21 1 1 2 504 503 0.40045309213E+02 -0.60930927402E+02 -0.84264570583E+03 0.84579429548E+03 0.00000000000E+00 0. 1. -# 0.1749959E+03 0.1749959E+03 0.4187310E+02 0.7315438E+02 - - - 6 2 0.1000000E+01 0.2070275E+03 0.7555679E-02 0.1150381E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.26161371630E+03 0.26161371630E+03 0.00000000000E+00 0. 1. - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 -0.54654392090E+03 0.54654392090E+03 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 -0.10666006485E+02 0.12229131454E+03 0.12404696118E+03 0.24426090126E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 502 0.14115338340E+03 -0.59200081724E+02 -0.30624660058E+03 0.38265221506E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 -0.83378381225E+02 -0.50892053924E+02 -0.84887704336E+02 0.12941359262E+03 0.00000000000E+00 0. 1. - 21 1 1 2 502 501 -0.47108995687E+02 -0.12199178889E+02 -0.17842860863E+02 0.51830928257E+02 0.00000000000E+00 0. 1. -# 0.2070275E+03 0.2070275E+03 0.1493185E+03 0.2533611E+02 - - - 6 2 0.1000000E+01 0.2071941E+03 0.7555679E-02 0.1150251E+00 - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 0.27080385848E+04 0.27080385848E+04 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.12988081773E+03 0.12988081773E+03 0.00000000000E+00 0. 1. - 6 1 1 2 502 0 0.11256887485E+03 -0.76787972409E+02 0.10385352336E+03 0.24199278627E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 501 -0.88499164233E+02 0.44605943368E+02 0.10934620607E+03 0.22579901469E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 -0.61399020043E+02 0.54597999319E+02 0.21007075537E+04 0.21023137271E+04 0.00000000000E+00 0. 1. - 21 1 1 2 504 503 0.37329309426E+02 -0.22415970278E+02 0.26425048403E+03 0.26781387450E+03 0.00000000000E+00 0. 1. -# 0.2071941E+03 0.2071941E+03 0.4586532E+02 0.4354254E+02 - - - 5 1 0.1000000E+01 0.2197698E+03 0.7555679E-02 0.1140816E+00 - 1 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.10867594200E+04 0.10867594200E+04 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.60680308591E+02 0.60680308591E+02 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 0.15527730865E+03 0.60674899237E+01 0.41085847307E+03 0.47133783204E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 502 -0.12326594419E+03 0.12206428091E+02 0.35289817798E+03 0.41120241232E+03 0.17090000000E+03 0. 1. - 1 1 1 2 501 0 -0.32011364462E+02 -0.18273918014E+02 0.26232246033E+03 0.26489948420E+03 0.00000000000E+00 0. 1. -# 0.2197698E+03 0.2197698E+03 0.3686005E+02 - - - 5 1 0.1000000E+01 0.1892945E+03 0.7555679E-02 0.1165025E+00 - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.66401449038E+03 0.66401449038E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.38404701247E+03 0.38404701247E+03 0.00000000000E+00 0. -1. - 6 1 1 2 502 0 -0.90199472458E+02 -0.17304017602E+02 -0.25740008607E+03 0.32233055730E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 501 0.51928876764E+02 0.14525560128E+02 -0.76463073132E+01 0.17936799089E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 0.38270595694E+02 0.27784574737E+01 0.54501387130E+03 0.54636295467E+03 0.00000000000E+00 0. 1. -# 0.1892945E+03 0.1892945E+03 0.3837132E+02 - - - 5 1 0.1000000E+01 0.1977085E+03 0.7555679E-02 0.1157866E+00 - 1 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.22492358227E+04 0.22492358227E+04 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.63327842135E+02 0.63327842135E+02 0.00000000000E+00 0. -1. - 6 1 1 2 503 0 0.85639973163E+02 0.65448858044E+02 0.38836668855E+03 0.43778219790E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 -0.89011601477E+02 -0.35418722472E+02 0.21092697854E+03 0.28787940422E+03 0.17090000000E+03 0. -1. - 1 1 1 2 501 0 0.33716283145E+01 -0.30030135572E+02 0.15866143135E+04 0.15869020627E+04 0.00000000000E+00 0. -1. -# 0.1977085E+03 0.1977085E+03 0.3021882E+02 - - - 5 1 0.1000000E+01 0.1961473E+03 0.7555679E-02 0.1159165E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.79043618864E+03 0.79043618864E+03 0.00000000000E+00 0. 1. - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.12307007027E+03 0.12307007027E+03 0.00000000000E+00 0. 1. - 6 1 1 2 502 0 0.87032167203E+02 -0.44807745249E+01 0.51919703515E+03 0.55350433312E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 501 -0.11521683739E+03 0.59281708095E+02 0.18917825868E+03 0.28597983161E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 0.28184670184E+02 -0.54800933570E+02 -0.41009175467E+02 0.74022094174E+02 0.00000000000E+00 0. 1. -# 0.1961473E+03 0.1961473E+03 0.6162400E+02 - - - 6 2 0.1000000E+01 0.2146370E+03 0.7555679E-02 0.1144581E+00 - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 0.89702347866E+03 0.89702347866E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.21955013566E+03 0.21955013566E+03 0.00000000000E+00 0. 1. - 6 1 1 2 502 0 0.19592886847E+02 0.20764259761E+03 0.10112328595E+03 0.28797926751E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 501 0.32447568674E+02 -0.94344675521E+02 -0.30247749462E+02 0.20018865817E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 -0.14767645877E+02 -0.66721081272E+02 0.51219882741E+03 0.51673728804E+03 0.00000000000E+00 0. -1. - 21 1 1 2 504 503 -0.37272809644E+02 -0.46576840813E+02 0.94398979102E+02 0.11166840061E+03 0.00000000000E+00 0. 1. -# 0.2146370E+03 0.2146370E+03 0.1044242E+03 0.5965454E+02 - - - 5 1 0.1000000E+01 0.1826767E+03 0.7555679E-02 0.1170948E+00 - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.18867038238E+04 0.18867038238E+04 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.81927108601E+02 0.81927108601E+02 0.00000000000E+00 0. -1. - 6 1 1 2 502 0 -0.69258137048E+02 0.11831840521E+02 0.62839063486E+02 0.19517233384E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 501 0.42534399101E+02 -0.28654000421E+01 0.48148732754E+03 0.51269312674E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 0.26723737947E+02 -0.89664404787E+01 0.12604503241E+04 0.12607654718E+04 0.00000000000E+00 0. 1. -# 0.1826767E+03 0.1826767E+03 0.2818786E+02 - - - 6 2 0.1000000E+01 0.5702227E+03 0.7555679E-02 0.1007147E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.26454747829E+03 0.26454747829E+03 0.00000000000E+00 0. 1. - 2 -1 0 0 501 0 0.00000000000E+00 0.00000000000E+00 -0.22251011246E+04 0.22251011246E+04 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.11543343928E+02 -0.51447239965E+03 -0.58217444583E+03 0.79558091616E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.26920991271E+03 0.53893324736E+03 -0.58735853111E+03 0.85855685676E+03 0.17090000000E+03 0. 1. - 2 1 1 2 502 0 -0.23759105098E+03 -0.33697252570E+01 -0.73371316535E+03 0.77123010286E+03 0.00000000000E+00 0. -1. - 21 1 1 2 503 502 -0.20075517804E+02 -0.21091122460E+02 -0.57307504054E+02 0.64280727147E+02 0.00000000000E+00 0. -1. -# 0.5702227E+03 0.5702227E+03 0.2690068E+03 0.2566277E+02 - - - 5 1 0.1000000E+01 0.1931898E+03 0.7555679E-02 0.1161661E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.14298237709E+03 0.14298237709E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.13512333096E+04 0.13512333096E+04 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.98130869161E+02 0.30938924225E+02 -0.10564053885E+04 0.10750748994E+04 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 -0.52851217439E+02 0.40889872909E+00 -0.24951507084E+03 0.30701465593E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 -0.45279651722E+02 -0.31347822954E+02 0.97669526812E+02 0.11212613135E+03 0.00000000000E+00 0. -1. -# 0.1931898E+03 0.1931898E+03 0.5507207E+02 - - - 5 1 0.1000000E+01 0.1775148E+03 0.7555679E-02 0.1175763E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.21464707645E+03 0.21464707645E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.18252998900E+03 0.18252998900E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.13944163953E+02 0.42668887235E+02 -0.26364470574E+02 0.17865320863E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.39994919699E+02 -0.39074053850E+02 0.34833339495E+02 0.18315716428E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 -0.26050755746E+02 -0.35948333850E+01 0.23648218523E+02 0.35366692542E+02 0.00000000000E+00 0. -1. -# 0.1775148E+03 0.1775148E+03 0.2629762E+02 - - - 6 2 0.1000000E+01 0.2409740E+03 0.7555679E-02 0.1126374E+00 - 2 -1 0 0 501 0 0.00000000000E+00 0.00000000000E+00 0.96437058030E+03 0.96437058030E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.19916433851E+03 0.19916433851E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.17549219564E+03 0.75949069642E+02 0.13192573427E+03 0.28840419773E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.71195250388E+02 -0.16095464335E+03 0.30131084973E+02 0.24716361620E+03 0.17090000000E+03 0. -1. - 2 1 1 2 502 0 0.12365855266E+03 0.63640902057E+02 0.55200948932E+03 0.56925923652E+03 0.00000000000E+00 0. 1. - 21 1 1 2 503 502 -0.19361607409E+02 0.21364671649E+02 0.51139933225E+02 0.58707868351E+02 0.00000000000E+00 0. 1. -# 0.2409740E+03 0.2409740E+03 0.1355802E+03 0.2883264E+02 - - - 5 1 0.1000000E+01 0.1901221E+03 0.7555679E-02 0.1164303E+00 - 1 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.96688366925E+03 0.96688366925E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.12292738003E+03 0.12292738003E+03 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 -0.10991304824E+03 0.16250176491E+02 0.29793658367E+03 0.36099579540E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 502 0.68386420313E+02 0.42822134500E+02 0.11391796230E+02 0.18933309459E+03 0.17090000000E+03 0. -1. - 1 1 1 2 501 0 0.41526627932E+02 -0.59072310991E+02 0.53462790933E+03 0.53948215929E+03 0.00000000000E+00 0. -1. -# 0.1901221E+03 0.1901221E+03 0.7220802E+02 - - - 4 0 0.1000000E+01 0.2605551E+03 0.7555679E-02 0.1114408E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.13731564940E+04 0.13731564940E+04 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.68157486569E+02 0.68157486569E+02 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.16867463839E+02 -0.19595320757E+03 0.27484511225E+03 0.37871997125E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 503 0.16867463839E+02 0.19595320757E+03 0.10301538952E+04 0.10625940094E+04 0.17090000000E+03 0. -1. -# 0.2605551E+03 0.2605551E+03 - - - 6 2 0.1000000E+01 0.1953341E+03 0.7555679E-02 0.1159846E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.52697489424E+03 0.52697489424E+03 0.00000000000E+00 0. -1. - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 -0.10940821911E+04 0.10940821911E+04 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 -0.45284040382E+02 -0.88539003239E+02 -0.90729721768E+02 0.21755112461E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 0.71795268730E+02 0.61926523645E+02 0.43604749689E+03 0.47784274033E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 -0.16658943120E+01 -0.60066818382E+02 -0.49343387212E+03 0.49707925327E+03 0.00000000000E+00 0. 1. - 21 1 1 2 504 503 -0.24845334035E+02 0.86679297976E+02 -0.41899119989E+03 0.42858396716E+03 0.00000000000E+00 0. -1. -# 0.1953341E+03 0.1953341E+03 0.6008991E+02 0.5126661E+02 - - - 5 1 0.1000000E+01 0.2181216E+03 0.7555679E-02 0.1142013E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.12242605493E+03 0.12242605493E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.15244851615E+04 0.15244851615E+04 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.38274891868E+02 0.13198372180E+03 -0.10866823558E+02 0.21956677349E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.45295848852E+01 -0.13562890457E+03 -0.13701274468E+04 0.13873974728E+04 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 0.33745306983E+02 0.36451827653E+01 -0.21064836166E+02 0.39946970141E+02 0.00000000000E+00 0. -1. -# 0.2181216E+03 0.2181216E+03 0.3394161E+02 - - - 5 1 0.1000000E+01 0.2447468E+03 0.7555679E-02 0.1123974E+00 - 2 -1 0 0 501 0 0.00000000000E+00 0.00000000000E+00 0.23020026246E+03 0.23020026246E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.40504502424E+03 0.40504502424E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.60543253408E+02 0.15490508921E+03 0.71064763567E+02 0.24883344393E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 503 0.95901090675E+02 -0.15090116697E+03 -0.24865828224E+03 0.35072201629E+03 0.17090000000E+03 0. -1. - 2 1 1 2 502 0 -0.35357837268E+02 -0.40039222404E+01 0.27487568911E+01 0.35689826478E+02 0.00000000000E+00 0. -1. -# 0.2447468E+03 0.2447468E+03 0.3558382E+02 - - - 6 2 0.1000000E+01 0.6534784E+03 0.7555679E-02 0.9905572E-01 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.33679318854E+03 0.33679318854E+03 0.00000000000E+00 0. -1. - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 -0.16195102944E+04 0.16195102944E+04 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 0.52536949818E+02 0.11793599130E+03 -0.40261314107E+02 0.21793763455E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 502 0.25925131688E+03 0.31053698704E+03 -0.62668670106E+02 0.44359738258E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 -0.26678242760E+03 -0.35401861910E+03 -0.92951266786E+03 0.10298037901E+04 0.00000000000E+00 0. 1. - 21 1 1 2 502 501 -0.45005839095E+02 -0.74454359238E+02 -0.25027445378E+03 0.26496467572E+03 0.00000000000E+00 0. -1. -# 0.6534784E+03 0.6534784E+03 0.5334114E+03 0.2704459E+02 - - - 5 1 0.1000000E+01 0.2394001E+03 0.7555679E-02 0.1127390E+00 - 1 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.79604775954E+03 0.79604775954E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.13840496136E+03 0.13840496136E+03 0.00000000000E+00 0. -1. - 6 1 1 2 502 0 -0.18438311452E+03 -0.18772511659E+02 0.46240201950E+02 0.25630939583E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 501 0.12351366114E+03 0.11775820520E+02 0.34272942507E+03 0.40257243230E+03 0.17090000000E+03 0. -1. - 1 1 1 2 501 0 0.60869453382E+02 0.69966911390E+01 0.26867317115E+03 0.27557089277E+03 0.00000000000E+00 0. -1. -# 0.2394001E+03 0.2394001E+03 0.6127025E+02 - - - 5 1 0.1000000E+01 0.1715390E+03 0.7555679E-02 0.1181568E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.30294932106E+03 0.30294932106E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.14423801110E+03 0.14423801110E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.29568082182E+02 -0.74597588042E+01 0.77519468191E+01 0.17377232854E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 -0.43606840270E+01 -0.15584313809E+02 0.16346594797E+03 0.23704390426E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 -0.25207398155E+02 0.23044072613E+02 -0.12506584834E+02 0.36371099358E+02 0.00000000000E+00 0. -1. -# 0.1715390E+03 0.1715390E+03 0.3415322E+02 - - - 6 2 0.1000000E+01 0.2257256E+03 0.7555679E-02 0.1136586E+00 - 21 -1 0 0 504 505 0.00000000000E+00 0.00000000000E+00 0.29965499033E+03 0.29965499033E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.41504384575E+03 0.41504384575E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.12652711334E+03 0.13381022992E+03 -0.22658835356E+03 0.33832437099E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 505 -0.71211829201E+02 -0.30181764207E+02 0.38512290470E+02 0.19149953009E+03 0.17090000000E+03 0. -1. - 21 1 1 2 504 503 -0.14142667204E+02 -0.32443960441E+02 0.93562434308E+02 0.10003276822E+03 0.00000000000E+00 0. 1. - 21 1 1 2 503 502 -0.41172616933E+02 -0.71184505270E+02 -0.20875226637E+02 0.84842166773E+02 0.00000000000E+00 0. -1. -# 0.2257258E+03 0.2257256E+03 0.3539245E+02 0.8778055E+02 - - - 5 1 0.1000000E+01 0.2250501E+03 0.7555679E-02 0.1137058E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.30045767386E+03 0.30045767386E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.52520211561E+03 0.52520211561E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.15184303607E+03 -0.10125743876E+03 -0.90917148730E+02 0.26604908276E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 -0.92029661087E+02 0.10027000242E+03 0.15293039986E+03 0.26667967509E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 -0.59813374979E+02 0.98743633941E+00 -0.28675769288E+03 0.29293103161E+03 0.00000000000E+00 0. -1. -# 0.2250501E+03 0.2250501E+03 0.5982153E+02 - - - 4 0 0.1000000E+01 0.2033501E+03 0.7555679E-02 0.1153282E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.34223807722E+02 0.34223807722E+02 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.12796017332E+04 0.12796017332E+04 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.10883263442E+03 -0.17318013138E+02 -0.46757838565E+03 0.50988313624E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 503 0.10883263442E+03 0.17318013138E+02 -0.77779953987E+03 0.80394240472E+03 0.17090000000E+03 0. 1. -# 0.2033501E+03 0.2033501E+03 - - - 6 2 0.1000000E+01 0.2538137E+03 0.7555679E-02 0.1118395E+00 - 1 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 0.57954736304E+03 0.57954736304E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.48840400641E+03 0.48840400641E+03 0.00000000000E+00 0. -1. - 6 1 1 2 504 0 0.78575009487E+02 -0.17179056273E+02 -0.59505145943E+02 0.19803238241E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 503 0.99023501667E+02 -0.51946475376E+02 -0.29941949732E+03 0.36244025102E+03 0.17090000000E+03 0. 1. - 1 1 1 2 501 0 -0.18502891790E+03 0.90877455172E+02 0.43042795620E+03 0.47724484051E+03 0.00000000000E+00 0. 1. - 21 1 1 2 502 501 0.74304067410E+01 -0.21751923523E+02 0.19640043685E+02 0.30233895502E+02 0.00000000000E+00 0. 1. -# 0.1895346E+03 0.2538137E+03 0.1876554E+03 0.2298602E+02 - - - 5 1 0.1000000E+01 0.1966253E+03 0.7555679E-02 0.1158766E+00 - 1 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.90561525483E+03 0.90561525483E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.10983898101E+03 0.10983898101E+03 0.00000000000E+00 0. 1. - 6 1 1 2 502 0 0.96897664993E+02 -0.48702851047E+02 0.52042845505E+02 0.20898897806E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 501 -0.67269429649E+02 0.28800569990E+02 0.25053159972E+03 0.31197362301E+03 0.17090000000E+03 0. 1. - 1 1 1 2 501 0 -0.29628235344E+02 0.19902281057E+02 0.49320182859E+03 0.49449163476E+03 0.00000000000E+00 0. 1. -# 0.1966253E+03 0.1966253E+03 0.3569220E+02 - - - 5 1 0.1000000E+01 0.2715006E+03 0.7555679E-02 0.1108207E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.15319133738E+03 0.15319133738E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.11883512065E+04 0.11883512065E+04 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.10119015538E+03 0.17135929749E+03 -0.73329378236E+02 0.27237375808E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 -0.15315120535E+03 -0.18704533054E+03 -0.36543823438E+03 0.47031176950E+03 0.17090000000E+03 0. 1. - 21 1 1 2 504 503 0.51961049975E+02 0.15686033052E+02 -0.59639225649E+03 0.59885701628E+03 0.00000000000E+00 0. 1. -# 0.2715006E+03 0.2715006E+03 0.5427709E+02 - - - 4 0 0.1000000E+01 0.1723094E+03 0.7555679E-02 0.1180805E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.11335563460E+03 0.11335563460E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.45977590441E+03 0.45977590441E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.20600521562E+02 0.77040527690E+01 0.14774127995E+02 0.17294166293E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 503 -0.20600521562E+02 -0.77040527690E+01 -0.36119439780E+03 0.40018987609E+03 0.17090000000E+03 0. -1. -# 0.1723094E+03 0.1723094E+03 - - - 5 1 0.1000000E+01 0.1983075E+03 0.7555679E-02 0.1157372E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.17551506524E+03 0.17551506524E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.37220528731E+03 0.37220528731E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.47992849335E+02 -0.57959515662E+02 -0.61787031059E+02 0.19669028001E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.60619805556E+02 0.10597255099E+03 -0.29522612816E+01 0.21004872824E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 -0.12626956220E+02 -0.48013035329E+02 -0.13195092972E+03 0.14098134430E+03 0.00000000000E+00 0. -1. -# 0.1983075E+03 0.1983075E+03 0.4964566E+02 - - - 6 2 0.1000000E+01 0.1713531E+03 0.7555679E-02 0.1181753E+00 - 1 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 0.40980771596E+03 0.40980771596E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.18826626577E+03 0.18826626577E+03 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 -0.16342396368E+02 -0.40112420214E+02 -0.48621701454E+02 0.18288510061E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 502 -0.25669822860E+02 -0.42015221253E+02 0.70515145012E+02 0.19132018790E+03 0.17090000000E+03 0. -1. - 1 1 1 2 501 0 -0.55412369031E+01 0.22894714151E+02 0.31266564782E+02 0.39146791896E+02 0.00000000000E+00 0. 1. - 21 1 1 2 502 501 0.47553456131E+02 0.59232927316E+02 0.16838144185E+03 0.18472190132E+03 0.00000000000E+00 0. 1. -# 0.1713531E+03 0.1713531E+03 0.1012811E+03 0.2328166E+02 - - - 5 1 0.1000000E+01 0.1727293E+03 0.7555679E-02 0.1180391E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.81549926536E+03 0.81549926536E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.23532182630E+03 0.23532182630E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.36144563123E+02 0.20241564392E+02 -0.65654864649E+02 0.18770594456E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.10239955497E+02 -0.20892300069E+02 -0.38903635317E+02 0.17680963699E+03 0.17090000000E+03 0. -1. - 21 1 1 2 502 501 -0.46384518619E+02 0.65073567754E+00 0.68473593902E+03 0.68630551011E+03 0.00000000000E+00 0. 1. -# 0.1727293E+03 0.1727293E+03 0.4638908E+02 - - - 5 1 0.1000000E+01 0.1927012E+03 0.7555679E-02 0.1162078E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.96030484826E+02 0.96030484826E+02 0.00000000000E+00 0. 1. - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.11833007464E+04 0.11833007464E+04 0.00000000000E+00 0. 1. - 6 1 1 2 502 0 -0.97777295820E+02 0.20909329023E+02 -0.41521980144E+02 0.20230789518E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 501 0.37389853556E+02 -0.11334017891E+02 -0.54366757349E+03 0.57123349129E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 0.60387442264E+02 -0.95753111321E+01 -0.50208070792E+03 0.50578984473E+03 0.00000000000E+00 0. 1. -# 0.1927012E+03 0.1927012E+03 0.6114188E+02 - - - 5 1 0.1000000E+01 0.6028245E+03 0.7555679E-02 0.1000312E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.65281669407E+03 0.65281669407E+03 0.00000000000E+00 0. -1. - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.12558509851E+04 0.12558509851E+04 0.00000000000E+00 0. -1. - 6 1 1 2 502 0 0.21881614425E+02 0.32458945496E+02 0.23835934282E+03 0.29589588456E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 501 0.45000623592E+03 -0.36591352212E+03 -0.15541962288E+02 0.60485261066E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 -0.47188785034E+03 0.33345457662E+03 -0.82585167157E+03 0.10079191840E+04 0.00000000000E+00 0. -1. -# 0.1753260E+03 0.6028245E+03 0.5780921E+03 - - - 4 0 0.1000000E+01 0.1819472E+03 0.7555679E-02 0.1171618E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.27534960040E+03 0.27534960040E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.12692895614E+03 0.12692895614E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.57732825772E+02 0.23767412261E+02 0.12042493868E+03 0.21819015769E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 503 0.57732825772E+02 -0.23767412261E+02 0.27995705585E+02 0.18408839884E+03 0.17090000000E+03 0. 1. -# 0.1819472E+03 0.1819472E+03 - - - 6 2 0.1000000E+01 0.2182763E+03 0.7555679E-02 0.1141900E+00 - 21 -1 0 0 504 505 0.00000000000E+00 0.00000000000E+00 0.16697621268E+04 0.16697621268E+04 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.10563918966E+03 0.10563918966E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.11139030830E+03 0.10434088601E+03 0.15911720664E+03 0.27896221379E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 505 0.87027922596E+02 -0.74595519600E+02 0.29400470096E+03 0.35886477264E+03 0.17090000000E+03 0. -1. - 21 1 1 2 504 503 0.34648393394E+02 -0.75563384680E+01 0.11125058046E+04 0.11130708759E+04 0.00000000000E+00 0. -1. - 21 1 1 2 503 502 -0.10286007692E+02 -0.22189027945E+02 -0.15047751041E+01 0.24503454113E+02 0.00000000000E+00 0. -1. -# 0.2182763E+03 0.2182763E+03 0.3544663E+02 0.2445721E+02 - - - 5 1 0.1000000E+01 0.2040811E+03 0.7555679E-02 0.1152700E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.32964660838E+03 0.32964660838E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.25297137601E+03 0.25297137601E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.18713892114E+02 -0.10445034128E+03 0.18746946234E+03 0.27497580414E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 -0.28975138257E+01 0.12718661380E+03 -0.21481248989E+02 0.21413333317E+03 0.17090000000E+03 0. 1. - 21 1 1 2 504 503 -0.15816378288E+02 -0.22736272527E+02 -0.89312980982E+02 0.93508847081E+02 0.00000000000E+00 0. 1. -# 0.2040811E+03 0.2040811E+03 0.2769650E+02 - - - 6 2 0.1000000E+01 0.1837450E+03 0.7555679E-02 0.1169973E+00 - 1 -1 0 0 501 0 0.00000000000E+00 0.00000000000E+00 0.11460768704E+04 0.11460768704E+04 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.78168025967E+02 0.78168025967E+02 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.62719751424E+02 0.38492702031E+02 0.39513750028E+03 0.43675612126E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.68334060986E+02 0.28393843548E+02 0.10563975558E+03 0.21410820209E+03 0.17090000000E+03 0. 1. - 1 1 1 2 502 0 0.12209509753E+02 -0.46822697720E+02 0.22226116966E+03 0.22746750249E+03 0.00000000000E+00 0. -1. - 21 1 1 2 503 502 -0.17823819314E+02 -0.20063847859E+02 0.34487041890E+03 0.34591307052E+03 0.00000000000E+00 0. -1. -# 0.1837450E+03 0.1837450E+03 0.5294976E+02 0.2683741E+02 - - - 5 1 0.1000000E+01 0.3892471E+03 0.7555679E-02 0.1056730E+00 - 1 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.18133581502E+04 0.18133581502E+04 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.31491815128E+03 0.31491815128E+03 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 -0.42201721592E+03 0.33829915887E+02 0.28699447507E+03 0.53927324472E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 502 0.84457319714E+02 -0.41472789468E+02 -0.11077945956E+03 0.22434778755E+03 0.17090000000E+03 0. 1. - 1 1 1 2 501 0 0.33755989621E+03 0.76428735809E+01 0.13222249834E+04 0.13646552692E+04 0.00000000000E+00 0. 1. -# 0.3892471E+03 0.1950893E+03 0.3497235E+03 - - - 5 1 0.1000000E+01 0.1862068E+03 0.7555679E-02 0.1167755E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.94283673335E+03 0.94283673335E+03 0.00000000000E+00 0. -1. - 1 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.66291005417E+02 0.66291005417E+02 0.00000000000E+00 0. -1. - 6 1 1 2 503 0 0.49719968521E+02 0.41958373573E+02 0.49928838549E+03 0.53172199717E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 -0.62078359811E+02 -0.59277847585E+02 0.40175941353E+03 0.44495507901E+03 0.17090000000E+03 0. -1. - 1 1 1 2 501 0 0.12358391289E+02 0.17319474011E+02 -0.24502071090E+02 0.32450662597E+02 0.00000000000E+00 0. -1. -# 0.1862068E+03 0.1862068E+03 0.2127661E+02 - - - 5 1 0.1000000E+01 0.4377741E+03 0.7555679E-02 0.1040960E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.19918665071E+04 0.19918665071E+04 0.00000000000E+00 0. -1. - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.15198598111E+03 0.15198598111E+03 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 0.15418408609E+03 0.35890714095E+03 0.66717851989E+03 0.79178346511E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 502 -0.17835723607E+03 -0.37030715987E+03 0.12194867217E+04 0.12981884958E+04 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 0.24173149984E+02 0.11400018917E+02 -0.46784715567E+02 0.53880527300E+02 0.00000000000E+00 0. 1. -# 0.4377741E+03 0.4377741E+03 0.2672642E+02 - - - 5 1 0.1000000E+01 0.1968982E+03 0.7555679E-02 0.1158539E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.91257869318E+03 0.91257869318E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.26995627877E+03 0.26995627877E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.67220549795E+01 -0.59942082088E+02 0.82962793778E+02 0.19931852493E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.12507698673E+03 0.23067915421E+02 -0.15145052664E+03 0.26138181527E+03 0.17090000000E+03 0. -1. - 21 1 1 2 502 501 -0.11835493175E+03 0.36874166668E+02 0.71111014728E+03 0.72183463176E+03 0.00000000000E+00 0. 1. -# 0.1968982E+03 0.1968982E+03 0.1239661E+03 - - - 6 2 0.1000000E+01 0.2052646E+03 0.7555679E-02 0.1151763E+00 - 1 -1 0 0 502 0 0.00000000000E+00 0.00000000000E+00 0.11591980201E+03 0.11591980201E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.50595150816E+03 0.50595150816E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.12620928836E+03 0.14874951426E+01 -0.19204159710E+03 0.28638746852E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 -0.10041637710E+03 -0.16648040359E+02 -0.19881807618E+03 0.28124018819E+03 0.17090000000E+03 0. 1. - 1 1 1 2 503 0 -0.19713111828E+02 -0.53557435784E+01 -0.16855713080E+02 0.26484067487E+02 0.00000000000E+00 0. -1. - 21 1 1 2 502 501 -0.60797994328E+01 0.20516288795E+02 0.17683680222E+02 0.27759585971E+02 0.00000000000E+00 0. -1. -# 0.2052646E+03 0.2052646E+03 0.2042770E+02 0.2140409E+02 - - - 5 1 0.1000000E+01 0.1727107E+03 0.7555679E-02 0.1180410E+00 - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.24784559355E+03 0.24784559355E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.19494747475E+03 0.19494747475E+03 0.00000000000E+00 0. 1. - 6 1 1 2 502 0 -0.61429449616E+01 0.27716069472E+02 -0.92432864382E+02 0.19635824581E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 501 0.20102000564E+02 -0.87271135207E+01 0.11159318924E+03 0.20528054662E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 -0.13959055603E+02 -0.18988955951E+02 0.33737793944E+02 0.41154275861E+02 0.00000000000E+00 0. -1. -# 0.1727107E+03 0.1727107E+03 0.2356768E+02 - - - 5 1 0.1000000E+01 0.3007655E+03 0.7555679E-02 0.1093077E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.98149342360E+03 0.98149342360E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.16743316934E+03 0.16743316934E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.15992832116E+03 0.21686796400E+03 0.56114837232E+03 0.64552543519E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.44203831386E+02 -0.22454055215E+03 0.26130811267E+03 0.38711907472E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 0.11572448978E+03 0.76725881489E+01 -0.83962307305E+01 0.11628208303E+03 0.00000000000E+00 0. 1. -# 0.3007655E+03 0.3007655E+03 0.1159786E+03 - - - 5 1 0.1000000E+01 0.2133217E+03 0.7555679E-02 0.1145565E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.34097377836E+03 0.34097377836E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.20264161506E+03 0.20264161506E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.35974331790E+02 -0.94760932488E+02 0.74991497306E+02 0.21237778025E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 -0.10791308286E+03 0.12386734279E+03 0.83028933026E+02 0.25117516952E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 0.71938751068E+02 -0.29106410306E+02 -0.19688267026E+02 0.80062443659E+02 0.00000000000E+00 0. -1. -# 0.2133217E+03 0.2133217E+03 0.7760391E+02 - - - 5 1 0.1000000E+01 0.2503153E+03 0.7555679E-02 0.1120517E+00 - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.15666297942E+04 0.15666297942E+04 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.12386757911E+03 0.12386757911E+03 0.00000000000E+00 0. -1. - 6 1 1 2 503 0 -0.21227972221E+03 -0.40277108287E+02 0.10719481023E+03 0.29560524903E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 0.11063347941E+03 0.42133759791E+02 0.37345193665E+03 0.42742037793E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 0.10164624280E+03 -0.18566515036E+01 0.96211546820E+03 0.96747174635E+03 0.00000000000E+00 0. 1. -# 0.2503153E+03 0.2503153E+03 0.1016632E+03 - - - 5 1 0.1000000E+01 0.2268025E+03 0.7555679E-02 0.1135836E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.22582043891E+03 0.22582043891E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.26537774136E+03 0.26537774136E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.10903411382E+03 -0.45912145961E+02 -0.13205899961E+03 0.24625749227E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 -0.85795468309E+02 0.53368406735E+02 0.66734447885E+02 0.20945010326E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 -0.23238645511E+02 -0.74562607744E+01 0.25767249278E+02 0.35490584741E+02 0.00000000000E+00 0. 1. -# 0.2078537E+03 0.2268025E+03 0.2136014E+02 - - - 5 1 0.1000000E+01 0.2280100E+03 0.7555679E-02 0.1135001E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.48030803389E+03 0.48030803389E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.17189703050E+03 0.17189703050E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.57555764415E+01 -0.14622840099E+03 0.83037258493E+02 0.23982883108E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.16088053976E+02 0.15308021815E+03 0.27453490542E+03 0.35814606373E+03 0.17090000000E+03 0. -1. - 21 1 1 2 502 501 -0.21843630418E+02 -0.68518171578E+01 -0.49161160533E+02 0.54230169584E+02 0.00000000000E+00 0. 1. -# 0.2280100E+03 0.2280100E+03 0.2289305E+02 - - - 6 2 0.1000000E+01 0.2949380E+03 0.7555679E-02 0.1095937E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.56942152754E+02 0.56942152754E+02 0.00000000000E+00 0. 1. - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 -0.25384232359E+04 0.25384232359E+04 0.00000000000E+00 0. -1. - 6 1 1 2 502 0 -0.24695925155E+03 0.56814414336E+02 -0.12586501841E+04 0.12952311939E+04 0.17090000000E+03 0. -1. - -6 1 1 2 0 501 0.21745067297E+03 -0.90863412914E+02 -0.53149550197E+03 0.60599936765E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 0.14034975021E+02 0.17214833118E+02 -0.58250809946E+03 0.58293139986E+03 0.00000000000E+00 0. -1. - 21 1 1 2 504 503 0.15473603567E+02 0.16834165460E+02 -0.10882729762E+03 0.11120342729E+03 0.00000000000E+00 0. -1. -# 0.2949380E+03 0.2949380E+03 0.2221106E+02 0.2411266E+02 - - - 5 1 0.1000000E+01 0.1817563E+03 0.7555679E-02 0.1171794E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.41598772288E+03 0.41598772288E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.26521076515E+03 0.26521076515E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.46622662769E+02 -0.34013130388E+02 -0.83018271305E+02 0.19856839903E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 -0.39584951453E+02 0.56046223850E+02 -0.55554696409E+02 0.19235717268E+03 0.17090000000E+03 0. -1. - 21 1 1 2 502 501 -0.70377113158E+01 -0.22033093462E+02 0.28934992545E+03 0.29027291631E+03 0.00000000000E+00 0. -1. -# 0.1817563E+03 0.1817563E+03 0.2312978E+02 - - - 5 1 0.1000000E+01 0.1964342E+03 0.7555679E-02 0.1158925E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.15188327657E+03 0.15188327657E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.34923997574E+03 0.34923997574E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.90200759626E+02 0.76475265705E+01 -0.25234768219E+02 0.19503401044E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.10629252106E+03 0.12872247523E+02 -0.91688296826E+02 0.22153407992E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 -0.16091761433E+02 -0.20519774093E+02 -0.80433634130E+02 0.84555161961E+02 0.00000000000E+00 0. -1. -# 0.1964342E+03 0.1964342E+03 0.2607692E+02 - - - 6 2 0.1000000E+01 0.1749299E+03 0.7555679E-02 0.1178243E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.23763297635E+03 0.23763297635E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.28365126263E+03 0.28365126263E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.82032825118E+01 0.74086453523E+02 -0.63136319097E+02 0.19684791396E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 505 -0.10260008193E+02 -0.10391027160E+01 0.17601097781E+01 0.17121990389E+03 0.17090000000E+03 0. -1. - 21 1 1 2 505 504 -0.51437438054E+02 -0.36228398708E+02 -0.20890821030E+02 0.66292784750E+02 0.00000000000E+00 0. 1. - 21 1 1 2 502 501 0.69900728759E+02 -0.36818952099E+02 0.36248744068E+02 0.86923636378E+02 0.00000000000E+00 0. -1. -# 0.1749299E+03 0.1749299E+03 0.7621306E+02 0.6291508E+02 - - - 5 1 0.1000000E+01 0.3431037E+03 0.7555679E-02 0.1074207E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.72019283595E+03 0.72019283595E+03 0.00000000000E+00 0. 1. - 3 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.31491971534E+03 0.31491971534E+03 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 -0.11780782008E+03 -0.22326584694E+03 0.78679412710E+02 0.31483897609E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 -0.14249790734E+03 -0.11648495656E+02 0.29290739422E+03 0.36802566845E+03 0.17090000000E+03 0. 1. - 3 1 1 2 501 0 0.26030572742E+03 0.23491434260E+03 0.33686313676E+02 0.35224790675E+03 0.00000000000E+00 0. 1. -# 0.3431037E+03 0.2228187E+03 0.2975120E+03 - - - 5 1 0.1000000E+01 0.2180982E+03 0.7555679E-02 0.1142030E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.18477994915E+03 0.18477994915E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.31687644272E+03 0.31687644272E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.12049026104E+03 0.13189868946E+02 -0.29279045799E+02 0.21155601663E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 -0.15236343212E+03 -0.16157329456E+02 -0.61106068588E+02 0.23752144400E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 0.31873171080E+02 0.29674605099E+01 -0.41711379182E+02 0.52578931235E+02 0.00000000000E+00 0. 1. -# 0.2180982E+03 0.2180982E+03 0.3201101E+02 - - - 5 1 0.1000000E+01 0.2597509E+03 0.7555679E-02 0.1114877E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.80750545735E+02 0.80750545735E+02 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.10662498790E+04 0.10662498790E+04 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.18567540273E+03 -0.46080870547E+01 -0.56156636365E+03 0.61567863405E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.20006642507E+03 0.23679102844E+02 -0.27823514847E+03 0.38367809710E+03 0.17090000000E+03 0. -1. - 21 1 1 2 502 501 -0.14391022348E+02 -0.19071015789E+02 -0.14569782116E+03 0.14764369360E+03 0.00000000000E+00 0. 1. -# 0.2597509E+03 0.2597509E+03 0.2389153E+02 - - - 4 0 0.1000000E+01 0.1794267E+03 0.7555679E-02 0.1173959E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.12823622153E+03 0.12823622153E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.31749841807E+03 0.31749841807E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.16741854386E+02 -0.52027198224E+02 -0.19658695553E+03 0.26615852443E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 503 0.16741854386E+02 0.52027198224E+02 0.73247589930E+01 0.17957611516E+03 0.17090000000E+03 0. 1. -# 0.1794267E+03 0.1794267E+03 - - - 6 2 0.1000000E+01 0.2526483E+03 0.7555679E-02 0.1119098E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.56531902244E+03 0.56531902244E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.23017150683E+03 0.23017150683E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.79425570352E+01 -0.14044029896E+03 0.26337133115E+03 0.34403172798E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 505 0.56323925418E+01 0.11442544307E+02 0.10710522912E+03 0.20209155294E+03 0.17090000000E+03 0. -1. - 21 1 1 2 505 504 -0.13856903303E+02 0.72974355937E+02 -0.12322978708E+03 0.14388485264E+03 0.00000000000E+00 0. -1. - 21 1 1 2 503 502 0.16167067797E+02 0.56023398717E+02 0.87900742433E+02 0.10548239571E+03 0.00000000000E+00 0. -1. -# 0.2036921E+03 0.2526483E+03 0.3978698E+02 0.7427833E+02 - - - 5 1 0.1000000E+01 0.2243417E+03 0.7555679E-02 0.1137556E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.22530513931E+03 0.22530513931E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.40291297108E+03 0.40291297108E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.16426071017E+03 0.27100432889E+02 -0.19007927814E+03 0.30504582664E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.10632514825E+03 -0.59317302603E+02 -0.66449621925E+02 0.22010438840E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 0.57935561928E+02 0.32216869715E+02 0.78921068301E+02 0.10306789535E+03 0.00000000000E+00 0. -1. -# 0.2243417E+03 0.2243417E+03 0.6629069E+02 - - - 5 1 0.1000000E+01 0.2655874E+03 0.7555679E-02 0.1111517E+00 - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.86709600780E+03 0.86709600780E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.24432897136E+03 0.24432897136E+03 0.00000000000E+00 0. -1. - 6 1 1 2 503 0 -0.27240818842E+03 0.78125859019E+02 0.15774001004E+02 0.33130876848E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 0.13199706130E+03 -0.15493011093E+02 0.79429406534E+02 0.23060593706E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 0.14041112712E+03 -0.62632847925E+02 0.52756362891E+03 0.54951027361E+03 0.00000000000E+00 0. 1. -# 0.2655874E+03 0.2655874E+03 0.1537471E+03 - - - 5 1 0.1000000E+01 0.2582264E+03 0.7555679E-02 0.1115770E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.10335759294E+03 0.10335759294E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.15046563605E+04 0.15046563605E+04 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.54089954338E+02 0.17047294044E+03 -0.38092329158E+03 0.45419831643E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.85759345471E+00 -0.20693224818E+03 -0.21003879064E+03 0.34080022649E+03 0.17090000000E+03 0. 1. - 21 1 1 2 502 501 -0.54947547793E+02 0.36459307744E+02 -0.81033668534E+03 0.81301541052E+03 0.00000000000E+00 0. 1. -# 0.2582264E+03 0.2582264E+03 0.6594326E+02 - - - 5 1 0.1000000E+01 0.1736108E+03 0.7555679E-02 0.1179527E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.32412811144E+03 0.32412811144E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.12089457367E+03 0.12089457367E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.83566702789E+01 -0.17294278652E+02 0.21883592434E+02 0.17336270542E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.70023663143E+00 0.36679547003E+02 0.17891289990E+03 0.25012499925E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 -0.90569069103E+01 -0.19385268351E+02 0.24370454369E+01 0.21534980434E+02 0.00000000000E+00 0. 1. -# 0.1736108E+03 0.1736108E+03 0.2139664E+02 - - - 5 1 0.1000000E+01 0.3468262E+03 0.7555679E-02 0.1072690E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.76797158012E+03 0.76797158012E+03 0.00000000000E+00 0. -1. - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.28082611450E+03 0.28082611450E+03 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 -0.25720240089E+03 0.12817862290E+03 0.47352108580E+03 0.57966530265E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 0.32893478864E+03 -0.13709155167E+03 -0.17847771864E+01 0.39522422009E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 -0.71732387750E+02 0.89129287661E+01 0.15409156995E+02 0.73908171881E+02 0.00000000000E+00 0. 1. -# 0.3468262E+03 0.3468262E+03 0.7228399E+02 - - - 5 1 0.1000000E+01 0.2892975E+03 0.7555679E-02 0.1098774E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.40291648597E+03 0.40291648597E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.47244068505E+03 0.47244068505E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.14339919624E+03 -0.21942356484E+03 0.90024225790E+02 0.32560897027E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.16274089994E+03 0.13846074380E+03 0.88927894920E+02 0.28769942403E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 -0.19341703706E+02 0.80962821035E+02 -0.24847631979E+03 0.26204877673E+03 0.00000000000E+00 0. -1. -# 0.2892975E+03 0.2892975E+03 0.8324109E+02 - - - 5 1 0.1000000E+01 0.1825707E+03 0.7555679E-02 0.1171045E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.88442783416E+02 0.88442783416E+02 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.57134201316E+03 0.57134201316E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.23875283655E+02 0.58173552401E+02 -0.67480257564E+02 0.19420243698E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 -0.48569789850E+01 -0.70400358452E+02 -0.34226415742E+03 0.38901332133E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 -0.19018304670E+02 0.12226806051E+02 -0.73154814755E+02 0.76569038263E+02 0.00000000000E+00 0. -1. -# 0.1825707E+03 0.1825707E+03 0.2260953E+02 - - - 5 1 0.1000000E+01 0.1825060E+03 0.7555679E-02 0.1171105E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.58144161712E+02 0.58144161712E+02 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.86595216095E+03 0.86595216095E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.52801666820E+02 0.34527098566E+02 -0.28433134694E+03 0.33768515130E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.64377930794E+02 -0.16582752856E+02 -0.23953466646E+03 0.30166732024E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 -0.11576263975E+02 -0.17944345710E+02 -0.28394198584E+03 0.28474385112E+03 0.00000000000E+00 0. 1. -# 0.1825060E+03 0.1825060E+03 0.2135438E+02 - - - 5 1 0.1000000E+01 0.2183017E+03 0.7555679E-02 0.1141881E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.70797623893E+03 0.70797623893E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.32494084943E+03 0.32494084943E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.65209565358E+02 -0.11029015086E+03 0.13798349439E+03 0.25428814270E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 -0.55364982741E+02 0.12779252838E+03 0.48766700818E+03 0.53518420426E+03 0.17090000000E+03 0. 1. - 21 1 1 2 504 503 -0.98445826173E+01 -0.17502377524E+02 -0.24261511308E+03 0.24344474141E+03 0.00000000000E+00 0. 1. -# 0.2183017E+03 0.2183017E+03 0.2008106E+02 - - - 5 1 0.1000000E+01 0.1767619E+03 0.7555679E-02 0.1176481E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.30508363658E+03 0.30508363658E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.21537005187E+03 0.21537005187E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.45896803757E+02 -0.19153437255E+02 0.19577279616E+03 0.26458867790E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.37271089197E+02 -0.15880313503E+02 -0.39299476108E+02 0.17997938012E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 0.86257145595E+01 0.35033750759E+02 -0.66759735342E+02 0.75885630437E+02 0.00000000000E+00 0. -1. -# 0.1767619E+03 0.1767619E+03 0.3608000E+02 - - - 5 1 0.1000000E+01 0.1885199E+03 0.7555679E-02 0.1165704E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.11550677318E+03 0.11550677318E+03 0.00000000000E+00 0. 1. - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.30476483396E+04 0.30476483396E+04 0.00000000000E+00 0. 1. - 6 1 1 2 502 0 -0.67479441547E+01 -0.71900610972E+02 0.12658321813E+02 0.18596310311E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 501 0.75906554085E+01 0.15112101657E+03 -0.82733141567E+03 0.85824195950E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 -0.84271125379E+00 -0.79220405595E+02 -0.21174684726E+04 0.21189500502E+04 0.00000000000E+00 0. 1. -# 0.1885199E+03 0.1885199E+03 0.7922489E+02 - - - 4 0 0.1000000E+01 0.1790089E+03 0.7555679E-02 0.1174351E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.11111825778E+03 0.11111825778E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.29387461582E+03 0.29387461582E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.49912699057E+02 0.18603393929E+02 -0.63686842659E+02 0.19000049400E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 503 0.49912699057E+02 -0.18603393929E+02 -0.11906951538E+03 0.21499237960E+03 0.17090000000E+03 0. -1. -# 0.1790089E+03 0.1790089E+03 - - - 5 1 0.1000000E+01 0.2268948E+03 0.7555679E-02 0.1135772E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.41272861929E+03 0.41272861929E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.52075053413E+03 0.52075053413E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.11812163340E+03 0.89032918316E+02 0.33735268758E+03 0.40607047004E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.11507813634E+03 -0.12399898308E+03 -0.42045571545E+03 0.48436406134E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 0.30434970604E+01 0.34966064763E+02 -0.24918886962E+02 0.43044622043E+02 0.00000000000E+00 0. -1. -# 0.2268948E+03 0.2268948E+03 0.3509827E+02 - - - 6 2 0.1000000E+01 0.2402092E+03 0.7555679E-02 0.1126867E+00 - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 0.25546200020E+04 0.25546200020E+04 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.13438359019E+03 0.13438359019E+03 0.00000000000E+00 0. -1. - 6 1 1 2 502 0 0.18326774835E+03 0.55828879795E+02 0.37262872947E+02 0.25942101516E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 501 -0.82221822319E+02 -0.62846150367E+02 0.43997627086E+03 0.48321423365E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 -0.73363371483E+02 -0.46214801664E+01 0.16895312417E+04 0.16911296103E+04 0.00000000000E+00 0. 1. - 21 1 1 2 504 503 -0.27682554547E+02 0.11638750738E+02 0.25346602637E+03 0.25523873309E+03 0.00000000000E+00 0. -1. -# 0.2402092E+03 0.2402092E+03 0.9378806E+02 0.3002972E+02 - - - 5 1 0.1000000E+01 0.2057479E+03 0.7555679E-02 0.1151383E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.46617677869E+03 0.46617677869E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.18926725113E+03 0.18926725113E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.67093965150E+02 0.58586992997E+02 0.52555984338E+02 0.19975729623E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 -0.11759963871E+03 -0.50489860031E+02 0.29764958285E+03 0.36630722783E+03 0.17090000000E+03 0. -1. - 21 1 1 2 502 501 0.50505673555E+02 -0.80971329663E+01 -0.73296039631E+02 0.89379505756E+02 0.00000000000E+00 0. -1. -# 0.2057479E+03 0.2057479E+03 0.5115063E+02 - - - 4 0 0.1000000E+01 0.1869859E+03 0.7555679E-02 0.1167060E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.20203657174E+03 0.20203657174E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.17306319127E+03 0.17306319127E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.14171514523E+02 -0.74539158394E+02 0.13314470763E+02 0.18745933716E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 503 -0.14171514523E+02 0.74539158394E+02 0.15658909714E+02 0.18764042585E+03 0.17090000000E+03 0. 1. -# 0.1869859E+03 0.1869859E+03 - - - 6 2 0.1000000E+01 0.2404560E+03 0.7555679E-02 0.1126707E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.27925797311E+03 0.27925797311E+03 0.00000000000E+00 0. -1. - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 -0.99554936908E+03 0.99554936908E+03 0.00000000000E+00 0. -1. - 6 1 1 2 503 0 -0.16489447806E+02 -0.10931069023E+02 0.18883497118E+03 0.25545419648E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 -0.13009382939E+03 -0.81582100216E+02 -0.24802872149E+03 0.33809037284E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 0.10417487779E+03 0.85519787403E+02 -0.53869456573E+03 0.55529980582E+03 0.00000000000E+00 0. -1. - 21 1 1 2 502 501 0.42408399406E+02 0.69933818359E+01 -0.11840307994E+03 0.12596296705E+03 0.00000000000E+00 0. 1. -# 0.1720413E+03 0.2404560E+03 0.1758084E+03 0.2706069E+02 - - - 6 2 0.1000000E+01 0.3601593E+03 0.7555679E-02 0.1067420E+00 - 2 -1 0 0 501 0 0.00000000000E+00 0.00000000000E+00 0.23841015666E+04 0.23841015666E+04 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.40674644276E+03 0.40674644276E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.19860997134E+03 -0.28990927511E+03 0.43667353299E+03 0.58598966964E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 -0.66530002185E+02 0.32189800623E+03 -0.21333163713E+03 0.42750645025E+03 0.17090000000E+03 0. 1. - 2 1 1 2 502 0 0.24251503596E+03 -0.60920439968E+02 0.15554657378E+04 0.15754359727E+04 0.00000000000E+00 0. -1. - 21 1 1 2 503 502 0.22624937565E+02 0.28931708850E+02 0.19854749017E+03 0.20191591673E+03 0.00000000000E+00 0. -1. -# 0.3601593E+03 0.3601593E+03 0.2618347E+03 0.3672780E+02 - - - 6 2 0.1000000E+01 0.3052089E+03 0.7555679E-02 0.1090943E+00 - 21 -1 0 0 504 505 0.00000000000E+00 0.00000000000E+00 0.43736852793E+03 0.43736852793E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.68113601673E+03 0.68113601673E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.86613417861E+02 -0.29531482273E+03 -0.12858759855E+03 0.37477234314E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 505 0.12184917528E+03 0.19009890375E+03 0.12105386442E+03 0.30797023041E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 -0.18874958454E+02 0.79285501645E+02 -0.32853932752E+03 0.33849748087E+03 0.00000000000E+00 0. -1. - 21 1 1 2 504 503 -0.16360798966E+02 0.25930417336E+02 0.92305572845E+02 0.97264490254E+02 0.00000000000E+00 0. -1. -# 0.3052089E+03 0.3052089E+03 0.3066044E+02 0.8192308E+02 - - - 6 2 0.1000000E+01 0.2805361E+03 0.7555679E-02 0.1103323E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.69053694893E+03 0.69053694893E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.41495261816E+03 0.41495261816E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.34812370551E+02 -0.15224553790E+03 -0.22332031234E+03 0.32166656161E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 505 0.25752314754E+02 0.17849825139E+03 0.59628315403E+03 0.64597617390E+03 0.17090000000E+03 0. 1. - 21 1 1 2 502 501 -0.14954742304E+02 -0.29822816546E+02 -0.10673502975E+03 0.11182759624E+03 0.00000000000E+00 0. 1. - 21 1 1 2 505 504 0.24014798102E+02 0.35701030494E+01 0.93565188197E+01 0.26019235348E+02 0.00000000000E+00 0. 1. -# 0.2805361E+03 0.2540714E+03 0.2427872E+02 0.2473364E+02 - - - 4 0 0.1000000E+01 0.2077005E+03 0.7555679E-02 0.1149857E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.32945735951E+03 0.32945735951E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.13397008283E+03 0.13397008283E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.87103013414E+02 -0.79660296358E+02 0.13258511286E+03 0.24641087621E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 503 0.87103013414E+02 0.79660296358E+02 0.62902163829E+02 0.21701656613E+03 0.17090000000E+03 0. 1. -# 0.2077005E+03 0.2077005E+03 - - - 4 0 0.1000000E+01 0.1887767E+03 0.7555679E-02 0.1165478E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.97432296377E+02 0.97432296377E+02 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.66077001723E+03 0.66077001723E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.79761481312E+02 -0.82425013249E+01 -0.28360343354E+02 0.19089513300E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 503 -0.79761481312E+02 0.82425013249E+01 -0.53497737750E+03 0.56730718061E+03 0.17090000000E+03 0. 1. -# 0.1887767E+03 0.1887767E+03 - - - 5 1 0.1000000E+01 0.3149566E+03 0.7555679E-02 0.1086396E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.11018779901E+04 0.11018779901E+04 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.12039620066E+03 0.12039620066E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.80102620244E+02 -0.22813099838E+03 0.33055770261E+03 0.44377402689E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.12205562982E+03 0.25306559314E+03 0.65138874805E+03 0.72969437595E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 -0.41953009576E+02 -0.24934594756E+02 -0.46466117524E+00 0.48805787958E+02 0.00000000000E+00 0. -1. -# 0.3149566E+03 0.3149566E+03 0.4880358E+02 - - - 5 1 0.1000000E+01 0.1737412E+03 0.7555679E-02 0.1179399E+00 - 1 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 0.34778531894E+03 0.34778531894E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.45170673974E+03 0.45170673974E+03 0.00000000000E+00 0. -1. - 6 1 1 2 502 0 -0.15012233790E+02 0.23060137813E+02 -0.35584089018E+03 0.39571035650E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 501 0.35686249839E+02 -0.37824450911E+02 0.30878553815E+02 0.18128566573E+03 0.17090000000E+03 0. -1. - 1 1 1 2 501 0 -0.20674016049E+02 0.14764313098E+02 0.22104091557E+03 0.22249603645E+03 0.00000000000E+00 0. -1. -# 0.1737412E+03 0.1737412E+03 0.2540472E+02 - - - 5 1 0.1000000E+01 0.2370658E+03 0.7555679E-02 0.1128911E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.18945356516E+03 0.18945356516E+03 0.00000000000E+00 0. -1. - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.85149549950E+03 0.85149549950E+03 0.00000000000E+00 0. -1. - 6 1 1 2 502 0 -0.96719035189E+02 -0.13674817740E+03 0.81358701945E+02 0.25274628419E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 501 0.63170753406E+02 0.12864598490E+03 -0.58478759468E+03 0.62587832237E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 0.33548281784E+02 0.81021924995E+01 -0.15861304161E+03 0.16232445811E+03 0.00000000000E+00 0. -1. -# 0.2370658E+03 0.2370658E+03 0.3451279E+02 - - - 5 1 0.1000000E+01 0.1925799E+03 0.7555679E-02 0.1162182E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.16205156254E+03 0.16205156254E+03 0.00000000000E+00 0. 1. - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.89399956130E+03 0.89399956130E+03 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 0.10939840774E+03 -0.17156972491E+02 -0.55030286307E+02 0.21094434274E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 -0.70944719089E+02 -0.33504806499E+02 -0.24548967643E+02 0.18964489721E+03 0.17090000000E+03 0. 1. - 2 1 1 2 501 0 -0.38453688656E+02 0.50661778990E+02 -0.65236874481E+03 0.65546188389E+03 0.00000000000E+00 0. 1. -# 0.1925799E+03 0.1925799E+03 0.6360269E+02 - - - 4 0 0.1000000E+01 0.2081823E+03 0.7555679E-02 0.1149483E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.32146539200E+03 0.32146539200E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.59933593703E+03 0.59933593703E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.11437613590E+03 0.32421475283E+02 0.26638771893E+03 0.33808620102E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 503 0.11437613590E+03 -0.32421475283E+02 -0.54425826396E+03 0.58271512801E+03 0.17090000000E+03 0. -1. -# 0.2081823E+03 0.2081823E+03 - - - 4 0 0.1000000E+01 0.2156604E+03 0.7555679E-02 0.1143821E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.30149238833E+03 0.30149238833E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.15459092273E+03 0.15459092273E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.10382505962E+03 0.80764877073E+02 0.62963708269E+02 0.22466385320E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 503 0.10382505962E+03 -0.80764877073E+02 0.83937757331E+02 0.23141945787E+03 0.17090000000E+03 0. 1. -# 0.2156604E+03 0.2156604E+03 - - - 5 1 0.1000000E+01 0.2102368E+03 0.7555679E-02 0.1147902E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.11850195494E+04 0.11850195494E+04 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.22463636027E+03 0.22463636027E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.11979655512E+03 -0.30859281125E+02 0.97445704761E+03 0.99703403026E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 -0.57105982529E+02 0.17731114065E+03 -0.16003276301E+02 0.25330465588E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 -0.62690572596E+02 -0.14645185953E+03 0.19294177938E+01 0.15931722350E+03 0.00000000000E+00 0. -1. -# 0.2102368E+03 0.2102368E+03 0.1593055E+03 - - - 6 2 0.1000000E+01 0.1954511E+03 0.7555679E-02 0.1159748E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.20279967832E+03 0.20279967832E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.10206782416E+04 0.10206782416E+04 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.11418463040E+03 0.26956744245E+02 0.75542590304E+02 0.22063156807E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 505 -0.66795899231E+02 -0.95183712134E+02 -0.31697393840E+03 0.37841897261E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 -0.33844220523E+02 0.78516594545E+01 0.88629449556E+01 0.35855705436E+02 0.00000000000E+00 0. -1. - 21 1 1 2 505 504 -0.13544510641E+02 0.60375308435E+02 -0.58531016013E+03 0.58857167379E+03 0.00000000000E+00 0. 1. -# 0.1954511E+03 0.1954511E+03 0.3474305E+02 0.6201278E+02 - - - 5 1 0.1000000E+01 0.1825529E+03 0.7555679E-02 0.1171062E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.91945448528E+03 0.91945448528E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.44854327091E+03 0.44854327091E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.44642355185E+02 0.60173178724E+02 0.55538509977E+03 0.58589518718E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 -0.34867283277E+02 -0.33927681500E+02 0.32567652255E+03 0.37099706516E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 -0.97750719074E+01 -0.26245497224E+02 -0.41015040795E+03 0.41110550385E+03 0.00000000000E+00 0. -1. -# 0.1825529E+03 0.1825529E+03 0.2800675E+02 - - - 5 1 0.1000000E+01 0.2150206E+03 0.7555679E-02 0.1144296E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.33263773909E+03 0.33263773909E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.21716149073E+03 0.21716149073E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.11060391571E+03 -0.30921680670E+02 0.11907522940E+03 0.23785520125E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.12315835240E+03 0.62409200936E+02 -0.75612698138E+02 0.23235098073E+03 0.17090000000E+03 0. 1. - 21 1 1 2 503 502 -0.12554436687E+02 -0.31487520267E+02 0.72013717106E+02 0.79593047840E+02 0.00000000000E+00 0. -1. -# 0.2150206E+03 0.2150206E+03 0.3389805E+02 - - - 6 2 0.1000000E+01 0.3231452E+03 0.7555679E-02 0.1082712E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.45721166272E+03 0.45721166272E+03 0.00000000000E+00 0. -1. - 1 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 -0.55919981300E+03 0.55919981300E+03 0.00000000000E+00 0. -1. - 6 1 1 2 503 0 0.26000931242E+03 0.42955870820E+02 0.25238678859E+03 0.40293417630E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 -0.31231777935E+03 -0.27610283621E+02 -0.15345221676E+03 0.38866324226E+03 0.17090000000E+03 0. 1. - 1 1 1 2 501 0 0.69011260704E+02 0.10726938784E+02 -0.13591344256E+03 0.15280734665E+03 0.00000000000E+00 0. -1. - 21 1 1 2 502 501 -0.16702793774E+02 -0.26072525984E+02 -0.65009279537E+02 0.72006710500E+02 0.00000000000E+00 0. -1. -# 0.3231452E+03 0.3231452E+03 0.6417017E+02 0.3096385E+02 - - - 5 1 0.1000000E+01 0.1759696E+03 0.7555679E-02 0.1177240E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.31624633292E+03 0.31624633292E+03 0.00000000000E+00 0. 1. - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.14028317405E+04 0.14028317405E+04 0.00000000000E+00 0. 1. - 6 1 1 2 502 0 0.13715768958E+02 0.42039175717E+02 0.17954291526E+03 0.25178936243E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 501 -0.52193911200E+02 -0.13457782770E+02 0.19960666148E+02 0.18030683425E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 0.38478142242E+02 -0.28581392947E+02 -0.12860889890E+04 0.12869818767E+04 0.00000000000E+00 0. 1. -# 0.1759696E+03 0.1759696E+03 0.4793186E+02 - - - 5 1 0.1000000E+01 0.1732926E+03 0.7555679E-02 0.1179838E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.64890321398E+03 0.64890321398E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.29303507037E+03 0.29303507037E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.35992452972E+02 0.44831263017E+02 -0.71255999067E+02 0.19388018521E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 -0.92533674874E+01 -0.24458779094E+02 0.57291954496E+03 0.59843752529E+03 0.17090000000E+03 0. 1. - 21 1 1 2 502 501 -0.26739085484E+02 -0.20372483922E+02 -0.14579540228E+03 0.14962057385E+03 0.00000000000E+00 0. 1. -# 0.1732926E+03 0.1732926E+03 0.3361572E+02 - - - 5 1 0.1000000E+01 0.1854383E+03 0.7555679E-02 0.1168443E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.67137241065E+02 0.67137241065E+02 0.00000000000E+00 0. -1. - 2 -1 0 0 503 0 0.00000000000E+00 0.00000000000E+00 -0.75639480826E+03 0.75639480826E+03 0.00000000000E+00 0. -1. - 6 1 1 2 503 0 0.77396938846E+02 0.38964823392E+02 -0.35598317945E+03 0.40427636297E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 -0.50356632565E+02 -0.40961712673E+02 -0.15720160313E+03 0.24110745815E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 -0.27040306281E+02 0.19968892804E+01 -0.17607278462E+03 0.17814822821E+03 0.00000000000E+00 0. -1. -# 0.1854383E+03 0.1854383E+03 0.2711394E+02 - - - 5 1 0.1000000E+01 0.1839847E+03 0.7555679E-02 0.1169756E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.84890404931E+02 0.84890404931E+02 0.00000000000E+00 0. 1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.53899128947E+03 0.53899128947E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 -0.38624650809E+02 0.69761981753E+02 -0.14727400103E+03 0.23928025227E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.43986075022E+02 -0.44850971498E+02 -0.30938924448E+03 0.35899150274E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 -0.53614242136E+01 -0.24911010255E+02 0.25623609746E+01 0.25609939384E+02 0.00000000000E+00 0. 1. -# 0.1839847E+03 0.1839847E+03 0.2548143E+02 - - - 6 2 0.1000000E+01 0.1900786E+03 0.7555679E-02 0.1164340E+00 - 3 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 0.50740301835E+03 0.50740301835E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.32379858824E+03 0.32379858824E+03 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 -0.81324578741E+02 -0.58711108481E+01 -0.19518483728E+03 0.27194133146E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 0.87235877253E+02 -0.49983713078E+02 0.29010612198E+02 0.20039185481E+03 0.17090000000E+03 0. 1. - 3 1 1 2 501 0 -0.28131430841E+02 0.11081428484E+02 0.13731942725E+03 0.14060867881E+03 0.00000000000E+00 0. -1. - 21 1 1 2 502 501 0.22220132329E+02 0.44773395442E+02 0.21245922795E+03 0.21825974150E+03 0.00000000000E+00 0. -1. -# 0.1900786E+03 0.1900786E+03 0.3023533E+02 0.5157524E+02 - - - 5 1 0.1000000E+01 0.1799046E+03 0.7555679E-02 0.1173512E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.14077634700E+03 0.14077634700E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.53175922193E+03 0.53175922193E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.65089785348E+02 -0.36143808062E+02 0.19443179783E+01 0.18642329627E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 0.25952330341E+02 -0.16850033210E+01 -0.12656959127E+03 0.21424993377E+03 0.17090000000E+03 0. 1. - 21 1 1 2 504 503 0.39137455007E+02 0.37828811383E+02 -0.26635760163E+03 0.27186233888E+03 0.00000000000E+00 0. 1. -# 0.1799046E+03 0.1799046E+03 0.5443124E+02 - - - 5 1 0.1000000E+01 0.1849887E+03 0.7555679E-02 0.1168848E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.12686004899E+04 0.12686004899E+04 0.00000000000E+00 0. -1. - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 -0.32864147099E+03 0.32864147099E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.31537600023E+02 -0.40974482765E+02 0.92522862520E+03 0.94229949981E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 504 0.78885894502E+02 0.16788499387E+03 0.26781663300E+03 0.36788709468E+03 0.17090000000E+03 0. -1. - 21 1 1 2 504 503 -0.47348294479E+02 -0.12691051111E+03 -0.25308623933E+03 0.28705536636E+03 0.00000000000E+00 0. 1. -# 0.1849887E+03 0.1849887E+03 0.1354553E+03 - - - 5 1 0.1000000E+01 0.1823704E+03 0.7555679E-02 0.1171229E+00 - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 0.35626690237E+03 0.35626690237E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 -0.31877777388E+03 0.31877777388E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 0.27556926821E+01 0.39554334536E+02 -0.17400708652E+02 0.17630012446E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 -0.31951902136E+02 -0.64782211168E+02 0.24355410413E+03 0.30617490193E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 0.29196209454E+02 0.25227876632E+02 -0.18866426699E+03 0.19256964986E+03 0.00000000000E+00 0. 1. -# 0.1823704E+03 0.1823704E+03 0.3858581E+02 - - - 6 2 0.1000000E+01 0.1991195E+03 0.7555679E-02 0.1156704E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.27613603361E+03 0.27613603361E+03 0.00000000000E+00 0. -1. - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 -0.17104470933E+04 0.17104470933E+04 0.00000000000E+00 0. 1. - 6 1 1 2 503 0 0.12104433416E+02 -0.43909023441E+02 -0.56948056754E+02 0.18580745630E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 502 -0.14655321798E+03 -0.48009926990E+01 0.14637627526E+03 0.26857721272E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 0.13094153669E+03 0.21058502952E+02 -0.12919162136E+04 0.12987057594E+04 0.00000000000E+00 0. 1. - 21 1 1 2 504 503 0.35072478770E+01 0.27651513187E+02 -0.23182306460E+03 0.23349269849E+03 0.00000000000E+00 0. -1. -# 0.1991195E+03 0.1991195E+03 0.1414634E+03 0.2787305E+02 - - - 5 1 0.1000000E+01 0.2143005E+03 0.7555679E-02 0.1144832E+00 - 21 -1 0 0 501 502 0.00000000000E+00 0.00000000000E+00 0.20020318307E+03 0.20020318307E+03 0.00000000000E+00 0. 1. - 21 -1 0 0 503 504 0.00000000000E+00 0.00000000000E+00 -0.38585028676E+03 0.38585028676E+03 0.00000000000E+00 0. -1. - 6 1 1 2 501 0 0.12732494462E+03 0.27103113460E+02 0.64074881570E+02 0.22418434542E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 504 -0.13022490218E+03 0.86924872658E+01 -0.16893414611E+03 0.27345866270E+03 0.17090000000E+03 0. -1. - 21 1 1 2 503 502 0.28999575637E+01 -0.35795600726E+02 -0.80787839156E+02 0.88410461715E+02 0.00000000000E+00 0. -1. -# 0.2143005E+03 0.2143005E+03 0.3591288E+02 - - - 6 2 0.1000000E+01 0.2416417E+03 0.7555679E-02 0.1125946E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.64499081715E+03 0.64499081715E+03 0.00000000000E+00 0. 1. - 2 -1 0 0 504 0 0.00000000000E+00 0.00000000000E+00 -0.37772588827E+03 0.37772588827E+03 0.00000000000E+00 0. -1. - 6 1 1 2 502 0 -0.34321556635E+02 0.16539693643E+03 0.53807296656E+03 0.58929062709E+03 0.17090000000E+03 0. 1. - -6 1 1 2 0 501 0.26252266072E+02 -0.18480822243E+03 -0.13039068688E+03 0.28469598132E+03 0.17090000000E+03 0. -1. - 2 1 1 2 501 0 0.21221430708E+02 0.60696803152E+00 -0.10021978913E+03 0.10244375854E+03 0.00000000000E+00 0. -1. - 21 1 1 2 504 503 -0.13152140144E+02 0.18804317969E+02 -0.40197561667E+02 0.46286338466E+02 0.00000000000E+00 0. -1. -# 0.2416417E+03 0.2416417E+03 0.2123011E+02 0.2130380E+02 - - - 6 2 0.1000000E+01 0.2006402E+03 0.7555679E-02 0.1155464E+00 - 21 -1 0 0 502 503 0.00000000000E+00 0.00000000000E+00 0.30126353956E+03 0.30126353956E+03 0.00000000000E+00 0. -1. - 21 -1 0 0 504 505 0.00000000000E+00 0.00000000000E+00 -0.51173152863E+03 0.51173152863E+03 0.00000000000E+00 0. 1. - 6 1 1 2 501 0 -0.58736029759E+02 0.82267867560E+02 0.14190944557E+03 0.24405537070E+03 0.17090000000E+03 0. -1. - -6 1 1 2 0 505 0.90407715290E+02 -0.43997746964E+02 -0.85444151198E+02 0.21590940159E+03 0.17090000000E+03 0. 1. - 21 1 1 2 502 501 -0.28242772852E+02 -0.91383652070E+01 0.37140167311E+02 0.47545304341E+02 0.00000000000E+00 0. -1. - 21 1 1 2 504 503 -0.34289126785E+01 -0.29131755389E+02 -0.30407345075E+03 0.30548499155E+03 0.00000000000E+00 0. 1. -# 0.2006402E+03 0.2006402E+03 0.2999936E+02 0.2933286E+02 - - diff --git a/GeneratorInterface/MCatNLOInterface/plugins/BuildFile.xml b/GeneratorInterface/MCatNLOInterface/plugins/BuildFile.xml deleted file mode 100644 index ff6438c820e76..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/plugins/BuildFile.xml +++ /dev/null @@ -1,10 +0,0 @@ - - - - - - - - - - diff --git a/GeneratorInterface/MCatNLOInterface/plugins/MCatNLOSource.cc b/GeneratorInterface/MCatNLOInterface/plugins/MCatNLOSource.cc deleted file mode 100644 index 34ad1ef5ed432..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/plugins/MCatNLOSource.cc +++ /dev/null @@ -1,183 +0,0 @@ -#include -#include -#include -#include - -#include -#include -#include - -#include "FWCore/Framework/interface/InputSourceMacros.h" -#include "FWCore/Framework/interface/MakerMacros.h" -#include "FWCore/Framework/interface/Event.h" -#include "FWCore/Framework/interface/Run.h" -#include "FWCore/ParameterSet/interface/ParameterSet.h" -#include "FWCore/MessageLogger/interface/MessageLogger.h" - -#include "GeneratorInterface/LHEInterface/interface/LHERunInfo.h" -#include "GeneratorInterface/LHEInterface/interface/LHEEvent.h" - -#include "GeneratorInterface/Herwig6Interface/interface/Herwig6Instance.h" - -#include "SimDataFormats/GeneratorProducts/interface/LHERunInfoProduct.h" -#include "SimDataFormats/GeneratorProducts/interface/LHEEventProduct.h" - -#include "SimDataFormats/GeneratorProducts/interface/LesHouches.h" -#include "SimDataFormats/GeneratorProducts/interface/LHECommonBlocks.h" - -#include "MCatNLOSource.h" - -// MC@NLO v3.4 LHE file rountines (mcatnlo_hwlhin.f) -extern "C" { -void mcatnloupinit_(int *, const char *, int); -void mcatnloupevnt_(int *, int *, int *); -} - -using namespace lhef; - -MCatNLOSource::MCatNLOSource(const edm::ParameterSet ¶ms, const edm::InputSourceDescription &desc) - : ProducerSourceFromFiles(params, desc, false), - gen::Herwig6Instance(), - skipEvents(params.getUntrackedParameter("skipEvents", 0)), - nEvents(0), - ihpro(0), - processCode(params.getParameter("processCode")) { - std::vector allFileNames = fileNames(0); - - // Only one filename - if (allFileNames.size() != 1) - throw cms::Exception("Generator|MCatNLOInterface") - << "MCatNLOSource needs exactly one file specified. " << std::endl; - - fileName = allFileNames[0]; - - // Strip the "file:" prefix - if (fileName.find("file:") != 0) - throw cms::Exception("Generator|MCatNLOInterface") << "MCatNLOSource only supports the file: scheme. " << std::endl; - fileName.erase(0, 5); - - // open input file - reader = std::make_unique(fileName.c_str()); - - produces(); - produces(); -} - -MCatNLOSource::~MCatNLOSource() {} - -void MCatNLOSource::endJob() { reader.reset(); } - -void MCatNLOSource::nextEvent() { return; } - -template -static std::string makeConfigLine(const char *var, T value) { - std::ostringstream ss; - ss << var << " = " << value << "\n"; - return ss.str(); -} - -template -static std::string makeConfigLine(const char *var, unsigned int index, T value) { - std::ostringstream ss; - ss << var << "(" << index << ") = " << value << "\n"; - return ss.str(); -} - -void MCatNLOSource::beginRun(edm::Run &run) { - InstanceWrapper wrapper(this); - - // call UPINIT privided by MC@NLO (v3.4) - mcatnloupinit_(&processCode, fileName.c_str(), fileName.length()); - - // fill HEPRUP common block and store in edm::Run - lhef::HEPRUP heprup; - lhef::CommonBlocks::readHEPRUP(&heprup); - - // make sure we write a valid LHE header, Herwig6Hadronizer - // will interpret it correctly and set up LHAPDF - heprup.PDFGUP.first = 0; - heprup.PDFGUP.second = 0; - - std::unique_ptr runInfo(new LHERunInfoProduct(heprup)); - - LHERunInfoProduct::Header hw6header("herwig6header"); - hw6header.addLine("\n"); - hw6header.addLine("# Herwig6 parameters\n"); - hw6header.addLine(makeConfigLine("IPROC", processCode)); - // add lines for parameter that have been touched by UPINIT - if (mcpars_.emmins) - hw6header.addLine(makeConfigLine("EMMIN", mcpars_.emmin)); - if (mcpars_.emmaxs) - hw6header.addLine(makeConfigLine("EMMAX", mcpars_.emmax)); - if (mcpars_.gammaxs) - hw6header.addLine(makeConfigLine("GAMMAX", mcpars_.gammax)); - if (mcpars_.gamzs) - hw6header.addLine(makeConfigLine("GAMZ", mcpars_.gamz)); - if (mcpars_.gamws) - hw6header.addLine(makeConfigLine("GAMW", mcpars_.gamw)); - for (unsigned int i = 0; i < 1000; ++i) { - if (mcpars_.rmasss[i]) - hw6header.addLine(makeConfigLine("RMASS", i + 1, mcpars_.rmass[i])); - } - - // other needed MC@NLO defaults (from mcatnlo_hwdriver.f v3.4) - hw6header.addLine(makeConfigLine("SOFTME", false)); - hw6header.addLine(makeConfigLine("NOWGT", false)); - hw6header.addLine(makeConfigLine("NEGWTS", true)); - if (abs(processCode) == 1705 || abs(processCode) == 11705) - hw6header.addLine(makeConfigLine("PSPLT", 2, 0.5)); - double wgtmax_ = 1.000001; - hw6header.addLine(makeConfigLine("WGTMAX", wgtmax_)); - hw6header.addLine(makeConfigLine("AVABW", wgtmax_)); - hw6header.addLine(makeConfigLine("RLTIM", 6, 1.0E-23)); - hw6header.addLine(makeConfigLine("RLTIM", 12, 1.0E-23)); - - runInfo->addHeader(hw6header); - - run.put(std::move(runInfo)); - - return; -} - -bool MCatNLOSource::setRunAndEventInfo(edm::EventID &, edm::TimeValue_t &, edm::EventAuxiliary::ExperimentType &) { - InstanceWrapper wrapper(this); - - int lastEventDone = 0; - ihpro = 0; - // skip events if asked to... - - while (skipEvents > 0) { - skipEvents--; - mcatnloupevnt_(&processCode, &lastEventDone, &ihpro); - if (lastEventDone) - return false; - } - - // call UPINIT privided by MC@NLO (v3.4) - mcatnloupevnt_(&processCode, &lastEventDone, &ihpro); - - if (lastEventDone) - return false; - return true; -} - -void MCatNLOSource::produce(edm::Event &event) { - InstanceWrapper wrapper(this); - - // fill HEPRUP common block and store in edm::Run - lhef::HEPRUP heprup; - lhef::HEPEUP hepeup; - lhef::CommonBlocks::readHEPRUP(&heprup); - lhef::CommonBlocks::readHEPEUP(&hepeup); - hepeup.IDPRUP = heprup.LPRUP[0]; - std::unique_ptr lhEvent(new LHEEventProduct(hepeup, hepeup.XWGTUP)); - lhEvent->addComment(makeConfigLine("#IHPRO", ihpro)); - event.put(std::move(lhEvent)); -} - -bool MCatNLOSource::hwwarn(const std::string &fn, int code) { - // dummy ignoring useless HERWIG warnings - return true; -} - -DEFINE_FWK_INPUT_SOURCE(MCatNLOSource); diff --git a/GeneratorInterface/MCatNLOInterface/plugins/MCatNLOSource.h b/GeneratorInterface/MCatNLOInterface/plugins/MCatNLOSource.h deleted file mode 100644 index 4be682ca9e7d3..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/plugins/MCatNLOSource.h +++ /dev/null @@ -1,77 +0,0 @@ -#ifndef GeneratorInterface_MCatNLOInterface_MCatNLOSource_h -#define GeneratorInterface_MCatNLOInterface_MCatNLOSource_h - -#include - -#include "FWCore/Framework/interface/Event.h" -#include "FWCore/Framework/interface/Run.h" -#include "FWCore/Sources/interface/ProducerSourceFromFiles.h" -#include "FWCore/ParameterSet/interface/ParameterSet.h" - -#include "SimDataFormats/GeneratorProducts/interface/LesHouches.h" - -#include "GeneratorInterface/Herwig6Interface/interface/Herwig6Instance.h" - -#include - -// Common Block for HERWIG parameters set by UPINIT -extern "C" { -extern struct MCPARS_ { - double emmin; - double emmax; - double gammax; - double rmass[1000]; - double gamw; - double gamz; - int emmins; - int emmaxs; - int gammaxs; - int rmasss[1000]; - int gamws; - int gamzs; -} mcpars_; -} - -namespace lhef { - class LHERunInfo; - class LHEEvent; -} // namespace lhef - -class MCatNLOSource : public edm::ProducerSourceFromFiles, public gen::Herwig6Instance { -public: - explicit MCatNLOSource(const edm::ParameterSet ¶ms, const edm::InputSourceDescription &desc); - ~MCatNLOSource() override; - -private: - void endJob() override; - void beginRun(edm::Run &run) override; - bool setRunAndEventInfo(edm::EventID &, edm::TimeValue_t &, edm::EventAuxiliary::ExperimentType &) override; - void produce(edm::Event &event) override; - - void nextEvent(); - - bool hwwarn(const std::string &fn, int code) override; - - /// Name of the input file - std::string fileName; - - /// Pointer to the input file - std::unique_ptr inputFile; - - /// Number of events to skip - unsigned int skipEvents; - - /// Number of events - unsigned int nEvents; - - int ihpro; - - int processCode; - - std::unique_ptr reader; - - std::shared_ptr runInfo; - std::shared_ptr event; -}; - -#endif // GeneratorInterface_MCatNLOInterface_MCatNLOSource_h diff --git a/GeneratorInterface/MCatNLOInterface/plugins/mcatnlo_hwursc.f b/GeneratorInterface/MCatNLOInterface/plugins/mcatnlo_hwursc.f deleted file mode 100644 index eebcb9c7aec29..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/plugins/mcatnlo_hwursc.f +++ /dev/null @@ -1,51 +0,0 @@ -C---------------------------------------------------------------------- - SUBROUTINE HWURSC(NP,PP) -C RESCALES A SET OF NP (<21) 3-MOMENTA PP(1-3,*) IN -C THEIR CMF TO PUT PP ON MASS-SHELL AT MASSES PP(5,*) -C---------------------------------------------------------------------- - IMPLICIT NONE - INTEGER NP,IP,IT,NT - DOUBLE PRECISION PP(5,*),P(5,20),P2(20),M2(20),SP(5), - & TINY,FAC,ECM,DCM,EP,STEP,FRT,HWUSQR - DATA TINY,NT/1D-9,20/ - IF (NP.GT.20) CALL HWWARN('HWURSC',300+NP) -C--COMPUTE CM MOMENTUM - CALL HWVZRO(4,SP) - DO IP=1,NP - CALL HWVSUM(4,PP(1,IP),SP,SP) - ENDDO - CALL HWUMAS(SP) -C--BOOST TO CMF - DO IP=1,NP - CALL HWULOF(SP,PP(1,IP),P(1,IP)) - P2(IP)=P(1,IP)**2+P(2,IP)**2+P(3,IP)**2 - M2(IP)=P(5,IP)**2 - ENDDO -C--ITERATE RESCALING OF 3-MOMENTA - FAC=1D0 - DO IT=1,NT - ECM=0D0 - DCM=0D0 - DO IP=1,NP - EP=HWUSQR(M2(IP)+FAC*P2(IP)) - IF (EP.GT.0D0) THEN - ECM=ECM+EP - DCM=DCM+P2(IP)/EP - ENDIF - ENDDO - IF (DCM.EQ.0D0) CALL HWWARN('HWURSC',390) - STEP=2D0*(ECM-SP(5))/DCM - FAC=FAC-STEP - IF (ABS(STEP).LT.TINY) GOTO 100 - ENDDO -C--FAILED TO CONVERGE - CALL HWWARN('HWURSC',1) -C--CONVERGED: RESCALE 3-MOMENTA AND BOOST BACK - 100 IF (FAC.LT.0D0) CALL HWWARN('HWURSC',391) - FRT=SQRT(FAC) - DO IP=1,NP - CALL HWVSCA(3,FRT,P(1,IP),P(1,IP)) - P(4,IP)=SQRT(M2(IP)+FAC*P2(IP)) - CALL HWULOB(SP,P(1,IP),PP(1,IP)) - ENDDO - END diff --git a/GeneratorInterface/MCatNLOInterface/plugins/mcatnlo_upevnt.f b/GeneratorInterface/MCatNLOInterface/plugins/mcatnlo_upevnt.f deleted file mode 100644 index 09fbce6b9fd15..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/plugins/mcatnlo_upevnt.f +++ /dev/null @@ -1,1050 +0,0 @@ -C Collects all of the Les Houches interface routines, plus utilities -C for colour codes -C Should be backward compatible with v3.1 and v3.2 (thanks to B. Kersevan) -C -C---------------------------------------------------------------------- - SUBROUTINE MCATNLOUPEVNT(IPROC,EXITCODE,IHPRO) -C---------------------------------------------------------------------- -C Reads MC@NLO input files and fills Les Houches event common HEPEUP -C---------------------------------------------------------------------- - -C---------------------------------------------------------------------- -CCC MOFIFICATIONS FOR CMSSW, FST -C INCLUDE 'HERWIG65.INC' -C---Les Houches Event Common Block - IMPLICIT NONE - INTEGER IPROC, IERROR, EXITCODE - DOUBLE PRECISION ZERO,ONE,TWO,THREE,FOUR,HALF - PARAMETER (ZERO =0.D0, ONE =1.D0, TWO =2.D0, - & THREE=3.D0, FOUR=4.D0, HALF=0.5D0) - INTEGER ICHRG(5) -C********* TO TAKE CARE OF - DOUBLE PRECISION RMASS(1000) - INTEGER IHPRO -C---------------------------------------------------------------------- - - INTEGER MAXNUP - PARAMETER (MAXNUP=500) - INTEGER NUP,IDPRUP,IDUP,ISTUP,MOTHUP,ICOLUP - DOUBLE PRECISION XWGTUP,SCALUP,AQEDUP,AQCDUP,PUP,VTIMUP,SPINUP, - & XMP2,XMA2,XMB2,BETA,VA,VB,SIGMA,DELTA,S2,XKA,XKB,PTF,E,PL, - & XSCALE,XEPHO - COMMON/HEPEUP/NUP,IDPRUP,XWGTUP,SCALUP,AQEDUP,AQCDUP, - & IDUP(MAXNUP),ISTUP(MAXNUP),MOTHUP(2,MAXNUP), - & ICOLUP(2,MAXNUP),PUP(5,MAXNUP),VTIMUP(MAXNUP), - & SPINUP(MAXNUP) - DOUBLE PRECISION PCM(5),PTR,XMTR,HWVDOT,HWULDO,PDB(5) - INTEGER I,J,IC,JPR,MQQ,NQQ,IUNIT,ISCALE,I1HPRO,IBOS,NP,IG,IP, - & ILEP,ID,IA,IB,ICOL4(4,5),ICOL5(5,18),ICOP5(5,4),ICOST(4,20), - & IVBF4(4,4),IVBF5(5,8,2),JJPROC,IVHVEC,IVHLEP,MUP,JC - PARAMETER (IUNIT=61) - LOGICAL BOPRO,NODEC,REMIT - COMMON/NQQCOM/MQQ,NQQ - COMMON/VHLIN/IVHVEC,IVHLEP - COMMON/PHOCOM/XEPHO - -C-------------------- FIX FOR CHARGE CORRECTIONS (only for 1497) - DATA ICHRG/ - & -1, 2, -1, 2, -1/ -C------------------------------------------------------------------- - - -C---Colour flows for heavy quark pair production - DATA ICOL4/ - & 10,02,10,02,01,20,20,01,12,23,10,03,12,31,30,02,00,12,10,02/ - DATA ICOL5/ - & 10,02,13,30,02, 10,02,32,10,03, - & 10,21,30,20,03, 10,23,20,10,03, - & 01,20,23,30,01, 01,20,31,20,03, - & 01,23,03,20,01, 01,12,03,30,02, - & 12,20,30,10,03, 12,30,10,30,02, - & 12,03,02,10,03, 12,01,03,30,02, - & 12,23,14,40,03, 12,34,32,10,04, - & 12,23,43,10,04, 12,31,34,40,02, - & 12,34,14,30,02, 12,31,42,30,04/ -C---Colour flows for heavy quark pair photoproduction - DATA ICOP5/ - & 00,12,32,10,03, 00,12,13,30,02, - & 00,10,20,10,02, 00,01,02,20,01/ -C---Colour flows for single top production - DATA ICOST/ - & 20,12,00,10, 12,20,00,10, 10,02,02,10, 02,10,02,10, - & 20,10,20,10, 20,02,01,10, 10,20,20,10, 02,20,01,10, - & 20,02,01,10, 10,02,02,10, 02,20,01,10, 02,10,02,10, - & 20,10,20,10, 10,20,20,10, 12,23,03,10, 23,12,03,10, - & 30,12,32,10, 30,23,21,10, 12,30,32,10, 23,30,21,10/ -C---Colour flows for vector boson fusion - DATA IVBF4/ - & 10,20,10,20, 10,02,10,02, 01,20,01,20, 01,02,01,02/ - DATA IVBF5/ - & 10,20,13,30,20, 10,02,13,30,02, 01,20,31,03,20, 01,02,31,03,02, - & 12,30,10,02,30, 12,03,10,02,03, 10,23,20,10,03, 01,23,20,01,03, - & 10,20,23,10,30, 10,02,32,10,03, 01,20,23,01,30, 01,02,32,01,03, - & 12,30,02,10,30, 12,03,02,10,03, 10,23,03,10,20, 01,23,03,01,20/ - -C----- SANITY FOR CMSSW - EXITCODE=0 - IERROR=0 - ID=0 - IG=0 - ISCALE=0 - IF (IERROR.NE.0) RETURN -C---CHECK PROCESS CODE - JJPROC=MOD(ABS(IPROC),10000) - JPR=JJPROC/100 - -C---READ AN EVENT -C IF(NQQ.GE.MQQ)CALL HWWARN('UPEVNT',201) - -C--------------------------------------------------------------- -C*** changed for CMSSW: IF ALL EVENTS ARE READ IN, RETURN 0 - IF(NQQ.GE.MQQ) THEN - EXITCODE=1 - RETURN - ENDIF -C--------------------------------------------------------------- - - - READ(IUNIT,901) I1HPRO,IC,NP - READ(IUNIT,902) (IDUP(I),I=1,NP) - IF (JPR.EQ.51) THEN - READ(IUNIT,903) XWGTUP,XSCALE,XEPHO - ELSE - READ(IUNIT,903) XWGTUP,XSCALE - ENDIF -C---Les Houches expects mean weight to be the cross section in pb - XWGTUP= XWGTUP*MQQ - READ(IUNIT,904) ((PUP(J,I),J=1,4),I=1,NP) - NQQ=NQQ+1 -C---Input format is now (px,py,pz,m) - DO I=1,NP - E=SQRT(HWVDOT(4,PUP(1,I),PUP(1,I))) - PUP(5,I)=PUP(4,I) - PUP(4,I)=E - ENDDO - CALL HWVSUM(4,PUP(1,1),PUP(1,2),PCM) - CALL HWUMAS(PCM) -C---REMIT MEANS A REAL PARTON EMISSION OCCURRED - REMIT=PUP(4,3).NE.ZERO -C---NODEC MEANS DECAYS NOT YET DONE - NODEC=NP.EQ.5 - NUP=NP - BOPRO=JPR.EQ.13.OR.JPR.EQ.14.OR.JPR.EQ.16.OR.JPR.EQ.36 - IF (BOPRO) THEN -C---------------------------------------------------------------------- -C SINGLE GAUGE OR HIGGS BOSON PRODUCTION -C B = Z/gamma, W or H (SM or any MSSM neutral Higgs) -C----------------------------------------------------------------------- -C I1HPRO IDENTIFIES THE PARTONIC SUBPROCESS, WITH THE FOLLOWING CONVENTIONS: -C I1HPRO PROCESS -C 401 q qbar -> g B -C 402 q g -> q B -C 403 qbar q -> g B -C 404 qbar g -> qbar B -C 405 g q -> q B -C 406 g qbar -> qbar B -C 407 g g -> g B -C----------------------------------------------------------------------- -C---NODEC=.TRUE. FOR HIGGS AND UNDECAYED EW BOSON - NODEC=NP.EQ.4 - IHPRO=I1HPRO-400 - ISCALE=0 - IF(JPR.EQ.16)ISCALE=2 - ELSEIF (JPR.EQ.17.OR.JPR.EQ.20.OR.JPR.EQ.51) THEN -C---------------------------------------------------------------------- -C HEAVY Q and/or QBAR PRODUCTION -C IPROC=-1705,-1706 for Q=b,t -C IPROC=-5105,-5106 for Q=b,t photoproduction -C IPROC=-2000,-2030/1/4 for single top, Wt+Wtb/Wtb/Wt -C----------------------------------------------------------------------- -C I1HPRO IDENTIFIES THE PARTONIC SUBPROCESS, WITH THE FOLLOWING CONVENTIONS: -C I1HPRO PROCESS -C 401 q qbar -> g Q Qbar -C 402 q g -> q Q Qbar -C 403 qbar q -> g Q Qbar -C 404 qbar g -> qbar Q Qbar -C 405 g q -> q Q Qbar -C 406 g qbar -> qbar Q Qbar -C 407 g g -> g Q Qbar -C 408 q q -> g t q -C 409 qbar qbar -> g tbar qbar -C----------------------------------------------------------------------- -C 505 gamma q -> q Q Qbar -C 506 gamma qbar -> qbar Q Qbar -C 507 gamma g -> g Q Qbar -C----------------------------------------------------------------------- -C IC SPECIFIES THE COLOUR CONNECTION (NOW IN INPUT FILE) -C----------------------------------------------------------------------- -C---SET IHPRO AS FOR DIRECT PHOTON (IPROC=1800) - IHPRO=I1HPRO-360 - ISCALE=0 - IF(ABS(IPROC).EQ.1705.OR.ABS(IPROC).EQ.11705)ISCALE=5 - ELSEIF (JPR.EQ.19) THEN -C---------------------------------------------------------------------- -C Higgs production by vector boson fusion -C IPROC=-1900-ID where ID controls Higgs decay -C----------------------------------------------------------------------- -C I1HPRO IDENTIFIES THE PARTONIC SUBPROCESS, WITH THE FOLLOWING CONVENTIONS: -C I1HPRO PROCESS -C 401 q q -> g q q h -C 402 q qbar -> g q qbar h -C 403 qbar q -> g qbar q h -C 404 qbar qbar -> g qbar qbar h -C 405 g q -> q qbar q h OR qbar q q h -C 406 g qbar -> q qbar qbar h OR qbar q qbar h -C 407 q g -> q q qbar h OR qbar q q h -C 408 qbar g -> q qbar qbar h OR qbar qbar q h -C----------------------------------------------------------------------- -C IC SPECIFIES THE COLOUR CONNECTION (NOW IN INPUT FILE) -C For processes 401-4, IC = 1,2 for gluon (3) connection to parton IC -C For processes 405-8, IC = 1,2 for 'emitted' parton (3) = q,qbar -C----------------------------------------------------------------------- - IHPRO=I1HPRO-400 -C--Scale?? - ISCALE=0 - ELSEIF (JPR.EQ.28) THEN -C---------------------------------------------------------------------- -C GAUGE BOSON PAIR PRODUCTION -C VV=WW,ZZ,ZW+,ZW- FOR IPROC=-2850,-2860,-2870,-2880 -C----------------------------------------------------------------------- -C I1HPRO IDENTIFIES THE PARTONIC SUBPROCESS, WITH THE FOLLOWING CONVENTIONS: -C I1HPRO PROCESS -C 401 q qbar -> g V V -C 402 q g -> q V V -C 403 qbar q -> g V V -C 404 qbar g -> qbar V V -C 405 g q -> q V V -C 406 g qbar -> qbar V V -C----------------------------------------------------------------------- - IHPRO=I1HPRO-400 - ISCALE=0 - ELSEIF (JPR.EQ.26.OR.JPR.EQ.27) THEN -C---------------------------------------------------------------------- -C GAUGE BOSON PLUS HIGGS PRODUCTION -C VH=WH,ZH FOR IPROC=-2600-ID,-2700-ID -C WHERE ID CONTROLS HIGGS DECAY AS IN STANDARD HERWIG -C----------------------------------------------------------------------- - IHPRO=I1HPRO-400 - ISCALE=0 - ELSEIF (JPR.EQ.1) THEN -C---------------------------------------------------------------------- -C E+E- ANNIHILATION -C---------------------------------------------------------------------- - ISCALE=1 - ELSE - CALL HWWARN('UPEVNT',202) - ENDIF -C---HARD SCALE - SCALUP=PCM(5) - IF (XSCALE.GT.0D0.AND.XSCALE.LT.PCM(5)) SCALUP=XSCALE - IF (REMIT) THEN - IF (ISCALE.EQ.0) THEN - PTR=SQRT(PUP(1,3)**2+PUP(2,3)**2) - SCALUP=PCM(5)-2.*PTR - ELSEIF(ISCALE.EQ.1)THEN - SCALUP=PCM(5) - ELSEIF (ISCALE.EQ.2) THEN - SCALUP=SQRT(PUP(1,3)**2+PUP(2,3)**2) - ELSEIF (ISCALE.EQ.3.OR.ISCALE.EQ.4.OR.ISCALE.EQ.5) THEN - PTR=SQRT(PUP(1,3)**2+PUP(2,3)**2) - IA=4 - IB=5 - XMP2=PUP(5,3)**2 - XMA2=PUP(5,IA)**2 - XMB2=PUP(5,IB)**2 - S2=XMA2+XMB2+2*HWULDO(PUP(1,IA),PUP(1,IB)) - SIGMA=XMA2+XMB2 - DELTA=XMA2-XMB2 - BETA=SQRT(1-2*SIGMA/S2+(DELTA/S2)**2) - VA=BETA/(1+DELTA/S2) - VB=BETA/(1-DELTA/S2) - XKA=HWULDO(PUP(1,3),PUP(1,IA)) - XKB=HWULDO(PUP(1,3),PUP(1,IB)) - E=(XKA+XKB)/SQRT(S2) - PL=-2.0/((VA+VB)*BETA*SQRT(S2))*(VA*XKA-VB*XKB) - PTF=E**2-PL**2-XMP2 - IF (PTF.LE.ZERO) THEN - CALL HWWARN('UPEVNT',103) - GOTO 999 - ENDIF - PTF=SQRT(PTF) - IF(ISCALE.EQ.3)THEN - SCALUP=PCM(5)-2.*MIN(PTR,PTF) - ELSEIF(ISCALE.EQ.4)THEN - SCALUP=MIN(PTR,PTF) - ELSE - SCALUP=(MIN(PTR,PTF))**2+(XMA2+XMB2)/2.D0 - SCALUP=SQRT(SCALUP) - ENDIF - IF (SCALUP.LE.ZERO) THEN - CALL HWWARN('UPEVNT',100) - GOTO 999 - ENDIF - ELSEIF (ISCALE.EQ.6) THEN - XMTR=SQRT(PUP(5,4)**2+PUP(1,4)**2+PUP(2,4)**2) - PTR=SQRT(PUP(1,3)**2+PUP(2,3)**2) - SCALUP=PCM(5)-PTR-XMTR - IF (SCALUP.LE.ZERO) THEN - CALL HWWARN('UPEVNT',100) - GOTO 999 - ENDIF - ELSEIF (ISCALE.EQ.7) THEN - SCALUP=SQRT(PUP(5,4)**2+PUP(1,4)**2+PUP(2,4)**2) - ELSE - CALL HWWARN('UPEVNT',501) - ENDIF - ELSE - NUP=NUP-1 - ENDIF -C---INITIAL STATE - DO I=1,2 - ISTUP(I)=-1 - MOTHUP(1,I)=0 - MOTHUP(2,I)=0 - ENDDO -C---FINAL STATE - DO I=3,NUP - ISTUP(I)=1 - MOTHUP(1,I)=1 - MOTHUP(2,I)=2 - ENDDO - IF (BOPRO.AND.NODEC) THEN -C---SINGLE BOSON (UNDECAYED) - IF (REMIT) THEN -C---SET COLOUR CONNECTIONS - DO I=1,3 - ICOLUP(1,I)=501 - ICOLUP(2,I)=502 - ENDDO - IF (IHPRO.EQ.1) THEN - ICOLUP(2,1)=0 - ICOLUP(1,2)=0 - ELSEIF (IHPRO.EQ.2) THEN - ICOLUP(1,1)=502 - ICOLUP(2,1)=0 - ICOLUP(2,3)=0 - ELSEIF (IHPRO.EQ.3) THEN - ICOLUP(1,1)=0 - ICOLUP(2,2)=0 - ELSEIF (IHPRO.EQ.4) THEN - ICOLUP(1,1)=0 - ICOLUP(2,1)=501 - ICOLUP(1,3)=0 - ELSEIF (IHPRO.EQ.5) THEN - ICOLUP(1,2)=502 - ICOLUP(2,2)=0 - ICOLUP(2,3)=0 - ELSEIF (IHPRO.EQ.6) THEN - ICOLUP(1,2)=0 - ICOLUP(2,2)=501 - ICOLUP(1,3)=0 - ELSEIF (IHPRO.EQ.7) THEN - ICOLUP(1,2)=502 - ICOLUP(2,2)=503 - ICOLUP(2,3)=503 - ELSE - CALL HWWARN('UPEVNT',101) - GOTO 999 - ENDIF - ELSE - CALL HWVEQU(5,PUP(1,4),PUP(1,3)) -C---SET COLOUR CONNECTIONS - DO I=1,2 - ICOLUP(1,I)=0 - ICOLUP(2,I)=0 - ENDDO - IF (IDUP(1).GT.0) THEN - ICOLUP(1,1)=501 - ICOLUP(2,2)=501 - IF (IDUP(1).GT.0) THEN -C---GG FUSION - ICOLUP(2,1)=502 - ICOLUP(1,2)=502 - ENDIF - ELSE -C---QBAR Q - ICOLUP(2,1)=501 - ICOLUP(1,2)=501 - ENDIF - ENDIF - ICOLUP(1,NUP)=0 - ICOLUP(2,NUP)=0 -C---LOAD BOSON ID - IF (JPR.EQ.13) THEN - IDUP(NUP)=23 - ELSEIF (JPR.EQ.16) THEN - IDUP(NUP)=25 - ELSEIF (JPR.EQ.36) THEN - IBOS=MOD(JJPROC,100) - IF (IBOS.EQ.10) THEN - IDUP(NUP)=26 - ELSEIF (IBOS.EQ.20) THEN - IDUP(NUP)=35 - ELSEIF (IBOS.EQ.30) THEN - IDUP(NUP)=36 - ELSE - CALL HWWARN('UPEVNT',502) - ENDIF - ELSEIF (JPR.EQ.14) THEN - IBOS=0 - DO I=1,NUP-1 - ID=IDUP(I) -C----------- SANITY CHECK DUE TO A HACK (FST, 21.3.2008) - IF((ABS(ID).GT.5).AND.(ID.NE.21)) THEN - WRITE(*,*) 'FATAL ERROR IN UPEVNT' - STOP -C----------- END OF SANITY CHECK - ENDIF - IF (ID.EQ.21) THEN - IC=0 - ELSEIF (ID.GT.0) THEN - IC=ICHRG(ID) - ELSE -C IC=ICHRG(6-ID) - IC=-ICHRG(ID) - ENDIF - IBOS=IBOS+IC - ENDDO - IF (REMIT) IBOS=IBOS-2*IC - IF (ABS(IBOS).NE.3) CALL HWWARN('UPEVNT',503) - IDUP(NUP)=8*IBOS - ENDIF - ELSEIF (JPR.EQ.51.AND.IDUP(1).EQ.22) THEN -C---HEAVY QUARK DIRECT PHOTOPRODUCTION - IF (REMIT) THEN -C---3-BODY FINAL STATE -C---SET COLOUR CONNECTIONS - IF (IC.GE.4.AND.IC.LE.7) THEN - JC=IC-3 - DO I=1,5 - CALL UPCODE(ICOP5(I,JC),ICOLUP(1,I)) - ENDDO - ELSE - CALL HWWARN('UPEVNT',105) - GOTO 999 - ENDIF - ELSE -C---2-BODY FINAL STATE - DO IP=3,NUP - IDUP(IP)=IDUP(IP+1) - CALL HWVEQU(5,PUP(1,IP+1),PUP(1,IP)) - ENDDO -C---SET COLOUR CONNECTIONS - IF (IC.GE.1.AND.IC.LE.3) THEN - JC=IC - IF (IC.EQ.3) JC=5 - DO I=1,4 - CALL UPCODE(ICOL4(I,JC),ICOLUP(1,I)) - ENDDO - ELSE - CALL HWWARN('UPEVNT',104) - GOTO 999 - ENDIF - ENDIF - ELSEIF (JPR.EQ.19) THEN -C---HIGGS VIA VBF - IF (REMIT) THEN -C---4-BODY FINAL STATE -C---SET COLOUR CONNECTIONS - IF (IHPRO.GE.5) THEN - IC=1 - IF (IDUP(3).LT.0) IC=2 - ENDIF - IF (IHPRO.LE.8.AND.IC.LE.2) THEN - DO I=1,5 - CALL UPCODE(IVBF5(I,IHPRO,IC),ICOLUP(1,I)) - ENDDO - ELSE - CALL HWWARN('UPEVNT',105) - GOTO 999 - ENDIF - ELSE -C---3-BODY FINAL STATE - DO IP=3,NUP - IDUP(IP)=IDUP(IP+1) - CALL HWVEQU(5,PUP(1,IP+1),PUP(1,IP)) - ENDDO -C---SET COLOUR CONNECTIONS - IF (IHPRO.LE.4) THEN - DO I=1,4 - CALL UPCODE(IVBF4(I,IHPRO),ICOLUP(1,I)) - ENDDO - ELSE - CALL HWWARN('UPEVNT',104) - GOTO 999 - ENDIF - ENDIF - ICOLUP(1,NUP)=0 - ICOLUP(2,NUP)=0 - ELSEIF (JPR.EQ.17.OR.(JPR.EQ.51.AND.IDUP(1).NE.22)) THEN -C---HEAVY QUARKS - IF (REMIT) THEN -C---3-BODY FINAL STATE -C---SET COLOUR CONNECTIONS - IF (IC.LE.18) THEN - DO I=1,5 - CALL UPCODE(ICOL5(I,IC),ICOLUP(1,I)) - ENDDO - ELSE - CALL HWWARN('UPEVNT',105) - GOTO 999 - ENDIF - ELSE -C---2-BODY FINAL STATE - DO IP=3,NUP - IDUP(IP)=IDUP(IP+1) - CALL HWVEQU(5,PUP(1,IP+1),PUP(1,IP)) - ENDDO -C---SET COLOUR CONNECTIONS - IF (IC.LE.4) THEN - DO I=1,4 - CALL UPCODE(ICOL4(I,IC),ICOLUP(1,I)) - ENDDO - ELSE - CALL HWWARN('UPEVNT',104) - GOTO 999 - ENDIF - ENDIF - IF (.NOT.NODEC) THEN -C---T-TBAR WITH DECAYS -C LES HOUCHES COMMON IS FILLED AS FOLLOWS: -C -C 1 INCOMING PARTON -C 2 INCOMING PARTON -C 3 OUTGOING LIGHT PARTON (IF ANY, OTHERWISE 4-13 BECOME 3-12) -C 4 TOP -C 5 ANTITOP -C 6 QUARK FROM TOP -C 7 W+ FROM TOP -C 8 ANTIQUARK FROM ANTITOP -C 9 W- FROM ANTITOP -C 10 DECAY PRODUCT FROM W+ FROM TOP -C 11 DECAY PRODUCT FROM W+ FROM TOP -C 12 DECAY PRODUCT FROM W- FROM ANTITOP -C 13 DECAY PRODUCT FROM W- FROM ANTITOP -C -C---RECONSTRUCT TOP DECAYS - IF (MOD(JJPROC,10).NE.6) THEN - CALL HWWARN('UPEVNT',210) - GOTO 999 - ENDIF - NP=NUP -C--W DECAYS - IDUP(NP+1)=IDUP(NP-5) - IDUP(NP+2)=IDUP(NP-4) - IDUP(NP+3)=IDUP(NP-2) - IDUP(NP+4)=IDUP(NP-1) - IDUP(NP-1)=IDUP(NP) - CALL HWVEQU(5,PUP(1,NP-5),PUP(1,NP+1)) - CALL HWVEQU(5,PUP(1,NP-4),PUP(1,NP+2)) - CALL HWVEQU(5,PUP(1,NP-2),PUP(1,NP+3)) - CALL HWVEQU(5,PUP(1,NP-1),PUP(1,NP+4)) - CALL HWVEQU(5,PUP(1,NP ),PUP(1,NP-1)) - CALL HWVSUM(4,PUP(1,NP+1),PUP(1,NP+2),PUP(1,NP-2)) - CALL HWVSUM(4,PUP(1,NP+3),PUP(1,NP+4),PUP(1,NP)) - CALL HWUMAS(PUP(1,NP-2)) - CALL HWUMAS(PUP(1,NP)) - IDUP(NP-2)=-24*(MOD(IDUP(NP+1),2)+MOD(IDUP(NP+2),2)) - IDUP(NP)=-IDUP(NP-2) - DO IP=NP-3,NP+4 - ISTUP(IP)=1 - ENDDO - ISTUP(NP-2)=2 - ISTUP(NP)=2 -C--TOP DECAYS - CALL HWVSUM(4,PUP(1,NP-3),PUP(1,NP-2),PUP(1,NP-5)) - CALL HWVSUM(4,PUP(1,NP-1),PUP(1,NP ),PUP(1,NP-4)) - CALL HWUMAS(PUP(1,NP-5)) - CALL HWUMAS(PUP(1,NP-4)) - IDUP(NP-5)=IDUP(NP-2)/4 - IDUP(NP-4)=-IDUP(NP-5) - ISTUP(NP-5)=2 - ISTUP(NP-4)=2 - MOTHUP(1,NP-5)=1 - MOTHUP(2,NP-5)=2 - MOTHUP(1,NP-4)=1 - MOTHUP(2,NP-4)=2 - MOTHUP(1,NP-3)=NP-5 - MOTHUP(1,NP-2)=NP-5 - MOTHUP(1,NP-1)=NP-4 - MOTHUP(1,NP )=NP-4 - MOTHUP(1,NP+1)=NP-2 - MOTHUP(1,NP+2)=NP-2 - MOTHUP(1,NP+3)=NP - MOTHUP(1,NP+4)=NP - DO IP=NP-3,NP+4 - MOTHUP(2,IP)=MOTHUP(1,IP) - ICOLUP(1,IP)=0 - ICOLUP(2,IP)=0 - ENDDO - ICOLUP(1,NP-3)=ICOLUP(1,NP-5) - ICOLUP(2,NP-3)=ICOLUP(2,NP-5) - ICOLUP(1,NP-1)=ICOLUP(1,NP-4) - ICOLUP(2,NP-1)=ICOLUP(2,NP-4) - IF (IDUP(NP+1).GT.0) THEN - ICOLUP(1,NP+1)=505 - ICOLUP(2,NP+2)=505 - ELSE - ICOLUP(2,NP+1)=505 - ICOLUP(1,NP+2)=505 - ENDIF - IF (IDUP(NP+3).GT.0) THEN - ICOLUP(1,NP+3)=506 - ICOLUP(2,NP+4)=506 - ELSE - ICOLUP(2,NP+3)=506 - ICOLUP(1,NP+4)=506 - ENDIF - NUP=NP+4 - ENDIF - ELSEIF (JPR.EQ.20) THEN - IF (JJPROC.GE.2030) THEN -C---TOP+W FINAL STATE -C---SET COLOUR CONNECTIONS - IF (IC.GT.20) THEN - CALL HWWARN('UPEVNT',111) - GOTO 999 - ENDIF - DO I=1,4 - CALL UPCODE(ICOST(I,IC),ICOLUP(1,I)) - ENDDO - ICOLUP(1,5)=0 - ICOLUP(2,5)=0 - IF (.NOT.REMIT) THEN -C---2-BODY FINAL STATE - DO IP=3,NUP - IDUP(IP)=IDUP(IP+1) - ICOLUP(1,IP)=ICOLUP(1,IP+1) - ICOLUP(2,IP)=ICOLUP(2,IP+1) - CALL HWVEQU(5,PUP(1,IP+1),PUP(1,IP)) - ENDDO - ENDIF - IF (NODEC) THEN - IP=NUP-1 - ELSE - IP=NUP-2 -C---T W (OR TBAR W) WITH DECAYS -C LES HOUCHES COMMON IS FILLED AS FOLLOWS: -C -C 1 INCOMING PARTON -C 2 INCOMING PARTON -C 3 OUTGOING LIGHT PARTON (IF ANY, OTHERWISE 4-11 BECOME 3-10) -C 4 TOP -C 5 W FROM TOP -C 6 QUARK FROM TOP -C 7 DECAY PRODUCT FROM W FROM TOP -C 8 DECAY PRODUCT FROM W FROM TOP -C 9 W NOT FROM TOP -C 10 DECAY PRODUCT FROM W NOT FROM TOP -C 11 DECAY PRODUCT FROM W NOT FROM TOP -C -C---RECONSTRUCT W DECAY - NP=NUP - IDUP(NP+1)=-24*(MOD(IDUP(NP-1),2)+MOD(IDUP(NP),2)) - IDUP(NP+2)=IDUP(NP-1) - IDUP(NP+3)=IDUP(NP) - CALL HWVEQU(5,PUP(1,NP-1),PUP(1,NP+2)) - CALL HWVEQU(5,PUP(1,NP),PUP(1,NP+3)) - CALL HWVSUM(4,PUP(1,NP-1),PUP(1,NP),PUP(1,NP+1)) - CALL HWUMAS(PUP(1,NP+1)) - ISTUP(NP+1)=2 - ISTUP(NP+2)=1 - ISTUP(NP+3)=1 - MOTHUP(1,NP+1)=1 - MOTHUP(2,NP+1)=2 - MOTHUP(1,NP+2)=NP+1 - MOTHUP(2,NP+2)=NP+1 - MOTHUP(1,NP+3)=NP+1 - MOTHUP(2,NP+3)=NP+1 - ICOLUP(1,NP+1)=0 - ICOLUP(2,NP+1)=0 - ICOLUP(1,NP+2)=505 - ICOLUP(2,NP+2)=0 - ICOLUP(1,NP+3)=0 - ICOLUP(2,NP+3)=505 - NUP=NP+3 - ENDIF - IF (IDUP(IP).LT.0) THEN -C---CHARGE CONJUGATE PROCESS - DO I=1,NUP - IA=ICOLUP(1,I) - ICOLUP(1,I)=ICOLUP(2,I) - ICOLUP(2,I)=IA - ENDDO - ENDIF - ELSE -C---SINGLE TOP: IA,IB ARE THE QUARKS THAT ARE COLOUR CONNECTED -C I.E. (FOR H EVENTS) THOSE THAT ARE NOT CONNECTED TO GLUON - IA=IC/10 - IB=IC-10*IA - IF (IA.LT.1.OR.IA.GT.5) THEN - CALL HWWARN('UPEVNT',108) - ELSEIF (IB.LT.1.OR.IB.GT.5) THEN - CALL HWWARN('UPEVNT',109) - ELSEIF (IA.EQ.IB) THEN - CALL HWWARN('UPEVNT',110) - ENDIF - IF (IERROR.NE.0) GOTO 999 - IF (.NOT.NODEC) THEN - ID=IDUP(5) - IDUP(5)=IDUP(7) - ENDIF - DO I=1,5 - IF (I.EQ.IA.OR.I.EQ.IB) THEN - IF (IDUP(I).GT.0) THEN - ICOLUP(1,I)=501 - ICOLUP(2,I)=0 - ELSE - ICOLUP(1,I)=0 - ICOLUP(2,I)=501 - ENDIF - ELSEIF (IDUP(I).EQ.21) THEN - IG=I - ICOLUP(1,I)=502 - ICOLUP(2,I)=503 - ELSEIF (IDUP(I).GT.0) THEN - ICOLUP(1,I)=502 - ICOLUP(2,I)=0 - ELSE - ICOLUP(1,I)=0 - ICOLUP(2,I)=502 - ENDIF - ENDDO - IF (.NOT.NODEC) IDUP(5)=ID - IF (REMIT) THEN -C---3-BODY FINAL STATE -C---COMPLETE GLUON COLOUR CONNECTIONS - IF (.NOT.NODEC) THEN - ID=IDUP(5) - IDUP(5)=IDUP(7) - ENDIF - DO I=1,5 - IF (I.NE.IA.AND.I.NE.IB.AND.I.NE.IG) THEN - IF (IDUP(I).GT.0) THEN - IF((I.LT.3.AND.IG.LT.3) - & .OR.(I.GT.2.AND.IG.GT.2)) ICOLUP(1,I)=503 - ELSE - IF((I.LT.3.AND.IG.GT.2) - & .OR.(I.GT.2.AND.IG.LT.3)) ICOLUP(2,I)=503 - ENDIF - ENDIF - ENDDO - IF (.NOT.NODEC) IDUP(5)=ID - ELSE -C---2-BODY FINAL STATE - DO IP=3,NUP - IDUP(IP)=IDUP(IP+1) - CALL HWVEQU(5,PUP(1,IP+1),PUP(1,IP)) - ENDDO -C---SET COLOUR CONNECTIONS - ICOLUP(1,3)=ICOLUP(1,4) - ICOLUP(2,3)=ICOLUP(2,4) - ICOLUP(1,4)=ICOLUP(1,5) - ICOLUP(2,4)=ICOLUP(2,5) - ENDIF - ENDIF - IF (.NOT.NODEC) THEN - IF (JJPROC.GE.2030) THEN - NP=NUP-5 - ELSE - NP=NUP -C---SINGLE TOP WITH DECAYS -C LES HOUCHES COMMON IS FILLED AS FOLLOWS: -C -C 1 INCOMING PARTON -C 2 INCOMING PARTON -C 3 OUTGOING LIGHT PARTON (IF ANY, OTHERWISE 4-9 BECOME 3-8) -C 4 OUTGOING BBAR-TYPE QUARK -C 5 TOP -C 6 W FROM TOP -C 7 QUARK FROM TOP -C 8 DECAY PRODUCT FROM W FROM TOP -C 9 DECAY PRODUCT FROM W FROM TOP -C -C---RECONSTRUCT TOP DECAY - ENDIF - IDUP(NP+1)=IDUP(NP-2) - IDUP(NP+2)=IDUP(NP-1) - IDUP(NP-1)=-24*(MOD(IDUP(NP+1),2)+MOD(IDUP(NP+2),2)) - IDUP(NP-2)=IDUP(NP-1)/4 - CALL HWVEQU(5,PUP(1,NP-2),PUP(1,NP+1)) - CALL HWVEQU(5,PUP(1,NP-1),PUP(1,NP+2)) - CALL HWVSUM(4,PUP(1,NP+1),PUP(1,NP+2),PUP(1,NP-1)) - CALL HWVSUM(4,PUP(1,NP-1),PUP(1,NP ),PUP(1,NP-2)) - CALL HWUMAS(PUP(1,NP-1)) - CALL HWUMAS(PUP(1,NP-2)) - DO IP=NP-3,NP+2 - ISTUP(IP)=1 - ENDDO - ISTUP(2)=-1 - ISTUP(NP-1)=2 - ISTUP(NP-2)=2 - MOTHUP(1,NP-3)=1 - MOTHUP(2,NP-3)=2 - MOTHUP(1,NP-2)=1 - MOTHUP(2,NP-2)=2 - MOTHUP(1,NP-1)=NP-2 - MOTHUP(1,NP )=NP-2 - MOTHUP(1,NP+1)=NP-1 - MOTHUP(1,NP+2)=NP-1 - DO IP=NP-1,NP+2 - MOTHUP(2,IP)=MOTHUP(1,IP) - ICOLUP(1,IP)=0 - ICOLUP(2,IP)=0 - ENDDO - ICOLUP(1,NP)=ICOLUP(1,NP-2) - ICOLUP(2,NP)=ICOLUP(2,NP-2) - IF (IDUP(NP+1).GT.0) THEN - ICOLUP(1,NP+1)=504 - ICOLUP(2,NP+2)=504 - ELSE - ICOLUP(2,NP+1)=504 - ICOLUP(1,NP+2)=504 - ENDIF - IF (JJPROC.LT.2030) NUP=NP+2 - ENDIF - ELSEIF (JPR.EQ.1) THEN - -C-------- SAFTY CHECK FOR CMSSW, WE REMOVE ee collisions - WRITE(*,*) 'EE COLLSIONS NOT SUPPORTED FOR CMSSW' - STOP - -C---E+E- ANNIHILATION - DO I=1,NUP - ICOLUP(1,I)=0 - ICOLUP(2,I)=0 - ENDDO -C---RESCALE 3-MOMENTA TO PUT PARTONS ON-SHELL - PUP(5,1)=RMASS(121) - PUP(5,2)=PUP(5,1) - CALL HWURSC(2,PUP) - PUP(5,3)=RMASS(13) - PUP(5,4)=RMASS(ABS(IDUP(4))) - PUP(5,5)=PUP(5,4) - IF (REMIT) THEN - CALL HWURSC(3,PUP(1,3)) - ICOLUP(1,3)=501 - ICOLUP(2,3)=502 - IF (IDUP(4).GT.0) THEN - ICOLUP(1,4)=502 - ICOLUP(2,5)=501 - ELSE - ICOLUP(2,4)=501 - ICOLUP(1,5)=502 - ENDIF - ELSE - CALL HWURSC(2,PUP(1,4)) - DO I=3,4 - CALL HWVEQU(5,PUP(1,I+1),PUP(1,I)) - IDUP(I)=IDUP(I+1) - ISTUP(I)=1 - ENDDO - IF (IDUP(3).GT.0) THEN - ICOLUP(1,3)=501 - ICOLUP(2,4)=501 - ELSE - ICOLUP(2,3)=501 - ICOLUP(1,4)=501 - ENDIF - ENDIF - ELSE -C---BOSON PAIR OR LEPTON PAIR - IF (BOPRO.OR.NODEC) THEN - NUP=6 - DO I=6,5,-1 - CALL HWVEQU(5,PUP(1,I-1),PUP(1,I)) - IDUP(I)=IDUP(I-1) - ISTUP(I)=1 - ENDDO - ELSE -C---BOSON PAIR: ONE OR BOTH DECAYED -C---ADD BOSON(S) TO EVENT RECORD - IF (ABS(IDUP(6)).LT.20) THEN - NUP=8 - I=2 - IF (ABS(IDUP(4)).LT.20) THEN - NUP=10 - I=3 - ENDIF - MUP=NUP-1 - CALL HWVEQU(5,PUP(1,MUP-I),PUP(1,MUP)) - CALL HWVEQU(5,PUP(1,NUP-I),PUP(1,NUP)) - CALL HWVSUM(4,PUP(1,MUP),PUP(1,NUP),PUP(1,6)) - CALL HWUMAS(PUP(1,6)) - IDUP(MUP)=IDUP(MUP-I) - IDUP(NUP)=IDUP(NUP-I) - ISTUP(MUP)=1 - ISTUP(NUP)=1 - MOTHUP(1,MUP)=6 - MOTHUP(2,MUP)=6 - MOTHUP(1,NUP)=6 - MOTHUP(2,NUP)=6 - ISTUP(6)=2 - ID=MOD(IDUP(MUP),2)+MOD(IDUP(NUP),2) - IF (ID.EQ.0) THEN - IDUP(6)=23 - ELSEIF (ABS(ID).EQ.1) THEN - IDUP(6)=-24*ID - ELSE - CALL HWWARN('UPEVNT',106) - GOTO 999 - ENDIF - ENDIF - IF (ABS(IDUP(4)).LT.20) THEN - CALL HWVZRO(4,PDB) - DO I=8,7,-1 - CALL HWVEQU(5,PUP(1,I-3),PUP(1,I)) - CALL HWVSUM(4,PUP(1,I),PDB,PDB) - IDUP(I)=IDUP(I-3) - ISTUP(I)=1 - MOTHUP(1,I)=5 - MOTHUP(2,I)=5 - ENDDO - CALL HWUMAS(PDB) - CALL HWVEQU(5,PDB,PUP(1,5)) - ISTUP(5)=2 - ID=MOD(IDUP(7),2)+MOD(IDUP(8),2) - IF (ID.EQ.0) THEN - IDUP(5)=23 - ELSEIF (ABS(ID).EQ.1) THEN - IDUP(5)=-24*ID - ELSE - CALL HWWARN('UPEVNT',107) - GOTO 999 - ENDIF - ELSE - CALL HWVEQU(5,PUP(1,4),PUP(1,5)) - IDUP(5)=IDUP(4) - ISTUP(5)=1 - MOTHUP(1,5)=4 - MOTHUP(2,5)=4 - ENDIF - ENDIF -C---ADD DIBOSON OR DILEPTON TO EVENT RECORD (TO FIX ITS MASS) - CALL HWVZRO(4,PDB) - DO I=6,5,-1 - CALL HWVSUM(4,PUP(1,I),PDB,PDB) - MOTHUP(1,I)=4 - MOTHUP(2,I)=4 - ENDDO - CALL HWUMAS(PDB) - CALL HWVEQU(5,PDB,PUP(1,4)) - ISTUP(4)=2 - IDUP(4)=0 - IF (REMIT) THEN -C---SET COLOUR CONNECTIONS - DO I=1,3 - ICOLUP(1,I)=501 - ICOLUP(2,I)=502 - ENDDO - IF (IHPRO.EQ.1) THEN - ICOLUP(2,1)=0 - ICOLUP(1,2)=0 - ELSEIF (IHPRO.EQ.2) THEN - ICOLUP(1,1)=502 - ICOLUP(2,1)=0 - ICOLUP(2,3)=0 - ELSEIF (IHPRO.EQ.3) THEN - ICOLUP(1,1)=0 - ICOLUP(2,2)=0 - ELSEIF (IHPRO.EQ.4) THEN - ICOLUP(1,1)=0 - ICOLUP(2,1)=501 - ICOLUP(1,3)=0 - ELSEIF (IHPRO.EQ.5) THEN - ICOLUP(1,2)=502 - ICOLUP(2,2)=0 - ICOLUP(2,3)=0 - ELSEIF (IHPRO.EQ.6) THEN - ICOLUP(1,2)=0 - ICOLUP(2,2)=501 - ICOLUP(1,3)=0 - ELSE - CALL HWWARN('UPEVNT',102) - GOTO 999 - ENDIF - DO I=4,NUP - ICOLUP(1,I)=0 - ICOLUP(2,I)=0 - ENDDO - ELSE - DO I=5,NUP - CALL HWVEQU(5,PUP(1,I),PUP(1,I-2)) - IDUP(I-2)=IDUP(I) - ISTUP(I-2)=ISTUP(I) - MOTHUP(1,I-2)=MOTHUP(1,I)-2 - MOTHUP(2,I-2)=MOTHUP(1,I)-2 - ENDDO - MOTHUP(1,3)=1 - MOTHUP(1,4)=1 - NUP=NUP-2 -C---SET COLOUR CONNECTIONS - DO I=1,NUP - ICOLUP(1,I)=0 - ICOLUP(2,I)=0 - ENDDO - IF (IDUP(1).GT.0) THEN - ICOLUP(1,1)=501 - ICOLUP(2,2)=501 - ELSE - ICOLUP(2,1)=501 - ICOLUP(1,2)=501 - ENDIF - ENDIF - IF (BOPRO) THEN -C---DILEPTON PRODUCTION - IBOS=MOD(JJPROC,100) - ILEP=MOD(JJPROC,10) - IBOS=IBOS-ILEP -C---LOAD LEPTON AND BOSON ID - I=NUP-1 - J=NUP - IF ( IBOS.EQ.50 .OR. - # (IBOS.EQ.60.AND.JPR.EQ.13) .OR. - # (IBOS.EQ.70.AND.JPR.EQ.13) ) THEN - IDUP(I)=-ILEP-10 - IDUP(J)=-IDUP(I) - IF (REMIT) IDUP(4)=23 - ELSEIF (IBOS.EQ.60.AND.JPR.EQ.14) THEN - IDUP(I)=-9-2*ILEP - IDUP(J)=1-IDUP(I) - IF (REMIT) IDUP(4)=24 - ELSEIF (IBOS.EQ.70.AND.JPR.EQ.14) THEN - IDUP(I)=-10-2*ILEP - IDUP(J)=-1-IDUP(I) - IF (REMIT) IDUP(4)=-24 - ELSE - CALL HWWARN('UPEVNT',504) - ENDIF - ENDIF - ENDIF - 999 CONTINUE - IF(IERROR.LT.100) RETURN - PRINT * - DO I=1,NUP - PRINT '(4I4,5F8.2)',IDUP(I),ISTUP(I),(ICOLUP(J,I),J=1,2), - & (PUP(J,I),J=1,5) - ENDDO -c IPR, IC, NP - 901 FORMAT(1X,I3,2(1X,I2)) -c (ID(I),I=1,NP) - 902 FORMAT(9(1X,I3)) -c XEVWGT,EMSCA - 903 FORMAT(3(1X,D14.8)) -c ((P(J,I),J=1,4),I=1,NP) - 904 FORMAT(36(1X,D14.8)) -c 901 FORMAT(1X,I3,4(1X,I2)) -c 902 FORMAT(1X,D14.8) -c 903 FORMAT(16(1X,D14.8)) - END -C---------------------------------------------------------------------- - SUBROUTINE UPCODE(ICODE,ICOL) -C--DECODES COLOUR CONNECTIONS -C---------------------------------------------------------------------- - IMPLICIT NONE - INTEGER ICODE,ICOL(2) - ICOL(1)=ICODE/10 - IF (ICOL(1).NE.0) ICOL(1)=ICOL(1)+500 - ICOL(2)=MOD(ICODE,10) - IF (ICOL(2).NE.0) ICOL(2)=ICOL(2)+500 - END diff --git a/GeneratorInterface/MCatNLOInterface/plugins/mcatnlo_upinit.f b/GeneratorInterface/MCatNLOInterface/plugins/mcatnlo_upinit.f deleted file mode 100644 index daf76c94943b8..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/plugins/mcatnlo_upinit.f +++ /dev/null @@ -1,539 +0,0 @@ - -C---------------------------------------------------------------------- - SUBROUTINE MCATNLOUPINIT(IPROC, QQIN) -C---------------------------------------------------------------------- -C Reads MC@NLO input headers and fills Les Houches run common HEPRUP -C---------------------------------------------------------------------- - -C---------------------------------------------------------------------- -CCC MOFIFICATIONS FOR CMSSW, FST -C INCLUDE 'HERWIG65.INC' -C--Les Houches Common Blocks - -C to make sure we don't have uninitialized variables - IMPLICIT NONE - INTEGER IPROC, IERROR - DOUBLE PRECISION PBEAM1, PBEAM2 - CHARACTER*8 PART1,PART2 - DOUBLE PRECISION ZERO,ONE,TWO,THREE,FOUR,HALF - PARAMETER (ZERO =0.D0, ONE =1.D0, TWO =2.D0, - & THREE=3.D0, FOUR=4.D0, HALF=0.5D0) - -C***** TO TAKE CARE OF - DOUBLE PRECISION RMASS(1000) - DOUBLE PRECISION EMMIN, EMMAX, GAMMAX, GAMW, GAMZ - INTEGER EMMINS,EMMAXS,GAMMAXS, GAMWS, GAMZS - INTEGER RMASSS(1000) - COMMON/MCPARS/ EMMIN, EMMAX, GAMMAX, RMASS, GAMW, GAMZ, - & EMMINS, EMMAXS, GAMMAXS, RMASSS, GAMWS, GAMZS -C---------------------------------------------------------------------- - - INTEGER MAXPUP - PARAMETER(MAXPUP=100) - INTEGER IDBMUP,PDFGUP,PDFSUP,IDWTUP,NPRUP,LPRUP - DOUBLE PRECISION EBMUP,XSECUP,XERRUP,XMAXUP - COMMON /HEPRUP/ IDBMUP(2),EBMUP(2),PDFGUP(2),PDFSUP(2), - & IDWTUP,NPRUP,XSECUP(MAXPUP),XERRUP(MAXPUP), - & XMAXUP(MAXPUP),LPRUP(MAXPUP) - INTEGER MAXNUP - PARAMETER (MAXNUP=500) - INTEGER NUP,IDPRUP,IDUP,ISTUP,MOTHUP,ICOLUP - DOUBLE PRECISION XWGTUP,SCALUP,AQEDUP,AQCDUP,PUP,VTIMUP,SPINUP - COMMON/HEPEUP/NUP,IDPRUP,XWGTUP,SCALUP,AQEDUP,AQCDUP, - & IDUP(MAXNUP),ISTUP(MAXNUP),MOTHUP(2,MAXNUP), - & ICOLUP(2,MAXNUP),PUP(5,MAXNUP),VTIMUP(MAXNUP), - & SPINUP(MAXNUP) - DOUBLE PRECISION XCKECM,XCKPB1,XTMP1,XTMP2,XTMP3,XTMP4,XMT,XMW, - & XMZ,XMH,XMV,XM1,XM2,XM3,XM4,XM5,XM21,XLAM,GAH,GAT,GAW,TINY - DOUBLE PRECISION XMV1,GAV1,GAMAX1,XMV2,GAV2,GAMAX2 - - DOUBLE PRECISION GAMZ0, GAMW0 - - INTEGER IVVCODE,IFAIL,MQQ,NQQ,IHW,I,NDNS1,NDNS2,JPR,JPR0,IH,IHQ, - & IVHVEC,IVHLEP,IVLEP1,IVLEP2 - CHARACTER*60 TMPSTR,TMPSTR2 - CHARACTER*4 STRP1,STRP2 - CHARACTER*8 STRGRP1,STRGRP2 - CHARACTER*2 STRSCH - CHARACTER*3 STRFMT - CHARACTER*(*) QQIN -C *** FST: NOT NEEDED WITHIN CMSSW -C LOGICAL FK88STRNOEQ,OLDFORM - LOGICAL OLDFORM - DATA TINY/1.D-3/ - COMMON/NQQCOM/MQQ,NQQ - COMMON/VHLIN/IVHVEC,IVHLEP - COMMON/VVLIN/IVLEP1,IVLEP2 -C - - -CC SET 'TOUCHED' FLAGS TO ZERO (CMSSW) - EMMINS=0 - EMMAXS=0 - GAMMAXS=0 - GAMWS=0 - GAMZS=0 -c... initialize - NDNS1=0 - NDNS2=0 - DO I=1,1000 - RMASSS(I)=0 - ENDDO - - -CC SET UESLESS IERROR TO ZERO (CMSSW) - IERROR=0 - - IF (IERROR.NE.0) RETURN - OLDFORM=.FALSE. -C--SET UP INPUT FILES - OPEN(UNIT=61,FILE=QQIN,STATUS='UNKNOWN') -C--READ HEADERS OF EVENT FILE - READ(61,801)XCKECM,XTMP1,XTMP2,XTMP3,XTMP4,TMPSTR - -C------ FST-HACK: ONLY ALLOW PBEAM1=PBEAM2 - PBEAM1=XCKECM/2D0 - PBEAM2=XCKECM/2D0 - - READ(61,802)IVVCODE,TMPSTR - IVVCODE=MOD(IVVCODE,10000) -C---CHECK PROCESS CODE - JPR0=MOD(ABS(IPROC),10000) - JPR=JPR0/100 - IF (JPR.NE.IVVCODE/100) CALL HWWARN('UPINIT',500) - IF ((JPR.EQ.17.OR.JPR.EQ.28.OR.JPR.EQ.36).AND. - & IVVCODE.NE.MOD(ABS(IPROC),10000)) CALL HWWARN('UPINIT',501) - - IF (JPR.EQ.13.OR.JPR.EQ.14) THEN - -C---------------------------------------------------------------- -C---- ADDED FROM mcatnlo_hwdriver.f (MC@NLO 3.4), Fabian Stoeckli - - IF(JPR0.EQ.1396)THEN -C WRITE(*,*)'Enter M_GAMMA*(INF), M_GAMMA*(SUP)' - READ(61,808)EMMIN,EMMAX,TMPSTR - EMMINS=1 - EMMAXS=1 - - ELSEIF(JPR0.EQ.1397)THEN -C WRITE(*,*)'Enter Z0 mass, width, and GammaX' - READ(61,809)RMASS(200),GAMZ0,GAMMAX, TMPSTR - IF(GAMZ0.NE.0.D0) THEN - GAMZ=GAMZ0 - GAMZS=1 - ENDIF - RMASSS(200)=1 - GAMMAXS=1 - - ELSEIF(JPR0.EQ.1497.OR.JPR0.EQ.1498)THEN - WRITE(*,*)'Enter W mass, width, and GammaX' - READ(61,809)RMASS(198),GAMW0,GAMMAX, TMPSTR - RMASS(199)=RMASS(198) - - RMASSS(199)=1 - RMASSS(198)=1 - - IF(GAMW0.NE.0.D0) THEN - GAMW=GAMW0 - GAMWS=1 - ENDIF - - ELSEIF( (JPR0.GE.1350.AND.JPR0.LE.1356) .OR. - # (JPR0.GE.1361.AND.JPR0.LE.1366) )THEN -C WRITE(*,*)'Enter Z0 mass, width' - - READ(61,809) XMV ,GAMZ0, GAMMAX, TMPSTR - - RMASS(200)=XMV - RMASSS(200)=1 - GAMZ=GAMZ0 - GAMZS=1 - GAMMAXS=1 - -C WRITE(*,*)'Enter GAMMAX, M_Z*(INF), M_Z*(SUP)' -C READ(*,*)GAMMAX,EMMIN,EMMAX - -C EMMINS=1 -C EMMAXS=1 - - IF(IPROC.GT.0) THEN - - WRITE(*,*) 'IMPOSSIBLE ERROR' - STOP - - EMMIN=RMASS(200)-GAMZ*GAMMAX - EMMAX=RMASS(200)+GAMZ*GAMMAX - ENDIF - - ELSEIF(JPR0.GE.1371.AND.JPR0.LE.1373)THEN -C WRITE(*,*)'Enter M_LL(INF), M_LL(SUP)' - READ(61,808)EMMIN,EMMAX,TMPSTR - - EMMINS=1 - EMMAXS=1 - - ELSEIF( (JPR0.GE.1450.AND.JPR0.LE.1453) .OR. - # (JPR0.GE.1461.AND.JPR0.LE.1463) .OR. - # (JPR0.GE.1471.AND.JPR0.LE.1473) )THEN -C WRITE(*,*)'Enter W mass, width' - READ(61,809) RMASS(198),GAMW, GAMMAX, TMPSTR - RMASS(199)=RMASS(198) - - RMASSS(199)=1 - RMASSS(198)=1 - GAMWS=1 - GAMMAXS=1 - -C WRITE(*,*)'Enter GAMMAX, M_W*(INF), M_W*(SUP)' -C READ(*,*)GAMMAX,EMMIN,EMMAX - -C EMMINS=1 -C EMMAXS=1 - - ENDIF - - ELSEIF (JPR.EQ.28) THEN -C WRITE(*,*)'Enter W mass, width' -C READ(*,*)RMASS(198),GAMW0 -C RMASS(199)=RMASS(198) -C WRITE(*,*)'Enter Z mass, width' -C READ(*,*)RMASS(200),GAMZ0 -C WRITE(*,*)'Enter VGAMMAX, V2GAMMAX' -C READ(*,*)VGAMMAX,V2GAMMAX -C IF(GAMW0.NE.0.D0)GAMW=GAMW0 -C IF(GAMZ0.NE.0.D0)GAMZ=GAMZ0 - - - READ(61,808)XMW,XMZ,TMPSTR -C-- CHECK VECTOR BOSON MASSES - IF(ABS(XMW-RMASS(198)).GT.TINY .OR. - # ABS(XMZ-RMASS(200)).GT.TINY) CALL HWWARN('UPINIT',502) - - RMASS(198)=XMW - RMASS(199)=XMW - RMASS(200)=XMZ - RMASSS(198)=1 - RMASSS(199)=1 - RMASSS(200)=1 - - READ(61,810)IVLEP1,IVLEP2,TMPSTR - READ(61,809)XMV1,GAV1,GAMAX1,TMPSTR - READ(61,809)XMV2,GAV2,GAMAX2,TMPSTR - IF(GAV1.NE.0d0) THEN - IF(JPR0.EQ.2860) THEN - GAMZ=GAV1 - GAMZS=1 - ELSE - GAMW=GAV1 - GAMWS=1 - ENDIF - ENDIF - IF(GAV2.NE.0d0) THEN - IF(JPR0.EQ.2850) THEN - GAMW=GAV2 - GAMWS=1 - ELSE - GAMZ=GAV2 - GAMZS=1 - ENDIF - ENDIF - GAMMAX=MAX(GAMAX1,GAMAX2) - GAMMAXS=1 - -C ELSEIF (JPR.EQ.16) THEN -C WRITE(*,*)'Enter Higgs boson and top masses' -C READ(*,*)RMASS(201),RMASS(6) - - ELSEIF (JPR.EQ.16.OR.JPR.EQ.36) THEN - READ(61,809)XMH,GAH,XMT,TMPSTR -C-- CHECK HIGGS AND TOP MASSES - IH=201 - IF (JPR.EQ.36) IH=IVVCODE/10-158 - IF(ABS(XMH-RMASS(IH)).GT.TINY) CALL HWWARN('UPINIT',503) - IF(ABS(XMT-RMASS(6)) .GT.TINY) CALL HWWARN('UPINIT',504) - - RMASS(IH)=XMH - RMASSS(IH)=1 - RMASS(6)=XMT - RMASSS(6)=1 - -C ELSEIF (JPR.EQ.17) THEN -C IF(ABS(IPROC).EQ.1705.OR.ABS(IPROC).EQ.11705)THEN -C WRITE(*,*)'Enter bottom mass' -C READ(*,*)RMASS(5) -C ELSEIF(ABS(IPROC).EQ.1706.OR.ABS(IPROC).EQ.11706)THEN -C WRITE(*,*)'Enter top mass, W mass' -C READ(*,'(A)') TMPSTR2 -C READ(TMPSTR2,*,ERR=616)RMASS(6),RMASS(198) -C RMASS(199)=RMASS(198) -C GOTO 617 -C 616 OLDFORM=.TRUE. -C READ(TMPSTR2,*) RMASS(6) -C 617 CONTINUE -C ENDIF - - - ELSEIF (JPR.EQ.17.OR.JPR.EQ.51) THEN - IHQ=MOD(JPR0,10) - IF (IHQ.EQ.6) THEN - READ(61,'(A)') TMPSTR2 - IF (TMPSTR2(17:19).EQ.'M_Q') THEN - OLDFORM=.TRUE. - READ(TMPSTR2,803)XMT,TMPSTR - ELSE - READ(TMPSTR2,808)XMT,GAT,TMPSTR - ENDIF - ELSE - READ(61,803)XMT,TMPSTR - ENDIF -C-- CHECK HEAVY QUARK MASS - IF(ABS(XMT-RMASS(IHQ)).GT.TINY) CALL HWWARN('UPINIT',505) - - RMASS(IHQ)=XMT - RMASSS(IHQ)=1 - - IF (IHQ.EQ.6) THEN - IF(.NOT.OLDFORM)THEN - READ(61,808)XMW,GAW,TMPSTR - READ(61,810)IVLEP1,IVLEP2,TMPSTR - - RMASS(198)=XMW - RMASS(199)=XMW - RMASSS(198)=1 - RMASSS(199)=1 - -C-- CHECK W BOSON MASS WHEN TOPS DECAY - IF( IVLEP1.NE.7.AND.IVLEP2.NE.7 .AND. - # ABS(XMW-RMASS(198)).GT.TINY ) - # CALL HWWARN('UPINIT',502) - IF( IVLEP1.NE.7.AND.IVLEP2.NE.7 ) THEN - RMASS(198)=XMW - RMASSS(198)=1 - ENDIF - ELSE - XMW=0.D0 - GAW=0.D0 - IVLEP1=7 - IVLEP2=7 - ENDIF - ENDIF - - -C ELSEIF (JPR.EQ.26) THEN -C WRITE(*,*)'Enter W mass, width' -C READ(*,*)RMASS(198),GAMW0 -C RMASS(199)=RMASS(198) -C WRITE(*,*)'Enter Higgs boson mass' -C READ(*,*)RMASS(201) -C IF(GAMW0.NE.0.D0)GAMW=GAMW0 -C ELSEIF (JPR.EQ.27) THEN -C WRITE(*,*)'Enter Z mass, width' -C READ(*,*)RMASS(200),GAMZ0 -C WRITE(*,*)'Enter Higgs boson mass' -C READ(*,*)RMASS(201) -C IF(GAMZ0.NE.0.D0)GAMZ=GAMZ0 - - - ELSEIF (JPR.EQ.26.OR.JPR.EQ.27.OR.JPR.EQ.19) THEN - READ(61,810)IVHVEC,IVHLEP,TMPSTR - READ(61,809)XMV,GAW,GAMMAX,TMPSTR - READ(61,809)XMH,GAH,GAMMAX,TMPSTR - GAMMAXS=1 - IF( (JPR.EQ.26.AND.ABS(XMV-RMASS(199)).GT.TINY) .OR. - # (JPR.EQ.27.AND.ABS(XMV-RMASS(200)).GT.TINY) ) - # CALL HWWARN('UPINIT',508) - -C--------CMSSW: SET MASSES - SELECT CASE (JPR) - CASE (27) - RMASS(200)=XMV - RMASSS(200)=1 - IF(GAW.NE.0D0) THEN - GAMZ=GAW - GAMZS=1 - ENDIF - CASE (26) - RMASS(198)=XMV - RMASSS(198)=1 - RMASS(199)=XMV - RMASSS(199)=1 - IF(GAW.NE.0D0) THEN - GAMW=GAW - GAMWS=1 - ENDIF - END SELECT - - IF(ABS(XMH-RMASS(201)).GT.TINY) CALL HWWARN('UPINIT',509) - - RMASS(201)=XMH - RMASSS(201)=1 - - -C ELSEIF (JPR.EQ.20) THEN -C WRITE(*,*)'Enter top mass, W mass' -C READ(*,'(A)') TMPSTR2 -C READ(TMPSTR2,*,ERR=618)RMASS(6),RMASS(198) -C RMASS(199)=RMASS(198) -C GOTO 619 -C 618 OLDFORM=.TRUE. -C READ(TMPSTR2,*) RMASS(6) -C 619 CONTINUE - - ELSEIF (JPR.EQ.20) THEN - READ(61,'(A)') TMPSTR2 - IF (TMPSTR2(28:43).EQ.'M_top, Gamma_top') THEN - READ(TMPSTR2,808)XMT,GAT,TMPSTR - ELSE - OLDFORM=.TRUE. - READ(TMPSTR2,803)XMT,TMPSTR - ENDIF -C-- CHECK TOP QUARK MASS - IF(ABS(XMT-RMASS(6)).GT.TINY) CALL HWWARN('UPINIT',511) - RMASS(6)=XMT - RMASSS(6)=1 - IF(OLDFORM)GOTO 444 - READ(61,808)XMW,GAW,TMPSTR - - RMASS(198)=XMW - RMASSS(198)=1 - RMASS(199)=XMW - RMASSS(199)=1 - - IF(JPR0.LT.2030)THEN - READ(61,812)IVLEP1,TMPSTR -C-- CHECK W BOSON MASS WHEN TOPS DECAY - IF( IVLEP1.NE.7 .AND. - # ABS(XMW-RMASS(198)).GT.TINY ) CALL HWWARN('UPINIT',502) - ELSE - READ(61,810)IVLEP1,IVLEP2,TMPSTR -C-- CHECK W BOSON MASS - IF(ABS(XMW-RMASS(198)).GT.TINY) CALL HWWARN('UPINIT',502) - ENDIF - 444 CONTINUE - ELSEIF (JPR.NE.1) THEN - CALL HWWARN('UPINIT',506) - ENDIF - - READ(61,804)XM1,XM2,XM3,XM4,XM5,XM21,TMPSTR - IF (JPR.NE.1) THEN - READ(61,805)STRP1,STRP2,TMPSTR - READ(61,806)STRGRP1,NDNS1,TMPSTR - IF (JPR.EQ.51) THEN - READ(61,806)STRGRP2,NDNS2,TMPSTR - READ(61,803)XCKPB1,TMPSTR - IF(ABS(XCKPB1-PBEAM1).GT.TINY) CALL HWWARN('UPINIT',512) - ELSE - STRGRP2=STRGRP1 - NDNS2=NDNS1 - ENDIF - ENDIF - READ(61,807)XLAM,STRSCH,TMPSTR -C--CHECK THAT EVENT FILE HAS BEEN GENERATED CONSISTENTLY WITH -C--HERWIG PARAMETERS ADOPTED HERE - IFAIL=0 -C-- CM ENERGY - IF( ABS(XCKECM-2D0*SQRT(PBEAM1*PBEAM2)).GT.TINY .OR. -C-- QUARK AND GLUON MASSES - # ABS(XM1-RMASS(1)).GT.TINY .OR. - # ABS(XM2-RMASS(2)).GT.TINY .OR. - # ABS(XM3-RMASS(3)).GT.TINY .OR. - # ABS(XM4-RMASS(4)).GT.TINY .OR. - # ABS(XM5-RMASS(5)).GT.TINY .OR. - # ABS(XM21-RMASS(13)).GT.TINY) IFAIL=1 - - RMASS(1)=XM1 - RMASSS(1)=1 - RMASS(2)=XM2 - RMASSS(2)=1 - RMASS(3)=XM3 - RMASSS(3)=1 - RMASS(4)=XM4 - RMASSS(4)=1 - RMASS(5)=XM5 - RMASSS(5)=1 - RMASS(13)=XM21 - RMASSS(13)=1 - - DO I=1,5 - RMASS(I+6)=RMASS(I) - RMASSS(I+6)=1 - ENDDO - -C-- LAMBDA_QCD: NOW REMOVED TO ALLOW MORE FLEXIBILITY (NNLO EFFECT ANYHOW) -C # ABS(XLAM-QCDLAM).GT.TINY .OR. -C-- REPLACE THE FOLLOWING WITH A CONDITION ON STRSCH, IF CONSISTENT -C-- INFORMATION ON PDF SCHEME WILL BE AVAILABLE FROM PDF LIBRARIES AND HERWIG -C-- COLLIDING PARTICLE TYPE - - -CC *** FST: SET PATRICLES FROM FILE - - PART1=STRP1 - PART2=STRP2 - -CC *** AND SET THE PFGSUPs - PDFSUP(1)=NDNS1 - PDFSUP(2)=NDNS2 - -CC-------- MODIFED FOR CMSSW: WE SET PDF INFO OURSELVES (20.3.2008, FST)------------ - - - -C IF (JPR.NE.1.AND.IFAIL.EQ.0) THEN -C IF( -C # FK88STRNOEQ(STRP1,PART1) .OR. -C # FK88STRNOEQ(STRP2,PART2) )IFAIL=1 -C--IF PDF LIBRARY IS USED, CHECK PDF CONSISTENCY -C IF( IFAIL.EQ.0 .AND. MODPDF(1).NE.-1)THEN -C IF( -C # FK88STRNOEQ(STRGRP1,AUTPDF(1)) .OR. -C # FK88STRNOEQ(STRGRP2,AUTPDF(2)) .OR. -C # ABS(NDNS1-MODPDF(1)).GT.TINY .OR. -C # ABS(NDNS2-MODPDF(2)).GT.TINY )IFAIL=1 -C--WHEN LHAPDF IS LINKED, AUTPDF() IS A MC@NLO-DEFINED STRING -C IF(AUTPDF(1).EQ.'LHAPDF'.OR.AUTPDF(1).EQ.'LHAEXT')THEN -C AUTPDF(1)='DEFAULT' -C AUTPDF(2)='DEFAULT' -C ENDIF -C ENDIF -C ENDIF - - IF(IFAIL.EQ.1) CALL HWWARN('UPINIT',507) - CALL HWUIDT(3,IDBMUP(1),IHW,PART1) - CALL HWUIDT(3,IDBMUP(2),IHW,PART2) - EBMUP(1)=PBEAM1 - EBMUP(2)=PBEAM2 - DO I=1,2 - PDFGUP(I)=-1 -C PDFSUP(I)=-1 - ENDDO - IDWTUP=-4 - NPRUP=1 - LPRUP(1)=IVVCODE -C-- TEST FOR NEW FORMAT INPUT MOMENTA: (PX,PY,PZ,M) - READ(61,811) STRFMT,TMPSTR - IF (STRFMT.NE.'P,M') CALL HWWARN('UPINIT',510) - READ(61,900) MQQ - NQQ=0 -C-- LARGEST EXPECTED NUMBER OF LEGS - NUP=10 - AQEDUP=ZERO - AQCDUP=ZERO - DO I=1,NUP - VTIMUP(I)=ZERO - SPINUP(I)=9. - ENDDO - 801 FORMAT(5(1X,D10.4),1X,A) - 802 FORMAT(1X,I6,1X,A) - 803 FORMAT(1X,D10.4,1X,A) - 804 FORMAT(6(1X,D10.4),1X,A) - 805 FORMAT(2(1X,A4),1X,A) - 806 FORMAT(1X,A8,1X,I6,1X,A) - 807 FORMAT(1X,D10.4,1X,A2,1X,A) - 808 FORMAT(2(1X,D10.4),1X,A) - 809 FORMAT(3(1X,D10.4),1X,A) - 810 FORMAT(2(1X,I2),1X,A) - 811 FORMAT(1X,A3,1X,A) - 812 FORMAT(1X,I2,1X,A) - 900 FORMAT(I9) - END diff --git a/GeneratorInterface/MCatNLOInterface/test/BuildFile.xml b/GeneratorInterface/MCatNLOInterface/test/BuildFile.xml deleted file mode 100644 index cd9ba644ba7aa..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/test/BuildFile.xml +++ /dev/null @@ -1,11 +0,0 @@ - - - - - - - - - - - diff --git a/GeneratorInterface/MCatNLOInterface/test/Z.events b/GeneratorInterface/MCatNLOInterface/test/Z.events deleted file mode 100644 index a09333689855d..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/test/Z.events +++ /dev/null @@ -1,89 +0,0 @@ - 0.1000E+05 0.1000E+01 0.1000E+01 0.1000E+01 0.1000E+01 --> CM energy, muR/mu0[NLO], muF/mu0[NLO], muR/mu0[MC], muF/mu0[MC] - 1361 --> 135#/136#/137#/146#/147#=Zg/Z/g/W+/W- - 0.9117E+02 0.2495E+01 0.3000E+02 --> M_V, Ga_V, GammaX - 0.3200E+00 0.3200E+00 0.5000E+00 0.1550E+01 0.4950E+01 0.7500E+00 --> quark and gluon masses - P P --> colliding particles - LHAPDF 10050 --> PDF group and id number - 0.2260E+00 MS --> Lambda_5, scheme - P,M --> Format of v3.1 and higher - 20 - 401 0 5 - 2 -2 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.13514067E+02 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.20267438E+03 0.32000000E+00 -.99845753E+01 -.39068745E+01 -.12354700E+02 0.75000000E+00 0.31612891E+02 -.34320932E+02 -.67896271E+02 0.51099890E-03 -.21628316E+02 0.38227807E+02 -.10890934E+03 0.51099890E-03 - 401 0 5 - 2 -2 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.30315602E+03 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.47249778E+01 0.32000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 -.37024451E+02 0.83102209E-01 0.18155366E+03 0.51099890E-03 0.37024451E+02 -.83102209E-01 0.11687738E+03 0.51099890E-03 - 403 0 5 - -1 1 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.50970730E+01 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.40919178E+03 0.32000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.41303135E+02 -.19420465E+02 -.19223803E+03 0.51099890E-03 -.41303135E+02 0.19420465E+02 -.21185667E+03 0.51099890E-03 - 403 0 5 - -1 1 21 -11 11 - -.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.76778410E+02 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.30033675E+02 0.32000000E+00 -.76352655E+00 0.44792357E+01 0.19828585E+01 0.75000000E+00 -.44227468E+02 -.11757987E+02 0.24705492E+02 0.51099890E-03 0.44990994E+02 0.72787515E+01 0.20056385E+02 0.51099890E-03 - 402 0 5 - 5 21 5 -11 11 - -.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.67327990E-01 0.33323952E+01 0.00000000E+00 0.00000000E+00 -.18659020E+04 0.75000000E+00 -.92515573E+01 0.15040146E+02 -.21056138E+03 0.49500000E+01 0.19161362E+01 -.95790229E+01 -.16403174E+04 0.51099890E-03 0.73354211E+01 -.54611232E+01 -.14955893E+02 0.51099890E-03 - 403 0 5 - -2 2 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.70330877E+01 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.49844405E+03 0.32000000E+00 0.11953825E+02 0.22394850E+02 -.12427986E+03 0.75000000E+00 -.15231625E+02 0.31776010E+02 -.99427535E+02 0.51099890E-03 0.32777999E+01 -.54170859E+02 -.26770357E+03 0.51099890E-03 - 403 0 5 - -2 2 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.11291948E+03 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.18321800E+02 0.32000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 -.27150661E+01 0.12357295E+02 -.15733925E+02 0.51099890E-03 0.27150661E+01 -.12357295E+02 0.11033161E+03 0.51099890E-03 - 401 0 5 - 3 -3 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.53614100E+03 0.50000000E+00 0.00000000E+00 0.00000000E+00 -.34368503E+01 0.50000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.29241651E+01 0.84882360E+01 0.24798972E+01 0.51099890E-03 -.29241651E+01 -.84882360E+01 0.53022425E+03 0.51099890E-03 - 403 0 5 - -2 2 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.29724943E+03 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.70112368E+01 0.32000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 -.29271319E+02 0.16510483E+02 0.24811917E+03 0.51099890E-03 0.29271319E+02 -.16510483E+02 0.42119025E+02 0.51099890E-03 - 401 0 5 - 1 -1 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.61282326E+02 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.35801150E+02 0.32000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 -.13615498E+02 -.24680885E+01 -.33635824E+02 0.51099890E-03 0.13615498E+02 0.24680885E+01 0.59116999E+02 0.51099890E-03 - 403 0 5 - -1 1 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.25035592E+03 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.83012282E+01 0.32000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 -.68636069E+01 -.39877861E+02 0.61413285E+02 0.51099890E-03 0.68636069E+01 0.39877861E+02 0.18064141E+03 0.51099890E-03 - 403 0 5 - -2 2 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.17817983E+03 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.12433476E+02 0.32000000E+00 0.85724409E+00 0.73894892E-01 0.13810737E+01 0.75000000E+00 0.23400844E+02 0.10180525E+02 0.34287034E+01 0.51099890E-03 -.24258088E+02 -.10254419E+02 0.16093658E+03 0.51099890E-03 - 403 0 5 - -2 2 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.38536621E+01 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.63024398E+03 0.32000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 -.26060163E+02 0.10782919E+02 -.53079351E+02 0.51099890E-03 0.26060163E+02 -.10782919E+02 -.57331097E+03 0.51099890E-03 - 403 0 5 - -1 1 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.67018271E+01 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.29517621E+03 0.32000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 -.32549376E+02 -.29780812E+02 -.12473579E+03 0.51099890E-03 0.32549376E+02 0.29780812E+02 -.16373859E+03 0.51099890E-03 - 403 0 5 - -2 2 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.21223654E+01 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.94904370E+03 0.32000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.26731780E+02 -.12034403E+02 -.11259271E+03 0.51099890E-03 -.26731780E+02 0.12034403E+02 -.83432862E+03 0.51099890E-03 - 403 0 5 - -2 2 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.20529198E+01 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.10736251E+04 0.32000000E+00 0.93390583E+00 0.38733606E+00 -.68238946E+02 0.75000000E+00 -.42948876E+02 0.52655128E+01 -.33614420E+03 0.51099890E-03 0.42014971E+02 -.56528488E+01 -.66718907E+03 0.51099890E-03 - 403 0 5 - -2 2 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.31676415E+01 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.64708761E+03 0.32000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.17270999E+02 -.41316780E+02 -.37249564E+03 0.51099890E-03 -.17270999E+02 0.41316780E+02 -.27142433E+03 0.51099890E-03 - 404 0 5 - -4 21 -4 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.11687641E+03 0.15500000E+01 0.00000000E+00 0.00000000E+00 -.23069243E+02 0.75000000E+00 -.80762618E+01 -.27565020E+01 0.17330809E+02 0.15500000E+01 0.25040326E+02 -.55237547E+01 0.92399887E+02 0.51099890E-03 -.16964064E+02 0.82802568E+01 -.15923528E+02 0.51099890E-03 - 401 0 5 - 3 -3 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.35441132E+03 0.50000000E+00 0.00000000E+00 0.00000000E+00 -.62182405E+01 0.50000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 0.00000000E+00 -.22244747E+02 0.16512121E+02 0.28453460E+02 0.51099890E-03 0.22244747E+02 -.16512121E+02 0.31973962E+03 0.51099890E-03 - 401 0 5 - 1 -1 21 -11 11 - 0.31678814E-01 - 0.00000000E+00 0.00000000E+00 0.46860839E+02 0.32000000E+00 0.00000000E+00 0.00000000E+00 -.98853169E+02 0.32000000E+00 0.22859100E+02 0.31997970E+02 0.79379017E+00 0.75000000E+00 -.41307673E+02 0.77977589E+01 -.63773653E+01 0.51099890E-03 0.18448573E+02 -.39795729E+02 -.46408755E+02 0.51099890E-03 diff --git a/GeneratorInterface/MCatNLOInterface/test/ZeeAnalyzer.cc b/GeneratorInterface/MCatNLOInterface/test/ZeeAnalyzer.cc deleted file mode 100644 index c672378a41d2a..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/test/ZeeAnalyzer.cc +++ /dev/null @@ -1,152 +0,0 @@ -/* This is en example for an Analyzer of a MCatNLO HeoMCProduct - The analyzer fills a histogram with the event weights, - and looks for electron/positron pairs and fills a histogram - with the invaraint mass of the two. -*/ - -// -// Original Author: Fabian Stoeckli -// Created: Tue Nov 14 13:43:02 CET 2006 -// -// - -// system include files -#include -#include - -#include "FWCore/Framework/interface/Frameworkfwd.h" -#include "FWCore/Framework/interface/one/EDAnalyzer.h" -#include "FWCore/Framework/interface/Event.h" -#include "FWCore/Framework/interface/MakerMacros.h" -#include "FWCore/Utilities/interface/InputTag.h" -#include "FWCore/ParameterSet/interface/ParameterSet.h" -#include "FWCore/ServiceRegistry/interface/Service.h" - -#include "HepMC/WeightContainer.h" -#include "HepMC/GenEvent.h" -#include "HepMC/GenParticle.h" - -#include "SimDataFormats/GeneratorProducts/interface/HepMCProduct.h" -#include "SimDataFormats/GeneratorProducts/interface/GenEventInfoProduct.h" - -#include "CommonTools/UtilAlgos/interface/TFileService.h" -#include "DataFormats/Math/interface/LorentzVector.h" - -#include "TH1D.h" -#include "TFile.h" - -// -// class decleration -// - -class ZeeAnalyzer : public edm::one::EDAnalyzer { -public: - explicit ZeeAnalyzer(const edm::ParameterSet&); - ~ZeeAnalyzer() override = default; - -private: - void beginJob() override {} - void analyze(const edm::Event&, const edm::EventSetup&) override; - void endJob() override; - - // ----------member data --------------------------- - const edm::InputTag hepMCProductTag_; - const edm::InputTag genEventInfoProductTag_; - const std::string outputFilename; - - const edm::EDGetTokenT tokHepMC_; - const edm::EDGetTokenT tokEvent_; - TH1D* weight_histo; - TH1D* invmass_histo; - TH1D* Zpt; - TH1D* hardpt; - TH1D* softpt; - TH1D* hardeta; - TH1D* softeta; - TH1D* hardphi; - TH1D* softphi; - - double sumWeights; -}; - -ZeeAnalyzer::ZeeAnalyzer(const edm::ParameterSet& iConfig) - : hepMCProductTag_(iConfig.getParameter("hepMCProductTag")), - genEventInfoProductTag_(iConfig.getParameter("genEventInfoProductTag")), - outputFilename(iConfig.getUntrackedParameter("OutputFilename", "dummy.root")), - tokHepMC_(consumes(hepMCProductTag_)), - tokEvent_(consumes(genEventInfoProductTag_)) { - usesResource(TFileService::kSharedResource); - edm::Service fs; - - sumWeights = 0.0; - - weight_histo = fs->make("weight_histo", "weight_histo", 20, -10, 10); - invmass_histo = fs->make("invmass_histo", "invmass_histo", 160, 70, 110); - Zpt = fs->make("Zpt", "Zpt", 200, 0, 200); - hardpt = fs->make("hardpt", "hardpt", 200, 0, 200); - softpt = fs->make("softpt", "softpt", 200, 0, 200); - hardeta = fs->make("hardeta", "hardeta", 200, -5, 5); - softeta = fs->make("softeta", "softeta", 200, -5, 5); -} - -// ------------ method called to for each event ------------ -void ZeeAnalyzer::analyze(const edm::Event& iEvent, const edm::EventSetup& iSetup) { - using namespace edm; - - // get HepMC::GenEvent ... - const edm::Handle& evt_h = iEvent.getHandle(tokHepMC_); - HepMC::GenEvent* evt = new HepMC::GenEvent(*(evt_h->GetEvent())); - - const edm::Handle& evt_info = iEvent.getHandle(tokEvent_); - - double weight = evt_info->weight(); - if (weight) - weight_histo->Fill(weight); - - // look for stable electrons/positrons - std::vector electrons; - for (HepMC::GenEvent::particle_iterator it = evt->particles_begin(); it != evt->particles_end(); ++it) { - if (abs((*it)->pdg_id()) == 11 && (*it)->status() == 1) - electrons.push_back(*it); - } - - // if there are at least two electrons/positrons, - // calculate invarant mass of first two and fill it into histogram - - double inv_mass = 0.0; - double Zpt_ = 0.0; - if (electrons.size() > 1) { - math::XYZTLorentzVector tot_momentum(electrons[0]->momentum()); - math::XYZTLorentzVector mom2(electrons[1]->momentum()); - tot_momentum += mom2; - inv_mass = sqrt(tot_momentum.mass2()); - Zpt_ = tot_momentum.pt(); - - // IMPORTANT: use the weight of the event ... - - double weight_sign = (weight > 0) ? 1. : -1.; - invmass_histo->Fill(inv_mass, weight_sign); - Zpt->Fill(Zpt_, weight_sign); - if (electrons[0]->momentum().perp() > electrons[1]->momentum().perp()) { - hardpt->Fill(electrons[0]->momentum().perp(), weight_sign); - softpt->Fill(electrons[1]->momentum().perp(), weight_sign); - hardeta->Fill(electrons[0]->momentum().eta(), weight_sign); - softeta->Fill(electrons[1]->momentum().eta(), weight_sign); - } else { - hardpt->Fill(electrons[1]->momentum().perp(), weight_sign); - softpt->Fill(electrons[0]->momentum().perp(), weight_sign); - hardeta->Fill(electrons[1]->momentum().eta(), weight_sign); - softeta->Fill(electrons[0]->momentum().eta(), weight_sign); - } - - sumWeights += weight_sign; - } - - delete evt; -} - -// ------------ method called once each job just after ending the event loop ------------ -void ZeeAnalyzer::endJob() { std::cout << " total sum wieghts = " << sumWeights << std::endl; } - -//define this as a plug-in -DEFINE_FWK_MODULE(ZeeAnalyzer); diff --git a/GeneratorInterface/MCatNLOInterface/test/analyzeEvents_cfg.py b/GeneratorInterface/MCatNLOInterface/test/analyzeEvents_cfg.py deleted file mode 100644 index 988ba27e183a0..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/test/analyzeEvents_cfg.py +++ /dev/null @@ -1,24 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -process = cms.Process("myprocess") -process.maxEvents = cms.untracked.PSet( - input = cms.untracked.int32(-1) -) - -process.source = cms.Source("PoolSource", - fileNames = cms.untracked.vstring('file:mcatnloZee.root') -) - -process.myanalysis = cms.EDAnalyzer("ZeeAnalyzer", - OutputFilename = cms.untracked.string('Zee_histos.root'), - hepMCProductTag = cms.InputTag("VtxSmeared"), - genEventInfoProductTag = cms.InputTag("generator") -) - -process.TFileService = cms.Service("TFileService", - fileName = cms.string("Zee_histo.root") -) - -process.p = cms.Path(process.myanalysis) - - diff --git a/GeneratorInterface/MCatNLOInterface/test/testReader_cfg.py b/GeneratorInterface/MCatNLOInterface/test/testReader_cfg.py deleted file mode 100644 index 4e74b668c8ff5..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/test/testReader_cfg.py +++ /dev/null @@ -1,19 +0,0 @@ -#!/usr/bin/env cmsRun -import FWCore.ParameterSet.Config as cms - -process = cms.Process("LHE") - -process.source = cms.Source("MCatNLOSource", - fileNames = cms.untracked.vstring('file:Z.events'), - processCode = cms.int32(-11361) - -) - -process.maxEvents = cms.untracked.PSet(input = cms.untracked.int32(-1)) - -process.LHE = cms.OutputModule("PoolOutputModule", - dataset = cms.untracked.PSet(dataTier = cms.untracked.string('LHE')), - fileName = cms.untracked.string('Zeventslhe.root') -) - -process.outpath = cms.EndPath(process.LHE) diff --git a/GeneratorInterface/MCatNLOInterface/test/testSourceAndHadronizer_cfg.py b/GeneratorInterface/MCatNLOInterface/test/testSourceAndHadronizer_cfg.py deleted file mode 100644 index cb27353802d1d..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/test/testSourceAndHadronizer_cfg.py +++ /dev/null @@ -1,65 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -process = cms.Process('Test') - -process.load('Configuration.StandardSequences.Services_cff') -process.load('FWCore.MessageService.MessageLogger_cfi') - -process.source = cms.Source("MCatNLOSource", - fileNames = cms.untracked.vstring('file:Z.events'), - processCode = cms.int32(-11361), - skipEvents=cms.untracked.uint32(0) - -) - -process.maxEvents = cms.untracked.PSet(input = cms.untracked.int32(-1)) - -process.generator = cms.EDFilter("Herwig6HadronizerFilter", - comEnergy = cms.double(10000.0), - useJimmy = cms.bool(False), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(0), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), - - emulatePythiaStatusCodes = cms.untracked.bool(False), - - numTrialsMPI = cms.untracked.int32(1), - - HerwigParameters = cms.PSet( - parameterSets = cms.vstring( - 'herwigMcatnlo' - ), - herwigMcatnlo = cms.vstring( - 'PTMIN = 0.5 ! minimum pt in hadronic jet' - ) - ) -) - - -process.RandomNumberGeneratorService.generator = cms.PSet( - initialSeed = cms.untracked.uint32(123456789), - engineName = cms.untracked.string('HepJamesRandom') -) - -process.load("FWCore.MessageService.MessageLogger_cfi") -process.MessageLogger.cerr.threshold = 'INFO' - - -process.ProductionFilterSequence = cms.Sequence(process.generator) - -process.generation_step = cms.Path(process.ProductionFilterSequence) - -process.output = cms.OutputModule("PoolOutputModule", - fileName = cms.untracked.string('mcatnloZee.root'), - SelectEvents = cms.untracked.PSet( - SelectEvents = cms.vstring('generation_step') - ) -) - -process.output_step = cms.EndPath(process.output) diff --git a/GeneratorInterface/MCatNLOInterface/test/testWriter_cfg.py b/GeneratorInterface/MCatNLOInterface/test/testWriter_cfg.py deleted file mode 100644 index fb6e725da7604..0000000000000 --- a/GeneratorInterface/MCatNLOInterface/test/testWriter_cfg.py +++ /dev/null @@ -1,17 +0,0 @@ -#!/usr/bin/env cmsRun -import FWCore.ParameterSet.Config as cms - -process = cms.Process("Writer") - -process.maxEvents = cms.untracked.PSet(input = cms.untracked.int32(-1)) - -process.source = cms.Source("PoolSource", - fileNames = cms.untracked.vstring('file:Zeventslhe.root') -) - -process.load("FWCore.MessageService.MessageLogger_cfi") -process.MessageLogger.cerr.threshold = 'INFO' - -process.writer = cms.EDAnalyzer("LHEWriter") - -process.outpath = cms.EndPath(process.writer) diff --git a/GeneratorInterface/PhotosInterface/interface/PhotosInterface.h b/GeneratorInterface/PhotosInterface/interface/PhotosInterface.h deleted file mode 100644 index 0528e89245552..0000000000000 --- a/GeneratorInterface/PhotosInterface/interface/PhotosInterface.h +++ /dev/null @@ -1,53 +0,0 @@ -#ifndef gen_PhotosInterface_PhotosInterface_h -#define gen_PhotosInterface_PhotosInterface_h - -// #include "HepPDT/ParticleDataTable.hh" - -#include "FWCore/ParameterSet/interface/ParameterSet.h" -#include "FWCore/Framework/interface/ESHandle.h" -#include "FWCore/Framework/interface/EventSetup.h" - -#include "HepMC/SimpleVector.h" -#include "GeneratorInterface/PhotosInterface/interface/PhotosInterfaceBase.h" - -namespace HepMC { - class GenEvent; - class GenVertex; -} // namespace HepMC - -namespace gen { - class PhotosInterface : public PhotosInterfaceBase { - public: - // ctor & dtor - PhotosInterface(); - PhotosInterface(const edm::ParameterSet&); - ~PhotosInterface() override; - - void init() override; - const std::vector& specialSettings() override { return fSpecialSettings; } - HepMC::GenEvent* apply(HepMC::GenEvent*) override; - void configureOnlyFor(int) override; - void avoidTauLeptonicDecays() override { - fAvoidTauLeptonicDecays = true; - return; - } - bool isTauLeptonicDecay(HepMC::GenVertex*); - void setRandomEngine(CLHEP::HepRandomEngine* decayRandomEngine) override; - static double flat(); - - private: - int fOnlyPDG; - bool fAvoidTauLeptonicDecays; - std::vector fBarcodes; - std::vector fSecVtxStore; - bool fIsInitialized; - - void applyToVertex(HepMC::GenEvent*, int); - void applyToBranch(HepMC::GenEvent*, int); - void attachParticles(HepMC::GenEvent*, HepMC::GenVertex*, int); - - static CLHEP::HepRandomEngine* fRandomEngine; - }; -} // namespace gen - -#endif diff --git a/GeneratorInterface/PhotosInterface/plugins/BuildFile.xml b/GeneratorInterface/PhotosInterface/plugins/BuildFile.xml index d45c12e79e311..7dcc4ceae0995 100644 --- a/GeneratorInterface/PhotosInterface/plugins/BuildFile.xml +++ b/GeneratorInterface/PhotosInterface/plugins/BuildFile.xml @@ -1,13 +1,3 @@ - - - - - - - - - - diff --git a/GeneratorInterface/PhotosInterface/plugins/PhotosInterface.cc b/GeneratorInterface/PhotosInterface/plugins/PhotosInterface.cc deleted file mode 100644 index 42f3429c9162b..0000000000000 --- a/GeneratorInterface/PhotosInterface/plugins/PhotosInterface.cc +++ /dev/null @@ -1,432 +0,0 @@ -#include -#include "GeneratorInterface/PhotosInterface/interface/PhotosInterface.h" -#include "FWCore/PluginManager/interface/ModuleDef.h" -#include "FWCore/Framework/interface/MakerMacros.h" -#include "GeneratorInterface/PhotosInterface/interface/PhotosFactory.h" - -#include "FWCore/ServiceRegistry/interface/Service.h" - -#include "HepMC/GenEvent.h" -#include "HepMC/IO_HEPEVT.h" -#include "HepMC/HEPEVT_Wrapper.h" - -using namespace gen; -using namespace edm; -using namespace std; - -CLHEP::HepRandomEngine* PhotosInterface::fRandomEngine = nullptr; - -extern "C" { - -void phoini_(void); -void photos_(int&); - -double phoran_(int* idummy) { return PhotosInterface::flat(); } - -extern struct { - // bool qedrad[NMXHEP]; - bool qedrad[4000]; // hardcoded for now... -} phoqed_; -} - -PhotosInterface::PhotosInterface() : fOnlyPDG(-1) { - fSpecialSettings.push_back("QED-brem-off:all"); - fAvoidTauLeptonicDecays = false; - fIsInitialized = false; -} - -PhotosInterface::PhotosInterface(const edm::ParameterSet&) : fOnlyPDG(-1) { - fSpecialSettings.push_back("QED-brem-off:all"); - fIsInitialized = false; -} - -PhotosInterface::~PhotosInterface() {} - -void PhotosInterface::setRandomEngine(CLHEP::HepRandomEngine* decayRandomEngine) { fRandomEngine = decayRandomEngine; } - -void PhotosInterface::configureOnlyFor(int ipdg) { - fOnlyPDG = ipdg; - // std::ostringstream command; - // command << "QED-brem-off:" << fOnlyPDG ; - fSpecialSettings.clear(); - // fSpecialSettings.push_back( command.str() ); - - return; -} - -void PhotosInterface::init() { - if (fIsInitialized) - return; // do init only once - - phoini_(); - - fIsInitialized = true; - - return; -} - -HepMC::GenEvent* PhotosInterface::apply(HepMC::GenEvent* evt) { - if (!fIsInitialized) - return evt; // conv.read_next_event(); - - // loop over HepMC::GenEvent, find vertices - - // for ( int ip=0; ipparticles_size(); ip++ ) - for (int ip = 0; ip < 4000; ip++) // 4000 is the max size of the array - { - phoqed_.qedrad[ip] = true; - } - - // - // now do actual job - // - - for (int iv = 1; iv <= evt->vertices_size(); iv++) { - bool legalVtx = false; - - fSecVtxStore.clear(); - - HepMC::GenVertex* vtx = evt->barcode_to_vertex(-iv); - - if (vtx->particles_in_size() != 1) - continue; // more complex than we need - if (vtx->particles_out_size() <= 1) - continue; // no outcoming particles - - if ((*(vtx->particles_in_const_begin()))->pdg_id() == 111) - continue; // pi0 decay vtx - no point to try - - if (fOnlyPDG != 1 && (*(vtx->particles_in_const_begin()))->pdg_id() != fOnlyPDG) { - continue; - } else { - // requested for specific PDG ID only, typically tau (15) - // - // first check if a brem vertex, where outcoming are the same pdg id and a photon - // - bool same = false; - for (HepMC::GenVertex::particle_iterator pitr = vtx->particles_begin(HepMC::children); - pitr != vtx->particles_end(HepMC::children); - ++pitr) { - if ((*pitr)->pdg_id() == fOnlyPDG) { - same = true; - break; - } - } - if (same) - continue; - - // OK, we get here if incoming fOnlyPDG and something else outcoming - // call it for the whole branch starting at vtx barcode iv, and go on - // NOTE: theoretically, it has a danger of double counting in vertices - // down the decay branch originating from fOnlyPDG, but in practice - // it's unlikely that down the branchg there'll be more fOnlyPDG's - - // cross-check printout - // vtx->print(); - - // overprotection... - // - if (fOnlyPDG == 15 && fAvoidTauLeptonicDecays && isTauLeptonicDecay(vtx)) - continue; - - applyToBranch(evt, -iv); - continue; - } - - // configured for all types of particles - // - for (HepMC::GenVertex::particle_iterator pitr = vtx->particles_begin(HepMC::children); - pitr != vtx->particles_end(HepMC::children); - ++pitr) { - // quark or gluon out of this vertex - no good ! - if (abs((*pitr)->pdg_id()) >= 1 && abs((*pitr)->pdg_id()) <= 8) - break; - if (abs((*pitr)->pdg_id()) == 21) - break; - - if ((*pitr)->status() == 1 || (*pitr)->end_vertex()) { - // OK, legal already ! - legalVtx = true; - break; - } - } - - if (!legalVtx) - continue; - - applyToVertex(evt, -iv); - - } // end of master loop - - // restore event number in HEPEVT (safety measure, somehow needed by Hw6) - HepMC::HEPEVT_Wrapper::set_event_number(evt->event_number()); - - return evt; -} - -void PhotosInterface::applyToVertex(HepMC::GenEvent* evt, int vtxbcode) { - HepMC::GenVertex* vtx = evt->barcode_to_vertex(vtxbcode); - - if (fAvoidTauLeptonicDecays && isTauLeptonicDecay(vtx)) - return; - - // cross-check printout - // - // vtx->print(); - - // first, flush out HEPEVT & tmp barcode storage - // - HepMC::HEPEVT_Wrapper::zero_everything(); - fBarcodes.clear(); - - // add incoming particle - // - int index = 1; - HepMC::HEPEVT_Wrapper::set_id(index, (*(vtx->particles_in_const_begin()))->pdg_id()); - HepMC::FourVector vec4; - vec4 = (*(vtx->particles_in_const_begin()))->momentum(); - HepMC::HEPEVT_Wrapper::set_momentum(index, vec4.x(), vec4.y(), vec4.z(), vec4.e()); - HepMC::HEPEVT_Wrapper::set_mass(index, (*(vtx->particles_in_const_begin()))->generated_mass()); - HepMC::HEPEVT_Wrapper::set_position( - index, vtx->position().x(), vtx->position().y(), vtx->position().z(), vtx->position().t()); - HepMC::HEPEVT_Wrapper::set_status(index, (*(vtx->particles_in_const_begin()))->status()); - HepMC::HEPEVT_Wrapper::set_parents(index, 0, 0); - fBarcodes.push_back((*(vtx->particles_in_const_begin()))->barcode()); - - // add outcoming particles (decay products) - // - int lastDau = 1; - for (HepMC::GenVertex::particle_iterator pitr = vtx->particles_begin(HepMC::children); - pitr != vtx->particles_end(HepMC::children); - ++pitr) { - if ((*pitr)->status() == 1 || (*pitr)->end_vertex()) { - index++; - vec4 = (*pitr)->momentum(); - HepMC::HEPEVT_Wrapper::set_id(index, (*pitr)->pdg_id()); - HepMC::HEPEVT_Wrapper::set_momentum(index, vec4.x(), vec4.y(), vec4.z(), vec4.e()); - HepMC::HEPEVT_Wrapper::set_mass(index, (*pitr)->generated_mass()); - vec4 = (*pitr)->production_vertex()->position(); - HepMC::HEPEVT_Wrapper::set_position(index, vec4.x(), vec4.y(), vec4.z(), vec4.t()); - HepMC::HEPEVT_Wrapper::set_status(index, (*pitr)->status()); - HepMC::HEPEVT_Wrapper::set_parents(index, 1, 1); - fBarcodes.push_back((*pitr)->barcode()); - lastDau++; - } - if ((*pitr)->end_vertex()) { - fSecVtxStore.push_back((*pitr)->end_vertex()->barcode()); - } - } - - // store, further to set NHEP in HEPEVT - // - int nentries = index; - - // reset master pointer to mother - index = 1; - HepMC::HEPEVT_Wrapper::set_children(index, 2, lastDau); // FIXME: need to check - // if last daughter>=2 !!! - - // finally, set number of entries (NHEP) in HEPEVT - // - HepMC::HEPEVT_Wrapper::set_number_entries(nentries); - - // cross-check printout HEPEVT - // HepMC::HEPEVT_Wrapper::print_hepevt(); - - // OK, 1-level vertex is formed - now, call PHOTOS - // - photos_(index); - - // another cross-check printout HEPEVT - after photos - // HepMC::HEPEVT_Wrapper::print_hepevt(); - - // now check if something has been generated - // and make all adjustments to underlying vtx/parts - // - attachParticles(evt, vtx, nentries); - - // ugh, done with this vertex ! - - return; -} - -void PhotosInterface::applyToBranch(HepMC::GenEvent* evt, int vtxbcode) { - fSecVtxStore.clear(); - - // 1st level vertex - // - applyToVertex(evt, vtxbcode); - - // now look down the branch for more vertices, if any - // - // Note: fSecVtxStore gets filled up in applyToVertex, if necessary - // - unsigned int vcounter = 0; - - while (vcounter < fSecVtxStore.size()) { - applyToVertex(evt, fSecVtxStore[vcounter]); - vcounter++; - } - - fSecVtxStore.clear(); - - return; -} - -void PhotosInterface::attachParticles(HepMC::GenEvent* evt, HepMC::GenVertex* vtx, int nentries) { - if (HepMC::HEPEVT_Wrapper::number_entries() > nentries) { - // yes, need all corrections and adjustments - - // figure out how many photons and what particles in - // the decay branch have changes; - // also, follow up each one and correct accordingly; - // at the same time, add photon(s) to the GenVertex - // - - // vtx->print(); - - int largestBarcode = -1; - int Nbcodes = fBarcodes.size(); - - for (int ip = 1; ip < Nbcodes; ip++) { - int bcode = fBarcodes[ip]; - HepMC::GenParticle* prt = evt->barcode_to_particle(bcode); - if (bcode > largestBarcode) - largestBarcode = bcode; - double px = HepMC::HEPEVT_Wrapper::px(ip + 1); - double py = HepMC::HEPEVT_Wrapper::py(ip + 1); - double pz = HepMC::HEPEVT_Wrapper::pz(ip + 1); - double e = HepMC::HEPEVT_Wrapper::e(ip + 1); - double m = HepMC::HEPEVT_Wrapper::m(ip + 1); - - if (prt->end_vertex()) { - HepMC::GenVertex* endVtx = prt->end_vertex(); - - std::vector secVtxStorage; - secVtxStorage.clear(); - - secVtxStorage.push_back(endVtx->barcode()); - - const HepMC::FourVector& mom4 = prt->momentum(); - - // now rescale all descendants - double bet1[3], bet2[3], gam1, gam2, pb; - double mass = mom4.m(); - bet1[0] = -(mom4.px() / mass); - bet1[1] = -(mom4.py() / mass); - bet1[2] = -(mom4.pz() / mass); - bet2[0] = px / m; - bet2[1] = py / m; - bet2[2] = pz / m; - gam1 = mom4.e() / mass; - gam2 = e / m; - - unsigned int vcounter = 0; - - while (vcounter < secVtxStorage.size()) { - HepMC::GenVertex* theVtx = evt->barcode_to_vertex(secVtxStorage[vcounter]); - - for (HepMC::GenVertex::particle_iterator pitr = theVtx->particles_begin(HepMC::children); - pitr != theVtx->particles_end(HepMC::children); - ++pitr) { - if ((*pitr)->end_vertex()) { - secVtxStorage.push_back((*pitr)->end_vertex()->barcode()); - } - - if (theVtx->particles_out_size() == 1 && (*pitr)->pdg_id() == prt->pdg_id()) { - // carbon copy - (*pitr)->set_momentum(HepMC::FourVector(px, py, pz, e)); - continue; - } - - HepMC::FourVector dmom4 = (*pitr)->momentum(); - - // Boost vector to parent rest frame... - pb = bet1[0] * dmom4.px() + bet1[1] * dmom4.py() + bet1[2] * dmom4.pz(); - double dpx = dmom4.px() + bet1[0] * (dmom4.e() + pb / (gam1 + 1.)); - double dpy = dmom4.py() + bet1[1] * (dmom4.e() + pb / (gam1 + 1.)); - double dpz = dmom4.pz() + bet1[2] * (dmom4.e() + pb / (gam1 + 1.)); - double de = gam1 * dmom4.e() + pb; - // ...and boost back to modified parent frame - pb = bet2[0] * dpx + bet2[1] * dpy + bet2[2] * dpz; - dpx += bet2[0] * (de + pb / (gam2 + 1.)); - dpy += bet2[1] * (de + pb / (gam2 + 1.)); - dpz += bet2[2] * (de + pb / (gam2 + 1.)); - de *= gam2; - de += pb; - - (*pitr)->set_momentum(HepMC::FourVector(dpx, dpy, dpz, de)); - } - vcounter++; - } - - secVtxStorage.clear(); - } - - prt->set_momentum(HepMC::FourVector(px, py, pz, e)); - - } // ok, all affected particles update, but the photon(s) still not inserted - - int newlyGen = HepMC::HEPEVT_Wrapper::number_entries() - nentries; - - if (largestBarcode < evt->particles_size()) { - // need to adjust barcodes down from the affected vertex/particles - // such that we "free up" barcodes for newly generated photons - // in the middle of the event record - // - for (int ipp = evt->particles_size(); ipp > largestBarcode; ipp--) { - (evt->barcode_to_particle(ipp))->suggest_barcode(ipp + newlyGen); - } - } - - // now attach new generated photons to the vertex - // - for (int ipnw = 1; ipnw <= newlyGen; ipnw++) { - int nbcode = largestBarcode + ipnw; - int pdg_id = HepMC::HEPEVT_Wrapper::id(nentries + ipnw); - int status = HepMC::HEPEVT_Wrapper::status(nentries + ipnw); - double px = HepMC::HEPEVT_Wrapper::px(nentries + ipnw); - double py = HepMC::HEPEVT_Wrapper::py(nentries + ipnw); - double pz = HepMC::HEPEVT_Wrapper::pz(nentries + ipnw); - double e = HepMC::HEPEVT_Wrapper::e(nentries + ipnw); - double m = HepMC::HEPEVT_Wrapper::m(nentries + ipnw); - - HepMC::GenParticle* NewPart = new HepMC::GenParticle(HepMC::FourVector(px, py, pz, e), pdg_id, status); - NewPart->set_generated_mass(m); - NewPart->suggest_barcode(nbcode); - vtx->add_particle_out(NewPart); - } - - //vtx->print(); - //std::cout << " leaving attachParticles() " << std::endl; - - } // end of global if-statement - - return; -} - -bool PhotosInterface::isTauLeptonicDecay(HepMC::GenVertex* vtx) { - if (abs((*(vtx->particles_in_const_begin()))->pdg_id()) != 15) - return false; - - for (HepMC::GenVertex::particle_iterator pitr = vtx->particles_begin(HepMC::children); - pitr != vtx->particles_end(HepMC::children); - ++pitr) { - if (abs((*pitr)->pdg_id()) == 11 || abs((*pitr)->pdg_id()) == 13) { - return true; - } - } - - return false; -} - -double PhotosInterface::flat() { - if (!fRandomEngine) { - throw cms::Exception("LogicError") - << "PhotosInterface::flat: Attempt to generate random number when engine pointer is null\n" - << "This might mean that the code was modified to generate a random number outside the\n" - << "event and beginLuminosityBlock methods, which is not allowed.\n"; - } - return fRandomEngine->flat(); -} - -DEFINE_EDM_PLUGIN(PhotosFactory, gen::PhotosInterface, "Photos2155"); diff --git a/GeneratorInterface/PomwigInterface/BuildFile.xml b/GeneratorInterface/PomwigInterface/BuildFile.xml deleted file mode 100644 index 3270bc202e8d9..0000000000000 --- a/GeneratorInterface/PomwigInterface/BuildFile.xml +++ /dev/null @@ -1,12 +0,0 @@ - - - - - - - - - - - - diff --git a/GeneratorInterface/PomwigInterface/interface/PomwigHadronizer.h b/GeneratorInterface/PomwigInterface/interface/PomwigHadronizer.h deleted file mode 100644 index 59ef09a46c498..0000000000000 --- a/GeneratorInterface/PomwigInterface/interface/PomwigHadronizer.h +++ /dev/null @@ -1,72 +0,0 @@ -#ifndef gen_PomwigHadronizer_h -#define gen_PomwigHadronizer_h - -#include "FWCore/ParameterSet/interface/ParameterSetfwd.h" - -#include "GeneratorInterface/Core/interface/BaseHadronizer.h" -#include "GeneratorInterface/Core/interface/ParameterCollector.h" -#include "GeneratorInterface/Herwig6Interface/interface/Herwig6Instance.h" - -#include - -#include -#include - -namespace CLHEP { - class HepRandomEngine; -} - -namespace gen { - class PomwigHadronizer : public gen::BaseHadronizer, public gen::Herwig6Instance { - public: - PomwigHadronizer(const edm::ParameterSet& params); - ~PomwigHadronizer() override; - - bool readSettings(int); - bool initializeForInternalPartons(); - bool initializeForExternalPartons(); - - bool declareStableParticles(const std::vector& pdgIds); - bool declareSpecialSettings(const std::vector&) { return true; } - void statistics(); - - bool generatePartonsAndHadronize(); - bool hadronize(); - bool decay(); - bool residualDecay(); - void finalizeEvent(); - - const char* classname() const { return "PomwigHadronizer"; } - - private: - void doSetRandomEngine(CLHEP::HepRandomEngine* v) override; - std::vector const& doSharedResources() const override { return theSharedResources; } - - void clear(); - bool initializeDPDF(); - - static const std::vector theSharedResources; - - bool needClear; - - gen::ParameterCollector parameters; - int herwigVerbosity; - int hepmcVerbosity; - int maxEventsToPrint; - bool printCards; - - double comEnergy; - double survivalProbability; - int diffTopology; - int h1fit; - - bool useJimmy; - bool doMPInteraction; - int numTrials; - - bool doPDGConvert; - - HepMC::IO_HERWIG conv; - }; -} // namespace gen -#endif diff --git a/GeneratorInterface/PomwigInterface/plugins/BuildFile.xml b/GeneratorInterface/PomwigInterface/plugins/BuildFile.xml deleted file mode 100644 index b81d96813002e..0000000000000 --- a/GeneratorInterface/PomwigInterface/plugins/BuildFile.xml +++ /dev/null @@ -1,9 +0,0 @@ - - - - - - - - - diff --git a/GeneratorInterface/PomwigInterface/plugins/PomwigGeneratorFilter.cc b/GeneratorInterface/PomwigInterface/plugins/PomwigGeneratorFilter.cc deleted file mode 100644 index d3dfb7dcbdf24..0000000000000 --- a/GeneratorInterface/PomwigInterface/plugins/PomwigGeneratorFilter.cc +++ /dev/null @@ -1,10 +0,0 @@ -#include "GeneratorInterface/Core/interface/GeneratorFilter.h" -#include "GeneratorInterface/PomwigInterface/interface/PomwigHadronizer.h" -#include "GeneratorInterface/ExternalDecays/interface/ExternalDecayDriver.h" - -namespace gen { - typedef edm::GeneratorFilter PomwigGeneratorFilter; -} - -using gen::PomwigGeneratorFilter; -DEFINE_FWK_MODULE(PomwigGeneratorFilter); diff --git a/GeneratorInterface/PomwigInterface/plugins/hwudat.F b/GeneratorInterface/PomwigInterface/plugins/hwudat.F deleted file mode 100644 index 982d6fc51f3a6..0000000000000 --- a/GeneratorInterface/PomwigInterface/plugins/hwudat.F +++ /dev/null @@ -1 +0,0 @@ -#include "GeneratorInterface/Herwig6Interface/interface/hwudat.f" diff --git a/GeneratorInterface/PomwigInterface/python/POMWIG_DPEDijets_10TeV_Pt_30_cff.py b/GeneratorInterface/PomwigInterface/python/POMWIG_DPEDijets_10TeV_Pt_30_cff.py deleted file mode 100644 index bbb5122e1be2c..0000000000000 --- a/GeneratorInterface/PomwigInterface/python/POMWIG_DPEDijets_10TeV_Pt_30_cff.py +++ /dev/null @@ -1,39 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -herwig6Parameters = cms.PSet( - comEnergy = cms.double(10000.0), - useJimmy = cms.bool(False), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(2), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), -) - -source = cms.Source("EmptySource") - -generator = cms.EDFilter("PomwigGeneratorFilter", - herwig6Parameters, - HerwigParameters = cms.PSet( - parameterSets = cms.vstring('DPEInclusiveJets'), - DPEInclusiveJets = cms.vstring('NSTRU = 14 ! H1 Pomeron Fit B', - 'Q2WWMN = 1E-6 ! Minimum |t|', - 'Q2WWMX = 4.0 ! Maximum |t|', - 'YWWMIN = 1E-6 ! Minimum xi', - 'YWWMAX = 0.2 ! Maximum xi', - 'IPROC = 11500 ! Process PomPom -> jets', - 'PTMIN = 30 ! 2->2 PT min', - 'MODPDF(1) = -1 ! Set MODPDF', - 'MODPDF(2) = -1 ! Set MODPDF') - ), - diffTopology = cms.int32(0), - survivalProbability = cms.double(0.05), - h1fit = cms.int32(2), - doPDGConvert = cms.bool(False) -) - -ProductionFilterSequence = cms.Sequence(generator) diff --git a/GeneratorInterface/PomwigInterface/python/POMWIG_DPEDijets_7TeV_Pt_30_cff.py b/GeneratorInterface/PomwigInterface/python/POMWIG_DPEDijets_7TeV_Pt_30_cff.py deleted file mode 100644 index 84f2855f2946a..0000000000000 --- a/GeneratorInterface/PomwigInterface/python/POMWIG_DPEDijets_7TeV_Pt_30_cff.py +++ /dev/null @@ -1,39 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -herwig6Parameters = cms.PSet( - comEnergy = cms.double(7000.0), - useJimmy = cms.bool(False), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(2), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), -) - -source = cms.Source("EmptySource") - -generator = cms.EDFilter("PomwigGeneratorFilter", - herwig6Parameters, - HerwigParameters = cms.PSet( - parameterSets = cms.vstring('DPEInclusiveJets'), - DPEInclusiveJets = cms.vstring('NSTRU = 14 ! H1 Pomeron Fit B', - 'Q2WWMN = 1E-6 ! Minimum |t|', - 'Q2WWMX = 4.0 ! Maximum |t|', - 'YWWMIN = 1E-6 ! Minimum xi', - 'YWWMAX = 0.2 ! Maximum xi', - 'IPROC = 11500 ! Process PomPom -> jets', - 'PTMIN = 30 ! 2->2 PT min', - 'MODPDF(1) = -1 ! Set MODPDF', - 'MODPDF(2) = -1 ! Set MODPDF') - ), - diffTopology = cms.int32(0), - survivalProbability = cms.double(0.05), - h1fit = cms.int32(2), - doPDGConvert = cms.bool(False) -) - -ProductionFilterSequence = cms.Sequence(generator) diff --git a/GeneratorInterface/PomwigInterface/python/POMWIG_DPEDijets_8TeV_Pt_30_cff.py b/GeneratorInterface/PomwigInterface/python/POMWIG_DPEDijets_8TeV_Pt_30_cff.py deleted file mode 100644 index 8b101ab71d5be..0000000000000 --- a/GeneratorInterface/PomwigInterface/python/POMWIG_DPEDijets_8TeV_Pt_30_cff.py +++ /dev/null @@ -1,39 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -herwig6Parameters = cms.PSet( - comEnergy = cms.double(8000.0), - useJimmy = cms.bool(False), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(2), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), -) - -source = cms.Source("EmptySource") - -generator = cms.EDFilter("PomwigGeneratorFilter", - herwig6Parameters, - HerwigParameters = cms.PSet( - parameterSets = cms.vstring('DPEInclusiveJets'), - DPEInclusiveJets = cms.vstring('NSTRU = 14 ! H1 Pomeron Fit B', - 'Q2WWMN = 1E-6 ! Minimum |t|', - 'Q2WWMX = 4.0 ! Maximum |t|', - 'YWWMIN = 1E-6 ! Minimum xi', - 'YWWMAX = 0.2 ! Maximum xi', - 'IPROC = 11500 ! Process PomPom -> jets', - 'PTMIN = 30 ! 2->2 PT min', - 'MODPDF(1) = -1 ! Set MODPDF', - 'MODPDF(2) = -1 ! Set MODPDF') - ), - diffTopology = cms.int32(0), - survivalProbability = cms.double(0.05), - h1fit = cms.int32(2), - doPDGConvert = cms.bool(False) -) - -ProductionFilterSequence = cms.Sequence(generator) diff --git a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsMinus_10TeV_Pt_30_cff.py b/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsMinus_10TeV_Pt_30_cff.py deleted file mode 100644 index e75782707696f..0000000000000 --- a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsMinus_10TeV_Pt_30_cff.py +++ /dev/null @@ -1,39 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -herwig6Parameters = cms.PSet( - comEnergy = cms.double(10000.0), - useJimmy = cms.bool(False), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(2), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), -) - -source = cms.Source("EmptySource") - -generator = cms.EDFilter("PomwigGeneratorFilter", - herwig6Parameters, - HerwigParameters = cms.PSet( - parameterSets = cms.vstring('SD2InclusiveJets'), - SD2InclusiveJets = cms.vstring('NSTRU = 14 ! H1 Pomeron Fit B', - 'Q2WWMN = 1E-6 ! Minimum |t|', - 'Q2WWMX = 4.0 ! Maximum |t|', - 'YWWMIN = 1E-6 ! Minimum xi', - 'YWWMAX = 0.2 ! Maximum xi', - 'IPROC = 11500 ! Process PomP -> jets', - 'PTMIN = 30 ! 2->2 PT min', - 'MODPDF(1) = 10150 ! Set MODPDF CTEQ61', - 'MODPDF(2) = -1 ! Set MODPDF') - ), - diffTopology = cms.int32(2), - survivalProbability = cms.double(0.05), - h1fit = cms.int32(2), - doPDGConvert = cms.bool(False) -) - -ProductionFilterSequence = cms.Sequence(generator) diff --git a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsMinus_10TeV_Pt_80_cff.py b/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsMinus_10TeV_Pt_80_cff.py deleted file mode 100644 index a62e1ebee9cce..0000000000000 --- a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsMinus_10TeV_Pt_80_cff.py +++ /dev/null @@ -1,39 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -herwig6Parameters = cms.PSet( - comEnergy = cms.double(10000.0), - useJimmy = cms.bool(False), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(2), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), -) - -source = cms.Source("EmptySource") - -generator = cms.EDFilter("PomwigGeneratorFilter", - herwig6Parameters, - HerwigParameters = cms.PSet( - parameterSets = cms.vstring('SD2InclusiveJets'), - SD2InclusiveJets = cms.vstring('NSTRU = 14 ! H1 Pomeron Fit B', - 'Q2WWMN = 1E-6 ! Minimum |t|', - 'Q2WWMX = 4.0 ! Maximum |t|', - 'YWWMIN = 1E-6 ! Minimum xi', - 'YWWMAX = 0.2 ! Maximum xi', - 'IPROC = 11500 ! Process PomP -> jets', - 'PTMIN = 40 ! 2->2 PT min', - 'MODPDF(1) = 10150 ! Set MODPDF CTEQ61', - 'MODPDF(2) = -1 ! Set MODPDF') - ), - diffTopology = cms.int32(2), - survivalProbability = cms.double(0.05), - h1fit = cms.int32(2), - doPDGConvert = cms.bool(False) -) - -ProductionFilterSequence = cms.Sequence(generator) diff --git a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_10TeV_Pt_30_cff.py b/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_10TeV_Pt_30_cff.py deleted file mode 100644 index 1ecf1de66e750..0000000000000 --- a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_10TeV_Pt_30_cff.py +++ /dev/null @@ -1,39 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -herwig6Parameters = cms.PSet( - comEnergy = cms.double(10000.0), - useJimmy = cms.bool(False), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(2), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), -) - -source = cms.Source("EmptySource") - -generator = cms.EDFilter("PomwigGeneratorFilter", - herwig6Parameters, - HerwigParameters = cms.PSet( - parameterSets = cms.vstring('SD1InclusiveJets'), - SD1InclusiveJets = cms.vstring('NSTRU = 14 ! H1 Pomeron Fit B', - 'Q2WWMN = 1E-6 ! Minimum |t|', - 'Q2WWMX = 4.0 ! Maximum |t|', - 'YWWMIN = 1E-6 ! Minimum xi', - 'YWWMAX = 0.2 ! Maximum xi', - 'IPROC = 11500 ! Process PomP -> jets', - 'PTMIN = 30 ! 2->2 PT min', - 'MODPDF(1) = -1 ! Set MODPDF', - 'MODPDF(2) = 10150 ! Set MODPDF CTEQ61') - ), - diffTopology = cms.int32(1), - survivalProbability = cms.double(0.05), - h1fit = cms.int32(2), - doPDGConvert = cms.bool(False) -) - -ProductionFilterSequence = cms.Sequence(generator) diff --git a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_10TeV_Pt_80_cff.py b/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_10TeV_Pt_80_cff.py deleted file mode 100644 index 9b48eaf1985dd..0000000000000 --- a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_10TeV_Pt_80_cff.py +++ /dev/null @@ -1,39 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -herwig6Parameters = cms.PSet( - comEnergy = cms.double(10000.0), - useJimmy = cms.bool(False), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(2), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), -) - -source = cms.Source("EmptySource") - -generator = cms.EDFilter("PomwigGeneratorFilter", - herwig6Parameters, - HerwigParameters = cms.PSet( - parameterSets = cms.vstring('SD1InclusiveJets'), - SD1InclusiveJets = cms.vstring('NSTRU = 14 ! H1 Pomeron Fit B', - 'Q2WWMN = 1E-6 ! Minimum |t|', - 'Q2WWMX = 4.0 ! Maximum |t|', - 'YWWMIN = 1E-6 ! Minimum xi', - 'YWWMAX = 0.2 ! Maximum xi', - 'IPROC = 11500 ! Process PomP -> jets', - 'PTMIN = 80 ! 2->2 PT min', - 'MODPDF(1) = -1 ! Set MODPDF', - 'MODPDF(2) = 10150 ! Set MODPDF CTEQ61') - ), - diffTopology = cms.int32(1), - survivalProbability = cms.double(0.05), - h1fit = cms.int32(2), - doPDGConvert = cms.bool(False) -) - -ProductionFilterSequence = cms.Sequence(generator) diff --git a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_7TeV_Pt_30_cff.py b/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_7TeV_Pt_30_cff.py deleted file mode 100644 index c3f4567853fe8..0000000000000 --- a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_7TeV_Pt_30_cff.py +++ /dev/null @@ -1,39 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -herwig6Parameters = cms.PSet( - comEnergy = cms.double(7000.0), - useJimmy = cms.bool(False), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(2), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), -) - -source = cms.Source("EmptySource") - -generator = cms.EDFilter("PomwigGeneratorFilter", - herwig6Parameters, - HerwigParameters = cms.PSet( - parameterSets = cms.vstring('SD1InclusiveJets'), - SD1InclusiveJets = cms.vstring('NSTRU = 14 ! H1 Pomeron Fit B', - 'Q2WWMN = 1E-6 ! Minimum |t|', - 'Q2WWMX = 4.0 ! Maximum |t|', - 'YWWMIN = 1E-6 ! Minimum xi', - 'YWWMAX = 0.2 ! Maximum xi', - 'IPROC = 11500 ! Process PomP -> jets', - 'PTMIN = 30 ! 2->2 PT min', - 'MODPDF(1) = -1 ! Set MODPDF', - 'MODPDF(2) = 10150 ! Set MODPDF CTEQ61') - ), - diffTopology = cms.int32(1), - survivalProbability = cms.double(0.05), - h1fit = cms.int32(2), - doPDGConvert = cms.bool(False) -) - -ProductionFilterSequence = cms.Sequence(generator) diff --git a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_8TeV_Pt_30_cff.py b/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_8TeV_Pt_30_cff.py deleted file mode 100644 index fbf8481429d5b..0000000000000 --- a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveDijetsPlus_8TeV_Pt_30_cff.py +++ /dev/null @@ -1,39 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -herwig6Parameters = cms.PSet( - comEnergy = cms.double(8000.0), - useJimmy = cms.bool(False), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(2), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), -) - -source = cms.Source("EmptySource") - -generator = cms.EDFilter("PomwigGeneratorFilter", - herwig6Parameters, - HerwigParameters = cms.PSet( - parameterSets = cms.vstring('SD1InclusiveJets'), - SD1InclusiveJets = cms.vstring('NSTRU = 14 ! H1 Pomeron Fit B', - 'Q2WWMN = 1E-6 ! Minimum |t|', - 'Q2WWMX = 4.0 ! Maximum |t|', - 'YWWMIN = 1E-6 ! Minimum xi', - 'YWWMAX = 0.2 ! Maximum xi', - 'IPROC = 11500 ! Process PomP -> jets', - 'PTMIN = 30 ! 2->2 PT min', - 'MODPDF(1) = -1 ! Set MODPDF', - 'MODPDF(2) = 10150 ! Set MODPDF CTEQ61') - ), - diffTopology = cms.int32(1), - survivalProbability = cms.double(0.05), - h1fit = cms.int32(2), - doPDGConvert = cms.bool(False) -) - -ProductionFilterSequence = cms.Sequence(generator) diff --git a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveMinusWmunu_10TeV_cff.py b/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveMinusWmunu_10TeV_cff.py deleted file mode 100644 index b86f148ed4e8c..0000000000000 --- a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractiveMinusWmunu_10TeV_cff.py +++ /dev/null @@ -1,38 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -herwig6Parameters = cms.PSet( - comEnergy = cms.double(10000.0), - useJimmy = cms.bool(False), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(2), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), -) - -source = cms.Source("EmptySource") - -generator = cms.EDFilter("PomwigGeneratorFilter", - herwig6Parameters, - HerwigParameters = cms.PSet( - parameterSets = cms.vstring('SDInclusiveWmunu'), - SDInclusiveWmunu = cms.vstring('NSTRU = 14 ! H1 Pomeron Fit B', - 'Q2WWMN = 1E-6 ! Minimum |t|', - 'Q2WWMX = 4.0 ! Maximum |t|', - 'YWWMIN = 1E-6 ! Minimum xi', - 'YWWMAX = 0.2 ! Maximum xi', - 'IPROC = 11452 ! Process PomP -> W -> munu', - 'MODPDF(1) = 10150 ! Set MODPDF CTEQ61', - 'MODPDF(2) = -1 ! Set MODPDF') - ), - diffTopology = cms.int32(2), - survivalProbability = cms.double(0.05), - h1fit = cms.int32(2), - doPDGConvert = cms.bool(False) -) - -ProductionFilterSequence = cms.Sequence(generator) diff --git a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractivePlusWmunu_10TeV_cff.py b/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractivePlusWmunu_10TeV_cff.py deleted file mode 100644 index 54ac263157494..0000000000000 --- a/GeneratorInterface/PomwigInterface/python/POMWIG_SingleDiffractivePlusWmunu_10TeV_cff.py +++ /dev/null @@ -1,36 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -herwig6Parameters = cms.PSet( - comEnergy = cms.double(10000.0), - useJimmy = cms.bool(False), - doMPInteraction = cms.bool(False), - - herwigHepMCVerbosity = cms.untracked.bool(False), - herwigVerbosity = cms.untracked.int32(1), - printCards = cms.untracked.bool(True), - maxEventsToPrint = cms.untracked.int32(2), - - crossSection = cms.untracked.double(-1.0), - filterEfficiency = cms.untracked.double(1.0), -) - -generator = cms.EDFilter("PomwigGeneratorFilter", - herwig6Parameters, - HerwigParameters = cms.PSet( - parameterSets = cms.vstring('SDInclusiveWmunu'), - SDInclusiveWmunu = cms.vstring('NSTRU = 14 ! H1 Pomeron Fit B', - 'Q2WWMN = 1E-6 ! Minimum |t|', - 'Q2WWMX = 4.0 ! Maximum |t|', - 'YWWMIN = 1E-6 ! Minimum xi', - 'YWWMAX = 0.2 ! Maximum xi', - 'IPROC = 11452 ! Process PomP -> W -> munu', - 'MODPDF(1) = -1 ! Set MODPDF', - 'MODPDF(2) = 10150 ! Set MODPDF CTEQ61') - ), - diffTopology = cms.int32(1), - survivalProbability = cms.double(0.05), - h1fit = cms.int32(2), - doPDGConvert = cms.bool(False) -) - -#ProductionFilterSequence = cms.Sequence(generator) diff --git a/GeneratorInterface/PomwigInterface/python/Pomwig_custom.py b/GeneratorInterface/PomwigInterface/python/Pomwig_custom.py deleted file mode 100644 index 1d2dd75579771..0000000000000 --- a/GeneratorInterface/PomwigInterface/python/Pomwig_custom.py +++ /dev/null @@ -1,7 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -def customise(process): - - process.genParticles.abortOnUnknownPDGCode = False - - return(process) diff --git a/GeneratorInterface/PomwigInterface/src/PomwigHadronizer.cc b/GeneratorInterface/PomwigInterface/src/PomwigHadronizer.cc deleted file mode 100644 index 7bb9d92f79dfc..0000000000000 --- a/GeneratorInterface/PomwigInterface/src/PomwigHadronizer.cc +++ /dev/null @@ -1,367 +0,0 @@ -#include "GeneratorInterface/PomwigInterface/interface/PomwigHadronizer.h" - -#include -#include - -#include -#include -#include -#include -#include -#include - -#include -#include - -#include -#include -#include -#include -#include -#include -#include -#include "HepPID/ParticleIDTranslations.hh" - -#include "FWCore/Concurrency/interface/SharedResourceNames.h" -#include "FWCore/MessageLogger/interface/MessageLogger.h" - -#include "SimDataFormats/GeneratorProducts/interface/HepMCProduct.h" -#include "SimDataFormats/GeneratorProducts/interface/GenRunInfoProduct.h" - -#include "SimDataFormats/GeneratorProducts/interface/LesHouches.h" -#include "SimDataFormats/GeneratorProducts/interface/LHECommonBlocks.h" - -#include "GeneratorInterface/Core/interface/ParameterCollector.h" -#include "GeneratorInterface/Core/interface/BaseHadronizer.h" -#include "GeneratorInterface/Core/interface/FortranInstance.h" - -#include "GeneratorInterface/LHEInterface/interface/LHEEvent.h" - -#include "GeneratorInterface/Herwig6Interface/interface/Herwig6Instance.h" -#include "GeneratorInterface/Herwig6Interface/interface/herwig.h" - -namespace gen { - extern "C" { - void hwuidt_(int *iopt, int *ipdg, int *iwig, char nwig[8]); - } - - // helpers - namespace { - inline bool call_hwmsct() { - int result; - hwmsct(&result); - return result; - } - - int pdgToHerwig(int ipdg, char *nwig) { - int iopt = 1; - int iwig = 0; - hwuidt_(&iopt, &ipdg, &iwig, nwig); - return ipdg ? iwig : 0; - } - - bool markStable(int pdgId) { - char nwig[9] = " "; - if (!pdgToHerwig(pdgId, nwig)) - return false; - hwusta(nwig, 1); - return true; - } - } // namespace - -#define qcd_1994 qcd_1994_ - extern "C" { - void qcd_1994(double &, double &, double *, int &); - } -// For H1 2006 fits -#define qcd_2006 qcd_2006_ - extern "C" { - void qcd_2006(double &, double &, int &, double *, double *, double *, double *, double *); - } - - extern "C" { - void hwwarn_(const char *method, int *id); - void setherwpdf_(void); - void mysetpdfpath_(const char *path); - } - - const std::vector PomwigHadronizer::theSharedResources = {edm::SharedResourceNames::kHerwig6, - gen::FortranInstance::kFortranInstance}; - - PomwigHadronizer::PomwigHadronizer(const edm::ParameterSet ¶ms) - : BaseHadronizer(params), - needClear(false), - parameters(params.getParameter("HerwigParameters")), - herwigVerbosity(params.getUntrackedParameter("herwigVerbosity", 0)), - hepmcVerbosity(params.getUntrackedParameter("hepmcVerbosity", 0)), - maxEventsToPrint(params.getUntrackedParameter("maxEventsToPrint", 0)), - printCards(params.getUntrackedParameter("printCards", false)), - comEnergy(params.getParameter("comEnergy")), - survivalProbability(params.getParameter("survivalProbability")), - diffTopology(params.getParameter("diffTopology")), - h1fit(params.getParameter("h1fit")), - useJimmy(params.getParameter("useJimmy")), - doMPInteraction(params.getParameter("doMPInteraction")), - numTrials(params.getUntrackedParameter("numTrialsMPI", 100)), - doPDGConvert(false) { - if (params.exists("doPDGConvert")) - doPDGConvert = params.getParameter("doPDGConvert"); - } - - PomwigHadronizer::~PomwigHadronizer() { clear(); } - - void PomwigHadronizer::doSetRandomEngine(CLHEP::HepRandomEngine *v) { setHerwigRandomEngine(v); } - - void PomwigHadronizer::clear() { - if (!needClear) - return; - - // teminate elementary process - call(hwefin); - if (useJimmy) - call(jmefin); - - needClear = false; - } - - bool PomwigHadronizer::initializeForExternalPartons() { return false; } - - bool PomwigHadronizer::readSettings(int) { - clear(); - - edm::LogVerbatim("") << "----------------------------------------------\n" - << "Initializing PomwigHadronizer\n" - << "----------------------------------------------\n"; - - // Call hwudat to set up HERWIG block data - hwudat(); - - // Setting basic parameters ... - hwproc.PBEAM1 = comEnergy / 2.; - hwproc.PBEAM2 = comEnergy / 2.; - // Choose beam particles for POMWIG depending on topology - switch (diffTopology) { - case 0: //DPE - hwbmch.PART1[0] = 'E'; - hwbmch.PART1[1] = '-'; - hwbmch.PART2[0] = 'E'; - hwbmch.PART2[1] = '-'; - break; - case 1: //SD survive PART1 - hwbmch.PART1[0] = 'E'; - hwbmch.PART1[1] = '-'; - hwbmch.PART2[0] = 'P'; - hwbmch.PART2[1] = ' '; - break; - case 2: //SD survive PART2 - hwbmch.PART1[0] = 'P'; - hwbmch.PART1[1] = ' '; - hwbmch.PART2[0] = 'E'; - hwbmch.PART2[1] = '-'; - break; - case 3: //Non diffractive - hwbmch.PART1[0] = 'P'; - hwbmch.PART1[1] = ' '; - hwbmch.PART2[0] = 'P'; - hwbmch.PART2[1] = ' '; - break; - default: - throw edm::Exception(edm::errors::Configuration, "PomwigError") - << " Invalid Diff. Topology. Must be DPE(diffTopology = 0), SD particle 1 (diffTopology = 1), SD particle " - "2 (diffTopology = 2) and Non diffractive (diffTopology = 3)"; - break; - } - for (int i = 2; i < 8; ++i) { - hwbmch.PART1[i] = ' '; - hwbmch.PART2[i] = ' '; - } - - // initialize other common blocks ... - call(hwigin); - - hwevnt.MAXER = 100000000; // O(inf) - hwpram.LWSUD = 0; // don't write Sudakov form factors - hwdspn.LWDEC = 0; // don't write three/four body decays - // (no fort.77 and fort.88 ...)a - - std::memset(hwprch.AUTPDF, ' ', sizeof hwprch.AUTPDF); - for (unsigned int i = 0; i < 2; i++) { - hwpram.MODPDF[i] = -111; - std::memcpy(hwprch.AUTPDF[i], "HWLHAPDF", 8); - } - - hwevnt.MAXPR = maxEventsToPrint; - hwpram.IPRINT = herwigVerbosity; - - edm::LogVerbatim("") << "------------------------------------\n" - << "Reading HERWIG parameters\n" - << "------------------------------------\n"; - - for (gen::ParameterCollector::const_iterator line = parameters.begin(); line != parameters.end(); ++line) { - edm::LogVerbatim("") << " " << *line; - if (!give(*line)) - throw edm::Exception(edm::errors::Configuration) - << "Herwig 6 did not accept the following: \"" << *line << "\"." << std::endl; - } - - needClear = true; - - return true; - } - - bool PomwigHadronizer::initializeForInternalPartons() { - call(hwuinc); - - hwusta("PI0 ", 1); - - if (!initializeDPDF()) - return false; - - call(hweini); - - return true; - } - - bool PomwigHadronizer::initializeDPDF() { - // Initialize H1 pomeron/reggeon - - if (diffTopology == 3) - return true; - - if ((diffTopology != 0) && (diffTopology != 1) && (diffTopology != 2)) - return false; - - int nstru = hwpram.NSTRU; - int ifit = h1fit; - if ((nstru == 9) || (nstru == 10)) { - if ((ifit <= 0) || (ifit >= 7)) { - throw edm::Exception(edm::errors::Configuration, "PomwigError") - << " Attempted to set non existant H1 1997 fit index. Has to be 1...6"; - } - std::string aux((nstru == 9) ? "Pomeron" : "Reggeon"); - edm::LogVerbatim("") << " H1 1997 pdf's: " << aux << "\n" - << " IFIT = " << ifit; - double xp = 0.1; - double Q2 = 75.0; - double xpq[13]; - qcd_1994(xp, Q2, xpq, ifit); - } else if ((nstru >= 12) && (nstru <= 15)) { - bool isPom = (nstru == 12) || (nstru == 14); - bool isFitA = (nstru == 12) || (nstru == 13); - ifit = (isFitA) ? 1 : 2; - std::string aux_0((isFitA) ? "A" : "B"); - std::string aux_1((isPom) ? "Pomeron" : "Reggeon"); - edm::LogVerbatim("") << " H1 2006 Fit " << aux_0 << " " << aux_1 << "\n" - << " IFIT = " << ifit; - double xp = 0.1; - double Q2 = 75.0; - double xpq[13]; - double f2[2]; - double fl[2]; - double c2[2]; - double cl[2]; - qcd_2006(xp, Q2, ifit, xpq, f2, fl, c2, cl); - } else { - throw edm::Exception(edm::errors::Configuration, "PomwigError") - << " Only running Pomeron H1 1997 (NSTRU=9), H1 2006 fit A (NSTRU=12) and H1 2006 fit B (NSTRU=14) or " - "Reggeon H1 1997 (NSTRU=10), H1 2006 fit A (NSTRU=13) and H1 2006 fit B (NSTRU=15)"; - } - - return true; - } - - bool PomwigHadronizer::declareStableParticles(const std::vector &pdgIds) { - for (std::vector::const_iterator iter = pdgIds.begin(); iter != pdgIds.end(); ++iter) - if (!markStable(*iter)) - return false; - return true; - } - - void PomwigHadronizer::statistics() { - double RNWGT = 1. / hwevnt.NWGTS; - double AVWGT = hwevnt.WGTSUM * RNWGT; - - double xsec = 1.0e3 * AVWGT; - xsec = survivalProbability * xsec; - - runInfo().setInternalXSec(xsec); - } - - bool PomwigHadronizer::hadronize() { return false; } - - bool PomwigHadronizer::generatePartonsAndHadronize() { - // hard process generation, parton shower, hadron formation - - InstanceWrapper wrapper(this); // safe guard - - event().reset(); - - // call herwig routines to create HEPEVT - - hwuine(); // initialize event - - if (callWithTimeout(10, hwepro)) { // process event and PS - // We hung for more than 10 seconds - int error = 199; - hwwarn_("HWHGUP", &error); - } - - hwbgen(); // parton cascades - - // call jimmy ... only if event is not killed yet by HERWIG - if (useJimmy && doMPInteraction && !hwevnt.IERROR && call_hwmsct()) - return false; - - hwdhob(); // heavy quark decays - hwcfor(); // cluster formation - hwcdec(); // cluster decays - - // if event *not* killed by HERWIG, return true - if (!hwevnt.IERROR) - return true; - - hwufne(); // finalize event - return false; - } - - void PomwigHadronizer::finalizeEvent() { - lhef::LHEEvent::fixHepMCEventTimeOrdering(event().get()); - - event()->set_signal_process_id(hwproc.IPROC); - - event()->weights().push_back(hwevnt.EVWGT); - } - - bool PomwigHadronizer::decay() { - // hadron decays - - InstanceWrapper wrapper(this); // safe guard - - hwdhad(); // unstable particle decays - hwdhvy(); // heavy flavour decays - hwmevt(); // soft underlying event - - hwufne(); // finalize event - - if (hwevnt.IERROR) - return false; - - event() = std::make_unique(); - if (!conv.fill_next_event(event().get())) - throw cms::Exception("PomwigError") << "HepMC Conversion problems in event." << std::endl; - - // do particle ID conversion Herwig->PDG, if requested - if (doPDGConvert) { - for (HepMC::GenEvent::particle_iterator part = event()->particles_begin(); part != event()->particles_end(); - ++part) { - if ((*part)->pdg_id() != HepPID::translateHerwigtoPDT((*part)->pdg_id())) - (*part)->set_pdg_id(HepPID::translateHerwigtoPDT((*part)->pdg_id())); - } - } - - return true; - } - - bool PomwigHadronizer::residualDecay() { return true; } - -} //namespace gen diff --git a/GeneratorInterface/PomwigInterface/src/flux65.f b/GeneratorInterface/PomwigInterface/src/flux65.f deleted file mode 100644 index aa04e8ffe8f12..0000000000000 --- a/GeneratorInterface/PomwigInterface/src/flux65.f +++ /dev/null @@ -1,42 +0,0 @@ - SUBROUTINE FLUX(F,Z,TMIN,TMAX,NSTRU) - IMPLICIT NONE -* Returns H1 pomeron flux if NSTRU=6 -* Returns H1 reggeon flux if NSTRU=7 -* Returns flux for user defined structure function if NSTRU=8 -* B.Cox and J. Forshaw 11/05/00 - DOUBLE PRECISION F,Z,TMIN,TMAX - DOUBLE PRECISION alpha,B,alphap - DOUBLE PRECISION alphar,alpharp,Br,Cr -* H1 best fits -* PARAMETER (alpha=1.203,alphap=0.26,B=4.6) -* PARAMETER (alphar=0.50,alpharp=0.90,Br=2.0,Cr=16.0) -* H1 parameters with no interference (best fit to H1 F2D3 using POMWIG) - PARAMETER (alpha=1.200,alphap=0.26,B=4.6) - PARAMETER (alphar=0.57,alpharp=0.90,Br=2.0,Cr=48.0) - DOUBLE PRECISION V,W,X - INTEGER NSTRU - - if (NSTRU.EQ.9) then - V = DEXP(-(B+2.D0*alphap*DLOG(1.D0/Z))*TMIN)- - + DEXP(-(B+2.D0*alphap*DLOG(1.D0/Z))*TMAX) - W = 1.D0/(B+2.D0*alphap*DLOG(1.D0/Z)) - X = 1.D0/(Z**(2.D0*alpha-1.D0)) - F = X*W*V - elseif (NSTRU.EQ.10) then - V = DEXP(-(Br+2.D0*alpharp*DLOG(1.D0/Z))*TMIN)- - + DEXP(-(Br+2.D0*alpharp*DLOG(1.D0/Z))*TMAX) - W = 1.D0/(Br+2.D0*alpharp*DLOG(1.D0/Z)) - X = 1.D0/(Z**(2.D0*alphar-1.D0)) - F = Cr*X*W*V - elseif (NSTRU.EQ.11) then - V = DEXP(-(B+2.D0*alphap*DLOG(1.D0/Z))*TMIN)- - + DEXP(-(B+2.D0*alphap*DLOG(1.D0/Z))*TMAX) - W = 1.D0/(B+2.D0*alphap*DLOG(1.D0/Z)) - X = 1.D0/(Z**(2.D0*alpha-1.D0)) - F = X*W*V - else - write(*,*) 'pomwig : NSTRU must be 9, 10 or 11 in herwig65' - STOP - endif - RETURN - END diff --git a/GeneratorInterface/PomwigInterface/src/h12006flux.f b/GeneratorInterface/PomwigInterface/src/h12006flux.f deleted file mode 100644 index 89f5942b03f51..0000000000000 --- a/GeneratorInterface/PomwigInterface/src/h12006flux.f +++ /dev/null @@ -1,103 +0,0 @@ -*********************************************************************** -* H1 2006 DPDF Fits parameterization * -* ---------------------------------- * -* Reference: H1 Collaboration, A. Aktas et al., "Measurement and QCD * -* Analysis of the Diffractive Deep-Inelastic Scattering Cross Section * -* at HERA", DESY06-049, hep-ex/0606004, subm. to Eur.Phys.J * -* * -* Contact persons in case of questions: * -* Frank-Peter Schilling (frank-peter.schilling@cern.ch) * -* Paul Newman (newmanpr@mail.desy.de) * -* ------------------------------------------------------------------- * -* This routine returns the pomeron or reggeon flux factors * -* f_{IP,IR/p}(xpom,t) * -* Both IP and IR flux factors are normalized such that xpom*flux=1 * -* at xpom=0.003; In addition, the IR flux is multiplied by a further * -* normalization parameter as determined in the fit to the data * -* The routine returns either the flux at fixed values (xpom,t), or * -* the t-integrated flux (integrated from t to tmin) * -* ------------------------------------------------------------------- * -* Input: xpom: xpomeron value * -* t: t value (negative!) * -* int: 0: flux at (xpom,t) is returned * -* 1: t-integrated (t...tmin) flux at xpom is returned * -* ifit: 1: Fit A 2: Fit B * -* ipom: 1: Pomeron flux 2: Reggeon flux * -* Output: flux: flux value * -*********************************************************************** - - subroutine h12006flux(xpom,t,int,ifit,ipom,flux) - - implicit none - - integer int,ifit,ipom - double precision xpom,t,a0,ap,b0,c,flux,norm,dm - - if ((ipom.lt.1).or.(ipom.gt.2)) then - print *,'[H12006FLUX] Unknown ipom: ',ipom - stop - endif - if ((ifit.lt.1).or.(ifit.gt.2)) then - print *,'[H12006FLUX] Unknown ifit: ',ifit - stop - endif - -cc JVY : "local" fix - set default value to avoid compiler's complain of uninit variable - c = -1.d0 - if (ipom.eq.1) then ! pomeron - if (ifit.eq.1) then ! fit a - a0 = 1.1182d0 - elseif (ifit.eq.2) then ! fit b - a0 = 1.1110d0 - endif - ap = 0.06d0 - b0 = 5.5d0 - c = 1.0d0 - - else ! meson - a0 = 0.5d0 - ap = 0.3d0 - b0 = 1.6d0 - if (ifit.eq.1) then ! fit a - c = 0.001697d0 - elseif (ifit.eq.2) then ! fit b - c = 0.001398d0 - endif - endif - -c normalization - call rflux2006(0.003d0,a0,ap,b0,-1.d0,1.0d0,1,dm) - norm=(1./(0.003d0*dm))*c - -c actual flux - call rflux2006(xpom,a0,ap,b0,t,norm,int,flux) - - return - end - -******************************************************************************* - - subroutine rflux2006(x_pom,a0,ap,b0,tcut,c,int,fl) - - implicit none - - double precision x_pom,a0,tmin,tcut,ap,b0,c,fl,b - integer int - -c calc min. kinematically allowed t - tmin= -(0.93827231D0*x_pom)**2/(1.D0-x_pom) - -c c*xpom**(-(2apom-1)) - fl = c * dexp((2.0d0*a0-1.)*dlog(1.0d0/x_pom)) - b=(b0+2.0d0*ap*dlog(1.0d0/x_pom)) - - if (int.eq.0) then -c at fixed t: exp(Bt) - fl = fl * dexp(b*tcut) - else -c t integrated: (1/B)*[exp(-B*tmax)-exp(-B*tmin)] - fl = fl * (dexp(tmin*b)-dexp(tcut*b))/b - endif - - return - end diff --git a/GeneratorInterface/PomwigInterface/src/h1qcd.f b/GeneratorInterface/PomwigInterface/src/h1qcd.f deleted file mode 100644 index 750116cb4b068..0000000000000 --- a/GeneratorInterface/PomwigInterface/src/h1qcd.f +++ /dev/null @@ -1,5875 +0,0 @@ -*-- Author : Julian Phillips 05/08/97 -*########################################################### -* Main routine for parameterisations of final H1 1994 -* QCD fits to F2D(3) -* -* Input: ZT = x_{i/IP} -* Q2T = photon virtuality -* IFIT = 1,2,3 (NLO fits as in paper) -* IFIT = 4,5,6 (LO fits corresponding to the NLO fits -* 1,2 and 3 respectively) -* -* Call with IFIT>0 to initialise the parameterisation, -* then call with ifit=0 for subsequent access. -* -* Output: XPQ(-6:6): PDG style array of partons, 0=gluon. -* Note that these parton distributions are normalised -* to represent xpom times the 'true' parton distributions -* multiplied by the flux factor at xpom=0.003 integrated -* over t in the interval -1.0, HWEGAM. -*CMZ :- -26/04/91 11.11.55 by Bryan Webber -*-- Author : Bryan Webber & Luca Stanco -* Modified to substitue pomeron (reggeon) flux for photon flux -* B. Cox and J. Forshaw 11/07/00 -* Bug fix for double pomeron 12/06/01 B. Cox -* Modified for herwig65 21/11/02 B. Cox -* Changed outgoing particles to P and PBAR (depending on whether incoming -* 'lepton' is an electron or positron) 16/06/04 -* Added H1 2006 Diffractive PDFs 11/02/07 B. Cox -C----------------------------------------------------------------------- - SUBROUTINE HWEGAM(IHEP,ZMI,ZMA,WWA) -C----------------------------------------------------------------------- -C GENERATES A PHOTON IN WEIZSACKER-WILLIAMS (WWA=.TRUE.) OR -C ELSE EQUIVALENT PHOTON APPROX FROM INCOMING E+, E-, MU+ OR MU- -C----------------------------------------------------------------------- - INCLUDE 'HERWIG65.INC' - DOUBLE PRECISION HWRGEN,HWRUNI,EGMIN,ZMIN,ZMAX,ZGAM,SS,ZMI,ZMA, - & PPL,PMI,QT2,Q2,QQMIN,QQMAX,S0,RPM(2) - INTEGER IHEP,IHADIS,HQ,I - LOGICAL WWA - DOUBLE PRECISION F,C,FN - DOUBLE PRECISION B,alphap,zh1 - PARAMETER (zh1=0.003) - EXTERNAL HWRGEN,HWRUNI - DATA EGMIN/5.D0/ - IF (IERROR.NE.0) RETURN - IF (IHEP.LT.1.OR.IHEP.GT.2) CALL HWWARN('HWEGAM',500,*999) - SS=PHEP(5,3) - IF (IHEP.EQ.1) THEN - IHADIS=2 - ELSE - IHADIS=1 - IF (JDAHEP(1,IHADIS).NE.0) IHADIS=JDAHEP(1,IHADIS) - ENDIF -C---DEFINE LIMITS FOR GAMMA MOMENTUM FRACTION - IF (ZMI.LE.0D0 .OR. ZMA.GT.1D0) THEN - IF (IPRO.EQ.13.OR.IPRO.EQ.14) THEN - S0 = EMMIN**2 - ELSEIF(IPRO.EQ.15.OR.IPRO.EQ.18.OR.IPRO.EQ.22.OR.IPRO.EQ.24.OR. - & IPRO.EQ.50.OR.IPRO.EQ.53.OR.IPRO.EQ.55)THEN - S0 = 4.D0*PTMIN**2 - ELSEIF (IPRO.EQ.17.OR.IPRO.EQ.51) THEN - HQ = MOD(IPROC,100) - S0 = 4.D0*(PTMIN**2+RMASS(HQ)**2) - ELSEIF (IPRO.EQ.16.OR.IPRO.EQ.19.OR.IPRO.EQ.95) THEN - S0 = MAX(2*RMASS(1),RMASS(201)-GAMMAX*GAMH)**2 - ELSEIF (IPRO.EQ.23) THEN - S0 = MAX(2*RMASS(1),RMASS(201)-GAMMAX*GAMH)**2 - S0 = (PTMIN+SQRT(PTMIN**2+S0))**2 - ELSEIF (IPRO.EQ.20) THEN - S0 = RMASS(201)**2 - ELSEIF (IPRO.EQ.21) THEN - S0 = (PTMIN+SQRT(PTMIN**2+RMASS(198)**2))**2 -C--PR MOD 7/7/99 - ELSEIF(IPRO.EQ.30) THEN - S0 = 4.0D0*(PTMIN**2+RMMNSS**2) - ELSEIF(IPRO.EQ.40.OR.IPRO.EQ.41) THEN - HQ = IPROC-100*IPRO - RPM(1) = RMMNSS - RPM(2) = ZERO - IF(HQ.GE.10.AND.HQ.LT.20) THEN - RPM(1) = ABS(RMASS(450)) - IF(HQ.GT.10) RPM(1) = ABS(RMASS(449+MOD(HQ,10))) - ELSEIF(HQ.GE.20.AND.HQ.LT.30) THEN - RPM(1) = ABS(RMASS(454)) - IF(HQ.GT.20) RPM(1) = ABS(RMASS(453+MOD(HQ,20))) - ELSEIF(HQ.EQ.30) THEN - RPM(1) = RMASS(449) - ELSEIF(HQ.EQ.40) THEN - IF(IPRO.EQ.40) THEN - RPM(1) = RMASS(425) - DO I=1,5 - RPM(1) = MIN(RPM(1),RMASS(425+I)) - ENDDO - ELSE - RPM(1) = MIN(RMASS(405),RMASS(406)) - ENDIF - RPM(2) = RMASS(198) - ELSEIF(HQ.EQ.50) THEN - IF(IPRO.EQ.40) THEN - RPM(1) = RMASS(425) - DO I=1,5 - RPM(1) = MIN(RPM(1),RMASS(425+I)) - ENDDO - DO I=1,3 - RPM(2) = MIN(RPM(1),RMASS(433+2*I)) - ENDDO - RPM(1) = MIN(RPM(1),RPM(2)) - RPM(2) = RMASS(203) - DO I=1,2 - RPM(2) = MIN(RPM(2),RMASS(204+I)) - ENDDO - ELSE - RPM(1) = RMASS(401) - RPM(2) = RMASS(413) - DO I=1,5 - RPM(1) = MIN(RPM(1),RMASS(401+I)) - RPM(2) = MIN(RPM(2),RMASS(413+I)) - ENDDO - RPM(1) = MIN(RPM(1),RPM(2)) - RPM(2) = RMASS(203) - DO I=1,2 - RPM(2) = MIN(RPM(2),RMASS(204+I)) - ENDDO - ENDIF - RPM(2) = RMASS(203) - DO I=1,2 - RPM(2) = MIN(RPM(2),RMASS(204+I)) - ENDDO - ELSEIF(HQ.GE.60) THEN - RPM(1) = ZERO - ENDIF - RPM(1) = RPM(1)**2 - RPM(2) = RPM(2)**2 - S0 = RPM(1)+RPM(2)+TWO*(PTMIN**2+ - & SQRT(RPM(1)*RPM(2)+PTMIN**2*(RPM(1)+RPM(2)+PTMIN**2))) -C--end of mod - ELSEIF (IPRO.EQ.52) THEN - HQ = MOD(IPROC,100) - S0 = (PTMIN+SQRT(PTMIN**2+RMASS(HQ)**2))**2 - ELSEIF (IPRO.EQ.80) THEN - S0 = WHMIN**2 - ELSEIF (IPRO.EQ.90) THEN - S0 = Q2MIN - ELSEIF (IPRO.EQ.91.OR.IPRO.EQ.92) THEN - S0 = Q2MIN+4.D0*PTMIN**2 - HQ = MOD(IPROC,100) - IF (HQ.GT.0) S0 = S0+4.D0*RMASS(HQ)**2 - IF (IPRO.EQ.91) S0 = MAX(S0,EMMIN**2) - ELSE - S0 = 0 - ENDIF - IF (S0.GT.0) THEN - S0 = (SQRT(S0)+ABS(PHEP(5,IHADIS)))**2-PHEP(5,IHADIS)**2 - S0 = MAX(S0,WHMIN**2) - ZMIN = S0 / (SS**2 - PHEP(5,IHEP)**2 - PHEP(5,IHADIS)**2) - ZMAX = ONE - ELSE -C---UNKNOWN PROCESS: USE ENERGY CUTOFF, AND WARN USER - IF (FSTWGT) CALL HWWARN('HWEGAM',1,*999) - ZMIN = EGMIN / PHEP(4,IHEP) - ZMAX = ONE - ENDIF - ELSE - ZMIN=ZMI - ZMAX=ZMA - ENDIF -C---APPLY USER DEFINED CUTS YWWMIN,YWWMAX AND INDIRECT LIMITS ON Z - IF (.NOT.WWA) THEN - ZMIN=MAX(ZMIN,YWWMIN,SQRT(Q2WWMN)/ABS(PHEP(3,IHEP))) - ZMAX=MIN(ZMAX,YWWMAX) - IF (ZMIN.GT.ZMAX) THEN - GAMWT=ZERO - RETURN - ENDIF - ENDIF -C---Q2WWMN AND Q2WWMX ARE USER-DEFINED LIMITS IN THE Q**2 INTEGRATION - QQMAX=Q2WWMX - QQMIN=Q2WWMN -C IF (QQMIN.GT.QQMAX) CALL HWWARN('HWEGAM',50,*10) -C---GENERATE GAMMA MOMENTUM FRACTION - ZGAM=(ZMIN/ZMAX)**HWRGEN(1)*ZMAX -C---POMERON (REGGEON) FLUX -C . B.C. 11/02/07 - IF (NSTRU.GE.9.AND.NSTRU.LE.11) THEN - CALL FLUX(F,ZGAM,QQMIN,QQMAX,NSTRU) - CALL FLUX(FN,ZH1,QQMIN,QQMAX,NSTRU) - ELSEIF (NSTRU.EQ.12) THEN ! POMERON 2006 FIT A - CALL h12006flux(ZGAM,-QQMAX,1,1,1,F) - CALL h12006flux(ZH1,-QQMAX,1,1,1,FN) - ELSEIF (NSTRU.EQ.13) THEN ! REGGEON 2006 FIT A - CALL h12006flux(ZGAM,-QQMAX,1,1,2,F) - CALL h12006flux(ZH1,-QQMAX,1,1,2,FN) - ELSEIF (NSTRU.EQ.14) THEN ! POMERON 2006 FIT B - CALL h12006flux(ZGAM,-QQMAX,1,2,1,F) - CALL h12006flux(ZH1,-QQMAX,1,2,1,FN) - ELSEIF (NSTRU.EQ.15) THEN ! REGGEON 2006 FIT B - CALL h12006flux(ZGAM,-QQMAX,1,2,2,F) - CALL h12006flux(ZH1,-QQMAX,1,2,2,FN) - ELSE - WRITE(*,*) 'HWEGAM : POMWIG : NSTRU OUT OF RANGE' - STOP - ENDIF - - -C---CALCULATE GAMWT - C=1.D0/DLOG(ZMAX/ZMIN) -C B.C. 11/02/07 -C IF (NSTRU.EQ.9) THEN - IF (NSTRU.EQ.9.OR.NSTRU.EQ.12.OR.NSTRU.EQ.14) THEN - GAMWT = GAMWT*F*ZGAM/(C*FN*zh1) - ELSEIF (NSTRU.EQ.10.OR.NSTRU.EQ.11.OR.NSTRU.EQ.13 - + .OR.NSTRU.EQ.15) THEN - GAMWT = GAMWT*F*ZGAM/C - ELSE - WRITE(*,*) 'POMWIG : NSTRU OUT OF RANGE' - STOP - ENDIF - -C B. C. 11/02/07 FOr H1 2006 pdfs use alphap and B from the H1 flux as in h12006flux.f -C. Also fix bug in original pomwig to use alphap and B for reggeon (previous versions -C used pomeron alphap and B for reggeon flux) - -cc JVY: "local" fix - set defaults to avoid compiler's complains of uninit variables - b = -1.0d0 - alphap = 1.0d0 - -C--- PICK T (=Q2) - IF (NSTRU.EQ.9) THEN - alphap=0.26D0 - B=4.6D0 - ELSEIF (NSTRU.EQ.10) THEN - alphap = 0.9D0 - B = 2.0D0 - ELSEIF (NSTRU.EQ.11) THEN - alphap=0.26D0 - B=4.6D0 - ELSEIF (NSTRU.EQ.12.OR.NSTRU.EQ.14) THEN - alphap=0.06D0 - B=5.5D0 - ELSEIF (NSTRU.EQ.13.OR.NSTRU.EQ.15) THEN - alphap=0.3D0 - B=1.6D0 - ENDIF - C=B+alphap*DLOG(1.D0/ZGAM) - Q2=(1.D0/C)*DLOG(1.D0/(DEXP(-C*QQMAX)+HWRGEN(1)* - + (DEXP(-C*QQMIN)-DEXP(-C*QQMAX)))) - IF (GAMWT.LT.ZERO) GAMWT=ZERO -C--- FILL PHOTON - NHEP=NHEP+1 - IDHW(NHEP)=59 - ISTHEP(NHEP)=3 - IDHEP(NHEP)=22 - JMOHEP(1,NHEP)=IHEP - JMOHEP(2,NHEP)=0 - JDAHEP(1,NHEP)=0 - JDAHEP(2,NHEP)=0 - JDAHEP(1,IHEP)=NHEP - IF (WWA) THEN -C---FOR COLLINEAR KINEMATICS, ZGAM IS THE ENERGY FRACTION - PHEP(4,NHEP)=PHEP(4,IHEP)*ZGAM - PHEP(3,NHEP)=PHEP(3,IHEP)-SIGN(SQRT( - & (PHEP(4,IHEP)-PHEP(4,NHEP))**2-PHEP(5,IHEP)**2),PHEP(3,IHEP)) - PHEP(2,NHEP)=0 - PHEP(1,NHEP)=0 - CALL HWUMAS(PHEP(1,NHEP)) - ELSE -C---FOR EXACT KINEMATICS, ZGAM IS TAKEN TO BE FRACTION OF (E+PZ) - PPL=ZGAM*(ABS(PHEP(3,IHEP))+PHEP(4,IHEP)) - QT2=(ONE-ZGAM)*Q2-(ZGAM*PHEP(5,IHEP))**2 - PMI=(QT2-Q2)/PPL - PHEP(5,NHEP)=-SQRT(Q2) - PHEP(4,NHEP)=(PPL+PMI)/TWO - PHEP(3,NHEP)=SIGN((PPL-PMI)/TWO,PHEP(3,IHEP)) - CALL HWRAZM(SQRT(QT2),PHEP(1,NHEP),PHEP(2,NHEP)) - ENDIF -C---UPDATE OVERALL CM FRAME - JMOHEP(IHEP,3)=NHEP - CALL HWVDIF(4,PHEP(1,3),PHEP(1,IHEP),PHEP(1,3)) - CALL HWVSUM(4,PHEP(1,NHEP),PHEP(1,3),PHEP(1,3)) - CALL HWUMAS(PHEP(1,3)) -C---FILL OUTGOING LEPTON - NHEP=NHEP+1 -C--- If outgoing particle is positron, change to anti-proton -C--- If outgoing particle is electron, change to proton -C--- B.C. 16/06/04 -C-- IDHW(NHEP)=IDHW(IHEP) - if (IDHW(IHEP).eq.121) then - IDHW(NHEP)=73 - IDHEP(NHEP)=2212 - else - IDHW(NHEP)=91 - IDHEP(NHEP)=-2212 - endif - ISTHEP(NHEP)=1 -c-- IDHEP(NHEP)=IDHEP(IHEP) - JMOHEP(1,NHEP)=IHEP - JMOHEP(2,NHEP)=0 - JDAHEP(1,NHEP)=0 - JDAHEP(2,NHEP)=0 - JDAHEP(2,IHEP)=NHEP - CALL HWVDIF(4,PHEP(1,IHEP),PHEP(1,NHEP-1),PHEP(1,NHEP)) - PHEP(5,NHEP)=PHEP(5,IHEP) - 999 END diff --git a/GeneratorInterface/PomwigInterface/src/hwsfun65.f b/GeneratorInterface/PomwigInterface/src/hwsfun65.f deleted file mode 100644 index 923415e1bd29b..0000000000000 --- a/GeneratorInterface/PomwigInterface/src/hwsfun65.f +++ /dev/null @@ -1,858 +0,0 @@ -CDECK ID>, HWSFUN. -*CMZ :- -02/05/91 11.30.51 by Federico Carminati -*-- Author : Miscellaneous, combined by Bryan Webber -* Pomeron structure function from h1 code B. Cox and J. Forshaw 11/07/00 -C----------------------------------------------------------------------- - SUBROUTINE HWSFUN(X,SCALE,IDHAD,NSET,DIST,IBEAM) -C----------------------------------------------------------------------- -C NUCLEON AND PION STRUCTURE FUNCTIONS DIST=X*QRK(X,Q=SCALE) -C -C IDHAD = TYPE OF HADRON: -C 73=P 91=PBAR 75=N 93=NBAR 38=PI+ 30=PI- 59=PHOTON -C -C NEW SPECIAL CODES: -C 71=`REMNANT PHOTON' 72=`REMNANT NUCLEON' -C -C NSET = STRUCTURE FUNCTION SET -C = 1,2 FOR DUKE+OWENS SETS 1,2 (SOFT/HARD GLUE) -C = 3,4 FOR EICHTEN ET AL SETS 1,2 (NUCLEON ONLY) -C = 5 FOR OWENS SET 1.1 (PREPRINT FSU-HEP-910606) -C = 6 for H1 pomeron -C = 7 for reggeon -C -C FOR PHOTON DREES+GRASSIE IS USED -C -C N.B. IF IBEAM.GT.0.AND.MODPDF(IBEAM).GE.0 THEN NSET IS -C IGNORED AND CERN PDFLIB WITH AUTHOR GROUP=AUTPDF(IBEAM) AND -C SET=MODPDF(IBEAM) IS USED. FOR COMPATABILITY WITH VERSIONS 3 -C AND EARLIER, AUTPDF SHOULD BE SET TO 'MODE' -C NOTE THAT NO CONSISTENCY CHECK IS MADE, FOR EXAMPLE THAT THE -C REQUESTED SET FOR A PHOTON IS ACTUALLY A PHOTON SET -C -C IF (ISPAC.GT.0) SCALE IS REPLACED BY MAX(SCALE,QSPAC) -C -C FOR PHOTON, IF (PHOMAS.GT.0) THEN QUARK DISTRIBUTIONS ARE -C SUPPRESSED BY LOG((Q**2+PHOMAS**2)/(P**2+PHOMAS**2)) -C L = -------------------------------------- , -C LOG((Q**2+PHOMAS**2)/( PHOMAS**2)) -C WHILE GLUON DISTRIBUTIONS ARE SUPPRESSED BY L**2, -C WHERE Q=SCALE AND P=VIRTUALITY OF THE PHOTON -C -C DUKE+OWENS = D.W.DUKE AND J.F.OWENS, PHYS. REV. D30 (1984) 49 (P/N) -C + J.F.OWENS, PHYS. REV. D30 (1984) 943 (PI+/-) -C WITH EXTRA SIGNIFICANT FIGURES VIA ED BERGER -C WARNING....MOMENTUM SUM RULE BADLY VIOLATED ABOVE 1 TEV -C DUKE+OWENS SETS 1,2 OBSOLETE. SET 1 UPDATED TO OWENS 1.1 (1991) -C PION NOT RELIABLE ABOVE SCALE = 50 GEV -C -C EICHTEN ET AL = E.EICHTEN,I.HINCHLIFFE,K.LANE AND C.QUIGG, -C REV. MOD. PHYS. 56 (1984) 579 -C REVISED AS IN REV. MOD. PHYS. 58 (1986) 1065 -C RELIABLE RANGE : SQRT(5)GEV < SCALE < 10TEV, 1E-4 < X < 1 -C -C DREES+GRASSIE = M.DREES & K.GRASSIE, ZEIT. PHYS. C28 (1985) 451 -C MODIFIED IN M.DREES & C.S.KIM, DESY 91-039 -C AND C.S.KIM, DTP/91/16 FOR HEAVY QUARKS -C -C FOR CERN PDFLIB DETAILS SEE PDFLIB DOC Q ON CERNVM OR -C CERN_ROOT:[DOC]PDFLIB.TXT ON VXCERN -C----------------------------------------------------------------------- - INCLUDE 'HERWIG65.INC' - DOUBLE PRECISION HWSGAM,X,SCALE,XOLD,QOLD,XMWN,QSCA,SS,SMIN,S,T, - & TMIN,TMAX,VX,AA,VT,WT,UPV,DNV,SEA,STR,CHM,BTM,TOP,GLU,WX,XQSUM, - & DMIN,TPMIN,TPMAX,DIST(13),G(2),Q0(5),QL(5),F(5),A(6,5), - & B(3,6,5,4),XQ(6),TX(6),TT(6),TB(6),NEHLQ(8,2),CEHLQ(6,6,2,8,2), - & BB(4,6,5),VAL(20),USEA,DSEA,TOTAL,SCALEF,FAC,TBMIN(2),TTMIN(2) - REAL HWSDGG,HWSDGQ,XSP,Q2,P2,W2,EMB2,EMC2,ALAM2,XPGA(-6:6),F2GM, - & XPVMD,XPANL,XPANH,XPBEH,XPDIR - COMMON/SASCOM/XPVMD(-6:6),XPANL(-6:6),XPANH(-6:6),XPBEH(-6:6), - & XPDIR(-6:6) - LOGICAL PDFWRX(2,2),PDFWRQ(2,2) - DOUBLE PRECISION PDFXMN,PDFXMX,PDFQMN,PDFQMX - COMMON /W50513/PDFXMN,PDFXMX,PDFQMN,PDFQMX - INTEGER IDHAD,NSET,IBEAM,IOLD,NOLD,IP,I,J,K,NX,IT,IX,IFL,NFL, - & MPDF,IHAD,ISET,IOP1,IOP2,IP2 - CHARACTER*20 PARM(20) - EXTERNAL HWSGAM,HWSDGG,HWSDGQ -* B.C. Pomwig - - DOUBLE PRECISION XPQ(-6:6),BCQ - DOUBLE PRECISION F2(2),FL(2),C2(2),CL(2) - INTEGER ifit,iloop - PARAMETER(ifit=0) - CHARACTER*20 PARMA(20) - DOUBLE PRECISION valu(20) -* B.C. Pomwig - - SAVE QOLD,IOLD,NOLD,XOLD,SS,S,T,TMIN,TMAX,G,A,TX,TT,TB,IP,NX - DATA PDFWRX,PDFWRQ/8*.TRUE./ - DATA (((B(I,J,K,1),I=1,3),J=1,6),K=1,5)/ - &3.,0.,0.,.419,.004383,-.007412, - &3.46,.72432,-.065998,4.4,-4.8644,1.3274, - &6*0.,1., - &0.,0.,.763,-.23696,.025836,4.,.62664,-.019163, - &0.,-.42068,.032809,6*0.,1.265,-1.1323,.29268, - &0.,-.37162,-.028977,8.05,1.5877,-.15291, - &0.,6.3059,-.27342,0.,-10.543,-3.1674, - &0.,14.698,9.798,0.,.13479,-.074693, - &-.0355,-.22237,-.057685,6.3494,3.2649,-.90945, - &0.,-3.0331,1.5042,0.,17.431,-11.255, - &0.,-17.861,15.571,1.564,-1.7112,.63751, - &0.,-.94892,.32505,6.,1.4345,-1.0485, - &9.,-7.1858,.25494,0.,-16.457,10.947, - &0.,15.261,-10.085/ - DATA (((B(I,J,K,2),I=1,3),J=1,6),K=1,5)/ - &3.,0.,0.,.3743,.013946,-.00031695, - &3.329,.75343,-.076125,6.032,-6.2153,1.5561, - &6*0.,1.,0., - &0.,.7608,-.2317,.023232,3.83,.62746,-.019155, - &0.,-.41843,.035972,6*0.,1.6714,-1.9168,.58175, - &0.,-.27307,-.16392,9.145,.53045,-.76271, - &0.,15.665,-2.8341,0.,-100.63,44.658, - &0.,223.24,-116.76,0.,.067368,-.030574, - &-.11989,-.23293,-.023273,3.5087,3.6554,-.45313, - &0.,-.47369,.35793,0.,9.5041,-5.4303, - &0.,-16.563,15.524,.8789,-.97093,.43388, - &0.,-1.1612,.4759,4.,1.2271,-.25369, - &9.,-5.6354,-.81747,0.,-7.5438,5.5034, - &0.,-.59649,.12611/ - DATA (((B(I,J,K,3),I=1,3),J=1,6),K=1,5)/ - &1.,0.,0.,0.4,-0.06212,-0.007109,0.7,0.6478,0.01335,27*0., - &0.9,-0.2428,0.1386,0.,-0.2120,0.003671,5.0,0.8673,0.04747, - &0.,1.266,-2.215,0.,2.382,0.3482,3*0., - &0.,0.07928,-0.06134,-0.02212,-0.3785,-0.1088,2.894,9.433, - &-10.852,0.,5.248,-7.187,0.,8.388,-11.61,3*0., - &0.888,-1.802,1.812,0.,-1.576,1.20,3.11,-0.1317,0.5068, - &6.0,2.801,-12.16,0.,-17.28,20.49,3*0./ - DATA (((B(I,J,K,4),I=1,3),J=1,6),K=1,5)/ - &1.,0.,0.,0.4,-0.05909,-0.006524,0.628,0.6436,0.01451,27*0., - &0.90,-0.1417,-0.1740,0.,-0.1697,-0.09623,5.0,-2.474,1.575, - &0.,-2.534,1.378,0.,0.5621,-0.2701,3*0., - &0.,0.06229,-0.04099,-0.0882,-0.2892,-0.1082,1.924,0.2424, - &2.036,0.,-4.463,5.209,0.,-0.8367,-0.04840,3*0., - &0.794,-0.9144,0.5966,0.,-1.237,0.6582,2.89,0.5966,-0.2550, - &6.0,-3.671,-2.304,0.,-8.191,7.758,3*0./ -C---COEFFTS FOR NEW OWENS 1.1 SET - DATA BB/3.,3*0.,.665,-.1097,-.002442,0., - &3.614,.8395,-.02186,0.,.8673,-1.6637,.342,0., - &0.,1.1049,-.2369,5*0.,1.,3*0., - &.8388,-.2092,.02657,0.,4.667,.7951,.1081,0., - &0.,-1.0232,.05799,0.,0.,.8616,.153,5*0., - &.909,-.4023,.006305,0., - &0.,-.3823,.02766,0.,7.278,-.7904,.8108,0., - &0.,-1.6629,.5719,0.,0.,-.01333,.5299,0., - &0.,.1211,-.1739,0.,0.,.09469,-.07066,.01236, - &-.1447,-.402,.1533,-.06479,6.7599,1.6596,.6798,-.8525, - &0.,-4.4559,3.3756,-.9468, - &0.,7.862,-3.6591,.03672,0.,-.2472,-.751,.0487, - &3.017,-4.7347,3.3594,-.9443,0.,-.9342,.5454,-.1668, - &5.304,1.4654,-1.4292,.7569,0.,-3.9141,2.8445,-.8411, - &0.,9.0176,-10.426,4.0983,0.,-5.9602,7.515,-2.7329/ -C...THE FOLLOWING DATA LINES ARE COEFFICIENTS NEEDED IN THE -C...EICHTEN, HINCHLIFFE, LANE, QUIGG PROTON STRUCTURE FUNCTION -C...POWERS OF 1-X IN DIFFERENT CASES - DATA NEHLQ/3,4,7,5,7,7,7,7,3,4,7,6,7,7,7,7/ -C...EXPANSION COEFFICIENTS FOR UP VALENCE QUARK DISTRIBUTION - DATA (((CEHLQ(IX,IT,NX,1,1),IX=1,6),IT=1,6),NX=1,2)/ - 1 7.677E-01,-2.087E-01,-3.303E-01,-2.517E-02,-1.570E-02,-1.000E-04, - 2-5.326E-01,-2.661E-01, 3.201E-01, 1.192E-01, 2.434E-02, 7.620E-03, - 3 2.162E-01, 1.881E-01,-8.375E-02,-6.515E-02,-1.743E-02,-5.040E-03, - 4-9.211E-02,-9.952E-02, 1.373E-02, 2.506E-02, 8.770E-03, 2.550E-03, - 5 3.670E-02, 4.409E-02, 9.600E-04,-7.960E-03,-3.420E-03,-1.050E-03, - 6-1.549E-02,-2.026E-02,-3.060E-03, 2.220E-03, 1.240E-03, 4.100E-04, - 1 2.395E-01, 2.905E-01, 9.778E-02, 2.149E-02, 3.440E-03, 5.000E-04, - 2 1.751E-02,-6.090E-03,-2.687E-02,-1.916E-02,-7.970E-03,-2.750E-03, - 3-5.760E-03,-5.040E-03, 1.080E-03, 2.490E-03, 1.530E-03, 7.500E-04, - 4 1.740E-03, 1.960E-03, 3.000E-04,-3.400E-04,-2.900E-04,-1.800E-04, - 5-5.300E-04,-6.400E-04,-1.700E-04, 4.000E-05, 6.000E-05, 4.000E-05, - 6 1.700E-04, 2.200E-04, 8.000E-05, 1.000E-05,-1.000E-05,-1.000E-05/ - DATA (((CEHLQ(IX,IT,NX,1,2),IX=1,6),IT=1,6),NX=1,2)/ - 1 7.237E-01,-2.189E-01,-2.995E-01,-1.909E-02,-1.477E-02, 2.500E-04, - 2-5.314E-01,-2.425E-01, 3.283E-01, 1.119E-01, 2.223E-02, 7.070E-03, - 3 2.289E-01, 1.890E-01,-9.859E-02,-6.900E-02,-1.747E-02,-5.080E-03, - 4-1.041E-01,-1.084E-01, 2.108E-02, 2.975E-02, 9.830E-03, 2.830E-03, - 5 4.394E-02, 5.116E-02,-1.410E-03,-1.055E-02,-4.230E-03,-1.270E-03, - 6-1.991E-02,-2.539E-02,-2.780E-03, 3.430E-03, 1.720E-03, 5.500E-04, - 1 2.410E-01, 2.884E-01, 9.369E-02, 1.900E-02, 2.530E-03, 2.400E-04, - 2 1.765E-02,-9.220E-03,-3.037E-02,-2.085E-02,-8.440E-03,-2.810E-03, - 3-6.450E-03,-5.260E-03, 1.720E-03, 3.110E-03, 1.830E-03, 8.700E-04, - 4 2.120E-03, 2.320E-03, 2.600E-04,-4.900E-04,-3.900E-04,-2.300E-04, - 5-6.900E-04,-8.200E-04,-2.000E-04, 7.000E-05, 9.000E-05, 6.000E-05, - 6 2.400E-04, 3.100E-04, 1.100E-04, 0.000E+00,-2.000E-05,-2.000E-05/ -C...EXPANSION COEFFICIENTS FOR DOWN VALENCE QUARK DISTRIBUTION - DATA (((CEHLQ(IX,IT,NX,2,1),IX=1,6),IT=1,6),NX=1,2)/ - 1 3.813E-01,-8.090E-02,-1.634E-01,-2.185E-02,-8.430E-03,-6.200E-04, - 2-2.948E-01,-1.435E-01, 1.665E-01, 6.638E-02, 1.473E-02, 4.080E-03, - 3 1.252E-01, 1.042E-01,-4.722E-02,-3.683E-02,-1.038E-02,-2.860E-03, - 4-5.478E-02,-5.678E-02, 8.900E-03, 1.484E-02, 5.340E-03, 1.520E-03, - 5 2.220E-02, 2.567E-02,-3.000E-05,-4.970E-03,-2.160E-03,-6.500E-04, - 6-9.530E-03,-1.204E-02,-1.510E-03, 1.510E-03, 8.300E-04, 2.700E-04, - 1 1.261E-01, 1.354E-01, 3.958E-02, 8.240E-03, 1.660E-03, 4.500E-04, - 2 3.890E-03,-1.159E-02,-1.625E-02,-9.610E-03,-3.710E-03,-1.260E-03, - 3-1.910E-03,-5.600E-04, 1.590E-03, 1.590E-03, 8.400E-04, 3.900E-04, - 4 6.400E-04, 4.900E-04,-1.500E-04,-2.900E-04,-1.800E-04,-1.000E-04, - 5-2.000E-04,-1.900E-04, 0.000E+00, 6.000E-05, 4.000E-05, 3.000E-05, - 6 7.000E-05, 8.000E-05, 2.000E-05,-1.000E-05,-1.000E-05,-1.000E-05/ - DATA (((CEHLQ(IX,IT,NX,2,2),IX=1,6),IT=1,6),NX=1,2)/ - 1 3.578E-01,-8.622E-02,-1.480E-01,-1.840E-02,-7.820E-03,-4.500E-04, - 2-2.925E-01,-1.304E-01, 1.696E-01, 6.243E-02, 1.353E-02, 3.750E-03, - 3 1.318E-01, 1.041E-01,-5.486E-02,-3.872E-02,-1.038E-02,-2.850E-03, - 4-6.162E-02,-6.143E-02, 1.303E-02, 1.740E-02, 5.940E-03, 1.670E-03, - 5 2.643E-02, 2.957E-02,-1.490E-03,-6.450E-03,-2.630E-03,-7.700E-04, - 6-1.218E-02,-1.497E-02,-1.260E-03, 2.240E-03, 1.120E-03, 3.500E-04, - 1 1.263E-01, 1.334E-01, 3.732E-02, 7.070E-03, 1.260E-03, 3.400E-04, - 2 3.660E-03,-1.357E-02,-1.795E-02,-1.031E-02,-3.880E-03,-1.280E-03, - 3-2.100E-03,-3.600E-04, 2.050E-03, 1.920E-03, 9.800E-04, 4.400E-04, - 4 7.700E-04, 5.400E-04,-2.400E-04,-3.900E-04,-2.400E-04,-1.300E-04, - 5-2.600E-04,-2.300E-04, 2.000E-05, 9.000E-05, 6.000E-05, 4.000E-05, - 6 9.000E-05, 1.000E-04, 2.000E-05,-2.000E-05,-2.000E-05,-1.000E-05/ -C...EXPANSION COEFFICIENTS FOR UP AND DOWN SEA QUARK DISTRIBUTIONS - DATA (((CEHLQ(IX,IT,NX,3,1),IX=1,6),IT=1,6),NX=1,2)/ - 1 6.870E-02,-6.861E-02, 2.973E-02,-5.400E-03, 3.780E-03,-9.700E-04, - 2-1.802E-02, 1.400E-04, 6.490E-03,-8.540E-03, 1.220E-03,-1.750E-03, - 3-4.650E-03, 1.480E-03,-5.930E-03, 6.000E-04,-1.030E-03,-8.000E-05, - 4 6.440E-03, 2.570E-03, 2.830E-03, 1.150E-03, 7.100E-04, 3.300E-04, - 5-3.930E-03,-2.540E-03,-1.160E-03,-7.700E-04,-3.600E-04,-1.900E-04, - 6 2.340E-03, 1.930E-03, 5.300E-04, 3.700E-04, 1.600E-04, 9.000E-05, - 1 1.014E+00,-1.106E+00, 3.374E-01,-7.444E-02, 8.850E-03,-8.700E-04, - 2 9.233E-01,-1.285E+00, 4.475E-01,-9.786E-02, 1.419E-02,-1.120E-03, - 3 4.888E-02,-1.271E-01, 8.606E-02,-2.608E-02, 4.780E-03,-6.000E-04, - 4-2.691E-02, 4.887E-02,-1.771E-02, 1.620E-03, 2.500E-04,-6.000E-05, - 5 7.040E-03,-1.113E-02, 1.590E-03, 7.000E-04,-2.000E-04, 0.000E+00, - 6-1.710E-03, 2.290E-03, 3.800E-04,-3.500E-04, 4.000E-05, 1.000E-05/ - DATA (((CEHLQ(IX,IT,NX,3,2),IX=1,6),IT=1,6),NX=1,2)/ - 1 1.008E-01,-7.100E-02, 1.973E-02,-5.710E-03, 2.930E-03,-9.900E-04, - 2-5.271E-02,-1.823E-02, 1.792E-02,-6.580E-03, 1.750E-03,-1.550E-03, - 3 1.220E-02, 1.763E-02,-8.690E-03,-8.800E-04,-1.160E-03,-2.100E-04, - 4-1.190E-03,-7.180E-03, 2.360E-03, 1.890E-03, 7.700E-04, 4.100E-04, - 5-9.100E-04, 2.040E-03,-3.100E-04,-1.050E-03,-4.000E-04,-2.400E-04, - 6 1.190E-03,-1.700E-04,-2.000E-04, 4.200E-04, 1.700E-04, 1.000E-04, - 1 1.081E+00,-1.189E+00, 3.868E-01,-8.617E-02, 1.115E-02,-1.180E-03, - 2 9.917E-01,-1.396E+00, 4.998E-01,-1.159E-01, 1.674E-02,-1.720E-03, - 3 5.099E-02,-1.338E-01, 9.173E-02,-2.885E-02, 5.890E-03,-6.500E-04, - 4-3.178E-02, 5.703E-02,-2.070E-02, 2.440E-03, 1.100E-04,-9.000E-05, - 5 8.970E-03,-1.392E-02, 2.050E-03, 6.500E-04,-2.300E-04, 2.000E-05, - 6-2.340E-03, 3.010E-03, 5.000E-04,-3.900E-04, 6.000E-05, 1.000E-05/ -C...EXPANSION COEFFICIENTS FOR GLUON DISTRIBUTION - DATA (((CEHLQ(IX,IT,NX,4,1),IX=1,6),IT=1,6),NX=1,2)/ - 1 9.482E-01,-9.578E-01, 1.009E-01,-1.051E-01, 3.456E-02,-3.054E-02, - 2-9.627E-01, 5.379E-01, 3.368E-01,-9.525E-02, 1.488E-02,-2.051E-02, - 3 4.300E-01,-8.306E-02,-3.372E-01, 4.902E-02,-9.160E-03, 1.041E-02, - 4-1.925E-01,-1.790E-02, 2.183E-01, 7.490E-03, 4.140E-03,-1.860E-03, - 5 8.183E-02, 1.926E-02,-1.072E-01,-1.944E-02,-2.770E-03,-5.200E-04, - 6-3.884E-02,-1.234E-02, 5.410E-02, 1.879E-02, 3.350E-03, 1.040E-03, - 1 2.948E+01,-3.902E+01, 1.464E+01,-3.335E+00, 5.054E-01,-5.915E-02, - 2 2.559E+01,-3.955E+01, 1.661E+01,-4.299E+00, 6.904E-01,-8.243E-02, - 3-1.663E+00, 1.176E+00, 1.118E+00,-7.099E-01, 1.948E-01,-2.404E-02, - 4-2.168E-01, 8.170E-01,-7.169E-01, 1.851E-01,-1.924E-02,-3.250E-03, - 5 2.088E-01,-4.355E-01, 2.239E-01,-2.446E-02,-3.620E-03, 1.910E-03, - 6-9.097E-02, 1.601E-01,-5.681E-02,-2.500E-03, 2.580E-03,-4.700E-04/ - DATA (((CEHLQ(IX,IT,NX,4,2),IX=1,6),IT=1,6),NX=1,2)/ - 1 2.367E+00, 4.453E-01, 3.660E-01, 9.467E-02, 1.341E-01, 1.661E-02, - 2-3.170E+00,-1.795E+00, 3.313E-02,-2.874E-01,-9.827E-02,-7.119E-02, - 3 1.823E+00, 1.457E+00,-2.465E-01, 3.739E-02, 6.090E-03, 1.814E-02, - 4-1.033E+00,-9.827E-01, 2.136E-01, 1.169E-01, 5.001E-02, 1.684E-02, - 5 5.133E-01, 5.259E-01,-1.173E-01,-1.139E-01,-4.988E-02,-2.021E-02, - 6-2.881E-01,-3.145E-01, 5.667E-02, 9.161E-02, 4.568E-02, 1.951E-02, - 1 3.036E+01,-4.062E+01, 1.578E+01,-3.699E+00, 6.020E-01,-7.031E-02, - 2 2.700E+01,-4.167E+01, 1.770E+01,-4.804E+00, 7.862E-01,-1.060E-01, - 3-1.909E+00, 1.357E+00, 1.127E+00,-7.181E-01, 2.232E-01,-2.481E-02, - 4-2.488E-01, 9.781E-01,-8.127E-01, 2.094E-01,-2.997E-02,-4.710E-03, - 5 2.506E-01,-5.427E-01, 2.672E-01,-3.103E-02,-1.800E-03, 2.870E-03, - 6-1.128E-01, 2.087E-01,-6.972E-02,-2.480E-03, 2.630E-03,-8.400E-04/ -C...EXPANSION COEFFICIENTS FOR STRANGE SEA QUARK DISTRIBUTION - DATA (((CEHLQ(IX,IT,NX,5,1),IX=1,6),IT=1,6),NX=1,2)/ - 1 4.968E-02,-4.173E-02, 2.102E-02,-3.270E-03, 3.240E-03,-6.700E-04, - 2-6.150E-03,-1.294E-02, 6.740E-03,-6.890E-03, 9.000E-04,-1.510E-03, - 3-8.580E-03, 5.050E-03,-4.900E-03,-1.600E-04,-9.400E-04,-1.500E-04, - 4 7.840E-03, 1.510E-03, 2.220E-03, 1.400E-03, 7.000E-04, 3.500E-04, - 5-4.410E-03,-2.220E-03,-8.900E-04,-8.500E-04,-3.600E-04,-2.000E-04, - 6 2.520E-03, 1.840E-03, 4.100E-04, 3.900E-04, 1.600E-04, 9.000E-05, - 1 9.235E-01,-1.085E+00, 3.464E-01,-7.210E-02, 9.140E-03,-9.100E-04, - 2 9.315E-01,-1.274E+00, 4.512E-01,-9.775E-02, 1.380E-02,-1.310E-03, - 3 4.739E-02,-1.296E-01, 8.482E-02,-2.642E-02, 4.760E-03,-5.700E-04, - 4-2.653E-02, 4.953E-02,-1.735E-02, 1.750E-03, 2.800E-04,-6.000E-05, - 5 6.940E-03,-1.132E-02, 1.480E-03, 6.500E-04,-2.100E-04, 0.000E+00, - 6-1.680E-03, 2.340E-03, 4.200E-04,-3.400E-04, 5.000E-05, 1.000E-05/ - DATA (((CEHLQ(IX,IT,NX,5,2),IX=1,6),IT=1,6),NX=1,2)/ - 1 6.478E-02,-4.537E-02, 1.643E-02,-3.490E-03, 2.710E-03,-6.700E-04, - 2-2.223E-02,-2.126E-02, 1.247E-02,-6.290E-03, 1.120E-03,-1.440E-03, - 3-1.340E-03, 1.362E-02,-6.130E-03,-7.900E-04,-9.000E-04,-2.000E-04, - 4 5.080E-03,-3.610E-03, 1.700E-03, 1.830E-03, 6.800E-04, 4.000E-04, - 5-3.580E-03, 6.000E-05,-2.600E-04,-1.050E-03,-3.800E-04,-2.300E-04, - 6 2.420E-03, 9.300E-04,-1.000E-04, 4.500E-04, 1.700E-04, 1.100E-04, - 1 9.868E-01,-1.171E+00, 3.940E-01,-8.459E-02, 1.124E-02,-1.250E-03, - 2 1.001E+00,-1.383E+00, 5.044E-01,-1.152E-01, 1.658E-02,-1.830E-03, - 3 4.928E-02,-1.368E-01, 9.021E-02,-2.935E-02, 5.800E-03,-6.600E-04, - 4-3.133E-02, 5.785E-02,-2.023E-02, 2.630E-03, 1.600E-04,-8.000E-05, - 5 8.840E-03,-1.416E-02, 1.900E-03, 5.800E-04,-2.500E-04, 1.000E-05, - 6-2.300E-03, 3.080E-03, 5.500E-04,-3.700E-04, 7.000E-05, 1.000E-05/ -C...EXPANSION COEFFICIENTS FOR CHARM SEA QUARK DISTRIBUTION - DATA (((CEHLQ(IX,IT,NX,6,1),IX=1,6),IT=1,6),NX=1,2)/ - 1 9.270E-03,-1.817E-02, 9.590E-03,-6.390E-03, 1.690E-03,-1.540E-03, - 2 5.710E-03,-1.188E-02, 6.090E-03,-4.650E-03, 1.240E-03,-1.310E-03, - 3-3.960E-03, 7.100E-03,-3.590E-03, 1.840E-03,-3.900E-04, 3.400E-04, - 4 1.120E-03,-1.960E-03, 1.120E-03,-4.800E-04, 1.000E-04,-4.000E-05, - 5 4.000E-05,-3.000E-05,-1.800E-04, 9.000E-05,-5.000E-05,-2.000E-05, - 6-4.200E-04, 7.300E-04,-1.600E-04, 5.000E-05, 5.000E-05, 5.000E-05, - 1 8.098E-01,-1.042E+00, 3.398E-01,-6.824E-02, 8.760E-03,-9.000E-04, - 2 8.961E-01,-1.217E+00, 4.339E-01,-9.287E-02, 1.304E-02,-1.290E-03, - 3 3.058E-02,-1.040E-01, 7.604E-02,-2.415E-02, 4.600E-03,-5.000E-04, - 4-2.451E-02, 4.432E-02,-1.651E-02, 1.430E-03, 1.200E-04,-1.000E-04, - 5 1.122E-02,-1.457E-02, 2.680E-03, 5.800E-04,-1.200E-04, 3.000E-05, - 6-7.730E-03, 7.330E-03,-7.600E-04,-2.400E-04, 1.000E-05, 0.000E+00/ - DATA (((CEHLQ(IX,IT,NX,6,2),IX=1,6),IT=1,6),NX=1,2)/ - 1 9.980E-03,-1.945E-02, 1.055E-02,-6.870E-03, 1.860E-03,-1.560E-03, - 2 5.700E-03,-1.203E-02, 6.250E-03,-4.860E-03, 1.310E-03,-1.370E-03, - 3-4.490E-03, 7.990E-03,-4.170E-03, 2.050E-03,-4.400E-04, 3.300E-04, - 4 1.470E-03,-2.480E-03, 1.460E-03,-5.700E-04, 1.200E-04,-1.000E-05, - 5-9.000E-05, 1.500E-04,-3.200E-04, 1.200E-04,-6.000E-05,-4.000E-05, - 6-4.200E-04, 7.600E-04,-1.400E-04, 4.000E-05, 7.000E-05, 5.000E-05, - 1 8.698E-01,-1.131E+00, 3.836E-01,-8.111E-02, 1.048E-02,-1.300E-03, - 2 9.626E-01,-1.321E+00, 4.854E-01,-1.091E-01, 1.583E-02,-1.700E-03, - 3 3.057E-02,-1.088E-01, 8.022E-02,-2.676E-02, 5.590E-03,-5.600E-04, - 4-2.845E-02, 5.164E-02,-1.918E-02, 2.210E-03,-4.000E-05,-1.500E-04, - 5 1.311E-02,-1.751E-02, 3.310E-03, 5.100E-04,-1.200E-04, 5.000E-05, - 6-8.590E-03, 8.380E-03,-9.200E-04,-2.600E-04, 1.000E-05,-1.000E-05/ -C...EXPANSION COEFFICIENTS FOR BOTTOM SEA QUARK DISTRIBUTION - DATA (((CEHLQ(IX,IT,NX,7,1),IX=1,6),IT=1,6),NX=1,2)/ - 1 9.010E-03,-1.401E-02, 7.150E-03,-4.130E-03, 1.260E-03,-1.040E-03, - 2 6.280E-03,-9.320E-03, 4.780E-03,-2.890E-03, 9.100E-04,-8.200E-04, - 3-2.930E-03, 4.090E-03,-1.890E-03, 7.600E-04,-2.300E-04, 1.400E-04, - 4 3.900E-04,-1.200E-03, 4.400E-04,-2.500E-04, 2.000E-05,-2.000E-05, - 5 2.600E-04, 1.400E-04,-8.000E-05, 1.000E-04, 1.000E-05, 1.000E-05, - 6-2.600E-04, 3.200E-04, 1.000E-05,-1.000E-05, 1.000E-05,-1.000E-05, - 1 8.029E-01,-1.075E+00, 3.792E-01,-7.843E-02, 1.007E-02,-1.090E-03, - 2 7.903E-01,-1.099E+00, 4.153E-01,-9.301E-02, 1.317E-02,-1.410E-03, - 3-1.704E-02,-1.130E-02, 2.882E-02,-1.341E-02, 3.040E-03,-3.600E-04, - 4-7.200E-04, 7.230E-03,-5.160E-03, 1.080E-03,-5.000E-05,-4.000E-05, - 5 3.050E-03,-4.610E-03, 1.660E-03,-1.300E-04,-1.000E-05, 1.000E-05, - 6-4.360E-03, 5.230E-03,-1.610E-03, 2.000E-04,-2.000E-05, 0.000E+00/ - DATA (((CEHLQ(IX,IT,NX,7,2),IX=1,6),IT=1,6),NX=1,2)/ - 1 8.980E-03,-1.459E-02, 7.510E-03,-4.410E-03, 1.310E-03,-1.070E-03, - 2 5.970E-03,-9.440E-03, 4.800E-03,-3.020E-03, 9.100E-04,-8.500E-04, - 3-3.050E-03, 4.440E-03,-2.100E-03, 8.500E-04,-2.400E-04, 1.400E-04, - 4 5.300E-04,-1.300E-03, 5.600E-04,-2.700E-04, 3.000E-05,-2.000E-05, - 5 2.000E-04, 1.400E-04,-1.100E-04, 1.000E-04, 0.000E+00, 0.000E+00, - 6-2.600E-04, 3.200E-04, 0.000E+00,-3.000E-05, 1.000E-05,-1.000E-05, - 1 8.672E-01,-1.174E+00, 4.265E-01,-9.252E-02, 1.244E-02,-1.460E-03, - 2 8.500E-01,-1.194E+00, 4.630E-01,-1.083E-01, 1.614E-02,-1.830E-03, - 3-2.241E-02,-5.630E-03, 2.815E-02,-1.425E-02, 3.520E-03,-4.300E-04, - 4-7.300E-04, 8.030E-03,-5.780E-03, 1.380E-03,-1.300E-04,-4.000E-05, - 5 3.460E-03,-5.380E-03, 1.960E-03,-2.100E-04, 1.000E-05, 1.000E-05, - 6-4.850E-03, 5.950E-03,-1.890E-03, 2.600E-04,-3.000E-05, 0.000E+00/ -C...EXPANSION COEFFICIENTS FOR TOP SEA QUARK DISTRIBUTION - DATA (((CEHLQ(IX,IT,NX,8,1),IX=1,6),IT=1,6),NX=1,2)/ - 1 4.410E-03,-7.480E-03, 3.770E-03,-2.580E-03, 7.300E-04,-7.100E-04, - 2 3.840E-03,-6.050E-03, 3.030E-03,-2.030E-03, 5.800E-04,-5.900E-04, - 3-8.800E-04, 1.660E-03,-7.500E-04, 4.700E-04,-1.000E-04, 1.000E-04, - 4-8.000E-05,-1.500E-04, 1.200E-04,-9.000E-05, 3.000E-05, 0.000E+00, - 5 1.300E-04,-2.200E-04,-2.000E-05,-2.000E-05,-2.000E-05,-2.000E-05, - 6-7.000E-05, 1.900E-04,-4.000E-05, 2.000E-05, 0.000E+00, 0.000E+00, - 1 6.623E-01,-9.248E-01, 3.519E-01,-7.930E-02, 1.110E-02,-1.180E-03, - 2 6.380E-01,-9.062E-01, 3.582E-01,-8.479E-02, 1.265E-02,-1.390E-03, - 3-2.581E-02, 2.125E-02, 4.190E-03,-4.980E-03, 1.490E-03,-2.100E-04, - 4 7.100E-04, 5.300E-04,-1.270E-03, 3.900E-04,-5.000E-05,-1.000E-05, - 5 3.850E-03,-5.060E-03, 1.860E-03,-3.500E-04, 4.000E-05, 0.000E+00, - 6-3.530E-03, 4.460E-03,-1.500E-03, 2.700E-04,-3.000E-05, 0.000E+00/ - DATA (((CEHLQ(IX,IT,NX,8,2),IX=1,6),IT=1,6),NX=1,2)/ - 1 4.260E-03,-7.530E-03, 3.830E-03,-2.680E-03, 7.600E-04,-7.300E-04, - 2 3.640E-03,-6.050E-03, 3.030E-03,-2.090E-03, 5.900E-04,-6.000E-04, - 3-9.200E-04, 1.710E-03,-8.200E-04, 5.000E-04,-1.200E-04, 1.000E-04, - 4-5.000E-05,-1.600E-04, 1.300E-04,-9.000E-05, 3.000E-05, 0.000E+00, - 5 1.300E-04,-2.100E-04,-1.000E-05,-2.000E-05,-2.000E-05,-1.000E-05, - 6-8.000E-05, 1.800E-04,-5.000E-05, 2.000E-05, 0.000E+00, 0.000E+00, - 1 7.146E-01,-1.007E+00, 3.932E-01,-9.246E-02, 1.366E-02,-1.540E-03, - 2 6.856E-01,-9.828E-01, 3.977E-01,-9.795E-02, 1.540E-02,-1.790E-03, - 3-3.053E-02, 2.758E-02, 2.150E-03,-4.880E-03, 1.640E-03,-2.500E-04, - 4 9.200E-04, 4.200E-04,-1.340E-03, 4.600E-04,-8.000E-05,-1.000E-05, - 5 4.230E-03,-5.660E-03, 2.140E-03,-4.300E-04, 6.000E-05, 0.000E+00, - 6-3.890E-03, 5.000E-03,-1.740E-03, 3.300E-04,-4.000E-05, 0.000E+00/ - DATA TBMIN,TTMIN/8.1905,7.4474,11.5528,10.8097/ - DATA XOLD,QOLD,IOLD,NOLD/-1.,0.,0,0/ - DATA DMIN,Q0,QL/0.,2*2.,2*2.236,2.,.2,.4,.2,.29,.177/ - IF (X.LE.ZERO) CALL HWWARN('HWSFUN',100,*999) - XMWN=ONE-X - IF (XMWN.LE.ZERO) THEN - DO 1 I=1,13 - DIST(I)=0 - 1 CONTINUE - RETURN - ENDIF -C---FREEZE THE SCALE IF REQUIRED - SCALEF=SCALE - IF (ISPAC.GT.0) SCALEF=MAX(SCALEF,QSPAC) -C---CHECK IF PDFLIB REQUESTED - IF (IBEAM.EQ.1.OR.IBEAM.EQ.2) THEN - MPDF=MODPDF(IBEAM) - ELSE - MPDF=-1 - ENDIF - QSCA=ABS(SCALEF) -* B.C. Pomwig Start of mod -C--- pomeron for photon - IF (IDHAD.EQ.59) THEN - IF (NSTRU.EQ.9) THEN - BCQ=QSCA*QSCA -C Initialise xpq - DO ILOOP=-6,6 - XPQ(ILOOP)=0.D0 - ENDDO - call QCD_1994(X,BCQ,XPQ,ifit) - DIST(1)=XPQ(1) - DIST(2)=XPQ(2) - DIST(3)=XPQ(3) - DIST(4)=0 - DIST(5)=0 - DIST(6)=0 - DIST(7)=XPQ(-1) - DIST(8)=XPQ(-2) - DIST(9)=XPQ(-3) - DIST(10)=0 - DIST(11)=0 - DIST(12)=0 - DIST(13)=XPQ(0) - - GOTO 999 - ELSEIF (NSTRU.EQ.10.OR.NSTRU.EQ.13.OR.NSTRU.EQ.15) THEN -C Reggeon -C parma(1)='NPTYPE' -C parma(2)='NGROUP' -C parma(3)='NSET' -C valu(1)=2 -* valu(2)=5 -* valu(3)=2 ! GRV-P LO -C valu(2)=1 -C valu(3)=1 ! OWENS -C A. Vilela Pereira 25/03/09 - parma(1)=AUTPDF(IBEAM) - valu(1)=211 -C A. Vilela Pereira - CALL PDFSET(PARMA,VALU) - CALL STRUCTM(X,QSCA,UPV,DNV,USEA,DSEA,STR,CHM,BTM,TOP,GLU) - DIST(1)=(0.5D0*DNV)+DSEA - DIST(2)=(0.5D0*UPV)+USEA - DIST(3)=STR - DIST(4)=CHM - DIST(5)=0 - DIST(6)=0 - DIST(7)=(0.5D0*DNV)+DSEA - DIST(8)=(0.5D0*UPV)+USEA - DIST(9)=STR - DIST(10)=CHM - DIST(11)=0 - DIST(12)=0 - DIST(13)=GLU - GOTO 999 - - ELSEIF (NSTRU.EQ.11) THEN -C User defined pomeron structure - BCQ=QSCA*QSCA - CALL pomstr(X,BCQ,XPQ) - - DIST(1)=XPQ(1) - DIST(2)=XPQ(2) - DIST(3)=XPQ(3) - DIST(4)=0 - DIST(5)=0 - DIST(6)=0 - DIST(7)=XPQ(-1) - DIST(8)=XPQ(-2) - DIST(9)=XPQ(-3) - DIST(10)=0 - DIST(11)=0 - DIST(12)=0 - DIST(13)=XPQ(0) - - GOTO 999 -C B.C. 11/02/2007 - ELSEIF (NSTRU.EQ.12.OR.NSTRU.EQ.14) THEN - BCQ=QSCA*QSCA -C Initialise xpq - DO ILOOP=-6,6 - XPQ(ILOOP)=0.D0 - ENDDO - call qcd_2006(X,BCQ,ifit,XPQ,F2,FL,C2,CL) - DIST(1)=XPQ(1) - DIST(2)=XPQ(2) - DIST(3)=XPQ(3) - DIST(4)=0 - DIST(5)=0 - DIST(6)=0 - DIST(7)=XPQ(-1) - DIST(8)=XPQ(-2) - DIST(9)=XPQ(-3) - DIST(10)=0 - DIST(11)=0 - DIST(12)=0 - DIST(13)=XPQ(0) - - GOTO 999 - ELSE - write(*,*) "HWSFUN : NSTRU outside POWMIG range" - STOP - ENDIF - ENDIF -* B. C. Pomwig End of mod. - IF (IDHAD.EQ.59.OR.IDHAD.EQ.71) THEN - IF (MPDF.GE.0) THEN -C---USE PDFLIB PHOTON STRUCTURE FUNCTIONS - PARM(1)=AUTPDF(IBEAM) - VAL(1)=FLOAT(MPDF) -C---FIX TO CALL SCHULER-SJOSTRAND CODE - IF (AUTPDF(IBEAM).EQ.'SaSph') THEN - XSP=X - IF ( XSP.LE.ZERO) CALL HWWARN('HWSFUN',102,*999) - IF (ONE-XSP.LE.ZERO) CALL HWWARN('HWSFUN',103,*999) - Q2=QSCA**2 - ISET=MOD(MODPDF(IBEAM),10) - IOP1=MOD(MODPDF(IBEAM)/10,2) - IOP2=MOD(MODPDF(IBEAM)/20,2) - IP2=MODPDF(IBEAM)/100 - IF (IOP2.EQ.0) THEN - P2=0. - ELSE - IHAD=IBEAM - IF (JDAHEP(1,IHAD).NE.0) IHAD=JDAHEP(1,IHAD) - P2=PHEP(5,IHAD)**2 - ENDIF - CALL SASGAM(ISET,XSP,Q2,P2,IP2,F2GM,XPGA) - IF (IOP1.EQ.1 .AND. ISTAT.LT.10) THEN - DO 5 I=-6,6 - 5 XPGA(I)=XPVMD(I)+XPANL(I)+XPBEH(I)+XPDIR(I) - ENDIF - UPV=XPGA(2) - DNV=XPGA(1) - USEA=XPGA(2) - DSEA=XPGA(1) - STR=XPGA(3) - CHM=XPGA(4) - BTM=XPGA(5) - TOP=XPGA(6) - GLU=XPGA(0) - ELSE - CALL PDFSET(PARM,VAL) - IF (X.LT.PDFXMN.AND.PDFWRX(IBEAM,1) .OR. - & X.GT.PDFXMX.AND.PDFWRX(IBEAM,2)) THEN - CALL HWWARN('HWSFUN',2,*999) - WRITE (6,'(2A)') ' WARNING: PDFLIB CALLED WITH X', - & ' OUTSIDE ALLOWED RANGE!' - WRITE (6,'(1P,3(A,E9.3))') ' X VALUE=',X, - & ', MINIMUM=',PDFXMN,', MAXIMUM=',PDFXMX - WRITE (6,'(A)') ' NO FURTHER WARNINGS WILL BE ISSUED' - IF (X.LT.PDFXMN) PDFWRX(IBEAM,1)=.FALSE. - IF (X.GT.PDFXMX) PDFWRX(IBEAM,2)=.FALSE. - ENDIF - IF (QSCA**2.LT.PDFQMN.AND.PDFWRQ(IBEAM,1) .OR. - & QSCA**2.GT.PDFQMX.AND.PDFWRQ(IBEAM,2)) THEN - CALL HWWARN('HWSFUN',3,*999) - WRITE (6,'(2A)') ' WARNING: PDFLIB CALLED WITH Q', - & ' OUTSIDE ALLOWED RANGE!' - WRITE (6,'(1P,3(A,E9.3))') ' Q VALUE=',QSCA, - & ', MINIMUM=',SQRT(PDFQMN),', MAXIMUM=',SQRT(PDFQMX) - WRITE (6,'(A)') ' NO FURTHER WARNINGS WILL BE ISSUED' - IF (QSCA**2.LT.PDFQMN) PDFWRQ(IBEAM,1)=.FALSE. - IF (QSCA**2.GT.PDFQMN) PDFWRQ(IBEAM,2)=.FALSE. - ENDIF - CALL STRUCTM(X,QSCA,UPV,DNV,USEA,DSEA,STR,CHM,BTM,TOP,GLU) - ENDIF - DIST(1)=DSEA - DIST(2)=USEA - DIST(7)=DSEA - DIST(8)=USEA - ELSE - XSP=X - IF ( XSP.LE.ZERO) CALL HWWARN('HWSFUN',102,*999) - IF (ONE-XSP.LE.ZERO) CALL HWWARN('HWSFUN',103,*999) - Q2=SCALEF**2 - W2=Q2*(1-X)/X - EMC2=4*RMASS(4)**2 - EMB2=4*RMASS(5)**2 - ALAM2=0.160 - NFL=3 - IF (Q2.GT.50.) NFL=4 - IF (Q2.GT.500.) NFL=5 - STR=HWSDGQ(XSP,Q2,NFL,1) - CHM=HWSDGQ(XSP,Q2,NFL,2) - GLU=HWSDGG(XSP,Q2,NFL) - DIST(1)=STR - DIST(2)=CHM - DIST(7)=STR - DIST(8)=CHM - IF (W2.GT.EMB2) THEN - BTM=STR - IF (W2*ALAM2.LT.Q2*EMB2) - & BTM=BTM*LOG(W2/EMB2)/LOG(Q2/ALAM2) - ELSE - BTM=0. - ENDIF - IF (W2.GT.EMC2) THEN - IF (W2*ALAM2.LT.Q2*EMC2) - & CHM=CHM*LOG(W2/EMC2)/LOG(Q2/ALAM2) - ELSE - CHM=0. - ENDIF - TOP=0. - ENDIF -C---INCLUDE SUPPRESSION FROM PHOTON VIRTUALITY IF NECESSARY - IF (PHOMAS.GT.ZERO.AND.(IBEAM.EQ.1.OR.IBEAM.EQ.2)) THEN - IHAD=IBEAM - IF (JDAHEP(1,IHAD).NE.0) IHAD=JDAHEP(1,IHAD) - IF (IDHW(IHAD).EQ.59) THEN - FAC=LOG((QSCA**2+PHOMAS**2)/(PHEP(5,IHAD)**2+PHOMAS**2))/ - $ LOG((QSCA**2+PHOMAS**2)/( PHOMAS**2)) - IF (FAC.LT.ZERO) FAC=ZERO - DIST(1)=DIST(1)*FAC - DIST(2)=DIST(2)*FAC - DIST(7)=DIST(7)*FAC - DIST(8)=DIST(8)*FAC - STR=STR*FAC - CHM=CHM*FAC - BTM=BTM*FAC - TOP=TOP*FAC - GLU=GLU*FAC**2 - ELSE - CALL HWWARN('HWSFUN',1,*999) - ENDIF - ENDIF - GOTO 900 - ENDIF - IF (MPDF.GE.0) THEN -C---USE PDFLIB NUCLEON STRUCTURE FUNCTIONS - PARM(1)=AUTPDF(IBEAM) - VAL(1)=FLOAT(MPDF) - CALL PDFSET(PARM,VAL) - IF (X.LT.PDFXMN.AND.PDFWRX(IBEAM,1) .OR. - & X.GT.PDFXMX.AND.PDFWRX(IBEAM,2)) THEN - CALL HWWARN('HWSFUN',4,*999) - WRITE (6,'(2A)') ' WARNING: PDFLIB CALLED WITH X', - & ' OUTSIDE ALLOWED RANGE!' - WRITE (6,'(1P,3(A,E9.3))') ' X VALUE=',X, - & ', MINIMUM=',PDFXMN,', MAXIMUM=',PDFXMX - WRITE (6,'(A)') ' NO FURTHER WARNINGS WILL BE ISSUED' - IF (X.LT.PDFXMN) PDFWRX(IBEAM,1)=.FALSE. - IF (X.GT.PDFXMX) PDFWRX(IBEAM,2)=.FALSE. - ENDIF - IF (QSCA**2.LT.PDFQMN.AND.PDFWRQ(IBEAM,1) .OR. - & QSCA**2.GT.PDFQMX.AND.PDFWRQ(IBEAM,2)) THEN - CALL HWWARN('HWSFUN',5,*999) - WRITE (6,'(2A)') ' WARNING: PDFLIB CALLED WITH Q', - & ' OUTSIDE ALLOWED RANGE!' - WRITE (6,'(1P,3(A,E9.3))') ' Q VALUE=',QSCA, - & ', MINIMUM=',SQRT(PDFQMN),', MAXIMUM=',SQRT(PDFQMX) - WRITE (6,'(A)') ' NO FURTHER WARNINGS WILL BE ISSUED' - IF (QSCA**2.LT.PDFQMN) PDFWRQ(IBEAM,1)=.FALSE. - IF (QSCA**2.GT.PDFQMN) PDFWRQ(IBEAM,2)=.FALSE. - ENDIF - CALL STRUCTM(X,QSCA,UPV,DNV,USEA,DSEA,STR,CHM,BTM,TOP,GLU) - ELSE - IF (QSCA.LT.Q0(NSET)) QSCA=Q0(NSET) - IF (QSCA.NE.QOLD.OR.IDHAD.NE.IOLD.OR.NSET.NE.NOLD) THEN -C---INITIALIZE - IF (NSET.LT.1.OR.NSET.GT.5) CALL HWWARN('HWSFUN',400,*999) - QOLD=QSCA - IOLD=IDHAD - NOLD=NSET - SS=LOG(QSCA/QL(NSET)) - SMIN=LOG(Q0(NSET)/QL(NSET)) - IF (NSET.LT.3.OR.NSET.EQ.5) THEN - S=LOG(SS/SMIN) - ELSE - T=2.*SS - TMIN=2.*SMIN - TMAX=2.*LOG(1.E4/QL(NSET)) - ENDIF - IF (IDHAD.GE.72) THEN - IF (NSET.LT.3) THEN - IP=NSET - DO 10 I=1,5 - DO 10 J=1,6 - 10 A(J,I)=B(1,J,I,IP)+S*(B(2,J,I,IP)+S*B(3,J,I,IP)) - DO 20 K=1,2 - AA=ONE+A(2,K)+A(3,K) - 20 G(K)=HWSGAM(AA)/((ONE+A(2,K)*A(4,K)/AA)*HWSGAM(A(2,K)) - & *HWSGAM(ONE+A(3,K))) - ELSEIF (NSET.EQ.5) THEN - DO 21 I=1,5 - DO 21 J=1,6 - 21 A(J,I)=BB(1,J,I)+S*(BB(2,J,I)+S*(BB(3,J,I)+S*BB(4,J,I))) - DO 22 K=1,2 - AA=ONE+A(2,K)+A(3,K) - 22 G(K)=HWSGAM(AA)/((ONE+A(2,K)/AA*(A(4,K)+ - & (ONE+A(2,K))/(ONE+AA)*A(5,K)))*HWSGAM(A(2,K)) - & *HWSGAM(ONE+A(3,K))) - ELSE - IP=NSET-2 - VT=MAX(-ONE,MIN(ONE,(2.*T-TMAX-TMIN)/(TMAX-TMIN))) - WT=VT*VT -C...CHEBYSHEV POLYNOMIALS FOR T EXPANSION - TT(1)=1. - TT(2)=VT - TT(3)= 2.*WT- 1. - TT(4)= (4.*WT- 3.)*VT - TT(5)= (8.*WT- 8.)*WT+1. - TT(6)=((16.*WT-20.)*WT+5.)*VT - ENDIF - ELSEIF (NSET.LT.3) THEN - IP=NSET+2 - DO 30 I=1,5 - DO 30 J=1,6 - 30 A(J,I)=B(1,J,I,IP)+S*(B(2,J,I,IP)+S*B(3,J,I,IP)) - AA=ONE+A(2,1)+A(3,1) - G(1)=HWSGAM(AA)/(HWSGAM(A(2,1))*HWSGAM(ONE+A(3,1))) - G(2)=0. - ENDIF - ENDIF -C - IF (NSET.LT.3.OR.NSET.EQ.5) THEN - DO 50 I=1,5 - 50 F(I)=A(1,I)*X**A(2,I)*XMWN**A(3,I)*(ONE+X* - & (A(4,I)+X*(A(5,I) + X*A(6,I)))) - F(1)=F(1)*G(1) - F(2)=F(2)*G(2) - UPV=F(1)-F(2) - DNV=F(2) - SEA=F(3)/6. - STR=SEA - CHM=F(4) - BTM=0. - TOP=0. - GLU=F(5) - ELSE - IF (X.NE.XOLD) THEN - XOLD=X - IF (X.GT.0.1) THEN - NX=1 - VX=(2.*X-1.1)/0.9 - ELSE - NX=2 - VX=MAX(-ONE,(2.*LOG(X)+11.51293)/6.90776) - ENDIF - WX=VX*VX - TX(1)=1. - TX(2)=VX - TX(3)= 2.*WX- 1. - TX(4)= (4.*WX- 3.)*VX - TX(5)= (8.*WX- 8.)*WX+1. - TX(6)=((16.*WX-20.)*WX+5.)*VX - ENDIF -C...CALCULATE STRUCTURE FUNCTIONS - DO 120 IFL=1,6 - XQSUM=0. - DO 110 IT=1,6 - DO 110 IX=1,6 - 110 XQSUM=XQSUM+CEHLQ(IX,IT,NX,IFL,IP)*TX(IX)*TT(IT) - 120 XQ(IFL)=XQSUM*XMWN**NEHLQ(IFL,IP) - UPV=XQ(1) - DNV=XQ(2) - STR=XQ(5) - CHM=XQ(6) - SEA=XQ(3) - GLU=XQ(4) -C...SPECIAL EXPANSION FOR BOTTOM (THRESHOLD EFFECTS) - IF (NFLAV.LT.5.OR.T.LE.TBMIN(IP)) THEN - BTM=0. - ELSE - VT=MAX(-ONE,MIN(ONE,(2.*T-TMAX-TBMIN(IP))/(TMAX-TBMIN(IP)))) - WT=VT*VT - TB(1)=1. - TB(2)=VT - TB(3)= 2.*WT- 1. - TB(4)= (4.*WT- 3.)*VT - TB(5)= (8.*WT- 8.)*WT+1. - TB(6)=((16.*WT-20.)*WT+5.)*VT - XQSUM=0. - DO 130 IT=1,6 - DO 130 IX=1,6 - 130 XQSUM=XQSUM+CEHLQ(IX,IT,NX,7,IP)*TX(IX)*TB(IT) - BTM=XQSUM*XMWN**NEHLQ(7,IP) - ENDIF -C...SPECIAL EXPANSION FOR TOP (THRESHOLD EFFECTS) - TPMIN=TTMIN(IP)+TMTOP -C---TMTOP=2.*LOG(TOPMAS/30.) - TPMAX=TMAX+TMTOP - IF (NFLAV.LT.6.OR.T.LE.TPMIN) THEN - TOP=0. - ELSE - VT=MAX(-ONE,MIN(ONE,(2.*T-TPMAX-TPMIN)/(TPMAX-TPMIN))) - WT=VT*VT - TB(1)=1. - TB(2)=VT - TB(3)= 2.*WT- 1. - TB(4)= (4.*WT- 3.)*VT - TB(5)= (8.*WT- 8.)*WT+1. - TB(6)=((16.*WT-20.)*WT+5.)*VT - XQSUM=0. - DO 150 IT=1,6 - DO 150 IX=1,6 - 150 XQSUM=XQSUM+CEHLQ(IX,IT,NX,8,IP)*TX(IX)*TB(IT) - TOP=XQSUM*XMWN**NEHLQ(8,IP) - ENDIF - ENDIF - ENDIF - IF (MPDF.LT.0) THEN - USEA=SEA - DSEA=USEA - ENDIF - IF (IDHAD.EQ.73.OR.IDHAD.EQ.72) THEN - DIST(1)=DSEA+DNV - DIST(2)=USEA+UPV - DIST(7)=DSEA - DIST(8)=USEA - ELSEIF (IDHAD.EQ.91) THEN - DIST(1)=DSEA - DIST(2)=USEA - DIST(7)=DSEA+DNV - DIST(8)=USEA+UPV - ELSEIF (IDHAD.EQ.75) THEN - DIST(1)=USEA+UPV - DIST(2)=DSEA+DNV - DIST(7)=USEA - DIST(8)=DSEA - ELSEIF (IDHAD.EQ.93) THEN - DIST(1)=USEA - DIST(2)=DSEA - DIST(7)=USEA+UPV - DIST(8)=DSEA+DNV - ELSEIF (IDHAD.EQ.38) THEN - DIST(1)=USEA - DIST(2)=USEA+UPV - DIST(7)=USEA+UPV - DIST(8)=USEA - ELSEIF (IDHAD.EQ.30) THEN - DIST(1)=USEA+UPV - DIST(2)=USEA - DIST(7)=USEA - DIST(8)=USEA+UPV - ELSE - PRINT *,' CALLED HWSFUN FOR IDHAD =',IDHAD - CALL HWWARN('HWSFUN',400,*999) - ENDIF - 900 DIST(3)=STR - DIST(4)=CHM - DIST(5)=BTM - DIST(6)=TOP - DIST(9)=STR - DIST(10)=CHM - DIST(11)=BTM - DIST(12)=TOP - DIST(13)=GLU - DO 901 I=1,13 - IF (DIST(I).LT.DMIN) DIST(I)=DMIN - 901 CONTINUE -C---FOR REMNANT NUCLEONS SWITCH OFF VALENCE QUARKS, -C WHILE MAINTAINING MOMENTUM SUM RULE - IF (IDHAD.EQ.72) THEN - TOTAL=0 - DO 910 I=1,13 - TOTAL=TOTAL+DIST(I) - 910 CONTINUE - DIST(1)=DIST(1)-DNV - DIST(2)=DIST(2)-UPV - IF (TOTAL.GT.DNV+UPV) THEN - DO 920 I=1,13 - DIST(I)=DIST(I)*TOTAL/(TOTAL-DNV-UPV) - 920 CONTINUE - ENDIF - ENDIF - 999 END diff --git a/GeneratorInterface/PomwigInterface/src/i_2006_fita.f b/GeneratorInterface/PomwigInterface/src/i_2006_fita.f deleted file mode 100644 index 6e9700b1e7b38..0000000000000 --- a/GeneratorInterface/PomwigInterface/src/i_2006_fita.f +++ /dev/null @@ -1,6242 +0,0 @@ - SUBROUTINE i_2006_fita - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - PARAMETER (NQ2MAX= 30,NZMAX= 100) - DIMENSION U_GRD(NZMAX,NQ2MAX), - & G_GRD(NZMAX,NQ2MAX), - & F2GRD(NZMAX,NQ2MAX), - & FLGRD(NZMAX,NQ2MAX), - & C2GRD(NZMAX,NQ2MAX), - & CLGRD(NZMAX,NQ2MAX), - & F2GRR(NZMAX,NQ2MAX), - & FLGRR(NZMAX,NQ2MAX), - & C2GRR(NZMAX,NQ2MAX), - & CLGRR(NZMAX,NQ2MAX) - DIMENSION U_GRDL(NZMAX,NQ2MAX), - & G_GRDL(NZMAX,NQ2MAX), - & F2GRDL(NZMAX,NQ2MAX), - & FLGRDL(NZMAX,NQ2MAX), - & C2GRDL(NZMAX,NQ2MAX), - & CLGRDL(NZMAX,NQ2MAX), - & F2GRRL(NZMAX,NQ2MAX), - & FLGRRL(NZMAX,NQ2MAX), - & C2GRRL(NZMAX,NQ2MAX), - & CLGRRL(NZMAX,NQ2MAX) - COMMON /CPARAM/ U_GRD,G_GRD, - & F2GRD,FLGRD,C2GRD,CLGRD, - & F2GRR,FLGRR,C2GRR,CLGRR - data ((u_grdl(i,j),j=1,30),i= 1, 10)/ - &-0.90699E-02,-0.33085E-02, 0.25418E-02, 0.92831E-02, 0.16907E-01, - & 0.25283E-01, 0.34281E-01, 0.43857E-01, 0.53764E-01, 0.64047E-01, - & 0.74653E-01, 0.85519E-01, 0.96598E-01, 0.10786E+00, 0.11926E+00, - & 0.13078E+00, 0.14240E+00, 0.15410E+00, 0.16585E+00, 0.17765E+00, - & 0.18948E+00, 0.20132E+00, 0.21318E+00, 0.22503E+00, 0.23688E+00, - & 0.24874E+00, 0.26059E+00, 0.27244E+00, 0.28430E+00, 0.29615E+00, - &-0.90001E-02,-0.32830E-02, 0.25204E-02, 0.91891E-02, 0.16712E-01, - & 0.24960E-01, 0.33805E-01, 0.43203E-01, 0.52916E-01, 0.62985E-01, - & 0.73360E-01, 0.83978E-01, 0.94795E-01, 0.10578E+00, 0.11690E+00, - & 0.12812E+00, 0.13943E+00, 0.15081E+00, 0.16223E+00, 0.17370E+00, - & 0.18519E+00, 0.19668E+00, 0.20819E+00, 0.21969E+00, 0.23119E+00, - & 0.24269E+00, 0.25419E+00, 0.26569E+00, 0.27719E+00, 0.28869E+00, - &-0.89302E-02,-0.32575E-02, 0.24991E-02, 0.90955E-02, 0.16518E-01, - & 0.24639E-01, 0.33333E-01, 0.42556E-01, 0.52078E-01, 0.61937E-01, - & 0.72084E-01, 0.82459E-01, 0.93020E-01, 0.10373E+00, 0.11457E+00, - & 0.12550E+00, 0.13651E+00, 0.14758E+00, 0.15868E+00, 0.16982E+00, - & 0.18098E+00, 0.19213E+00, 0.20329E+00, 0.21445E+00, 0.22561E+00, - & 0.23677E+00, 0.24793E+00, 0.25909E+00, 0.27025E+00, 0.28140E+00, - &-0.88602E-02,-0.32320E-02, 0.24778E-02, 0.90023E-02, 0.16325E-01, - & 0.24321E-01, 0.32866E-01, 0.41915E-01, 0.51248E-01, 0.60901E-01, - & 0.70825E-01, 0.80961E-01, 0.91269E-01, 0.10172E+00, 0.11228E+00, - & 0.12292E+00, 0.13364E+00, 0.14440E+00, 0.15520E+00, 0.16602E+00, - & 0.17684E+00, 0.18767E+00, 0.19850E+00, 0.20932E+00, 0.22015E+00, - & 0.23097E+00, 0.24180E+00, 0.25262E+00, 0.26345E+00, 0.27427E+00, - &-0.87902E-02,-0.32064E-02, 0.24565E-02, 0.89093E-02, 0.16133E-01, - & 0.24005E-01, 0.32402E-01, 0.41281E-01, 0.50429E-01, 0.59878E-01, - & 0.69582E-01, 0.79485E-01, 0.89545E-01, 0.99735E-01, 0.11003E+00, - & 0.12039E+00, 0.13081E+00, 0.14128E+00, 0.15177E+00, 0.16228E+00, - & 0.17279E+00, 0.18330E+00, 0.19379E+00, 0.20429E+00, 0.21479E+00, - & 0.22528E+00, 0.23578E+00, 0.24628E+00, 0.25678E+00, 0.26727E+00, - &-0.87200E-02,-0.31808E-02, 0.24353E-02, 0.88167E-02, 0.15943E-01, - & 0.23691E-01, 0.31943E-01, 0.40653E-01, 0.49618E-01, 0.58868E-01, - & 0.68356E-01, 0.78028E-01, 0.87846E-01, 0.97782E-01, 0.10781E+00, - & 0.11790E+00, 0.12804E+00, 0.13822E+00, 0.14841E+00, 0.15862E+00, - & 0.16881E+00, 0.17900E+00, 0.18918E+00, 0.19936E+00, 0.20954E+00, - & 0.21972E+00, 0.22990E+00, 0.24008E+00, 0.25026E+00, 0.26044E+00, - &-0.86497E-02,-0.31552E-02, 0.24140E-02, 0.87244E-02, 0.15753E-01, - & 0.23380E-01, 0.31489E-01, 0.40032E-01, 0.48817E-01, 0.57871E-01, - & 0.67146E-01, 0.76592E-01, 0.86172E-01, 0.95859E-01, 0.10563E+00, - & 0.11545E+00, 0.12531E+00, 0.13521E+00, 0.14511E+00, 0.15502E+00, - & 0.16491E+00, 0.17479E+00, 0.18466E+00, 0.19453E+00, 0.20440E+00, - & 0.21427E+00, 0.22414E+00, 0.23401E+00, 0.24388E+00, 0.25374E+00, - &-0.85794E-02,-0.31295E-02, 0.23927E-02, 0.86325E-02, 0.15565E-01, - & 0.23072E-01, 0.31038E-01, 0.39417E-01, 0.48026E-01, 0.56885E-01, - & 0.65952E-01, 0.75177E-01, 0.84523E-01, 0.93965E-01, 0.10348E+00, - & 0.11304E+00, 0.12263E+00, 0.13225E+00, 0.14187E+00, 0.15149E+00, - & 0.16109E+00, 0.17067E+00, 0.18024E+00, 0.18980E+00, 0.19937E+00, - & 0.20894E+00, 0.21851E+00, 0.22807E+00, 0.23764E+00, 0.24721E+00, - &-0.85090E-02,-0.31038E-02, 0.23714E-02, 0.85409E-02, 0.15378E-01, - & 0.22765E-01, 0.30591E-01, 0.38809E-01, 0.47243E-01, 0.55912E-01, - & 0.64774E-01, 0.73781E-01, 0.82899E-01, 0.92101E-01, 0.10137E+00, - & 0.11067E+00, 0.12000E+00, 0.12934E+00, 0.13869E+00, 0.14802E+00, - & 0.15733E+00, 0.16662E+00, 0.17590E+00, 0.18517E+00, 0.19444E+00, - & 0.20371E+00, 0.21299E+00, 0.22226E+00, 0.23153E+00, 0.24081E+00, - &-0.84385E-02,-0.30781E-02, 0.23502E-02, 0.84496E-02, 0.15192E-01, - & 0.22461E-01, 0.30149E-01, 0.38208E-01, 0.46469E-01, 0.54951E-01, - & 0.63612E-01, 0.72405E-01, 0.81298E-01, 0.90266E-01, 0.99288E-01, - & 0.10834E+00, 0.11741E+00, 0.12649E+00, 0.13556E+00, 0.14462E+00, - & 0.15365E+00, 0.16266E+00, 0.17164E+00, 0.18063E+00, 0.18961E+00, - & 0.19860E+00, 0.20759E+00, 0.21657E+00, 0.22556E+00, 0.23454E+00/ - - data ((u_grdl(i,j),j=1,30),i= 11, 20)/ - &-0.83679E-02,-0.30523E-02, 0.23289E-02, 0.83586E-02, 0.15007E-01, - & 0.22160E-01, 0.29711E-01, 0.37612E-01, 0.45704E-01, 0.54002E-01, - & 0.62465E-01, 0.71049E-01, 0.79722E-01, 0.88460E-01, 0.97243E-01, - & 0.10605E+00, 0.11487E+00, 0.12369E+00, 0.13250E+00, 0.14129E+00, - & 0.15004E+00, 0.15877E+00, 0.16747E+00, 0.17618E+00, 0.18489E+00, - & 0.19359E+00, 0.20230E+00, 0.21101E+00, 0.21971E+00, 0.22842E+00, - &-0.82972E-02,-0.30265E-02, 0.23077E-02, 0.82680E-02, 0.14823E-01, - & 0.21860E-01, 0.29276E-01, 0.37023E-01, 0.44949E-01, 0.53066E-01, - & 0.61334E-01, 0.69712E-01, 0.78169E-01, 0.86682E-01, 0.95232E-01, - & 0.10380E+00, 0.11237E+00, 0.12094E+00, 0.12949E+00, 0.13801E+00, - & 0.14650E+00, 0.15496E+00, 0.16339E+00, 0.17182E+00, 0.18026E+00, - & 0.18869E+00, 0.19712E+00, 0.20556E+00, 0.21399E+00, 0.22242E+00, - &-0.82264E-02,-0.30007E-02, 0.22865E-02, 0.81777E-02, 0.14640E-01, - & 0.21563E-01, 0.28846E-01, 0.36441E-01, 0.44202E-01, 0.52141E-01, - & 0.60218E-01, 0.68394E-01, 0.76640E-01, 0.84932E-01, 0.93254E-01, - & 0.10159E+00, 0.10992E+00, 0.11824E+00, 0.12654E+00, 0.13480E+00, - & 0.14303E+00, 0.15122E+00, 0.15939E+00, 0.16756E+00, 0.17572E+00, - & 0.18389E+00, 0.19206E+00, 0.20023E+00, 0.20840E+00, 0.21656E+00, - &-0.81556E-02,-0.29749E-02, 0.22653E-02, 0.80878E-02, 0.14458E-01, - & 0.21269E-01, 0.28420E-01, 0.35864E-01, 0.43464E-01, 0.51227E-01, - & 0.59117E-01, 0.67095E-01, 0.75133E-01, 0.83210E-01, 0.91308E-01, - & 0.99410E-01, 0.10751E+00, 0.11558E+00, 0.12364E+00, 0.13165E+00, - & 0.13962E+00, 0.14756E+00, 0.15547E+00, 0.16338E+00, 0.17129E+00, - & 0.17919E+00, 0.18710E+00, 0.19501E+00, 0.20292E+00, 0.21083E+00, - &-0.80847E-02,-0.29490E-02, 0.22441E-02, 0.79982E-02, 0.14278E-01, - & 0.20976E-01, 0.27997E-01, 0.35294E-01, 0.42734E-01, 0.50326E-01, - & 0.58032E-01, 0.65815E-01, 0.73650E-01, 0.81515E-01, 0.89394E-01, - & 0.97271E-01, 0.10514E+00, 0.11298E+00, 0.12079E+00, 0.12856E+00, - & 0.13629E+00, 0.14397E+00, 0.15163E+00, 0.15928E+00, 0.16694E+00, - & 0.17460E+00, 0.18225E+00, 0.18991E+00, 0.19757E+00, 0.20522E+00, - &-0.80137E-02,-0.29230E-02, 0.22229E-02, 0.79089E-02, 0.14098E-01, - & 0.20686E-01, 0.27579E-01, 0.34729E-01, 0.42013E-01, 0.49436E-01, - & 0.56961E-01, 0.64553E-01, 0.72189E-01, 0.79847E-01, 0.87512E-01, - & 0.95169E-01, 0.10281E+00, 0.11042E+00, 0.11800E+00, 0.12553E+00, - & 0.13301E+00, 0.14045E+00, 0.14787E+00, 0.15528E+00, 0.16269E+00, - & 0.17010E+00, 0.17751E+00, 0.18492E+00, 0.19233E+00, 0.19974E+00, - &-0.79426E-02,-0.28971E-02, 0.22017E-02, 0.78200E-02, 0.13920E-01, - & 0.20399E-01, 0.27165E-01, 0.34171E-01, 0.41301E-01, 0.48557E-01, - & 0.55905E-01, 0.63310E-01, 0.70750E-01, 0.78205E-01, 0.85661E-01, - & 0.93103E-01, 0.10052E+00, 0.10791E+00, 0.11526E+00, 0.12256E+00, - & 0.12981E+00, 0.13701E+00, 0.14418E+00, 0.15135E+00, 0.15852E+00, - & 0.16569E+00, 0.17287E+00, 0.18004E+00, 0.18721E+00, 0.19438E+00, - &-0.78715E-02,-0.28711E-02, 0.21806E-02, 0.77315E-02, 0.13742E-01, - & 0.20113E-01, 0.26755E-01, 0.33619E-01, 0.40598E-01, 0.47690E-01, - & 0.54863E-01, 0.62085E-01, 0.69334E-01, 0.76590E-01, 0.83840E-01, - & 0.91073E-01, 0.98278E-01, 0.10545E+00, 0.11257E+00, 0.11965E+00, - & 0.12666E+00, 0.13363E+00, 0.14057E+00, 0.14751E+00, 0.15445E+00, - & 0.16139E+00, 0.16832E+00, 0.17526E+00, 0.18220E+00, 0.18914E+00, - &-0.78002E-02,-0.28451E-02, 0.21595E-02, 0.76433E-02, 0.13566E-01, - & 0.19830E-01, 0.26348E-01, 0.33073E-01, 0.39902E-01, 0.46834E-01, - & 0.53836E-01, 0.60878E-01, 0.67939E-01, 0.75001E-01, 0.82051E-01, - & 0.89078E-01, 0.96073E-01, 0.10303E+00, 0.10993E+00, 0.11679E+00, - & 0.12358E+00, 0.13033E+00, 0.13704E+00, 0.14375E+00, 0.15046E+00, - & 0.15717E+00, 0.16388E+00, 0.17059E+00, 0.17730E+00, 0.18402E+00, - &-0.77290E-02,-0.28191E-02, 0.21384E-02, 0.75555E-02, 0.13391E-01, - & 0.19550E-01, 0.25946E-01, 0.32533E-01, 0.39216E-01, 0.45989E-01, - & 0.52823E-01, 0.59689E-01, 0.66566E-01, 0.73438E-01, 0.80292E-01, - & 0.87118E-01, 0.93907E-01, 0.10065E+00, 0.10735E+00, 0.11399E+00, - & 0.12056E+00, 0.12709E+00, 0.13358E+00, 0.14007E+00, 0.14656E+00, - & 0.15305E+00, 0.15954E+00, 0.16603E+00, 0.17252E+00, 0.17901E+00/ - - data ((u_grdl(i,j),j=1,30),i= 21, 30)/ - &-0.76577E-02,-0.27930E-02, 0.21173E-02, 0.74680E-02, 0.13217E-01, - & 0.19271E-01, 0.25547E-01, 0.32000E-01, 0.38537E-01, 0.45156E-01, - & 0.51825E-01, 0.58517E-01, 0.65214E-01, 0.71899E-01, 0.78562E-01, - & 0.85192E-01, 0.91781E-01, 0.98321E-01, 0.10481E+00, 0.11124E+00, - & 0.11760E+00, 0.12391E+00, 0.13019E+00, 0.13646E+00, 0.14274E+00, - & 0.14901E+00, 0.15529E+00, 0.16156E+00, 0.16784E+00, 0.17411E+00, - &-0.75863E-02,-0.27669E-02, 0.20963E-02, 0.73810E-02, 0.13045E-01, - & 0.18995E-01, 0.25153E-01, 0.31472E-01, 0.37867E-01, 0.44333E-01, - & 0.50840E-01, 0.57363E-01, 0.63884E-01, 0.70387E-01, 0.76861E-01, - & 0.83300E-01, 0.89693E-01, 0.96034E-01, 0.10232E+00, 0.10855E+00, - & 0.11470E+00, 0.12080E+00, 0.12687E+00, 0.13293E+00, 0.13900E+00, - & 0.14507E+00, 0.15113E+00, 0.15720E+00, 0.16326E+00, 0.16933E+00, - &-0.75149E-02,-0.27408E-02, 0.20754E-02, 0.72943E-02, 0.12873E-01, - & 0.18722E-01, 0.24762E-01, 0.30950E-01, 0.37205E-01, 0.43521E-01, - & 0.49870E-01, 0.56226E-01, 0.62574E-01, 0.68898E-01, 0.75190E-01, - & 0.81441E-01, 0.87643E-01, 0.93790E-01, 0.99879E-01, 0.10591E+00, - & 0.11186E+00, 0.11776E+00, 0.12362E+00, 0.12948E+00, 0.13534E+00, - & 0.14121E+00, 0.14707E+00, 0.15293E+00, 0.15879E+00, 0.16466E+00, - &-0.74434E-02,-0.27146E-02, 0.20544E-02, 0.72081E-02, 0.12703E-01, - & 0.18450E-01, 0.24376E-01, 0.30434E-01, 0.36552E-01, 0.42721E-01, - & 0.48913E-01, 0.55107E-01, 0.61285E-01, 0.67435E-01, 0.73547E-01, - & 0.79615E-01, 0.85631E-01, 0.91588E-01, 0.97485E-01, 0.10332E+00, - & 0.10907E+00, 0.11477E+00, 0.12044E+00, 0.12610E+00, 0.13177E+00, - & 0.13743E+00, 0.14310E+00, 0.14876E+00, 0.15442E+00, 0.16009E+00, - &-0.73720E-02,-0.26885E-02, 0.20335E-02, 0.71223E-02, 0.12533E-01, - & 0.18181E-01, 0.23993E-01, 0.29924E-01, 0.35906E-01, 0.41931E-01, - & 0.47970E-01, 0.54004E-01, 0.60017E-01, 0.65996E-01, 0.71933E-01, - & 0.77822E-01, 0.83655E-01, 0.89428E-01, 0.95138E-01, 0.10078E+00, - & 0.10634E+00, 0.11185E+00, 0.11733E+00, 0.12280E+00, 0.12827E+00, - & 0.13374E+00, 0.13921E+00, 0.14468E+00, 0.15016E+00, 0.15563E+00, - &-0.73005E-02,-0.26623E-02, 0.20127E-02, 0.70369E-02, 0.12365E-01, - & 0.17915E-01, 0.23614E-01, 0.29420E-01, 0.35269E-01, 0.41151E-01, - & 0.47041E-01, 0.52918E-01, 0.58769E-01, 0.64581E-01, 0.70346E-01, - & 0.76061E-01, 0.81717E-01, 0.87309E-01, 0.92836E-01, 0.98294E-01, - & 0.10367E+00, 0.10900E+00, 0.11428E+00, 0.11956E+00, 0.12485E+00, - & 0.13013E+00, 0.13542E+00, 0.14070E+00, 0.14599E+00, 0.15127E+00, - &-0.72290E-02,-0.26361E-02, 0.19920E-02, 0.69519E-02, 0.12199E-01, - & 0.17651E-01, 0.23239E-01, 0.28921E-01, 0.34640E-01, 0.40383E-01, - & 0.46125E-01, 0.51849E-01, 0.57541E-01, 0.63189E-01, 0.68787E-01, - & 0.74332E-01, 0.79814E-01, 0.85230E-01, 0.90579E-01, 0.95858E-01, - & 0.10105E+00, 0.10620E+00, 0.11130E+00, 0.11640E+00, 0.12150E+00, - & 0.12660E+00, 0.13171E+00, 0.13681E+00, 0.14191E+00, 0.14701E+00, - &-0.71575E-02,-0.26098E-02, 0.19713E-02, 0.68675E-02, 0.12033E-01, - & 0.17389E-01, 0.22869E-01, 0.28429E-01, 0.34019E-01, 0.39625E-01, - & 0.45224E-01, 0.50797E-01, 0.56333E-01, 0.61822E-01, 0.67256E-01, - & 0.72634E-01, 0.77947E-01, 0.83192E-01, 0.88368E-01, 0.93472E-01, - & 0.98492E-01, 0.10346E+00, 0.10838E+00, 0.11331E+00, 0.11823E+00, - & 0.12316E+00, 0.12808E+00, 0.13300E+00, 0.13793E+00, 0.14285E+00, - &-0.70861E-02,-0.25836E-02, 0.19507E-02, 0.67835E-02, 0.11869E-01, - & 0.17130E-01, 0.22502E-01, 0.27943E-01, 0.33407E-01, 0.38878E-01, - & 0.44335E-01, 0.49761E-01, 0.55145E-01, 0.60477E-01, 0.65752E-01, - & 0.70967E-01, 0.76115E-01, 0.81192E-01, 0.86200E-01, 0.91134E-01, - & 0.95983E-01, 0.10078E+00, 0.10553E+00, 0.11028E+00, 0.11503E+00, - & 0.11978E+00, 0.12454E+00, 0.12929E+00, 0.13404E+00, 0.13879E+00, - &-0.70147E-02,-0.25573E-02, 0.19302E-02, 0.67001E-02, 0.11706E-01, - & 0.16873E-01, 0.22139E-01, 0.27463E-01, 0.32802E-01, 0.38142E-01, - & 0.43459E-01, 0.48742E-01, 0.53977E-01, 0.59156E-01, 0.64275E-01, - & 0.69331E-01, 0.74318E-01, 0.79232E-01, 0.84075E-01, 0.88844E-01, - & 0.93526E-01, 0.98152E-01, 0.10274E+00, 0.10732E+00, 0.11191E+00, - & 0.11649E+00, 0.12107E+00, 0.12566E+00, 0.13024E+00, 0.13483E+00/ - - data ((u_grdl(i,j),j=1,30),i= 31, 40)/ - &-0.69433E-02,-0.25310E-02, 0.19099E-02, 0.66172E-02, 0.11545E-01, - & 0.16619E-01, 0.21780E-01, 0.26988E-01, 0.32206E-01, 0.37416E-01, - & 0.42597E-01, 0.47738E-01, 0.52828E-01, 0.57858E-01, 0.62824E-01, - & 0.67725E-01, 0.72555E-01, 0.77311E-01, 0.81994E-01, 0.86601E-01, - & 0.91121E-01, 0.95584E-01, 0.10001E+00, 0.10443E+00, 0.10885E+00, - & 0.11327E+00, 0.11769E+00, 0.12211E+00, 0.12654E+00, 0.13096E+00, - &-0.68720E-02,-0.25047E-02, 0.18896E-02, 0.65348E-02, 0.11384E-01, - & 0.16367E-01, 0.21426E-01, 0.26520E-01, 0.31617E-01, 0.36700E-01, - & 0.41749E-01, 0.46751E-01, 0.51698E-01, 0.56582E-01, 0.61399E-01, - & 0.66149E-01, 0.70826E-01, 0.75427E-01, 0.79954E-01, 0.84404E-01, - & 0.88767E-01, 0.93072E-01, 0.97336E-01, 0.10160E+00, 0.10586E+00, - & 0.11013E+00, 0.11439E+00, 0.11865E+00, 0.12292E+00, 0.12718E+00, - &-0.68007E-02,-0.24784E-02, 0.18696E-02, 0.64531E-02, 0.11226E-01, - & 0.16118E-01, 0.21075E-01, 0.26058E-01, 0.31037E-01, 0.35995E-01, - & 0.40913E-01, 0.45780E-01, 0.50588E-01, 0.55329E-01, 0.60001E-01, - & 0.64604E-01, 0.69131E-01, 0.73581E-01, 0.77956E-01, 0.82254E-01, - & 0.86463E-01, 0.90615E-01, 0.94724E-01, 0.98834E-01, 0.10294E+00, - & 0.10705E+00, 0.11116E+00, 0.11527E+00, 0.11938E+00, 0.12349E+00, - &-0.67296E-02,-0.24520E-02, 0.18497E-02, 0.63720E-02, 0.11068E-01, - & 0.15872E-01, 0.20729E-01, 0.25601E-01, 0.30465E-01, 0.35301E-01, - & 0.40090E-01, 0.44825E-01, 0.49496E-01, 0.54098E-01, 0.58628E-01, - & 0.63087E-01, 0.67469E-01, 0.71772E-01, 0.76000E-01, 0.80149E-01, - & 0.84209E-01, 0.88211E-01, 0.92172E-01, 0.96132E-01, 0.10009E+00, - & 0.10405E+00, 0.10801E+00, 0.11197E+00, 0.11594E+00, 0.11990E+00, - &-0.66585E-02,-0.24256E-02, 0.18300E-02, 0.62916E-02, 0.10913E-01, - & 0.15628E-01, 0.20387E-01, 0.25151E-01, 0.29901E-01, 0.34617E-01, - & 0.39281E-01, 0.43886E-01, 0.48424E-01, 0.52890E-01, 0.57281E-01, - & 0.61600E-01, 0.65840E-01, 0.70000E-01, 0.74084E-01, 0.78088E-01, - & 0.82004E-01, 0.85861E-01, 0.89677E-01, 0.93492E-01, 0.97308E-01, - & 0.10112E+00, 0.10494E+00, 0.10875E+00, 0.11257E+00, 0.11639E+00, - &-0.65876E-02,-0.23991E-02, 0.18105E-02, 0.62119E-02, 0.10758E-01, - & 0.15387E-01, 0.20049E-01, 0.24707E-01, 0.29345E-01, 0.33943E-01, - & 0.38485E-01, 0.42962E-01, 0.47370E-01, 0.51703E-01, 0.55959E-01, - & 0.60141E-01, 0.64243E-01, 0.68264E-01, 0.72208E-01, 0.76072E-01, - & 0.79846E-01, 0.83563E-01, 0.87238E-01, 0.90913E-01, 0.94588E-01, - & 0.98262E-01, 0.10194E+00, 0.10561E+00, 0.10929E+00, 0.11296E+00, - &-0.65167E-02,-0.23727E-02, 0.17913E-02, 0.61330E-02, 0.10606E-01, - & 0.15149E-01, 0.19716E-01, 0.24269E-01, 0.28798E-01, 0.33280E-01, - & 0.37701E-01, 0.42055E-01, 0.46336E-01, 0.50539E-01, 0.54663E-01, - & 0.58711E-01, 0.62678E-01, 0.66564E-01, 0.70371E-01, 0.74099E-01, - & 0.77737E-01, 0.81317E-01, 0.84855E-01, 0.88394E-01, 0.91932E-01, - & 0.95470E-01, 0.99008E-01, 0.10255E+00, 0.10608E+00, 0.10962E+00, - &-0.64461E-02,-0.23461E-02, 0.17724E-02, 0.60549E-02, 0.10455E-01, - & 0.14914E-01, 0.19387E-01, 0.23837E-01, 0.28258E-01, 0.32628E-01, - & 0.36931E-01, 0.41163E-01, 0.45319E-01, 0.49396E-01, 0.53391E-01, - & 0.57309E-01, 0.61146E-01, 0.64899E-01, 0.68574E-01, 0.72169E-01, - & 0.75674E-01, 0.79122E-01, 0.82528E-01, 0.85934E-01, 0.89340E-01, - & 0.92745E-01, 0.96151E-01, 0.99557E-01, 0.10296E+00, 0.10637E+00, - &-0.63756E-02,-0.23195E-02, 0.17538E-02, 0.59778E-02, 0.10306E-01, - & 0.14682E-01, 0.19062E-01, 0.23412E-01, 0.27728E-01, 0.31986E-01, - & 0.36174E-01, 0.40287E-01, 0.44322E-01, 0.48274E-01, 0.52144E-01, - & 0.55936E-01, 0.59644E-01, 0.63270E-01, 0.66816E-01, 0.70282E-01, - & 0.73658E-01, 0.76977E-01, 0.80255E-01, 0.83532E-01, 0.86809E-01, - & 0.90086E-01, 0.93363E-01, 0.96640E-01, 0.99917E-01, 0.10319E+00, - &-0.63053E-02,-0.22928E-02, 0.17356E-02, 0.59016E-02, 0.10159E-01, - & 0.14453E-01, 0.18742E-01, 0.22993E-01, 0.27205E-01, 0.31355E-01, - & 0.35430E-01, 0.39427E-01, 0.43343E-01, 0.47175E-01, 0.50922E-01, - & 0.54591E-01, 0.58175E-01, 0.61675E-01, 0.65096E-01, 0.68437E-01, - & 0.71688E-01, 0.74882E-01, 0.78035E-01, 0.81187E-01, 0.84339E-01, - & 0.87492E-01, 0.90644E-01, 0.93796E-01, 0.96949E-01, 0.10010E+00/ - - data ((u_grdl(i,j),j=1,30),i= 41, 50)/ - &-0.62352E-02,-0.22659E-02, 0.17179E-02, 0.58265E-02, 0.10014E-01, - & 0.14227E-01, 0.18427E-01, 0.22581E-01, 0.26691E-01, 0.30735E-01, - & 0.34700E-01, 0.38583E-01, 0.42383E-01, 0.46097E-01, 0.49725E-01, - & 0.53273E-01, 0.56736E-01, 0.60115E-01, 0.63415E-01, 0.66634E-01, - & 0.69763E-01, 0.72836E-01, 0.75868E-01, 0.78899E-01, 0.81931E-01, - & 0.84962E-01, 0.87993E-01, 0.91025E-01, 0.94056E-01, 0.97088E-01, - &-0.61652E-02,-0.22389E-02, 0.17007E-02, 0.57526E-02, 0.98708E-02, - & 0.14005E-01, 0.18117E-01, 0.22175E-01, 0.26186E-01, 0.30125E-01, - & 0.33982E-01, 0.37755E-01, 0.41441E-01, 0.45040E-01, 0.48552E-01, - & 0.51983E-01, 0.55328E-01, 0.58589E-01, 0.61770E-01, 0.64871E-01, - & 0.67883E-01, 0.70839E-01, 0.73753E-01, 0.76667E-01, 0.79581E-01, - & 0.82495E-01, 0.85409E-01, 0.88323E-01, 0.91238E-01, 0.94152E-01, - &-0.60955E-02,-0.22118E-02, 0.16841E-02, 0.56799E-02, 0.97301E-02, - & 0.13786E-01, 0.17812E-01, 0.21777E-01, 0.25690E-01, 0.29527E-01, - & 0.33278E-01, 0.36942E-01, 0.40518E-01, 0.44005E-01, 0.47404E-01, - & 0.50721E-01, 0.53951E-01, 0.57098E-01, 0.60164E-01, 0.63150E-01, - & 0.66048E-01, 0.68889E-01, 0.71690E-01, 0.74490E-01, 0.77290E-01, - & 0.80091E-01, 0.82891E-01, 0.85692E-01, 0.88492E-01, 0.91292E-01, - &-0.60259E-02,-0.21844E-02, 0.16681E-02, 0.56086E-02, 0.95917E-02, - & 0.13570E-01, 0.17512E-01, 0.21385E-01, 0.25203E-01, 0.28940E-01, - & 0.32588E-01, 0.36146E-01, 0.39614E-01, 0.42992E-01, 0.46280E-01, - & 0.49486E-01, 0.52605E-01, 0.55639E-01, 0.58594E-01, 0.61469E-01, - & 0.64256E-01, 0.66987E-01, 0.69677E-01, 0.72367E-01, 0.75057E-01, - & 0.77747E-01, 0.80438E-01, 0.83128E-01, 0.85818E-01, 0.88508E-01, - &-0.59566E-02,-0.21567E-02, 0.16529E-02, 0.55388E-02, 0.94559E-02, - & 0.13359E-01, 0.17217E-01, 0.21001E-01, 0.24724E-01, 0.28364E-01, - & 0.31911E-01, 0.35366E-01, 0.38729E-01, 0.42000E-01, 0.45181E-01, - & 0.48278E-01, 0.51289E-01, 0.54215E-01, 0.57062E-01, 0.59828E-01, - & 0.62508E-01, 0.65132E-01, 0.67715E-01, 0.70299E-01, 0.72882E-01, - & 0.75466E-01, 0.78050E-01, 0.80633E-01, 0.83217E-01, 0.85801E-01, - &-0.58874E-02,-0.21287E-02, 0.16386E-02, 0.54707E-02, 0.93228E-02, - & 0.13152E-01, 0.16928E-01, 0.20623E-01, 0.24256E-01, 0.27800E-01, - & 0.31248E-01, 0.34601E-01, 0.37862E-01, 0.41029E-01, 0.44105E-01, - & 0.47098E-01, 0.50003E-01, 0.52824E-01, 0.55565E-01, 0.58227E-01, - & 0.60802E-01, 0.63323E-01, 0.65803E-01, 0.68283E-01, 0.70763E-01, - & 0.73243E-01, 0.75723E-01, 0.78204E-01, 0.80684E-01, 0.83164E-01, - &-0.58183E-02,-0.21002E-02, 0.16253E-02, 0.54044E-02, 0.91926E-02, - & 0.12949E-01, 0.16645E-01, 0.20254E-01, 0.23796E-01, 0.27247E-01, - & 0.30598E-01, 0.33854E-01, 0.37014E-01, 0.40080E-01, 0.43055E-01, - & 0.45945E-01, 0.48748E-01, 0.51467E-01, 0.54106E-01, 0.56666E-01, - & 0.59140E-01, 0.61560E-01, 0.63940E-01, 0.66321E-01, 0.68701E-01, - & 0.71081E-01, 0.73461E-01, 0.75841E-01, 0.78222E-01, 0.80602E-01, - &-0.57493E-02,-0.20712E-02, 0.16132E-02, 0.53402E-02, 0.90656E-02, - & 0.12750E-01, 0.16368E-01, 0.19892E-01, 0.23347E-01, 0.26706E-01, - & 0.29964E-01, 0.33123E-01, 0.36186E-01, 0.39153E-01, 0.42028E-01, - & 0.44819E-01, 0.47523E-01, 0.50142E-01, 0.52682E-01, 0.55144E-01, - & 0.57521E-01, 0.59843E-01, 0.62126E-01, 0.64410E-01, 0.66693E-01, - & 0.68977E-01, 0.71260E-01, 0.73543E-01, 0.75827E-01, 0.78110E-01, - &-0.56805E-02,-0.20416E-02, 0.16024E-02, 0.52782E-02, 0.89421E-02, - & 0.12557E-01, 0.16098E-01, 0.19539E-01, 0.22908E-01, 0.26178E-01, - & 0.29343E-01, 0.32409E-01, 0.35377E-01, 0.38248E-01, 0.41027E-01, - & 0.43721E-01, 0.46328E-01, 0.48851E-01, 0.51295E-01, 0.53662E-01, - & 0.55943E-01, 0.58172E-01, 0.60361E-01, 0.62551E-01, 0.64740E-01, - & 0.66930E-01, 0.69120E-01, 0.71309E-01, 0.73499E-01, 0.75688E-01, - &-0.56115E-02,-0.20112E-02, 0.15932E-02, 0.52188E-02, 0.88222E-02, - & 0.12368E-01, 0.15834E-01, 0.19194E-01, 0.22479E-01, 0.25662E-01, - & 0.28737E-01, 0.31711E-01, 0.34587E-01, 0.37365E-01, 0.40050E-01, - & 0.42651E-01, 0.45164E-01, 0.47593E-01, 0.49944E-01, 0.52218E-01, - & 0.54408E-01, 0.56545E-01, 0.58644E-01, 0.60743E-01, 0.62842E-01, - & 0.64941E-01, 0.67040E-01, 0.69139E-01, 0.71238E-01, 0.73337E-01/ - - data ((u_grdl(i,j),j=1,30),i= 51, 60)/ - &-0.55425E-02,-0.19799E-02, 0.15858E-02, 0.51622E-02, 0.87065E-02, - & 0.12185E-01, 0.15577E-01, 0.18858E-01, 0.22061E-01, 0.25158E-01, - & 0.28147E-01, 0.31032E-01, 0.33817E-01, 0.36504E-01, 0.39099E-01, - & 0.41608E-01, 0.44030E-01, 0.46368E-01, 0.48629E-01, 0.50814E-01, - & 0.52915E-01, 0.54964E-01, 0.56975E-01, 0.58987E-01, 0.60998E-01, - & 0.63009E-01, 0.65021E-01, 0.67032E-01, 0.69043E-01, 0.71055E-01, - &-0.54732E-02,-0.19474E-02, 0.15804E-02, 0.51087E-02, 0.85951E-02, - & 0.12008E-01, 0.15328E-01, 0.18532E-01, 0.21654E-01, 0.24669E-01, - & 0.27572E-01, 0.30370E-01, 0.33068E-01, 0.35667E-01, 0.38172E-01, - & 0.40593E-01, 0.42927E-01, 0.45177E-01, 0.47351E-01, 0.49448E-01, - & 0.51463E-01, 0.53427E-01, 0.55354E-01, 0.57281E-01, 0.59207E-01, - & 0.61134E-01, 0.63061E-01, 0.64987E-01, 0.66914E-01, 0.68840E-01, - &-0.54035E-02,-0.19136E-02, 0.15774E-02, 0.50588E-02, 0.84886E-02, - & 0.11837E-01, 0.15086E-01, 0.18215E-01, 0.21259E-01, 0.24193E-01, - & 0.27013E-01, 0.29727E-01, 0.32339E-01, 0.34852E-01, 0.37271E-01, - & 0.39606E-01, 0.41854E-01, 0.44019E-01, 0.46108E-01, 0.48121E-01, - & 0.50054E-01, 0.51935E-01, 0.53780E-01, 0.55624E-01, 0.57469E-01, - & 0.59314E-01, 0.61158E-01, 0.63003E-01, 0.64848E-01, 0.66692E-01, - &-0.53333E-02,-0.18781E-02, 0.15771E-02, 0.50128E-02, 0.83874E-02, - & 0.11673E-01, 0.14854E-01, 0.17908E-01, 0.20876E-01, 0.23731E-01, - & 0.26470E-01, 0.29102E-01, 0.31631E-01, 0.34061E-01, 0.36396E-01, - & 0.38647E-01, 0.40812E-01, 0.42895E-01, 0.44902E-01, 0.46834E-01, - & 0.48686E-01, 0.50488E-01, 0.52253E-01, 0.54019E-01, 0.55785E-01, - & 0.57551E-01, 0.59316E-01, 0.61082E-01, 0.62848E-01, 0.64613E-01, - &-0.52622E-02,-0.18406E-02, 0.15800E-02, 0.49713E-02, 0.82921E-02, - & 0.11516E-01, 0.14630E-01, 0.17613E-01, 0.20507E-01, 0.23284E-01, - & 0.25944E-01, 0.28496E-01, 0.30945E-01, 0.33293E-01, 0.35548E-01, - & 0.37718E-01, 0.39802E-01, 0.41805E-01, 0.43732E-01, 0.45586E-01, - & 0.47360E-01, 0.49085E-01, 0.50774E-01, 0.52463E-01, 0.54153E-01, - & 0.55842E-01, 0.57531E-01, 0.59220E-01, 0.60910E-01, 0.62599E-01, - &-0.51900E-02,-0.18008E-02, 0.15866E-02, 0.49347E-02, 0.82033E-02, - & 0.11368E-01, 0.14416E-01, 0.17329E-01, 0.20150E-01, 0.22853E-01, - & 0.25437E-01, 0.27910E-01, 0.30280E-01, 0.32550E-01, 0.34726E-01, - & 0.36818E-01, 0.38824E-01, 0.40749E-01, 0.42599E-01, 0.44377E-01, - & 0.46076E-01, 0.47727E-01, 0.49342E-01, 0.50958E-01, 0.52573E-01, - & 0.54189E-01, 0.55804E-01, 0.57420E-01, 0.59035E-01, 0.60651E-01, - &-0.51164E-02,-0.17581E-02, 0.15973E-02, 0.49039E-02, 0.81216E-02, - & 0.11228E-01, 0.14213E-01, 0.17058E-01, 0.19808E-01, 0.22438E-01, - & 0.24947E-01, 0.27345E-01, 0.29639E-01, 0.31832E-01, 0.33932E-01, - & 0.35947E-01, 0.37878E-01, 0.39728E-01, 0.41504E-01, 0.43208E-01, - & 0.44835E-01, 0.46414E-01, 0.47958E-01, 0.49502E-01, 0.51046E-01, - & 0.52591E-01, 0.54135E-01, 0.55679E-01, 0.57223E-01, 0.58767E-01, - &-0.50408E-02,-0.17120E-02, 0.16130E-02, 0.48794E-02, 0.80480E-02, - & 0.11098E-01, 0.14021E-01, 0.16799E-01, 0.19481E-01, 0.22040E-01, - & 0.24477E-01, 0.26802E-01, 0.29021E-01, 0.31140E-01, 0.33166E-01, - & 0.35107E-01, 0.36965E-01, 0.38742E-01, 0.40446E-01, 0.42079E-01, - & 0.43636E-01, 0.45146E-01, 0.46621E-01, 0.48096E-01, 0.49572E-01, - & 0.51047E-01, 0.52523E-01, 0.53998E-01, 0.55473E-01, 0.56949E-01, - &-0.49628E-02,-0.16619E-02, 0.16342E-02, 0.48622E-02, 0.79832E-02, - & 0.10978E-01, 0.13842E-01, 0.16555E-01, 0.19171E-01, 0.21661E-01, - & 0.24027E-01, 0.26280E-01, 0.28428E-01, 0.30475E-01, 0.32428E-01, - & 0.34299E-01, 0.36085E-01, 0.37792E-01, 0.39427E-01, 0.40991E-01, - & 0.42480E-01, 0.43923E-01, 0.45332E-01, 0.46741E-01, 0.48151E-01, - & 0.49560E-01, 0.50969E-01, 0.52378E-01, 0.53787E-01, 0.55197E-01, - &-0.48818E-02,-0.16070E-02, 0.16620E-02, 0.48532E-02, 0.79284E-02, - & 0.10871E-01, 0.13675E-01, 0.16327E-01, 0.18877E-01, 0.21300E-01, - & 0.23598E-01, 0.25782E-01, 0.27860E-01, 0.29837E-01, 0.31721E-01, - & 0.33522E-01, 0.35240E-01, 0.36879E-01, 0.38446E-01, 0.39944E-01, - & 0.41368E-01, 0.42746E-01, 0.44092E-01, 0.45437E-01, 0.46782E-01, - & 0.48128E-01, 0.49473E-01, 0.50818E-01, 0.52164E-01, 0.53509E-01/ - - data ((u_grdl(i,j),j=1,30),i= 61, 70)/ - &-0.47970E-02,-0.15464E-02, 0.16973E-02, 0.48535E-02, 0.78846E-02, - & 0.10776E-01, 0.13524E-01, 0.16114E-01, 0.18602E-01, 0.20960E-01, - & 0.23191E-01, 0.25308E-01, 0.27318E-01, 0.29228E-01, 0.31044E-01, - & 0.32778E-01, 0.34429E-01, 0.36002E-01, 0.37505E-01, 0.38939E-01, - & 0.40300E-01, 0.41616E-01, 0.42899E-01, 0.44183E-01, 0.45466E-01, - & 0.46750E-01, 0.48033E-01, 0.49317E-01, 0.50601E-01, 0.51884E-01, - &-0.47074E-02,-0.14791E-02, 0.17413E-02, 0.48644E-02, 0.78533E-02, - & 0.10695E-01, 0.13389E-01, 0.15920E-01, 0.18347E-01, 0.20642E-01, - & 0.22808E-01, 0.24860E-01, 0.26805E-01, 0.28649E-01, 0.30400E-01, - & 0.32068E-01, 0.33655E-01, 0.35165E-01, 0.36604E-01, 0.37976E-01, - & 0.39276E-01, 0.40532E-01, 0.41756E-01, 0.42980E-01, 0.44204E-01, - & 0.45428E-01, 0.46652E-01, 0.47876E-01, 0.49100E-01, 0.50324E-01, - &-0.46120E-02,-0.14039E-02, 0.17954E-02, 0.48873E-02, 0.78359E-02, - & 0.10630E-01, 0.13271E-01, 0.15745E-01, 0.18113E-01, 0.20346E-01, - & 0.22450E-01, 0.24438E-01, 0.26320E-01, 0.28100E-01, 0.29788E-01, - & 0.31394E-01, 0.32918E-01, 0.34366E-01, 0.35745E-01, 0.37057E-01, - & 0.38298E-01, 0.39496E-01, 0.40663E-01, 0.41829E-01, 0.42996E-01, - & 0.44162E-01, 0.45329E-01, 0.46495E-01, 0.47662E-01, 0.48828E-01, - &-0.45095E-02,-0.13192E-02, 0.18611E-02, 0.49240E-02, 0.78341E-02, - & 0.10583E-01, 0.13173E-01, 0.15592E-01, 0.17902E-01, 0.20076E-01, - & 0.22119E-01, 0.24046E-01, 0.25865E-01, 0.27584E-01, 0.29210E-01, - & 0.30755E-01, 0.32219E-01, 0.33608E-01, 0.34928E-01, 0.36182E-01, - & 0.37366E-01, 0.38508E-01, 0.39620E-01, 0.40731E-01, 0.41842E-01, - & 0.42953E-01, 0.44064E-01, 0.45175E-01, 0.46286E-01, 0.47398E-01, - &-0.43983E-02,-0.12235E-02, 0.19403E-02, 0.49763E-02, 0.78500E-02, - & 0.10555E-01, 0.13095E-01, 0.15461E-01, 0.17716E-01, 0.19832E-01, - & 0.21817E-01, 0.23684E-01, 0.25443E-01, 0.27102E-01, 0.28669E-01, - & 0.30155E-01, 0.31560E-01, 0.32891E-01, 0.34154E-01, 0.35352E-01, - & 0.36482E-01, 0.37570E-01, 0.38628E-01, 0.39685E-01, 0.40743E-01, - & 0.41800E-01, 0.42858E-01, 0.43916E-01, 0.44973E-01, 0.46031E-01, - &-0.42767E-02,-0.11148E-02, 0.20350E-02, 0.50463E-02, 0.78856E-02, - & 0.10548E-01, 0.13042E-01, 0.15356E-01, 0.17556E-01, 0.19617E-01, - & 0.21545E-01, 0.23354E-01, 0.25055E-01, 0.26656E-01, 0.28165E-01, - & 0.29593E-01, 0.30942E-01, 0.32217E-01, 0.33425E-01, 0.34570E-01, - & 0.35646E-01, 0.36682E-01, 0.37688E-01, 0.38694E-01, 0.39700E-01, - & 0.40706E-01, 0.41713E-01, 0.42719E-01, 0.43725E-01, 0.44731E-01, - &-0.41424E-02,-0.99077E-03, 0.21477E-02, 0.51367E-02, 0.79436E-02, - & 0.10566E-01, 0.13014E-01, 0.15278E-01, 0.17427E-01, 0.19433E-01, - & 0.21305E-01, 0.23058E-01, 0.24703E-01, 0.26248E-01, 0.27700E-01, - & 0.29073E-01, 0.30367E-01, 0.31588E-01, 0.32743E-01, 0.33835E-01, - & 0.34860E-01, 0.35845E-01, 0.36801E-01, 0.37757E-01, 0.38713E-01, - & 0.39670E-01, 0.40626E-01, 0.41582E-01, 0.42538E-01, 0.43494E-01, - &-0.39930E-02,-0.84876E-03, 0.22811E-02, 0.52502E-02, 0.80268E-02, - & 0.10611E-01, 0.13015E-01, 0.15231E-01, 0.17329E-01, 0.19283E-01, - & 0.21101E-01, 0.22799E-01, 0.24389E-01, 0.25879E-01, 0.27277E-01, - & 0.28596E-01, 0.29837E-01, 0.31005E-01, 0.32108E-01, 0.33149E-01, - & 0.34125E-01, 0.35061E-01, 0.35968E-01, 0.36876E-01, 0.37783E-01, - & 0.38691E-01, 0.39599E-01, 0.40506E-01, 0.41414E-01, 0.42321E-01, - &-0.38254E-02,-0.68569E-03, 0.24385E-02, 0.53900E-02, 0.81384E-02, - & 0.10687E-01, 0.13048E-01, 0.15217E-01, 0.17266E-01, 0.19169E-01, - & 0.20934E-01, 0.22579E-01, 0.24116E-01, 0.25552E-01, 0.26898E-01, - & 0.28164E-01, 0.29353E-01, 0.30470E-01, 0.31522E-01, 0.32514E-01, - & 0.33442E-01, 0.34330E-01, 0.35191E-01, 0.36052E-01, 0.36912E-01, - & 0.37773E-01, 0.38633E-01, 0.39494E-01, 0.40355E-01, 0.41215E-01, - &-0.36362E-02,-0.49795E-03, 0.26235E-02, 0.55599E-02, 0.82820E-02, - & 0.10796E-01, 0.13117E-01, 0.15240E-01, 0.17241E-01, 0.19095E-01, - & 0.20809E-01, 0.22402E-01, 0.23886E-01, 0.25270E-01, 0.26564E-01, - & 0.27779E-01, 0.28917E-01, 0.29984E-01, 0.30988E-01, 0.31932E-01, - & 0.32812E-01, 0.33655E-01, 0.34470E-01, 0.35285E-01, 0.36100E-01, - & 0.36915E-01, 0.37730E-01, 0.38545E-01, 0.39360E-01, 0.40176E-01/ - - data ((u_grdl(i,j),j=1,30),i= 71, 80)/ - &-0.34212E-02,-0.28137E-03, 0.28403E-02, 0.57640E-02, 0.84618E-02, - & 0.10942E-01, 0.13224E-01, 0.15303E-01, 0.17258E-01, 0.19063E-01, - & 0.20727E-01, 0.22269E-01, 0.23703E-01, 0.25036E-01, 0.26278E-01, - & 0.27444E-01, 0.28532E-01, 0.29550E-01, 0.30506E-01, 0.31403E-01, - & 0.32238E-01, 0.33035E-01, 0.33806E-01, 0.34576E-01, 0.35347E-01, - & 0.36117E-01, 0.36888E-01, 0.37658E-01, 0.38429E-01, 0.39199E-01, - &-0.31756E-02,-0.31165E-04, 0.30937E-02, 0.60071E-02, 0.86824E-02, - & 0.11131E-01, 0.13375E-01, 0.15411E-01, 0.17321E-01, 0.19077E-01, - & 0.20692E-01, 0.22185E-01, 0.23568E-01, 0.24851E-01, 0.26044E-01, - & 0.27160E-01, 0.28200E-01, 0.29170E-01, 0.30079E-01, 0.30930E-01, - & 0.31720E-01, 0.32473E-01, 0.33200E-01, 0.33927E-01, 0.34654E-01, - & 0.35381E-01, 0.36108E-01, 0.36835E-01, 0.37562E-01, 0.38289E-01, - &-0.28940E-02, 0.25817E-03, 0.33892E-02, 0.62944E-02, 0.89488E-02, - & 0.11367E-01, 0.13574E-01, 0.15568E-01, 0.17433E-01, 0.19142E-01, - & 0.20709E-01, 0.22152E-01, 0.23486E-01, 0.24719E-01, 0.25863E-01, - & 0.26930E-01, 0.27922E-01, 0.28846E-01, 0.29709E-01, 0.30514E-01, - & 0.31260E-01, 0.31970E-01, 0.32654E-01, 0.33338E-01, 0.34022E-01, - & 0.34706E-01, 0.35391E-01, 0.36075E-01, 0.36759E-01, 0.37443E-01, - &-0.25697E-02, 0.59305E-03, 0.37331E-02, 0.66322E-02, 0.92670E-02, - & 0.11656E-01, 0.13826E-01, 0.15778E-01, 0.17599E-01, 0.19262E-01, - & 0.20780E-01, 0.22174E-01, 0.23459E-01, 0.24643E-01, 0.25738E-01, - & 0.26757E-01, 0.27702E-01, 0.28579E-01, 0.29396E-01, 0.30156E-01, - & 0.30859E-01, 0.31526E-01, 0.32168E-01, 0.32810E-01, 0.33451E-01, - & 0.34093E-01, 0.34735E-01, 0.35377E-01, 0.36019E-01, 0.36661E-01, - &-0.21952E-02, 0.98079E-03, 0.41324E-02, 0.70270E-02, 0.96432E-02, - & 0.12003E-01, 0.14137E-01, 0.16048E-01, 0.17824E-01, 0.19440E-01, - & 0.20910E-01, 0.22256E-01, 0.23491E-01, 0.24626E-01, 0.25673E-01, - & 0.26644E-01, 0.27541E-01, 0.28371E-01, 0.29143E-01, 0.29859E-01, - & 0.30518E-01, 0.31142E-01, 0.31742E-01, 0.32342E-01, 0.32942E-01, - & 0.33542E-01, 0.34141E-01, 0.34741E-01, 0.35341E-01, 0.35941E-01, - &-0.17624E-02, 0.14295E-02, 0.45952E-02, 0.74865E-02, 0.10085E-01, - & 0.12416E-01, 0.14513E-01, 0.16382E-01, 0.18113E-01, 0.19682E-01, - & 0.21104E-01, 0.22400E-01, 0.23585E-01, 0.24671E-01, 0.25669E-01, - & 0.26591E-01, 0.27441E-01, 0.28225E-01, 0.28951E-01, 0.29622E-01, - & 0.30237E-01, 0.30819E-01, 0.31377E-01, 0.31935E-01, 0.32493E-01, - & 0.33051E-01, 0.33608E-01, 0.34166E-01, 0.34724E-01, 0.35282E-01, - &-0.12601E-02, 0.19491E-02, 0.51302E-02, 0.80190E-02, 0.10599E-01, - & 0.12901E-01, 0.14961E-01, 0.16786E-01, 0.18472E-01, 0.19993E-01, - & 0.21365E-01, 0.22610E-01, 0.23745E-01, 0.24781E-01, 0.25729E-01, - & 0.26602E-01, 0.27404E-01, 0.28140E-01, 0.28820E-01, 0.29446E-01, - & 0.30018E-01, 0.30557E-01, 0.31072E-01, 0.31588E-01, 0.32104E-01, - & 0.32619E-01, 0.33135E-01, 0.33651E-01, 0.34166E-01, 0.34682E-01, - &-0.67771E-03, 0.25501E-02, 0.57477E-02, 0.86339E-02, 0.11195E-01, - & 0.13466E-01, 0.15487E-01, 0.17267E-01, 0.18906E-01, 0.20377E-01, - & 0.21697E-01, 0.22891E-01, 0.23974E-01, 0.24958E-01, 0.25855E-01, - & 0.26678E-01, 0.27430E-01, 0.28118E-01, 0.28751E-01, 0.29331E-01, - & 0.29859E-01, 0.30354E-01, 0.30827E-01, 0.31300E-01, 0.31772E-01, - & 0.32245E-01, 0.32718E-01, 0.33191E-01, 0.33664E-01, 0.34137E-01, - &-0.19997E-05, 0.32445E-02, 0.64587E-02, 0.93410E-02, 0.11881E-01, - & 0.14118E-01, 0.16098E-01, 0.17831E-01, 0.19420E-01, 0.20838E-01, - & 0.22105E-01, 0.23244E-01, 0.24273E-01, 0.25204E-01, 0.26047E-01, - & 0.26819E-01, 0.27520E-01, 0.28159E-01, 0.28743E-01, 0.29276E-01, - & 0.29758E-01, 0.30209E-01, 0.30637E-01, 0.31066E-01, 0.31495E-01, - & 0.31924E-01, 0.32353E-01, 0.32782E-01, 0.33211E-01, 0.33640E-01, - & 0.78258E-03, 0.40464E-02, 0.72755E-02, 0.10152E-01, 0.12667E-01, - & 0.14868E-01, 0.16802E-01, 0.18485E-01, 0.20019E-01, 0.21382E-01, - & 0.22591E-01, 0.23673E-01, 0.24645E-01, 0.25519E-01, 0.26308E-01, - & 0.27025E-01, 0.27673E-01, 0.28260E-01, 0.28794E-01, 0.29278E-01, - & 0.29713E-01, 0.30117E-01, 0.30501E-01, 0.30884E-01, 0.31268E-01, - & 0.31651E-01, 0.32035E-01, 0.32418E-01, 0.32802E-01, 0.33185E-01/ - - data ((u_grdl(i,j),j=1,30),i= 81, 90)/ - & 0.16917E-02, 0.49701E-02, 0.82114E-02, 0.11077E-01, 0.13563E-01, - & 0.15722E-01, 0.17606E-01, 0.19232E-01, 0.20708E-01, 0.22010E-01, - & 0.23158E-01, 0.24179E-01, 0.25090E-01, 0.25905E-01, 0.26634E-01, - & 0.27294E-01, 0.27887E-01, 0.28419E-01, 0.28901E-01, 0.29334E-01, - & 0.29719E-01, 0.30076E-01, 0.30412E-01, 0.30748E-01, 0.31085E-01, - & 0.31421E-01, 0.31757E-01, 0.32094E-01, 0.32430E-01, 0.32766E-01, - & 0.27450E-02, 0.60327E-02, 0.92808E-02, 0.12130E-01, 0.14580E-01, - & 0.16690E-01, 0.18517E-01, 0.20080E-01, 0.21491E-01, 0.22726E-01, - & 0.23808E-01, 0.24762E-01, 0.25608E-01, 0.26357E-01, 0.27025E-01, - & 0.27623E-01, 0.28156E-01, 0.28632E-01, 0.29057E-01, 0.29436E-01, - & 0.29770E-01, 0.30076E-01, 0.30363E-01, 0.30649E-01, 0.30936E-01, - & 0.31223E-01, 0.31510E-01, 0.31796E-01, 0.32083E-01, 0.32370E-01, - & 0.39627E-02, 0.72517E-02, 0.10499E-01, 0.13322E-01, 0.15727E-01, - & 0.17778E-01, 0.19538E-01, 0.21030E-01, 0.22369E-01, 0.23530E-01, - & 0.24538E-01, 0.25419E-01, 0.26193E-01, 0.26874E-01, 0.27473E-01, - & 0.28006E-01, 0.28475E-01, 0.28889E-01, 0.29255E-01, 0.29577E-01, - & 0.29855E-01, 0.30108E-01, 0.30343E-01, 0.30578E-01, 0.30812E-01, - & 0.31047E-01, 0.31282E-01, 0.31516E-01, 0.31751E-01, 0.31986E-01, - & 0.53678E-02, 0.86465E-02, 0.11880E-01, 0.14665E-01, 0.17012E-01, - & 0.18993E-01, 0.20676E-01, 0.22086E-01, 0.23341E-01, 0.24420E-01, - & 0.25345E-01, 0.26145E-01, 0.26841E-01, 0.27445E-01, 0.27970E-01, - & 0.28432E-01, 0.28832E-01, 0.29180E-01, 0.29482E-01, 0.29743E-01, - & 0.29963E-01, 0.30159E-01, 0.30338E-01, 0.30517E-01, 0.30697E-01, - & 0.30876E-01, 0.31055E-01, 0.31234E-01, 0.31413E-01, 0.31592E-01, - & 0.69849E-02, 0.10237E-01, 0.13441E-01, 0.16171E-01, 0.18444E-01, - & 0.20339E-01, 0.21929E-01, 0.23245E-01, 0.24405E-01, 0.25389E-01, - & 0.26221E-01, 0.26932E-01, 0.27540E-01, 0.28060E-01, 0.28504E-01, - & 0.28888E-01, 0.29214E-01, 0.29490E-01, 0.29723E-01, 0.29918E-01, - & 0.30076E-01, 0.30211E-01, 0.30331E-01, 0.30451E-01, 0.30571E-01, - & 0.30691E-01, 0.30811E-01, 0.30931E-01, 0.31051E-01, 0.31171E-01, - & 0.88397E-02, 0.12043E-01, 0.15196E-01, 0.17849E-01, 0.20026E-01, - & 0.21816E-01, 0.23296E-01, 0.24501E-01, 0.25550E-01, 0.26426E-01, - & 0.27153E-01, 0.27763E-01, 0.28274E-01, 0.28700E-01, 0.29056E-01, - & 0.29354E-01, 0.29598E-01, 0.29796E-01, 0.29956E-01, 0.30080E-01, - & 0.30170E-01, 0.30241E-01, 0.30298E-01, 0.30355E-01, 0.30412E-01, - & 0.30469E-01, 0.30526E-01, 0.30583E-01, 0.30640E-01, 0.30697E-01, - & 0.10958E-01, 0.14084E-01, 0.17155E-01, 0.19703E-01, 0.21759E-01, - & 0.23419E-01, 0.24767E-01, 0.25841E-01, 0.26762E-01, 0.27513E-01, - & 0.28122E-01, 0.28617E-01, 0.29019E-01, 0.29342E-01, 0.29599E-01, - & 0.29804E-01, 0.29959E-01, 0.30073E-01, 0.30152E-01, 0.30200E-01, - & 0.30218E-01, 0.30220E-01, 0.30210E-01, 0.30199E-01, 0.30189E-01, - & 0.30179E-01, 0.30168E-01, 0.30158E-01, 0.30148E-01, 0.30138E-01, - & 0.13367E-01, 0.16375E-01, 0.19327E-01, 0.21733E-01, 0.23634E-01, - & 0.25134E-01, 0.26324E-01, 0.27244E-01, 0.28016E-01, 0.28624E-01, - & 0.29097E-01, 0.29463E-01, 0.29744E-01, 0.29952E-01, 0.30100E-01, - & 0.30201E-01, 0.30260E-01, 0.30282E-01, 0.30274E-01, 0.30240E-01, - & 0.30182E-01, 0.30110E-01, 0.30028E-01, 0.29947E-01, 0.29865E-01, - & 0.29783E-01, 0.29702E-01, 0.29620E-01, 0.29538E-01, 0.29457E-01, - & 0.16085E-01, 0.18927E-01, 0.21710E-01, 0.23929E-01, 0.25634E-01, - & 0.26938E-01, 0.27938E-01, 0.28676E-01, 0.29274E-01, 0.29718E-01, - & 0.30036E-01, 0.30257E-01, 0.30402E-01, 0.30483E-01, 0.30512E-01, - & 0.30500E-01, 0.30453E-01, 0.30377E-01, 0.30276E-01, 0.30155E-01, - & 0.30016E-01, 0.29866E-01, 0.29710E-01, 0.29553E-01, 0.29397E-01, - & 0.29240E-01, 0.29084E-01, 0.28927E-01, 0.28771E-01, 0.28614E-01, - & 0.19131E-01, 0.21742E-01, 0.24292E-01, 0.26267E-01, 0.27726E-01, - & 0.28790E-01, 0.29562E-01, 0.30088E-01, 0.30483E-01, 0.30738E-01, - & 0.30882E-01, 0.30941E-01, 0.30934E-01, 0.30875E-01, 0.30774E-01, - & 0.30641E-01, 0.30481E-01, 0.30298E-01, 0.30099E-01, 0.29887E-01, - & 0.29662E-01, 0.29432E-01, 0.29197E-01, 0.28963E-01, 0.28729E-01, - & 0.28494E-01, 0.28260E-01, 0.28026E-01, 0.27791E-01, 0.27557E-01/ - - data ((u_grdl(i,j),j=1,30),i= 91,100)/ - & 0.22506E-01, 0.24805E-01, 0.27043E-01, 0.28701E-01, 0.29853E-01, - & 0.30627E-01, 0.31128E-01, 0.31405E-01, 0.31567E-01, 0.31608E-01, - & 0.31556E-01, 0.31435E-01, 0.31263E-01, 0.31051E-01, 0.30809E-01, - & 0.30546E-01, 0.30266E-01, 0.29973E-01, 0.29672E-01, 0.29364E-01, - & 0.29052E-01, 0.28740E-01, 0.28426E-01, 0.28113E-01, 0.27799E-01, - & 0.27486E-01, 0.27173E-01, 0.26859E-01, 0.26546E-01, 0.26232E-01, - & 0.26193E-01, 0.28078E-01, 0.29903E-01, 0.31158E-01, 0.31930E-01, - & 0.32354E-01, 0.32535E-01, 0.32526E-01, 0.32422E-01, 0.32223E-01, - & 0.31953E-01, 0.31635E-01, 0.31284E-01, 0.30910E-01, 0.30520E-01, - & 0.30121E-01, 0.29717E-01, 0.29311E-01, 0.28905E-01, 0.28502E-01, - & 0.28104E-01, 0.27710E-01, 0.27319E-01, 0.26928E-01, 0.26537E-01, - & 0.26146E-01, 0.25755E-01, 0.25365E-01, 0.24974E-01, 0.24583E-01, - & 0.30145E-01, 0.31487E-01, 0.32770E-01, 0.33516E-01, 0.33824E-01, - & 0.33831E-01, 0.33641E-01, 0.33306E-01, 0.32904E-01, 0.32440E-01, - & 0.31935E-01, 0.31407E-01, 0.30869E-01, 0.30326E-01, 0.29785E-01, - & 0.29249E-01, 0.28721E-01, 0.28203E-01, 0.27697E-01, 0.27202E-01, - & 0.26722E-01, 0.26252E-01, 0.25790E-01, 0.25327E-01, 0.24864E-01, - & 0.24401E-01, 0.23938E-01, 0.23476E-01, 0.23013E-01, 0.22550E-01, - & 0.34254E-01, 0.34892E-01, 0.35477E-01, 0.35589E-01, 0.35337E-01, - & 0.34858E-01, 0.34244E-01, 0.33548E-01, 0.32821E-01, 0.32074E-01, - & 0.31323E-01, 0.30580E-01, 0.29852E-01, 0.29143E-01, 0.28455E-01, - & 0.27789E-01, 0.27145E-01, 0.26525E-01, 0.25927E-01, 0.25352E-01, - & 0.24802E-01, 0.24268E-01, 0.23744E-01, 0.23221E-01, 0.22698E-01, - & 0.22175E-01, 0.21651E-01, 0.21128E-01, 0.20605E-01, 0.20082E-01, - & 0.38316E-01, 0.38056E-01, 0.37754E-01, 0.37087E-01, 0.36176E-01, - & 0.35142E-01, 0.34062E-01, 0.32980E-01, 0.31914E-01, 0.30880E-01, - & 0.29888E-01, 0.28939E-01, 0.28035E-01, 0.27175E-01, 0.26358E-01, - & 0.25579E-01, 0.24840E-01, 0.24138E-01, 0.23470E-01, 0.22834E-01, - & 0.22234E-01, 0.21655E-01, 0.21092E-01, 0.20528E-01, 0.19965E-01, - & 0.19401E-01, 0.18838E-01, 0.18275E-01, 0.17711E-01, 0.17148E-01, - & 0.41968E-01, 0.40578E-01, 0.39163E-01, 0.37564E-01, 0.35900E-01, - & 0.34264E-01, 0.32699E-01, 0.31236E-01, 0.29845E-01, 0.28548E-01, - & 0.27344E-01, 0.26224E-01, 0.25180E-01, 0.24208E-01, 0.23300E-01, - & 0.22447E-01, 0.21650E-01, 0.20902E-01, 0.20199E-01, 0.19538E-01, - & 0.18921E-01, 0.18331E-01, 0.17759E-01, 0.17187E-01, 0.16616E-01, - & 0.16044E-01, 0.15472E-01, 0.14901E-01, 0.14329E-01, 0.13757E-01, - & 0.44532E-01, 0.41748E-01, 0.38970E-01, 0.36303E-01, 0.33841E-01, - & 0.31611E-01, 0.29604E-01, 0.27822E-01, 0.26177E-01, 0.24694E-01, - & 0.23357E-01, 0.22143E-01, 0.21036E-01, 0.20024E-01, 0.19095E-01, - & 0.18236E-01, 0.17444E-01, 0.16711E-01, 0.16031E-01, 0.15398E-01, - & 0.14815E-01, 0.14261E-01, 0.13727E-01, 0.13194E-01, 0.12661E-01, - & 0.12127E-01, 0.11594E-01, 0.11060E-01, 0.10527E-01, 0.99935E-02, - & 0.44613E-01, 0.40205E-01, 0.35855E-01, 0.32104E-01, 0.28947E-01, - & 0.26285E-01, 0.24017E-01, 0.22103E-01, 0.20386E-01, 0.18890E-01, - & 0.17582E-01, 0.16425E-01, 0.15393E-01, 0.14470E-01, 0.13638E-01, - & 0.12881E-01, 0.12194E-01, 0.11568E-01, 0.10995E-01, 0.10469E-01, - & 0.99906E-02, 0.95400E-02, 0.91091E-02, 0.86781E-02, 0.82472E-02, - & 0.78162E-02, 0.73852E-02, 0.69543E-02, 0.65233E-02, 0.60924E-02, - & 0.38291E-01, 0.32582E-01, 0.27016E-01, 0.22732E-01, 0.19486E-01, - & 0.16969E-01, 0.14963E-01, 0.13368E-01, 0.11987E-01, 0.10833E-01, - & 0.98628E-02, 0.90307E-02, 0.83094E-02, 0.76800E-02, 0.71262E-02, - & 0.66322E-02, 0.61930E-02, 0.58004E-02, 0.54466E-02, 0.51274E-02, - & 0.48418E-02, 0.45757E-02, 0.43231E-02, 0.40706E-02, 0.38180E-02, - & 0.35655E-02, 0.33129E-02, 0.30604E-02, 0.28078E-02, 0.25553E-02, - & 0.53648E-02, 0.45170E-02, 0.36915E-02, 0.30654E-02, 0.25980E-02, - & 0.22404E-02, 0.19584E-02, 0.17367E-02, 0.15460E-02, 0.13880E-02, - & 0.12561E-02, 0.11438E-02, 0.10470E-02, 0.96303E-03, 0.88954E-03, - & 0.82429E-03, 0.76656E-03, 0.71518E-03, 0.66907E-03, 0.62764E-03, - & 0.59074E-03, 0.55643E-03, 0.52395E-03, 0.49147E-03, 0.45899E-03, - & 0.42651E-03, 0.39403E-03, 0.36155E-03, 0.32907E-03, 0.29659E-03/ - - data ((g_grdl(i,j),j=1,30),i= 1, 10)/ - &-0.89403E-01, 0.59195E-01, 0.21121E+00, 0.39774E+00, 0.61864E+00, - & 0.86853E+00, 0.11417E+01, 0.14356E+01, 0.17406E+01, 0.20579E+01, - & 0.23849E+01, 0.27188E+01, 0.30577E+01, 0.34001E+01, 0.37448E+01, - & 0.40906E+01, 0.44368E+01, 0.47825E+01, 0.51273E+01, 0.54706E+01, - & 0.58115E+01, 0.61506E+01, 0.64884E+01, 0.68262E+01, 0.71639E+01, - & 0.75017E+01, 0.78395E+01, 0.81772E+01, 0.85150E+01, 0.88528E+01, - &-0.87786E-01, 0.59792E-01, 0.21071E+00, 0.39524E+00, 0.61310E+00, - & 0.85891E+00, 0.11271E+01, 0.14149E+01, 0.17133E+01, 0.20232E+01, - & 0.23421E+01, 0.26673E+01, 0.29971E+01, 0.33299E+01, 0.36646E+01, - & 0.40000E+01, 0.43356E+01, 0.46704E+01, 0.50041E+01, 0.53359E+01, - & 0.56653E+01, 0.59928E+01, 0.63188E+01, 0.66448E+01, 0.69709E+01, - & 0.72969E+01, 0.76229E+01, 0.79489E+01, 0.82750E+01, 0.86010E+01, - &-0.86149E-01, 0.60396E-01, 0.21020E+00, 0.39275E+00, 0.60759E+00, - & 0.84937E+00, 0.11125E+01, 0.13944E+01, 0.16863E+01, 0.19889E+01, - & 0.22999E+01, 0.26167E+01, 0.29375E+01, 0.32609E+01, 0.35858E+01, - & 0.39111E+01, 0.42363E+01, 0.45605E+01, 0.48832E+01, 0.52041E+01, - & 0.55222E+01, 0.58383E+01, 0.61529E+01, 0.64675E+01, 0.67822E+01, - & 0.70968E+01, 0.74114E+01, 0.77260E+01, 0.80406E+01, 0.83552E+01, - &-0.84531E-01, 0.60993E-01, 0.20970E+00, 0.39027E+00, 0.60212E+00, - & 0.83991E+00, 0.10982E+01, 0.13742E+01, 0.16596E+01, 0.19551E+01, - & 0.22583E+01, 0.25668E+01, 0.28788E+01, 0.31930E+01, 0.35083E+01, - & 0.38238E+01, 0.41388E+01, 0.44527E+01, 0.47648E+01, 0.50749E+01, - & 0.53821E+01, 0.56872E+01, 0.59907E+01, 0.62942E+01, 0.65977E+01, - & 0.69012E+01, 0.72047E+01, 0.75082E+01, 0.78117E+01, 0.81152E+01, - &-0.82912E-01, 0.61591E-01, 0.20920E+00, 0.38781E+00, 0.59669E+00, - & 0.83053E+00, 0.10839E+01, 0.13542E+01, 0.16333E+01, 0.19218E+01, - & 0.22174E+01, 0.25177E+01, 0.28211E+01, 0.31263E+01, 0.34323E+01, - & 0.37381E+01, 0.40432E+01, 0.43469E+01, 0.46488E+01, 0.49484E+01, - & 0.52449E+01, 0.55393E+01, 0.58320E+01, 0.61247E+01, 0.64174E+01, - & 0.67101E+01, 0.70029E+01, 0.72956E+01, 0.75883E+01, 0.78810E+01, - &-0.81293E-01, 0.62190E-01, 0.20870E+00, 0.38535E+00, 0.59130E+00, - & 0.82123E+00, 0.10698E+01, 0.13344E+01, 0.16073E+01, 0.18889E+01, - & 0.21770E+01, 0.24693E+01, 0.27643E+01, 0.30607E+01, 0.33575E+01, - & 0.36540E+01, 0.39495E+01, 0.42433E+01, 0.45351E+01, 0.48245E+01, - & 0.51106E+01, 0.53946E+01, 0.56768E+01, 0.59591E+01, 0.62413E+01, - & 0.65235E+01, 0.68058E+01, 0.70880E+01, 0.73703E+01, 0.76525E+01, - &-0.79672E-01, 0.62790E-01, 0.20820E+00, 0.38291E+00, 0.58594E+00, - & 0.81200E+00, 0.10559E+01, 0.13148E+01, 0.15816E+01, 0.18564E+01, - & 0.21372E+01, 0.24216E+01, 0.27084E+01, 0.29962E+01, 0.32841E+01, - & 0.35714E+01, 0.38575E+01, 0.41417E+01, 0.44237E+01, 0.47031E+01, - & 0.49792E+01, 0.52530E+01, 0.55251E+01, 0.57972E+01, 0.60692E+01, - & 0.63413E+01, 0.66134E+01, 0.68854E+01, 0.71575E+01, 0.74295E+01, - &-0.78070E-01, 0.63384E-01, 0.20770E+00, 0.38049E+00, 0.58061E+00, - & 0.80286E+00, 0.10421E+01, 0.12955E+01, 0.15562E+01, 0.18244E+01, - & 0.20979E+01, 0.23747E+01, 0.26534E+01, 0.29328E+01, 0.32120E+01, - & 0.34904E+01, 0.37672E+01, 0.40420E+01, 0.43145E+01, 0.45843E+01, - & 0.48506E+01, 0.51146E+01, 0.53767E+01, 0.56389E+01, 0.59011E+01, - & 0.61632E+01, 0.64254E+01, 0.66876E+01, 0.69497E+01, 0.72119E+01, - &-0.76448E-01, 0.63986E-01, 0.20721E+00, 0.37807E+00, 0.57533E+00, - & 0.79379E+00, 0.10284E+01, 0.12764E+01, 0.15311E+01, 0.17928E+01, - & 0.20593E+01, 0.23286E+01, 0.25993E+01, 0.28705E+01, 0.31412E+01, - & 0.34108E+01, 0.36787E+01, 0.39444E+01, 0.42076E+01, 0.44680E+01, - & 0.47248E+01, 0.49792E+01, 0.52317E+01, 0.54843E+01, 0.57369E+01, - & 0.59894E+01, 0.62420E+01, 0.64945E+01, 0.67471E+01, 0.69997E+01, - &-0.74824E-01, 0.64589E-01, 0.20672E+00, 0.37567E+00, 0.57008E+00, - & 0.78480E+00, 0.10148E+01, 0.12575E+01, 0.15064E+01, 0.17616E+01, - & 0.20212E+01, 0.22831E+01, 0.25461E+01, 0.28093E+01, 0.30716E+01, - & 0.33327E+01, 0.35918E+01, 0.38486E+01, 0.41028E+01, 0.43540E+01, - & 0.46016E+01, 0.48467E+01, 0.50899E+01, 0.53331E+01, 0.55764E+01, - & 0.58196E+01, 0.60628E+01, 0.63060E+01, 0.65492E+01, 0.67924E+01/ - - data ((g_grdl(i,j),j=1,30),i= 11, 20)/ - &-0.73219E-01, 0.65186E-01, 0.20623E+00, 0.37328E+00, 0.56487E+00, - & 0.77588E+00, 0.10014E+01, 0.12388E+01, 0.14819E+01, 0.17309E+01, - & 0.19836E+01, 0.22383E+01, 0.24938E+01, 0.27491E+01, 0.30033E+01, - & 0.32560E+01, 0.35067E+01, 0.37548E+01, 0.40002E+01, 0.42425E+01, - & 0.44811E+01, 0.47172E+01, 0.49514E+01, 0.51855E+01, 0.54197E+01, - & 0.56538E+01, 0.58880E+01, 0.61221E+01, 0.63563E+01, 0.65904E+01, - &-0.71612E-01, 0.65785E-01, 0.20574E+00, 0.37090E+00, 0.55969E+00, - & 0.76704E+00, 0.98817E+00, 0.12203E+01, 0.14578E+01, 0.17006E+01, - & 0.19466E+01, 0.21943E+01, 0.24423E+01, 0.26899E+01, 0.29362E+01, - & 0.31808E+01, 0.34232E+01, 0.36628E+01, 0.38997E+01, 0.41334E+01, - & 0.43632E+01, 0.45905E+01, 0.48159E+01, 0.50413E+01, 0.52666E+01, - & 0.54920E+01, 0.57174E+01, 0.59427E+01, 0.61681E+01, 0.63935E+01, - &-0.69985E-01, 0.66392E-01, 0.20526E+00, 0.36853E+00, 0.55455E+00, - & 0.75828E+00, 0.97503E+00, 0.12020E+01, 0.14340E+01, 0.16707E+01, - & 0.19102E+01, 0.21509E+01, 0.23917E+01, 0.26318E+01, 0.28703E+01, - & 0.31070E+01, 0.33413E+01, 0.35727E+01, 0.38012E+01, 0.40265E+01, - & 0.42479E+01, 0.44667E+01, 0.46835E+01, 0.49003E+01, 0.51172E+01, - & 0.53340E+01, 0.55508E+01, 0.57676E+01, 0.59845E+01, 0.62013E+01, - &-0.68374E-01, 0.66994E-01, 0.20478E+00, 0.36618E+00, 0.54944E+00, - & 0.74959E+00, 0.96202E+00, 0.11840E+01, 0.14105E+01, 0.16411E+01, - & 0.18742E+01, 0.21082E+01, 0.23419E+01, 0.25746E+01, 0.28056E+01, - & 0.30346E+01, 0.32610E+01, 0.34844E+01, 0.37048E+01, 0.39219E+01, - & 0.41351E+01, 0.43456E+01, 0.45541E+01, 0.47627E+01, 0.49712E+01, - & 0.51798E+01, 0.53883E+01, 0.55968E+01, 0.58054E+01, 0.60139E+01, - &-0.66764E-01, 0.67596E-01, 0.20430E+00, 0.36384E+00, 0.54437E+00, - & 0.74098E+00, 0.94914E+00, 0.11661E+01, 0.13872E+01, 0.16121E+01, - & 0.18388E+01, 0.20662E+01, 0.22930E+01, 0.25185E+01, 0.27421E+01, - & 0.29635E+01, 0.31822E+01, 0.33979E+01, 0.36104E+01, 0.38196E+01, - & 0.40247E+01, 0.42272E+01, 0.44277E+01, 0.46282E+01, 0.48287E+01, - & 0.50292E+01, 0.52297E+01, 0.54302E+01, 0.56307E+01, 0.58312E+01, - &-0.65151E-01, 0.68201E-01, 0.20382E+00, 0.36151E+00, 0.53933E+00, - & 0.73244E+00, 0.93639E+00, 0.11485E+01, 0.13643E+01, 0.15834E+01, - & 0.18040E+01, 0.20248E+01, 0.22448E+01, 0.24633E+01, 0.26798E+01, - & 0.28938E+01, 0.31050E+01, 0.33131E+01, 0.35180E+01, 0.37194E+01, - & 0.39168E+01, 0.41115E+01, 0.43042E+01, 0.44969E+01, 0.46896E+01, - & 0.48823E+01, 0.50750E+01, 0.52677E+01, 0.54604E+01, 0.56531E+01, - &-0.63536E-01, 0.68808E-01, 0.20335E+00, 0.35920E+00, 0.53433E+00, - & 0.72397E+00, 0.92378E+00, 0.11311E+01, 0.13417E+01, 0.15551E+01, - & 0.17696E+01, 0.19841E+01, 0.21975E+01, 0.24091E+01, 0.26185E+01, - & 0.28254E+01, 0.30293E+01, 0.32300E+01, 0.34275E+01, 0.36214E+01, - & 0.38112E+01, 0.39984E+01, 0.41835E+01, 0.43687E+01, 0.45538E+01, - & 0.47390E+01, 0.49241E+01, 0.51092E+01, 0.52944E+01, 0.54795E+01, - &-0.61919E-01, 0.69417E-01, 0.20288E+00, 0.35689E+00, 0.52937E+00, - & 0.71558E+00, 0.91128E+00, 0.11138E+01, 0.13193E+01, 0.15272E+01, - & 0.17358E+01, 0.19440E+01, 0.21509E+01, 0.23559E+01, 0.25584E+01, - & 0.27583E+01, 0.29551E+01, 0.31487E+01, 0.33388E+01, 0.35255E+01, - & 0.37080E+01, 0.38878E+01, 0.40656E+01, 0.42434E+01, 0.44212E+01, - & 0.45990E+01, 0.47768E+01, 0.49547E+01, 0.51325E+01, 0.53103E+01, - &-0.60280E-01, 0.70036E-01, 0.20242E+00, 0.35460E+00, 0.52444E+00, - & 0.70726E+00, 0.89892E+00, 0.10968E+01, 0.12972E+01, 0.14996E+01, - & 0.17024E+01, 0.19046E+01, 0.21051E+01, 0.23036E+01, 0.24994E+01, - & 0.26925E+01, 0.28824E+01, 0.30689E+01, 0.32521E+01, 0.34316E+01, - & 0.36071E+01, 0.37798E+01, 0.39505E+01, 0.41212E+01, 0.42919E+01, - & 0.44626E+01, 0.46332E+01, 0.48039E+01, 0.49746E+01, 0.51453E+01, - &-0.58678E-01, 0.70642E-01, 0.20195E+00, 0.35233E+00, 0.51954E+00, - & 0.69901E+00, 0.88669E+00, 0.10800E+01, 0.12755E+01, 0.14725E+01, - & 0.16696E+01, 0.18657E+01, 0.20601E+01, 0.22522E+01, 0.24415E+01, - & 0.26279E+01, 0.28111E+01, 0.29909E+01, 0.31672E+01, 0.33398E+01, - & 0.35084E+01, 0.36742E+01, 0.38380E+01, 0.40018E+01, 0.41656E+01, - & 0.43294E+01, 0.44932E+01, 0.46570E+01, 0.48208E+01, 0.49846E+01/ - - data ((g_grdl(i,j),j=1,30),i= 21, 30)/ - &-0.57074E-01, 0.71250E-01, 0.20149E+00, 0.35006E+00, 0.51468E+00, - & 0.69084E+00, 0.87457E+00, 0.10633E+01, 0.12540E+01, 0.14457E+01, - & 0.16373E+01, 0.18275E+01, 0.20159E+01, 0.22017E+01, 0.23846E+01, - & 0.25646E+01, 0.27412E+01, 0.29144E+01, 0.30840E+01, 0.32500E+01, - & 0.34119E+01, 0.35710E+01, 0.37281E+01, 0.38853E+01, 0.40424E+01, - & 0.41996E+01, 0.43567E+01, 0.45138E+01, 0.46710E+01, 0.48281E+01, - &-0.55448E-01, 0.71868E-01, 0.20104E+00, 0.34781E+00, 0.50986E+00, - & 0.68273E+00, 0.86259E+00, 0.10469E+01, 0.12327E+01, 0.14194E+01, - & 0.16054E+01, 0.17900E+01, 0.19724E+01, 0.21521E+01, 0.23289E+01, - & 0.25025E+01, 0.26728E+01, 0.28395E+01, 0.30027E+01, 0.31622E+01, - & 0.33176E+01, 0.34702E+01, 0.36209E+01, 0.37715E+01, 0.39222E+01, - & 0.40728E+01, 0.42235E+01, 0.43741E+01, 0.45248E+01, 0.46754E+01, - &-0.53818E-01, 0.72490E-01, 0.20058E+00, 0.34557E+00, 0.50507E+00, - & 0.67470E+00, 0.85072E+00, 0.10306E+01, 0.12118E+01, 0.13933E+01, - & 0.15740E+01, 0.17530E+01, 0.19296E+01, 0.21034E+01, 0.22741E+01, - & 0.24416E+01, 0.26057E+01, 0.27661E+01, 0.29230E+01, 0.30763E+01, - & 0.32254E+01, 0.33717E+01, 0.35161E+01, 0.36605E+01, 0.38049E+01, - & 0.39493E+01, 0.40937E+01, 0.42381E+01, 0.43825E+01, 0.45269E+01, - &-0.52186E-01, 0.73115E-01, 0.20013E+00, 0.34335E+00, 0.50031E+00, - & 0.66674E+00, 0.83898E+00, 0.10146E+01, 0.11911E+01, 0.13677E+01, - & 0.15431E+01, 0.17166E+01, 0.18876E+01, 0.20556E+01, 0.22204E+01, - & 0.23819E+01, 0.25399E+01, 0.26943E+01, 0.28451E+01, 0.29923E+01, - & 0.31352E+01, 0.32755E+01, 0.34138E+01, 0.35522E+01, 0.36905E+01, - & 0.38288E+01, 0.39671E+01, 0.41054E+01, 0.42437E+01, 0.43821E+01, - &-0.50569E-01, 0.73736E-01, 0.19969E+00, 0.34114E+00, 0.49559E+00, - & 0.65885E+00, 0.82736E+00, 0.99871E+00, 0.11707E+01, 0.13424E+01, - & 0.15127E+01, 0.16808E+01, 0.18463E+01, 0.20086E+01, 0.21676E+01, - & 0.23234E+01, 0.24755E+01, 0.26240E+01, 0.27689E+01, 0.29101E+01, - & 0.30472E+01, 0.31816E+01, 0.33140E+01, 0.34465E+01, 0.35789E+01, - & 0.37113E+01, 0.38438E+01, 0.39762E+01, 0.41087E+01, 0.42411E+01, - &-0.48930E-01, 0.74367E-01, 0.19925E+00, 0.33894E+00, 0.49091E+00, - & 0.65103E+00, 0.81586E+00, 0.98303E+00, 0.11505E+01, 0.13175E+01, - & 0.14827E+01, 0.16456E+01, 0.18056E+01, 0.19625E+01, 0.21159E+01, - & 0.22660E+01, 0.24124E+01, 0.25551E+01, 0.26943E+01, 0.28298E+01, - & 0.29611E+01, 0.30898E+01, 0.32166E+01, 0.33433E+01, 0.34701E+01, - & 0.35968E+01, 0.37236E+01, 0.38503E+01, 0.39771E+01, 0.41038E+01, - &-0.47306E-01, 0.74995E-01, 0.19881E+00, 0.33675E+00, 0.48626E+00, - & 0.64328E+00, 0.80448E+00, 0.96754E+00, 0.11307E+01, 0.12929E+01, - & 0.14532E+01, 0.16110E+01, 0.17657E+01, 0.19172E+01, 0.20651E+01, - & 0.22097E+01, 0.23506E+01, 0.24877E+01, 0.26213E+01, 0.27512E+01, - & 0.28770E+01, 0.30002E+01, 0.31214E+01, 0.32427E+01, 0.33639E+01, - & 0.34852E+01, 0.36064E+01, 0.37277E+01, 0.38489E+01, 0.39702E+01, - &-0.45678E-01, 0.75627E-01, 0.19838E+00, 0.33458E+00, 0.48164E+00, - & 0.63560E+00, 0.79322E+00, 0.95223E+00, 0.11110E+01, 0.12687E+01, - & 0.14242E+01, 0.15769E+01, 0.17265E+01, 0.18727E+01, 0.20153E+01, - & 0.21545E+01, 0.22900E+01, 0.24217E+01, 0.25499E+01, 0.26744E+01, - & 0.27948E+01, 0.29127E+01, 0.30286E+01, 0.31445E+01, 0.32604E+01, - & 0.33763E+01, 0.34923E+01, 0.36082E+01, 0.37241E+01, 0.38400E+01, - &-0.44027E-01, 0.76270E-01, 0.19796E+00, 0.33243E+00, 0.47706E+00, - & 0.62799E+00, 0.78208E+00, 0.93710E+00, 0.10917E+01, 0.12448E+01, - & 0.13955E+01, 0.15434E+01, 0.16880E+01, 0.18290E+01, 0.19665E+01, - & 0.21004E+01, 0.22307E+01, 0.23571E+01, 0.24800E+01, 0.25993E+01, - & 0.27146E+01, 0.28272E+01, 0.29380E+01, 0.30487E+01, 0.31595E+01, - & 0.32703E+01, 0.33810E+01, 0.34918E+01, 0.36026E+01, 0.37133E+01, - &-0.42390E-01, 0.76912E-01, 0.19754E+00, 0.33029E+00, 0.47252E+00, - & 0.62045E+00, 0.77106E+00, 0.92216E+00, 0.10726E+01, 0.12213E+01, - & 0.13674E+01, 0.15104E+01, 0.16501E+01, 0.17862E+01, 0.19186E+01, - & 0.20474E+01, 0.21726E+01, 0.22939E+01, 0.24117E+01, 0.25259E+01, - & 0.26361E+01, 0.27438E+01, 0.28496E+01, 0.29554E+01, 0.30611E+01, - & 0.31669E+01, 0.32727E+01, 0.33785E+01, 0.34843E+01, 0.35901E+01/ - - data ((g_grdl(i,j),j=1,30),i= 31, 40)/ - &-0.40748E-01, 0.77558E-01, 0.19713E+00, 0.32816E+00, 0.46801E+00, - & 0.61297E+00, 0.76015E+00, 0.90740E+00, 0.10537E+01, 0.11981E+01, - & 0.13396E+01, 0.14780E+01, 0.16129E+01, 0.17441E+01, 0.18716E+01, - & 0.19955E+01, 0.21156E+01, 0.22321E+01, 0.23449E+01, 0.24542E+01, - & 0.25595E+01, 0.26623E+01, 0.27633E+01, 0.28642E+01, 0.29652E+01, - & 0.30662E+01, 0.31671E+01, 0.32681E+01, 0.33690E+01, 0.34700E+01, - &-0.39101E-01, 0.78210E-01, 0.19672E+00, 0.32605E+00, 0.46354E+00, - & 0.60557E+00, 0.74937E+00, 0.89282E+00, 0.10351E+01, 0.11752E+01, - & 0.13123E+01, 0.14461E+01, 0.15763E+01, 0.17028E+01, 0.18255E+01, - & 0.19446E+01, 0.20599E+01, 0.21715E+01, 0.22796E+01, 0.23841E+01, - & 0.24847E+01, 0.25828E+01, 0.26792E+01, 0.27755E+01, 0.28718E+01, - & 0.29681E+01, 0.30644E+01, 0.31607E+01, 0.32570E+01, 0.33533E+01, - &-0.37447E-01, 0.78869E-01, 0.19632E+00, 0.32396E+00, 0.45910E+00, - & 0.59824E+00, 0.73869E+00, 0.87841E+00, 0.10168E+01, 0.11527E+01, - & 0.12855E+01, 0.14147E+01, 0.15404E+01, 0.16622E+01, 0.17802E+01, - & 0.18947E+01, 0.20053E+01, 0.21123E+01, 0.22157E+01, 0.23156E+01, - & 0.24117E+01, 0.25053E+01, 0.25970E+01, 0.26888E+01, 0.27806E+01, - & 0.28724E+01, 0.29642E+01, 0.30560E+01, 0.31478E+01, 0.32396E+01, - &-0.35787E-01, 0.79533E-01, 0.19593E+00, 0.32188E+00, 0.45470E+00, - & 0.59098E+00, 0.72814E+00, 0.86418E+00, 0.99867E+00, 0.11305E+01, - & 0.12590E+01, 0.13839E+01, 0.15051E+01, 0.16224E+01, 0.17359E+01, - & 0.18458E+01, 0.19519E+01, 0.20543E+01, 0.21533E+01, 0.22487E+01, - & 0.23403E+01, 0.24295E+01, 0.25170E+01, 0.26044E+01, 0.26919E+01, - & 0.27793E+01, 0.28668E+01, 0.29542E+01, 0.30417E+01, 0.31291E+01, - &-0.34141E-01, 0.80196E-01, 0.19555E+00, 0.31982E+00, 0.45033E+00, - & 0.58378E+00, 0.71769E+00, 0.85012E+00, 0.98081E+00, 0.11086E+01, - & 0.12330E+01, 0.13536E+01, 0.14704E+01, 0.15833E+01, 0.16924E+01, - & 0.17979E+01, 0.18996E+01, 0.19976E+01, 0.20922E+01, 0.21833E+01, - & 0.22707E+01, 0.23557E+01, 0.24389E+01, 0.25222E+01, 0.26054E+01, - & 0.26887E+01, 0.27719E+01, 0.28552E+01, 0.29385E+01, 0.30217E+01, - &-0.32467E-01, 0.80875E-01, 0.19517E+00, 0.31777E+00, 0.44600E+00, - & 0.57665E+00, 0.70735E+00, 0.83623E+00, 0.96318E+00, 0.10871E+01, - & 0.12073E+01, 0.13238E+01, 0.14364E+01, 0.15450E+01, 0.16498E+01, - & 0.17509E+01, 0.18484E+01, 0.19421E+01, 0.20325E+01, 0.21194E+01, - & 0.22027E+01, 0.22836E+01, 0.23628E+01, 0.24420E+01, 0.25212E+01, - & 0.26004E+01, 0.26796E+01, 0.27588E+01, 0.28380E+01, 0.29172E+01, - &-0.30786E-01, 0.81561E-01, 0.19480E+00, 0.31574E+00, 0.44170E+00, - & 0.56958E+00, 0.69713E+00, 0.82251E+00, 0.94578E+00, 0.10658E+01, - & 0.11821E+01, 0.12944E+01, 0.14029E+01, 0.15074E+01, 0.16080E+01, - & 0.17050E+01, 0.17982E+01, 0.18879E+01, 0.19741E+01, 0.20570E+01, - & 0.21363E+01, 0.22132E+01, 0.22885E+01, 0.23638E+01, 0.24390E+01, - & 0.25143E+01, 0.25896E+01, 0.26649E+01, 0.27401E+01, 0.28154E+01, - &-0.29115E-01, 0.82248E-01, 0.19444E+00, 0.31373E+00, 0.43744E+00, - & 0.56258E+00, 0.68701E+00, 0.80895E+00, 0.92862E+00, 0.10449E+01, - & 0.11572E+01, 0.12656E+01, 0.13700E+01, 0.14704E+01, 0.15670E+01, - & 0.16599E+01, 0.17491E+01, 0.18348E+01, 0.19171E+01, 0.19961E+01, - & 0.20715E+01, 0.21446E+01, 0.22161E+01, 0.22876E+01, 0.23591E+01, - & 0.24307E+01, 0.25022E+01, 0.25737E+01, 0.26452E+01, 0.27167E+01, - &-0.27417E-01, 0.82952E-01, 0.19409E+00, 0.31173E+00, 0.43321E+00, - & 0.55565E+00, 0.67700E+00, 0.79556E+00, 0.91169E+00, 0.10243E+01, - & 0.11328E+01, 0.12373E+01, 0.13378E+01, 0.14342E+01, 0.15268E+01, - & 0.16158E+01, 0.17011E+01, 0.17829E+01, 0.18613E+01, 0.19365E+01, - & 0.20082E+01, 0.20777E+01, 0.21455E+01, 0.22134E+01, 0.22812E+01, - & 0.23491E+01, 0.24170E+01, 0.24848E+01, 0.25527E+01, 0.26205E+01, - &-0.25688E-01, 0.83673E-01, 0.19375E+00, 0.30974E+00, 0.42901E+00, - & 0.54877E+00, 0.66710E+00, 0.78233E+00, 0.89499E+00, 0.10039E+01, - & 0.11087E+01, 0.12094E+01, 0.13060E+01, 0.13987E+01, 0.14874E+01, - & 0.15726E+01, 0.16541E+01, 0.17321E+01, 0.18069E+01, 0.18784E+01, - & 0.19465E+01, 0.20124E+01, 0.20768E+01, 0.21411E+01, 0.22055E+01, - & 0.22698E+01, 0.23342E+01, 0.23985E+01, 0.24629E+01, 0.25272E+01/ - - data ((g_grdl(i,j),j=1,30),i= 41, 50)/ - &-0.23968E-01, 0.84397E-01, 0.19342E+00, 0.30778E+00, 0.42485E+00, - & 0.54197E+00, 0.65730E+00, 0.76927E+00, 0.87851E+00, 0.98389E+00, - & 0.10850E+01, 0.11820E+01, 0.12749E+01, 0.13638E+01, 0.14488E+01, - & 0.15302E+01, 0.16081E+01, 0.16825E+01, 0.17536E+01, 0.18216E+01, - & 0.18863E+01, 0.19488E+01, 0.20097E+01, 0.20707E+01, 0.21316E+01, - & 0.21926E+01, 0.22535E+01, 0.23145E+01, 0.23754E+01, 0.24364E+01, - &-0.22237E-01, 0.85132E-01, 0.19310E+00, 0.30583E+00, 0.42073E+00, - & 0.53522E+00, 0.64761E+00, 0.75636E+00, 0.86226E+00, 0.96415E+00, - & 0.10617E+01, 0.11551E+01, 0.12443E+01, 0.13296E+01, 0.14109E+01, - & 0.14888E+01, 0.15631E+01, 0.16339E+01, 0.17016E+01, 0.17662E+01, - & 0.18275E+01, 0.18867E+01, 0.19444E+01, 0.20021E+01, 0.20598E+01, - & 0.21174E+01, 0.21751E+01, 0.22328E+01, 0.22905E+01, 0.23482E+01, - &-0.20494E-01, 0.85880E-01, 0.19279E+00, 0.30390E+00, 0.41664E+00, - & 0.52855E+00, 0.63803E+00, 0.74362E+00, 0.84623E+00, 0.94471E+00, - & 0.10388E+01, 0.11286E+01, 0.12143E+01, 0.12960E+01, 0.13738E+01, - & 0.14482E+01, 0.15190E+01, 0.15865E+01, 0.16508E+01, 0.17121E+01, - & 0.17702E+01, 0.18262E+01, 0.18807E+01, 0.19353E+01, 0.19899E+01, - & 0.20444E+01, 0.20990E+01, 0.21535E+01, 0.22081E+01, 0.22627E+01, - &-0.18738E-01, 0.86641E-01, 0.19250E+00, 0.30199E+00, 0.41258E+00, - & 0.52194E+00, 0.62855E+00, 0.73103E+00, 0.83042E+00, 0.92556E+00, - & 0.10162E+01, 0.11026E+01, 0.11849E+01, 0.12631E+01, 0.13375E+01, - & 0.14085E+01, 0.14759E+01, 0.15401E+01, 0.16012E+01, 0.16593E+01, - & 0.17142E+01, 0.17672E+01, 0.18187E+01, 0.18702E+01, 0.19217E+01, - & 0.19733E+01, 0.20248E+01, 0.20763E+01, 0.21278E+01, 0.21793E+01, - &-0.16949E-01, 0.87423E-01, 0.19222E+00, 0.30010E+00, 0.40856E+00, - & 0.51539E+00, 0.61918E+00, 0.71861E+00, 0.81482E+00, 0.90670E+00, - & 0.99402E+00, 0.10770E+01, 0.11559E+01, 0.12308E+01, 0.13019E+01, - & 0.13696E+01, 0.14338E+01, 0.14947E+01, 0.15527E+01, 0.16078E+01, - & 0.16597E+01, 0.17097E+01, 0.17583E+01, 0.18069E+01, 0.18556E+01, - & 0.19042E+01, 0.19528E+01, 0.20014E+01, 0.20501E+01, 0.20987E+01, - &-0.15143E-01, 0.88220E-01, 0.19196E+00, 0.29823E+00, 0.40458E+00, - & 0.50890E+00, 0.60991E+00, 0.70633E+00, 0.79944E+00, 0.88811E+00, - & 0.97217E+00, 0.10519E+01, 0.11275E+01, 0.11991E+01, 0.12670E+01, - & 0.13315E+01, 0.13925E+01, 0.14504E+01, 0.15054E+01, 0.15574E+01, - & 0.16065E+01, 0.16537E+01, 0.16995E+01, 0.17453E+01, 0.17911E+01, - & 0.18369E+01, 0.18827E+01, 0.19286E+01, 0.19744E+01, 0.20202E+01, - &-0.13321E-01, 0.89035E-01, 0.19171E+00, 0.29638E+00, 0.40064E+00, - & 0.50248E+00, 0.60074E+00, 0.69421E+00, 0.78427E+00, 0.86980E+00, - & 0.95068E+00, 0.10272E+01, 0.10996E+01, 0.11681E+01, 0.12328E+01, - & 0.12942E+01, 0.13522E+01, 0.14071E+01, 0.14591E+01, 0.15084E+01, - & 0.15546E+01, 0.15991E+01, 0.16422E+01, 0.16853E+01, 0.17284E+01, - & 0.17715E+01, 0.18147E+01, 0.18578E+01, 0.19009E+01, 0.19440E+01, - &-0.11462E-01, 0.89874E-01, 0.19147E+00, 0.29455E+00, 0.39673E+00, - & 0.49612E+00, 0.59168E+00, 0.68224E+00, 0.76931E+00, 0.85177E+00, - & 0.92954E+00, 0.10029E+01, 0.10723E+01, 0.11376E+01, 0.11993E+01, - & 0.12577E+01, 0.13128E+01, 0.13648E+01, 0.14140E+01, 0.14605E+01, - & 0.15040E+01, 0.15459E+01, 0.15864E+01, 0.16269E+01, 0.16674E+01, - & 0.17079E+01, 0.17485E+01, 0.17890E+01, 0.18295E+01, 0.18700E+01, - &-0.95828E-02, 0.90732E-01, 0.19126E+00, 0.29274E+00, 0.39285E+00, - & 0.48983E+00, 0.58272E+00, 0.67043E+00, 0.75457E+00, 0.83402E+00, - & 0.90875E+00, 0.97912E+00, 0.10454E+01, 0.11078E+01, 0.11665E+01, - & 0.12220E+01, 0.12742E+01, 0.13235E+01, 0.13699E+01, 0.14137E+01, - & 0.14547E+01, 0.14940E+01, 0.15321E+01, 0.15701E+01, 0.16081E+01, - & 0.16462E+01, 0.16842E+01, 0.17222E+01, 0.17603E+01, 0.17983E+01, - &-0.76828E-02, 0.91611E-01, 0.19107E+00, 0.29096E+00, 0.38902E+00, - & 0.48361E+00, 0.57386E+00, 0.65877E+00, 0.74002E+00, 0.81654E+00, - & 0.88830E+00, 0.95570E+00, 0.10190E+01, 0.10785E+01, 0.11343E+01, - & 0.11870E+01, 0.12365E+01, 0.12831E+01, 0.13269E+01, 0.13682E+01, - & 0.14067E+01, 0.14435E+01, 0.14792E+01, 0.15148E+01, 0.15505E+01, - & 0.15861E+01, 0.16218E+01, 0.16574E+01, 0.16931E+01, 0.17287E+01/ - - data ((g_grdl(i,j),j=1,30),i= 51, 60)/ - &-0.57605E-02, 0.92513E-01, 0.19089E+00, 0.28920E+00, 0.38523E+00, - & 0.47745E+00, 0.56511E+00, 0.64726E+00, 0.72569E+00, 0.79932E+00, - & 0.86818E+00, 0.93269E+00, 0.99316E+00, 0.10498E+01, 0.11029E+01, - & 0.11528E+01, 0.11997E+01, 0.12436E+01, 0.12849E+01, 0.13237E+01, - & 0.13599E+01, 0.13944E+01, 0.14277E+01, 0.14611E+01, 0.14944E+01, - & 0.15278E+01, 0.15612E+01, 0.15945E+01, 0.16279E+01, 0.16612E+01, - &-0.38138E-02, 0.93439E-01, 0.19074E+00, 0.28747E+00, 0.38148E+00, - & 0.47135E+00, 0.55645E+00, 0.63590E+00, 0.71156E+00, 0.78237E+00, - & 0.84841E+00, 0.91010E+00, 0.96777E+00, 0.10217E+01, 0.10721E+01, - & 0.11194E+01, 0.11636E+01, 0.12051E+01, 0.12440E+01, 0.12804E+01, - & 0.13142E+01, 0.13465E+01, 0.13776E+01, 0.14088E+01, 0.14399E+01, - & 0.14711E+01, 0.15022E+01, 0.15334E+01, 0.15645E+01, 0.15956E+01, - &-0.18038E-02, 0.94405E-01, 0.19062E+00, 0.28577E+00, 0.37777E+00, - & 0.46532E+00, 0.54790E+00, 0.62469E+00, 0.69763E+00, 0.76569E+00, - & 0.82896E+00, 0.88790E+00, 0.94287E+00, 0.99409E+00, 0.10419E+01, - & 0.10866E+01, 0.11284E+01, 0.11675E+01, 0.12040E+01, 0.12381E+01, - & 0.12698E+01, 0.12999E+01, 0.13289E+01, 0.13580E+01, 0.13870E+01, - & 0.14160E+01, 0.14451E+01, 0.14741E+01, 0.15031E+01, 0.15322E+01, - & 0.23775E-03, 0.95401E-01, 0.19052E+00, 0.28409E+00, 0.37410E+00, - & 0.45937E+00, 0.53946E+00, 0.61363E+00, 0.68390E+00, 0.74927E+00, - & 0.80984E+00, 0.86611E+00, 0.91844E+00, 0.96708E+00, 0.10123E+01, - & 0.10546E+01, 0.10940E+01, 0.11307E+01, 0.11650E+01, 0.11969E+01, - & 0.12265E+01, 0.12545E+01, 0.12815E+01, 0.13085E+01, 0.13355E+01, - & 0.13625E+01, 0.13895E+01, 0.14166E+01, 0.14436E+01, 0.14706E+01, - & 0.23103E-02, 0.96428E-01, 0.19045E+00, 0.28245E+00, 0.37048E+00, - & 0.45347E+00, 0.53111E+00, 0.60271E+00, 0.67038E+00, 0.73310E+00, - & 0.79104E+00, 0.84471E+00, 0.89448E+00, 0.94061E+00, 0.98342E+00, - & 0.10233E+01, 0.10604E+01, 0.10948E+01, 0.11269E+01, 0.11568E+01, - & 0.11843E+01, 0.12103E+01, 0.12354E+01, 0.12605E+01, 0.12855E+01, - & 0.13106E+01, 0.13357E+01, 0.13607E+01, 0.13858E+01, 0.14108E+01, - & 0.44153E-02, 0.97487E-01, 0.19041E+00, 0.28084E+00, 0.36690E+00, - & 0.44765E+00, 0.52288E+00, 0.59195E+00, 0.65706E+00, 0.71720E+00, - & 0.77257E+00, 0.82371E+00, 0.87099E+00, 0.91469E+00, 0.95513E+00, - & 0.99274E+00, 0.10276E+01, 0.10598E+01, 0.10898E+01, 0.11176E+01, - & 0.11432E+01, 0.11674E+01, 0.11906E+01, 0.12138E+01, 0.12369E+01, - & 0.12601E+01, 0.12833E+01, 0.13065E+01, 0.13297E+01, 0.13529E+01, - & 0.65945E-02, 0.98597E-01, 0.19040E+00, 0.27927E+00, 0.36337E+00, - & 0.44190E+00, 0.51474E+00, 0.58134E+00, 0.64393E+00, 0.70155E+00, - & 0.75442E+00, 0.80308E+00, 0.84795E+00, 0.88929E+00, 0.92744E+00, - & 0.96282E+00, 0.99550E+00, 0.10257E+01, 0.10536E+01, 0.10795E+01, - & 0.11032E+01, 0.11255E+01, 0.11470E+01, 0.11684E+01, 0.11898E+01, - & 0.12112E+01, 0.12326E+01, 0.12540E+01, 0.12754E+01, 0.12968E+01, - & 0.88154E-02, 0.99747E-01, 0.19043E+00, 0.27773E+00, 0.35989E+00, - & 0.43623E+00, 0.50672E+00, 0.57088E+00, 0.63101E+00, 0.68616E+00, - & 0.73659E+00, 0.78285E+00, 0.82537E+00, 0.86442E+00, 0.90035E+00, - & 0.93358E+00, 0.96417E+00, 0.99234E+00, 0.10184E+01, 0.10424E+01, - & 0.10643E+01, 0.10849E+01, 0.11046E+01, 0.11243E+01, 0.11440E+01, - & 0.11637E+01, 0.11834E+01, 0.12032E+01, 0.12229E+01, 0.12426E+01, - & 0.11079E-01, 0.10094E+00, 0.19051E+00, 0.27624E+00, 0.35646E+00, - & 0.43063E+00, 0.49881E+00, 0.56057E+00, 0.61829E+00, 0.67103E+00, - & 0.71907E+00, 0.76300E+00, 0.80323E+00, 0.84007E+00, 0.87385E+00, - & 0.90500E+00, 0.93359E+00, 0.95982E+00, 0.98398E+00, 0.10062E+01, - & 0.10264E+01, 0.10453E+01, 0.10634E+01, 0.10815E+01, 0.10996E+01, - & 0.11177E+01, 0.11358E+01, 0.11539E+01, 0.11720E+01, 0.11900E+01, - & 0.13427E-01, 0.10219E+00, 0.19062E+00, 0.27478E+00, 0.35309E+00, - & 0.42511E+00, 0.49100E+00, 0.55041E+00, 0.60577E+00, 0.65615E+00, - & 0.70187E+00, 0.74352E+00, 0.78154E+00, 0.81623E+00, 0.84794E+00, - & 0.87708E+00, 0.90373E+00, 0.92811E+00, 0.95047E+00, 0.97096E+00, - & 0.98949E+00, 0.10069E+01, 0.10234E+01, 0.10399E+01, 0.10565E+01, - & 0.10730E+01, 0.10895E+01, 0.11061E+01, 0.11226E+01, 0.11391E+01/ - - data ((g_grdl(i,j),j=1,30),i= 61, 70)/ - & 0.15828E-01, 0.10350E+00, 0.19078E+00, 0.27338E+00, 0.34978E+00, - & 0.41967E+00, 0.48331E+00, 0.54041E+00, 0.59345E+00, 0.64153E+00, - & 0.68498E+00, 0.72442E+00, 0.76029E+00, 0.79290E+00, 0.82260E+00, - & 0.84981E+00, 0.87459E+00, 0.89718E+00, 0.91782E+00, 0.93665E+00, - & 0.95362E+00, 0.96946E+00, 0.98450E+00, 0.99954E+00, 0.10146E+01, - & 0.10296E+01, 0.10447E+01, 0.10597E+01, 0.10748E+01, 0.10898E+01, - & 0.18304E-01, 0.10487E+00, 0.19100E+00, 0.27203E+00, 0.34653E+00, - & 0.41431E+00, 0.47574E+00, 0.53057E+00, 0.58134E+00, 0.62716E+00, - & 0.66840E+00, 0.70570E+00, 0.73948E+00, 0.77008E+00, 0.79783E+00, - & 0.82317E+00, 0.84616E+00, 0.86703E+00, 0.88602E+00, 0.90327E+00, - & 0.91873E+00, 0.93312E+00, 0.94674E+00, 0.96037E+00, 0.97399E+00, - & 0.98762E+00, 0.10012E+01, 0.10149E+01, 0.10285E+01, 0.10421E+01, - & 0.20841E-01, 0.10629E+00, 0.19127E+00, 0.27073E+00, 0.34335E+00, - & 0.40905E+00, 0.46829E+00, 0.52089E+00, 0.56943E+00, 0.61305E+00, - & 0.65214E+00, 0.68734E+00, 0.71911E+00, 0.74775E+00, 0.77363E+00, - & 0.79717E+00, 0.81843E+00, 0.83764E+00, 0.85505E+00, 0.87078E+00, - & 0.88480E+00, 0.89780E+00, 0.91007E+00, 0.92234E+00, 0.93462E+00, - & 0.94689E+00, 0.95916E+00, 0.97143E+00, 0.98370E+00, 0.99597E+00, - & 0.23482E-01, 0.10780E+00, 0.19161E+00, 0.26950E+00, 0.34024E+00, - & 0.40387E+00, 0.46096E+00, 0.51137E+00, 0.55773E+00, 0.59920E+00, - & 0.63620E+00, 0.66936E+00, 0.69916E+00, 0.72592E+00, 0.74999E+00, - & 0.77178E+00, 0.79138E+00, 0.80900E+00, 0.82489E+00, 0.83918E+00, - & 0.85183E+00, 0.86350E+00, 0.87448E+00, 0.88546E+00, 0.89644E+00, - & 0.90742E+00, 0.91840E+00, 0.92939E+00, 0.94037E+00, 0.95135E+00, - & 0.26198E-01, 0.10939E+00, 0.19201E+00, 0.26834E+00, 0.33721E+00, - & 0.39880E+00, 0.45376E+00, 0.50202E+00, 0.54624E+00, 0.58561E+00, - & 0.62056E+00, 0.65175E+00, 0.67965E+00, 0.70458E+00, 0.72690E+00, - & 0.74701E+00, 0.76501E+00, 0.78110E+00, 0.79554E+00, 0.80844E+00, - & 0.81978E+00, 0.83018E+00, 0.83993E+00, 0.84968E+00, 0.85943E+00, - & 0.86918E+00, 0.87893E+00, 0.88868E+00, 0.89843E+00, 0.90818E+00, - & 0.29031E-01, 0.11106E+00, 0.19249E+00, 0.26724E+00, 0.33426E+00, - & 0.39383E+00, 0.44669E+00, 0.49285E+00, 0.53497E+00, 0.57229E+00, - & 0.60525E+00, 0.63451E+00, 0.66056E+00, 0.68373E+00, 0.70436E+00, - & 0.72286E+00, 0.73931E+00, 0.75394E+00, 0.76698E+00, 0.77855E+00, - & 0.78864E+00, 0.79784E+00, 0.80642E+00, 0.81500E+00, 0.82358E+00, - & 0.83216E+00, 0.84073E+00, 0.84931E+00, 0.85789E+00, 0.86647E+00, - & 0.31956E-01, 0.11283E+00, 0.19305E+00, 0.26624E+00, 0.33140E+00, - & 0.38897E+00, 0.43977E+00, 0.48385E+00, 0.52392E+00, 0.55923E+00, - & 0.59025E+00, 0.61764E+00, 0.64191E+00, 0.66336E+00, 0.68236E+00, - & 0.69930E+00, 0.71427E+00, 0.72749E+00, 0.73920E+00, 0.74950E+00, - & 0.75839E+00, 0.76644E+00, 0.77391E+00, 0.78137E+00, 0.78884E+00, - & 0.79630E+00, 0.80376E+00, 0.81123E+00, 0.81869E+00, 0.82615E+00, - & 0.34995E-01, 0.11470E+00, 0.19371E+00, 0.26532E+00, 0.32865E+00, - & 0.38424E+00, 0.43299E+00, 0.47504E+00, 0.51309E+00, 0.54644E+00, - & 0.57557E+00, 0.60115E+00, 0.62368E+00, 0.64347E+00, 0.66090E+00, - & 0.67634E+00, 0.68989E+00, 0.70176E+00, 0.71218E+00, 0.72127E+00, - & 0.72902E+00, 0.73598E+00, 0.74238E+00, 0.74878E+00, 0.75519E+00, - & 0.76159E+00, 0.76799E+00, 0.77439E+00, 0.78079E+00, 0.78719E+00, - & 0.38161E-01, 0.11668E+00, 0.19447E+00, 0.26450E+00, 0.32600E+00, - & 0.37963E+00, 0.42637E+00, 0.46641E+00, 0.50250E+00, 0.53394E+00, - & 0.56122E+00, 0.58504E+00, 0.60588E+00, 0.62407E+00, 0.63997E+00, - & 0.65397E+00, 0.66615E+00, 0.67672E+00, 0.68592E+00, 0.69385E+00, - & 0.70051E+00, 0.70643E+00, 0.71182E+00, 0.71721E+00, 0.72261E+00, - & 0.72800E+00, 0.73339E+00, 0.73878E+00, 0.74417E+00, 0.74957E+00, - & 0.41484E-01, 0.11879E+00, 0.19534E+00, 0.26379E+00, 0.32347E+00, - & 0.37516E+00, 0.41991E+00, 0.45799E+00, 0.49215E+00, 0.52171E+00, - & 0.54719E+00, 0.56930E+00, 0.58850E+00, 0.60515E+00, 0.61958E+00, - & 0.63218E+00, 0.64305E+00, 0.65238E+00, 0.66040E+00, 0.66722E+00, - & 0.67284E+00, 0.67777E+00, 0.68220E+00, 0.68663E+00, 0.69106E+00, - & 0.69550E+00, 0.69993E+00, 0.70436E+00, 0.70879E+00, 0.71322E+00/ - - data ((g_grdl(i,j),j=1,30),i= 71, 80)/ - & 0.44941E-01, 0.12104E+00, 0.19634E+00, 0.26321E+00, 0.32108E+00, - & 0.37084E+00, 0.41364E+00, 0.44978E+00, 0.48204E+00, 0.50977E+00, - & 0.53350E+00, 0.55394E+00, 0.57156E+00, 0.58670E+00, 0.59972E+00, - & 0.61098E+00, 0.62057E+00, 0.62871E+00, 0.63561E+00, 0.64137E+00, - & 0.64600E+00, 0.64998E+00, 0.65350E+00, 0.65702E+00, 0.66054E+00, - & 0.66406E+00, 0.66758E+00, 0.67109E+00, 0.67461E+00, 0.67813E+00, - & 0.48563E-01, 0.12344E+00, 0.19748E+00, 0.26277E+00, 0.31883E+00, - & 0.36668E+00, 0.40755E+00, 0.44179E+00, 0.47219E+00, 0.49813E+00, - & 0.52015E+00, 0.53896E+00, 0.55504E+00, 0.56874E+00, 0.58038E+00, - & 0.59034E+00, 0.59872E+00, 0.60571E+00, 0.61153E+00, 0.61628E+00, - & 0.61997E+00, 0.62305E+00, 0.62570E+00, 0.62835E+00, 0.63100E+00, - & 0.63365E+00, 0.63630E+00, 0.63895E+00, 0.64160E+00, 0.64425E+00, - & 0.52368E-01, 0.12601E+00, 0.19878E+00, 0.26248E+00, 0.31675E+00, - & 0.36271E+00, 0.40166E+00, 0.43404E+00, 0.46261E+00, 0.48679E+00, - & 0.50715E+00, 0.52438E+00, 0.53896E+00, 0.55125E+00, 0.56157E+00, - & 0.57028E+00, 0.57749E+00, 0.58338E+00, 0.58816E+00, 0.59194E+00, - & 0.59473E+00, 0.59696E+00, 0.59878E+00, 0.60061E+00, 0.60243E+00, - & 0.60425E+00, 0.60608E+00, 0.60790E+00, 0.60972E+00, 0.61155E+00, - & 0.56393E-01, 0.12878E+00, 0.20026E+00, 0.26237E+00, 0.31484E+00, - & 0.35893E+00, 0.39600E+00, 0.42653E+00, 0.45331E+00, 0.47578E+00, - & 0.49450E+00, 0.51019E+00, 0.52332E+00, 0.53424E+00, 0.54328E+00, - & 0.55078E+00, 0.55686E+00, 0.56169E+00, 0.56548E+00, 0.56833E+00, - & 0.57027E+00, 0.57168E+00, 0.57271E+00, 0.57375E+00, 0.57479E+00, - & 0.57583E+00, 0.57686E+00, 0.57790E+00, 0.57894E+00, 0.57997E+00, - & 0.60646E-01, 0.13176E+00, 0.20194E+00, 0.26245E+00, 0.31315E+00, - & 0.35537E+00, 0.39057E+00, 0.41929E+00, 0.44430E+00, 0.46509E+00, - & 0.48222E+00, 0.49640E+00, 0.50812E+00, 0.51771E+00, 0.52551E+00, - & 0.53184E+00, 0.53683E+00, 0.54064E+00, 0.54348E+00, 0.54545E+00, - & 0.54656E+00, 0.54719E+00, 0.54748E+00, 0.54777E+00, 0.54806E+00, - & 0.54835E+00, 0.54864E+00, 0.54893E+00, 0.54922E+00, 0.54951E+00, - & 0.65114E-01, 0.13497E+00, 0.20384E+00, 0.26276E+00, 0.31168E+00, - & 0.35205E+00, 0.38541E+00, 0.41233E+00, 0.43561E+00, 0.45474E+00, - & 0.47030E+00, 0.48302E+00, 0.49336E+00, 0.50166E+00, 0.50825E+00, - & 0.51346E+00, 0.51739E+00, 0.52022E+00, 0.52215E+00, 0.52326E+00, - & 0.52359E+00, 0.52348E+00, 0.52305E+00, 0.52263E+00, 0.52221E+00, - & 0.52178E+00, 0.52136E+00, 0.52093E+00, 0.52051E+00, 0.52009E+00, - & 0.69877E-01, 0.13845E+00, 0.20601E+00, 0.26333E+00, 0.31047E+00, - & 0.34900E+00, 0.38053E+00, 0.40568E+00, 0.42724E+00, 0.44474E+00, - & 0.45878E+00, 0.47006E+00, 0.47905E+00, 0.48609E+00, 0.49151E+00, - & 0.49562E+00, 0.49853E+00, 0.50042E+00, 0.50146E+00, 0.50176E+00, - & 0.50134E+00, 0.50052E+00, 0.49941E+00, 0.49831E+00, 0.49720E+00, - & 0.49610E+00, 0.49499E+00, 0.49389E+00, 0.49278E+00, 0.49168E+00, - & 0.74942E-01, 0.14223E+00, 0.20847E+00, 0.26418E+00, 0.30955E+00, - & 0.34625E+00, 0.37596E+00, 0.39936E+00, 0.41923E+00, 0.43512E+00, - & 0.44765E+00, 0.45751E+00, 0.46519E+00, 0.47100E+00, 0.47528E+00, - & 0.47832E+00, 0.48025E+00, 0.48122E+00, 0.48141E+00, 0.48092E+00, - & 0.47978E+00, 0.47827E+00, 0.47652E+00, 0.47476E+00, 0.47300E+00, - & 0.47125E+00, 0.46949E+00, 0.46774E+00, 0.46598E+00, 0.46422E+00, - & 0.80366E-01, 0.14636E+00, 0.21127E+00, 0.26537E+00, 0.30896E+00, - & 0.34384E+00, 0.37174E+00, 0.39339E+00, 0.41159E+00, 0.42589E+00, - & 0.43693E+00, 0.44540E+00, 0.45178E+00, 0.45640E+00, 0.45955E+00, - & 0.46156E+00, 0.46252E+00, 0.46260E+00, 0.46197E+00, 0.46072E+00, - & 0.45888E+00, 0.45673E+00, 0.45435E+00, 0.45197E+00, 0.44959E+00, - & 0.44721E+00, 0.44483E+00, 0.44245E+00, 0.44007E+00, 0.43769E+00, - & 0.86202E-01, 0.15089E+00, 0.21445E+00, 0.26695E+00, 0.30876E+00, - & 0.34180E+00, 0.36789E+00, 0.38782E+00, 0.40434E+00, 0.41707E+00, - & 0.42663E+00, 0.43373E+00, 0.43883E+00, 0.44226E+00, 0.44432E+00, - & 0.44531E+00, 0.44533E+00, 0.44455E+00, 0.44312E+00, 0.44113E+00, - & 0.43863E+00, 0.43584E+00, 0.43286E+00, 0.42989E+00, 0.42691E+00, - & 0.42393E+00, 0.42095E+00, 0.41797E+00, 0.41499E+00, 0.41201E+00/ - - data ((g_grdl(i,j),j=1,30),i= 81, 90)/ - & 0.92493E-01, 0.15587E+00, 0.21809E+00, 0.26896E+00, 0.30899E+00, - & 0.34020E+00, 0.36448E+00, 0.38267E+00, 0.39752E+00, 0.40867E+00, - & 0.41678E+00, 0.42251E+00, 0.42635E+00, 0.42861E+00, 0.42958E+00, - & 0.42957E+00, 0.42867E+00, 0.42704E+00, 0.42483E+00, 0.42213E+00, - & 0.41898E+00, 0.41559E+00, 0.41203E+00, 0.40847E+00, 0.40492E+00, - & 0.40136E+00, 0.39781E+00, 0.39425E+00, 0.39069E+00, 0.38714E+00, - & 0.99313E-01, 0.16138E+00, 0.22226E+00, 0.27150E+00, 0.30973E+00, - & 0.33909E+00, 0.36154E+00, 0.37798E+00, 0.39116E+00, 0.40074E+00, - & 0.40737E+00, 0.41174E+00, 0.41431E+00, 0.41541E+00, 0.41532E+00, - & 0.41432E+00, 0.41251E+00, 0.41005E+00, 0.40707E+00, 0.40367E+00, - & 0.39989E+00, 0.39591E+00, 0.39180E+00, 0.38768E+00, 0.38357E+00, - & 0.37946E+00, 0.37534E+00, 0.37123E+00, 0.36712E+00, 0.36300E+00, - & 0.10675E+00, 0.16750E+00, 0.22704E+00, 0.27464E+00, 0.31104E+00, - & 0.33853E+00, 0.35914E+00, 0.37381E+00, 0.38529E+00, 0.39328E+00, - & 0.39843E+00, 0.40143E+00, 0.40274E+00, 0.40267E+00, 0.40151E+00, - & 0.39953E+00, 0.39682E+00, 0.39353E+00, 0.38981E+00, 0.38572E+00, - & 0.38133E+00, 0.37678E+00, 0.37212E+00, 0.36747E+00, 0.36281E+00, - & 0.35815E+00, 0.35350E+00, 0.34884E+00, 0.34419E+00, 0.33953E+00, - & 0.11493E+00, 0.17437E+00, 0.23255E+00, 0.27849E+00, 0.31304E+00, - & 0.33862E+00, 0.35734E+00, 0.37021E+00, 0.37996E+00, 0.38632E+00, - & 0.38997E+00, 0.39158E+00, 0.39161E+00, 0.39037E+00, 0.38814E+00, - & 0.38517E+00, 0.38156E+00, 0.37746E+00, 0.37299E+00, 0.36823E+00, - & 0.36323E+00, 0.35812E+00, 0.35294E+00, 0.34776E+00, 0.34258E+00, - & 0.33739E+00, 0.33221E+00, 0.32703E+00, 0.32184E+00, 0.31666E+00, - & 0.12396E+00, 0.18210E+00, 0.23894E+00, 0.28319E+00, 0.31584E+00, - & 0.33944E+00, 0.35622E+00, 0.36723E+00, 0.37520E+00, 0.37989E+00, - & 0.38200E+00, 0.38219E+00, 0.38092E+00, 0.37849E+00, 0.37516E+00, - & 0.37120E+00, 0.36669E+00, 0.36177E+00, 0.35656E+00, 0.35113E+00, - & 0.34554E+00, 0.33988E+00, 0.33418E+00, 0.32848E+00, 0.32278E+00, - & 0.31709E+00, 0.31139E+00, 0.30569E+00, 0.29999E+00, 0.29429E+00, - & 0.13405E+00, 0.19089E+00, 0.24639E+00, 0.28890E+00, 0.31958E+00, - & 0.34113E+00, 0.35587E+00, 0.36495E+00, 0.37106E+00, 0.37402E+00, - & 0.37452E+00, 0.37325E+00, 0.37063E+00, 0.36697E+00, 0.36254E+00, - & 0.35756E+00, 0.35213E+00, 0.34639E+00, 0.34044E+00, 0.33435E+00, - & 0.32817E+00, 0.32197E+00, 0.31577E+00, 0.30956E+00, 0.30336E+00, - & 0.29716E+00, 0.29095E+00, 0.28475E+00, 0.27855E+00, 0.27234E+00, - & 0.14544E+00, 0.20099E+00, 0.25513E+00, 0.29584E+00, 0.32445E+00, - & 0.34384E+00, 0.35642E+00, 0.36344E+00, 0.36758E+00, 0.36871E+00, - & 0.36754E+00, 0.36473E+00, 0.36071E+00, 0.35578E+00, 0.35020E+00, - & 0.34418E+00, 0.33782E+00, 0.33125E+00, 0.32454E+00, 0.31778E+00, - & 0.31102E+00, 0.30430E+00, 0.29760E+00, 0.29090E+00, 0.28420E+00, - & 0.27750E+00, 0.27080E+00, 0.26410E+00, 0.25740E+00, 0.25070E+00, - & 0.15848E+00, 0.21270E+00, 0.26547E+00, 0.30429E+00, 0.33068E+00, - & 0.34773E+00, 0.35799E+00, 0.36279E+00, 0.36483E+00, 0.36400E+00, - & 0.36103E+00, 0.35659E+00, 0.35109E+00, 0.34483E+00, 0.33806E+00, - & 0.33096E+00, 0.32364E+00, 0.31621E+00, 0.30875E+00, 0.30132E+00, - & 0.29398E+00, 0.28673E+00, 0.27955E+00, 0.27236E+00, 0.26517E+00, - & 0.25799E+00, 0.25080E+00, 0.24362E+00, 0.23643E+00, 0.22925E+00, - & 0.17357E+00, 0.22646E+00, 0.27782E+00, 0.31460E+00, 0.33856E+00, - & 0.35303E+00, 0.36073E+00, 0.36310E+00, 0.36283E+00, 0.35986E+00, - & 0.35496E+00, 0.34876E+00, 0.34168E+00, 0.33401E+00, 0.32598E+00, - & 0.31776E+00, 0.30944E+00, 0.30114E+00, 0.29291E+00, 0.28481E+00, - & 0.27690E+00, 0.26913E+00, 0.26147E+00, 0.25381E+00, 0.24616E+00, - & 0.23850E+00, 0.23084E+00, 0.22318E+00, 0.21553E+00, 0.20787E+00, - & 0.19141E+00, 0.24289E+00, 0.29275E+00, 0.32727E+00, 0.34848E+00, - & 0.36003E+00, 0.36484E+00, 0.36448E+00, 0.36162E+00, 0.35628E+00, - & 0.34924E+00, 0.34112E+00, 0.33233E+00, 0.32315E+00, 0.31379E+00, - & 0.30438E+00, 0.29504E+00, 0.28583E+00, 0.27682E+00, 0.26805E+00, - & 0.25957E+00, 0.25131E+00, 0.24319E+00, 0.23508E+00, 0.22697E+00, - & 0.21886E+00, 0.21074E+00, 0.20263E+00, 0.19452E+00, 0.18640E+00/ - - data ((g_grdl(i,j),j=1,30),i= 91,100)/ - & 0.21291E+00, 0.26285E+00, 0.31106E+00, 0.34295E+00, 0.36095E+00, - & 0.36908E+00, 0.37052E+00, 0.36701E+00, 0.36119E+00, 0.35317E+00, - & 0.34373E+00, 0.33349E+00, 0.32284E+00, 0.31202E+00, 0.30122E+00, - & 0.29057E+00, 0.28015E+00, 0.27003E+00, 0.26023E+00, 0.25079E+00, - & 0.24177E+00, 0.23303E+00, 0.22449E+00, 0.21596E+00, 0.20742E+00, - & 0.19889E+00, 0.19035E+00, 0.18182E+00, 0.17328E+00, 0.16474E+00, - & 0.23952E+00, 0.28766E+00, 0.33391E+00, 0.36258E+00, 0.37664E+00, - & 0.38062E+00, 0.37802E+00, 0.37078E+00, 0.36149E+00, 0.35036E+00, - & 0.33820E+00, 0.32558E+00, 0.31285E+00, 0.30025E+00, 0.28792E+00, - & 0.27595E+00, 0.26442E+00, 0.25336E+00, 0.24279E+00, 0.23270E+00, - & 0.22317E+00, 0.21400E+00, 0.20509E+00, 0.19618E+00, 0.18727E+00, - & 0.17836E+00, 0.16944E+00, 0.16053E+00, 0.15162E+00, 0.14271E+00, - & 0.27365E+00, 0.31941E+00, 0.36308E+00, 0.38754E+00, 0.39651E+00, - & 0.39522E+00, 0.38758E+00, 0.37579E+00, 0.36233E+00, 0.34753E+00, - & 0.33221E+00, 0.31688E+00, 0.30184E+00, 0.28730E+00, 0.27334E+00, - & 0.26000E+00, 0.24733E+00, 0.23535E+00, 0.22403E+00, 0.21336E+00, - & 0.20339E+00, 0.19387E+00, 0.18466E+00, 0.17545E+00, 0.16625E+00, - & 0.15704E+00, 0.14784E+00, 0.13863E+00, 0.12943E+00, 0.12022E+00, - & 0.31932E+00, 0.36154E+00, 0.40140E+00, 0.41990E+00, 0.42190E+00, - & 0.41359E+00, 0.39942E+00, 0.38189E+00, 0.36327E+00, 0.34406E+00, - & 0.32503E+00, 0.30660E+00, 0.28900E+00, 0.27234E+00, 0.25667E+00, - & 0.24193E+00, 0.22816E+00, 0.21532E+00, 0.20334E+00, 0.19219E+00, - & 0.18190E+00, 0.17216E+00, 0.16279E+00, 0.15342E+00, 0.14406E+00, - & 0.13469E+00, 0.12532E+00, 0.11596E+00, 0.10659E+00, 0.97222E-01, - & 0.38409E+00, 0.42027E+00, 0.45371E+00, 0.46298E+00, 0.45473E+00, - & 0.43655E+00, 0.41352E+00, 0.38852E+00, 0.36335E+00, 0.33873E+00, - & 0.31532E+00, 0.29336E+00, 0.27294E+00, 0.25408E+00, 0.23669E+00, - & 0.22062E+00, 0.20587E+00, 0.19234E+00, 0.17989E+00, 0.16846E+00, - & 0.15808E+00, 0.14832E+00, 0.13901E+00, 0.12970E+00, 0.12040E+00, - & 0.11109E+00, 0.10178E+00, 0.92467E-01, 0.83158E-01, 0.73849E-01, - & 0.48368E+00, 0.50801E+00, 0.52906E+00, 0.52243E+00, 0.49781E+00, - & 0.46478E+00, 0.42913E+00, 0.39407E+00, 0.36039E+00, 0.32909E+00, - & 0.30057E+00, 0.27472E+00, 0.25138E+00, 0.23038E+00, 0.21148E+00, - & 0.19436E+00, 0.17897E+00, 0.16511E+00, 0.15257E+00, 0.14125E+00, - & 0.13115E+00, 0.12175E+00, 0.11286E+00, 0.10396E+00, 0.95068E-01, - & 0.86173E-01, 0.77278E-01, 0.68384E-01, 0.59489E-01, 0.50594E-01, - & 0.65642E+00, 0.65351E+00, 0.64663E+00, 0.60855E+00, 0.55473E+00, - & 0.49747E+00, 0.44283E+00, 0.39386E+00, 0.34912E+00, 0.30982E+00, - & 0.27573E+00, 0.24608E+00, 0.22022E+00, 0.19771E+00, 0.17802E+00, - & 0.16064E+00, 0.14539E+00, 0.13197E+00, 0.12009E+00, 0.10957E+00, - & 0.10038E+00, 0.91942E-01, 0.84036E-01, 0.76130E-01, 0.68224E-01, - & 0.60318E-01, 0.52412E-01, 0.44506E-01, 0.36599E-01, 0.28693E-01, - & 0.10244E+01, 0.94218E+00, 0.85504E+00, 0.73932E+00, 0.62458E+00, - & 0.52419E+00, 0.44036E+00, 0.37319E+00, 0.31553E+00, 0.26851E+00, - & 0.23026E+00, 0.19871E+00, 0.17245E+00, 0.15052E+00, 0.13206E+00, - & 0.11627E+00, 0.10285E+00, 0.91400E-01, 0.81519E-01, 0.72993E-01, - & 0.65736E-01, 0.59184E-01, 0.53121E-01, 0.47058E-01, 0.40995E-01, - & 0.34932E-01, 0.28869E-01, 0.22806E-01, 0.16743E-01, 0.10680E-01, - & 0.24805E+01, 0.18712E+01, 0.12846E+01, 0.89328E+00, 0.64194E+00, - & 0.47609E+00, 0.36215E+00, 0.28438E+00, 0.22329E+00, 0.17846E+00, - & 0.14507E+00, 0.11945E+00, 0.99391E-01, 0.83533E-01, 0.70821E-01, - & 0.60379E-01, 0.51868E-01, 0.44863E-01, 0.39016E-01, 0.34126E-01, - & 0.30096E-01, 0.26529E-01, 0.23278E-01, 0.20027E-01, 0.16776E-01, - & 0.13526E-01, 0.10275E-01, 0.70242E-02, 0.37735E-02, 0.52278E-03, - & 0.39081E+00, 0.29072E+00, 0.19456E+00, 0.13189E+00, 0.92635E-01, - & 0.67334E-01, 0.50306E-01, 0.38915E-01, 0.30078E-01, 0.23698E-01, - & 0.19020E-01, 0.15476E-01, 0.12736E-01, 0.10594E-01, 0.88958E-02, - & 0.75135E-02, 0.63980E-02, 0.54881E-02, 0.47351E-02, 0.41105E-02, - & 0.36003E-02, 0.31511E-02, 0.27436E-02, 0.23361E-02, 0.19286E-02, - & 0.15210E-02, 0.11135E-02, 0.70600E-03, 0.29848E-03,-0.10904E-03/ - - data ((f2grdl(i,j),j=1,30),i= 1, 10)/ - &-0.93000E-02, 0.88897E-03, 0.11219E-01, 0.23069E-01, 0.36724E-01, - & 0.52246E-01, 0.69696E-01, 0.89303E-01, 0.11033E+00, 0.13318E+00, - & 0.15779E+00, 0.18400E+00, 0.21171E+00, 0.24085E+00, 0.27127E+00, - & 0.30287E+00, 0.33569E+00, 0.36974E+00, 0.40526E+00, 0.44265E+00, - & 0.48321E+00, 0.52680E+00, 0.57296E+00, 0.61912E+00, 0.66528E+00, - & 0.71144E+00, 0.75759E+00, 0.80375E+00, 0.84991E+00, 0.89607E+00, - &-0.92028E-02, 0.87971E-03, 0.11100E-01, 0.22794E-01, 0.36240E-01, - & 0.51502E-01, 0.68637E-01, 0.87868E-01, 0.10848E+00, 0.13086E+00, - & 0.15494E+00, 0.18058E+00, 0.20767E+00, 0.23614E+00, 0.26585E+00, - & 0.29670E+00, 0.32873E+00, 0.36195E+00, 0.39658E+00, 0.43304E+00, - & 0.47258E+00, 0.51508E+00, 0.56007E+00, 0.60507E+00, 0.65006E+00, - & 0.69505E+00, 0.74005E+00, 0.78504E+00, 0.83004E+00, 0.87503E+00, - &-0.91060E-02, 0.87135E-03, 0.10982E-01, 0.22522E-01, 0.35760E-01, - & 0.50766E-01, 0.67589E-01, 0.86450E-01, 0.10665E+00, 0.12857E+00, - & 0.15214E+00, 0.17721E+00, 0.20368E+00, 0.23149E+00, 0.26050E+00, - & 0.29062E+00, 0.32188E+00, 0.35428E+00, 0.38805E+00, 0.42360E+00, - & 0.46214E+00, 0.50355E+00, 0.54740E+00, 0.59125E+00, 0.63511E+00, - & 0.67896E+00, 0.72281E+00, 0.76666E+00, 0.81051E+00, 0.85436E+00, - &-0.90068E-02, 0.86486E-03, 0.10866E-01, 0.22252E-01, 0.35285E-01, - & 0.50037E-01, 0.66552E-01, 0.85048E-01, 0.10484E+00, 0.12630E+00, - & 0.14936E+00, 0.17388E+00, 0.19976E+00, 0.22692E+00, 0.25524E+00, - & 0.28464E+00, 0.31513E+00, 0.34673E+00, 0.37966E+00, 0.41431E+00, - & 0.45186E+00, 0.49222E+00, 0.53495E+00, 0.57768E+00, 0.62041E+00, - & 0.66315E+00, 0.70588E+00, 0.74861E+00, 0.79134E+00, 0.83407E+00, - &-0.89061E-02, 0.85988E-03, 0.10751E-01, 0.21985E-01, 0.34814E-01, - & 0.49317E-01, 0.65526E-01, 0.83663E-01, 0.10306E+00, 0.12406E+00, - & 0.14663E+00, 0.17060E+00, 0.19589E+00, 0.22242E+00, 0.25007E+00, - & 0.27876E+00, 0.30850E+00, 0.33931E+00, 0.37140E+00, 0.40517E+00, - & 0.44177E+00, 0.48109E+00, 0.52272E+00, 0.56435E+00, 0.60597E+00, - & 0.64760E+00, 0.68923E+00, 0.73086E+00, 0.77249E+00, 0.81412E+00, - &-0.88058E-02, 0.85579E-03, 0.10638E-01, 0.21721E-01, 0.34348E-01, - & 0.48604E-01, 0.64510E-01, 0.82293E-01, 0.10129E+00, 0.12186E+00, - & 0.14393E+00, 0.16736E+00, 0.19207E+00, 0.21798E+00, 0.24497E+00, - & 0.27296E+00, 0.30197E+00, 0.33201E+00, 0.36329E+00, 0.39619E+00, - & 0.43185E+00, 0.47015E+00, 0.51069E+00, 0.55123E+00, 0.59177E+00, - & 0.63231E+00, 0.67286E+00, 0.71340E+00, 0.75394E+00, 0.79448E+00, - &-0.87030E-02, 0.85362E-03, 0.10527E-01, 0.21459E-01, 0.33887E-01, - & 0.47898E-01, 0.63505E-01, 0.80939E-01, 0.99550E-01, 0.11968E+00, - & 0.14127E+00, 0.16417E+00, 0.18831E+00, 0.21361E+00, 0.23995E+00, - & 0.26725E+00, 0.29554E+00, 0.32483E+00, 0.35531E+00, 0.38736E+00, - & 0.42210E+00, 0.45940E+00, 0.49887E+00, 0.53835E+00, 0.57782E+00, - & 0.61730E+00, 0.65677E+00, 0.69625E+00, 0.73572E+00, 0.77519E+00, - &-0.85977E-02, 0.85344E-03, 0.10418E-01, 0.21201E-01, 0.33430E-01, - & 0.47199E-01, 0.62512E-01, 0.79601E-01, 0.97831E-01, 0.11754E+00, - & 0.13865E+00, 0.16103E+00, 0.18461E+00, 0.20931E+00, 0.23501E+00, - & 0.26164E+00, 0.28922E+00, 0.31776E+00, 0.34746E+00, 0.37868E+00, - & 0.41252E+00, 0.44884E+00, 0.48726E+00, 0.52569E+00, 0.56412E+00, - & 0.60255E+00, 0.64098E+00, 0.67941E+00, 0.71784E+00, 0.75627E+00, - &-0.84905E-02, 0.85504E-03, 0.10310E-01, 0.20945E-01, 0.32978E-01, - & 0.46506E-01, 0.61530E-01, 0.78278E-01, 0.96133E-01, 0.11542E+00, - & 0.13606E+00, 0.15793E+00, 0.18096E+00, 0.20507E+00, 0.23014E+00, - & 0.25612E+00, 0.28300E+00, 0.31081E+00, 0.33974E+00, 0.37015E+00, - & 0.40310E+00, 0.43846E+00, 0.47587E+00, 0.51328E+00, 0.55068E+00, - & 0.58809E+00, 0.62550E+00, 0.66290E+00, 0.70031E+00, 0.73772E+00, - &-0.83806E-02, 0.85883E-03, 0.10205E-01, 0.20691E-01, 0.32531E-01, - & 0.45819E-01, 0.60559E-01, 0.76969E-01, 0.94457E-01, 0.11332E+00, - & 0.13351E+00, 0.15488E+00, 0.17737E+00, 0.20089E+00, 0.22536E+00, - & 0.25068E+00, 0.27688E+00, 0.30398E+00, 0.33216E+00, 0.36176E+00, - & 0.39385E+00, 0.42827E+00, 0.46468E+00, 0.50109E+00, 0.53750E+00, - & 0.57391E+00, 0.61032E+00, 0.64673E+00, 0.68314E+00, 0.71955E+00/ - - data ((f2grdl(i,j),j=1,30),i= 11, 20)/ - &-0.82677E-02, 0.86509E-03, 0.10101E-01, 0.20441E-01, 0.32088E-01, - & 0.45138E-01, 0.59600E-01, 0.75677E-01, 0.92802E-01, 0.11126E+00, - & 0.13099E+00, 0.15187E+00, 0.17383E+00, 0.19678E+00, 0.22064E+00, - & 0.24533E+00, 0.27086E+00, 0.29726E+00, 0.32470E+00, 0.35353E+00, - & 0.38475E+00, 0.41826E+00, 0.45370E+00, 0.48913E+00, 0.52457E+00, - & 0.56001E+00, 0.59545E+00, 0.63088E+00, 0.66632E+00, 0.70176E+00, - &-0.81419E-02, 0.87769E-03, 0.99988E-02, 0.20192E-01, 0.31649E-01, - & 0.44465E-01, 0.58652E-01, 0.74401E-01, 0.91168E-01, 0.10922E+00, - & 0.12851E+00, 0.14891E+00, 0.17034E+00, 0.19274E+00, 0.21600E+00, - & 0.24007E+00, 0.26494E+00, 0.29065E+00, 0.31737E+00, 0.34543E+00, - & 0.37582E+00, 0.40842E+00, 0.44291E+00, 0.47740E+00, 0.51189E+00, - & 0.54638E+00, 0.58086E+00, 0.61535E+00, 0.64984E+00, 0.68433E+00, - &-0.80297E-02, 0.88659E-03, 0.98988E-02, 0.19947E-01, 0.31216E-01, - & 0.43800E-01, 0.57714E-01, 0.73140E-01, 0.89555E-01, 0.10721E+00, - & 0.12606E+00, 0.14598E+00, 0.16690E+00, 0.18875E+00, 0.21144E+00, - & 0.23489E+00, 0.25912E+00, 0.28416E+00, 0.31017E+00, 0.33748E+00, - & 0.36704E+00, 0.39877E+00, 0.43233E+00, 0.46589E+00, 0.49945E+00, - & 0.53301E+00, 0.56657E+00, 0.60013E+00, 0.63370E+00, 0.66726E+00, - &-0.79144E-02, 0.89782E-03, 0.98012E-02, 0.19704E-01, 0.30787E-01, - & 0.43141E-01, 0.56787E-01, 0.71896E-01, 0.87963E-01, 0.10523E+00, - & 0.12365E+00, 0.14310E+00, 0.16351E+00, 0.18482E+00, 0.20694E+00, - & 0.22979E+00, 0.25340E+00, 0.27777E+00, 0.30309E+00, 0.32966E+00, - & 0.35842E+00, 0.38928E+00, 0.42193E+00, 0.45458E+00, 0.48723E+00, - & 0.51989E+00, 0.55254E+00, 0.58519E+00, 0.61784E+00, 0.65049E+00, - &-0.78000E-02, 0.90978E-03, 0.97063E-02, 0.19464E-01, 0.30363E-01, - & 0.42490E-01, 0.55871E-01, 0.70668E-01, 0.86389E-01, 0.10327E+00, - & 0.12128E+00, 0.14026E+00, 0.16018E+00, 0.18096E+00, 0.20252E+00, - & 0.22478E+00, 0.24777E+00, 0.27149E+00, 0.29613E+00, 0.32198E+00, - & 0.34994E+00, 0.37996E+00, 0.41172E+00, 0.44348E+00, 0.47524E+00, - & 0.50700E+00, 0.53876E+00, 0.57052E+00, 0.60228E+00, 0.63403E+00, - &-0.76819E-02, 0.92421E-03, 0.96139E-02, 0.19226E-01, 0.29944E-01, - & 0.41846E-01, 0.54966E-01, 0.69453E-01, 0.84835E-01, 0.10135E+00, - & 0.11893E+00, 0.13746E+00, 0.15689E+00, 0.17716E+00, 0.19816E+00, - & 0.21985E+00, 0.24223E+00, 0.26532E+00, 0.28929E+00, 0.31443E+00, - & 0.34163E+00, 0.37082E+00, 0.40170E+00, 0.43259E+00, 0.46347E+00, - & 0.49436E+00, 0.52524E+00, 0.55613E+00, 0.58701E+00, 0.61790E+00, - &-0.75620E-02, 0.94046E-03, 0.95233E-02, 0.18991E-01, 0.29529E-01, - & 0.41208E-01, 0.54070E-01, 0.68254E-01, 0.83301E-01, 0.99445E-01, - & 0.11662E+00, 0.13470E+00, 0.15366E+00, 0.17341E+00, 0.19388E+00, - & 0.21500E+00, 0.23679E+00, 0.25926E+00, 0.28257E+00, 0.30702E+00, - & 0.33346E+00, 0.36184E+00, 0.39187E+00, 0.42190E+00, 0.45193E+00, - & 0.48195E+00, 0.51198E+00, 0.54201E+00, 0.57204E+00, 0.60207E+00, - &-0.74411E-02, 0.95821E-03, 0.94346E-02, 0.18759E-01, 0.29119E-01, - & 0.40578E-01, 0.53185E-01, 0.67070E-01, 0.81787E-01, 0.97567E-01, - & 0.11433E+00, 0.13198E+00, 0.15047E+00, 0.16973E+00, 0.18967E+00, - & 0.21023E+00, 0.23144E+00, 0.25330E+00, 0.27597E+00, 0.29974E+00, - & 0.32544E+00, 0.35302E+00, 0.38221E+00, 0.41139E+00, 0.44058E+00, - & 0.46977E+00, 0.49895E+00, 0.52814E+00, 0.55732E+00, 0.58651E+00, - &-0.73169E-02, 0.97833E-03, 0.93477E-02, 0.18529E-01, 0.28712E-01, - & 0.39955E-01, 0.52310E-01, 0.65900E-01, 0.80292E-01, 0.95714E-01, - & 0.11208E+00, 0.12930E+00, 0.14734E+00, 0.16610E+00, 0.18552E+00, - & 0.20554E+00, 0.22617E+00, 0.24744E+00, 0.26948E+00, 0.29259E+00, - & 0.31756E+00, 0.34436E+00, 0.37273E+00, 0.40110E+00, 0.42946E+00, - & 0.45783E+00, 0.48620E+00, 0.51456E+00, 0.54293E+00, 0.57130E+00, - &-0.71896E-02, 0.10010E-02, 0.92629E-02, 0.18303E-01, 0.28310E-01, - & 0.39339E-01, 0.51445E-01, 0.64744E-01, 0.78817E-01, 0.93886E-01, - & 0.10986E+00, 0.12666E+00, 0.14425E+00, 0.16253E+00, 0.18144E+00, - & 0.20092E+00, 0.22100E+00, 0.24168E+00, 0.26311E+00, 0.28556E+00, - & 0.30982E+00, 0.33586E+00, 0.36343E+00, 0.39099E+00, 0.41855E+00, - & 0.44611E+00, 0.47367E+00, 0.50123E+00, 0.52879E+00, 0.55635E+00/ - - data ((f2grdl(i,j),j=1,30),i= 21, 30)/ - &-0.70589E-02, 0.10262E-02, 0.91800E-02, 0.18080E-01, 0.27912E-01, - & 0.38729E-01, 0.50591E-01, 0.63602E-01, 0.77362E-01, 0.92080E-01, - & 0.10767E+00, 0.12407E+00, 0.14120E+00, 0.15901E+00, 0.17742E+00, - & 0.19638E+00, 0.21591E+00, 0.23601E+00, 0.25683E+00, 0.27865E+00, - & 0.30222E+00, 0.32751E+00, 0.35428E+00, 0.38105E+00, 0.40781E+00, - & 0.43458E+00, 0.46135E+00, 0.48811E+00, 0.51488E+00, 0.54165E+00, - &-0.69282E-02, 0.10528E-02, 0.90992E-02, 0.17861E-01, 0.27519E-01, - & 0.38128E-01, 0.49747E-01, 0.62476E-01, 0.75928E-01, 0.90301E-01, - & 0.10552E+00, 0.12151E+00, 0.13821E+00, 0.15555E+00, 0.17347E+00, - & 0.19191E+00, 0.21089E+00, 0.23043E+00, 0.25067E+00, 0.27186E+00, - & 0.29475E+00, 0.31931E+00, 0.34529E+00, 0.37127E+00, 0.39725E+00, - & 0.42324E+00, 0.44922E+00, 0.47520E+00, 0.50119E+00, 0.52717E+00, - &-0.67909E-02, 0.10833E-02, 0.90206E-02, 0.17645E-01, 0.27129E-01, - & 0.37533E-01, 0.48913E-01, 0.61364E-01, 0.74512E-01, 0.88547E-01, - & 0.10339E+00, 0.11899E+00, 0.13526E+00, 0.15214E+00, 0.16958E+00, - & 0.18751E+00, 0.20597E+00, 0.22495E+00, 0.24461E+00, 0.26518E+00, - & 0.28741E+00, 0.31125E+00, 0.33646E+00, 0.36168E+00, 0.38690E+00, - & 0.41211E+00, 0.43733E+00, 0.46254E+00, 0.48776E+00, 0.51298E+00, - &-0.66545E-02, 0.11149E-02, 0.89443E-02, 0.17432E-01, 0.26744E-01, - & 0.36948E-01, 0.48089E-01, 0.60268E-01, 0.73116E-01, 0.86819E-01, - & 0.10130E+00, 0.11651E+00, 0.13235E+00, 0.14879E+00, 0.16575E+00, - & 0.18319E+00, 0.20113E+00, 0.21957E+00, 0.23866E+00, 0.25863E+00, - & 0.28020E+00, 0.30334E+00, 0.32781E+00, 0.35229E+00, 0.37676E+00, - & 0.40123E+00, 0.42570E+00, 0.45018E+00, 0.47465E+00, 0.49912E+00, - &-0.65142E-02, 0.11496E-02, 0.88704E-02, 0.17223E-01, 0.26364E-01, - & 0.36369E-01, 0.47275E-01, 0.59185E-01, 0.71739E-01, 0.85116E-01, - & 0.99245E-01, 0.11406E+00, 0.12949E+00, 0.14548E+00, 0.16198E+00, - & 0.17894E+00, 0.19637E+00, 0.21428E+00, 0.23282E+00, 0.25220E+00, - & 0.27313E+00, 0.29558E+00, 0.31932E+00, 0.34307E+00, 0.36682E+00, - & 0.39057E+00, 0.41431E+00, 0.43806E+00, 0.46181E+00, 0.48556E+00, - &-0.63721E-02, 0.11863E-02, 0.87990E-02, 0.17016E-01, 0.25988E-01, - & 0.35797E-01, 0.46471E-01, 0.58117E-01, 0.70381E-01, 0.83437E-01, - & 0.97219E-01, 0.11166E+00, 0.12668E+00, 0.14224E+00, 0.15828E+00, - & 0.17477E+00, 0.19170E+00, 0.20909E+00, 0.22708E+00, 0.24589E+00, - & 0.26618E+00, 0.28796E+00, 0.31100E+00, 0.33403E+00, 0.35707E+00, - & 0.38011E+00, 0.40314E+00, 0.42618E+00, 0.44922E+00, 0.47225E+00, - &-0.62235E-02, 0.12272E-02, 0.87301E-02, 0.16812E-01, 0.25617E-01, - & 0.35232E-01, 0.45676E-01, 0.57062E-01, 0.69042E-01, 0.81782E-01, - & 0.95223E-01, 0.10929E+00, 0.12391E+00, 0.13904E+00, 0.15464E+00, - & 0.17067E+00, 0.18711E+00, 0.20399E+00, 0.22145E+00, 0.23969E+00, - & 0.25937E+00, 0.28049E+00, 0.30283E+00, 0.32517E+00, 0.34751E+00, - & 0.36985E+00, 0.39219E+00, 0.41453E+00, 0.43687E+00, 0.45921E+00, - &-0.60766E-02, 0.12690E-02, 0.86637E-02, 0.16611E-01, 0.25252E-01, - & 0.34674E-01, 0.44892E-01, 0.56021E-01, 0.67722E-01, 0.80152E-01, - & 0.93257E-01, 0.10696E+00, 0.12118E+00, 0.13590E+00, 0.15106E+00, - & 0.16664E+00, 0.18260E+00, 0.19899E+00, 0.21592E+00, 0.23361E+00, - & 0.25269E+00, 0.27316E+00, 0.29482E+00, 0.31648E+00, 0.33814E+00, - & 0.35979E+00, 0.38145E+00, 0.40311E+00, 0.42477E+00, 0.44643E+00, - &-0.59272E-02, 0.13132E-02, 0.86000E-02, 0.16413E-01, 0.24891E-01, - & 0.34122E-01, 0.44117E-01, 0.54994E-01, 0.66421E-01, 0.78546E-01, - & 0.91320E-01, 0.10466E+00, 0.11850E+00, 0.13282E+00, 0.14755E+00, - & 0.16267E+00, 0.17817E+00, 0.19407E+00, 0.21049E+00, 0.22763E+00, - & 0.24613E+00, 0.26597E+00, 0.28695E+00, 0.30794E+00, 0.32892E+00, - & 0.34991E+00, 0.37089E+00, 0.39188E+00, 0.41287E+00, 0.43385E+00, - &-0.57752E-02, 0.13599E-02, 0.85390E-02, 0.16218E-01, 0.24536E-01, - & 0.33577E-01, 0.43353E-01, 0.53981E-01, 0.65138E-01, 0.76965E-01, - & 0.89413E-01, 0.10239E+00, 0.11586E+00, 0.12978E+00, 0.14409E+00, - & 0.15878E+00, 0.17382E+00, 0.18923E+00, 0.20515E+00, 0.22177E+00, - & 0.23969E+00, 0.25891E+00, 0.27924E+00, 0.29957E+00, 0.31990E+00, - & 0.34023E+00, 0.36056E+00, 0.38089E+00, 0.40122E+00, 0.42154E+00/ - - data ((f2grdl(i,j),j=1,30),i= 31, 40)/ - &-0.56172E-02, 0.14106E-02, 0.84806E-02, 0.16027E-01, 0.24186E-01, - & 0.33038E-01, 0.42601E-01, 0.52981E-01, 0.63873E-01, 0.75408E-01, - & 0.87536E-01, 0.10017E+00, 0.11327E+00, 0.12680E+00, 0.14070E+00, - & 0.15496E+00, 0.16954E+00, 0.18449E+00, 0.19992E+00, 0.21601E+00, - & 0.23337E+00, 0.25198E+00, 0.27167E+00, 0.29136E+00, 0.31105E+00, - & 0.33073E+00, 0.35042E+00, 0.37011E+00, 0.38980E+00, 0.40948E+00, - &-0.54618E-02, 0.14619E-02, 0.84247E-02, 0.15839E-01, 0.23841E-01, - & 0.32507E-01, 0.41860E-01, 0.51996E-01, 0.62626E-01, 0.73873E-01, - & 0.85688E-01, 0.97977E-01, 0.11072E+00, 0.12387E+00, 0.13736E+00, - & 0.15120E+00, 0.16535E+00, 0.17983E+00, 0.19478E+00, 0.21037E+00, - & 0.22718E+00, 0.24519E+00, 0.26425E+00, 0.28331E+00, 0.30236E+00, - & 0.32142E+00, 0.34047E+00, 0.35953E+00, 0.37858E+00, 0.39764E+00, - &-0.53010E-02, 0.15168E-02, 0.83716E-02, 0.15654E-01, 0.23501E-01, - & 0.31983E-01, 0.41130E-01, 0.51025E-01, 0.61397E-01, 0.72361E-01, - & 0.83866E-01, 0.95825E-01, 0.10821E+00, 0.12099E+00, 0.13409E+00, - & 0.14751E+00, 0.16123E+00, 0.17526E+00, 0.18973E+00, 0.20483E+00, - & 0.22110E+00, 0.23853E+00, 0.25697E+00, 0.27541E+00, 0.29385E+00, - & 0.31229E+00, 0.33073E+00, 0.34917E+00, 0.36761E+00, 0.38605E+00, - &-0.51329E-02, 0.15763E-02, 0.83212E-02, 0.15473E-01, 0.23166E-01, - & 0.31467E-01, 0.40410E-01, 0.50070E-01, 0.60189E-01, 0.70871E-01, - & 0.82073E-01, 0.93705E-01, 0.10575E+00, 0.11816E+00, 0.13087E+00, - & 0.14389E+00, 0.15718E+00, 0.17077E+00, 0.18479E+00, 0.19940E+00, - & 0.21514E+00, 0.23201E+00, 0.24985E+00, 0.26768E+00, 0.28552E+00, - & 0.30336E+00, 0.32120E+00, 0.33904E+00, 0.35688E+00, 0.37472E+00, - &-0.49679E-02, 0.16364E-02, 0.82735E-02, 0.15296E-01, 0.22835E-01, - & 0.30958E-01, 0.39701E-01, 0.49130E-01, 0.59000E-01, 0.69408E-01, - & 0.80309E-01, 0.91621E-01, 0.10332E+00, 0.11537E+00, 0.12771E+00, - & 0.14033E+00, 0.15321E+00, 0.16637E+00, 0.17993E+00, 0.19407E+00, - & 0.20930E+00, 0.22561E+00, 0.24286E+00, 0.26012E+00, 0.27737E+00, - & 0.29463E+00, 0.31189E+00, 0.32914E+00, 0.34640E+00, 0.36365E+00, - &-0.47964E-02, 0.17005E-02, 0.82288E-02, 0.15122E-01, 0.22510E-01, - & 0.30457E-01, 0.39003E-01, 0.48204E-01, 0.57830E-01, 0.67969E-01, - & 0.78574E-01, 0.89572E-01, 0.10094E+00, 0.11263E+00, 0.12460E+00, - & 0.13682E+00, 0.14930E+00, 0.16204E+00, 0.17516E+00, 0.18883E+00, - & 0.20355E+00, 0.21932E+00, 0.23600E+00, 0.25269E+00, 0.26937E+00, - & 0.28606E+00, 0.30274E+00, 0.31943E+00, 0.33611E+00, 0.35279E+00, - &-0.46192E-02, 0.17689E-02, 0.81871E-02, 0.14952E-01, 0.22189E-01, - & 0.29963E-01, 0.38315E-01, 0.47292E-01, 0.56677E-01, 0.66553E-01, - & 0.76869E-01, 0.87560E-01, 0.98595E-01, 0.10994E+00, 0.12154E+00, - & 0.13338E+00, 0.14546E+00, 0.15779E+00, 0.17048E+00, 0.18370E+00, - & 0.19792E+00, 0.21315E+00, 0.22928E+00, 0.24541E+00, 0.26154E+00, - & 0.27767E+00, 0.29380E+00, 0.30992E+00, 0.32605E+00, 0.34218E+00, - &-0.44439E-02, 0.18383E-02, 0.81481E-02, 0.14786E-01, 0.21874E-01, - & 0.29478E-01, 0.37637E-01, 0.46397E-01, 0.55543E-01, 0.65161E-01, - & 0.75194E-01, 0.85581E-01, 0.96296E-01, 0.10730E+00, 0.11855E+00, - & 0.13000E+00, 0.14169E+00, 0.15362E+00, 0.16588E+00, 0.17866E+00, - & 0.19239E+00, 0.20711E+00, 0.22269E+00, 0.23827E+00, 0.25385E+00, - & 0.26943E+00, 0.28502E+00, 0.30060E+00, 0.31618E+00, 0.33176E+00, - &-0.42629E-02, 0.19119E-02, 0.81125E-02, 0.14624E-01, 0.21564E-01, - & 0.29001E-01, 0.36969E-01, 0.45516E-01, 0.54428E-01, 0.63792E-01, - & 0.73547E-01, 0.83639E-01, 0.94038E-01, 0.10471E+00, 0.11561E+00, - & 0.12669E+00, 0.13800E+00, 0.14953E+00, 0.16139E+00, 0.17372E+00, - & 0.18698E+00, 0.20119E+00, 0.21624E+00, 0.23129E+00, 0.24633E+00, - & 0.26138E+00, 0.27643E+00, 0.29147E+00, 0.30652E+00, 0.32157E+00, - &-0.40800E-02, 0.19879E-02, 0.80801E-02, 0.14465E-01, 0.21260E-01, - & 0.28532E-01, 0.36312E-01, 0.44648E-01, 0.53330E-01, 0.62446E-01, - & 0.71928E-01, 0.81729E-01, 0.91820E-01, 0.10217E+00, 0.11272E+00, - & 0.12345E+00, 0.13438E+00, 0.14553E+00, 0.15698E+00, 0.16889E+00, - & 0.18168E+00, 0.19540E+00, 0.20992E+00, 0.22445E+00, 0.23897E+00, - & 0.25349E+00, 0.26802E+00, 0.28254E+00, 0.29707E+00, 0.31159E+00/ - - data ((f2grdl(i,j),j=1,30),i= 41, 50)/ - &-0.38958E-02, 0.20663E-02, 0.80509E-02, 0.14310E-01, 0.20962E-01, - & 0.28071E-01, 0.35665E-01, 0.43795E-01, 0.52251E-01, 0.61123E-01, - & 0.70339E-01, 0.79854E-01, 0.89643E-01, 0.99666E-01, 0.10988E+00, - & 0.12027E+00, 0.13084E+00, 0.14160E+00, 0.15266E+00, 0.16415E+00, - & 0.17649E+00, 0.18972E+00, 0.20373E+00, 0.21775E+00, 0.23176E+00, - & 0.24577E+00, 0.25978E+00, 0.27379E+00, 0.28780E+00, 0.30181E+00, - &-0.37039E-02, 0.21496E-02, 0.80247E-02, 0.14160E-01, 0.20669E-01, - & 0.27617E-01, 0.35030E-01, 0.42956E-01, 0.51191E-01, 0.59824E-01, - & 0.68778E-01, 0.78016E-01, 0.87507E-01, 0.97213E-01, 0.10710E+00, - & 0.11714E+00, 0.12736E+00, 0.13775E+00, 0.14842E+00, 0.15951E+00, - & 0.17141E+00, 0.18416E+00, 0.19767E+00, 0.21118E+00, 0.22469E+00, - & 0.23819E+00, 0.25170E+00, 0.26521E+00, 0.27872E+00, 0.29222E+00, - &-0.35098E-02, 0.22358E-02, 0.80017E-02, 0.14014E-01, 0.20383E-01, - & 0.27172E-01, 0.34405E-01, 0.42131E-01, 0.50150E-01, 0.58547E-01, - & 0.67246E-01, 0.76211E-01, 0.85412E-01, 0.94811E-01, 0.10437E+00, - & 0.11409E+00, 0.12395E+00, 0.13398E+00, 0.14428E+00, 0.15496E+00, - & 0.16643E+00, 0.17872E+00, 0.19174E+00, 0.20475E+00, 0.21777E+00, - & 0.23078E+00, 0.24380E+00, 0.25682E+00, 0.26983E+00, 0.28285E+00, - &-0.33138E-02, 0.23247E-02, 0.79821E-02, 0.13872E-01, 0.20102E-01, - & 0.26735E-01, 0.33793E-01, 0.41321E-01, 0.49130E-01, 0.57294E-01, - & 0.65741E-01, 0.74441E-01, 0.83358E-01, 0.92455E-01, 0.10170E+00, - & 0.11109E+00, 0.12062E+00, 0.13030E+00, 0.14022E+00, 0.15052E+00, - & 0.16156E+00, 0.17340E+00, 0.18593E+00, 0.19847E+00, 0.21100E+00, - & 0.22353E+00, 0.23607E+00, 0.24860E+00, 0.26114E+00, 0.27367E+00, - &-0.31129E-02, 0.24175E-02, 0.79659E-02, 0.13734E-01, 0.19827E-01, - & 0.26306E-01, 0.33191E-01, 0.40526E-01, 0.48128E-01, 0.56064E-01, - & 0.64267E-01, 0.72706E-01, 0.81343E-01, 0.90146E-01, 0.99086E-01, - & 0.10816E+00, 0.11735E+00, 0.12668E+00, 0.13624E+00, 0.14616E+00, - & 0.15679E+00, 0.16819E+00, 0.18026E+00, 0.19232E+00, 0.20439E+00, - & 0.21646E+00, 0.22852E+00, 0.24059E+00, 0.25266E+00, 0.26472E+00, - &-0.29104E-02, 0.25132E-02, 0.79532E-02, 0.13601E-01, 0.19559E-01, - & 0.25886E-01, 0.32603E-01, 0.39746E-01, 0.47146E-01, 0.54858E-01, - & 0.62821E-01, 0.71005E-01, 0.79369E-01, 0.87884E-01, 0.96522E-01, - & 0.10528E+00, 0.11415E+00, 0.12314E+00, 0.13235E+00, 0.14190E+00, - & 0.15213E+00, 0.16309E+00, 0.17471E+00, 0.18632E+00, 0.19793E+00, - & 0.20954E+00, 0.22115E+00, 0.23276E+00, 0.24437E+00, 0.25598E+00, - &-0.27100E-02, 0.26100E-02, 0.79441E-02, 0.13473E-01, 0.19296E-01, - & 0.25475E-01, 0.32026E-01, 0.38982E-01, 0.46183E-01, 0.53676E-01, - & 0.61405E-01, 0.69339E-01, 0.77434E-01, 0.85668E-01, 0.94013E-01, - & 0.10247E+00, 0.11102E+00, 0.11968E+00, 0.12854E+00, 0.13773E+00, - & 0.14756E+00, 0.15811E+00, 0.16927E+00, 0.18044E+00, 0.19161E+00, - & 0.20277E+00, 0.21394E+00, 0.22510E+00, 0.23627E+00, 0.24743E+00, - &-0.25031E-02, 0.27110E-02, 0.79389E-02, 0.13349E-01, 0.19041E-01, - & 0.25072E-01, 0.31461E-01, 0.38234E-01, 0.45240E-01, 0.52518E-01, - & 0.60021E-01, 0.67706E-01, 0.75539E-01, 0.83499E-01, 0.91556E-01, - & 0.99713E-01, 0.10795E+00, 0.11629E+00, 0.12482E+00, 0.13364E+00, - & 0.14310E+00, 0.15323E+00, 0.16396E+00, 0.17469E+00, 0.18542E+00, - & 0.19615E+00, 0.20688E+00, 0.21761E+00, 0.22834E+00, 0.23907E+00, - &-0.22935E-02, 0.28153E-02, 0.79370E-02, 0.13230E-01, 0.18792E-01, - & 0.24679E-01, 0.30909E-01, 0.37503E-01, 0.44317E-01, 0.51385E-01, - & 0.58666E-01, 0.66108E-01, 0.73685E-01, 0.81377E-01, 0.89153E-01, - & 0.97017E-01, 0.10495E+00, 0.11297E+00, 0.12117E+00, 0.12964E+00, - & 0.13873E+00, 0.14846E+00, 0.15876E+00, 0.16906E+00, 0.17936E+00, - & 0.18966E+00, 0.19996E+00, 0.21027E+00, 0.22057E+00, 0.23087E+00, - &-0.20872E-02, 0.29201E-02, 0.79384E-02, 0.13115E-01, 0.18550E-01, - & 0.24296E-01, 0.30369E-01, 0.36788E-01, 0.43415E-01, 0.50278E-01, - & 0.57340E-01, 0.64546E-01, 0.71872E-01, 0.79301E-01, 0.86802E-01, - & 0.94380E-01, 0.10202E+00, 0.10973E+00, 0.11760E+00, 0.12574E+00, - & 0.13446E+00, 0.14380E+00, 0.15368E+00, 0.16356E+00, 0.17344E+00, - & 0.18332E+00, 0.19320E+00, 0.20308E+00, 0.21296E+00, 0.22285E+00/ - - data ((f2grdl(i,j),j=1,30),i= 51, 60)/ - &-0.18764E-02, 0.30283E-02, 0.79435E-02, 0.13006E-01, 0.18316E-01, - & 0.23923E-01, 0.29841E-01, 0.36091E-01, 0.42533E-01, 0.49197E-01, - & 0.56043E-01, 0.63016E-01, 0.70100E-01, 0.77272E-01, 0.84506E-01, - & 0.91803E-01, 0.99150E-01, 0.10656E+00, 0.11412E+00, 0.12192E+00, - & 0.13030E+00, 0.13925E+00, 0.14871E+00, 0.15818E+00, 0.16765E+00, - & 0.17712E+00, 0.18659E+00, 0.19605E+00, 0.20552E+00, 0.21499E+00, - &-0.16587E-02, 0.31412E-02, 0.79520E-02, 0.12903E-01, 0.18088E-01, - & 0.23559E-01, 0.29327E-01, 0.35409E-01, 0.41671E-01, 0.48143E-01, - & 0.54776E-01, 0.61523E-01, 0.68368E-01, 0.75288E-01, 0.82261E-01, - & 0.89285E-01, 0.96349E-01, 0.10347E+00, 0.11072E+00, 0.11820E+00, - & 0.12623E+00, 0.13480E+00, 0.14387E+00, 0.15293E+00, 0.16199E+00, - & 0.17106E+00, 0.18012E+00, 0.18919E+00, 0.19825E+00, 0.20731E+00, - &-0.14461E-02, 0.32541E-02, 0.79636E-02, 0.12805E-01, 0.17868E-01, - & 0.23205E-01, 0.28827E-01, 0.34744E-01, 0.40830E-01, 0.47113E-01, - & 0.53538E-01, 0.60065E-01, 0.66677E-01, 0.73354E-01, 0.80070E-01, - & 0.86827E-01, 0.93612E-01, 0.10044E+00, 0.10740E+00, 0.11457E+00, - & 0.12226E+00, 0.13046E+00, 0.13914E+00, 0.14781E+00, 0.15648E+00, - & 0.16515E+00, 0.17383E+00, 0.18250E+00, 0.19117E+00, 0.19985E+00, - &-0.12329E-02, 0.33686E-02, 0.79788E-02, 0.12713E-01, 0.17656E-01, - & 0.22862E-01, 0.28340E-01, 0.34097E-01, 0.40011E-01, 0.46108E-01, - & 0.52331E-01, 0.58643E-01, 0.65028E-01, 0.71466E-01, 0.77933E-01, - & 0.84429E-01, 0.90944E-01, 0.97496E-01, 0.10416E+00, 0.11103E+00, - & 0.11838E+00, 0.12623E+00, 0.13453E+00, 0.14283E+00, 0.15113E+00, - & 0.15942E+00, 0.16772E+00, 0.17602E+00, 0.18432E+00, 0.19262E+00, - &-0.10156E-02, 0.34863E-02, 0.79974E-02, 0.12626E-01, 0.17452E-01, - & 0.22530E-01, 0.27867E-01, 0.33468E-01, 0.39213E-01, 0.45129E-01, - & 0.51154E-01, 0.57257E-01, 0.63421E-01, 0.69626E-01, 0.75849E-01, - & 0.82093E-01, 0.88344E-01, 0.94623E-01, 0.10100E+00, 0.10757E+00, - & 0.11460E+00, 0.12211E+00, 0.13005E+00, 0.13798E+00, 0.14592E+00, - & 0.15386E+00, 0.16180E+00, 0.16974E+00, 0.17768E+00, 0.18562E+00, - &-0.80099E-03, 0.36047E-02, 0.80185E-02, 0.12544E-01, 0.17257E-01, - & 0.22208E-01, 0.27408E-01, 0.32857E-01, 0.38439E-01, 0.44177E-01, - & 0.50009E-01, 0.55908E-01, 0.61856E-01, 0.67836E-01, 0.73820E-01, - & 0.79815E-01, 0.85810E-01, 0.91824E-01, 0.97927E-01, 0.10421E+00, - & 0.11091E+00, 0.11809E+00, 0.12567E+00, 0.13326E+00, 0.14084E+00, - & 0.14843E+00, 0.15602E+00, 0.16360E+00, 0.17119E+00, 0.17877E+00, - &-0.58421E-03, 0.37255E-02, 0.80430E-02, 0.12469E-01, 0.17071E-01, - & 0.21898E-01, 0.26965E-01, 0.32264E-01, 0.37687E-01, 0.43251E-01, - & 0.48896E-01, 0.54595E-01, 0.60335E-01, 0.66092E-01, 0.71844E-01, - & 0.77598E-01, 0.83344E-01, 0.89099E-01, 0.94933E-01, 0.10093E+00, - & 0.10733E+00, 0.11417E+00, 0.12142E+00, 0.12866E+00, 0.13591E+00, - & 0.14315E+00, 0.15040E+00, 0.15764E+00, 0.16488E+00, 0.17213E+00, - &-0.37218E-03, 0.38459E-02, 0.80710E-02, 0.12400E-01, 0.16895E-01, - & 0.21601E-01, 0.26537E-01, 0.31691E-01, 0.36959E-01, 0.42354E-01, - & 0.47816E-01, 0.53322E-01, 0.58857E-01, 0.64397E-01, 0.69922E-01, - & 0.75442E-01, 0.80945E-01, 0.86448E-01, 0.92020E-01, 0.97743E-01, - & 0.10384E+00, 0.11037E+00, 0.11728E+00, 0.12419E+00, 0.13111E+00, - & 0.13802E+00, 0.14493E+00, 0.15184E+00, 0.15876E+00, 0.16567E+00, - &-0.16437E-03, 0.39654E-02, 0.81020E-02, 0.12336E-01, 0.16728E-01, - & 0.21318E-01, 0.26123E-01, 0.31137E-01, 0.36255E-01, 0.41485E-01, - & 0.46770E-01, 0.52088E-01, 0.57422E-01, 0.62751E-01, 0.68055E-01, - & 0.73347E-01, 0.78613E-01, 0.83870E-01, 0.89187E-01, 0.94642E-01, - & 0.10045E+00, 0.10667E+00, 0.11325E+00, 0.11984E+00, 0.12643E+00, - & 0.13301E+00, 0.13960E+00, 0.14619E+00, 0.15277E+00, 0.15936E+00, - & 0.43223E-04, 0.40859E-02, 0.81357E-02, 0.12277E-01, 0.16571E-01, - & 0.21048E-01, 0.25727E-01, 0.30603E-01, 0.35576E-01, 0.40646E-01, - & 0.45759E-01, 0.50894E-01, 0.56032E-01, 0.61155E-01, 0.66245E-01, - & 0.71313E-01, 0.76349E-01, 0.81366E-01, 0.86435E-01, 0.91628E-01, - & 0.97151E-01, 0.10307E+00, 0.10934E+00, 0.11561E+00, 0.12188E+00, - & 0.12814E+00, 0.13441E+00, 0.14068E+00, 0.14695E+00, 0.15322E+00/ - - data ((f2grdl(i,j),j=1,30),i= 61, 70)/ - & 0.24583E-03, 0.42052E-02, 0.81713E-02, 0.12225E-01, 0.16424E-01, - & 0.20793E-01, 0.25349E-01, 0.30091E-01, 0.34921E-01, 0.39835E-01, - & 0.44784E-01, 0.49740E-01, 0.54687E-01, 0.59608E-01, 0.64490E-01, - & 0.69342E-01, 0.74154E-01, 0.78938E-01, 0.83765E-01, 0.88702E-01, - & 0.93953E-01, 0.99579E-01, 0.10554E+00, 0.11150E+00, 0.11746E+00, - & 0.12343E+00, 0.12939E+00, 0.13535E+00, 0.14131E+00, 0.14727E+00, - & 0.44867E-03, 0.43254E-02, 0.82093E-02, 0.12179E-01, 0.16287E-01, - & 0.20554E-01, 0.24990E-01, 0.29601E-01, 0.34292E-01, 0.39056E-01, - & 0.43844E-01, 0.48625E-01, 0.53386E-01, 0.58114E-01, 0.62793E-01, - & 0.67434E-01, 0.72029E-01, 0.76586E-01, 0.81177E-01, 0.85866E-01, - & 0.90854E-01, 0.96195E-01, 0.10185E+00, 0.10752E+00, 0.11318E+00, - & 0.11884E+00, 0.12450E+00, 0.13016E+00, 0.13582E+00, 0.14148E+00, - & 0.64914E-03, 0.44455E-02, 0.82494E-02, 0.12141E-01, 0.16161E-01, - & 0.20329E-01, 0.24651E-01, 0.29134E-01, 0.33689E-01, 0.38308E-01, - & 0.42937E-01, 0.47550E-01, 0.52132E-01, 0.56670E-01, 0.61152E-01, - & 0.65588E-01, 0.69972E-01, 0.74309E-01, 0.78670E-01, 0.83119E-01, - & 0.87851E-01, 0.92914E-01, 0.98281E-01, 0.10365E+00, 0.10902E+00, - & 0.11438E+00, 0.11975E+00, 0.12512E+00, 0.13049E+00, 0.13585E+00, - & 0.84900E-03, 0.45664E-02, 0.82922E-02, 0.12109E-01, 0.16045E-01, - & 0.20121E-01, 0.24333E-01, 0.28691E-01, 0.33114E-01, 0.37591E-01, - & 0.42068E-01, 0.46515E-01, 0.50923E-01, 0.55278E-01, 0.59570E-01, - & 0.63808E-01, 0.67986E-01, 0.72108E-01, 0.76247E-01, 0.80463E-01, - & 0.84944E-01, 0.89737E-01, 0.94816E-01, 0.99895E-01, 0.10497E+00, - & 0.11005E+00, 0.11513E+00, 0.12021E+00, 0.12529E+00, 0.13037E+00, - & 0.10150E-02, 0.46743E-02, 0.83374E-02, 0.12082E-01, 0.15941E-01, - & 0.19930E-01, 0.24039E-01, 0.28275E-01, 0.32569E-01, 0.36908E-01, - & 0.41235E-01, 0.45524E-01, 0.49761E-01, 0.53937E-01, 0.58042E-01, - & 0.62088E-01, 0.66064E-01, 0.69979E-01, 0.73901E-01, 0.77890E-01, - & 0.82128E-01, 0.86658E-01, 0.91458E-01, 0.96257E-01, 0.10106E+00, - & 0.10586E+00, 0.11066E+00, 0.11546E+00, 0.12026E+00, 0.12506E+00, - & 0.12016E-02, 0.47894E-02, 0.83856E-02, 0.12063E-01, 0.15850E-01, - & 0.19755E-01, 0.23768E-01, 0.27887E-01, 0.32056E-01, 0.36260E-01, - & 0.40440E-01, 0.44573E-01, 0.48649E-01, 0.52652E-01, 0.56576E-01, - & 0.60434E-01, 0.64214E-01, 0.67925E-01, 0.71636E-01, 0.75404E-01, - & 0.79403E-01, 0.83679E-01, 0.88208E-01, 0.92738E-01, 0.97268E-01, - & 0.10180E+00, 0.10633E+00, 0.11086E+00, 0.11539E+00, 0.11992E+00, - & 0.13838E-02, 0.49041E-02, 0.84335E-02, 0.12050E-01, 0.15772E-01, - & 0.19598E-01, 0.23521E-01, 0.27529E-01, 0.31577E-01, 0.35649E-01, - & 0.39687E-01, 0.43668E-01, 0.47583E-01, 0.51419E-01, 0.55167E-01, - & 0.58843E-01, 0.62433E-01, 0.65948E-01, 0.69453E-01, 0.73008E-01, - & 0.76773E-01, 0.80802E-01, 0.85074E-01, 0.89347E-01, 0.93619E-01, - & 0.97891E-01, 0.10216E+00, 0.10644E+00, 0.11071E+00, 0.11498E+00, - & 0.15605E-02, 0.50171E-02, 0.84839E-02, 0.12046E-01, 0.15707E-01, - & 0.19461E-01, 0.23300E-01, 0.27201E-01, 0.31132E-01, 0.35078E-01, - & 0.38979E-01, 0.42813E-01, 0.46571E-01, 0.50244E-01, 0.53819E-01, - & 0.57314E-01, 0.60718E-01, 0.64040E-01, 0.67346E-01, 0.70691E-01, - & 0.74229E-01, 0.78018E-01, 0.82039E-01, 0.86060E-01, 0.90081E-01, - & 0.94102E-01, 0.98122E-01, 0.10214E+00, 0.10616E+00, 0.11018E+00, - & 0.17201E-02, 0.51242E-02, 0.85380E-02, 0.12049E-01, 0.15655E-01, - & 0.19345E-01, 0.23103E-01, 0.26907E-01, 0.30726E-01, 0.34548E-01, - & 0.38316E-01, 0.42008E-01, 0.45615E-01, 0.49129E-01, 0.52535E-01, - & 0.55855E-01, 0.59079E-01, 0.62214E-01, 0.65324E-01, 0.68467E-01, - & 0.71784E-01, 0.75341E-01, 0.79120E-01, 0.82899E-01, 0.86679E-01, - & 0.90458E-01, 0.94237E-01, 0.98016E-01, 0.10180E+00, 0.10557E+00, - & 0.19084E-02, 0.52446E-02, 0.85953E-02, 0.12062E-01, 0.15618E-01, - & 0.19250E-01, 0.22933E-01, 0.26646E-01, 0.30358E-01, 0.34062E-01, - & 0.37702E-01, 0.41257E-01, 0.44718E-01, 0.48076E-01, 0.51320E-01, - & 0.54468E-01, 0.57517E-01, 0.60471E-01, 0.63392E-01, 0.66336E-01, - & 0.69440E-01, 0.72772E-01, 0.76315E-01, 0.79859E-01, 0.83403E-01, - & 0.86947E-01, 0.90491E-01, 0.94035E-01, 0.97579E-01, 0.10112E+00/ - - data ((f2grdl(i,j),j=1,30),i= 71, 80)/ - & 0.20929E-02, 0.53664E-02, 0.86565E-02, 0.12083E-01, 0.15597E-01, - & 0.19177E-01, 0.22794E-01, 0.26419E-01, 0.30032E-01, 0.33623E-01, - & 0.37140E-01, 0.40563E-01, 0.43882E-01, 0.47087E-01, 0.50174E-01, - & 0.53158E-01, 0.56037E-01, 0.58815E-01, 0.61553E-01, 0.64305E-01, - & 0.67205E-01, 0.70319E-01, 0.73634E-01, 0.76949E-01, 0.80264E-01, - & 0.83579E-01, 0.86894E-01, 0.90209E-01, 0.93525E-01, 0.96840E-01, - & 0.23144E-02, 0.55080E-02, 0.87257E-02, 0.12113E-01, 0.15594E-01, - & 0.19128E-01, 0.22686E-01, 0.26232E-01, 0.29751E-01, 0.33233E-01, - & 0.36631E-01, 0.39925E-01, 0.43106E-01, 0.46166E-01, 0.49100E-01, - & 0.51927E-01, 0.54641E-01, 0.57247E-01, 0.59808E-01, 0.62374E-01, - & 0.65076E-01, 0.67979E-01, 0.71072E-01, 0.74165E-01, 0.77258E-01, - & 0.80351E-01, 0.83444E-01, 0.86537E-01, 0.89630E-01, 0.92723E-01, - & 0.25741E-02, 0.56739E-02, 0.88051E-02, 0.12156E-01, 0.15610E-01, - & 0.19105E-01, 0.22612E-01, 0.26084E-01, 0.29515E-01, 0.32893E-01, - & 0.36177E-01, 0.39347E-01, 0.42396E-01, 0.45315E-01, 0.48102E-01, - & 0.50774E-01, 0.53329E-01, 0.55771E-01, 0.58159E-01, 0.60545E-01, - & 0.63057E-01, 0.65756E-01, 0.68636E-01, 0.71517E-01, 0.74397E-01, - & 0.77277E-01, 0.80157E-01, 0.83037E-01, 0.85917E-01, 0.88797E-01, - & 0.29712E-02, 0.59098E-02, 0.89009E-02, 0.12213E-01, 0.15645E-01, - & 0.19110E-01, 0.22572E-01, 0.25980E-01, 0.29330E-01, 0.32608E-01, - & 0.35782E-01, 0.38834E-01, 0.41754E-01, 0.44537E-01, 0.47180E-01, - & 0.49705E-01, 0.52104E-01, 0.54387E-01, 0.56608E-01, 0.58820E-01, - & 0.61146E-01, 0.63649E-01, 0.66321E-01, 0.68994E-01, 0.71667E-01, - & 0.74340E-01, 0.77012E-01, 0.79685E-01, 0.82358E-01, 0.85031E-01, - & 0.36558E-02, 0.62903E-02, 0.90233E-02, 0.12285E-01, 0.15700E-01, - & 0.19145E-01, 0.22569E-01, 0.25921E-01, 0.29197E-01, 0.32377E-01, - & 0.35447E-01, 0.38386E-01, 0.41182E-01, 0.43834E-01, 0.46338E-01, - & 0.48720E-01, 0.50968E-01, 0.53095E-01, 0.55155E-01, 0.57198E-01, - & 0.59345E-01, 0.61657E-01, 0.64129E-01, 0.66601E-01, 0.69072E-01, - & 0.71544E-01, 0.74015E-01, 0.76487E-01, 0.78958E-01, 0.81430E-01, - & 0.44829E-02, 0.67879E-02, 0.91931E-02, 0.12380E-01, 0.15781E-01, - & 0.19213E-01, 0.22606E-01, 0.25911E-01, 0.29122E-01, 0.32210E-01, - & 0.35176E-01, 0.38004E-01, 0.40684E-01, 0.43209E-01, 0.45579E-01, - & 0.47820E-01, 0.49923E-01, 0.51898E-01, 0.53802E-01, 0.55682E-01, - & 0.57655E-01, 0.59783E-01, 0.62062E-01, 0.64341E-01, 0.66619E-01, - & 0.68898E-01, 0.71176E-01, 0.73455E-01, 0.75733E-01, 0.78012E-01, - & 0.49380E-02, 0.71829E-02, 0.94545E-02, 0.12501E-01, 0.15890E-01, - & 0.19318E-01, 0.22687E-01, 0.25948E-01, 0.29104E-01, 0.32111E-01, - & 0.34975E-01, 0.37693E-01, 0.40257E-01, 0.42661E-01, 0.44903E-01, - & 0.47007E-01, 0.48967E-01, 0.50795E-01, 0.52547E-01, 0.54268E-01, - & 0.56072E-01, 0.58024E-01, 0.60119E-01, 0.62215E-01, 0.64310E-01, - & 0.66406E-01, 0.68501E-01, 0.70597E-01, 0.72692E-01, 0.74788E-01, - & 0.53649E-02, 0.75908E-02, 0.98269E-02, 0.12662E-01, 0.16030E-01, - & 0.19455E-01, 0.22816E-01, 0.26041E-01, 0.29148E-01, 0.32082E-01, - & 0.34847E-01, 0.37460E-01, 0.39910E-01, 0.42192E-01, 0.44304E-01, - & 0.46275E-01, 0.48096E-01, 0.49779E-01, 0.51382E-01, 0.52947E-01, - & 0.54588E-01, 0.56366E-01, 0.58281E-01, 0.60195E-01, 0.62110E-01, - & 0.64025E-01, 0.65940E-01, 0.67854E-01, 0.69769E-01, 0.71684E-01, - & 0.58162E-02, 0.80328E-02, 0.10259E-01, 0.12880E-01, 0.16209E-01, - & 0.19639E-01, 0.22998E-01, 0.26192E-01, 0.29255E-01, 0.32127E-01, - & 0.34800E-01, 0.37309E-01, 0.39646E-01, 0.41808E-01, 0.43795E-01, - & 0.45631E-01, 0.47316E-01, 0.48856E-01, 0.50310E-01, 0.51723E-01, - & 0.53202E-01, 0.54809E-01, 0.56546E-01, 0.58282E-01, 0.60019E-01, - & 0.61755E-01, 0.63492E-01, 0.65228E-01, 0.66965E-01, 0.68701E-01, - & 0.62951E-02, 0.85133E-02, 0.10742E-01, 0.13187E-01, 0.16434E-01, - & 0.19869E-01, 0.23230E-01, 0.26407E-01, 0.29432E-01, 0.32247E-01, - & 0.34831E-01, 0.37241E-01, 0.39469E-01, 0.41515E-01, 0.43376E-01, - & 0.45082E-01, 0.46630E-01, 0.48032E-01, 0.49341E-01, 0.50603E-01, - & 0.51922E-01, 0.53364E-01, 0.54927E-01, 0.56491E-01, 0.58054E-01, - & 0.59617E-01, 0.61181E-01, 0.62744E-01, 0.64308E-01, 0.65871E-01/ - - data ((f2grdl(i,j),j=1,30),i= 81, 90)/ - & 0.68063E-02, 0.90381E-02, 0.11281E-01, 0.13616E-01, 0.16717E-01, - & 0.20154E-01, 0.23520E-01, 0.26687E-01, 0.29681E-01, 0.32442E-01, - & 0.34947E-01, 0.37256E-01, 0.39380E-01, 0.41310E-01, 0.43048E-01, - & 0.44627E-01, 0.46042E-01, 0.47305E-01, 0.48470E-01, 0.49584E-01, - & 0.50747E-01, 0.52027E-01, 0.53423E-01, 0.54819E-01, 0.56215E-01, - & 0.57611E-01, 0.59008E-01, 0.60404E-01, 0.61800E-01, 0.63196E-01, - & 0.73527E-02, 0.96129E-02, 0.11884E-01, 0.14216E-01, 0.17076E-01, - & 0.20499E-01, 0.23876E-01, 0.27036E-01, 0.30008E-01, 0.32720E-01, - & 0.35150E-01, 0.37360E-01, 0.39374E-01, 0.41189E-01, 0.42809E-01, - & 0.44262E-01, 0.45544E-01, 0.46670E-01, 0.47693E-01, 0.48661E-01, - & 0.49670E-01, 0.50788E-01, 0.52014E-01, 0.53240E-01, 0.54467E-01, - & 0.55693E-01, 0.56919E-01, 0.58145E-01, 0.59372E-01, 0.60598E-01, - & 0.79439E-02, 0.10247E-01, 0.12560E-01, 0.14928E-01, 0.17543E-01, - & 0.20917E-01, 0.24304E-01, 0.27462E-01, 0.30415E-01, 0.33082E-01, - & 0.35443E-01, 0.37549E-01, 0.39457E-01, 0.41157E-01, 0.42652E-01, - & 0.43975E-01, 0.45122E-01, 0.46111E-01, 0.46991E-01, 0.47811E-01, - & 0.48665E-01, 0.49623E-01, 0.50684E-01, 0.51746E-01, 0.52807E-01, - & 0.53868E-01, 0.54929E-01, 0.55990E-01, 0.57051E-01, 0.58112E-01, - & 0.85816E-02, 0.10946E-01, 0.13321E-01, 0.15738E-01, 0.18184E-01, - & 0.21423E-01, 0.24808E-01, 0.27963E-01, 0.30901E-01, 0.33531E-01, - & 0.35826E-01, 0.37832E-01, 0.39625E-01, 0.41205E-01, 0.42577E-01, - & 0.43769E-01, 0.44780E-01, 0.45627E-01, 0.46362E-01, 0.47032E-01, - & 0.47732E-01, 0.48528E-01, 0.49421E-01, 0.50314E-01, 0.51207E-01, - & 0.52101E-01, 0.52994E-01, 0.53887E-01, 0.54780E-01, 0.55674E-01, - & 0.92768E-02, 0.11723E-01, 0.14179E-01, 0.16660E-01, 0.19063E-01, - & 0.22039E-01, 0.25400E-01, 0.28548E-01, 0.31467E-01, 0.34063E-01, - & 0.36293E-01, 0.38203E-01, 0.39876E-01, 0.41332E-01, 0.42573E-01, - & 0.43629E-01, 0.44500E-01, 0.45204E-01, 0.45792E-01, 0.46310E-01, - & 0.46853E-01, 0.47485E-01, 0.48207E-01, 0.48929E-01, 0.49651E-01, - & 0.50373E-01, 0.51095E-01, 0.51817E-01, 0.52539E-01, 0.53261E-01, - & 0.10044E-01, 0.12593E-01, 0.15149E-01, 0.17707E-01, 0.20143E-01, - & 0.22801E-01, 0.26091E-01, 0.29223E-01, 0.32117E-01, 0.34665E-01, - & 0.36839E-01, 0.38658E-01, 0.40204E-01, 0.41529E-01, 0.42634E-01, - & 0.43549E-01, 0.44275E-01, 0.44831E-01, 0.45267E-01, 0.45629E-01, - & 0.46011E-01, 0.46476E-01, 0.47026E-01, 0.47576E-01, 0.48127E-01, - & 0.48677E-01, 0.49227E-01, 0.49778E-01, 0.50328E-01, 0.50879E-01, - & 0.10890E-01, 0.13568E-01, 0.16249E-01, 0.18899E-01, 0.21385E-01, - & 0.23776E-01, 0.26897E-01, 0.29987E-01, 0.32846E-01, 0.35342E-01, - & 0.37439E-01, 0.39175E-01, 0.40596E-01, 0.41780E-01, 0.42741E-01, - & 0.43508E-01, 0.44082E-01, 0.44485E-01, 0.44765E-01, 0.44967E-01, - & 0.45183E-01, 0.45475E-01, 0.45847E-01, 0.46219E-01, 0.46591E-01, - & 0.46963E-01, 0.47335E-01, 0.47707E-01, 0.48079E-01, 0.48451E-01, - & 0.11839E-01, 0.14671E-01, 0.17503E-01, 0.20257E-01, 0.22795E-01, - & 0.25070E-01, 0.27843E-01, 0.30849E-01, 0.33648E-01, 0.36080E-01, - & 0.38092E-01, 0.39721E-01, 0.41015E-01, 0.42055E-01, 0.42866E-01, - & 0.43478E-01, 0.43894E-01, 0.44135E-01, 0.44252E-01, 0.44287E-01, - & 0.44331E-01, 0.44448E-01, 0.44641E-01, 0.44834E-01, 0.45027E-01, - & 0.45220E-01, 0.45413E-01, 0.45606E-01, 0.45799E-01, 0.45991E-01, - & 0.12914E-01, 0.15928E-01, 0.18937E-01, 0.21804E-01, 0.24390E-01, - & 0.26646E-01, 0.28972E-01, 0.31813E-01, 0.34509E-01, 0.36854E-01, - & 0.38766E-01, 0.40281E-01, 0.41435E-01, 0.42308E-01, 0.42954E-01, - & 0.43401E-01, 0.43652E-01, 0.43726E-01, 0.43674E-01, 0.43536E-01, - & 0.43404E-01, 0.43338E-01, 0.43342E-01, 0.43346E-01, 0.43350E-01, - & 0.43354E-01, 0.43357E-01, 0.43361E-01, 0.43365E-01, 0.43369E-01, - & 0.14150E-01, 0.17374E-01, 0.20585E-01, 0.23570E-01, 0.26191E-01, - & 0.28418E-01, 0.30378E-01, 0.32890E-01, 0.35415E-01, 0.37633E-01, - & 0.39421E-01, 0.40799E-01, 0.41808E-01, 0.42505E-01, 0.42966E-01, - & 0.43231E-01, 0.43301E-01, 0.43197E-01, 0.42966E-01, 0.42649E-01, - & 0.42332E-01, 0.42077E-01, 0.41885E-01, 0.41692E-01, 0.41500E-01, - & 0.41308E-01, 0.41116E-01, 0.40924E-01, 0.40732E-01, 0.40540E-01/ - - data ((f2grdl(i,j),j=1,30),i= 91,100)/ - & 0.15595E-01, 0.19054E-01, 0.22488E-01, 0.25585E-01, 0.28215E-01, - & 0.30374E-01, 0.32123E-01, 0.34113E-01, 0.36341E-01, 0.38372E-01, - & 0.39995E-01, 0.41209E-01, 0.42054E-01, 0.42566E-01, 0.42828E-01, - & 0.42899E-01, 0.42779E-01, 0.42490E-01, 0.42074E-01, 0.41570E-01, - & 0.41063E-01, 0.40612E-01, 0.40219E-01, 0.39826E-01, 0.39433E-01, - & 0.39040E-01, 0.38647E-01, 0.38254E-01, 0.37862E-01, 0.37469E-01, - & 0.17320E-01, 0.21030E-01, 0.24699E-01, 0.27883E-01, 0.30474E-01, - & 0.32507E-01, 0.34068E-01, 0.35532E-01, 0.37246E-01, 0.39006E-01, - & 0.40409E-01, 0.41423E-01, 0.42065E-01, 0.42383E-01, 0.42433E-01, - & 0.42297E-01, 0.41976E-01, 0.41492E-01, 0.40886E-01, 0.40194E-01, - & 0.39495E-01, 0.38848E-01, 0.38254E-01, 0.37660E-01, 0.37066E-01, - & 0.36471E-01, 0.35877E-01, 0.35283E-01, 0.34689E-01, 0.34095E-01, - & 0.19433E-01, 0.23388E-01, 0.27282E-01, 0.30500E-01, 0.32971E-01, - & 0.34789E-01, 0.36081E-01, 0.37024E-01, 0.38102E-01, 0.39442E-01, - & 0.40547E-01, 0.41304E-01, 0.41716E-01, 0.41815E-01, 0.41639E-01, - & 0.41280E-01, 0.40750E-01, 0.40069E-01, 0.39273E-01, 0.38398E-01, - & 0.37514E-01, 0.36674E-01, 0.35882E-01, 0.35090E-01, 0.34297E-01, - & 0.33505E-01, 0.32713E-01, 0.31921E-01, 0.31128E-01, 0.30336E-01, - & 0.22101E-01, 0.26254E-01, 0.30319E-01, 0.33465E-01, 0.35684E-01, - & 0.37152E-01, 0.38054E-01, 0.38500E-01, 0.38891E-01, 0.39552E-01, - & 0.40245E-01, 0.40676E-01, 0.40812E-01, 0.40662E-01, 0.40261E-01, - & 0.39677E-01, 0.38938E-01, 0.38065E-01, 0.37091E-01, 0.36043E-01, - & 0.34986E-01, 0.33971E-01, 0.32999E-01, 0.32026E-01, 0.31054E-01, - & 0.30081E-01, 0.29109E-01, 0.28136E-01, 0.27164E-01, 0.26191E-01, - & 0.25595E-01, 0.29816E-01, 0.33912E-01, 0.36786E-01, 0.38541E-01, - & 0.39461E-01, 0.39799E-01, 0.39695E-01, 0.39408E-01, 0.39185E-01, - & 0.39280E-01, 0.39292E-01, 0.39095E-01, 0.38669E-01, 0.38039E-01, - & 0.37242E-01, 0.36303E-01, 0.35257E-01, 0.34130E-01, 0.32942E-01, - & 0.31752E-01, 0.30597E-01, 0.29479E-01, 0.28361E-01, 0.27243E-01, - & 0.26126E-01, 0.25008E-01, 0.23890E-01, 0.22772E-01, 0.21655E-01, - & 0.30402E-01, 0.34379E-01, 0.38187E-01, 0.40421E-01, 0.41362E-01, - & 0.41439E-01, 0.40978E-01, 0.40161E-01, 0.39198E-01, 0.38144E-01, - & 0.37357E-01, 0.36808E-01, 0.36216E-01, 0.35494E-01, 0.34632E-01, - & 0.33653E-01, 0.32561E-01, 0.31388E-01, 0.30162E-01, 0.28895E-01, - & 0.27632E-01, 0.26404E-01, 0.25209E-01, 0.24015E-01, 0.22820E-01, - & 0.21625E-01, 0.20430E-01, 0.19236E-01, 0.18041E-01, 0.16846E-01, - & 0.37510E-01, 0.40511E-01, 0.43294E-01, 0.44179E-01, 0.43721E-01, - & 0.42518E-01, 0.40949E-01, 0.39220E-01, 0.37465E-01, 0.35730E-01, - & 0.34102E-01, 0.32786E-01, 0.31717E-01, 0.30683E-01, 0.29622E-01, - & 0.28515E-01, 0.27352E-01, 0.26144E-01, 0.24915E-01, 0.23673E-01, - & 0.22447E-01, 0.21256E-01, 0.20096E-01, 0.18935E-01, 0.17775E-01, - & 0.16615E-01, 0.15455E-01, 0.14294E-01, 0.13134E-01, 0.11974E-01, - & 0.49567E-01, 0.49614E-01, 0.49422E-01, 0.47416E-01, 0.44522E-01, - & 0.41404E-01, 0.38374E-01, 0.35583E-01, 0.32980E-01, 0.30623E-01, - & 0.28509E-01, 0.26639E-01, 0.25040E-01, 0.23710E-01, 0.22525E-01, - & 0.21393E-01, 0.20290E-01, 0.19202E-01, 0.18128E-01, 0.17073E-01, - & 0.16054E-01, 0.15072E-01, 0.14119E-01, 0.13167E-01, 0.12215E-01, - & 0.11263E-01, 0.10311E-01, 0.93583E-02, 0.84060E-02, 0.74538E-02, - & 0.80488E-01, 0.68482E-01, 0.56726E-01, 0.47356E-01, 0.40098E-01, - & 0.34427E-01, 0.29912E-01, 0.26350E-01, 0.23287E-01, 0.20759E-01, - & 0.18657E-01, 0.16879E-01, 0.15366E-01, 0.14083E-01, 0.12989E-01, - & 0.12044E-01, 0.11214E-01, 0.10461E-01, 0.97637E-02, 0.91136E-02, - & 0.85146E-02, 0.79515E-02, 0.74163E-02, 0.68810E-02, 0.63458E-02, - & 0.58106E-02, 0.52753E-02, 0.47401E-02, 0.42049E-02, 0.36696E-02, - & 0.12290E-01, 0.10283E-01, 0.83242E-02, 0.68087E-02, 0.56676E-02, - & 0.47964E-02, 0.41157E-02, 0.35879E-02, 0.31386E-02, 0.27724E-02, - & 0.24715E-02, 0.22193E-02, 0.20053E-02, 0.18226E-02, 0.16675E-02, - & 0.15359E-02, 0.14225E-02, 0.13217E-02, 0.12297E-02, 0.11451E-02, - & 0.10680E-02, 0.99619E-03, 0.92829E-03, 0.86040E-03, 0.79250E-03, - & 0.72460E-03, 0.65671E-03, 0.58881E-03, 0.52092E-03, 0.45302E-03/ - - data ((flgrdl(i,j),j=1,30),i= 1, 10)/ - &-0.20126E-02, 0.18189E-02, 0.56693E-02, 0.96708E-02, 0.13786E-01, - & 0.18010E-01, 0.22393E-01, 0.26996E-01, 0.31742E-01, 0.36679E-01, - & 0.41728E-01, 0.46851E-01, 0.51991E-01, 0.57115E-01, 0.62172E-01, - & 0.67147E-01, 0.72017E-01, 0.76759E-01, 0.81424E-01, 0.86074E-01, - & 0.90884E-01, 0.95968E-01, 0.10132E+00, 0.10667E+00, 0.11202E+00, - & 0.11738E+00, 0.12273E+00, 0.12808E+00, 0.13343E+00, 0.13878E+00, - &-0.19629E-02, 0.18351E-02, 0.56504E-02, 0.96003E-02, 0.13648E-01, - & 0.17793E-01, 0.22084E-01, 0.26584E-01, 0.31219E-01, 0.36037E-01, - & 0.40962E-01, 0.45954E-01, 0.50960E-01, 0.55947E-01, 0.60866E-01, - & 0.65701E-01, 0.70434E-01, 0.75039E-01, 0.79568E-01, 0.84083E-01, - & 0.88749E-01, 0.93685E-01, 0.98883E-01, 0.10408E+00, 0.10928E+00, - & 0.11448E+00, 0.11967E+00, 0.12487E+00, 0.13007E+00, 0.13527E+00, - &-0.19135E-02, 0.18513E-02, 0.56316E-02, 0.95304E-02, 0.13511E-01, - & 0.17577E-01, 0.21778E-01, 0.26177E-01, 0.30703E-01, 0.35404E-01, - & 0.40206E-01, 0.45070E-01, 0.49945E-01, 0.54795E-01, 0.59577E-01, - & 0.64278E-01, 0.68876E-01, 0.73348E-01, 0.77745E-01, 0.82127E-01, - & 0.86652E-01, 0.91443E-01, 0.96489E-01, 0.10153E+00, 0.10658E+00, - & 0.11163E+00, 0.11667E+00, 0.12172E+00, 0.12677E+00, 0.13181E+00, - &-0.18638E-02, 0.18676E-02, 0.56129E-02, 0.94608E-02, 0.13376E-01, - & 0.17364E-01, 0.21475E-01, 0.25774E-01, 0.30194E-01, 0.34778E-01, - & 0.39461E-01, 0.44199E-01, 0.48945E-01, 0.53662E-01, 0.58311E-01, - & 0.62880E-01, 0.67346E-01, 0.71687E-01, 0.75954E-01, 0.80207E-01, - & 0.84594E-01, 0.89242E-01, 0.94138E-01, 0.99035E-01, 0.10393E+00, - & 0.10883E+00, 0.11372E+00, 0.11862E+00, 0.12352E+00, 0.12841E+00, - &-0.18142E-02, 0.18839E-02, 0.55944E-02, 0.93917E-02, 0.13241E-01, - & 0.17153E-01, 0.21175E-01, 0.25376E-01, 0.29691E-01, 0.34161E-01, - & 0.38726E-01, 0.43341E-01, 0.47960E-01, 0.52547E-01, 0.57066E-01, - & 0.61505E-01, 0.65842E-01, 0.70056E-01, 0.74197E-01, 0.78322E-01, - & 0.82574E-01, 0.87083E-01, 0.91835E-01, 0.96587E-01, 0.10134E+00, - & 0.10609E+00, 0.11084E+00, 0.11560E+00, 0.12035E+00, 0.12510E+00, - &-0.17649E-02, 0.19002E-02, 0.55760E-02, 0.93232E-02, 0.13108E-01, - & 0.16944E-01, 0.20878E-01, 0.24982E-01, 0.29194E-01, 0.33553E-01, - & 0.38002E-01, 0.42496E-01, 0.46990E-01, 0.51449E-01, 0.55841E-01, - & 0.60154E-01, 0.64364E-01, 0.68454E-01, 0.72471E-01, 0.76472E-01, - & 0.80592E-01, 0.84965E-01, 0.89575E-01, 0.94185E-01, 0.98795E-01, - & 0.10341E+00, 0.10802E+00, 0.11263E+00, 0.11724E+00, 0.12185E+00, - &-0.17149E-02, 0.19168E-02, 0.55577E-02, 0.92551E-02, 0.12975E-01, - & 0.16736E-01, 0.20584E-01, 0.24592E-01, 0.28704E-01, 0.32953E-01, - & 0.37289E-01, 0.41664E-01, 0.46035E-01, 0.50368E-01, 0.54635E-01, - & 0.58825E-01, 0.62911E-01, 0.66880E-01, 0.70776E-01, 0.74652E-01, - & 0.78646E-01, 0.82887E-01, 0.87362E-01, 0.91836E-01, 0.96310E-01, - & 0.10078E+00, 0.10526E+00, 0.10973E+00, 0.11421E+00, 0.11868E+00, - &-0.16648E-02, 0.19336E-02, 0.55396E-02, 0.91875E-02, 0.12844E-01, - & 0.16531E-01, 0.20293E-01, 0.24208E-01, 0.28220E-01, 0.32362E-01, - & 0.36586E-01, 0.40845E-01, 0.45095E-01, 0.49304E-01, 0.53449E-01, - & 0.57520E-01, 0.61484E-01, 0.65332E-01, 0.69112E-01, 0.72866E-01, - & 0.76738E-01, 0.80849E-01, 0.85190E-01, 0.89530E-01, 0.93870E-01, - & 0.98210E-01, 0.10255E+00, 0.10689E+00, 0.11123E+00, 0.11557E+00, - &-0.16145E-02, 0.19505E-02, 0.55216E-02, 0.91203E-02, 0.12713E-01, - & 0.16327E-01, 0.20006E-01, 0.23827E-01, 0.27743E-01, 0.31779E-01, - & 0.35893E-01, 0.40038E-01, 0.44168E-01, 0.48258E-01, 0.52283E-01, - & 0.56238E-01, 0.60083E-01, 0.63813E-01, 0.67478E-01, 0.71114E-01, - & 0.74866E-01, 0.78852E-01, 0.83062E-01, 0.87272E-01, 0.91482E-01, - & 0.95691E-01, 0.99901E-01, 0.10411E+00, 0.10832E+00, 0.11253E+00, - &-0.15640E-02, 0.19675E-02, 0.55038E-02, 0.90534E-02, 0.12584E-01, - & 0.16124E-01, 0.19721E-01, 0.23451E-01, 0.27271E-01, 0.31204E-01, - & 0.35211E-01, 0.39241E-01, 0.43255E-01, 0.47227E-01, 0.51136E-01, - & 0.54977E-01, 0.58706E-01, 0.62321E-01, 0.65871E-01, 0.69394E-01, - & 0.73030E-01, 0.76894E-01, 0.80976E-01, 0.85059E-01, 0.89141E-01, - & 0.93224E-01, 0.97306E-01, 0.10139E+00, 0.10547E+00, 0.10955E+00/ - - data ((flgrdl(i,j),j=1,30),i= 11, 20)/ - &-0.15136E-02, 0.19847E-02, 0.54862E-02, 0.89870E-02, 0.12456E-01, - & 0.15924E-01, 0.19440E-01, 0.23080E-01, 0.26806E-01, 0.30637E-01, - & 0.34539E-01, 0.38457E-01, 0.42357E-01, 0.46215E-01, 0.50009E-01, - & 0.53738E-01, 0.57354E-01, 0.60857E-01, 0.64295E-01, 0.67706E-01, - & 0.71229E-01, 0.74972E-01, 0.78930E-01, 0.82888E-01, 0.86846E-01, - & 0.90804E-01, 0.94762E-01, 0.98720E-01, 0.10268E+00, 0.10664E+00, - &-0.14615E-02, 0.20026E-02, 0.54687E-02, 0.89210E-02, 0.12328E-01, - & 0.15725E-01, 0.19162E-01, 0.22713E-01, 0.26346E-01, 0.30078E-01, - & 0.33876E-01, 0.37685E-01, 0.41472E-01, 0.45219E-01, 0.48902E-01, - & 0.52521E-01, 0.56025E-01, 0.59418E-01, 0.62746E-01, 0.66047E-01, - & 0.69463E-01, 0.73086E-01, 0.76915E-01, 0.80745E-01, 0.84574E-01, - & 0.88403E-01, 0.92233E-01, 0.96062E-01, 0.99892E-01, 0.10372E+00, - &-0.14112E-02, 0.20200E-02, 0.54515E-02, 0.88555E-02, 0.12202E-01, - & 0.15528E-01, 0.18887E-01, 0.22351E-01, 0.25891E-01, 0.29526E-01, - & 0.33222E-01, 0.36922E-01, 0.40601E-01, 0.44241E-01, 0.47815E-01, - & 0.51323E-01, 0.54720E-01, 0.58005E-01, 0.61227E-01, 0.64419E-01, - & 0.67731E-01, 0.71236E-01, 0.74937E-01, 0.78638E-01, 0.82339E-01, - & 0.86041E-01, 0.89742E-01, 0.93443E-01, 0.97144E-01, 0.10085E+00, - &-0.13608E-02, 0.20376E-02, 0.54345E-02, 0.87903E-02, 0.12077E-01, - & 0.15333E-01, 0.18615E-01, 0.21993E-01, 0.25443E-01, 0.28982E-01, - & 0.32577E-01, 0.36171E-01, 0.39744E-01, 0.43280E-01, 0.46747E-01, - & 0.50145E-01, 0.53437E-01, 0.56617E-01, 0.59732E-01, 0.62820E-01, - & 0.66033E-01, 0.69421E-01, 0.72995E-01, 0.76570E-01, 0.80145E-01, - & 0.83719E-01, 0.87294E-01, 0.90868E-01, 0.94443E-01, 0.98018E-01, - &-0.13102E-02, 0.20553E-02, 0.54179E-02, 0.87257E-02, 0.11953E-01, - & 0.15139E-01, 0.18346E-01, 0.21640E-01, 0.25000E-01, 0.28447E-01, - & 0.31942E-01, 0.35431E-01, 0.38901E-01, 0.42335E-01, 0.45697E-01, - & 0.48987E-01, 0.52175E-01, 0.55253E-01, 0.58265E-01, 0.61251E-01, - & 0.64365E-01, 0.67640E-01, 0.71092E-01, 0.74543E-01, 0.77995E-01, - & 0.81446E-01, 0.84898E-01, 0.88350E-01, 0.91801E-01, 0.95253E-01, - &-0.12594E-02, 0.20732E-02, 0.54015E-02, 0.86614E-02, 0.11830E-01, - & 0.14948E-01, 0.18080E-01, 0.21291E-01, 0.24563E-01, 0.27919E-01, - & 0.31315E-01, 0.34702E-01, 0.38073E-01, 0.41406E-01, 0.44665E-01, - & 0.47850E-01, 0.50937E-01, 0.53913E-01, 0.56826E-01, 0.59711E-01, - & 0.62730E-01, 0.65894E-01, 0.69224E-01, 0.72554E-01, 0.75884E-01, - & 0.79214E-01, 0.82544E-01, 0.85874E-01, 0.89203E-01, 0.92533E-01, - &-0.12082E-02, 0.20914E-02, 0.53854E-02, 0.85977E-02, 0.11709E-01, - & 0.14758E-01, 0.17817E-01, 0.20946E-01, 0.24132E-01, 0.27398E-01, - & 0.30696E-01, 0.33986E-01, 0.37259E-01, 0.40491E-01, 0.43651E-01, - & 0.46733E-01, 0.49721E-01, 0.52598E-01, 0.55412E-01, 0.58202E-01, - & 0.61124E-01, 0.64180E-01, 0.67389E-01, 0.70598E-01, 0.73807E-01, - & 0.77015E-01, 0.80224E-01, 0.83433E-01, 0.86642E-01, 0.89851E-01, - &-0.11571E-02, 0.21097E-02, 0.53695E-02, 0.85345E-02, 0.11588E-01, - & 0.14570E-01, 0.17556E-01, 0.20606E-01, 0.23707E-01, 0.26884E-01, - & 0.30086E-01, 0.33280E-01, 0.36458E-01, 0.39592E-01, 0.42653E-01, - & 0.45633E-01, 0.48525E-01, 0.51306E-01, 0.54024E-01, 0.56723E-01, - & 0.59546E-01, 0.62498E-01, 0.65596E-01, 0.68694E-01, 0.71792E-01, - & 0.74890E-01, 0.77988E-01, 0.81086E-01, 0.84184E-01, 0.87282E-01, - &-0.11057E-02, 0.21282E-02, 0.53538E-02, 0.84717E-02, 0.11468E-01, - & 0.14384E-01, 0.17298E-01, 0.20269E-01, 0.23286E-01, 0.26377E-01, - & 0.29484E-01, 0.32586E-01, 0.35669E-01, 0.38707E-01, 0.41671E-01, - & 0.44553E-01, 0.47349E-01, 0.50040E-01, 0.52664E-01, 0.55275E-01, - & 0.57998E-01, 0.60848E-01, 0.63836E-01, 0.66825E-01, 0.69814E-01, - & 0.72802E-01, 0.75791E-01, 0.78780E-01, 0.81768E-01, 0.84757E-01, - &-0.10538E-02, 0.21471E-02, 0.53384E-02, 0.84095E-02, 0.11349E-01, - & 0.14200E-01, 0.17043E-01, 0.19936E-01, 0.22871E-01, 0.25876E-01, - & 0.28891E-01, 0.31902E-01, 0.34893E-01, 0.37837E-01, 0.40706E-01, - & 0.43492E-01, 0.46195E-01, 0.48796E-01, 0.51333E-01, 0.53855E-01, - & 0.56480E-01, 0.59231E-01, 0.62113E-01, 0.64996E-01, 0.67879E-01, - & 0.70762E-01, 0.73645E-01, 0.76528E-01, 0.79411E-01, 0.82294E-01/ - - data ((flgrdl(i,j),j=1,30),i= 21, 30)/ - &-0.10012E-02, 0.21664E-02, 0.53233E-02, 0.83479E-02, 0.11230E-01, - & 0.14018E-01, 0.16791E-01, 0.19607E-01, 0.22461E-01, 0.25381E-01, - & 0.28307E-01, 0.31229E-01, 0.34129E-01, 0.36980E-01, 0.39756E-01, - & 0.42448E-01, 0.45059E-01, 0.47574E-01, 0.50025E-01, 0.52461E-01, - & 0.54988E-01, 0.57646E-01, 0.60434E-01, 0.63222E-01, 0.66011E-01, - & 0.68799E-01, 0.71587E-01, 0.74375E-01, 0.77163E-01, 0.79952E-01, - &-0.94889E-03, 0.21859E-02, 0.53084E-02, 0.82869E-02, 0.11113E-01, - & 0.13837E-01, 0.16541E-01, 0.19282E-01, 0.22058E-01, 0.24893E-01, - & 0.27733E-01, 0.30568E-01, 0.33378E-01, 0.36138E-01, 0.38822E-01, - & 0.41423E-01, 0.43945E-01, 0.46373E-01, 0.48741E-01, 0.51092E-01, - & 0.53521E-01, 0.56091E-01, 0.58793E-01, 0.61496E-01, 0.64198E-01, - & 0.66901E-01, 0.69603E-01, 0.72305E-01, 0.75008E-01, 0.77710E-01, - &-0.89565E-03, 0.22058E-02, 0.52940E-02, 0.82266E-02, 0.10997E-01, - & 0.13658E-01, 0.16295E-01, 0.18962E-01, 0.21659E-01, 0.24412E-01, - & 0.27167E-01, 0.29917E-01, 0.32639E-01, 0.35308E-01, 0.37904E-01, - & 0.40417E-01, 0.42853E-01, 0.45196E-01, 0.47481E-01, 0.49748E-01, - & 0.52083E-01, 0.54565E-01, 0.57185E-01, 0.59804E-01, 0.62423E-01, - & 0.65042E-01, 0.67661E-01, 0.70281E-01, 0.72900E-01, 0.75519E-01, - &-0.84242E-03, 0.22261E-02, 0.52799E-02, 0.81669E-02, 0.10882E-01, - & 0.13482E-01, 0.16050E-01, 0.18645E-01, 0.21266E-01, 0.23938E-01, - & 0.26610E-01, 0.29277E-01, 0.31912E-01, 0.34492E-01, 0.37000E-01, - & 0.39429E-01, 0.41780E-01, 0.44041E-01, 0.46244E-01, 0.48430E-01, - & 0.50677E-01, 0.53073E-01, 0.55607E-01, 0.58142E-01, 0.60676E-01, - & 0.63210E-01, 0.65745E-01, 0.68279E-01, 0.70813E-01, 0.73348E-01, - &-0.78881E-03, 0.22467E-02, 0.52661E-02, 0.81078E-02, 0.10768E-01, - & 0.13308E-01, 0.15809E-01, 0.18332E-01, 0.20878E-01, 0.23470E-01, - & 0.26062E-01, 0.28646E-01, 0.31197E-01, 0.33688E-01, 0.36111E-01, - & 0.38458E-01, 0.40727E-01, 0.42907E-01, 0.45031E-01, 0.47138E-01, - & 0.49301E-01, 0.51611E-01, 0.54058E-01, 0.56505E-01, 0.58952E-01, - & 0.61399E-01, 0.63846E-01, 0.66293E-01, 0.68740E-01, 0.71188E-01, - &-0.73481E-03, 0.22676E-02, 0.52529E-02, 0.80493E-02, 0.10655E-01, - & 0.13136E-01, 0.15570E-01, 0.18023E-01, 0.20496E-01, 0.23010E-01, - & 0.25523E-01, 0.28026E-01, 0.30493E-01, 0.32898E-01, 0.35238E-01, - & 0.37506E-01, 0.39693E-01, 0.41795E-01, 0.43842E-01, 0.45871E-01, - & 0.47951E-01, 0.50178E-01, 0.52540E-01, 0.54901E-01, 0.57263E-01, - & 0.59624E-01, 0.61986E-01, 0.64347E-01, 0.66709E-01, 0.69070E-01, - &-0.68015E-03, 0.22892E-02, 0.52401E-02, 0.79914E-02, 0.10544E-01, - & 0.12965E-01, 0.15334E-01, 0.17718E-01, 0.20119E-01, 0.22557E-01, - & 0.24993E-01, 0.27417E-01, 0.29799E-01, 0.32122E-01, 0.34380E-01, - & 0.36571E-01, 0.38679E-01, 0.40704E-01, 0.42675E-01, 0.44629E-01, - & 0.46629E-01, 0.48775E-01, 0.51053E-01, 0.53331E-01, 0.55609E-01, - & 0.57887E-01, 0.60165E-01, 0.62443E-01, 0.64722E-01, 0.67000E-01, - &-0.62503E-03, 0.23111E-02, 0.52278E-02, 0.79342E-02, 0.10433E-01, - & 0.12796E-01, 0.15100E-01, 0.17416E-01, 0.19747E-01, 0.22109E-01, - & 0.24470E-01, 0.26817E-01, 0.29116E-01, 0.31359E-01, 0.33538E-01, - & 0.35652E-01, 0.37683E-01, 0.39634E-01, 0.41531E-01, 0.43411E-01, - & 0.45333E-01, 0.47399E-01, 0.49596E-01, 0.51793E-01, 0.53990E-01, - & 0.56187E-01, 0.58384E-01, 0.60581E-01, 0.62778E-01, 0.64975E-01, - &-0.56940E-03, 0.23336E-02, 0.52159E-02, 0.78777E-02, 0.10324E-01, - & 0.12628E-01, 0.14869E-01, 0.17119E-01, 0.19380E-01, 0.21669E-01, - & 0.23956E-01, 0.26225E-01, 0.28444E-01, 0.30609E-01, 0.32711E-01, - & 0.34750E-01, 0.36706E-01, 0.38584E-01, 0.40409E-01, 0.42216E-01, - & 0.44062E-01, 0.46051E-01, 0.48169E-01, 0.50286E-01, 0.52404E-01, - & 0.54522E-01, 0.56639E-01, 0.58757E-01, 0.60874E-01, 0.62992E-01, - &-0.51302E-03, 0.23568E-02, 0.52047E-02, 0.78218E-02, 0.10216E-01, - & 0.12462E-01, 0.14641E-01, 0.16825E-01, 0.19018E-01, 0.21235E-01, - & 0.23450E-01, 0.25640E-01, 0.27784E-01, 0.29874E-01, 0.31900E-01, - & 0.33866E-01, 0.35747E-01, 0.37555E-01, 0.39310E-01, 0.41046E-01, - & 0.42818E-01, 0.44731E-01, 0.46770E-01, 0.48810E-01, 0.50849E-01, - & 0.52889E-01, 0.54928E-01, 0.56967E-01, 0.59007E-01, 0.61046E-01/ - - data ((flgrdl(i,j),j=1,30),i= 31, 40)/ - &-0.45542E-03, 0.23807E-02, 0.51940E-02, 0.77667E-02, 0.10109E-01, - & 0.12298E-01, 0.14416E-01, 0.16534E-01, 0.18660E-01, 0.20809E-01, - & 0.22951E-01, 0.25065E-01, 0.27135E-01, 0.29151E-01, 0.31102E-01, - & 0.32997E-01, 0.34807E-01, 0.36545E-01, 0.38232E-01, 0.39898E-01, - & 0.41598E-01, 0.43438E-01, 0.45402E-01, 0.47366E-01, 0.49330E-01, - & 0.51294E-01, 0.53258E-01, 0.55222E-01, 0.57186E-01, 0.59150E-01, - &-0.39771E-03, 0.24052E-02, 0.51839E-02, 0.77124E-02, 0.10003E-01, - & 0.12136E-01, 0.14194E-01, 0.16248E-01, 0.18308E-01, 0.20388E-01, - & 0.22459E-01, 0.24500E-01, 0.26497E-01, 0.28441E-01, 0.30320E-01, - & 0.32145E-01, 0.33885E-01, 0.35554E-01, 0.37175E-01, 0.38767E-01, - & 0.40404E-01, 0.42172E-01, 0.44063E-01, 0.45954E-01, 0.47844E-01, - & 0.49735E-01, 0.51626E-01, 0.53517E-01, 0.55407E-01, 0.57298E-01, - &-0.33893E-03, 0.24304E-02, 0.51746E-02, 0.76590E-02, 0.98989E-02, - & 0.11976E-01, 0.13975E-01, 0.15965E-01, 0.17961E-01, 0.19973E-01, - & 0.21975E-01, 0.23945E-01, 0.25871E-01, 0.27744E-01, 0.29553E-01, - & 0.31309E-01, 0.32982E-01, 0.34580E-01, 0.36135E-01, 0.37658E-01, - & 0.39235E-01, 0.40933E-01, 0.42751E-01, 0.44569E-01, 0.46388E-01, - & 0.48206E-01, 0.50024E-01, 0.51843E-01, 0.53661E-01, 0.55479E-01, - &-0.27856E-03, 0.24568E-02, 0.51660E-02, 0.76065E-02, 0.97958E-02, - & 0.11817E-01, 0.13759E-01, 0.15686E-01, 0.17619E-01, 0.19563E-01, - & 0.21498E-01, 0.23398E-01, 0.25256E-01, 0.27060E-01, 0.28800E-01, - & 0.30489E-01, 0.32095E-01, 0.33625E-01, 0.35112E-01, 0.36572E-01, - & 0.38091E-01, 0.39719E-01, 0.41464E-01, 0.43208E-01, 0.44953E-01, - & 0.46697E-01, 0.48442E-01, 0.50186E-01, 0.51930E-01, 0.53675E-01, - &-0.21786E-03, 0.24838E-02, 0.51583E-02, 0.75550E-02, 0.96940E-02, - & 0.11661E-01, 0.13546E-01, 0.15412E-01, 0.17283E-01, 0.19161E-01, - & 0.21029E-01, 0.22861E-01, 0.24650E-01, 0.26386E-01, 0.28061E-01, - & 0.29683E-01, 0.31225E-01, 0.32689E-01, 0.34109E-01, 0.35508E-01, - & 0.36972E-01, 0.38528E-01, 0.40192E-01, 0.41856E-01, 0.43521E-01, - & 0.45185E-01, 0.46849E-01, 0.48513E-01, 0.50177E-01, 0.51841E-01, - &-0.15591E-03, 0.25119E-02, 0.51514E-02, 0.75044E-02, 0.95935E-02, - & 0.11506E-01, 0.13335E-01, 0.15142E-01, 0.16951E-01, 0.18766E-01, - & 0.20568E-01, 0.22333E-01, 0.24055E-01, 0.25726E-01, 0.27335E-01, - & 0.28888E-01, 0.30368E-01, 0.31768E-01, 0.33124E-01, 0.34462E-01, - & 0.35871E-01, 0.37355E-01, 0.38934E-01, 0.40513E-01, 0.42092E-01, - & 0.43671E-01, 0.45249E-01, 0.46828E-01, 0.48407E-01, 0.49986E-01, - &-0.92343E-04, 0.25412E-02, 0.51455E-02, 0.74549E-02, 0.94945E-02, - & 0.11354E-01, 0.13128E-01, 0.14875E-01, 0.16624E-01, 0.18377E-01, - & 0.20115E-01, 0.21814E-01, 0.23470E-01, 0.25078E-01, 0.26622E-01, - & 0.28107E-01, 0.29523E-01, 0.30864E-01, 0.32160E-01, 0.33440E-01, - & 0.34793E-01, 0.36207E-01, 0.37705E-01, 0.39202E-01, 0.40700E-01, - & 0.42197E-01, 0.43695E-01, 0.45192E-01, 0.46690E-01, 0.48187E-01, - &-0.27832E-04, 0.25716E-02, 0.51407E-02, 0.74065E-02, 0.93969E-02, - & 0.11204E-01, 0.12923E-01, 0.14614E-01, 0.16302E-01, 0.17995E-01, - & 0.19668E-01, 0.21304E-01, 0.22897E-01, 0.24440E-01, 0.25922E-01, - & 0.27340E-01, 0.28695E-01, 0.29978E-01, 0.31215E-01, 0.32439E-01, - & 0.33733E-01, 0.35082E-01, 0.36504E-01, 0.37926E-01, 0.39348E-01, - & 0.40771E-01, 0.42193E-01, 0.43615E-01, 0.45037E-01, 0.46460E-01, - & 0.38218E-04, 0.26032E-02, 0.51370E-02, 0.73593E-02, 0.93009E-02, - & 0.11056E-01, 0.12721E-01, 0.14356E-01, 0.15985E-01, 0.17618E-01, - & 0.19229E-01, 0.20803E-01, 0.22333E-01, 0.23814E-01, 0.25234E-01, - & 0.26590E-01, 0.27884E-01, 0.29111E-01, 0.30292E-01, 0.31461E-01, - & 0.32691E-01, 0.33980E-01, 0.35337E-01, 0.36694E-01, 0.38051E-01, - & 0.39408E-01, 0.40765E-01, 0.42122E-01, 0.43479E-01, 0.44836E-01, - & 0.10574E-03, 0.26363E-02, 0.51345E-02, 0.73133E-02, 0.92065E-02, - & 0.10910E-01, 0.12521E-01, 0.14101E-01, 0.15672E-01, 0.17248E-01, - & 0.18797E-01, 0.20309E-01, 0.21779E-01, 0.23198E-01, 0.24558E-01, - & 0.25855E-01, 0.27090E-01, 0.28261E-01, 0.29389E-01, 0.30503E-01, - & 0.31669E-01, 0.32900E-01, 0.34200E-01, 0.35501E-01, 0.36801E-01, - & 0.38102E-01, 0.39402E-01, 0.40703E-01, 0.42003E-01, 0.43304E-01/ - - data ((flgrdl(i,j),j=1,30),i= 41, 50)/ - & 0.17503E-03, 0.26708E-02, 0.51334E-02, 0.72688E-02, 0.91139E-02, - & 0.10767E-01, 0.12325E-01, 0.13850E-01, 0.15365E-01, 0.16883E-01, - & 0.18373E-01, 0.19824E-01, 0.21234E-01, 0.22594E-01, 0.23894E-01, - & 0.25134E-01, 0.26313E-01, 0.27430E-01, 0.28505E-01, 0.29566E-01, - & 0.30670E-01, 0.31845E-01, 0.33091E-01, 0.34337E-01, 0.35584E-01, - & 0.36830E-01, 0.38076E-01, 0.39322E-01, 0.40569E-01, 0.41815E-01, - & 0.24685E-03, 0.27072E-02, 0.51337E-02, 0.72257E-02, 0.90230E-02, - & 0.10626E-01, 0.12131E-01, 0.13603E-01, 0.15062E-01, 0.16524E-01, - & 0.17955E-01, 0.19348E-01, 0.20700E-01, 0.22001E-01, 0.23243E-01, - & 0.24428E-01, 0.25551E-01, 0.26615E-01, 0.27639E-01, 0.28649E-01, - & 0.29692E-01, 0.30813E-01, 0.32007E-01, 0.33202E-01, 0.34396E-01, - & 0.35590E-01, 0.36785E-01, 0.37979E-01, 0.39173E-01, 0.40367E-01, - & 0.32060E-03, 0.27455E-02, 0.51355E-02, 0.71843E-02, 0.89341E-02, - & 0.10487E-01, 0.11941E-01, 0.13359E-01, 0.14764E-01, 0.16171E-01, - & 0.17544E-01, 0.18881E-01, 0.20177E-01, 0.21421E-01, 0.22606E-01, - & 0.23737E-01, 0.24806E-01, 0.25818E-01, 0.26791E-01, 0.27750E-01, - & 0.28737E-01, 0.29805E-01, 0.30947E-01, 0.32090E-01, 0.33232E-01, - & 0.34375E-01, 0.35517E-01, 0.36660E-01, 0.37802E-01, 0.38945E-01, - & 0.39658E-03, 0.27857E-02, 0.51391E-02, 0.71446E-02, 0.88469E-02, - & 0.10351E-01, 0.11754E-01, 0.13120E-01, 0.14472E-01, 0.15823E-01, - & 0.17141E-01, 0.18422E-01, 0.19663E-01, 0.20851E-01, 0.21981E-01, - & 0.23059E-01, 0.24076E-01, 0.25037E-01, 0.25962E-01, 0.26871E-01, - & 0.27804E-01, 0.28820E-01, 0.29912E-01, 0.31003E-01, 0.32094E-01, - & 0.33186E-01, 0.34277E-01, 0.35369E-01, 0.36460E-01, 0.37552E-01, - & 0.47572E-03, 0.28283E-02, 0.51445E-02, 0.71067E-02, 0.87619E-02, - & 0.10217E-01, 0.11570E-01, 0.12884E-01, 0.14185E-01, 0.15482E-01, - & 0.16744E-01, 0.17973E-01, 0.19159E-01, 0.20293E-01, 0.21369E-01, - & 0.22395E-01, 0.23362E-01, 0.24273E-01, 0.25149E-01, 0.26011E-01, - & 0.26893E-01, 0.27857E-01, 0.28898E-01, 0.29938E-01, 0.30979E-01, - & 0.32019E-01, 0.33059E-01, 0.34100E-01, 0.35140E-01, 0.36180E-01, - & 0.55694E-03, 0.28731E-02, 0.51520E-02, 0.70708E-02, 0.86790E-02, - & 0.10086E-01, 0.11390E-01, 0.12653E-01, 0.13903E-01, 0.15146E-01, - & 0.16356E-01, 0.17533E-01, 0.18665E-01, 0.19745E-01, 0.20769E-01, - & 0.21744E-01, 0.22661E-01, 0.23524E-01, 0.24353E-01, 0.25166E-01, - & 0.26002E-01, 0.26915E-01, 0.27904E-01, 0.28892E-01, 0.29880E-01, - & 0.30868E-01, 0.31856E-01, 0.32844E-01, 0.33832E-01, 0.34820E-01, - & 0.64105E-03, 0.29204E-02, 0.51618E-02, 0.70371E-02, 0.85985E-02, - & 0.99575E-02, 0.11213E-01, 0.12426E-01, 0.13626E-01, 0.14817E-01, - & 0.15975E-01, 0.17102E-01, 0.18180E-01, 0.19208E-01, 0.20181E-01, - & 0.21106E-01, 0.21975E-01, 0.22790E-01, 0.23572E-01, 0.24339E-01, - & 0.25130E-01, 0.25994E-01, 0.26931E-01, 0.27868E-01, 0.28804E-01, - & 0.29741E-01, 0.30677E-01, 0.31614E-01, 0.32551E-01, 0.33487E-01, - & 0.72871E-03, 0.29707E-02, 0.51740E-02, 0.70056E-02, 0.85205E-02, - & 0.98320E-02, 0.11039E-01, 0.12204E-01, 0.13354E-01, 0.14494E-01, - & 0.15604E-01, 0.16678E-01, 0.17705E-01, 0.18681E-01, 0.19604E-01, - & 0.20480E-01, 0.21302E-01, 0.22070E-01, 0.22807E-01, 0.23527E-01, - & 0.24276E-01, 0.25092E-01, 0.25977E-01, 0.26861E-01, 0.27746E-01, - & 0.28630E-01, 0.29515E-01, 0.30399E-01, 0.31284E-01, 0.32168E-01, - & 0.82037E-03, 0.30243E-02, 0.51888E-02, 0.69766E-02, 0.84451E-02, - & 0.97098E-02, 0.10870E-01, 0.11986E-01, 0.13088E-01, 0.14177E-01, - & 0.15239E-01, 0.16263E-01, 0.17238E-01, 0.18165E-01, 0.19040E-01, - & 0.19867E-01, 0.20642E-01, 0.21365E-01, 0.22058E-01, 0.22734E-01, - & 0.23441E-01, 0.24210E-01, 0.25044E-01, 0.25878E-01, 0.26711E-01, - & 0.27545E-01, 0.28379E-01, 0.29213E-01, 0.30047E-01, 0.30880E-01, - & 0.91476E-03, 0.30807E-02, 0.52064E-02, 0.69502E-02, 0.83726E-02, - & 0.95907E-02, 0.10704E-01, 0.11773E-01, 0.12827E-01, 0.13868E-01, - & 0.14882E-01, 0.15855E-01, 0.16781E-01, 0.17659E-01, 0.18486E-01, - & 0.19267E-01, 0.19997E-01, 0.20675E-01, 0.21324E-01, 0.21958E-01, - & 0.22623E-01, 0.23345E-01, 0.24129E-01, 0.24913E-01, 0.25696E-01, - & 0.26480E-01, 0.27263E-01, 0.28047E-01, 0.28830E-01, 0.29614E-01/ - - data ((flgrdl(i,j),j=1,30),i= 51, 60)/ - & 0.10143E-02, 0.31411E-02, 0.52272E-02, 0.69266E-02, 0.83031E-02, - & 0.94750E-02, 0.10541E-01, 0.11565E-01, 0.12572E-01, 0.13565E-01, - & 0.14532E-01, 0.15455E-01, 0.16333E-01, 0.17164E-01, 0.17945E-01, - & 0.18679E-01, 0.19365E-01, 0.20002E-01, 0.20608E-01, 0.21201E-01, - & 0.21823E-01, 0.22499E-01, 0.23231E-01, 0.23963E-01, 0.24694E-01, - & 0.25426E-01, 0.26158E-01, 0.26890E-01, 0.27621E-01, 0.28353E-01, - & 0.11188E-02, 0.32057E-02, 0.52513E-02, 0.69062E-02, 0.82368E-02, - & 0.93626E-02, 0.10383E-01, 0.11361E-01, 0.12321E-01, 0.13270E-01, - & 0.14188E-01, 0.15064E-01, 0.15895E-01, 0.16678E-01, 0.17414E-01, - & 0.18106E-01, 0.18748E-01, 0.19343E-01, 0.19909E-01, 0.20461E-01, - & 0.21042E-01, 0.21673E-01, 0.22357E-01, 0.23042E-01, 0.23726E-01, - & 0.24411E-01, 0.25095E-01, 0.25779E-01, 0.26464E-01, 0.27148E-01, - & 0.12282E-02, 0.32745E-02, 0.52790E-02, 0.68890E-02, 0.81738E-02, - & 0.92537E-02, 0.10229E-01, 0.11162E-01, 0.12077E-01, 0.12980E-01, - & 0.13851E-01, 0.14681E-01, 0.15465E-01, 0.16203E-01, 0.16894E-01, - & 0.17545E-01, 0.18144E-01, 0.18698E-01, 0.19224E-01, 0.19736E-01, - & 0.20276E-01, 0.20865E-01, 0.21505E-01, 0.22146E-01, 0.22786E-01, - & 0.23426E-01, 0.24066E-01, 0.24706E-01, 0.25346E-01, 0.25987E-01, - & 0.13429E-02, 0.33479E-02, 0.53106E-02, 0.68756E-02, 0.81145E-02, - & 0.91487E-02, 0.10080E-01, 0.10968E-01, 0.11838E-01, 0.12696E-01, - & 0.13522E-01, 0.14305E-01, 0.15045E-01, 0.15740E-01, 0.16388E-01, - & 0.16996E-01, 0.17554E-01, 0.18068E-01, 0.18555E-01, 0.19030E-01, - & 0.19529E-01, 0.20076E-01, 0.20673E-01, 0.21270E-01, 0.21867E-01, - & 0.22464E-01, 0.23061E-01, 0.23658E-01, 0.24255E-01, 0.24852E-01, - & 0.14637E-02, 0.34265E-02, 0.53465E-02, 0.68660E-02, 0.80588E-02, - & 0.90478E-02, 0.99350E-02, 0.10778E-01, 0.11604E-01, 0.12419E-01, - & 0.13199E-01, 0.13939E-01, 0.14635E-01, 0.15287E-01, 0.15892E-01, - & 0.16460E-01, 0.16978E-01, 0.17453E-01, 0.17902E-01, 0.18338E-01, - & 0.18798E-01, 0.19305E-01, 0.19860E-01, 0.20415E-01, 0.20970E-01, - & 0.21525E-01, 0.22080E-01, 0.22635E-01, 0.23190E-01, 0.23745E-01, - & 0.15907E-02, 0.35105E-02, 0.53870E-02, 0.68604E-02, 0.80071E-02, - & 0.89512E-02, 0.97946E-02, 0.10594E-01, 0.11377E-01, 0.12148E-01, - & 0.12884E-01, 0.13581E-01, 0.14234E-01, 0.14846E-01, 0.15409E-01, - & 0.15935E-01, 0.16414E-01, 0.16850E-01, 0.17263E-01, 0.17662E-01, - & 0.18085E-01, 0.18553E-01, 0.19069E-01, 0.19584E-01, 0.20100E-01, - & 0.20616E-01, 0.21132E-01, 0.21648E-01, 0.22164E-01, 0.22679E-01, - & 0.17253E-02, 0.36006E-02, 0.54324E-02, 0.68593E-02, 0.79597E-02, - & 0.88591E-02, 0.96593E-02, 0.10416E-01, 0.11156E-01, 0.11884E-01, - & 0.12577E-01, 0.13231E-01, 0.13843E-01, 0.14414E-01, 0.14937E-01, - & 0.15422E-01, 0.15863E-01, 0.16262E-01, 0.16638E-01, 0.17002E-01, - & 0.17388E-01, 0.17817E-01, 0.18292E-01, 0.18768E-01, 0.19243E-01, - & 0.19718E-01, 0.20193E-01, 0.20668E-01, 0.21144E-01, 0.21619E-01, - & 0.18670E-02, 0.36971E-02, 0.54832E-02, 0.68628E-02, 0.79169E-02, - & 0.87719E-02, 0.95287E-02, 0.10243E-01, 0.10942E-01, 0.11627E-01, - & 0.12278E-01, 0.12890E-01, 0.13462E-01, 0.13992E-01, 0.14475E-01, - & 0.14920E-01, 0.15324E-01, 0.15687E-01, 0.16027E-01, 0.16356E-01, - & 0.16707E-01, 0.17098E-01, 0.17532E-01, 0.17965E-01, 0.18399E-01, - & 0.18832E-01, 0.19266E-01, 0.19700E-01, 0.20133E-01, 0.20567E-01, - & 0.20175E-02, 0.38006E-02, 0.55397E-02, 0.68712E-02, 0.78788E-02, - & 0.86895E-02, 0.94031E-02, 0.10076E-01, 0.10733E-01, 0.11377E-01, - & 0.11986E-01, 0.12558E-01, 0.13090E-01, 0.13580E-01, 0.14024E-01, - & 0.14430E-01, 0.14797E-01, 0.15124E-01, 0.15430E-01, 0.15724E-01, - & 0.16042E-01, 0.16396E-01, 0.16792E-01, 0.17187E-01, 0.17583E-01, - & 0.17979E-01, 0.18374E-01, 0.18770E-01, 0.19165E-01, 0.19561E-01, - & 0.21768E-02, 0.39117E-02, 0.56022E-02, 0.68850E-02, 0.78457E-02, - & 0.86120E-02, 0.92830E-02, 0.99146E-02, 0.10530E-01, 0.11133E-01, - & 0.11703E-01, 0.12236E-01, 0.12727E-01, 0.13177E-01, 0.13583E-01, - & 0.13952E-01, 0.14283E-01, 0.14575E-01, 0.14846E-01, 0.15107E-01, - & 0.15390E-01, 0.15709E-01, 0.16069E-01, 0.16428E-01, 0.16787E-01, - & 0.17147E-01, 0.17506E-01, 0.17865E-01, 0.18225E-01, 0.18584E-01/ - - data ((flgrdl(i,j),j=1,30),i= 61, 70)/ - & 0.23461E-02, 0.40308E-02, 0.56712E-02, 0.69042E-02, 0.78180E-02, - & 0.85400E-02, 0.91683E-02, 0.97592E-02, 0.10334E-01, 0.10897E-01, - & 0.11427E-01, 0.11921E-01, 0.12373E-01, 0.12784E-01, 0.13153E-01, - & 0.13485E-01, 0.13781E-01, 0.14039E-01, 0.14276E-01, 0.14506E-01, - & 0.14755E-01, 0.15038E-01, 0.15359E-01, 0.15679E-01, 0.16000E-01, - & 0.16320E-01, 0.16641E-01, 0.16962E-01, 0.17282E-01, 0.17603E-01, - & 0.25263E-02, 0.41589E-02, 0.57471E-02, 0.69294E-02, 0.77955E-02, - & 0.84733E-02, 0.90592E-02, 0.96097E-02, 0.10145E-01, 0.10668E-01, - & 0.11160E-01, 0.11614E-01, 0.12028E-01, 0.12401E-01, 0.12733E-01, - & 0.13030E-01, 0.13290E-01, 0.13516E-01, 0.13722E-01, 0.13919E-01, - & 0.14134E-01, 0.14383E-01, 0.14666E-01, 0.14949E-01, 0.15232E-01, - & 0.15515E-01, 0.15798E-01, 0.16081E-01, 0.16363E-01, 0.16646E-01, - & 0.27183E-02, 0.42964E-02, 0.58303E-02, 0.69606E-02, 0.77787E-02, - & 0.84118E-02, 0.89562E-02, 0.94659E-02, 0.99612E-02, 0.10446E-01, - & 0.10898E-01, 0.11315E-01, 0.11691E-01, 0.12027E-01, 0.12323E-01, - & 0.12585E-01, 0.12812E-01, 0.13006E-01, 0.13180E-01, 0.13346E-01, - & 0.13526E-01, 0.13742E-01, 0.13993E-01, 0.14243E-01, 0.14494E-01, - & 0.14744E-01, 0.14995E-01, 0.15245E-01, 0.15496E-01, 0.15746E-01, - & 0.29236E-02, 0.44444E-02, 0.59212E-02, 0.69982E-02, 0.77675E-02, - & 0.83562E-02, 0.88591E-02, 0.93284E-02, 0.97847E-02, 0.10230E-01, - & 0.10645E-01, 0.11024E-01, 0.11363E-01, 0.11662E-01, 0.11923E-01, - & 0.12152E-01, 0.12345E-01, 0.12507E-01, 0.12650E-01, 0.12786E-01, - & 0.12933E-01, 0.13116E-01, 0.13334E-01, 0.13551E-01, 0.13769E-01, - & 0.13986E-01, 0.14204E-01, 0.14421E-01, 0.14639E-01, 0.14856E-01, - & 0.31406E-02, 0.46025E-02, 0.60204E-02, 0.70423E-02, 0.77621E-02, - & 0.83064E-02, 0.87680E-02, 0.91972E-02, 0.96147E-02, 0.10022E-01, - & 0.10399E-01, 0.10741E-01, 0.11042E-01, 0.11306E-01, 0.11532E-01, - & 0.11728E-01, 0.11888E-01, 0.12018E-01, 0.12132E-01, 0.12236E-01, - & 0.12352E-01, 0.12503E-01, 0.12688E-01, 0.12874E-01, 0.13059E-01, - & 0.13244E-01, 0.13430E-01, 0.13615E-01, 0.13801E-01, 0.13986E-01, - & 0.33751E-02, 0.47733E-02, 0.61283E-02, 0.70930E-02, 0.77626E-02, - & 0.82620E-02, 0.86828E-02, 0.90727E-02, 0.94516E-02, 0.98208E-02, - & 0.10160E-01, 0.10465E-01, 0.10731E-01, 0.10960E-01, 0.11151E-01, - & 0.11314E-01, 0.11442E-01, 0.11541E-01, 0.11623E-01, 0.11697E-01, - & 0.11781E-01, 0.11901E-01, 0.12055E-01, 0.12210E-01, 0.12364E-01, - & 0.12518E-01, 0.12672E-01, 0.12826E-01, 0.12980E-01, 0.13135E-01, - & 0.36265E-02, 0.49570E-02, 0.62450E-02, 0.71505E-02, 0.77690E-02, - & 0.82234E-02, 0.86033E-02, 0.89543E-02, 0.92951E-02, 0.96262E-02, - & 0.99289E-02, 0.10196E-01, 0.10427E-01, 0.10621E-01, 0.10779E-01, - & 0.10909E-01, 0.11005E-01, 0.11073E-01, 0.11125E-01, 0.11169E-01, - & 0.11224E-01, 0.11312E-01, 0.11431E-01, 0.11551E-01, 0.11671E-01, - & 0.11791E-01, 0.11910E-01, 0.12030E-01, 0.12150E-01, 0.12270E-01, - & 0.38966E-02, 0.51547E-02, 0.63712E-02, 0.72149E-02, 0.77809E-02, - & 0.81901E-02, 0.85291E-02, 0.88416E-02, 0.91447E-02, 0.94387E-02, - & 0.97047E-02, 0.99367E-02, 0.10132E-01, 0.10291E-01, 0.10415E-01, - & 0.10512E-01, 0.10576E-01, 0.10613E-01, 0.10635E-01, 0.10648E-01, - & 0.10676E-01, 0.10731E-01, 0.10817E-01, 0.10903E-01, 0.10989E-01, - & 0.11075E-01, 0.11161E-01, 0.11246E-01, 0.11332E-01, 0.11418E-01, - & 0.41859E-02, 0.53670E-02, 0.65074E-02, 0.72861E-02, 0.77983E-02, - & 0.81617E-02, 0.84599E-02, 0.87352E-02, 0.90005E-02, 0.92578E-02, - & 0.94880E-02, 0.96840E-02, 0.98439E-02, 0.99699E-02, 0.10060E-01, - & 0.10124E-01, 0.10157E-01, 0.10162E-01, 0.10153E-01, 0.10138E-01, - & 0.10138E-01, 0.10161E-01, 0.10212E-01, 0.10263E-01, 0.10313E-01, - & 0.10364E-01, 0.10414E-01, 0.10465E-01, 0.10515E-01, 0.10566E-01, - & 0.45013E-02, 0.55972E-02, 0.66540E-02, 0.73640E-02, 0.78204E-02, - & 0.81378E-02, 0.83952E-02, 0.86336E-02, 0.88621E-02, 0.90831E-02, - & 0.92776E-02, 0.94384E-02, 0.95646E-02, 0.96569E-02, 0.97142E-02, - & 0.97438E-02, 0.97456E-02, 0.97216E-02, 0.96831E-02, 0.96394E-02, - & 0.96102E-02, 0.96009E-02, 0.96153E-02, 0.96297E-02, 0.96440E-02, - & 0.96584E-02, 0.96728E-02, 0.96871E-02, 0.97015E-02, 0.97159E-02/ - - data ((flgrdl(i,j),j=1,30),i= 71, 80)/ - & 0.48417E-02, 0.58453E-02, 0.68114E-02, 0.74482E-02, 0.78469E-02, - & 0.81176E-02, 0.83346E-02, 0.85357E-02, 0.87285E-02, 0.89146E-02, - & 0.90737E-02, 0.92001E-02, 0.92922E-02, 0.93501E-02, 0.93752E-02, - & 0.93738E-02, 0.93444E-02, 0.92904E-02, 0.92239E-02, 0.91503E-02, - & 0.90914E-02, 0.90526E-02, 0.90368E-02, 0.90210E-02, 0.90052E-02, - & 0.89894E-02, 0.89737E-02, 0.89579E-02, 0.89421E-02, 0.89263E-02, - & 0.52131E-02, 0.61144E-02, 0.69805E-02, 0.75384E-02, 0.78771E-02, - & 0.81002E-02, 0.82773E-02, 0.84419E-02, 0.85996E-02, 0.87509E-02, - & 0.88751E-02, 0.89678E-02, 0.90261E-02, 0.90513E-02, 0.90442E-02, - & 0.90125E-02, 0.89530E-02, 0.88689E-02, 0.87726E-02, 0.86724E-02, - & 0.85836E-02, 0.85151E-02, 0.84697E-02, 0.84242E-02, 0.83788E-02, - & 0.83334E-02, 0.82880E-02, 0.82426E-02, 0.81971E-02, 0.81517E-02, - & 0.56167E-02, 0.64058E-02, 0.71619E-02, 0.76346E-02, 0.79103E-02, - & 0.80845E-02, 0.82217E-02, 0.83506E-02, 0.84741E-02, 0.85908E-02, - & 0.86817E-02, 0.87406E-02, 0.87665E-02, 0.87599E-02, 0.87212E-02, - & 0.86579E-02, 0.85686E-02, 0.84573E-02, 0.83330E-02, 0.82057E-02, - & 0.80875E-02, 0.79879E-02, 0.79083E-02, 0.78288E-02, 0.77492E-02, - & 0.76697E-02, 0.75901E-02, 0.75105E-02, 0.74310E-02, 0.73514E-02, - & 0.60566E-02, 0.67219E-02, 0.73567E-02, 0.77361E-02, 0.79446E-02, - & 0.80691E-02, 0.81665E-02, 0.82606E-02, 0.83509E-02, 0.84344E-02, - & 0.84918E-02, 0.85188E-02, 0.85123E-02, 0.84738E-02, 0.84044E-02, - & 0.83115E-02, 0.81925E-02, 0.80534E-02, 0.79028E-02, 0.77473E-02, - & 0.75989E-02, 0.74716E-02, 0.73644E-02, 0.72572E-02, 0.71501E-02, - & 0.70429E-02, 0.69357E-02, 0.68285E-02, 0.67213E-02, 0.66141E-02, - & 0.65256E-02, 0.70604E-02, 0.75658E-02, 0.78422E-02, 0.79790E-02, - & 0.80522E-02, 0.81098E-02, 0.81706E-02, 0.82287E-02, 0.82794E-02, - & 0.83052E-02, 0.83005E-02, 0.82629E-02, 0.81936E-02, 0.80937E-02, - & 0.79722E-02, 0.78246E-02, 0.76566E-02, 0.74789E-02, 0.72958E-02, - & 0.71198E-02, 0.69654E-02, 0.68331E-02, 0.67008E-02, 0.65685E-02, - & 0.64363E-02, 0.63040E-02, 0.61717E-02, 0.60394E-02, 0.59071E-02, - & 0.70043E-02, 0.74130E-02, 0.77901E-02, 0.79531E-02, 0.80120E-02, - & 0.80321E-02, 0.80492E-02, 0.80779E-02, 0.81053E-02, 0.81252E-02, - & 0.81203E-02, 0.80849E-02, 0.80165E-02, 0.79172E-02, 0.77881E-02, - & 0.76376E-02, 0.74626E-02, 0.72677E-02, 0.70622E-02, 0.68536E-02, - & 0.66515E-02, 0.64676E-02, 0.63038E-02, 0.61399E-02, 0.59760E-02, - & 0.58121E-02, 0.56482E-02, 0.54844E-02, 0.53205E-02, 0.51566E-02, - & 0.74995E-02, 0.77800E-02, 0.80290E-02, 0.80681E-02, 0.80420E-02, - & 0.80061E-02, 0.79828E-02, 0.79797E-02, 0.79784E-02, 0.79708E-02, - & 0.79354E-02, 0.78691E-02, 0.77712E-02, 0.76434E-02, 0.74865E-02, - & 0.73073E-02, 0.71048E-02, 0.68839E-02, 0.66531E-02, 0.64183E-02, - & 0.61905E-02, 0.59790E-02, 0.57845E-02, 0.55900E-02, 0.53955E-02, - & 0.52010E-02, 0.50065E-02, 0.48120E-02, 0.46175E-02, 0.44229E-02, - & 0.80189E-02, 0.81630E-02, 0.82780E-02, 0.81872E-02, 0.80668E-02, - & 0.79707E-02, 0.79076E-02, 0.78741E-02, 0.78456E-02, 0.78120E-02, - & 0.77481E-02, 0.76531E-02, 0.75265E-02, 0.73703E-02, 0.71852E-02, - & 0.69794E-02, 0.67507E-02, 0.65035E-02, 0.62469E-02, 0.59863E-02, - & 0.57332E-02, 0.54951E-02, 0.52740E-02, 0.50529E-02, 0.48317E-02, - & 0.46106E-02, 0.43895E-02, 0.41683E-02, 0.39472E-02, 0.37261E-02, - & 0.85609E-02, 0.85597E-02, 0.85325E-02, 0.83103E-02, 0.80848E-02, - & 0.79241E-02, 0.78204E-02, 0.77572E-02, 0.77036E-02, 0.76465E-02, - & 0.75577E-02, 0.74356E-02, 0.72810E-02, 0.70978E-02, 0.68861E-02, - & 0.66541E-02, 0.63998E-02, 0.61272E-02, 0.58452E-02, 0.55599E-02, - & 0.52823E-02, 0.50167E-02, 0.47653E-02, 0.45140E-02, 0.42626E-02, - & 0.40113E-02, 0.37599E-02, 0.35086E-02, 0.32572E-02, 0.30059E-02, - & 0.91230E-02, 0.89672E-02, 0.87888E-02, 0.84362E-02, 0.80945E-02, - & 0.78627E-02, 0.77162E-02, 0.76260E-02, 0.75489E-02, 0.74713E-02, - & 0.73598E-02, 0.72132E-02, 0.70335E-02, 0.68253E-02, 0.65879E-02, - & 0.63309E-02, 0.60517E-02, 0.57555E-02, 0.54504E-02, 0.51413E-02, - & 0.48388E-02, 0.45473E-02, 0.42681E-02, 0.39889E-02, 0.37097E-02, - & 0.34305E-02, 0.31513E-02, 0.28722E-02, 0.25930E-02, 0.23138E-02/ - - data ((flgrdl(i,j),j=1,30),i= 81, 90)/ - & 0.97006E-02, 0.93807E-02, 0.90423E-02, 0.85617E-02, 0.80945E-02, - & 0.77831E-02, 0.75912E-02, 0.74753E-02, 0.73776E-02, 0.72815E-02, - & 0.71521E-02, 0.69836E-02, 0.67816E-02, 0.65495E-02, 0.62888E-02, - & 0.60085E-02, 0.57069E-02, 0.53884E-02, 0.50610E-02, 0.47302E-02, - & 0.44028E-02, 0.40877E-02, 0.37855E-02, 0.34832E-02, 0.31810E-02, - & 0.28788E-02, 0.25765E-02, 0.22743E-02, 0.19721E-02, 0.16698E-02, - & 0.10287E-01, 0.97946E-02, 0.92875E-02, 0.86786E-02, 0.80840E-02, - & 0.76823E-02, 0.74419E-02, 0.73007E-02, 0.71855E-02, 0.70750E-02, - & 0.69307E-02, 0.67440E-02, 0.65208E-02, 0.62674E-02, 0.59864E-02, - & 0.56865E-02, 0.53639E-02, 0.50245E-02, 0.46773E-02, 0.43256E-02, - & 0.39764E-02, 0.36393E-02, 0.33142E-02, 0.29890E-02, 0.26639E-02, - & 0.23388E-02, 0.20137E-02, 0.16885E-02, 0.13634E-02, 0.10383E-02, - & 0.10875E-01, 0.10201E-01, 0.95172E-02, 0.87768E-02, 0.80625E-02, - & 0.75578E-02, 0.72637E-02, 0.70980E-02, 0.69674E-02, 0.68462E-02, - & 0.66916E-02, 0.64903E-02, 0.62506E-02, 0.59794E-02, 0.56794E-02, - & 0.53602E-02, 0.50193E-02, 0.46618E-02, 0.42963E-02, 0.39256E-02, - & 0.35570E-02, 0.31990E-02, 0.28526E-02, 0.25062E-02, 0.21598E-02, - & 0.18134E-02, 0.14670E-02, 0.11206E-02, 0.77417E-03, 0.42777E-03, - & 0.11453E-01, 0.10590E-01, 0.97228E-02, 0.88480E-02, 0.80269E-02, - & 0.74080E-02, 0.70519E-02, 0.68606E-02, 0.67173E-02, 0.65909E-02, - & 0.64308E-02, 0.62208E-02, 0.59669E-02, 0.56805E-02, 0.53656E-02, - & 0.50311E-02, 0.46742E-02, 0.43005E-02, 0.39188E-02, 0.35317E-02, - & 0.31463E-02, 0.27696E-02, 0.24034E-02, 0.20371E-02, 0.16709E-02, - & 0.13046E-02, 0.93836E-03, 0.57210E-03, 0.20584E-03,-0.16041E-03, - & 0.12009E-01, 0.10951E-01, 0.98938E-02, 0.88832E-02, 0.79667E-02, - & 0.72325E-02, 0.68038E-02, 0.65849E-02, 0.64297E-02, 0.63033E-02, - & 0.61428E-02, 0.59298E-02, 0.56675E-02, 0.53704E-02, 0.50433E-02, - & 0.46968E-02, 0.43276E-02, 0.39412E-02, 0.35468E-02, 0.31462E-02, - & 0.27467E-02, 0.23543E-02, 0.19709E-02, 0.15875E-02, 0.12042E-02, - & 0.82079E-03, 0.43741E-03, 0.54033E-04,-0.32935E-03,-0.71272E-03, - & 0.12524E-01, 0.11267E-01, 0.10018E-01, 0.88722E-02, 0.78670E-02, - & 0.70318E-02, 0.65176E-02, 0.62674E-02, 0.61005E-02, 0.59752E-02, - & 0.58236E-02, 0.56146E-02, 0.53499E-02, 0.50467E-02, 0.47123E-02, - & 0.43575E-02, 0.39800E-02, 0.35853E-02, 0.31822E-02, 0.27717E-02, - & 0.23604E-02, 0.19560E-02, 0.15600E-02, 0.11639E-02, 0.76776E-03, - & 0.37166E-03,-0.24438E-04,-0.42054E-03,-0.81663E-03,-0.12127E-02, - & 0.12976E-01, 0.11520E-01, 0.10079E-01, 0.88032E-02, 0.77154E-02, - & 0.68051E-02, 0.61937E-02, 0.59040E-02, 0.57248E-02, 0.56056E-02, - & 0.54641E-02, 0.52688E-02, 0.50110E-02, 0.47074E-02, 0.43705E-02, - & 0.40131E-02, 0.36319E-02, 0.32328E-02, 0.28252E-02, 0.24091E-02, - & 0.19913E-02, 0.15795E-02, 0.11758E-02, 0.77210E-03, 0.36840E-03, - &-0.35300E-04,-0.43900E-03,-0.84270E-03,-0.12464E-02,-0.16501E-02, - & 0.13340E-01, 0.11690E-01, 0.10062E-01, 0.86629E-02, 0.75014E-02, - & 0.65433E-02, 0.58360E-02, 0.54962E-02, 0.53001E-02, 0.51893E-02, - & 0.50647E-02, 0.48862E-02, 0.46436E-02, 0.43487E-02, 0.40170E-02, - & 0.36615E-02, 0.32822E-02, 0.28845E-02, 0.24776E-02, 0.20614E-02, - & 0.16426E-02, 0.12277E-02, 0.81937E-03, 0.41105E-03, 0.27358E-05, - &-0.40558E-03,-0.81390E-03,-0.12222E-02,-0.16305E-02,-0.20388E-02, - & 0.13585E-01, 0.11751E-01, 0.99465E-02, 0.84368E-02, 0.72143E-02, - & 0.62255E-02, 0.54501E-02, 0.50469E-02, 0.48252E-02, 0.47227E-02, - & 0.46204E-02, 0.44669E-02, 0.42458E-02, 0.39665E-02, 0.36458E-02, - & 0.33007E-02, 0.29302E-02, 0.25403E-02, 0.21406E-02, 0.17301E-02, - & 0.13155E-02, 0.90442E-03, 0.49992E-03, 0.95421E-04,-0.30908E-03, - &-0.71358E-03,-0.11181E-02,-0.15226E-02,-0.19271E-02,-0.23316E-02, - & 0.13670E-01, 0.11672E-01, 0.97107E-02, 0.81097E-02, 0.68435E-02, - & 0.58393E-02, 0.50384E-02, 0.45643E-02, 0.43049E-02, 0.42065E-02, - & 0.41297E-02, 0.40070E-02, 0.38170E-02, 0.35632E-02, 0.32610E-02, - & 0.29321E-02, 0.25767E-02, 0.22020E-02, 0.18163E-02, 0.14188E-02, - & 0.10162E-02, 0.61533E-03, 0.21951E-03,-0.17630E-03,-0.57212E-03, - &-0.96794E-03,-0.13638E-02,-0.17596E-02,-0.21554E-02,-0.25512E-02/ - - data ((flgrdl(i,j),j=1,30),i= 91,100)/ - & 0.13555E-01, 0.11422E-01, 0.93319E-02, 0.76662E-02, 0.63790E-02, - & 0.53782E-02, 0.45876E-02, 0.40590E-02, 0.37495E-02, 0.36458E-02, - & 0.35933E-02, 0.35059E-02, 0.33550E-02, 0.31360E-02, 0.28622E-02, - & 0.25581E-02, 0.22261E-02, 0.18736E-02, 0.15089E-02, 0.11318E-02, - & 0.74902E-03, 0.36605E-03,-0.13024E-04,-0.39210E-03,-0.77117E-03, - &-0.11502E-02,-0.15293E-02,-0.19084E-02,-0.22875E-02,-0.26665E-02, - & 0.13188E-01, 0.10962E-01, 0.87865E-02, 0.70922E-02, 0.58130E-02, - & 0.48383E-02, 0.40809E-02, 0.35347E-02, 0.31756E-02, 0.30524E-02, - & 0.30188E-02, 0.29689E-02, 0.28593E-02, 0.26843E-02, 0.24496E-02, - & 0.21794E-02, 0.18787E-02, 0.15568E-02, 0.12221E-02, 0.87397E-03, - & 0.51892E-03, 0.16276E-03,-0.19075E-03,-0.54426E-03,-0.89776E-03, - &-0.12513E-02,-0.16048E-02,-0.19583E-02,-0.23118E-02,-0.26653E-02, - & 0.12516E-01, 0.10256E-01, 0.80527E-02, 0.63767E-02, 0.51415E-02, - & 0.42200E-02, 0.35166E-02, 0.29923E-02, 0.26088E-02, 0.24476E-02, - & 0.24207E-02, 0.24034E-02, 0.23398E-02, 0.22136E-02, 0.20256E-02, - & 0.17979E-02, 0.15376E-02, 0.12548E-02, 0.95875E-03, 0.64882E-03, - & 0.33111E-03, 0.10520E-04,-0.30919E-03,-0.62889E-03,-0.94860E-03, - &-0.12683E-02,-0.15880E-02,-0.19077E-02,-0.22274E-02,-0.25471E-02, - & 0.11484E-01, 0.92684E-02, 0.71138E-02, 0.55152E-02, 0.43671E-02, - & 0.35297E-02, 0.29027E-02, 0.24379E-02, 0.20692E-02, 0.18641E-02, - & 0.18239E-02, 0.18283E-02, 0.18065E-02, 0.17302E-02, 0.15966E-02, - & 0.14204E-02, 0.12083E-02, 0.97290E-03, 0.72310E-03, 0.45966E-03, - & 0.18809E-03,-0.87911E-04,-0.36476E-03,-0.64161E-03,-0.91847E-03, - &-0.11953E-02,-0.14722E-02,-0.17490E-02,-0.20259E-02,-0.23027E-02, - & 0.10042E-01, 0.79721E-02, 0.59645E-02, 0.45151E-02, 0.35033E-02, - & 0.27836E-02, 0.22560E-02, 0.18722E-02, 0.15599E-02, 0.13420E-02, - & 0.12672E-02, 0.12738E-02, 0.12815E-02, 0.12512E-02, 0.11728E-02, - & 0.10530E-02, 0.89541E-03, 0.71411E-03, 0.51830E-03, 0.30921E-03, - & 0.91757E-04,-0.13100E-03,-0.35604E-03,-0.58108E-03,-0.80612E-03, - &-0.10312E-02,-0.12562E-02,-0.14813E-02,-0.17063E-02,-0.19313E-02, - & 0.81598E-02, 0.63609E-02, 0.46212E-02, 0.34037E-02, 0.25808E-02, - & 0.20119E-02, 0.16046E-02, 0.13147E-02, 0.10808E-02, 0.90497E-03, - & 0.79969E-03, 0.78307E-03, 0.79958E-03, 0.80242E-03, 0.77080E-03, - & 0.70622E-03, 0.60716E-03, 0.48390E-03, 0.34625E-03, 0.19652E-03, - & 0.38785E-04,-0.12448E-03,-0.29101E-03,-0.45754E-03,-0.62408E-03, - &-0.79061E-03,-0.95714E-03,-0.11237E-02,-0.12902E-02,-0.14567E-02, - & 0.58575E-02, 0.44743E-02, 0.31412E-02, 0.22419E-02, 0.16565E-02, - & 0.12647E-02, 0.99149E-03, 0.80167E-03, 0.65062E-03, 0.53765E-03, - & 0.45468E-03, 0.41023E-03, 0.40992E-03, 0.42203E-03, 0.42109E-03, - & 0.39994E-03, 0.35371E-03, 0.28706E-03, 0.20716E-03, 0.11691E-03, - & 0.19509E-04,-0.82714E-04,-0.18825E-03,-0.29379E-03,-0.39933E-03, - &-0.50487E-03,-0.61041E-03,-0.71595E-03,-0.82149E-03,-0.92703E-03, - & 0.32779E-02, 0.24531E-02, 0.16612E-02, 0.11480E-02, 0.82702E-03, - & 0.61915E-03, 0.47789E-03, 0.38193E-03, 0.30654E-03, 0.25101E-03, - & 0.20935E-03, 0.17889E-03, 0.16187E-03, 0.16036E-03, 0.16495E-03, - & 0.16490E-03, 0.15408E-03, 0.13150E-03, 0.99976E-04, 0.61057E-04, - & 0.16968E-04,-0.30374E-04,-0.80060E-04,-0.12975E-03,-0.17943E-03, - &-0.22912E-03,-0.27881E-03,-0.32849E-03,-0.37818E-03,-0.42786E-03, - & 0.97141E-03, 0.72311E-03, 0.48504E-03, 0.33269E-03, 0.23847E-03, - & 0.17795E-03, 0.13704E-03, 0.10936E-03, 0.87648E-04, 0.71682E-04, - & 0.59714E-04, 0.50438E-04, 0.43442E-04, 0.39495E-04, 0.37713E-04, - & 0.37203E-04, 0.36350E-04, 0.33444E-04, 0.28166E-04, 0.20417E-04, - & 0.10579E-04,-0.52015E-06,-0.12495E-04,-0.24470E-04,-0.36445E-04, - &-0.48420E-04,-0.60394E-04,-0.72369E-04,-0.84344E-04,-0.96319E-04, - & 0.93525E-04, 0.69613E-04, 0.46692E-04, 0.32053E-04, 0.23007E-04, - & 0.17195E-04, 0.13263E-04, 0.10596E-04, 0.85028E-05, 0.69604E-05, - & 0.58022E-05, 0.49029E-05, 0.41899E-05, 0.36198E-05, 0.32043E-05, - & 0.30596E-05, 0.30647E-05, 0.29749E-05, 0.26847E-05, 0.21457E-05, - & 0.13726E-05, 0.45966E-06,-0.54799E-06,-0.15556E-05,-0.25633E-05, - &-0.35709E-05,-0.45786E-05,-0.55862E-05,-0.65939E-05,-0.76015E-05/ - - data ((c2grdl(i,j),j=1,30),i= 1, 10)/ - & 0.17446E-02, 0.35575E-02, 0.54193E-02, 0.78695E-02, 0.11183E-01, - & 0.15525E-01, 0.21050E-01, 0.27958E-01, 0.35787E-01, 0.44797E-01, - & 0.54891E-01, 0.65937E-01, 0.77838E-01, 0.90528E-01, 0.10392E+00, - & 0.11799E+00, 0.13274E+00, 0.14818E+00, 0.16441E+00, 0.18154E+00, - & 0.19992E+00, 0.21935E+00, 0.23963E+00, 0.25992E+00, 0.28020E+00, - & 0.30048E+00, 0.32076E+00, 0.34105E+00, 0.36133E+00, 0.38161E+00, - & 0.17143E-02, 0.34963E-02, 0.53268E-02, 0.77356E-02, 0.10992E-01, - & 0.15260E-01, 0.20687E-01, 0.27470E-01, 0.35153E-01, 0.43993E-01, - & 0.53894E-01, 0.64719E-01, 0.76381E-01, 0.88813E-01, 0.10193E+00, - & 0.11570E+00, 0.13014E+00, 0.14525E+00, 0.16113E+00, 0.17790E+00, - & 0.19588E+00, 0.21488E+00, 0.23473E+00, 0.25457E+00, 0.27441E+00, - & 0.29426E+00, 0.31410E+00, 0.33394E+00, 0.35379E+00, 0.37363E+00, - & 0.16830E-02, 0.34355E-02, 0.52354E-02, 0.76038E-02, 0.10803E-01, - & 0.14998E-01, 0.20328E-01, 0.26989E-01, 0.34528E-01, 0.43198E-01, - & 0.52908E-01, 0.63518E-01, 0.74944E-01, 0.87116E-01, 0.99956E-01, - & 0.11344E+00, 0.12758E+00, 0.14236E+00, 0.15789E+00, 0.17430E+00, - & 0.19188E+00, 0.21047E+00, 0.22988E+00, 0.24929E+00, 0.26870E+00, - & 0.28811E+00, 0.30751E+00, 0.32692E+00, 0.34633E+00, 0.36574E+00, - & 0.16532E-02, 0.33758E-02, 0.51453E-02, 0.74734E-02, 0.10616E-01, - & 0.14740E-01, 0.19974E-01, 0.26513E-01, 0.33911E-01, 0.42415E-01, - & 0.51935E-01, 0.62331E-01, 0.73524E-01, 0.85445E-01, 0.98014E-01, - & 0.11121E+00, 0.12504E+00, 0.13950E+00, 0.15470E+00, 0.17074E+00, - & 0.18794E+00, 0.20611E+00, 0.22509E+00, 0.24407E+00, 0.26305E+00, - & 0.28203E+00, 0.30101E+00, 0.32000E+00, 0.33898E+00, 0.35796E+00, - & 0.16238E-02, 0.33169E-02, 0.50562E-02, 0.73446E-02, 0.10432E-01, - & 0.14486E-01, 0.19623E-01, 0.26043E-01, 0.33301E-01, 0.41641E-01, - & 0.50974E-01, 0.61159E-01, 0.72123E-01, 0.83795E-01, 0.96097E-01, - & 0.10901E+00, 0.12255E+00, 0.13669E+00, 0.15155E+00, 0.16723E+00, - & 0.18405E+00, 0.20182E+00, 0.22037E+00, 0.23892E+00, 0.25748E+00, - & 0.27603E+00, 0.29458E+00, 0.31314E+00, 0.33169E+00, 0.35025E+00, - & 0.15930E-02, 0.32580E-02, 0.49683E-02, 0.72180E-02, 0.10250E-01, - & 0.14235E-01, 0.19277E-01, 0.25579E-01, 0.32699E-01, 0.40877E-01, - & 0.50025E-01, 0.60002E-01, 0.70738E-01, 0.82167E-01, 0.94206E-01, - & 0.10684E+00, 0.12008E+00, 0.13391E+00, 0.14844E+00, 0.16377E+00, - & 0.18021E+00, 0.19758E+00, 0.21570E+00, 0.23383E+00, 0.25195E+00, - & 0.27008E+00, 0.28820E+00, 0.30633E+00, 0.32446E+00, 0.34258E+00, - & 0.15636E-02, 0.32002E-02, 0.48814E-02, 0.70929E-02, 0.10070E-01, - & 0.13987E-01, 0.18935E-01, 0.25121E-01, 0.32106E-01, 0.40124E-01, - & 0.49089E-01, 0.58861E-01, 0.69374E-01, 0.80560E-01, 0.92339E-01, - & 0.10470E+00, 0.11764E+00, 0.13117E+00, 0.14537E+00, 0.16035E+00, - & 0.17643E+00, 0.19339E+00, 0.21110E+00, 0.22880E+00, 0.24650E+00, - & 0.26421E+00, 0.28191E+00, 0.29962E+00, 0.31732E+00, 0.33502E+00, - & 0.15356E-02, 0.31436E-02, 0.47956E-02, 0.69695E-02, 0.98933E-02, - & 0.13743E-01, 0.18597E-01, 0.24669E-01, 0.31521E-01, 0.39382E-01, - & 0.48165E-01, 0.57736E-01, 0.68030E-01, 0.78976E-01, 0.90500E-01, - & 0.10258E+00, 0.11524E+00, 0.12846E+00, 0.14234E+00, 0.15698E+00, - & 0.17269E+00, 0.18927E+00, 0.20656E+00, 0.22384E+00, 0.24113E+00, - & 0.25842E+00, 0.27571E+00, 0.29299E+00, 0.31028E+00, 0.32757E+00, - & 0.15084E-02, 0.30879E-02, 0.47109E-02, 0.68477E-02, 0.97187E-02, - & 0.13500E-01, 0.18264E-01, 0.24221E-01, 0.30943E-01, 0.38649E-01, - & 0.47253E-01, 0.56628E-01, 0.66702E-01, 0.77413E-01, 0.88685E-01, - & 0.10050E+00, 0.11287E+00, 0.12579E+00, 0.13935E+00, 0.15366E+00, - & 0.16901E+00, 0.18520E+00, 0.20208E+00, 0.21896E+00, 0.23584E+00, - & 0.25272E+00, 0.26960E+00, 0.28648E+00, 0.30336E+00, 0.32023E+00, - & 0.14829E-02, 0.30336E-02, 0.46273E-02, 0.67273E-02, 0.95466E-02, - & 0.13259E-01, 0.17936E-01, 0.23778E-01, 0.30372E-01, 0.37925E-01, - & 0.46354E-01, 0.55533E-01, 0.65392E-01, 0.75871E-01, 0.86895E-01, - & 0.98445E-01, 0.11054E+00, 0.12316E+00, 0.13641E+00, 0.15038E+00, - & 0.16538E+00, 0.18119E+00, 0.19767E+00, 0.21415E+00, 0.23063E+00, - & 0.24711E+00, 0.26359E+00, 0.28008E+00, 0.29656E+00, 0.31304E+00/ - - data ((c2grdl(i,j),j=1,30),i= 11, 20)/ - & 0.14589E-02, 0.29807E-02, 0.45449E-02, 0.66085E-02, 0.93771E-02, - & 0.13021E-01, 0.17613E-01, 0.23342E-01, 0.29810E-01, 0.37210E-01, - & 0.45467E-01, 0.54454E-01, 0.64100E-01, 0.74349E-01, 0.85128E-01, - & 0.96416E-01, 0.10824E+00, 0.12057E+00, 0.13351E+00, 0.14715E+00, - & 0.16180E+00, 0.17724E+00, 0.19333E+00, 0.20942E+00, 0.22551E+00, - & 0.24160E+00, 0.25770E+00, 0.27379E+00, 0.28988E+00, 0.30597E+00, - & 0.14467E-02, 0.29332E-02, 0.44636E-02, 0.64911E-02, 0.92094E-02, - & 0.12786E-01, 0.17294E-01, 0.22911E-01, 0.29255E-01, 0.36505E-01, - & 0.44591E-01, 0.53388E-01, 0.62825E-01, 0.72848E-01, 0.83386E-01, - & 0.94417E-01, 0.10596E+00, 0.11801E+00, 0.13065E+00, 0.14397E+00, - & 0.15826E+00, 0.17334E+00, 0.18905E+00, 0.20477E+00, 0.22048E+00, - & 0.23620E+00, 0.25191E+00, 0.26763E+00, 0.28334E+00, 0.29906E+00, - & 0.14199E-02, 0.28811E-02, 0.43835E-02, 0.63753E-02, 0.90444E-02, - & 0.12554E-01, 0.16979E-01, 0.22487E-01, 0.28707E-01, 0.35810E-01, - & 0.43728E-01, 0.52336E-01, 0.61566E-01, 0.71366E-01, 0.81666E-01, - & 0.92446E-01, 0.10372E+00, 0.11549E+00, 0.12783E+00, 0.14083E+00, - & 0.15478E+00, 0.16949E+00, 0.18484E+00, 0.20018E+00, 0.21553E+00, - & 0.23087E+00, 0.24622E+00, 0.26156E+00, 0.27691E+00, 0.29225E+00, - & 0.13943E-02, 0.28300E-02, 0.43050E-02, 0.62610E-02, 0.88825E-02, - & 0.12326E-01, 0.16668E-01, 0.22070E-01, 0.28167E-01, 0.35125E-01, - & 0.42878E-01, 0.51298E-01, 0.60324E-01, 0.69904E-01, 0.79967E-01, - & 0.90499E-01, 0.10151E+00, 0.11300E+00, 0.12504E+00, 0.13774E+00, - & 0.15134E+00, 0.16570E+00, 0.18068E+00, 0.19566E+00, 0.21064E+00, - & 0.22561E+00, 0.24059E+00, 0.25557E+00, 0.27054E+00, 0.28552E+00, - & 0.13668E-02, 0.27788E-02, 0.42284E-02, 0.61479E-02, 0.87229E-02, - & 0.12100E-01, 0.16363E-01, 0.21658E-01, 0.27632E-01, 0.34450E-01, - & 0.42040E-01, 0.50275E-01, 0.59100E-01, 0.68463E-01, 0.78295E-01, - & 0.88581E-01, 0.99335E-01, 0.11054E+00, 0.12230E+00, 0.13468E+00, - & 0.14796E+00, 0.16197E+00, 0.17658E+00, 0.19120E+00, 0.20581E+00, - & 0.22043E+00, 0.23504E+00, 0.24966E+00, 0.26427E+00, 0.27889E+00, - & 0.13414E-02, 0.27289E-02, 0.41534E-02, 0.60364E-02, 0.85654E-02, - & 0.11878E-01, 0.16060E-01, 0.21251E-01, 0.27103E-01, 0.33783E-01, - & 0.41211E-01, 0.49263E-01, 0.57892E-01, 0.67044E-01, 0.76646E-01, - & 0.86691E-01, 0.97189E-01, 0.10813E+00, 0.11960E+00, 0.13168E+00, - & 0.14462E+00, 0.15829E+00, 0.17255E+00, 0.18681E+00, 0.20107E+00, - & 0.21533E+00, 0.22959E+00, 0.24385E+00, 0.25811E+00, 0.27237E+00, - & 0.13163E-02, 0.26795E-02, 0.40794E-02, 0.59264E-02, 0.84105E-02, - & 0.11659E-01, 0.15762E-01, 0.20850E-01, 0.26582E-01, 0.33126E-01, - & 0.40392E-01, 0.48264E-01, 0.56701E-01, 0.65643E-01, 0.75021E-01, - & 0.84828E-01, 0.95073E-01, 0.10575E+00, 0.11693E+00, 0.12872E+00, - & 0.14134E+00, 0.15466E+00, 0.16857E+00, 0.18248E+00, 0.19638E+00, - & 0.21029E+00, 0.22420E+00, 0.23810E+00, 0.25201E+00, 0.26592E+00, - & 0.12906E-02, 0.26305E-02, 0.40062E-02, 0.58177E-02, 0.82574E-02, - & 0.11443E-01, 0.15468E-01, 0.20454E-01, 0.26067E-01, 0.32475E-01, - & 0.39580E-01, 0.47280E-01, 0.55528E-01, 0.64263E-01, 0.73418E-01, - & 0.82988E-01, 0.92985E-01, 0.10340E+00, 0.11431E+00, 0.12580E+00, - & 0.13809E+00, 0.15108E+00, 0.16464E+00, 0.17820E+00, 0.19175E+00, - & 0.20531E+00, 0.21887E+00, 0.23242E+00, 0.24598E+00, 0.25954E+00, - & 0.12663E-02, 0.25825E-02, 0.39340E-02, 0.57108E-02, 0.81063E-02, - & 0.11230E-01, 0.15177E-01, 0.20063E-01, 0.25559E-01, 0.31833E-01, - & 0.38777E-01, 0.46308E-01, 0.54370E-01, 0.62901E-01, 0.71838E-01, - & 0.81176E-01, 0.90927E-01, 0.10108E+00, 0.11172E+00, 0.12292E+00, - & 0.13490E+00, 0.14756E+00, 0.16078E+00, 0.17399E+00, 0.18721E+00, - & 0.20042E+00, 0.21364E+00, 0.22686E+00, 0.24007E+00, 0.25329E+00, - & 0.12440E-02, 0.25359E-02, 0.38628E-02, 0.56057E-02, 0.79570E-02, - & 0.11019E-01, 0.14891E-01, 0.19677E-01, 0.25058E-01, 0.31199E-01, - & 0.37986E-01, 0.45348E-01, 0.53227E-01, 0.61556E-01, 0.70278E-01, - & 0.79387E-01, 0.88897E-01, 0.98796E-01, 0.10916E+00, 0.12008E+00, - & 0.13175E+00, 0.14409E+00, 0.15697E+00, 0.16985E+00, 0.18273E+00, - & 0.19560E+00, 0.20848E+00, 0.22136E+00, 0.23424E+00, 0.24712E+00/ - - data ((c2grdl(i,j),j=1,30),i= 21, 30)/ - & 0.12231E-02, 0.24905E-02, 0.37926E-02, 0.55024E-02, 0.78094E-02, - & 0.10812E-01, 0.14608E-01, 0.19296E-01, 0.24564E-01, 0.30570E-01, - & 0.37207E-01, 0.44403E-01, 0.52097E-01, 0.60227E-01, 0.68736E-01, - & 0.77619E-01, 0.86891E-01, 0.96539E-01, 0.10664E+00, 0.11727E+00, - & 0.12865E+00, 0.14066E+00, 0.15320E+00, 0.16574E+00, 0.17828E+00, - & 0.19082E+00, 0.20336E+00, 0.21590E+00, 0.22844E+00, 0.24098E+00, - & 0.12004E-02, 0.24450E-02, 0.37234E-02, 0.54012E-02, 0.76637E-02, - & 0.10608E-01, 0.14330E-01, 0.18921E-01, 0.24078E-01, 0.29951E-01, - & 0.36440E-01, 0.43473E-01, 0.50985E-01, 0.58916E-01, 0.67215E-01, - & 0.75871E-01, 0.84908E-01, 0.94309E-01, 0.10415E+00, 0.11450E+00, - & 0.12558E+00, 0.13727E+00, 0.14947E+00, 0.16167E+00, 0.17388E+00, - & 0.18608E+00, 0.19828E+00, 0.21049E+00, 0.22269E+00, 0.23489E+00, - & 0.11827E-02, 0.24022E-02, 0.36553E-02, 0.53023E-02, 0.75199E-02, - & 0.10408E-01, 0.14055E-01, 0.18551E-01, 0.23599E-01, 0.29341E-01, - & 0.35684E-01, 0.42556E-01, 0.49888E-01, 0.57622E-01, 0.65714E-01, - & 0.74150E-01, 0.82953E-01, 0.92110E-01, 0.10169E+00, 0.11177E+00, - & 0.12255E+00, 0.13393E+00, 0.14580E+00, 0.15766E+00, 0.16953E+00, - & 0.18140E+00, 0.19327E+00, 0.20514E+00, 0.21700E+00, 0.22887E+00, - & 0.11619E-02, 0.23588E-02, 0.35884E-02, 0.52053E-02, 0.73782E-02, - & 0.10212E-01, 0.13783E-01, 0.18187E-01, 0.23126E-01, 0.28741E-01, - & 0.34940E-01, 0.41652E-01, 0.48806E-01, 0.56345E-01, 0.64234E-01, - & 0.72454E-01, 0.81028E-01, 0.89945E-01, 0.99273E-01, 0.10908E+00, - & 0.11957E+00, 0.13064E+00, 0.14218E+00, 0.15373E+00, 0.16527E+00, - & 0.17681E+00, 0.18836E+00, 0.19990E+00, 0.21145E+00, 0.22299E+00, - & 0.11436E-02, 0.23171E-02, 0.35226E-02, 0.51097E-02, 0.72386E-02, - & 0.10019E-01, 0.13516E-01, 0.17828E-01, 0.22660E-01, 0.28149E-01, - & 0.34208E-01, 0.40762E-01, 0.47739E-01, 0.55084E-01, 0.62772E-01, - & 0.70784E-01, 0.79131E-01, 0.87810E-01, 0.96889E-01, 0.10642E+00, - & 0.11662E+00, 0.12739E+00, 0.13862E+00, 0.14985E+00, 0.16108E+00, - & 0.17230E+00, 0.18353E+00, 0.19476E+00, 0.20599E+00, 0.21722E+00, - & 0.11244E-02, 0.22756E-02, 0.34582E-02, 0.50154E-02, 0.71012E-02, - & 0.98284E-02, 0.13252E-01, 0.17474E-01, 0.22201E-01, 0.27566E-01, - & 0.33487E-01, 0.39884E-01, 0.46686E-01, 0.53843E-01, 0.61333E-01, - & 0.69140E-01, 0.77265E-01, 0.85709E-01, 0.94540E-01, 0.10381E+00, - & 0.11373E+00, 0.12420E+00, 0.13511E+00, 0.14603E+00, 0.15695E+00, - & 0.16787E+00, 0.17879E+00, 0.18971E+00, 0.20063E+00, 0.21154E+00, - & 0.11099E-02, 0.22368E-02, 0.33951E-02, 0.49225E-02, 0.69662E-02, - & 0.96405E-02, 0.12991E-01, 0.17125E-01, 0.21748E-01, 0.26991E-01, - & 0.32776E-01, 0.39017E-01, 0.45646E-01, 0.52622E-01, 0.59917E-01, - & 0.67521E-01, 0.75427E-01, 0.83640E-01, 0.92227E-01, 0.10124E+00, - & 0.11088E+00, 0.12105E+00, 0.13166E+00, 0.14227E+00, 0.15289E+00, - & 0.16350E+00, 0.17411E+00, 0.18472E+00, 0.19533E+00, 0.20594E+00, - & 0.10920E-02, 0.21974E-02, 0.33331E-02, 0.48310E-02, 0.68336E-02, - & 0.94553E-02, 0.12734E-01, 0.16780E-01, 0.21302E-01, 0.26425E-01, - & 0.32075E-01, 0.38163E-01, 0.44620E-01, 0.51419E-01, 0.58522E-01, - & 0.65925E-01, 0.73616E-01, 0.81602E-01, 0.89949E-01, 0.98710E-01, - & 0.10807E+00, 0.11796E+00, 0.12826E+00, 0.13857E+00, 0.14888E+00, - & 0.15919E+00, 0.16950E+00, 0.17981E+00, 0.19012E+00, 0.20043E+00, - & 0.10738E-02, 0.21585E-02, 0.32725E-02, 0.47410E-02, 0.67038E-02, - & 0.92726E-02, 0.12480E-01, 0.16440E-01, 0.20863E-01, 0.25867E-01, - & 0.31383E-01, 0.37319E-01, 0.43610E-01, 0.50234E-01, 0.57148E-01, - & 0.64352E-01, 0.71831E-01, 0.79593E-01, 0.87703E-01, 0.96211E-01, - & 0.10531E+00, 0.11490E+00, 0.12491E+00, 0.13491E+00, 0.14492E+00, - & 0.15493E+00, 0.16493E+00, 0.17494E+00, 0.18494E+00, 0.19495E+00, - & 0.10559E-02, 0.21203E-02, 0.32133E-02, 0.46525E-02, 0.65770E-02, - & 0.90922E-02, 0.12231E-01, 0.16105E-01, 0.20430E-01, 0.25318E-01, - & 0.30703E-01, 0.36485E-01, 0.42617E-01, 0.49068E-01, 0.55795E-01, - & 0.62802E-01, 0.70073E-01, 0.77613E-01, 0.85491E-01, 0.93748E-01, - & 0.10258E+00, 0.11189E+00, 0.12160E+00, 0.13131E+00, 0.14102E+00, - & 0.15073E+00, 0.16044E+00, 0.17015E+00, 0.17986E+00, 0.18957E+00/ - - data ((c2grdl(i,j),j=1,30),i= 31, 40)/ - & 0.10422E-02, 0.20844E-02, 0.31552E-02, 0.45654E-02, 0.64523E-02, - & 0.89142E-02, 0.11987E-01, 0.15774E-01, 0.20002E-01, 0.24778E-01, - & 0.30032E-01, 0.35665E-01, 0.41639E-01, 0.47919E-01, 0.54463E-01, - & 0.61276E-01, 0.68340E-01, 0.75663E-01, 0.83309E-01, 0.91324E-01, - & 0.99896E-01, 0.10893E+00, 0.11835E+00, 0.12776E+00, 0.13718E+00, - & 0.14660E+00, 0.15602E+00, 0.16544E+00, 0.17486E+00, 0.18428E+00, - & 0.10232E-02, 0.20470E-02, 0.30982E-02, 0.44801E-02, 0.63300E-02, - & 0.87394E-02, 0.11748E-01, 0.15449E-01, 0.19580E-01, 0.24244E-01, - & 0.29370E-01, 0.34858E-01, 0.40676E-01, 0.46789E-01, 0.53152E-01, - & 0.59772E-01, 0.66634E-01, 0.73741E-01, 0.81161E-01, 0.88938E-01, - & 0.97255E-01, 0.10601E+00, 0.11514E+00, 0.12427E+00, 0.13340E+00, - & 0.14253E+00, 0.15166E+00, 0.16079E+00, 0.16992E+00, 0.17905E+00, - & 0.10068E-02, 0.20112E-02, 0.30425E-02, 0.43967E-02, 0.62097E-02, - & 0.85674E-02, 0.11513E-01, 0.15128E-01, 0.19165E-01, 0.23717E-01, - & 0.28716E-01, 0.34064E-01, 0.39729E-01, 0.45677E-01, 0.51862E-01, - & 0.58292E-01, 0.64954E-01, 0.71848E-01, 0.79045E-01, 0.86590E-01, - & 0.94652E-01, 0.10314E+00, 0.11198E+00, 0.12083E+00, 0.12967E+00, - & 0.13852E+00, 0.14736E+00, 0.15621E+00, 0.16505E+00, 0.17390E+00, - & 0.99536E-03, 0.19782E-02, 0.29879E-02, 0.43147E-02, 0.60913E-02, - & 0.83984E-02, 0.11282E-01, 0.14814E-01, 0.18758E-01, 0.23197E-01, - & 0.28070E-01, 0.33279E-01, 0.38795E-01, 0.44582E-01, 0.50593E-01, - & 0.56836E-01, 0.63302E-01, 0.69988E-01, 0.76965E-01, 0.84281E-01, - & 0.92091E-01, 0.10031E+00, 0.10888E+00, 0.11745E+00, 0.12602E+00, - & 0.13459E+00, 0.14316E+00, 0.15173E+00, 0.16030E+00, 0.16887E+00, - & 0.97823E-03, 0.19435E-02, 0.29344E-02, 0.42349E-02, 0.59749E-02, - & 0.82324E-02, 0.11055E-01, 0.14506E-01, 0.18358E-01, 0.22688E-01, - & 0.27435E-01, 0.32507E-01, 0.37873E-01, 0.43498E-01, 0.49337E-01, - & 0.55398E-01, 0.61671E-01, 0.68155E-01, 0.74918E-01, 0.82009E-01, - & 0.89570E-01, 0.97529E-01, 0.10583E+00, 0.11413E+00, 0.12244E+00, - & 0.13074E+00, 0.13904E+00, 0.14734E+00, 0.15565E+00, 0.16395E+00, - & 0.96501E-03, 0.19109E-02, 0.28822E-02, 0.41564E-02, 0.58607E-02, - & 0.80696E-02, 0.10833E-01, 0.14203E-01, 0.17964E-01, 0.22188E-01, - & 0.26811E-01, 0.31746E-01, 0.36964E-01, 0.42431E-01, 0.48100E-01, - & 0.53974E-01, 0.60057E-01, 0.66338E-01, 0.72888E-01, 0.79756E-01, - & 0.87070E-01, 0.94773E-01, 0.10281E+00, 0.11085E+00, 0.11889E+00, - & 0.12693E+00, 0.13497E+00, 0.14301E+00, 0.15105E+00, 0.15909E+00, - & 0.95466E-03, 0.18802E-02, 0.28313E-02, 0.40798E-02, 0.57485E-02, - & 0.79101E-02, 0.10613E-01, 0.13905E-01, 0.17577E-01, 0.21696E-01, - & 0.26197E-01, 0.31000E-01, 0.36071E-01, 0.41380E-01, 0.46880E-01, - & 0.52571E-01, 0.58465E-01, 0.64551E-01, 0.70892E-01, 0.77538E-01, - & 0.84611E-01, 0.92062E-01, 0.99844E-01, 0.10763E+00, 0.11541E+00, - & 0.12319E+00, 0.13097E+00, 0.13875E+00, 0.14653E+00, 0.15431E+00, - & 0.93967E-03, 0.18484E-02, 0.27813E-02, 0.40050E-02, 0.56384E-02, - & 0.77535E-02, 0.10398E-01, 0.13614E-01, 0.17195E-01, 0.21212E-01, - & 0.25593E-01, 0.30264E-01, 0.35193E-01, 0.40347E-01, 0.45681E-01, - & 0.51192E-01, 0.56900E-01, 0.62791E-01, 0.68928E-01, 0.75354E-01, - & 0.82190E-01, 0.89393E-01, 0.96918E-01, 0.10444E+00, 0.11197E+00, - & 0.11949E+00, 0.12702E+00, 0.13454E+00, 0.14207E+00, 0.14960E+00, - & 0.92729E-03, 0.18182E-02, 0.27327E-02, 0.39316E-02, 0.55306E-02, - & 0.76010E-02, 0.10185E-01, 0.13328E-01, 0.16820E-01, 0.20736E-01, - & 0.24999E-01, 0.29542E-01, 0.34330E-01, 0.39330E-01, 0.44502E-01, - & 0.49838E-01, 0.55363E-01, 0.61064E-01, 0.66999E-01, 0.73211E-01, - & 0.79813E-01, 0.86773E-01, 0.94044E-01, 0.10132E+00, 0.10859E+00, - & 0.11586E+00, 0.12313E+00, 0.13040E+00, 0.13767E+00, 0.14495E+00, - & 0.91363E-03, 0.17879E-02, 0.26854E-02, 0.38598E-02, 0.54251E-02, - & 0.74518E-02, 0.99757E-02, 0.13046E-01, 0.16450E-01, 0.20267E-01, - & 0.24414E-01, 0.28829E-01, 0.33480E-01, 0.38328E-01, 0.43340E-01, - & 0.48507E-01, 0.53852E-01, 0.59364E-01, 0.65102E-01, 0.71101E-01, - & 0.77475E-01, 0.84195E-01, 0.91216E-01, 0.98238E-01, 0.10526E+00, - & 0.11228E+00, 0.11930E+00, 0.12632E+00, 0.13335E+00, 0.14037E+00/ - - data ((c2grdl(i,j),j=1,30),i= 41, 50)/ - & 0.89834E-03, 0.17575E-02, 0.26391E-02, 0.37896E-02, 0.53220E-02, - & 0.73048E-02, 0.97704E-02, 0.12768E-01, 0.16087E-01, 0.19806E-01, - & 0.23839E-01, 0.28129E-01, 0.32643E-01, 0.37341E-01, 0.42194E-01, - & 0.47198E-01, 0.52366E-01, 0.57694E-01, 0.63235E-01, 0.69028E-01, - & 0.75177E-01, 0.81660E-01, 0.88434E-01, 0.95207E-01, 0.10198E+00, - & 0.10875E+00, 0.11553E+00, 0.12230E+00, 0.12907E+00, 0.13585E+00, - & 0.88698E-03, 0.17292E-02, 0.25937E-02, 0.37208E-02, 0.52212E-02, - & 0.71608E-02, 0.95689E-02, 0.12495E-01, 0.15730E-01, 0.19353E-01, - & 0.23275E-01, 0.27442E-01, 0.31820E-01, 0.36370E-01, 0.41068E-01, - & 0.45911E-01, 0.50905E-01, 0.56051E-01, 0.61399E-01, 0.66988E-01, - & 0.72916E-01, 0.79166E-01, 0.85693E-01, 0.92220E-01, 0.98747E-01, - & 0.10527E+00, 0.11180E+00, 0.11833E+00, 0.12485E+00, 0.13138E+00, - & 0.87437E-03, 0.17008E-02, 0.25492E-02, 0.36542E-02, 0.51228E-02, - & 0.70197E-02, 0.93714E-02, 0.12227E-01, 0.15379E-01, 0.18907E-01, - & 0.22719E-01, 0.26767E-01, 0.31013E-01, 0.35418E-01, 0.39962E-01, - & 0.44646E-01, 0.49469E-01, 0.54435E-01, 0.59594E-01, 0.64982E-01, - & 0.70692E-01, 0.76713E-01, 0.82997E-01, 0.89282E-01, 0.95566E-01, - & 0.10185E+00, 0.10814E+00, 0.11442E+00, 0.12070E+00, 0.12699E+00, - & 0.86018E-03, 0.16722E-02, 0.25056E-02, 0.35889E-02, 0.50263E-02, - & 0.68811E-02, 0.91779E-02, 0.11963E-01, 0.15036E-01, 0.18468E-01, - & 0.22172E-01, 0.26103E-01, 0.30218E-01, 0.34483E-01, 0.38877E-01, - & 0.43405E-01, 0.48060E-01, 0.52851E-01, 0.57824E-01, 0.63014E-01, - & 0.68512E-01, 0.74307E-01, 0.80353E-01, 0.86399E-01, 0.92446E-01, - & 0.98492E-01, 0.10454E+00, 0.11058E+00, 0.11663E+00, 0.12268E+00, - & 0.84852E-03, 0.16450E-02, 0.24627E-02, 0.35250E-02, 0.49321E-02, - & 0.67454E-02, 0.89883E-02, 0.11704E-01, 0.14700E-01, 0.18038E-01, - & 0.21636E-01, 0.25451E-01, 0.29437E-01, 0.33564E-01, 0.37810E-01, - & 0.42184E-01, 0.46676E-01, 0.51293E-01, 0.56084E-01, 0.61079E-01, - & 0.66368E-01, 0.71942E-01, 0.77755E-01, 0.83568E-01, 0.89381E-01, - & 0.95194E-01, 0.10101E+00, 0.10682E+00, 0.11263E+00, 0.11845E+00, - & 0.83696E-03, 0.16184E-02, 0.24205E-02, 0.34628E-02, 0.48400E-02, - & 0.66132E-02, 0.88034E-02, 0.11450E-01, 0.14369E-01, 0.17614E-01, - & 0.21109E-01, 0.24811E-01, 0.28670E-01, 0.32660E-01, 0.36762E-01, - & 0.40984E-01, 0.45314E-01, 0.49761E-01, 0.54372E-01, 0.59176E-01, - & 0.64259E-01, 0.69615E-01, 0.75202E-01, 0.80788E-01, 0.86374E-01, - & 0.91960E-01, 0.97546E-01, 0.10313E+00, 0.10872E+00, 0.11430E+00, - & 0.82087E-03, 0.15904E-02, 0.23791E-02, 0.34017E-02, 0.47501E-02, - & 0.64835E-02, 0.86227E-02, 0.11202E-01, 0.14045E-01, 0.17199E-01, - & 0.20593E-01, 0.24183E-01, 0.27916E-01, 0.31773E-01, 0.35732E-01, - & 0.39804E-01, 0.43975E-01, 0.48256E-01, 0.52689E-01, 0.57304E-01, - & 0.62187E-01, 0.67329E-01, 0.72692E-01, 0.78055E-01, 0.83418E-01, - & 0.88781E-01, 0.94143E-01, 0.99506E-01, 0.10487E+00, 0.11023E+00, - & 0.80811E-03, 0.15638E-02, 0.23387E-02, 0.33418E-02, 0.46624E-02, - & 0.63564E-02, 0.84457E-02, 0.10959E-01, 0.13728E-01, 0.16791E-01, - & 0.20090E-01, 0.23565E-01, 0.27175E-01, 0.30902E-01, 0.34721E-01, - & 0.38645E-01, 0.42660E-01, 0.46773E-01, 0.51033E-01, 0.55459E-01, - & 0.60148E-01, 0.65080E-01, 0.70222E-01, 0.75364E-01, 0.80507E-01, - & 0.85649E-01, 0.90791E-01, 0.95933E-01, 0.10108E+00, 0.10622E+00, - & 0.79522E-03, 0.15376E-02, 0.22989E-02, 0.32832E-02, 0.45766E-02, - & 0.62330E-02, 0.82726E-02, 0.10721E-01, 0.13416E-01, 0.16392E-01, - & 0.19595E-01, 0.22958E-01, 0.26448E-01, 0.30046E-01, 0.33728E-01, - & 0.37506E-01, 0.41368E-01, 0.45317E-01, 0.49403E-01, 0.53648E-01, - & 0.58147E-01, 0.62871E-01, 0.67794E-01, 0.72717E-01, 0.77640E-01, - & 0.82564E-01, 0.87487E-01, 0.92410E-01, 0.97333E-01, 0.10226E+00, - & 0.77605E-03, 0.15091E-02, 0.22594E-02, 0.32252E-02, 0.44925E-02, - & 0.61124E-02, 0.81031E-02, 0.10490E-01, 0.13112E-01, 0.16002E-01, - & 0.19109E-01, 0.22364E-01, 0.25735E-01, 0.29206E-01, 0.32753E-01, - & 0.36388E-01, 0.40098E-01, 0.43886E-01, 0.47802E-01, 0.51869E-01, - & 0.56181E-01, 0.60700E-01, 0.65407E-01, 0.70114E-01, 0.74821E-01, - & 0.79527E-01, 0.84234E-01, 0.88941E-01, 0.93648E-01, 0.98355E-01/ - - data ((c2grdl(i,j),j=1,30),i= 51, 60)/ - & 0.75766E-03, 0.14807E-02, 0.22206E-02, 0.31682E-02, 0.44107E-02, - & 0.59947E-02, 0.79374E-02, 0.10263E-01, 0.12814E-01, 0.15622E-01, - & 0.18633E-01, 0.21779E-01, 0.25036E-01, 0.28383E-01, 0.31797E-01, - & 0.35291E-01, 0.38853E-01, 0.42484E-01, 0.46233E-01, 0.50125E-01, - & 0.54252E-01, 0.58568E-01, 0.63059E-01, 0.67549E-01, 0.72039E-01, - & 0.76529E-01, 0.81019E-01, 0.85509E-01, 0.89999E-01, 0.94490E-01, - & 0.74369E-03, 0.14541E-02, 0.21819E-02, 0.31122E-02, 0.43303E-02, - & 0.58794E-02, 0.77756E-02, 0.10041E-01, 0.12522E-01, 0.15250E-01, - & 0.18165E-01, 0.21207E-01, 0.24350E-01, 0.27573E-01, 0.30858E-01, - & 0.34214E-01, 0.37630E-01, 0.41109E-01, 0.44695E-01, 0.48416E-01, - & 0.52361E-01, 0.56479E-01, 0.60756E-01, 0.65033E-01, 0.69310E-01, - & 0.73587E-01, 0.77864E-01, 0.82141E-01, 0.86418E-01, 0.90695E-01, - & 0.72134E-03, 0.14241E-02, 0.21429E-02, 0.30571E-02, 0.42511E-02, - & 0.57666E-02, 0.76174E-02, 0.98240E-02, 0.12235E-01, 0.14885E-01, - & 0.17706E-01, 0.20645E-01, 0.23677E-01, 0.26781E-01, 0.29938E-01, - & 0.33157E-01, 0.36428E-01, 0.39756E-01, 0.43185E-01, 0.46737E-01, - & 0.50501E-01, 0.54425E-01, 0.58495E-01, 0.62565E-01, 0.66635E-01, - & 0.70705E-01, 0.74775E-01, 0.78844E-01, 0.82914E-01, 0.86984E-01, - & 0.69631E-03, 0.13924E-02, 0.21039E-02, 0.30034E-02, 0.41735E-02, - & 0.56559E-02, 0.74629E-02, 0.96115E-02, 0.11955E-01, 0.14526E-01, - & 0.17257E-01, 0.20095E-01, 0.23018E-01, 0.26005E-01, 0.29037E-01, - & 0.32122E-01, 0.35251E-01, 0.38433E-01, 0.41706E-01, 0.45095E-01, - & 0.48676E-01, 0.52413E-01, 0.56286E-01, 0.60159E-01, 0.64032E-01, - & 0.67904E-01, 0.71777E-01, 0.75650E-01, 0.79523E-01, 0.83396E-01, - & 0.67202E-03, 0.13602E-02, 0.20644E-02, 0.29500E-02, 0.40971E-02, - & 0.55478E-02, 0.73120E-02, 0.94038E-02, 0.11681E-01, 0.14176E-01, - & 0.16816E-01, 0.19556E-01, 0.22372E-01, 0.25245E-01, 0.28153E-01, - & 0.31108E-01, 0.34100E-01, 0.37136E-01, 0.40257E-01, 0.43485E-01, - & 0.46887E-01, 0.50441E-01, 0.54126E-01, 0.57812E-01, 0.61497E-01, - & 0.65183E-01, 0.68868E-01, 0.72554E-01, 0.76239E-01, 0.79925E-01, - & 0.64180E-03, 0.13252E-02, 0.20234E-02, 0.28968E-02, 0.40218E-02, - & 0.54410E-02, 0.71638E-02, 0.92005E-02, 0.11413E-01, 0.13832E-01, - & 0.16384E-01, 0.19029E-01, 0.21740E-01, 0.24501E-01, 0.27288E-01, - & 0.30114E-01, 0.32970E-01, 0.35865E-01, 0.38837E-01, 0.41907E-01, - & 0.45133E-01, 0.48507E-01, 0.52006E-01, 0.55506E-01, 0.59005E-01, - & 0.62505E-01, 0.66004E-01, 0.69503E-01, 0.73003E-01, 0.76502E-01, - & 0.61055E-03, 0.12887E-02, 0.19812E-02, 0.28441E-02, 0.39479E-02, - & 0.53366E-02, 0.70195E-02, 0.90018E-02, 0.11152E-01, 0.13496E-01, - & 0.15962E-01, 0.18512E-01, 0.21123E-01, 0.23772E-01, 0.26440E-01, - & 0.29140E-01, 0.31864E-01, 0.34620E-01, 0.37446E-01, 0.40361E-01, - & 0.43416E-01, 0.46614E-01, 0.49932E-01, 0.53250E-01, 0.56568E-01, - & 0.59885E-01, 0.63203E-01, 0.66521E-01, 0.69839E-01, 0.73157E-01, - & 0.57113E-03, 0.12478E-02, 0.19377E-02, 0.27910E-02, 0.38751E-02, - & 0.52346E-02, 0.68776E-02, 0.88074E-02, 0.10897E-01, 0.13167E-01, - & 0.15550E-01, 0.18008E-01, 0.20519E-01, 0.23058E-01, 0.25609E-01, - & 0.28186E-01, 0.30781E-01, 0.33401E-01, 0.36084E-01, 0.38846E-01, - & 0.41734E-01, 0.44759E-01, 0.47900E-01, 0.51041E-01, 0.54183E-01, - & 0.57324E-01, 0.60465E-01, 0.63606E-01, 0.66747E-01, 0.69888E-01, - & 0.52387E-03, 0.12016E-02, 0.18922E-02, 0.27367E-02, 0.38033E-02, - & 0.51344E-02, 0.67378E-02, 0.86172E-02, 0.10648E-01, 0.12846E-01, - & 0.15147E-01, 0.17516E-01, 0.19927E-01, 0.22359E-01, 0.24796E-01, - & 0.27253E-01, 0.29721E-01, 0.32206E-01, 0.34749E-01, 0.37362E-01, - & 0.40087E-01, 0.42944E-01, 0.45909E-01, 0.48875E-01, 0.51840E-01, - & 0.54806E-01, 0.57771E-01, 0.60737E-01, 0.63702E-01, 0.66668E-01, - & 0.47267E-03, 0.11519E-02, 0.18436E-02, 0.26812E-02, 0.37319E-02, - & 0.50354E-02, 0.66008E-02, 0.84304E-02, 0.10403E-01, 0.12533E-01, - & 0.14754E-01, 0.17036E-01, 0.19350E-01, 0.21675E-01, 0.24000E-01, - & 0.26339E-01, 0.28683E-01, 0.31037E-01, 0.33443E-01, 0.35908E-01, - & 0.38477E-01, 0.41166E-01, 0.43958E-01, 0.46749E-01, 0.49541E-01, - & 0.52332E-01, 0.55123E-01, 0.57915E-01, 0.60706E-01, 0.63497E-01/ - - data ((c2grdl(i,j),j=1,30),i= 61, 70)/ - & 0.41266E-03, 0.10960E-02, 0.17910E-02, 0.26238E-02, 0.36611E-02, - & 0.49390E-02, 0.64665E-02, 0.82480E-02, 0.10164E-01, 0.12225E-01, - & 0.14372E-01, 0.16567E-01, 0.18784E-01, 0.21006E-01, 0.23222E-01, - & 0.25446E-01, 0.27669E-01, 0.29895E-01, 0.32164E-01, 0.34485E-01, - & 0.36902E-01, 0.39429E-01, 0.42052E-01, 0.44675E-01, 0.47298E-01, - & 0.49921E-01, 0.52545E-01, 0.55168E-01, 0.57791E-01, 0.60414E-01, - & 0.34865E-03, 0.10357E-02, 0.17342E-02, 0.25645E-02, 0.35897E-02, - & 0.48434E-02, 0.63348E-02, 0.80686E-02, 0.99295E-02, 0.11924E-01, - & 0.13998E-01, 0.16107E-01, 0.18230E-01, 0.20352E-01, 0.22462E-01, - & 0.24572E-01, 0.26678E-01, 0.28777E-01, 0.30914E-01, 0.33092E-01, - & 0.35363E-01, 0.37730E-01, 0.40186E-01, 0.42642E-01, 0.45099E-01, - & 0.47555E-01, 0.50011E-01, 0.52467E-01, 0.54923E-01, 0.57379E-01, - & 0.27817E-03, 0.96953E-03, 0.16721E-02, 0.25029E-02, 0.35166E-02, - & 0.47479E-02, 0.62059E-02, 0.78925E-02, 0.96985E-02, 0.11631E-01, - & 0.13629E-01, 0.15655E-01, 0.17688E-01, 0.19712E-01, 0.21718E-01, - & 0.23718E-01, 0.25708E-01, 0.27684E-01, 0.29690E-01, 0.31732E-01, - & 0.33858E-01, 0.36068E-01, 0.38359E-01, 0.40651E-01, 0.42943E-01, - & 0.45234E-01, 0.47526E-01, 0.49817E-01, 0.52109E-01, 0.54400E-01, - & 0.20283E-03, 0.89803E-03, 0.16047E-02, 0.24377E-02, 0.34418E-02, - & 0.46538E-02, 0.60793E-02, 0.77197E-02, 0.94724E-02, 0.11342E-01, - & 0.13269E-01, 0.15212E-01, 0.17156E-01, 0.19084E-01, 0.20989E-01, - & 0.22882E-01, 0.24759E-01, 0.26615E-01, 0.28494E-01, 0.30401E-01, - & 0.32385E-01, 0.34440E-01, 0.36567E-01, 0.38694E-01, 0.40820E-01, - & 0.42947E-01, 0.45074E-01, 0.47200E-01, 0.49327E-01, 0.51454E-01, - & 0.88248E-04, 0.80645E-03, 0.15310E-02, 0.23669E-02, 0.33646E-02, - & 0.45597E-02, 0.59546E-02, 0.75507E-02, 0.92508E-02, 0.11058E-01, - & 0.12913E-01, 0.14779E-01, 0.16634E-01, 0.18469E-01, 0.20273E-01, - & 0.22062E-01, 0.23826E-01, 0.25564E-01, 0.27319E-01, 0.29096E-01, - & 0.30939E-01, 0.32843E-01, 0.34809E-01, 0.36776E-01, 0.38742E-01, - & 0.40708E-01, 0.42674E-01, 0.44641E-01, 0.46607E-01, 0.48573E-01, - &-0.10805E-04, 0.71475E-03, 0.14504E-02, 0.22907E-02, 0.32852E-02, - & 0.44639E-02, 0.58316E-02, 0.73853E-02, 0.90344E-02, 0.10780E-01, - & 0.12564E-01, 0.14350E-01, 0.16123E-01, 0.17867E-01, 0.19573E-01, - & 0.21258E-01, 0.22912E-01, 0.24534E-01, 0.26166E-01, 0.27815E-01, - & 0.29518E-01, 0.31275E-01, 0.33086E-01, 0.34897E-01, 0.36707E-01, - & 0.38518E-01, 0.40329E-01, 0.42139E-01, 0.43950E-01, 0.45761E-01, - &-0.12029E-03, 0.61424E-03, 0.13588E-02, 0.22074E-02, 0.32024E-02, - & 0.43663E-02, 0.57093E-02, 0.72227E-02, 0.88229E-02, 0.10509E-01, - & 0.12223E-01, 0.13932E-01, 0.15619E-01, 0.17274E-01, 0.18885E-01, - & 0.20470E-01, 0.22016E-01, 0.23526E-01, 0.25038E-01, 0.26561E-01, - & 0.28126E-01, 0.29740E-01, 0.31403E-01, 0.33067E-01, 0.34730E-01, - & 0.36393E-01, 0.38057E-01, 0.39720E-01, 0.41383E-01, 0.43047E-01, - &-0.24167E-03, 0.50289E-03, 0.12576E-02, 0.21173E-02, 0.31137E-02, - & 0.42671E-02, 0.55867E-02, 0.70620E-02, 0.86154E-02, 0.10243E-01, - & 0.11889E-01, 0.13523E-01, 0.15127E-01, 0.16694E-01, 0.18209E-01, - & 0.19691E-01, 0.21132E-01, 0.22529E-01, 0.23925E-01, 0.25324E-01, - & 0.26753E-01, 0.28226E-01, 0.29744E-01, 0.31261E-01, 0.32779E-01, - & 0.34296E-01, 0.35814E-01, 0.37331E-01, 0.38849E-01, 0.40366E-01, - &-0.38744E-03, 0.37520E-03, 0.11467E-02, 0.20186E-02, 0.30187E-02, - & 0.41647E-02, 0.54623E-02, 0.69043E-02, 0.84122E-02, 0.99837E-02, - & 0.11564E-01, 0.13123E-01, 0.14648E-01, 0.16127E-01, 0.17548E-01, - & 0.18930E-01, 0.20268E-01, 0.21556E-01, 0.22836E-01, 0.24114E-01, - & 0.25410E-01, 0.26746E-01, 0.28123E-01, 0.29500E-01, 0.30878E-01, - & 0.32255E-01, 0.33632E-01, 0.35009E-01, 0.36386E-01, 0.37764E-01, - &-0.51212E-03, 0.24958E-03, 0.10240E-02, 0.19104E-02, 0.29154E-02, - & 0.40585E-02, 0.53357E-02, 0.67463E-02, 0.82124E-02, 0.97294E-02, - & 0.11245E-01, 0.12734E-01, 0.14180E-01, 0.15573E-01, 0.16903E-01, - & 0.18187E-01, 0.19423E-01, 0.20606E-01, 0.21773E-01, 0.22931E-01, - & 0.24098E-01, 0.25300E-01, 0.26539E-01, 0.27778E-01, 0.29017E-01, - & 0.30256E-01, 0.31495E-01, 0.32734E-01, 0.33973E-01, 0.35212E-01/ - - data ((c2grdl(i,j),j=1,30),i= 71, 80)/ - &-0.64980E-03, 0.11235E-03, 0.88847E-03, 0.17891E-02, 0.28036E-02, - & 0.39454E-02, 0.52074E-02, 0.65868E-02, 0.80145E-02, 0.94809E-02, - & 0.10935E-01, 0.12355E-01, 0.13724E-01, 0.15032E-01, 0.16273E-01, - & 0.17464E-01, 0.18601E-01, 0.19680E-01, 0.20737E-01, 0.21780E-01, - & 0.22824E-01, 0.23895E-01, 0.24998E-01, 0.26101E-01, 0.27203E-01, - & 0.28306E-01, 0.29409E-01, 0.30511E-01, 0.31614E-01, 0.32717E-01, - &-0.76038E-03,-0.19397E-04, 0.74207E-03, 0.16538E-02, 0.26823E-02, - & 0.38251E-02, 0.50764E-02, 0.64273E-02, 0.78183E-02, 0.92364E-02, - & 0.10632E-01, 0.11984E-01, 0.13277E-01, 0.14504E-01, 0.15659E-01, - & 0.16759E-01, 0.17800E-01, 0.18778E-01, 0.19728E-01, 0.20658E-01, - & 0.21583E-01, 0.22527E-01, 0.23497E-01, 0.24467E-01, 0.25436E-01, - & 0.26406E-01, 0.27376E-01, 0.28345E-01, 0.29315E-01, 0.30284E-01, - &-0.84426E-03,-0.14304E-03, 0.58480E-03, 0.15058E-02, 0.25505E-02, - & 0.36955E-02, 0.49401E-02, 0.62650E-02, 0.76217E-02, 0.89951E-02, - & 0.10334E-01, 0.11620E-01, 0.12842E-01, 0.13990E-01, 0.15060E-01, - & 0.16071E-01, 0.17019E-01, 0.17900E-01, 0.18747E-01, 0.19567E-01, - & 0.20377E-01, 0.21198E-01, 0.22040E-01, 0.22882E-01, 0.23724E-01, - & 0.24566E-01, 0.25408E-01, 0.26250E-01, 0.27092E-01, 0.27934E-01, - &-0.80322E-03,-0.21498E-03, 0.42022E-03, 0.13428E-02, 0.24024E-02, - & 0.35558E-02, 0.47962E-02, 0.61001E-02, 0.74242E-02, 0.87553E-02, - & 0.10041E-01, 0.11265E-01, 0.12415E-01, 0.13487E-01, 0.14476E-01, - & 0.15402E-01, 0.16259E-01, 0.17045E-01, 0.17792E-01, 0.18505E-01, - & 0.19203E-01, 0.19905E-01, 0.20620E-01, 0.21336E-01, 0.22052E-01, - & 0.22768E-01, 0.23484E-01, 0.24200E-01, 0.24916E-01, 0.25632E-01, - &-0.48939E-03,-0.16288E-03, 0.25561E-03, 0.11621E-02, 0.22376E-02, - & 0.34044E-02, 0.46429E-02, 0.59307E-02, 0.72261E-02, 0.85138E-02, - & 0.97508E-02, 0.10915E-01, 0.11998E-01, 0.12996E-01, 0.13907E-01, - & 0.14751E-01, 0.15519E-01, 0.16212E-01, 0.16862E-01, 0.17473E-01, - & 0.18061E-01, 0.18647E-01, 0.19240E-01, 0.19833E-01, 0.20426E-01, - & 0.21019E-01, 0.21612E-01, 0.22205E-01, 0.22798E-01, 0.23391E-01, - &-0.49332E-04,-0.16989E-04, 0.10818E-03, 0.96808E-03, 0.20561E-02, - & 0.32396E-02, 0.44781E-02, 0.57548E-02, 0.70260E-02, 0.82737E-02, - & 0.94607E-02, 0.10569E-01, 0.11589E-01, 0.12517E-01, 0.13351E-01, - & 0.14114E-01, 0.14797E-01, 0.15401E-01, 0.15957E-01, 0.16469E-01, - & 0.16951E-01, 0.17425E-01, 0.17901E-01, 0.18376E-01, 0.18852E-01, - & 0.19328E-01, 0.19804E-01, 0.20279E-01, 0.20755E-01, 0.21231E-01, - & 0.10000E-29, 0.10000E-29, 0.18325E-04, 0.75976E-03, 0.18561E-02, - & 0.30583E-02, 0.43017E-02, 0.55679E-02, 0.68202E-02, 0.80350E-02, - & 0.91735E-02, 0.10224E-01, 0.11182E-01, 0.12044E-01, 0.12807E-01, - & 0.13491E-01, 0.14091E-01, 0.14609E-01, 0.15074E-01, 0.15490E-01, - & 0.15869E-01, 0.16236E-01, 0.16601E-01, 0.16967E-01, 0.17333E-01, - & 0.17699E-01, 0.18065E-01, 0.18431E-01, 0.18797E-01, 0.19162E-01, - & 0.10000E-29, 0.10000E-29, 0.10221E-05, 0.54429E-03, 0.16343E-02, - & 0.28529E-02, 0.41114E-02, 0.53711E-02, 0.66077E-02, 0.77933E-02, - & 0.88873E-02, 0.98846E-02, 0.10781E-01, 0.11575E-01, 0.12265E-01, - & 0.12873E-01, 0.13394E-01, 0.13826E-01, 0.14203E-01, 0.14526E-01, - & 0.14806E-01, 0.15067E-01, 0.15324E-01, 0.15580E-01, 0.15837E-01, - & 0.16093E-01, 0.16349E-01, 0.16606E-01, 0.16862E-01, 0.17119E-01, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.33411E-03, 0.13921E-02, - & 0.26286E-02, 0.39050E-02, 0.51604E-02, 0.63845E-02, 0.75453E-02, - & 0.86027E-02, 0.95497E-02, 0.10387E-01, 0.11116E-01, 0.11735E-01, - & 0.12267E-01, 0.12709E-01, 0.13059E-01, 0.13347E-01, 0.13579E-01, - & 0.13762E-01, 0.13920E-01, 0.14068E-01, 0.14216E-01, 0.14364E-01, - & 0.14512E-01, 0.14660E-01, 0.14808E-01, 0.14956E-01, 0.15105E-01, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.15422E-03, 0.11310E-02, - & 0.23802E-02, 0.36739E-02, 0.49359E-02, 0.61503E-02, 0.72898E-02, - & 0.83122E-02, 0.92155E-02, 0.99979E-02, 0.10665E-01, 0.11216E-01, - & 0.11675E-01, 0.12040E-01, 0.12311E-01, 0.12516E-01, 0.12658E-01, - & 0.12745E-01, 0.12804E-01, 0.12848E-01, 0.12892E-01, 0.12936E-01, - & 0.12980E-01, 0.13024E-01, 0.13068E-01, 0.13112E-01, 0.13156E-01/ - - data ((c2grdl(i,j),j=1,30),i= 81, 90)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.30302E-04, 0.85306E-03, - & 0.21058E-02, 0.34169E-02, 0.46906E-02, 0.59021E-02, 0.70216E-02, - & 0.80154E-02, 0.88764E-02, 0.96114E-02, 0.10219E-01, 0.10705E-01, - & 0.11097E-01, 0.11389E-01, 0.11582E-01, 0.11705E-01, 0.11762E-01, - & 0.11758E-01, 0.11722E-01, 0.11667E-01, 0.11612E-01, 0.11558E-01, - & 0.11503E-01, 0.11448E-01, 0.11393E-01, 0.11339E-01, 0.11284E-01, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.19610E-05, 0.56837E-03, - & 0.18043E-02, 0.31349E-02, 0.44215E-02, 0.56382E-02, 0.67434E-02, - & 0.77092E-02, 0.85338E-02, 0.92190E-02, 0.97723E-02, 0.10201E-01, - & 0.10529E-01, 0.10752E-01, 0.10871E-01, 0.10916E-01, 0.10891E-01, - & 0.10799E-01, 0.10667E-01, 0.10512E-01, 0.10356E-01, 0.10201E-01, - & 0.10045E-01, 0.98893E-02, 0.97337E-02, 0.95781E-02, 0.94225E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.29830E-03, - & 0.14768E-02, 0.28231E-02, 0.41282E-02, 0.53535E-02, 0.64505E-02, - & 0.73926E-02, 0.81815E-02, 0.88260E-02, 0.93283E-02, 0.96970E-02, - & 0.99610E-02, 0.10115E-01, 0.10164E-01, 0.10133E-01, 0.10027E-01, - & 0.98486E-02, 0.96275E-02, 0.93778E-02, 0.91280E-02, 0.88783E-02, - & 0.86286E-02, 0.83788E-02, 0.81291E-02, 0.78794E-02, 0.76297E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.95988E-04, - & 0.11274E-02, 0.24773E-02, 0.38007E-02, 0.50407E-02, 0.61405E-02, - & 0.70648E-02, 0.78234E-02, 0.84258E-02, 0.88803E-02, 0.91963E-02, - & 0.94004E-02, 0.94897E-02, 0.94687E-02, 0.93633E-02, 0.91796E-02, - & 0.89174E-02, 0.86066E-02, 0.82631E-02, 0.79196E-02, 0.75761E-02, - & 0.72327E-02, 0.68892E-02, 0.65457E-02, 0.62023E-02, 0.58588E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.14949E-04, - & 0.76734E-03, 0.20984E-02, 0.34391E-02, 0.46953E-02, 0.58065E-02, - & 0.67195E-02, 0.74533E-02, 0.80205E-02, 0.84308E-02, 0.86949E-02, - & 0.88403E-02, 0.88673E-02, 0.87807E-02, 0.86051E-02, 0.83463E-02, - & 0.80036E-02, 0.76057E-02, 0.71690E-02, 0.67323E-02, 0.62957E-02, - & 0.58590E-02, 0.54223E-02, 0.49856E-02, 0.45489E-02, 0.41122E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.85624E-06, - & 0.41958E-03, 0.16883E-02, 0.30433E-02, 0.43159E-02, 0.54331E-02, - & 0.63548E-02, 0.70711E-02, 0.76073E-02, 0.79781E-02, 0.81956E-02, - & 0.82873E-02, 0.82557E-02, 0.81059E-02, 0.78632E-02, 0.75305E-02, - & 0.71099E-02, 0.66279E-02, 0.61033E-02, 0.55788E-02, 0.50543E-02, - & 0.45298E-02, 0.40052E-02, 0.34807E-02, 0.29562E-02, 0.24316E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.13728E-03, 0.12519E-02, 0.26056E-02, 0.38963E-02, 0.50293E-02, - & 0.59491E-02, 0.66654E-02, 0.71838E-02, 0.75204E-02, 0.76955E-02, - & 0.77392E-02, 0.76535E-02, 0.74454E-02, 0.71392E-02, 0.67374E-02, - & 0.62407E-02, 0.56773E-02, 0.50649E-02, 0.44526E-02, 0.38403E-02, - & 0.32280E-02, 0.26157E-02, 0.20034E-02, 0.13911E-02, 0.77876E-03, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.13041E-04, 0.80719E-03, 0.21328E-02, 0.34334E-02, 0.45856E-02, - & 0.55142E-02, 0.62236E-02, 0.67304E-02, 0.70483E-02, 0.71929E-02, - & 0.71955E-02, 0.70610E-02, 0.67983E-02, 0.64331E-02, 0.59654E-02, - & 0.53959E-02, 0.47563E-02, 0.40646E-02, 0.33728E-02, 0.26810E-02, - & 0.19893E-02, 0.12975E-02, 0.60577E-03,-0.85992E-04,-0.77775E-03, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.39225E-03, 0.16298E-02, 0.29211E-02, 0.40929E-02, - & 0.50383E-02, 0.57536E-02, 0.62488E-02, 0.65474E-02, 0.66654E-02, - & 0.66356E-02, 0.64620E-02, 0.61529E-02, 0.57353E-02, 0.52086E-02, - & 0.45727E-02, 0.38603E-02, 0.30896E-02, 0.23189E-02, 0.15482E-02, - & 0.77748E-03, 0.67755E-05,-0.76392E-03,-0.15346E-02,-0.23053E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10243E-03, 0.11195E-02, 0.23636E-02, 0.35466E-02, - & 0.45132E-02, 0.52408E-02, 0.57392E-02, 0.60288E-02, 0.61253E-02, - & 0.60667E-02, 0.58574E-02, 0.55073E-02, 0.50415E-02, 0.44606E-02, - & 0.37629E-02, 0.29823E-02, 0.21381E-02, 0.12938E-02, 0.44959E-03, - &-0.39465E-03,-0.12389E-02,-0.20831E-02,-0.29274E-02,-0.37716E-02/ - - data ((c2grdl(i,j),j=1,30),i= 91,100)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.87919E-05, 0.65743E-03, 0.17700E-02, 0.29454E-02, - & 0.39296E-02, 0.46754E-02, 0.51885E-02, 0.54779E-02, 0.55664E-02, - & 0.54919E-02, 0.52579E-02, 0.48777E-02, 0.43734E-02, 0.37465E-02, - & 0.29931E-02, 0.21522E-02, 0.12425E-02, 0.33273E-03,-0.57700E-03, - &-0.14867E-02,-0.23965E-02,-0.33062E-02,-0.42159E-02,-0.51257E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.33498E-03, 0.11582E-02, 0.22922E-02, - & 0.32858E-02, 0.40546E-02, 0.45802E-02, 0.48832E-02, 0.49775E-02, - & 0.49001E-02, 0.46536E-02, 0.42531E-02, 0.37213E-02, 0.30607E-02, - & 0.22647E-02, 0.13755E-02, 0.41377E-03,-0.54801E-03,-0.15098E-02, - &-0.24716E-02,-0.34333E-02,-0.43951E-02,-0.53569E-02,-0.63187E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10609E-03, 0.59074E-03, 0.16007E-02, - & 0.25824E-02, 0.33662E-02, 0.39181E-02, 0.42415E-02, 0.43474E-02, - & 0.42777E-02, 0.40328E-02, 0.36282E-02, 0.30858E-02, 0.24078E-02, - & 0.15869E-02, 0.66600E-03,-0.33201E-03,-0.13300E-02,-0.23280E-02, - &-0.33260E-02,-0.43240E-02,-0.53220E-02,-0.63200E-02,-0.73180E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10407E-04, 0.20147E-03, 0.90885E-03, - & 0.18300E-02, 0.26131E-02, 0.31883E-02, 0.35373E-02, 0.36726E-02, - & 0.36293E-02, 0.34061E-02, 0.30167E-02, 0.24838E-02, 0.18086E-02, - & 0.98287E-03, 0.54644E-04,-0.95277E-03,-0.19602E-02,-0.29676E-02, - &-0.39750E-02,-0.49824E-02,-0.59899E-02,-0.69973E-02,-0.80047E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.25150E-04, 0.31824E-03, - & 0.10652E-02, 0.18106E-02, 0.23928E-02, 0.27695E-02, 0.29462E-02, - & 0.29427E-02, 0.27576E-02, 0.24065E-02, 0.19111E-02, 0.12703E-02, - & 0.47597E-03,-0.42377E-03,-0.14041E-02,-0.23845E-02,-0.33649E-02, - &-0.43453E-02,-0.53256E-02,-0.63060E-02,-0.72864E-02,-0.82667E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.69158E-06, 0.33104E-04, - & 0.38929E-03, 0.99840E-03, 0.15511E-02, 0.19454E-02, 0.21605E-02, - & 0.22120E-02, 0.20911E-02, 0.18083E-02, 0.13849E-02, 0.81904E-03, - & 0.10061E-03,-0.71967E-03,-0.16178E-02,-0.25159E-02,-0.34140E-02, - &-0.43122E-02,-0.52103E-02,-0.61084E-02,-0.70065E-02,-0.79046E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.41581E-04, 0.30973E-03, 0.73426E-03, 0.10969E-02, 0.13386E-02, - & 0.14463E-02, 0.14059E-02, 0.12230E-02, 0.91331E-03, 0.47404E-03, - &-0.10614E-03,-0.77880E-03,-0.15211E-02,-0.22634E-02,-0.30056E-02, - &-0.37479E-02,-0.44902E-02,-0.52325E-02,-0.59748E-02,-0.67171E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.30509E-04, 0.14394E-03, 0.35606E-03, 0.56244E-03, - & 0.69394E-03, 0.72987E-03, 0.66404E-03, 0.50245E-03, 0.24251E-03, - &-0.12674E-03,-0.56730E-03,-0.10608E-02,-0.15544E-02,-0.20479E-02, - &-0.25415E-02,-0.30350E-02,-0.35285E-02,-0.40221E-02,-0.45156E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.93539E-05, 0.36840E-04, 0.79498E-04, - & 0.13481E-03, 0.17852E-03, 0.19080E-03, 0.16434E-03, 0.93556E-04, - &-0.29493E-04,-0.18739E-03,-0.37104E-03,-0.55468E-03,-0.73832E-03, - &-0.92197E-03,-0.11056E-02,-0.12893E-02,-0.14729E-02,-0.16565E-02, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.10747E-06, 0.24828E-05, - & 0.85618E-05, 0.14789E-04, 0.18026E-04, 0.16934E-04, 0.10637E-04, - &-0.19384E-05,-0.18738E-04,-0.38654E-04,-0.58570E-04,-0.78486E-04, - &-0.98402E-04,-0.11832E-03,-0.13823E-03,-0.15815E-03,-0.17807E-03/ - - data ((clgrdl(i,j),j=1,30),i= 1, 10)/ - &-0.21456E-04, 0.14779E-03, 0.32533E-03, 0.61265E-03, 0.10975E-02, - & 0.18649E-02, 0.30066E-02, 0.46231E-02, 0.65472E-02, 0.88630E-02, - & 0.11461E-01, 0.14251E-01, 0.17134E-01, 0.20039E-01, 0.22901E-01, - & 0.25707E-01, 0.28442E-01, 0.31095E-01, 0.33711E-01, 0.36306E-01, - & 0.38919E-01, 0.41606E-01, 0.44368E-01, 0.47131E-01, 0.49894E-01, - & 0.52657E-01, 0.55419E-01, 0.58182E-01, 0.60945E-01, 0.63707E-01, - &-0.21201E-04, 0.14545E-03, 0.32031E-03, 0.60305E-03, 0.10801E-02, - & 0.18356E-02, 0.29577E-02, 0.45469E-02, 0.64365E-02, 0.87094E-02, - & 0.11259E-01, 0.13995E-01, 0.16820E-01, 0.19666E-01, 0.22468E-01, - & 0.25212E-01, 0.27887E-01, 0.30482E-01, 0.33039E-01, 0.35577E-01, - & 0.38130E-01, 0.40757E-01, 0.43460E-01, 0.46163E-01, 0.48866E-01, - & 0.51569E-01, 0.54272E-01, 0.56975E-01, 0.59678E-01, 0.62381E-01, - &-0.21091E-04, 0.14307E-03, 0.31534E-03, 0.59363E-03, 0.10628E-02, - & 0.18067E-02, 0.29093E-02, 0.44716E-02, 0.63272E-02, 0.85577E-02, - & 0.11061E-01, 0.13743E-01, 0.16512E-01, 0.19295E-01, 0.22037E-01, - & 0.24722E-01, 0.27339E-01, 0.29876E-01, 0.32377E-01, 0.34857E-01, - & 0.37350E-01, 0.39917E-01, 0.42560E-01, 0.45203E-01, 0.47846E-01, - & 0.50489E-01, 0.53131E-01, 0.55774E-01, 0.58417E-01, 0.61060E-01, - &-0.20874E-04, 0.14076E-03, 0.31039E-03, 0.58431E-03, 0.10458E-02, - & 0.17781E-02, 0.28615E-02, 0.43968E-02, 0.62196E-02, 0.84080E-02, - & 0.10864E-01, 0.13494E-01, 0.16207E-01, 0.18930E-01, 0.21613E-01, - & 0.24239E-01, 0.26798E-01, 0.29279E-01, 0.31723E-01, 0.34147E-01, - & 0.36581E-01, 0.39089E-01, 0.41671E-01, 0.44253E-01, 0.46835E-01, - & 0.49417E-01, 0.51999E-01, 0.54581E-01, 0.57163E-01, 0.59745E-01, - &-0.20661E-04, 0.13846E-03, 0.30548E-03, 0.57508E-03, 0.10289E-02, - & 0.17501E-02, 0.28143E-02, 0.43229E-02, 0.61134E-02, 0.82597E-02, - & 0.10670E-01, 0.13248E-01, 0.15905E-01, 0.18570E-01, 0.21194E-01, - & 0.23763E-01, 0.26264E-01, 0.28690E-01, 0.31078E-01, 0.33447E-01, - & 0.35822E-01, 0.38272E-01, 0.40796E-01, 0.43319E-01, 0.45843E-01, - & 0.48366E-01, 0.50890E-01, 0.53413E-01, 0.55937E-01, 0.58460E-01, - &-0.20962E-04, 0.13598E-03, 0.30061E-03, 0.56607E-03, 0.10122E-02, - & 0.17223E-02, 0.27674E-02, 0.42497E-02, 0.60084E-02, 0.81133E-02, - & 0.10478E-01, 0.13005E-01, 0.15606E-01, 0.18214E-01, 0.20781E-01, - & 0.23293E-01, 0.25738E-01, 0.28109E-01, 0.30443E-01, 0.32757E-01, - & 0.35073E-01, 0.37467E-01, 0.39932E-01, 0.42397E-01, 0.44861E-01, - & 0.47326E-01, 0.49791E-01, 0.52256E-01, 0.54721E-01, 0.57186E-01, - &-0.20619E-04, 0.13376E-03, 0.29578E-03, 0.55719E-03, 0.99578E-03, - & 0.16947E-02, 0.27212E-02, 0.41776E-02, 0.59052E-02, 0.79695E-02, - & 0.10289E-01, 0.12766E-01, 0.15312E-01, 0.17862E-01, 0.20372E-01, - & 0.22830E-01, 0.25219E-01, 0.27536E-01, 0.29816E-01, 0.32073E-01, - & 0.34335E-01, 0.36673E-01, 0.39083E-01, 0.41492E-01, 0.43902E-01, - & 0.46312E-01, 0.48721E-01, 0.51131E-01, 0.53541E-01, 0.55950E-01, - &-0.20217E-04, 0.13159E-03, 0.29099E-03, 0.54848E-03, 0.97951E-03, - & 0.16674E-02, 0.26755E-02, 0.41062E-02, 0.58033E-02, 0.78282E-02, - & 0.10103E-01, 0.12530E-01, 0.15022E-01, 0.17514E-01, 0.19969E-01, - & 0.22374E-01, 0.24707E-01, 0.26969E-01, 0.29197E-01, 0.31398E-01, - & 0.33608E-01, 0.35890E-01, 0.38244E-01, 0.40598E-01, 0.42951E-01, - & 0.45305E-01, 0.47659E-01, 0.50013E-01, 0.52367E-01, 0.54720E-01, - &-0.19825E-04, 0.12945E-03, 0.28621E-03, 0.53980E-03, 0.96344E-03, - & 0.16402E-02, 0.26306E-02, 0.40356E-02, 0.57026E-02, 0.76888E-02, - & 0.99203E-02, 0.12297E-01, 0.14733E-01, 0.17171E-01, 0.19571E-01, - & 0.21924E-01, 0.24203E-01, 0.26411E-01, 0.28587E-01, 0.30733E-01, - & 0.32892E-01, 0.35120E-01, 0.37419E-01, 0.39718E-01, 0.42018E-01, - & 0.44317E-01, 0.46616E-01, 0.48915E-01, 0.51214E-01, 0.53513E-01, - &-0.19395E-04, 0.12736E-03, 0.28149E-03, 0.53115E-03, 0.94760E-03, - & 0.16129E-02, 0.25863E-02, 0.39658E-02, 0.56032E-02, 0.75513E-02, - & 0.97397E-02, 0.12066E-01, 0.14449E-01, 0.16833E-01, 0.19179E-01, - & 0.21480E-01, 0.23706E-01, 0.25861E-01, 0.27983E-01, 0.30078E-01, - & 0.32186E-01, 0.34361E-01, 0.36607E-01, 0.38853E-01, 0.41099E-01, - & 0.43345E-01, 0.45591E-01, 0.47837E-01, 0.50083E-01, 0.52329E-01/ - - data ((clgrdl(i,j),j=1,30),i= 11, 20)/ - &-0.18756E-04, 0.12539E-03, 0.27682E-03, 0.52256E-03, 0.93203E-03, - & 0.15860E-02, 0.25430E-02, 0.38970E-02, 0.55049E-02, 0.74157E-02, - & 0.95611E-02, 0.11838E-01, 0.14168E-01, 0.16499E-01, 0.18792E-01, - & 0.21043E-01, 0.23216E-01, 0.25318E-01, 0.27388E-01, 0.29431E-01, - & 0.31489E-01, 0.33612E-01, 0.35806E-01, 0.37999E-01, 0.40192E-01, - & 0.42385E-01, 0.44579E-01, 0.46772E-01, 0.48965E-01, 0.51158E-01, - &-0.16813E-04, 0.12399E-03, 0.27221E-03, 0.51404E-03, 0.91660E-03, - & 0.15593E-02, 0.25002E-02, 0.38291E-02, 0.54076E-02, 0.72818E-02, - & 0.93846E-02, 0.11613E-01, 0.13890E-01, 0.16171E-01, 0.18411E-01, - & 0.20611E-01, 0.22733E-01, 0.24783E-01, 0.26800E-01, 0.28792E-01, - & 0.30804E-01, 0.32873E-01, 0.35008E-01, 0.37143E-01, 0.39279E-01, - & 0.41414E-01, 0.43550E-01, 0.45685E-01, 0.47821E-01, 0.49956E-01, - &-0.16705E-04, 0.12196E-03, 0.26769E-03, 0.50560E-03, 0.90150E-03, - & 0.15330E-02, 0.24578E-02, 0.37623E-02, 0.53112E-02, 0.71496E-02, - & 0.92101E-02, 0.11389E-01, 0.13616E-01, 0.15848E-01, 0.18037E-01, - & 0.20185E-01, 0.22257E-01, 0.24255E-01, 0.26221E-01, 0.28161E-01, - & 0.30129E-01, 0.32143E-01, 0.34219E-01, 0.36295E-01, 0.38371E-01, - & 0.40447E-01, 0.42522E-01, 0.44598E-01, 0.46674E-01, 0.48750E-01, - &-0.16580E-04, 0.11996E-03, 0.26326E-03, 0.49722E-03, 0.88679E-03, - & 0.15069E-02, 0.24161E-02, 0.36969E-02, 0.52163E-02, 0.70192E-02, - & 0.90380E-02, 0.11168E-01, 0.13346E-01, 0.15530E-01, 0.17668E-01, - & 0.19763E-01, 0.21786E-01, 0.23733E-01, 0.25648E-01, 0.27538E-01, - & 0.29463E-01, 0.31424E-01, 0.33440E-01, 0.35456E-01, 0.37472E-01, - & 0.39488E-01, 0.41504E-01, 0.43520E-01, 0.45536E-01, 0.47552E-01, - &-0.16571E-04, 0.11792E-03, 0.25898E-03, 0.48890E-03, 0.87226E-03, - & 0.14812E-02, 0.23753E-02, 0.36322E-02, 0.51222E-02, 0.68913E-02, - & 0.88678E-02, 0.10949E-01, 0.13080E-01, 0.15217E-01, 0.17305E-01, - & 0.19348E-01, 0.21320E-01, 0.23218E-01, 0.25082E-01, 0.26923E-01, - & 0.28806E-01, 0.30713E-01, 0.32671E-01, 0.34629E-01, 0.36586E-01, - & 0.38544E-01, 0.40501E-01, 0.42459E-01, 0.44417E-01, 0.46374E-01, - &-0.16485E-04, 0.11593E-03, 0.25482E-03, 0.48068E-03, 0.85790E-03, - & 0.14558E-02, 0.23348E-02, 0.35683E-02, 0.50291E-02, 0.67649E-02, - & 0.86985E-02, 0.10733E-01, 0.12819E-01, 0.14909E-01, 0.16947E-01, - & 0.18938E-01, 0.20861E-01, 0.22709E-01, 0.24525E-01, 0.26318E-01, - & 0.28158E-01, 0.30013E-01, 0.31912E-01, 0.33812E-01, 0.35711E-01, - & 0.37611E-01, 0.39510E-01, 0.41409E-01, 0.43309E-01, 0.45208E-01, - &-0.16288E-04, 0.11400E-03, 0.25069E-03, 0.47254E-03, 0.84379E-03, - & 0.14307E-02, 0.22947E-02, 0.35054E-02, 0.49375E-02, 0.66399E-02, - & 0.85306E-02, 0.10521E-01, 0.12562E-01, 0.14604E-01, 0.16594E-01, - & 0.18534E-01, 0.20409E-01, 0.22207E-01, 0.23975E-01, 0.25722E-01, - & 0.27517E-01, 0.29321E-01, 0.31161E-01, 0.33000E-01, 0.34840E-01, - & 0.36679E-01, 0.38519E-01, 0.40358E-01, 0.42198E-01, 0.44037E-01, - &-0.16342E-04, 0.11199E-03, 0.24658E-03, 0.46447E-03, 0.82970E-03, - & 0.14058E-02, 0.22550E-02, 0.34432E-02, 0.48471E-02, 0.65162E-02, - & 0.83641E-02, 0.10311E-01, 0.12308E-01, 0.14303E-01, 0.16245E-01, - & 0.18133E-01, 0.19961E-01, 0.21713E-01, 0.23432E-01, 0.25137E-01, - & 0.26883E-01, 0.28638E-01, 0.30425E-01, 0.32213E-01, 0.34000E-01, - & 0.35788E-01, 0.37576E-01, 0.39363E-01, 0.41151E-01, 0.42938E-01, - &-0.16145E-04, 0.11008E-03, 0.24250E-03, 0.45648E-03, 0.81572E-03, - & 0.13813E-02, 0.22156E-02, 0.33817E-02, 0.47574E-02, 0.63942E-02, - & 0.81997E-02, 0.10105E-01, 0.12058E-01, 0.14005E-01, 0.15900E-01, - & 0.17739E-01, 0.19518E-01, 0.21226E-01, 0.22898E-01, 0.24563E-01, - & 0.26257E-01, 0.27963E-01, 0.29699E-01, 0.31435E-01, 0.33170E-01, - & 0.34906E-01, 0.36642E-01, 0.38378E-01, 0.40113E-01, 0.41849E-01, - &-0.15863E-04, 0.10824E-03, 0.23847E-03, 0.44863E-03, 0.80187E-03, - & 0.13570E-02, 0.21767E-02, 0.33205E-02, 0.46684E-02, 0.62729E-02, - & 0.80371E-02, 0.99008E-02, 0.11811E-01, 0.13712E-01, 0.15560E-01, - & 0.17349E-01, 0.19082E-01, 0.20746E-01, 0.22376E-01, 0.23997E-01, - & 0.25640E-01, 0.27299E-01, 0.28985E-01, 0.30670E-01, 0.32356E-01, - & 0.34042E-01, 0.35728E-01, 0.37413E-01, 0.39099E-01, 0.40785E-01/ - - data ((clgrdl(i,j),j=1,30),i= 21, 30)/ - &-0.15341E-04, 0.10652E-03, 0.23447E-03, 0.44091E-03, 0.78808E-03, - & 0.13330E-02, 0.21382E-02, 0.32599E-02, 0.45809E-02, 0.61512E-02, - & 0.78771E-02, 0.97007E-02, 0.11567E-01, 0.13421E-01, 0.15223E-01, - & 0.16963E-01, 0.18650E-01, 0.20272E-01, 0.21861E-01, 0.23438E-01, - & 0.25029E-01, 0.26645E-01, 0.28289E-01, 0.29933E-01, 0.31577E-01, - & 0.33221E-01, 0.34865E-01, 0.36509E-01, 0.38153E-01, 0.39797E-01, - &-0.15183E-04, 0.10469E-03, 0.23051E-03, 0.43337E-03, 0.77441E-03, - & 0.13095E-02, 0.21000E-02, 0.32002E-02, 0.44947E-02, 0.60312E-02, - & 0.77194E-02, 0.95038E-02, 0.11326E-01, 0.13134E-01, 0.14890E-01, - & 0.16583E-01, 0.18224E-01, 0.19803E-01, 0.21351E-01, 0.22885E-01, - & 0.24423E-01, 0.25999E-01, 0.27608E-01, 0.29217E-01, 0.30827E-01, - & 0.32436E-01, 0.34045E-01, 0.35654E-01, 0.37264E-01, 0.38873E-01, - &-0.14383E-04, 0.10315E-03, 0.22660E-03, 0.42606E-03, 0.76086E-03, - & 0.12863E-02, 0.20622E-02, 0.31413E-02, 0.44096E-02, 0.59131E-02, - & 0.75640E-02, 0.93094E-02, 0.11089E-01, 0.12851E-01, 0.14560E-01, - & 0.16210E-01, 0.17806E-01, 0.19342E-01, 0.20848E-01, 0.22339E-01, - & 0.23827E-01, 0.25361E-01, 0.26936E-01, 0.28511E-01, 0.30086E-01, - & 0.31660E-01, 0.33235E-01, 0.34810E-01, 0.36385E-01, 0.37960E-01, - &-0.14169E-04, 0.10142E-03, 0.22276E-03, 0.41892E-03, 0.74746E-03, - & 0.12641E-02, 0.20248E-02, 0.30832E-02, 0.43256E-02, 0.57967E-02, - & 0.74111E-02, 0.91178E-02, 0.10854E-01, 0.12570E-01, 0.14235E-01, - & 0.15841E-01, 0.17394E-01, 0.18888E-01, 0.20353E-01, 0.21802E-01, - & 0.23243E-01, 0.24735E-01, 0.26272E-01, 0.27809E-01, 0.29346E-01, - & 0.30882E-01, 0.32419E-01, 0.33956E-01, 0.35493E-01, 0.37030E-01, - &-0.13803E-04, 0.99785E-04, 0.21899E-03, 0.41185E-03, 0.73421E-03, - & 0.12423E-02, 0.19879E-02, 0.30258E-02, 0.42428E-02, 0.56819E-02, - & 0.72613E-02, 0.89290E-02, 0.10624E-01, 0.12292E-01, 0.13913E-01, - & 0.15478E-01, 0.16987E-01, 0.18441E-01, 0.19863E-01, 0.21271E-01, - & 0.22669E-01, 0.24119E-01, 0.25614E-01, 0.27109E-01, 0.28605E-01, - & 0.30100E-01, 0.31595E-01, 0.33090E-01, 0.34586E-01, 0.36081E-01, - &-0.13424E-04, 0.98185E-04, 0.21531E-03, 0.40483E-03, 0.72107E-03, - & 0.12206E-02, 0.19513E-02, 0.29690E-02, 0.41615E-02, 0.55689E-02, - & 0.71139E-02, 0.87430E-02, 0.10395E-01, 0.12017E-01, 0.13595E-01, - & 0.15120E-01, 0.16587E-01, 0.18000E-01, 0.19382E-01, 0.20748E-01, - & 0.22104E-01, 0.23512E-01, 0.24966E-01, 0.26420E-01, 0.27874E-01, - & 0.29328E-01, 0.30782E-01, 0.32236E-01, 0.33690E-01, 0.35144E-01, - &-0.13022E-04, 0.96634E-04, 0.21170E-03, 0.39788E-03, 0.70813E-03, - & 0.11991E-02, 0.19150E-02, 0.29127E-02, 0.40809E-02, 0.54572E-02, - & 0.69686E-02, 0.85602E-02, 0.10168E-01, 0.11747E-01, 0.13283E-01, - & 0.14768E-01, 0.16193E-01, 0.17566E-01, 0.18908E-01, 0.20234E-01, - & 0.21547E-01, 0.22914E-01, 0.24327E-01, 0.25741E-01, 0.27154E-01, - & 0.28568E-01, 0.29981E-01, 0.31395E-01, 0.32808E-01, 0.34221E-01, - &-0.12746E-04, 0.95053E-04, 0.20817E-03, 0.39103E-03, 0.69547E-03, - & 0.11778E-02, 0.18791E-02, 0.28571E-02, 0.40012E-02, 0.53470E-02, - & 0.68252E-02, 0.83795E-02, 0.99430E-02, 0.11481E-01, 0.12975E-01, - & 0.14420E-01, 0.15805E-01, 0.17138E-01, 0.18441E-01, 0.19727E-01, - & 0.20998E-01, 0.22325E-01, 0.23698E-01, 0.25072E-01, 0.26445E-01, - & 0.27819E-01, 0.29193E-01, 0.30566E-01, 0.31940E-01, 0.33313E-01, - &-0.12399E-04, 0.93535E-04, 0.20470E-03, 0.38427E-03, 0.68310E-03, - & 0.11567E-02, 0.18435E-02, 0.28022E-02, 0.39226E-02, 0.52385E-02, - & 0.66837E-02, 0.81997E-02, 0.97211E-02, 0.11219E-01, 0.12672E-01, - & 0.14078E-01, 0.15422E-01, 0.16716E-01, 0.17980E-01, 0.19226E-01, - & 0.20457E-01, 0.21744E-01, 0.23077E-01, 0.24411E-01, 0.25745E-01, - & 0.27078E-01, 0.28412E-01, 0.29745E-01, 0.31079E-01, 0.32412E-01, - &-0.12080E-04, 0.92038E-04, 0.20129E-03, 0.37760E-03, 0.67108E-03, - & 0.11356E-02, 0.18085E-02, 0.27478E-02, 0.38450E-02, 0.51315E-02, - & 0.65445E-02, 0.80203E-02, 0.95026E-02, 0.10961E-01, 0.12373E-01, - & 0.13740E-01, 0.15044E-01, 0.16301E-01, 0.17527E-01, 0.18733E-01, - & 0.19925E-01, 0.21172E-01, 0.22466E-01, 0.23760E-01, 0.25054E-01, - & 0.26348E-01, 0.27641E-01, 0.28935E-01, 0.30229E-01, 0.31523E-01/ - - data ((clgrdl(i,j),j=1,30),i= 31, 40)/ - &-0.11202E-04, 0.90800E-04, 0.19795E-03, 0.37103E-03, 0.65924E-03, - & 0.11147E-02, 0.17742E-02, 0.26940E-02, 0.37681E-02, 0.50266E-02, - & 0.64068E-02, 0.78436E-02, 0.92876E-02, 0.10707E-01, 0.12079E-01, - & 0.13409E-01, 0.14674E-01, 0.15892E-01, 0.17080E-01, 0.18248E-01, - & 0.19401E-01, 0.20609E-01, 0.21864E-01, 0.23120E-01, 0.24376E-01, - & 0.25631E-01, 0.26887E-01, 0.28142E-01, 0.29398E-01, 0.30653E-01, - &-0.10860E-04, 0.89410E-04, 0.19466E-03, 0.36460E-03, 0.64764E-03, - & 0.10940E-02, 0.17409E-02, 0.26408E-02, 0.36922E-02, 0.49225E-02, - & 0.62701E-02, 0.76699E-02, 0.90760E-02, 0.10457E-01, 0.11790E-01, - & 0.13082E-01, 0.14309E-01, 0.15489E-01, 0.16640E-01, 0.17764E-01, - & 0.18885E-01, 0.20055E-01, 0.21273E-01, 0.22491E-01, 0.23709E-01, - & 0.24927E-01, 0.26145E-01, 0.27363E-01, 0.28581E-01, 0.29799E-01, - &-0.10511E-04, 0.88057E-04, 0.19147E-03, 0.35834E-03, 0.63621E-03, - & 0.10736E-02, 0.17082E-02, 0.25881E-02, 0.36172E-02, 0.48194E-02, - & 0.61348E-02, 0.74990E-02, 0.88680E-02, 0.10211E-01, 0.11506E-01, - & 0.12760E-01, 0.13950E-01, 0.15088E-01, 0.16203E-01, 0.17287E-01, - & 0.18378E-01, 0.19510E-01, 0.20690E-01, 0.21871E-01, 0.23051E-01, - & 0.24231E-01, 0.25412E-01, 0.26592E-01, 0.27772E-01, 0.28953E-01, - &-0.94029E-05, 0.87056E-04, 0.18838E-03, 0.35219E-03, 0.62491E-03, - & 0.10536E-02, 0.16759E-02, 0.25367E-02, 0.35436E-02, 0.47171E-02, - & 0.60014E-02, 0.73300E-02, 0.86628E-02, 0.99694E-02, 0.11226E-01, - & 0.12443E-01, 0.13596E-01, 0.14695E-01, 0.15769E-01, 0.16818E-01, - & 0.17879E-01, 0.18973E-01, 0.20114E-01, 0.21255E-01, 0.22396E-01, - & 0.23536E-01, 0.24677E-01, 0.25818E-01, 0.26958E-01, 0.28099E-01, - &-0.89850E-05, 0.85849E-04, 0.18537E-03, 0.34626E-03, 0.61379E-03, - & 0.10339E-02, 0.16446E-02, 0.24866E-02, 0.34719E-02, 0.46172E-02, - & 0.58699E-02, 0.71636E-02, 0.84600E-02, 0.97299E-02, 0.10949E-01, - & 0.12130E-01, 0.13247E-01, 0.14307E-01, 0.15342E-01, 0.16356E-01, - & 0.17389E-01, 0.18443E-01, 0.19538E-01, 0.20632E-01, 0.21726E-01, - & 0.22821E-01, 0.23915E-01, 0.25010E-01, 0.26104E-01, 0.27198E-01, - &-0.84079E-05, 0.84742E-04, 0.18248E-03, 0.34040E-03, 0.60287E-03, - & 0.10146E-02, 0.16137E-02, 0.24374E-02, 0.34010E-02, 0.45196E-02, - & 0.57406E-02, 0.69996E-02, 0.82600E-02, 0.94946E-02, 0.10677E-01, - & 0.11817E-01, 0.12900E-01, 0.13922E-01, 0.14918E-01, 0.15898E-01, - & 0.16903E-01, 0.17914E-01, 0.18957E-01, 0.19999E-01, 0.21041E-01, - & 0.22083E-01, 0.23126E-01, 0.24168E-01, 0.25210E-01, 0.26252E-01, - &-0.75352E-05, 0.83806E-04, 0.17971E-03, 0.33471E-03, 0.59211E-03, - & 0.99565E-03, 0.15831E-02, 0.23890E-02, 0.33310E-02, 0.44239E-02, - & 0.56132E-02, 0.68384E-02, 0.80632E-02, 0.92622E-02, 0.10409E-01, - & 0.11508E-01, 0.12554E-01, 0.13543E-01, 0.14503E-01, 0.15450E-01, - & 0.16424E-01, 0.17394E-01, 0.18386E-01, 0.19379E-01, 0.20371E-01, - & 0.21363E-01, 0.22355E-01, 0.23348E-01, 0.24340E-01, 0.25332E-01, - &-0.71546E-05, 0.82743E-04, 0.17703E-03, 0.32912E-03, 0.58161E-03, - & 0.97708E-03, 0.15529E-02, 0.23419E-02, 0.32617E-02, 0.43294E-02, - & 0.54875E-02, 0.66794E-02, 0.78696E-02, 0.90327E-02, 0.10144E-01, - & 0.11203E-01, 0.12212E-01, 0.13168E-01, 0.14094E-01, 0.15008E-01, - & 0.15948E-01, 0.16881E-01, 0.17828E-01, 0.18775E-01, 0.19722E-01, - & 0.20669E-01, 0.21616E-01, 0.22563E-01, 0.23510E-01, 0.24457E-01, - &-0.65477E-05, 0.81818E-04, 0.17447E-03, 0.32365E-03, 0.57133E-03, - & 0.95915E-03, 0.15228E-02, 0.22954E-02, 0.31933E-02, 0.42361E-02, - & 0.53634E-02, 0.65228E-02, 0.76788E-02, 0.88061E-02, 0.98822E-02, - & 0.10905E-01, 0.11878E-01, 0.12801E-01, 0.13694E-01, 0.14575E-01, - & 0.15476E-01, 0.16375E-01, 0.17285E-01, 0.18195E-01, 0.19105E-01, - & 0.20015E-01, 0.20925E-01, 0.21835E-01, 0.22745E-01, 0.23655E-01, - &-0.61628E-05, 0.80845E-04, 0.17203E-03, 0.31837E-03, 0.56134E-03, - & 0.94159E-03, 0.14931E-02, 0.22494E-02, 0.31256E-02, 0.41441E-02, - & 0.52409E-02, 0.63675E-02, 0.74902E-02, 0.85822E-02, 0.96233E-02, - & 0.10611E-01, 0.11550E-01, 0.12439E-01, 0.13301E-01, 0.14150E-01, - & 0.15010E-01, 0.15876E-01, 0.16756E-01, 0.17637E-01, 0.18517E-01, - & 0.19398E-01, 0.20278E-01, 0.21159E-01, 0.22039E-01, 0.22920E-01/ - - data ((clgrdl(i,j),j=1,30),i= 41, 50)/ - &-0.57892E-05, 0.79905E-04, 0.16970E-03, 0.31328E-03, 0.55164E-03, - & 0.92425E-03, 0.14639E-02, 0.22039E-02, 0.30588E-02, 0.40532E-02, - & 0.51202E-02, 0.62144E-02, 0.73039E-02, 0.83617E-02, 0.93675E-02, - & 0.10322E-01, 0.11227E-01, 0.12085E-01, 0.12915E-01, 0.13732E-01, - & 0.14552E-01, 0.15386E-01, 0.16238E-01, 0.17090E-01, 0.17942E-01, - & 0.18794E-01, 0.19645E-01, 0.20497E-01, 0.21349E-01, 0.22201E-01, - &-0.47166E-05, 0.79300E-04, 0.16746E-03, 0.30834E-03, 0.54219E-03, - & 0.90726E-03, 0.14353E-02, 0.21587E-02, 0.29928E-02, 0.39634E-02, - & 0.50010E-02, 0.60640E-02, 0.71212E-02, 0.81446E-02, 0.91159E-02, - & 0.10038E-01, 0.10909E-01, 0.11735E-01, 0.12535E-01, 0.13321E-01, - & 0.14102E-01, 0.14905E-01, 0.15730E-01, 0.16554E-01, 0.17378E-01, - & 0.18203E-01, 0.19027E-01, 0.19851E-01, 0.20676E-01, 0.21500E-01, - &-0.38458E-05, 0.78695E-04, 0.16530E-03, 0.30369E-03, 0.53304E-03, - & 0.89064E-03, 0.14071E-02, 0.21141E-02, 0.29281E-02, 0.38745E-02, - & 0.48833E-02, 0.59160E-02, 0.69418E-02, 0.79317E-02, 0.88689E-02, - & 0.97596E-02, 0.10597E-01, 0.11392E-01, 0.12161E-01, 0.12916E-01, - & 0.13661E-01, 0.14433E-01, 0.15230E-01, 0.16026E-01, 0.16822E-01, - & 0.17619E-01, 0.18415E-01, 0.19211E-01, 0.20008E-01, 0.20804E-01, - &-0.30813E-05, 0.78116E-04, 0.16326E-03, 0.29923E-03, 0.52404E-03, - & 0.87433E-03, 0.13797E-02, 0.20703E-02, 0.28653E-02, 0.37866E-02, - & 0.47670E-02, 0.57701E-02, 0.67652E-02, 0.77225E-02, 0.86266E-02, - & 0.94855E-02, 0.10292E-01, 0.11055E-01, 0.11794E-01, 0.12517E-01, - & 0.13229E-01, 0.13970E-01, 0.14739E-01, 0.15507E-01, 0.16275E-01, - & 0.17044E-01, 0.17812E-01, 0.18580E-01, 0.19349E-01, 0.20117E-01, - &-0.18282E-05, 0.77797E-04, 0.16137E-03, 0.29494E-03, 0.51535E-03, - & 0.85842E-03, 0.13528E-02, 0.20272E-02, 0.28038E-02, 0.37004E-02, - & 0.46529E-02, 0.56281E-02, 0.65918E-02, 0.75162E-02, 0.83880E-02, - & 0.92150E-02, 0.99904E-02, 0.10723E-01, 0.11431E-01, 0.12126E-01, - & 0.12804E-01, 0.13515E-01, 0.14255E-01, 0.14994E-01, 0.15734E-01, - & 0.16473E-01, 0.17212E-01, 0.17952E-01, 0.18691E-01, 0.19431E-01, - &-0.11230E-05, 0.77363E-04, 0.15963E-03, 0.29093E-03, 0.50693E-03, - & 0.84316E-03, 0.13268E-02, 0.19850E-02, 0.27430E-02, 0.36151E-02, - & 0.45407E-02, 0.54890E-02, 0.64208E-02, 0.73133E-02, 0.81531E-02, - & 0.89488E-02, 0.96936E-02, 0.10396E-01, 0.11075E-01, 0.11738E-01, - & 0.12387E-01, 0.13068E-01, 0.13776E-01, 0.14485E-01, 0.15194E-01, - & 0.15902E-01, 0.16611E-01, 0.17320E-01, 0.18029E-01, 0.18737E-01, - &-0.49642E-06, 0.76951E-04, 0.15803E-03, 0.28712E-03, 0.49880E-03, - & 0.82822E-03, 0.13013E-02, 0.19436E-02, 0.26835E-02, 0.35316E-02, - & 0.44315E-02, 0.53522E-02, 0.62525E-02, 0.71132E-02, 0.79220E-02, - & 0.86861E-02, 0.94013E-02, 0.10073E-01, 0.10723E-01, 0.11355E-01, - & 0.11977E-01, 0.12627E-01, 0.13305E-01, 0.13983E-01, 0.14661E-01, - & 0.15339E-01, 0.16017E-01, 0.16694E-01, 0.17372E-01, 0.18050E-01, - & 0.24839E-06, 0.76639E-04, 0.15661E-03, 0.28349E-03, 0.49109E-03, - & 0.81369E-03, 0.12765E-02, 0.19034E-02, 0.26250E-02, 0.34495E-02, - & 0.43261E-02, 0.52169E-02, 0.60867E-02, 0.69162E-02, 0.76943E-02, - & 0.84272E-02, 0.91126E-02, 0.97547E-02, 0.10375E-01, 0.10976E-01, - & 0.11574E-01, 0.12193E-01, 0.12839E-01, 0.13484E-01, 0.14130E-01, - & 0.14775E-01, 0.15421E-01, 0.16067E-01, 0.16712E-01, 0.17358E-01, - & 0.12197E-05, 0.76494E-04, 0.15532E-03, 0.28011E-03, 0.48374E-03, - & 0.79988E-03, 0.12523E-02, 0.18643E-02, 0.25677E-02, 0.33689E-02, - & 0.42221E-02, 0.50841E-02, 0.59231E-02, 0.67224E-02, 0.74705E-02, - & 0.81723E-02, 0.88283E-02, 0.94411E-02, 0.10032E-01, 0.10604E-01, - & 0.11176E-01, 0.11765E-01, 0.12379E-01, 0.12993E-01, 0.13607E-01, - & 0.14221E-01, 0.14835E-01, 0.15449E-01, 0.16063E-01, 0.16676E-01, - & 0.12207E-05, 0.76017E-04, 0.15413E-03, 0.27688E-03, 0.47674E-03, - & 0.78654E-03, 0.12287E-02, 0.18264E-02, 0.25118E-02, 0.32908E-02, - & 0.41196E-02, 0.49531E-02, 0.57624E-02, 0.65308E-02, 0.72492E-02, - & 0.79219E-02, 0.85487E-02, 0.91323E-02, 0.96936E-02, 0.10238E-01, - & 0.10783E-01, 0.11343E-01, 0.11925E-01, 0.12506E-01, 0.13088E-01, - & 0.13669E-01, 0.14251E-01, 0.14832E-01, 0.15414E-01, 0.15996E-01/ - - data ((clgrdl(i,j),j=1,30),i= 51, 60)/ - & 0.15544E-05, 0.75689E-04, 0.15309E-03, 0.27388E-03, 0.47026E-03, - & 0.77366E-03, 0.12059E-02, 0.17895E-02, 0.24571E-02, 0.32149E-02, - & 0.40190E-02, 0.48238E-02, 0.56039E-02, 0.63432E-02, 0.70322E-02, - & 0.76756E-02, 0.82736E-02, 0.88297E-02, 0.93623E-02, 0.98791E-02, - & 0.10397E-01, 0.10926E-01, 0.11473E-01, 0.12020E-01, 0.12567E-01, - & 0.13114E-01, 0.13661E-01, 0.14208E-01, 0.14755E-01, 0.15302E-01, - & 0.25070E-05, 0.75646E-04, 0.15214E-03, 0.27113E-03, 0.46409E-03, - & 0.76120E-03, 0.11838E-02, 0.17532E-02, 0.24031E-02, 0.31410E-02, - & 0.39192E-02, 0.46971E-02, 0.54483E-02, 0.61578E-02, 0.68182E-02, - & 0.74344E-02, 0.80035E-02, 0.85319E-02, 0.90377E-02, 0.95269E-02, - & 0.10017E-01, 0.10517E-01, 0.11033E-01, 0.11549E-01, 0.12065E-01, - & 0.12581E-01, 0.13096E-01, 0.13612E-01, 0.14128E-01, 0.14644E-01, - & 0.26657E-05, 0.75344E-04, 0.15123E-03, 0.26864E-03, 0.45830E-03, - & 0.74920E-03, 0.11624E-02, 0.17178E-02, 0.23503E-02, 0.30683E-02, - & 0.38215E-02, 0.45721E-02, 0.52952E-02, 0.59762E-02, 0.66077E-02, - & 0.71975E-02, 0.77383E-02, 0.82388E-02, 0.87176E-02, 0.91798E-02, - & 0.96421E-02, 0.10114E-01, 0.10602E-01, 0.11089E-01, 0.11577E-01, - & 0.12064E-01, 0.12551E-01, 0.13039E-01, 0.13526E-01, 0.14014E-01, - & 0.26029E-05, 0.74935E-04, 0.15040E-03, 0.26649E-03, 0.45295E-03, - & 0.73772E-03, 0.11420E-02, 0.16835E-02, 0.22991E-02, 0.29965E-02, - & 0.37258E-02, 0.44491E-02, 0.51450E-02, 0.57987E-02, 0.64023E-02, - & 0.69648E-02, 0.74780E-02, 0.79514E-02, 0.84032E-02, 0.88398E-02, - & 0.92740E-02, 0.97189E-02, 0.10178E-01, 0.10638E-01, 0.11097E-01, - & 0.11557E-01, 0.12016E-01, 0.12475E-01, 0.12935E-01, 0.13394E-01, - & 0.22883E-05, 0.74408E-04, 0.14963E-03, 0.26450E-03, 0.44791E-03, - & 0.72695E-03, 0.11224E-02, 0.16502E-02, 0.22493E-02, 0.29266E-02, - & 0.36313E-02, 0.43289E-02, 0.49979E-02, 0.56250E-02, 0.62004E-02, - & 0.67356E-02, 0.72221E-02, 0.76693E-02, 0.80953E-02, 0.85050E-02, - & 0.89120E-02, 0.93299E-02, 0.97622E-02, 0.10195E-01, 0.10627E-01, - & 0.11059E-01, 0.11492E-01, 0.11924E-01, 0.12356E-01, 0.12789E-01, - & 0.14176E-05, 0.73626E-04, 0.14881E-03, 0.26266E-03, 0.44317E-03, - & 0.71682E-03, 0.11036E-02, 0.16180E-02, 0.22010E-02, 0.28582E-02, - & 0.35387E-02, 0.42114E-02, 0.48538E-02, 0.54557E-02, 0.60035E-02, - & 0.65105E-02, 0.69702E-02, 0.73908E-02, 0.77910E-02, 0.81754E-02, - & 0.85560E-02, 0.89480E-02, 0.93553E-02, 0.97627E-02, 0.10170E-01, - & 0.10577E-01, 0.10985E-01, 0.11392E-01, 0.11799E-01, 0.12207E-01, - & 0.49656E-06, 0.72737E-04, 0.14793E-03, 0.26107E-03, 0.43885E-03, - & 0.70740E-03, 0.10859E-02, 0.15871E-02, 0.21541E-02, 0.27912E-02, - & 0.34489E-02, 0.40962E-02, 0.47140E-02, 0.52891E-02, 0.58102E-02, - & 0.62895E-02, 0.67230E-02, 0.71176E-02, 0.74918E-02, 0.78513E-02, - & 0.82064E-02, 0.85720E-02, 0.89525E-02, 0.93330E-02, 0.97134E-02, - & 0.10094E-01, 0.10474E-01, 0.10855E-01, 0.11235E-01, 0.11616E-01, - &-0.17043E-05, 0.71221E-04, 0.14694E-03, 0.25955E-03, 0.43497E-03, - & 0.69881E-03, 0.10689E-02, 0.15574E-02, 0.21091E-02, 0.27262E-02, - & 0.33610E-02, 0.39843E-02, 0.45770E-02, 0.51252E-02, 0.56197E-02, - & 0.60713E-02, 0.64796E-02, 0.68492E-02, 0.71983E-02, 0.75321E-02, - & 0.78630E-02, 0.82017E-02, 0.85536E-02, 0.89055E-02, 0.92573E-02, - & 0.96092E-02, 0.99611E-02, 0.10313E-01, 0.10665E-01, 0.11017E-01, - &-0.39396E-05, 0.69475E-04, 0.14574E-03, 0.25800E-03, 0.43145E-03, - & 0.69076E-03, 0.10526E-02, 0.15289E-02, 0.20652E-02, 0.26633E-02, - & 0.32760E-02, 0.38757E-02, 0.44427E-02, 0.49647E-02, 0.54329E-02, - & 0.58574E-02, 0.62397E-02, 0.65842E-02, 0.69088E-02, 0.72176E-02, - & 0.75247E-02, 0.78385E-02, 0.81647E-02, 0.84908E-02, 0.88170E-02, - & 0.91432E-02, 0.94694E-02, 0.97956E-02, 0.10122E-01, 0.10448E-01, - &-0.74089E-05, 0.67025E-04, 0.14420E-03, 0.25648E-03, 0.42826E-03, - & 0.68320E-03, 0.10372E-02, 0.15017E-02, 0.20228E-02, 0.26022E-02, - & 0.31930E-02, 0.37699E-02, 0.43116E-02, 0.48066E-02, 0.52493E-02, - & 0.56480E-02, 0.60051E-02, 0.63238E-02, 0.66235E-02, 0.69080E-02, - & 0.71904E-02, 0.74794E-02, 0.77810E-02, 0.80826E-02, 0.83843E-02, - & 0.86859E-02, 0.89875E-02, 0.92892E-02, 0.95908E-02, 0.98924E-02/ - - data ((clgrdl(i,j),j=1,30),i= 61, 70)/ - &-0.11468E-04, 0.63992E-04, 0.14220E-03, 0.25482E-03, 0.42543E-03, - & 0.67655E-03, 0.10228E-02, 0.14759E-02, 0.19823E-02, 0.25426E-02, - & 0.31132E-02, 0.36668E-02, 0.41827E-02, 0.46515E-02, 0.50686E-02, - & 0.54420E-02, 0.57744E-02, 0.60691E-02, 0.63436E-02, 0.66055E-02, - & 0.68631E-02, 0.71260E-02, 0.74001E-02, 0.76742E-02, 0.79483E-02, - & 0.82224E-02, 0.84965E-02, 0.87706E-02, 0.90447E-02, 0.93188E-02, - &-0.16398E-04, 0.60243E-04, 0.13963E-03, 0.25296E-03, 0.42271E-03, - & 0.67027E-03, 0.10093E-02, 0.14511E-02, 0.19429E-02, 0.24857E-02, - & 0.30357E-02, 0.35653E-02, 0.40565E-02, 0.45002E-02, 0.48920E-02, - & 0.52402E-02, 0.55475E-02, 0.58191E-02, 0.60703E-02, 0.63082E-02, - & 0.65409E-02, 0.67789E-02, 0.70260E-02, 0.72731E-02, 0.75202E-02, - & 0.77673E-02, 0.80144E-02, 0.82615E-02, 0.85086E-02, 0.87557E-02, - &-0.22307E-04, 0.55634E-04, 0.13633E-03, 0.25078E-03, 0.42002E-03, - & 0.66419E-03, 0.99694E-03, 0.14272E-02, 0.19050E-02, 0.24309E-02, - & 0.29591E-02, 0.34661E-02, 0.39335E-02, 0.43520E-02, 0.47188E-02, - & 0.50423E-02, 0.53250E-02, 0.55733E-02, 0.58015E-02, 0.60157E-02, - & 0.62225E-02, 0.64369E-02, 0.66615E-02, 0.68861E-02, 0.71107E-02, - & 0.73353E-02, 0.75598E-02, 0.77844E-02, 0.80090E-02, 0.82336E-02, - &-0.28477E-04, 0.50411E-04, 0.13218E-03, 0.24806E-03, 0.41722E-03, - & 0.65884E-03, 0.98558E-03, 0.14048E-02, 0.18692E-02, 0.23771E-02, - & 0.28855E-02, 0.33697E-02, 0.38128E-02, 0.42060E-02, 0.45485E-02, - & 0.48488E-02, 0.51072E-02, 0.53319E-02, 0.55371E-02, 0.57280E-02, - & 0.59095E-02, 0.61001E-02, 0.63009E-02, 0.65018E-02, 0.67027E-02, - & 0.69036E-02, 0.71044E-02, 0.73053E-02, 0.75062E-02, 0.77071E-02, - &-0.38041E-04, 0.43198E-04, 0.12700E-03, 0.24454E-03, 0.41413E-03, - & 0.65392E-03, 0.97517E-03, 0.13839E-02, 0.18350E-02, 0.23253E-02, - & 0.28140E-02, 0.32759E-02, 0.36944E-02, 0.40635E-02, 0.43809E-02, - & 0.46587E-02, 0.48924E-02, 0.50933E-02, 0.52758E-02, 0.54426E-02, - & 0.56003E-02, 0.57671E-02, 0.59448E-02, 0.61224E-02, 0.63001E-02, - & 0.64777E-02, 0.66553E-02, 0.68330E-02, 0.70106E-02, 0.71882E-02, - &-0.46259E-04, 0.35699E-04, 0.12071E-03, 0.23999E-03, 0.41071E-03, - & 0.64901E-03, 0.96560E-03, 0.13646E-02, 0.18029E-02, 0.22765E-02, - & 0.27443E-02, 0.31836E-02, 0.35794E-02, 0.39247E-02, 0.42178E-02, - & 0.44713E-02, 0.46814E-02, 0.48583E-02, 0.50165E-02, 0.51605E-02, - & 0.52937E-02, 0.54370E-02, 0.55922E-02, 0.57474E-02, 0.59026E-02, - & 0.60578E-02, 0.62131E-02, 0.63683E-02, 0.65235E-02, 0.66787E-02, - &-0.54880E-04, 0.27340E-04, 0.11282E-03, 0.23422E-03, 0.40666E-03, - & 0.64422E-03, 0.95667E-03, 0.13466E-02, 0.17727E-02, 0.22295E-02, - & 0.26777E-02, 0.30945E-02, 0.34669E-02, 0.37884E-02, 0.40575E-02, - & 0.42867E-02, 0.44733E-02, 0.46267E-02, 0.47617E-02, 0.48819E-02, - & 0.49924E-02, 0.51110E-02, 0.52402E-02, 0.53695E-02, 0.54987E-02, - & 0.56280E-02, 0.57572E-02, 0.58865E-02, 0.60157E-02, 0.61450E-02, - &-0.63585E-04, 0.18164E-04, 0.10343E-03, 0.22698E-03, 0.40154E-03, - & 0.63925E-03, 0.94808E-03, 0.13296E-02, 0.17440E-02, 0.21850E-02, - & 0.26136E-02, 0.30090E-02, 0.33576E-02, 0.36551E-02, 0.38994E-02, - & 0.41044E-02, 0.42668E-02, 0.43956E-02, 0.45070E-02, 0.46027E-02, - & 0.46924E-02, 0.47861E-02, 0.48895E-02, 0.49929E-02, 0.50964E-02, - & 0.51998E-02, 0.53032E-02, 0.54067E-02, 0.55101E-02, 0.56135E-02, - &-0.72880E-04, 0.79815E-05, 0.92568E-04, 0.21798E-03, 0.39510E-03, - & 0.63361E-03, 0.93971E-03, 0.13144E-02, 0.17172E-02, 0.21428E-02, - & 0.25529E-02, 0.29263E-02, 0.32517E-02, 0.35256E-02, 0.37456E-02, - & 0.39252E-02, 0.40641E-02, 0.41685E-02, 0.42549E-02, 0.43278E-02, - & 0.43954E-02, 0.44640E-02, 0.45400E-02, 0.46160E-02, 0.46920E-02, - & 0.47680E-02, 0.48440E-02, 0.49200E-02, 0.49960E-02, 0.50721E-02, - &-0.77426E-04,-0.91784E-06, 0.80128E-04, 0.20696E-03, 0.38677E-03, - & 0.62712E-03, 0.93121E-03, 0.12996E-02, 0.16922E-02, 0.21029E-02, - & 0.24946E-02, 0.28467E-02, 0.31499E-02, 0.34001E-02, 0.35959E-02, - & 0.37494E-02, 0.38637E-02, 0.39453E-02, 0.40080E-02, 0.40577E-02, - & 0.41018E-02, 0.41444E-02, 0.41915E-02, 0.42386E-02, 0.42856E-02, - & 0.43327E-02, 0.43798E-02, 0.44269E-02, 0.44739E-02, 0.45210E-02/ - - data ((clgrdl(i,j),j=1,30),i= 71, 80)/ - &-0.79386E-04,-0.91626E-05, 0.66218E-04, 0.19345E-03, 0.37635E-03, - & 0.61912E-03, 0.92249E-03, 0.12847E-02, 0.16681E-02, 0.20658E-02, - & 0.24392E-02, 0.27708E-02, 0.30514E-02, 0.32768E-02, 0.34489E-02, - & 0.35788E-02, 0.36686E-02, 0.37262E-02, 0.37663E-02, 0.37912E-02, - & 0.38111E-02, 0.38301E-02, 0.38536E-02, 0.38771E-02, 0.39006E-02, - & 0.39240E-02, 0.39475E-02, 0.39710E-02, 0.39945E-02, 0.40179E-02, - &-0.74118E-04,-0.14453E-04, 0.51432E-04, 0.17720E-03, 0.36335E-03, - & 0.60930E-03, 0.91322E-03, 0.12704E-02, 0.16456E-02, 0.20303E-02, - & 0.23861E-02, 0.26979E-02, 0.29559E-02, 0.31582E-02, 0.33061E-02, - & 0.34129E-02, 0.34789E-02, 0.35120E-02, 0.35274E-02, 0.35304E-02, - & 0.35255E-02, 0.35206E-02, 0.35209E-02, 0.35211E-02, 0.35214E-02, - & 0.35217E-02, 0.35220E-02, 0.35222E-02, 0.35225E-02, 0.35228E-02, - &-0.61172E-04,-0.15930E-04, 0.36372E-04, 0.15843E-03, 0.34747E-03, - & 0.59688E-03, 0.90253E-03, 0.12559E-02, 0.16239E-02, 0.19961E-02, - & 0.23360E-02, 0.26277E-02, 0.28645E-02, 0.30440E-02, 0.31682E-02, - & 0.32500E-02, 0.32923E-02, 0.33035E-02, 0.32955E-02, 0.32758E-02, - & 0.32462E-02, 0.32155E-02, 0.31876E-02, 0.31598E-02, 0.31320E-02, - & 0.31041E-02, 0.30763E-02, 0.30485E-02, 0.30206E-02, 0.29928E-02, - &-0.37759E-04,-0.11687E-04, 0.22225E-04, 0.13705E-03, 0.32760E-03, - & 0.58138E-03, 0.88976E-03, 0.12407E-02, 0.16028E-02, 0.19638E-02, - & 0.22878E-02, 0.25613E-02, 0.27764E-02, 0.29330E-02, 0.30339E-02, - & 0.30927E-02, 0.31107E-02, 0.30990E-02, 0.30690E-02, 0.30251E-02, - & 0.29696E-02, 0.29160E-02, 0.28658E-02, 0.28156E-02, 0.27655E-02, - & 0.27153E-02, 0.26651E-02, 0.26149E-02, 0.25647E-02, 0.25145E-02, - &-0.11029E-04,-0.37655E-05, 0.10557E-04, 0.11316E-03, 0.30357E-03, - & 0.56201E-03, 0.87407E-03, 0.12246E-02, 0.15818E-02, 0.19320E-02, - & 0.22419E-02, 0.24974E-02, 0.26922E-02, 0.28265E-02, 0.29040E-02, - & 0.29403E-02, 0.29348E-02, 0.28986E-02, 0.28453E-02, 0.27775E-02, - & 0.26982E-02, 0.26219E-02, 0.25516E-02, 0.24813E-02, 0.24109E-02, - & 0.23406E-02, 0.22703E-02, 0.22000E-02, 0.21297E-02, 0.20593E-02, - &-0.88555E-06,-0.31330E-06, 0.30657E-05, 0.87980E-04, 0.27529E-03, - & 0.53831E-03, 0.85446E-03, 0.12062E-02, 0.15601E-02, 0.19011E-02, - & 0.21980E-02, 0.24363E-02, 0.26109E-02, 0.27234E-02, 0.27784E-02, - & 0.27913E-02, 0.27632E-02, 0.27040E-02, 0.26263E-02, 0.25360E-02, - & 0.24339E-02, 0.23323E-02, 0.22352E-02, 0.21381E-02, 0.20410E-02, - & 0.19439E-02, 0.18468E-02, 0.17497E-02, 0.16526E-02, 0.15555E-02, - & 0.10000E-29, 0.10000E-29, 0.35388E-06, 0.62439E-04, 0.24267E-03, - & 0.50923E-03, 0.83045E-03, 0.11841E-02, 0.15366E-02, 0.18714E-02, - & 0.21552E-02, 0.23762E-02, 0.25316E-02, 0.26234E-02, 0.26567E-02, - & 0.26461E-02, 0.25947E-02, 0.25130E-02, 0.24129E-02, 0.22991E-02, - & 0.21742E-02, 0.20485E-02, 0.19249E-02, 0.18013E-02, 0.16776E-02, - & 0.15540E-02, 0.14303E-02, 0.13067E-02, 0.11831E-02, 0.10594E-02, - & 0.10000E-29, 0.10000E-29, 0.12547E-07, 0.38686E-04, 0.20562E-03, - & 0.47316E-03, 0.80093E-03, 0.11580E-02, 0.15107E-02, 0.18402E-02, - & 0.21125E-02, 0.23182E-02, 0.24547E-02, 0.25257E-02, 0.25366E-02, - & 0.25039E-02, 0.24299E-02, 0.23248E-02, 0.22013E-02, 0.20638E-02, - & 0.19162E-02, 0.17669E-02, 0.16203E-02, 0.14738E-02, 0.13272E-02, - & 0.11806E-02, 0.10340E-02, 0.88742E-03, 0.74084E-03, 0.59425E-03, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.19160E-04, 0.16522E-03, - & 0.43090E-03, 0.76489E-03, 0.11262E-02, 0.14809E-02, 0.18071E-02, - & 0.20706E-02, 0.22621E-02, 0.23804E-02, 0.24314E-02, 0.24207E-02, - & 0.23657E-02, 0.22690E-02, 0.21408E-02, 0.19938E-02, 0.18332E-02, - & 0.16630E-02, 0.14888E-02, 0.13151E-02, 0.11415E-02, 0.96783E-03, - & 0.79418E-03, 0.62053E-03, 0.44689E-03, 0.27324E-03, 0.99596E-04, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.61741E-05, 0.12316E-03, - & 0.38174E-03, 0.72020E-03, 0.10881E-02, 0.14460E-02, 0.17708E-02, - & 0.20267E-02, 0.22062E-02, 0.23086E-02, 0.23409E-02, 0.23093E-02, - & 0.22324E-02, 0.21131E-02, 0.19627E-02, 0.17937E-02, 0.16103E-02, - & 0.14164E-02, 0.12183E-02, 0.10194E-02, 0.82051E-03, 0.62162E-03, - & 0.42273E-03, 0.22384E-03, 0.24946E-04,-0.17395E-03,-0.37284E-03/ - - data ((clgrdl(i,j),j=1,30),i= 81, 90)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.76056E-06, 0.81812E-04, - & 0.32582E-03, 0.66611E-03, 0.10413E-02, 0.14044E-02, 0.17289E-02, - & 0.19803E-02, 0.21495E-02, 0.22383E-02, 0.22526E-02, 0.22013E-02, - & 0.21036E-02, 0.19633E-02, 0.17914E-02, 0.16004E-02, 0.13954E-02, - & 0.11773E-02, 0.95686E-03, 0.73681E-03, 0.51676E-03, 0.29670E-03, - & 0.76655E-04,-0.14340E-03,-0.36345E-03,-0.58350E-03,-0.80355E-03, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.27389E-07, 0.45259E-04, - & 0.26420E-03, 0.60266E-03, 0.98444E-03, 0.13545E-02, 0.16818E-02, - & 0.19299E-02, 0.20911E-02, 0.21664E-02, 0.21645E-02, 0.20959E-02, - & 0.19802E-02, 0.18194E-02, 0.16266E-02, 0.14153E-02, 0.11887E-02, - & 0.94861E-03, 0.70660E-03, 0.46468E-03, 0.22277E-03,-0.19151E-04, - &-0.26107E-03,-0.50298E-03,-0.74490E-03,-0.98681E-03,-0.12287E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.18290E-04, - & 0.19913E-03, 0.52928E-03, 0.91696E-03, 0.12946E-02, 0.16263E-02, - & 0.18736E-02, 0.20284E-02, 0.20940E-02, 0.20785E-02, 0.19928E-02, - & 0.18585E-02, 0.16790E-02, 0.14669E-02, 0.12358E-02, 0.98882E-03, - & 0.72838E-03, 0.46530E-03, 0.20265E-03,-0.59990E-04,-0.32263E-03, - &-0.58528E-03,-0.84792E-03,-0.11106E-02,-0.13732E-02,-0.16359E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.44621E-05, - & 0.13449E-03, 0.44610E-03, 0.83617E-03, 0.12214E-02, 0.15609E-02, - & 0.18102E-02, 0.19616E-02, 0.20183E-02, 0.19906E-02, 0.18912E-02, - & 0.17410E-02, 0.15440E-02, 0.13136E-02, 0.10637E-02, 0.79789E-03, - & 0.51888E-03, 0.23603E-03,-0.46907E-04,-0.32985E-03,-0.61279E-03, - &-0.89573E-03,-0.11787E-02,-0.14616E-02,-0.17446E-02,-0.20275E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.46820E-06, - & 0.76131E-04, 0.35535E-03, 0.74258E-03, 0.11335E-02, 0.14829E-02, - & 0.17366E-02, 0.18871E-02, 0.19385E-02, 0.19020E-02, 0.17902E-02, - & 0.16263E-02, 0.14142E-02, 0.11678E-02, 0.90168E-03, 0.61896E-03, - & 0.32300E-03, 0.22386E-04,-0.27897E-03,-0.58032E-03,-0.88167E-03, - &-0.11830E-02,-0.14844E-02,-0.17857E-02,-0.20871E-02,-0.23884E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.14567E-07, - & 0.31280E-04, 0.26079E-03, 0.63728E-03, 0.10299E-02, 0.13868E-02, - & 0.16510E-02, 0.18044E-02, 0.18534E-02, 0.18109E-02, 0.16903E-02, - & 0.15153E-02, 0.12909E-02, 0.10316E-02, 0.75205E-03, 0.45478E-03, - & 0.14320E-03,-0.17240E-03,-0.48870E-03,-0.80500E-03,-0.11213E-02, - &-0.14376E-02,-0.17539E-02,-0.20702E-02,-0.23865E-02,-0.27028E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.64895E-05, 0.16862E-03, 0.52080E-03, 0.90941E-03, 0.12745E-02, - & 0.15466E-02, 0.17089E-02, 0.17609E-02, 0.17159E-02, 0.15898E-02, - & 0.14079E-02, 0.11747E-02, 0.90497E-03, 0.61498E-03, 0.30634E-03, - &-0.16690E-04,-0.34374E-03,-0.67090E-03,-0.99806E-03,-0.13252E-02, - &-0.16524E-02,-0.19796E-02,-0.23067E-02,-0.26339E-02,-0.29611E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.46922E-06, 0.88556E-04, 0.39895E-03, 0.77292E-03, 0.11432E-02, - & 0.14255E-02, 0.15960E-02, 0.16548E-02, 0.16135E-02, 0.14878E-02, - & 0.13021E-02, 0.10640E-02, 0.78872E-03, 0.49211E-03, 0.17632E-03, - &-0.15371E-03,-0.48898E-03,-0.82506E-03,-0.11611E-02,-0.14972E-02, - &-0.18333E-02,-0.21694E-02,-0.25054E-02,-0.28415E-02,-0.31776E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.31821E-04, 0.27873E-03, 0.62200E-03, 0.99117E-03, - & 0.12840E-02, 0.14664E-02, 0.15337E-02, 0.14990E-02, 0.13774E-02, - & 0.11948E-02, 0.95752E-03, 0.68163E-03, 0.38370E-03, 0.65560E-04, - &-0.26743E-03,-0.60501E-03,-0.94262E-03,-0.12802E-02,-0.16178E-02, - &-0.19554E-02,-0.22930E-02,-0.26306E-02,-0.29682E-02,-0.33059E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.57399E-05, 0.17155E-03, 0.46329E-03, 0.81985E-03, - & 0.11205E-02, 0.13160E-02, 0.13971E-02, 0.13739E-02, 0.12613E-02, - & 0.10859E-02, 0.85449E-03, 0.58411E-03, 0.29054E-03,-0.23876E-04, - &-0.35303E-03,-0.68757E-03,-0.10228E-02,-0.13580E-02,-0.16933E-02, - &-0.20285E-02,-0.23638E-02,-0.26990E-02,-0.30343E-02,-0.33695E-02/ - - data ((clgrdl(i,j),j=1,30),i= 91,100)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.37744E-06, 0.89658E-04, 0.30740E-03, 0.63397E-03, - & 0.93469E-03, 0.11426E-02, 0.12412E-02, 0.12340E-02, 0.11366E-02, - & 0.97506E-03, 0.75641E-03, 0.49761E-03, 0.21445E-03,-0.89632E-04, - &-0.40815E-03,-0.73292E-03,-0.10587E-02,-0.13844E-02,-0.17101E-02, - &-0.20358E-02,-0.23616E-02,-0.26873E-02,-0.30130E-02,-0.33388E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.36035E-04, 0.16907E-03, 0.44260E-03, - & 0.73116E-03, 0.94804E-03, 0.10622E-02, 0.10757E-02, 0.99983E-03, - & 0.85907E-03, 0.66015E-03, 0.42043E-03, 0.15591E-03,-0.13015E-03, - &-0.43072E-03,-0.73749E-03,-0.10456E-02,-0.13537E-02,-0.16619E-02, - &-0.19700E-02,-0.22781E-02,-0.25862E-02,-0.28943E-02,-0.32025E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.73744E-05, 0.68598E-04, 0.26149E-03, - & 0.51876E-03, 0.73449E-03, 0.86458E-03, 0.90047E-03, 0.84915E-03, - & 0.73487E-03, 0.56342E-03, 0.35094E-03, 0.11336E-03,-0.14578E-03, - &-0.41919E-03,-0.69961E-03,-0.98235E-03,-0.12651E-02,-0.15478E-02, - &-0.18306E-02,-0.21133E-02,-0.23960E-02,-0.26788E-02,-0.29615E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.53680E-06, 0.16876E-04, 0.11404E-03, - & 0.31354E-03, 0.51245E-03, 0.65076E-03, 0.70747E-03, 0.68529E-03, - & 0.60306E-03, 0.46579E-03, 0.28834E-03, 0.85438E-04,-0.13828E-03, - &-0.37572E-03,-0.62082E-03,-0.86922E-03,-0.11176E-02,-0.13660E-02, - &-0.16144E-02,-0.18628E-02,-0.21112E-02,-0.23596E-02,-0.26080E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.15446E-05, 0.26345E-04, - & 0.14145E-03, 0.30041E-03, 0.43237E-03, 0.50423E-03, 0.51088E-03, - & 0.46307E-03, 0.36437E-03, 0.22871E-03, 0.68731E-04,-0.11106E-03, - &-0.30394E-03,-0.50460E-03,-0.70936E-03,-0.91411E-03,-0.11189E-02, - &-0.13236E-02,-0.15284E-02,-0.17331E-02,-0.19379E-02,-0.21426E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.11349E-07, 0.21439E-05, - & 0.34135E-04, 0.12635E-03, 0.23070E-03, 0.30512E-03, 0.33257E-03, - & 0.31776E-03, 0.26011E-03, 0.16993E-03, 0.57896E-04,-0.71718E-04, - &-0.21326E-03,-0.36220E-03,-0.51570E-03,-0.66920E-03,-0.82270E-03, - &-0.97620E-03,-0.11297E-02,-0.12832E-02,-0.14367E-02,-0.15902E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.28763E-05, 0.25679E-04, 0.79080E-04, 0.13457E-03, 0.16915E-03, - & 0.17774E-03, 0.15622E-03, 0.11002E-03, 0.46401E-04,-0.31399E-04, - &-0.11929E-03,-0.21336E-03,-0.31165E-03,-0.40993E-03,-0.50821E-03, - &-0.60649E-03,-0.70477E-03,-0.80306E-03,-0.90134E-03,-0.99962E-03, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.18510E-05, 0.10426E-04, 0.29432E-04, 0.50719E-04, - & 0.64579E-04, 0.65269E-04, 0.52280E-04, 0.28720E-04,-0.38653E-05, - &-0.43291E-04,-0.86794E-04,-0.13318E-03,-0.17957E-03,-0.22596E-03, - &-0.27235E-03,-0.31874E-03,-0.36512E-03,-0.41151E-03,-0.45790E-03, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.35009E-06, 0.22913E-05, 0.52997E-05, - & 0.87801E-05, 0.11229E-04, 0.11077E-04, 0.81166E-05, 0.22798E-05, - &-0.60743E-05,-0.15945E-04,-0.26877E-04,-0.37808E-04,-0.48739E-04, - &-0.59671E-04,-0.70602E-04,-0.81534E-04,-0.92465E-04,-0.10340E-03, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.22929E-08, 0.52969E-07, - & 0.29693E-06, 0.62384E-06, 0.80267E-06, 0.73873E-06, 0.38935E-06, - &-0.23083E-06,-0.10157E-05,-0.19145E-05,-0.28133E-05,-0.37121E-05, - &-0.46110E-05,-0.55098E-05,-0.64086E-05,-0.73074E-05,-0.82063E-05/ - - data ((f2grrl(i,j),j=1,30),i= 1, 10)/ - & 0.33204E+00, 0.33123E+00, 0.33042E+00, 0.33044E+00, 0.33314E+00, - & 0.36639E+00, 0.39977E+00, 0.43367E+00, 0.46831E+00, 0.50370E+00, - & 0.54145E+00, 0.58194E+00, 0.62554E+00, 0.67265E+00, 0.72353E+00, - & 0.77833E+00, 0.83767E+00, 0.90233E+00, 0.97332E+00, 0.10531E+01, - & 0.11484E+01, 0.12592E+01, 0.13829E+01, 0.15067E+01, 0.16304E+01, - & 0.17541E+01, 0.18779E+01, 0.20016E+01, 0.21254E+01, 0.22491E+01, - & 0.33248E+00, 0.33167E+00, 0.33087E+00, 0.33088E+00, 0.33355E+00, - & 0.36635E+00, 0.39927E+00, 0.43270E+00, 0.46685E+00, 0.50173E+00, - & 0.53892E+00, 0.57876E+00, 0.62160E+00, 0.66781E+00, 0.71764E+00, - & 0.77122E+00, 0.82917E+00, 0.89223E+00, 0.96140E+00, 0.10391E+01, - & 0.11320E+01, 0.12399E+01, 0.13606E+01, 0.14812E+01, 0.16019E+01, - & 0.17226E+01, 0.18432E+01, 0.19639E+01, 0.20845E+01, 0.22052E+01, - & 0.33290E+00, 0.33211E+00, 0.33131E+00, 0.33133E+00, 0.33396E+00, - & 0.36633E+00, 0.39878E+00, 0.43173E+00, 0.46540E+00, 0.49977E+00, - & 0.53640E+00, 0.57560E+00, 0.61768E+00, 0.66300E+00, 0.71180E+00, - & 0.76418E+00, 0.82075E+00, 0.88224E+00, 0.94964E+00, 0.10253E+01, - & 0.11158E+01, 0.12210E+01, 0.13387E+01, 0.14563E+01, 0.15740E+01, - & 0.16917E+01, 0.18093E+01, 0.19270E+01, 0.20446E+01, 0.21623E+01, - & 0.33335E+00, 0.33256E+00, 0.33176E+00, 0.33178E+00, 0.33437E+00, - & 0.36630E+00, 0.39830E+00, 0.43078E+00, 0.46396E+00, 0.49783E+00, - & 0.53389E+00, 0.57245E+00, 0.61378E+00, 0.65823E+00, 0.70600E+00, - & 0.75721E+00, 0.81243E+00, 0.87239E+00, 0.93805E+00, 0.10117E+01, - & 0.10999E+01, 0.12025E+01, 0.13172E+01, 0.14320E+01, 0.15467E+01, - & 0.16614E+01, 0.17761E+01, 0.18909E+01, 0.20056E+01, 0.21203E+01, - & 0.33378E+00, 0.33300E+00, 0.33222E+00, 0.33223E+00, 0.33478E+00, - & 0.36628E+00, 0.39783E+00, 0.42983E+00, 0.46253E+00, 0.49589E+00, - & 0.53140E+00, 0.56932E+00, 0.60991E+00, 0.65348E+00, 0.70025E+00, - & 0.75030E+00, 0.80420E+00, 0.86266E+00, 0.92663E+00, 0.99839E+00, - & 0.10843E+01, 0.11843E+01, 0.12962E+01, 0.14080E+01, 0.15199E+01, - & 0.16318E+01, 0.17437E+01, 0.18556E+01, 0.19674E+01, 0.20793E+01, - & 0.33421E+00, 0.33344E+00, 0.33267E+00, 0.33269E+00, 0.33520E+00, - & 0.36627E+00, 0.39736E+00, 0.42890E+00, 0.46111E+00, 0.49397E+00, - & 0.52893E+00, 0.56621E+00, 0.60606E+00, 0.64877E+00, 0.69454E+00, - & 0.74345E+00, 0.79606E+00, 0.85305E+00, 0.91536E+00, 0.98525E+00, - & 0.10690E+01, 0.11664E+01, 0.12755E+01, 0.13846E+01, 0.14937E+01, - & 0.16028E+01, 0.17119E+01, 0.18210E+01, 0.19300E+01, 0.20391E+01, - & 0.33465E+00, 0.33389E+00, 0.33313E+00, 0.33315E+00, 0.33563E+00, - & 0.36626E+00, 0.39690E+00, 0.42797E+00, 0.45971E+00, 0.49206E+00, - & 0.52646E+00, 0.56311E+00, 0.60223E+00, 0.64409E+00, 0.68887E+00, - & 0.73667E+00, 0.78801E+00, 0.84355E+00, 0.90425E+00, 0.97231E+00, - & 0.10539E+01, 0.11488E+01, 0.12552E+01, 0.13616E+01, 0.14680E+01, - & 0.15744E+01, 0.16808E+01, 0.17872E+01, 0.18936E+01, 0.20000E+01, - & 0.33511E+00, 0.33435E+00, 0.33359E+00, 0.33361E+00, 0.33605E+00, - & 0.36625E+00, 0.39644E+00, 0.42705E+00, 0.45831E+00, 0.49016E+00, - & 0.52401E+00, 0.56002E+00, 0.59841E+00, 0.63944E+00, 0.68325E+00, - & 0.72995E+00, 0.78004E+00, 0.83418E+00, 0.89330E+00, 0.95956E+00, - & 0.10390E+01, 0.11316E+01, 0.12353E+01, 0.13391E+01, 0.14428E+01, - & 0.15466E+01, 0.16503E+01, 0.17541E+01, 0.18578E+01, 0.19616E+01, - & 0.33554E+00, 0.33480E+00, 0.33406E+00, 0.33407E+00, 0.33648E+00, - & 0.36625E+00, 0.39599E+00, 0.42614E+00, 0.45692E+00, 0.48827E+00, - & 0.52156E+00, 0.55695E+00, 0.59462E+00, 0.63481E+00, 0.67767E+00, - & 0.72329E+00, 0.77216E+00, 0.82492E+00, 0.88249E+00, 0.94701E+00, - & 0.10244E+01, 0.11146E+01, 0.12158E+01, 0.13170E+01, 0.14182E+01, - & 0.15193E+01, 0.16205E+01, 0.17217E+01, 0.18228E+01, 0.19240E+01, - & 0.33598E+00, 0.33525E+00, 0.33452E+00, 0.33453E+00, 0.33691E+00, - & 0.36625E+00, 0.39554E+00, 0.42523E+00, 0.45553E+00, 0.48639E+00, - & 0.51913E+00, 0.55390E+00, 0.59085E+00, 0.63022E+00, 0.67214E+00, - & 0.71669E+00, 0.76435E+00, 0.81576E+00, 0.87183E+00, 0.93465E+00, - & 0.10100E+01, 0.10980E+01, 0.11967E+01, 0.12953E+01, 0.13940E+01, - & 0.14926E+01, 0.15913E+01, 0.16900E+01, 0.17886E+01, 0.18873E+01/ - - data ((f2grrl(i,j),j=1,30),i= 11, 20)/ - & 0.33642E+00, 0.33570E+00, 0.33498E+00, 0.33499E+00, 0.33734E+00, - & 0.36625E+00, 0.39510E+00, 0.42433E+00, 0.45416E+00, 0.48451E+00, - & 0.51671E+00, 0.55085E+00, 0.58710E+00, 0.62565E+00, 0.66664E+00, - & 0.71015E+00, 0.75663E+00, 0.80672E+00, 0.86131E+00, 0.92246E+00, - & 0.99590E+00, 0.10816E+01, 0.11779E+01, 0.12741E+01, 0.13703E+01, - & 0.14665E+01, 0.15627E+01, 0.16590E+01, 0.17552E+01, 0.18514E+01, - & 0.33690E+00, 0.33617E+00, 0.33544E+00, 0.33546E+00, 0.33777E+00, - & 0.36625E+00, 0.39465E+00, 0.42343E+00, 0.45279E+00, 0.48264E+00, - & 0.51429E+00, 0.54782E+00, 0.58336E+00, 0.62111E+00, 0.66118E+00, - & 0.70366E+00, 0.74899E+00, 0.79778E+00, 0.85093E+00, 0.91046E+00, - & 0.98199E+00, 0.10656E+01, 0.11594E+01, 0.12532E+01, 0.13470E+01, - & 0.14409E+01, 0.15347E+01, 0.16285E+01, 0.17223E+01, 0.18162E+01, - & 0.33732E+00, 0.33661E+00, 0.33591E+00, 0.33592E+00, 0.33820E+00, - & 0.36626E+00, 0.39421E+00, 0.42253E+00, 0.45142E+00, 0.48078E+00, - & 0.51188E+00, 0.54480E+00, 0.57964E+00, 0.61659E+00, 0.65576E+00, - & 0.69723E+00, 0.74142E+00, 0.78895E+00, 0.84068E+00, 0.89863E+00, - & 0.96830E+00, 0.10498E+01, 0.11413E+01, 0.12328E+01, 0.13243E+01, - & 0.14158E+01, 0.15073E+01, 0.15988E+01, 0.16903E+01, 0.17818E+01, - & 0.33773E+00, 0.33705E+00, 0.33636E+00, 0.33638E+00, 0.33862E+00, - & 0.36626E+00, 0.39378E+00, 0.42164E+00, 0.45006E+00, 0.47892E+00, - & 0.50948E+00, 0.54179E+00, 0.57594E+00, 0.61210E+00, 0.65038E+00, - & 0.69085E+00, 0.73393E+00, 0.78021E+00, 0.83057E+00, 0.88696E+00, - & 0.95481E+00, 0.10342E+01, 0.11235E+01, 0.12127E+01, 0.13020E+01, - & 0.13912E+01, 0.14805E+01, 0.15697E+01, 0.16590E+01, 0.17482E+01, - & 0.33816E+00, 0.33749E+00, 0.33682E+00, 0.33683E+00, 0.33905E+00, - & 0.36626E+00, 0.39334E+00, 0.42075E+00, 0.44871E+00, 0.47707E+00, - & 0.50709E+00, 0.53879E+00, 0.57225E+00, 0.60764E+00, 0.64504E+00, - & 0.68453E+00, 0.72651E+00, 0.77158E+00, 0.82058E+00, 0.87546E+00, - & 0.94154E+00, 0.10189E+01, 0.11060E+01, 0.11930E+01, 0.12801E+01, - & 0.13671E+01, 0.14542E+01, 0.15412E+01, 0.16283E+01, 0.17153E+01, - & 0.33861E+00, 0.33794E+00, 0.33727E+00, 0.33728E+00, 0.33947E+00, - & 0.36626E+00, 0.39290E+00, 0.41986E+00, 0.44735E+00, 0.47522E+00, - & 0.50470E+00, 0.53580E+00, 0.56858E+00, 0.60319E+00, 0.63972E+00, - & 0.67825E+00, 0.71916E+00, 0.76303E+00, 0.81072E+00, 0.86412E+00, - & 0.92847E+00, 0.10039E+01, 0.10888E+01, 0.11737E+01, 0.12586E+01, - & 0.13434E+01, 0.14283E+01, 0.15132E+01, 0.15981E+01, 0.16830E+01, - & 0.33901E+00, 0.33837E+00, 0.33772E+00, 0.33773E+00, 0.33988E+00, - & 0.36625E+00, 0.39245E+00, 0.41897E+00, 0.44600E+00, 0.47337E+00, - & 0.50232E+00, 0.53281E+00, 0.56492E+00, 0.59877E+00, 0.63445E+00, - & 0.67202E+00, 0.71188E+00, 0.75458E+00, 0.80097E+00, 0.85293E+00, - & 0.91559E+00, 0.98910E+00, 0.10719E+01, 0.11546E+01, 0.12374E+01, - & 0.13202E+01, 0.14030E+01, 0.14857E+01, 0.15685E+01, 0.16513E+01, - & 0.33942E+00, 0.33879E+00, 0.33816E+00, 0.33817E+00, 0.34029E+00, - & 0.36624E+00, 0.39201E+00, 0.41808E+00, 0.44464E+00, 0.47152E+00, - & 0.49993E+00, 0.52983E+00, 0.56127E+00, 0.59436E+00, 0.62920E+00, - & 0.66584E+00, 0.70466E+00, 0.74622E+00, 0.79135E+00, 0.84189E+00, - & 0.90290E+00, 0.97454E+00, 0.10553E+01, 0.11360E+01, 0.12167E+01, - & 0.12974E+01, 0.13781E+01, 0.14589E+01, 0.15396E+01, 0.16203E+01, - & 0.33983E+00, 0.33921E+00, 0.33859E+00, 0.33860E+00, 0.34070E+00, - & 0.36622E+00, 0.39156E+00, 0.41718E+00, 0.44329E+00, 0.46967E+00, - & 0.49755E+00, 0.52685E+00, 0.55763E+00, 0.58998E+00, 0.62398E+00, - & 0.65970E+00, 0.69751E+00, 0.73794E+00, 0.78183E+00, 0.83100E+00, - & 0.89040E+00, 0.96021E+00, 0.10389E+01, 0.11176E+01, 0.11963E+01, - & 0.12751E+01, 0.13538E+01, 0.14325E+01, 0.15112E+01, 0.15899E+01, - & 0.34023E+00, 0.33962E+00, 0.33902E+00, 0.33903E+00, 0.34109E+00, - & 0.36620E+00, 0.39110E+00, 0.41628E+00, 0.44193E+00, 0.46782E+00, - & 0.49517E+00, 0.52388E+00, 0.55400E+00, 0.58561E+00, 0.61879E+00, - & 0.65361E+00, 0.69041E+00, 0.72975E+00, 0.77242E+00, 0.82024E+00, - & 0.87807E+00, 0.94610E+00, 0.10229E+01, 0.10996E+01, 0.11764E+01, - & 0.12531E+01, 0.13299E+01, 0.14066E+01, 0.14834E+01, 0.15601E+01/ - - data ((f2grrl(i,j),j=1,30),i= 21, 30)/ - & 0.34062E+00, 0.34002E+00, 0.33943E+00, 0.33944E+00, 0.34148E+00, - & 0.36616E+00, 0.39064E+00, 0.41538E+00, 0.44056E+00, 0.46596E+00, - & 0.49278E+00, 0.52091E+00, 0.55037E+00, 0.58125E+00, 0.61362E+00, - & 0.64755E+00, 0.68337E+00, 0.72163E+00, 0.76312E+00, 0.80962E+00, - & 0.86591E+00, 0.93220E+00, 0.10070E+01, 0.10819E+01, 0.11567E+01, - & 0.12315E+01, 0.13064E+01, 0.13812E+01, 0.14561E+01, 0.15309E+01, - & 0.34097E+00, 0.34040E+00, 0.33983E+00, 0.33984E+00, 0.34186E+00, - & 0.36612E+00, 0.39017E+00, 0.41446E+00, 0.43919E+00, 0.46410E+00, - & 0.49039E+00, 0.51794E+00, 0.54675E+00, 0.57691E+00, 0.60848E+00, - & 0.64153E+00, 0.67639E+00, 0.71359E+00, 0.75392E+00, 0.79912E+00, - & 0.85391E+00, 0.91850E+00, 0.99146E+00, 0.10644E+01, 0.11374E+01, - & 0.12104E+01, 0.12833E+01, 0.13563E+01, 0.14293E+01, 0.15022E+01, - & 0.34133E+00, 0.34077E+00, 0.34022E+00, 0.34023E+00, 0.34222E+00, - & 0.36606E+00, 0.38969E+00, 0.41354E+00, 0.43781E+00, 0.46223E+00, - & 0.48800E+00, 0.51497E+00, 0.54313E+00, 0.57258E+00, 0.60336E+00, - & 0.63555E+00, 0.66946E+00, 0.70561E+00, 0.74481E+00, 0.78875E+00, - & 0.84207E+00, 0.90499E+00, 0.97613E+00, 0.10473E+01, 0.11184E+01, - & 0.11895E+01, 0.12607E+01, 0.13318E+01, 0.14030E+01, 0.14741E+01, - & 0.34168E+00, 0.34113E+00, 0.34059E+00, 0.34061E+00, 0.34257E+00, - & 0.36599E+00, 0.38919E+00, 0.41261E+00, 0.43642E+00, 0.46035E+00, - & 0.48560E+00, 0.51199E+00, 0.53952E+00, 0.56826E+00, 0.59826E+00, - & 0.62959E+00, 0.66257E+00, 0.69771E+00, 0.73579E+00, 0.77850E+00, - & 0.83038E+00, 0.89168E+00, 0.96103E+00, 0.10304E+01, 0.10997E+01, - & 0.11691E+01, 0.12384E+01, 0.13078E+01, 0.13771E+01, 0.14465E+01, - & 0.34196E+00, 0.34146E+00, 0.34095E+00, 0.34096E+00, 0.34290E+00, - & 0.36591E+00, 0.38868E+00, 0.41166E+00, 0.43502E+00, 0.45846E+00, - & 0.48319E+00, 0.50900E+00, 0.53590E+00, 0.56394E+00, 0.59317E+00, - & 0.62367E+00, 0.65573E+00, 0.68987E+00, 0.72686E+00, 0.76836E+00, - & 0.81884E+00, 0.87854E+00, 0.94614E+00, 0.10137E+01, 0.10813E+01, - & 0.11489E+01, 0.12165E+01, 0.12842E+01, 0.13518E+01, 0.14194E+01, - & 0.34225E+00, 0.34177E+00, 0.34129E+00, 0.34130E+00, 0.34321E+00, - & 0.36581E+00, 0.38815E+00, 0.41069E+00, 0.43361E+00, 0.45656E+00, - & 0.48076E+00, 0.50601E+00, 0.53228E+00, 0.55963E+00, 0.58810E+00, - & 0.61777E+00, 0.64893E+00, 0.68209E+00, 0.71801E+00, 0.75833E+00, - & 0.80743E+00, 0.86558E+00, 0.93147E+00, 0.99736E+00, 0.10633E+01, - & 0.11291E+01, 0.11950E+01, 0.12609E+01, 0.13268E+01, 0.13927E+01, - & 0.34254E+00, 0.34207E+00, 0.34161E+00, 0.34162E+00, 0.34351E+00, - & 0.36569E+00, 0.38761E+00, 0.40971E+00, 0.43217E+00, 0.45464E+00, - & 0.47833E+00, 0.50301E+00, 0.52865E+00, 0.55531E+00, 0.58304E+00, - & 0.61189E+00, 0.64217E+00, 0.67437E+00, 0.70924E+00, 0.74840E+00, - & 0.79616E+00, 0.85278E+00, 0.91700E+00, 0.98122E+00, 0.10454E+01, - & 0.11097E+01, 0.11739E+01, 0.12381E+01, 0.13023E+01, 0.13665E+01, - & 0.34278E+00, 0.34234E+00, 0.34190E+00, 0.34191E+00, 0.34378E+00, - & 0.36554E+00, 0.38704E+00, 0.40871E+00, 0.43072E+00, 0.45270E+00, - & 0.47587E+00, 0.49999E+00, 0.52501E+00, 0.55100E+00, 0.57798E+00, - & 0.60604E+00, 0.63545E+00, 0.66670E+00, 0.70054E+00, 0.73856E+00, - & 0.78501E+00, 0.84014E+00, 0.90272E+00, 0.96530E+00, 0.10279E+01, - & 0.10905E+01, 0.11530E+01, 0.12156E+01, 0.12782E+01, 0.13408E+01, - & 0.34298E+00, 0.34258E+00, 0.34217E+00, 0.34218E+00, 0.34403E+00, - & 0.36538E+00, 0.38645E+00, 0.40769E+00, 0.42925E+00, 0.45074E+00, - & 0.47340E+00, 0.49695E+00, 0.52137E+00, 0.54668E+00, 0.57293E+00, - & 0.60020E+00, 0.62875E+00, 0.65908E+00, 0.69191E+00, 0.72882E+00, - & 0.77397E+00, 0.82765E+00, 0.88863E+00, 0.94961E+00, 0.10106E+01, - & 0.10716E+01, 0.11325E+01, 0.11935E+01, 0.12545E+01, 0.13155E+01, - & 0.34319E+00, 0.34280E+00, 0.34241E+00, 0.34242E+00, 0.34425E+00, - & 0.36518E+00, 0.38584E+00, 0.40664E+00, 0.42776E+00, 0.44875E+00, - & 0.47090E+00, 0.49390E+00, 0.51771E+00, 0.54235E+00, 0.56788E+00, - & 0.59437E+00, 0.62208E+00, 0.65149E+00, 0.68334E+00, 0.71916E+00, - & 0.76306E+00, 0.81530E+00, 0.87471E+00, 0.93412E+00, 0.99352E+00, - & 0.10529E+01, 0.11123E+01, 0.11717E+01, 0.12312E+01, 0.12906E+01/ - - data ((f2grrl(i,j),j=1,30),i= 31, 40)/ - & 0.34331E+00, 0.34297E+00, 0.34262E+00, 0.34263E+00, 0.34444E+00, - & 0.36496E+00, 0.38520E+00, 0.40557E+00, 0.42623E+00, 0.44674E+00, - & 0.46838E+00, 0.49083E+00, 0.51403E+00, 0.53802E+00, 0.56283E+00, - & 0.58855E+00, 0.61544E+00, 0.64395E+00, 0.67483E+00, 0.70958E+00, - & 0.75224E+00, 0.80309E+00, 0.86095E+00, 0.91882E+00, 0.97669E+00, - & 0.10346E+01, 0.10924E+01, 0.11503E+01, 0.12082E+01, 0.12660E+01, - & 0.34343E+00, 0.34311E+00, 0.34280E+00, 0.34281E+00, 0.34460E+00, - & 0.36470E+00, 0.38452E+00, 0.40446E+00, 0.42468E+00, 0.44470E+00, - & 0.46583E+00, 0.48773E+00, 0.51033E+00, 0.53367E+00, 0.55778E+00, - & 0.58274E+00, 0.60881E+00, 0.63644E+00, 0.66637E+00, 0.70008E+00, - & 0.74152E+00, 0.79100E+00, 0.84736E+00, 0.90372E+00, 0.96008E+00, - & 0.10164E+01, 0.10728E+01, 0.11292E+01, 0.11855E+01, 0.12419E+01, - & 0.34354E+00, 0.34324E+00, 0.34294E+00, 0.34295E+00, 0.34472E+00, - & 0.36441E+00, 0.38381E+00, 0.40332E+00, 0.42309E+00, 0.44263E+00, - & 0.46325E+00, 0.48460E+00, 0.50661E+00, 0.52930E+00, 0.55271E+00, - & 0.57693E+00, 0.60219E+00, 0.62896E+00, 0.65796E+00, 0.69064E+00, - & 0.73089E+00, 0.77902E+00, 0.83391E+00, 0.88879E+00, 0.94367E+00, - & 0.99855E+00, 0.10534E+01, 0.11083E+01, 0.11632E+01, 0.12181E+01, - & 0.34355E+00, 0.34330E+00, 0.34304E+00, 0.34305E+00, 0.34481E+00, - & 0.36408E+00, 0.38306E+00, 0.40214E+00, 0.42147E+00, 0.44052E+00, - & 0.46064E+00, 0.48144E+00, 0.50286E+00, 0.52491E+00, 0.54764E+00, - & 0.57111E+00, 0.59559E+00, 0.62151E+00, 0.64959E+00, 0.68126E+00, - & 0.72035E+00, 0.76716E+00, 0.82059E+00, 0.87402E+00, 0.92746E+00, - & 0.98089E+00, 0.10343E+01, 0.10877E+01, 0.11412E+01, 0.11946E+01, - & 0.34353E+00, 0.34332E+00, 0.34310E+00, 0.34311E+00, 0.34485E+00, - & 0.36371E+00, 0.38227E+00, 0.40092E+00, 0.41981E+00, 0.43837E+00, - & 0.45799E+00, 0.47825E+00, 0.49907E+00, 0.52049E+00, 0.54254E+00, - & 0.56529E+00, 0.58899E+00, 0.61407E+00, 0.64125E+00, 0.67193E+00, - & 0.70989E+00, 0.75540E+00, 0.80741E+00, 0.85942E+00, 0.91143E+00, - & 0.96344E+00, 0.10154E+01, 0.10675E+01, 0.11195E+01, 0.11715E+01, - & 0.34351E+00, 0.34331E+00, 0.34311E+00, 0.34312E+00, 0.34485E+00, - & 0.36329E+00, 0.38144E+00, 0.39966E+00, 0.41810E+00, 0.43618E+00, - & 0.45529E+00, 0.47501E+00, 0.49526E+00, 0.51605E+00, 0.53742E+00, - & 0.55945E+00, 0.58238E+00, 0.60665E+00, 0.63294E+00, 0.66266E+00, - & 0.69949E+00, 0.74373E+00, 0.79434E+00, 0.84495E+00, 0.89556E+00, - & 0.94617E+00, 0.99678E+00, 0.10474E+01, 0.10980E+01, 0.11486E+01, - & 0.34338E+00, 0.34322E+00, 0.34307E+00, 0.34308E+00, 0.34479E+00, - & 0.36283E+00, 0.38055E+00, 0.39835E+00, 0.41634E+00, 0.43394E+00, - & 0.45255E+00, 0.47173E+00, 0.49140E+00, 0.51157E+00, 0.53228E+00, - & 0.55360E+00, 0.57578E+00, 0.59924E+00, 0.62466E+00, 0.65342E+00, - & 0.68915E+00, 0.73215E+00, 0.78139E+00, 0.83063E+00, 0.87987E+00, - & 0.92910E+00, 0.97834E+00, 0.10276E+01, 0.10768E+01, 0.11261E+01, - & 0.34321E+00, 0.34309E+00, 0.34298E+00, 0.34298E+00, 0.34469E+00, - & 0.36231E+00, 0.37962E+00, 0.39698E+00, 0.41454E+00, 0.43164E+00, - & 0.44976E+00, 0.46841E+00, 0.48750E+00, 0.50706E+00, 0.52710E+00, - & 0.54773E+00, 0.56916E+00, 0.59182E+00, 0.61639E+00, 0.64422E+00, - & 0.67887E+00, 0.72064E+00, 0.76853E+00, 0.81642E+00, 0.86431E+00, - & 0.91220E+00, 0.96009E+00, 0.10080E+01, 0.10559E+01, 0.11038E+01, - & 0.34300E+00, 0.34291E+00, 0.34282E+00, 0.34283E+00, 0.34452E+00, - & 0.36173E+00, 0.37862E+00, 0.39556E+00, 0.41267E+00, 0.42930E+00, - & 0.44691E+00, 0.46503E+00, 0.48355E+00, 0.50250E+00, 0.52189E+00, - & 0.54183E+00, 0.56253E+00, 0.58441E+00, 0.60813E+00, 0.63504E+00, - & 0.66863E+00, 0.70920E+00, 0.75577E+00, 0.80233E+00, 0.84890E+00, - & 0.89546E+00, 0.94203E+00, 0.98860E+00, 0.10352E+01, 0.10817E+01, - & 0.34267E+00, 0.34264E+00, 0.34261E+00, 0.34261E+00, 0.34429E+00, - & 0.36109E+00, 0.37757E+00, 0.39408E+00, 0.41075E+00, 0.42688E+00, - & 0.44401E+00, 0.46160E+00, 0.47955E+00, 0.49789E+00, 0.51664E+00, - & 0.53590E+00, 0.55587E+00, 0.57698E+00, 0.59988E+00, 0.62589E+00, - & 0.65844E+00, 0.69782E+00, 0.74308E+00, 0.78834E+00, 0.83360E+00, - & 0.87886E+00, 0.92412E+00, 0.96938E+00, 0.10146E+01, 0.10599E+01/ - - data ((f2grrl(i,j),j=1,30),i= 41, 50)/ - & 0.34233E+00, 0.34233E+00, 0.34233E+00, 0.34233E+00, 0.34400E+00, - & 0.36038E+00, 0.37645E+00, 0.39253E+00, 0.40876E+00, 0.42441E+00, - & 0.44104E+00, 0.45810E+00, 0.47549E+00, 0.49323E+00, 0.51135E+00, - & 0.52993E+00, 0.54919E+00, 0.56954E+00, 0.59163E+00, 0.61675E+00, - & 0.64827E+00, 0.68649E+00, 0.73047E+00, 0.77445E+00, 0.81843E+00, - & 0.86240E+00, 0.90638E+00, 0.95036E+00, 0.99434E+00, 0.10383E+01, - & 0.34188E+00, 0.34192E+00, 0.34197E+00, 0.34197E+00, 0.34364E+00, - & 0.35960E+00, 0.37525E+00, 0.39091E+00, 0.40669E+00, 0.42186E+00, - & 0.43800E+00, 0.45454E+00, 0.47137E+00, 0.48851E+00, 0.50600E+00, - & 0.52391E+00, 0.54247E+00, 0.56207E+00, 0.58337E+00, 0.60761E+00, - & 0.63813E+00, 0.67520E+00, 0.71792E+00, 0.76064E+00, 0.80335E+00, - & 0.84607E+00, 0.88878E+00, 0.93150E+00, 0.97422E+00, 0.10169E+01, - & 0.34136E+00, 0.34145E+00, 0.34153E+00, 0.34154E+00, 0.34319E+00, - & 0.35874E+00, 0.37398E+00, 0.38921E+00, 0.40456E+00, 0.41924E+00, - & 0.43489E+00, 0.45090E+00, 0.46718E+00, 0.48373E+00, 0.50059E+00, - & 0.51785E+00, 0.53571E+00, 0.55458E+00, 0.57509E+00, 0.59848E+00, - & 0.62800E+00, 0.66395E+00, 0.70542E+00, 0.74689E+00, 0.78837E+00, - & 0.82984E+00, 0.87131E+00, 0.91278E+00, 0.95425E+00, 0.99573E+00, - & 0.34075E+00, 0.34088E+00, 0.34102E+00, 0.34102E+00, 0.34267E+00, - & 0.35781E+00, 0.37263E+00, 0.38743E+00, 0.40234E+00, 0.41654E+00, - & 0.43170E+00, 0.44719E+00, 0.46292E+00, 0.47888E+00, 0.49513E+00, - & 0.51173E+00, 0.52891E+00, 0.54706E+00, 0.56679E+00, 0.58933E+00, - & 0.61788E+00, 0.65272E+00, 0.69297E+00, 0.73322E+00, 0.77347E+00, - & 0.81372E+00, 0.85396E+00, 0.89421E+00, 0.93446E+00, 0.97471E+00, - & 0.34008E+00, 0.34024E+00, 0.34041E+00, 0.34041E+00, 0.34205E+00, - & 0.35678E+00, 0.37118E+00, 0.38556E+00, 0.40003E+00, 0.41375E+00, - & 0.42842E+00, 0.44339E+00, 0.45857E+00, 0.47396E+00, 0.48959E+00, - & 0.50556E+00, 0.52206E+00, 0.53949E+00, 0.55846E+00, 0.58017E+00, - & 0.60776E+00, 0.64150E+00, 0.68054E+00, 0.71958E+00, 0.75862E+00, - & 0.79767E+00, 0.83671E+00, 0.87575E+00, 0.91479E+00, 0.95383E+00, - & 0.33926E+00, 0.33948E+00, 0.33971E+00, 0.33971E+00, 0.34134E+00, - & 0.35565E+00, 0.36965E+00, 0.38360E+00, 0.39763E+00, 0.41086E+00, - & 0.42505E+00, 0.43951E+00, 0.45414E+00, 0.46895E+00, 0.48398E+00, - & 0.49931E+00, 0.51515E+00, 0.53187E+00, 0.55009E+00, 0.57099E+00, - & 0.59763E+00, 0.63029E+00, 0.66815E+00, 0.70600E+00, 0.74385E+00, - & 0.78170E+00, 0.81955E+00, 0.85740E+00, 0.89525E+00, 0.93310E+00, - & 0.33837E+00, 0.33864E+00, 0.33890E+00, 0.33890E+00, 0.34053E+00, - & 0.35443E+00, 0.36801E+00, 0.38154E+00, 0.39513E+00, 0.40788E+00, - & 0.42158E+00, 0.43553E+00, 0.44962E+00, 0.46386E+00, 0.47829E+00, - & 0.49299E+00, 0.50817E+00, 0.52420E+00, 0.54168E+00, 0.56178E+00, - & 0.58748E+00, 0.61909E+00, 0.65576E+00, 0.69244E+00, 0.72911E+00, - & 0.76579E+00, 0.80246E+00, 0.83914E+00, 0.87582E+00, 0.91249E+00, - & 0.33736E+00, 0.33767E+00, 0.33799E+00, 0.33799E+00, 0.33961E+00, - & 0.35310E+00, 0.36626E+00, 0.37937E+00, 0.39252E+00, 0.40479E+00, - & 0.41801E+00, 0.43145E+00, 0.44500E+00, 0.45868E+00, 0.47251E+00, - & 0.48659E+00, 0.50112E+00, 0.51647E+00, 0.53322E+00, 0.55252E+00, - & 0.57731E+00, 0.60787E+00, 0.64338E+00, 0.67890E+00, 0.71442E+00, - & 0.74993E+00, 0.78545E+00, 0.82097E+00, 0.85649E+00, 0.89200E+00, - & 0.33623E+00, 0.33659E+00, 0.33696E+00, 0.33696E+00, 0.33858E+00, - & 0.35165E+00, 0.36440E+00, 0.37708E+00, 0.38980E+00, 0.40160E+00, - & 0.41433E+00, 0.42726E+00, 0.44028E+00, 0.45339E+00, 0.46664E+00, - & 0.48011E+00, 0.49400E+00, 0.50867E+00, 0.52471E+00, 0.54323E+00, - & 0.56711E+00, 0.59663E+00, 0.63100E+00, 0.66537E+00, 0.69974E+00, - & 0.73411E+00, 0.76849E+00, 0.80286E+00, 0.83723E+00, 0.87160E+00, - & 0.33498E+00, 0.33539E+00, 0.33580E+00, 0.33581E+00, 0.33742E+00, - & 0.35008E+00, 0.36242E+00, 0.37468E+00, 0.38696E+00, 0.39828E+00, - & 0.41053E+00, 0.42296E+00, 0.43545E+00, 0.44800E+00, 0.46067E+00, - & 0.47353E+00, 0.48679E+00, 0.50080E+00, 0.51612E+00, 0.53388E+00, - & 0.55686E+00, 0.58537E+00, 0.61861E+00, 0.65185E+00, 0.68509E+00, - & 0.71833E+00, 0.75157E+00, 0.78481E+00, 0.81805E+00, 0.85129E+00/ - - data ((f2grrl(i,j),j=1,30),i= 51, 60)/ - & 0.33360E+00, 0.33406E+00, 0.33452E+00, 0.33452E+00, 0.33613E+00, - & 0.34838E+00, 0.36031E+00, 0.37215E+00, 0.38400E+00, 0.39484E+00, - & 0.40661E+00, 0.41854E+00, 0.43050E+00, 0.44250E+00, 0.45459E+00, - & 0.46686E+00, 0.47949E+00, 0.49284E+00, 0.50747E+00, 0.52447E+00, - & 0.54657E+00, 0.57407E+00, 0.60619E+00, 0.63832E+00, 0.67044E+00, - & 0.70257E+00, 0.73469E+00, 0.76682E+00, 0.79894E+00, 0.83107E+00, - & 0.33207E+00, 0.33259E+00, 0.33310E+00, 0.33310E+00, 0.33471E+00, - & 0.34655E+00, 0.35807E+00, 0.36949E+00, 0.38090E+00, 0.39126E+00, - & 0.40256E+00, 0.41399E+00, 0.42543E+00, 0.43688E+00, 0.44840E+00, - & 0.46008E+00, 0.47209E+00, 0.48480E+00, 0.49875E+00, 0.51499E+00, - & 0.53623E+00, 0.56273E+00, 0.59376E+00, 0.62478E+00, 0.65580E+00, - & 0.68683E+00, 0.71785E+00, 0.74887E+00, 0.77990E+00, 0.81092E+00, - & 0.33041E+00, 0.33097E+00, 0.33153E+00, 0.33154E+00, 0.33314E+00, - & 0.34457E+00, 0.35568E+00, 0.36668E+00, 0.37766E+00, 0.38755E+00, - & 0.39838E+00, 0.40931E+00, 0.42022E+00, 0.43114E+00, 0.44209E+00, - & 0.45318E+00, 0.46459E+00, 0.47666E+00, 0.48993E+00, 0.50544E+00, - & 0.52583E+00, 0.55135E+00, 0.58128E+00, 0.61121E+00, 0.64114E+00, - & 0.67107E+00, 0.70101E+00, 0.73094E+00, 0.76087E+00, 0.79080E+00, - & 0.32858E+00, 0.32920E+00, 0.32981E+00, 0.32981E+00, 0.33142E+00, - & 0.34244E+00, 0.35315E+00, 0.36373E+00, 0.37428E+00, 0.38370E+00, - & 0.39405E+00, 0.40449E+00, 0.41489E+00, 0.42526E+00, 0.43566E+00, - & 0.44617E+00, 0.45698E+00, 0.46842E+00, 0.48103E+00, 0.49582E+00, - & 0.51536E+00, 0.53991E+00, 0.56876E+00, 0.59762E+00, 0.62647E+00, - & 0.65533E+00, 0.68418E+00, 0.71303E+00, 0.74189E+00, 0.77074E+00, - & 0.32662E+00, 0.32727E+00, 0.32793E+00, 0.32793E+00, 0.32953E+00, - & 0.34015E+00, 0.35045E+00, 0.36061E+00, 0.37074E+00, 0.37969E+00, - & 0.38957E+00, 0.39952E+00, 0.40941E+00, 0.41925E+00, 0.42909E+00, - & 0.43904E+00, 0.44925E+00, 0.46008E+00, 0.47203E+00, 0.48611E+00, - & 0.50482E+00, 0.52841E+00, 0.55620E+00, 0.58398E+00, 0.61177E+00, - & 0.63956E+00, 0.66735E+00, 0.69514E+00, 0.72293E+00, 0.75072E+00, - & 0.32445E+00, 0.32516E+00, 0.32588E+00, 0.32587E+00, 0.32748E+00, - & 0.33769E+00, 0.34759E+00, 0.35734E+00, 0.36704E+00, 0.37552E+00, - & 0.38494E+00, 0.39440E+00, 0.40378E+00, 0.41310E+00, 0.42239E+00, - & 0.43178E+00, 0.44141E+00, 0.45163E+00, 0.46294E+00, 0.47631E+00, - & 0.49420E+00, 0.51684E+00, 0.54358E+00, 0.57032E+00, 0.59705E+00, - & 0.62379E+00, 0.65052E+00, 0.67726E+00, 0.70400E+00, 0.73073E+00, - & 0.32211E+00, 0.32288E+00, 0.32364E+00, 0.32364E+00, 0.32524E+00, - & 0.33506E+00, 0.34456E+00, 0.35389E+00, 0.36317E+00, 0.37119E+00, - & 0.38014E+00, 0.38912E+00, 0.39800E+00, 0.40679E+00, 0.41555E+00, - & 0.42438E+00, 0.43344E+00, 0.44306E+00, 0.45373E+00, 0.46642E+00, - & 0.48349E+00, 0.50521E+00, 0.53090E+00, 0.55660E+00, 0.58229E+00, - & 0.60799E+00, 0.63369E+00, 0.65938E+00, 0.68508E+00, 0.71077E+00, - & 0.31957E+00, 0.32039E+00, 0.32122E+00, 0.32122E+00, 0.32282E+00, - & 0.33224E+00, 0.34134E+00, 0.35027E+00, 0.35912E+00, 0.36668E+00, - & 0.37518E+00, 0.38368E+00, 0.39206E+00, 0.40034E+00, 0.40856E+00, - & 0.41684E+00, 0.42534E+00, 0.43437E+00, 0.44442E+00, 0.45643E+00, - & 0.47271E+00, 0.49350E+00, 0.51817E+00, 0.54284E+00, 0.56750E+00, - & 0.59217E+00, 0.61684E+00, 0.64151E+00, 0.66617E+00, 0.69084E+00, - & 0.31684E+00, 0.31772E+00, 0.31860E+00, 0.31860E+00, 0.32020E+00, - & 0.32922E+00, 0.33794E+00, 0.34646E+00, 0.35489E+00, 0.36200E+00, - & 0.37004E+00, 0.37806E+00, 0.38595E+00, 0.39372E+00, 0.40143E+00, - & 0.40917E+00, 0.41711E+00, 0.42556E+00, 0.43500E+00, 0.44634E+00, - & 0.46183E+00, 0.48172E+00, 0.50537E+00, 0.52902E+00, 0.55267E+00, - & 0.57632E+00, 0.59997E+00, 0.62362E+00, 0.64727E+00, 0.67092E+00, - & 0.31394E+00, 0.31486E+00, 0.31578E+00, 0.31577E+00, 0.31738E+00, - & 0.32601E+00, 0.33434E+00, 0.34246E+00, 0.35047E+00, 0.35713E+00, - & 0.36472E+00, 0.37228E+00, 0.37968E+00, 0.38695E+00, 0.39413E+00, - & 0.40135E+00, 0.40874E+00, 0.41662E+00, 0.42546E+00, 0.43615E+00, - & 0.45087E+00, 0.46986E+00, 0.49250E+00, 0.51515E+00, 0.53780E+00, - & 0.56044E+00, 0.58309E+00, 0.60574E+00, 0.62839E+00, 0.65103E+00/ - - data ((f2grrl(i,j),j=1,30),i= 61, 70)/ - & 0.31079E+00, 0.31176E+00, 0.31274E+00, 0.31274E+00, 0.31434E+00, - & 0.32260E+00, 0.33053E+00, 0.33826E+00, 0.34586E+00, 0.35208E+00, - & 0.35922E+00, 0.36631E+00, 0.37323E+00, 0.38000E+00, 0.38668E+00, - & 0.39337E+00, 0.40023E+00, 0.40756E+00, 0.41581E+00, 0.42585E+00, - & 0.43982E+00, 0.45792E+00, 0.47958E+00, 0.50123E+00, 0.52289E+00, - & 0.54454E+00, 0.56620E+00, 0.58786E+00, 0.60951E+00, 0.63117E+00, - & 0.30745E+00, 0.30846E+00, 0.30949E+00, 0.30948E+00, 0.31109E+00, - & 0.31896E+00, 0.32652E+00, 0.33386E+00, 0.34106E+00, 0.34683E+00, - & 0.35353E+00, 0.36017E+00, 0.36661E+00, 0.37289E+00, 0.37907E+00, - & 0.38526E+00, 0.39159E+00, 0.39837E+00, 0.40605E+00, 0.41546E+00, - & 0.42867E+00, 0.44591E+00, 0.46659E+00, 0.48727E+00, 0.50795E+00, - & 0.52863E+00, 0.54931E+00, 0.56999E+00, 0.59067E+00, 0.61135E+00, - & 0.30384E+00, 0.30492E+00, 0.30600E+00, 0.30600E+00, 0.30761E+00, - & 0.31511E+00, 0.32230E+00, 0.32925E+00, 0.33604E+00, 0.34139E+00, - & 0.34765E+00, 0.35383E+00, 0.35981E+00, 0.36562E+00, 0.37131E+00, - & 0.37698E+00, 0.38280E+00, 0.38905E+00, 0.39617E+00, 0.40496E+00, - & 0.41744E+00, 0.43382E+00, 0.45354E+00, 0.47326E+00, 0.49298E+00, - & 0.51270E+00, 0.53242E+00, 0.55214E+00, 0.57185E+00, 0.59157E+00, - & 0.30003E+00, 0.30116E+00, 0.30229E+00, 0.30228E+00, 0.30389E+00, - & 0.31104E+00, 0.31786E+00, 0.32442E+00, 0.33083E+00, 0.33575E+00, - & 0.34158E+00, 0.34732E+00, 0.35283E+00, 0.35817E+00, 0.36338E+00, - & 0.36857E+00, 0.37388E+00, 0.37961E+00, 0.38618E+00, 0.39436E+00, - & 0.40613E+00, 0.42167E+00, 0.44044E+00, 0.45921E+00, 0.47799E+00, - & 0.49676E+00, 0.51553E+00, 0.53430E+00, 0.55308E+00, 0.57185E+00, - & 0.29601E+00, 0.29717E+00, 0.29833E+00, 0.29833E+00, 0.29994E+00, - & 0.30674E+00, 0.31320E+00, 0.31939E+00, 0.32540E+00, 0.32991E+00, - & 0.33532E+00, 0.34061E+00, 0.34568E+00, 0.35055E+00, 0.35529E+00, - & 0.36000E+00, 0.36483E+00, 0.37005E+00, 0.37608E+00, 0.38368E+00, - & 0.39474E+00, 0.40946E+00, 0.42730E+00, 0.44514E+00, 0.46298E+00, - & 0.48082E+00, 0.49866E+00, 0.51650E+00, 0.53434E+00, 0.55218E+00, - & 0.29170E+00, 0.29292E+00, 0.29414E+00, 0.29413E+00, 0.29575E+00, - & 0.30220E+00, 0.30832E+00, 0.31414E+00, 0.31976E+00, 0.32386E+00, - & 0.32886E+00, 0.33372E+00, 0.33835E+00, 0.34277E+00, 0.34705E+00, - & 0.35129E+00, 0.35564E+00, 0.36037E+00, 0.36588E+00, 0.37291E+00, - & 0.38329E+00, 0.39719E+00, 0.41412E+00, 0.43104E+00, 0.44797E+00, - & 0.46489E+00, 0.48182E+00, 0.49875E+00, 0.51567E+00, 0.53260E+00, - & 0.28714E+00, 0.28842E+00, 0.28970E+00, 0.28969E+00, 0.29132E+00, - & 0.29744E+00, 0.30321E+00, 0.30867E+00, 0.31392E+00, 0.31762E+00, - & 0.32221E+00, 0.32665E+00, 0.33084E+00, 0.33482E+00, 0.33865E+00, - & 0.34244E+00, 0.34633E+00, 0.35058E+00, 0.35559E+00, 0.36206E+00, - & 0.37177E+00, 0.38488E+00, 0.40091E+00, 0.41694E+00, 0.43297E+00, - & 0.44900E+00, 0.46503E+00, 0.48106E+00, 0.49710E+00, 0.51313E+00, - & 0.28238E+00, 0.28370E+00, 0.28502E+00, 0.28501E+00, 0.28664E+00, - & 0.29244E+00, 0.29788E+00, 0.30298E+00, 0.30786E+00, 0.31118E+00, - & 0.31537E+00, 0.31940E+00, 0.32316E+00, 0.32671E+00, 0.33011E+00, - & 0.33347E+00, 0.33691E+00, 0.34070E+00, 0.34521E+00, 0.35114E+00, - & 0.36020E+00, 0.37254E+00, 0.38769E+00, 0.40285E+00, 0.41800E+00, - & 0.43315E+00, 0.44831E+00, 0.46346E+00, 0.47861E+00, 0.49377E+00, - & 0.27738E+00, 0.27874E+00, 0.28010E+00, 0.28009E+00, 0.28172E+00, - & 0.28721E+00, 0.29233E+00, 0.29709E+00, 0.30161E+00, 0.30455E+00, - & 0.30834E+00, 0.31197E+00, 0.31533E+00, 0.31846E+00, 0.32144E+00, - & 0.32437E+00, 0.32738E+00, 0.33072E+00, 0.33476E+00, 0.34017E+00, - & 0.34860E+00, 0.36018E+00, 0.37448E+00, 0.38878E+00, 0.40308E+00, - & 0.41737E+00, 0.43167E+00, 0.44597E+00, 0.46027E+00, 0.47456E+00, - & 0.27210E+00, 0.27352E+00, 0.27494E+00, 0.27493E+00, 0.27657E+00, - & 0.28176E+00, 0.28656E+00, 0.29098E+00, 0.29515E+00, 0.29773E+00, - & 0.30114E+00, 0.30437E+00, 0.30733E+00, 0.31006E+00, 0.31263E+00, - & 0.31515E+00, 0.31775E+00, 0.32066E+00, 0.32425E+00, 0.32916E+00, - & 0.33697E+00, 0.34782E+00, 0.36129E+00, 0.37475E+00, 0.38821E+00, - & 0.40167E+00, 0.41513E+00, 0.42859E+00, 0.44205E+00, 0.45551E+00/ - - data ((f2grrl(i,j),j=1,30),i= 71, 80)/ - & 0.26663E+00, 0.26809E+00, 0.26954E+00, 0.26953E+00, 0.27118E+00, - & 0.27609E+00, 0.28059E+00, 0.28468E+00, 0.28850E+00, 0.29073E+00, - & 0.29377E+00, 0.29662E+00, 0.29919E+00, 0.30153E+00, 0.30371E+00, - & 0.30584E+00, 0.30803E+00, 0.31054E+00, 0.31369E+00, 0.31812E+00, - & 0.32534E+00, 0.33548E+00, 0.34814E+00, 0.36079E+00, 0.37344E+00, - & 0.38609E+00, 0.39874E+00, 0.41139E+00, 0.42404E+00, 0.43669E+00, - & 0.26092E+00, 0.26243E+00, 0.26393E+00, 0.26392E+00, 0.26558E+00, - & 0.27021E+00, 0.27442E+00, 0.27820E+00, 0.28168E+00, 0.28356E+00, - & 0.28624E+00, 0.28872E+00, 0.29092E+00, 0.29288E+00, 0.29469E+00, - & 0.29644E+00, 0.29825E+00, 0.30037E+00, 0.30311E+00, 0.30707E+00, - & 0.31372E+00, 0.32318E+00, 0.33504E+00, 0.34691E+00, 0.35877E+00, - & 0.37063E+00, 0.38249E+00, 0.39435E+00, 0.40622E+00, 0.41808E+00, - & 0.25502E+00, 0.25657E+00, 0.25811E+00, 0.25810E+00, 0.25976E+00, - & 0.26414E+00, 0.26807E+00, 0.27153E+00, 0.27469E+00, 0.27623E+00, - & 0.27856E+00, 0.28068E+00, 0.28252E+00, 0.28413E+00, 0.28557E+00, - & 0.28697E+00, 0.28842E+00, 0.29016E+00, 0.29251E+00, 0.29603E+00, - & 0.30214E+00, 0.31093E+00, 0.32204E+00, 0.33314E+00, 0.34424E+00, - & 0.35534E+00, 0.36644E+00, 0.37754E+00, 0.38864E+00, 0.39974E+00, - & 0.24891E+00, 0.25051E+00, 0.25211E+00, 0.25209E+00, 0.25376E+00, - & 0.25789E+00, 0.26155E+00, 0.26470E+00, 0.26754E+00, 0.26877E+00, - & 0.27076E+00, 0.27253E+00, 0.27402E+00, 0.27529E+00, 0.27639E+00, - & 0.27744E+00, 0.27856E+00, 0.27995E+00, 0.28192E+00, 0.28503E+00, - & 0.29061E+00, 0.29877E+00, 0.30913E+00, 0.31950E+00, 0.32986E+00, - & 0.34022E+00, 0.35059E+00, 0.36095E+00, 0.37131E+00, 0.38168E+00, - & 0.24268E+00, 0.24431E+00, 0.24593E+00, 0.24592E+00, 0.24759E+00, - & 0.25149E+00, 0.25488E+00, 0.25774E+00, 0.26026E+00, 0.26118E+00, - & 0.26284E+00, 0.26428E+00, 0.26544E+00, 0.26637E+00, 0.26716E+00, - & 0.26789E+00, 0.26868E+00, 0.26974E+00, 0.27136E+00, 0.27407E+00, - & 0.27915E+00, 0.28670E+00, 0.29636E+00, 0.30601E+00, 0.31567E+00, - & 0.32533E+00, 0.33498E+00, 0.34464E+00, 0.35430E+00, 0.36395E+00, - & 0.23632E+00, 0.23797E+00, 0.23962E+00, 0.23961E+00, 0.24128E+00, - & 0.24495E+00, 0.24808E+00, 0.25065E+00, 0.25286E+00, 0.25349E+00, - & 0.25483E+00, 0.25595E+00, 0.25679E+00, 0.25742E+00, 0.25789E+00, - & 0.25832E+00, 0.25881E+00, 0.25956E+00, 0.26085E+00, 0.26319E+00, - & 0.26780E+00, 0.27476E+00, 0.28374E+00, 0.29271E+00, 0.30169E+00, - & 0.31066E+00, 0.31964E+00, 0.32862E+00, 0.33759E+00, 0.34657E+00, - & 0.22984E+00, 0.23152E+00, 0.23319E+00, 0.23318E+00, 0.23486E+00, - & 0.23831E+00, 0.24118E+00, 0.24346E+00, 0.24537E+00, 0.24572E+00, - & 0.24675E+00, 0.24756E+00, 0.24810E+00, 0.24843E+00, 0.24861E+00, - & 0.24876E+00, 0.24897E+00, 0.24943E+00, 0.25042E+00, 0.25241E+00, - & 0.25656E+00, 0.26297E+00, 0.27129E+00, 0.27962E+00, 0.28794E+00, - & 0.29627E+00, 0.30459E+00, 0.31292E+00, 0.32124E+00, 0.32957E+00, - & 0.22330E+00, 0.22500E+00, 0.22670E+00, 0.22669E+00, 0.22836E+00, - & 0.23159E+00, 0.23421E+00, 0.23620E+00, 0.23782E+00, 0.23789E+00, - & 0.23862E+00, 0.23914E+00, 0.23939E+00, 0.23943E+00, 0.23935E+00, - & 0.23923E+00, 0.23918E+00, 0.23937E+00, 0.24007E+00, 0.24173E+00, - & 0.24547E+00, 0.25134E+00, 0.25904E+00, 0.26674E+00, 0.27445E+00, - & 0.28215E+00, 0.28985E+00, 0.29755E+00, 0.30526E+00, 0.31296E+00, - & 0.21672E+00, 0.21844E+00, 0.22017E+00, 0.22015E+00, 0.22183E+00, - & 0.22484E+00, 0.22719E+00, 0.22890E+00, 0.23022E+00, 0.23003E+00, - & 0.23047E+00, 0.23070E+00, 0.23067E+00, 0.23045E+00, 0.23011E+00, - & 0.22975E+00, 0.22946E+00, 0.22940E+00, 0.22984E+00, 0.23120E+00, - & 0.23453E+00, 0.23990E+00, 0.24701E+00, 0.25412E+00, 0.26122E+00, - & 0.26833E+00, 0.27544E+00, 0.28255E+00, 0.28966E+00, 0.29676E+00, - & 0.21017E+00, 0.21191E+00, 0.21365E+00, 0.21363E+00, 0.21530E+00, - & 0.21808E+00, 0.22017E+00, 0.22159E+00, 0.22261E+00, 0.22216E+00, - & 0.22232E+00, 0.22227E+00, 0.22198E+00, 0.22151E+00, 0.22094E+00, - & 0.22034E+00, 0.21982E+00, 0.21955E+00, 0.21974E+00, 0.22081E+00, - & 0.22377E+00, 0.22866E+00, 0.23520E+00, 0.24174E+00, 0.24828E+00, - & 0.25482E+00, 0.26136E+00, 0.26791E+00, 0.27445E+00, 0.28099E+00/ - - data ((f2grrl(i,j),j=1,30),i= 81, 90)/ - & 0.20368E+00, 0.20544E+00, 0.20718E+00, 0.20717E+00, 0.20882E+00, - & 0.21135E+00, 0.21317E+00, 0.21429E+00, 0.21502E+00, 0.21432E+00, - & 0.21420E+00, 0.21388E+00, 0.21334E+00, 0.21263E+00, 0.21183E+00, - & 0.21103E+00, 0.21030E+00, 0.20982E+00, 0.20978E+00, 0.21059E+00, - & 0.21320E+00, 0.21763E+00, 0.22364E+00, 0.22964E+00, 0.23564E+00, - & 0.24164E+00, 0.24764E+00, 0.25364E+00, 0.25964E+00, 0.26564E+00, - & 0.19732E+00, 0.19908E+00, 0.20083E+00, 0.20081E+00, 0.20243E+00, - & 0.20471E+00, 0.20623E+00, 0.20705E+00, 0.20747E+00, 0.20652E+00, - & 0.20613E+00, 0.20555E+00, 0.20476E+00, 0.20383E+00, 0.20282E+00, - & 0.20182E+00, 0.20090E+00, 0.20022E+00, 0.19998E+00, 0.20055E+00, - & 0.20282E+00, 0.20683E+00, 0.21232E+00, 0.21781E+00, 0.22330E+00, - & 0.22878E+00, 0.23427E+00, 0.23976E+00, 0.24525E+00, 0.25074E+00, - & 0.19117E+00, 0.19290E+00, 0.19463E+00, 0.19462E+00, 0.19620E+00, - & 0.19818E+00, 0.19939E+00, 0.19988E+00, 0.19999E+00, 0.19879E+00, - & 0.19813E+00, 0.19729E+00, 0.19627E+00, 0.19513E+00, 0.19392E+00, - & 0.19273E+00, 0.19164E+00, 0.19078E+00, 0.19035E+00, 0.19069E+00, - & 0.19265E+00, 0.19625E+00, 0.20125E+00, 0.20625E+00, 0.21124E+00, - & 0.21624E+00, 0.22124E+00, 0.22624E+00, 0.23124E+00, 0.23624E+00, - & 0.18525E+00, 0.18694E+00, 0.18864E+00, 0.18862E+00, 0.19015E+00, - & 0.19180E+00, 0.19267E+00, 0.19283E+00, 0.19260E+00, 0.19116E+00, - & 0.19022E+00, 0.18913E+00, 0.18788E+00, 0.18653E+00, 0.18514E+00, - & 0.18377E+00, 0.18251E+00, 0.18149E+00, 0.18088E+00, 0.18101E+00, - & 0.18267E+00, 0.18589E+00, 0.19042E+00, 0.19495E+00, 0.19948E+00, - & 0.20401E+00, 0.20854E+00, 0.21307E+00, 0.21760E+00, 0.22213E+00, - & 0.17958E+00, 0.18124E+00, 0.18289E+00, 0.18288E+00, 0.18434E+00, - & 0.18562E+00, 0.18610E+00, 0.18590E+00, 0.18533E+00, 0.18364E+00, - & 0.18242E+00, 0.18108E+00, 0.17960E+00, 0.17804E+00, 0.17647E+00, - & 0.17494E+00, 0.17353E+00, 0.17235E+00, 0.17157E+00, 0.17150E+00, - & 0.17288E+00, 0.17572E+00, 0.17981E+00, 0.18389E+00, 0.18797E+00, - & 0.19205E+00, 0.19613E+00, 0.20021E+00, 0.20430E+00, 0.20838E+00, - & 0.17425E+00, 0.17585E+00, 0.17744E+00, 0.17743E+00, 0.17879E+00, - & 0.17964E+00, 0.17970E+00, 0.17911E+00, 0.17818E+00, 0.17623E+00, - & 0.17473E+00, 0.17313E+00, 0.17143E+00, 0.16967E+00, 0.16792E+00, - & 0.16623E+00, 0.16467E+00, 0.16334E+00, 0.16241E+00, 0.16215E+00, - & 0.16326E+00, 0.16575E+00, 0.16939E+00, 0.17304E+00, 0.17669E+00, - & 0.18034E+00, 0.18399E+00, 0.18763E+00, 0.19128E+00, 0.19493E+00, - & 0.16928E+00, 0.17079E+00, 0.17230E+00, 0.17229E+00, 0.17354E+00, - & 0.17389E+00, 0.17349E+00, 0.17247E+00, 0.17116E+00, 0.16895E+00, - & 0.16716E+00, 0.16530E+00, 0.16336E+00, 0.16141E+00, 0.15948E+00, - & 0.15763E+00, 0.15592E+00, 0.15445E+00, 0.15336E+00, 0.15292E+00, - & 0.15378E+00, 0.15592E+00, 0.15915E+00, 0.16238E+00, 0.16560E+00, - & 0.16883E+00, 0.17206E+00, 0.17529E+00, 0.17852E+00, 0.18175E+00, - & 0.16469E+00, 0.16609E+00, 0.16749E+00, 0.16748E+00, 0.16858E+00, - & 0.16836E+00, 0.16744E+00, 0.16597E+00, 0.16424E+00, 0.16177E+00, - & 0.15967E+00, 0.15754E+00, 0.15538E+00, 0.15322E+00, 0.15112E+00, - & 0.14910E+00, 0.14725E+00, 0.14564E+00, 0.14440E+00, 0.14379E+00, - & 0.14439E+00, 0.14619E+00, 0.14902E+00, 0.15184E+00, 0.15466E+00, - & 0.15748E+00, 0.16030E+00, 0.16312E+00, 0.16594E+00, 0.16876E+00, - & 0.16046E+00, 0.16172E+00, 0.16299E+00, 0.16298E+00, 0.16390E+00, - & 0.16303E+00, 0.16154E+00, 0.15958E+00, 0.15741E+00, 0.15466E+00, - & 0.15225E+00, 0.14984E+00, 0.14743E+00, 0.14507E+00, 0.14278E+00, - & 0.14062E+00, 0.13861E+00, 0.13686E+00, 0.13548E+00, 0.13469E+00, - & 0.13505E+00, 0.13652E+00, 0.13895E+00, 0.14137E+00, 0.14379E+00, - & 0.14621E+00, 0.14863E+00, 0.15105E+00, 0.15347E+00, 0.15589E+00, - & 0.15658E+00, 0.15767E+00, 0.15875E+00, 0.15874E+00, 0.15945E+00, - & 0.15786E+00, 0.15573E+00, 0.15324E+00, 0.15060E+00, 0.14757E+00, - & 0.14483E+00, 0.14213E+00, 0.13948E+00, 0.13690E+00, 0.13443E+00, - & 0.13210E+00, 0.12995E+00, 0.12805E+00, 0.12653E+00, 0.12557E+00, - & 0.12568E+00, 0.12684E+00, 0.12887E+00, 0.13090E+00, 0.13292E+00, - & 0.13495E+00, 0.13698E+00, 0.13901E+00, 0.14104E+00, 0.14307E+00/ - - data ((f2grrl(i,j),j=1,30),i= 91,100)/ - & 0.15297E+00, 0.15384E+00, 0.15471E+00, 0.15470E+00, 0.15515E+00, - & 0.15274E+00, 0.14992E+00, 0.14686E+00, 0.14373E+00, 0.14042E+00, - & 0.13733E+00, 0.13433E+00, 0.13142E+00, 0.12863E+00, 0.12597E+00, - & 0.12347E+00, 0.12117E+00, 0.11913E+00, 0.11746E+00, 0.11633E+00, - & 0.11621E+00, 0.11704E+00, 0.11869E+00, 0.12033E+00, 0.12197E+00, - & 0.12361E+00, 0.12526E+00, 0.12690E+00, 0.12854E+00, 0.13018E+00, - & 0.14955E+00, 0.15014E+00, 0.15074E+00, 0.15073E+00, 0.15088E+00, - & 0.14757E+00, 0.14400E+00, 0.14033E+00, 0.13668E+00, 0.13308E+00, - & 0.12964E+00, 0.12633E+00, 0.12315E+00, 0.12013E+00, 0.11729E+00, - & 0.11462E+00, 0.11216E+00, 0.10999E+00, 0.10817E+00, 0.10687E+00, - & 0.10652E+00, 0.10704E+00, 0.10830E+00, 0.10956E+00, 0.11082E+00, - & 0.11208E+00, 0.11334E+00, 0.11460E+00, 0.11586E+00, 0.11712E+00, - & 0.14611E+00, 0.14638E+00, 0.14665E+00, 0.14665E+00, 0.14644E+00, - & 0.14214E+00, 0.13777E+00, 0.13347E+00, 0.12927E+00, 0.12539E+00, - & 0.12159E+00, 0.11795E+00, 0.11451E+00, 0.11127E+00, 0.10823E+00, - & 0.10540E+00, 0.10280E+00, 0.10049E+00, 0.98531E-01, 0.97074E-01, - & 0.96492E-01, 0.96707E-01, 0.97579E-01, 0.98451E-01, 0.99323E-01, - & 0.10020E+00, 0.10107E+00, 0.10194E+00, 0.10281E+00, 0.10368E+00, - & 0.14239E+00, 0.14229E+00, 0.14219E+00, 0.14219E+00, 0.14157E+00, - & 0.13622E+00, 0.13099E+00, 0.12602E+00, 0.12125E+00, 0.11711E+00, - & 0.11294E+00, 0.10899E+00, 0.10529E+00, 0.10183E+00, 0.98612E-01, - & 0.95624E-01, 0.92893E-01, 0.90460E-01, 0.88377E-01, 0.86773E-01, - & 0.85975E-01, 0.85921E-01, 0.86487E-01, 0.87053E-01, 0.87619E-01, - & 0.88185E-01, 0.88751E-01, 0.89317E-01, 0.89883E-01, 0.90448E-01, - & 0.13812E+00, 0.13756E+00, 0.13701E+00, 0.13702E+00, 0.13592E+00, - & 0.12943E+00, 0.12331E+00, 0.11766E+00, 0.11231E+00, 0.10793E+00, - & 0.10340E+00, 0.99147E-01, 0.95202E-01, 0.91552E-01, 0.88179E-01, - & 0.85063E-01, 0.82227E-01, 0.79698E-01, 0.77515E-01, 0.75787E-01, - & 0.74794E-01, 0.74496E-01, 0.74789E-01, 0.75083E-01, 0.75376E-01, - & 0.75670E-01, 0.75963E-01, 0.76257E-01, 0.76550E-01, 0.76844E-01, - & 0.13274E+00, 0.13167E+00, 0.13059E+00, 0.13061E+00, 0.12898E+00, - & 0.12127E+00, 0.11422E+00, 0.10788E+00, 0.10197E+00, 0.97391E-01, - & 0.92537E-01, 0.88020E-01, 0.83878E-01, 0.80084E-01, 0.76608E-01, - & 0.73418E-01, 0.70528E-01, 0.67952E-01, 0.65717E-01, 0.63907E-01, - & 0.62754E-01, 0.62218E-01, 0.62209E-01, 0.62200E-01, 0.62191E-01, - & 0.62182E-01, 0.62173E-01, 0.62164E-01, 0.62155E-01, 0.62146E-01, - & 0.12548E+00, 0.12381E+00, 0.12214E+00, 0.12216E+00, 0.11993E+00, - & 0.11094E+00, 0.10296E+00, 0.95963E-01, 0.89548E-01, 0.84836E-01, - & 0.79738E-01, 0.75046E-01, 0.70801E-01, 0.66960E-01, 0.63478E-01, - & 0.60309E-01, 0.57457E-01, 0.54923E-01, 0.52717E-01, 0.50899E-01, - & 0.49654E-01, 0.48914E-01, 0.48591E-01, 0.48268E-01, 0.47946E-01, - & 0.47623E-01, 0.47301E-01, 0.46978E-01, 0.46655E-01, 0.46333E-01, - & 0.11481E+00, 0.11249E+00, 0.11018E+00, 0.11020E+00, 0.10732E+00, - & 0.97022E-01, 0.88172E-01, 0.80651E-01, 0.73884E-01, 0.69178E-01, - & 0.64017E-01, 0.59343E-01, 0.55190E-01, 0.51492E-01, 0.48189E-01, - & 0.45218E-01, 0.42573E-01, 0.40239E-01, 0.38207E-01, 0.36511E-01, - & 0.35279E-01, 0.34424E-01, 0.33873E-01, 0.33322E-01, 0.32771E-01, - & 0.32220E-01, 0.31668E-01, 0.31117E-01, 0.30566E-01, 0.30015E-01, - & 0.96914E-01, 0.94003E-01, 0.91094E-01, 0.91125E-01, 0.87618E-01, - & 0.76152E-01, 0.66755E-01, 0.59138E-01, 0.52482E-01, 0.48112E-01, - & 0.43356E-01, 0.39169E-01, 0.35554E-01, 0.32421E-01, 0.29691E-01, - & 0.27285E-01, 0.25185E-01, 0.23360E-01, 0.21783E-01, 0.20460E-01, - & 0.19453E-01, 0.18680E-01, 0.18089E-01, 0.17498E-01, 0.16908E-01, - & 0.16317E-01, 0.15726E-01, 0.15135E-01, 0.14544E-01, 0.13953E-01, - & 0.13568E-01, 0.13137E-01, 0.12706E-01, 0.12710E-01, 0.12193E-01, - & 0.10518E-01, 0.91539E-02, 0.80561E-02, 0.71013E-02, 0.64799E-02, - & 0.58046E-02, 0.52131E-02, 0.47048E-02, 0.42665E-02, 0.38863E-02, - & 0.35525E-02, 0.32623E-02, 0.30108E-02, 0.27939E-02, 0.26119E-02, - & 0.24722E-02, 0.23631E-02, 0.22778E-02, 0.21925E-02, 0.21071E-02, - & 0.20218E-02, 0.19364E-02, 0.18511E-02, 0.17658E-02, 0.16804E-02/ - - data ((flgrrl(i,j),j=1,30),i= 1, 10)/ - & 0.47804E-01, 0.44494E-01, 0.41187E-01, 0.41220E-01, 0.39702E-01, - & 0.51148E-01, 0.64404E-01, 0.78495E-01, 0.92522E-01, 0.11435E+00, - & 0.12851E+00, 0.14044E+00, 0.15083E+00, 0.15954E+00, 0.16649E+00, - & 0.17165E+00, 0.17484E+00, 0.17605E+00, 0.17548E+00, 0.17336E+00, - & 0.17013E+00, 0.16664E+00, 0.16309E+00, 0.15955E+00, 0.15600E+00, - & 0.15246E+00, 0.14891E+00, 0.14537E+00, 0.14182E+00, 0.13828E+00, - & 0.47855E-01, 0.44544E-01, 0.41235E-01, 0.41268E-01, 0.39727E-01, - & 0.50917E-01, 0.63783E-01, 0.77363E-01, 0.90828E-01, 0.11188E+00, - & 0.12538E+00, 0.13671E+00, 0.14657E+00, 0.15483E+00, 0.16142E+00, - & 0.16633E+00, 0.16937E+00, 0.17053E+00, 0.17002E+00, 0.16804E+00, - & 0.16502E+00, 0.16175E+00, 0.15845E+00, 0.15515E+00, 0.15184E+00, - & 0.14854E+00, 0.14523E+00, 0.14193E+00, 0.13862E+00, 0.13532E+00, - & 0.47911E-01, 0.44596E-01, 0.41284E-01, 0.41317E-01, 0.39753E-01, - & 0.50690E-01, 0.63172E-01, 0.76255E-01, 0.89174E-01, 0.10947E+00, - & 0.12234E+00, 0.13310E+00, 0.14245E+00, 0.15028E+00, 0.15653E+00, - & 0.16118E+00, 0.16408E+00, 0.16521E+00, 0.16474E+00, 0.16290E+00, - & 0.16006E+00, 0.15702E+00, 0.15394E+00, 0.15087E+00, 0.14780E+00, - & 0.14473E+00, 0.14165E+00, 0.13858E+00, 0.13551E+00, 0.13244E+00, - & 0.47971E-01, 0.44651E-01, 0.41334E-01, 0.41367E-01, 0.39780E-01, - & 0.50465E-01, 0.62571E-01, 0.75169E-01, 0.87560E-01, 0.10713E+00, - & 0.11939E+00, 0.12960E+00, 0.13845E+00, 0.14587E+00, 0.15180E+00, - & 0.15622E+00, 0.15897E+00, 0.16006E+00, 0.15964E+00, 0.15791E+00, - & 0.15526E+00, 0.15242E+00, 0.14957E+00, 0.14671E+00, 0.14385E+00, - & 0.14100E+00, 0.13814E+00, 0.13528E+00, 0.13243E+00, 0.12957E+00, - & 0.48030E-01, 0.44706E-01, 0.41385E-01, 0.41418E-01, 0.39809E-01, - & 0.50244E-01, 0.61980E-01, 0.74107E-01, 0.85984E-01, 0.10485E+00, - & 0.11652E+00, 0.12621E+00, 0.13459E+00, 0.14162E+00, 0.14723E+00, - & 0.15142E+00, 0.15404E+00, 0.15508E+00, 0.15470E+00, 0.15309E+00, - & 0.15062E+00, 0.14797E+00, 0.14532E+00, 0.14267E+00, 0.14001E+00, - & 0.13736E+00, 0.13471E+00, 0.13206E+00, 0.12941E+00, 0.12675E+00, - & 0.48092E-01, 0.44763E-01, 0.41437E-01, 0.41470E-01, 0.39838E-01, - & 0.50026E-01, 0.61400E-01, 0.73066E-01, 0.84446E-01, 0.10262E+00, - & 0.11374E+00, 0.12292E+00, 0.13085E+00, 0.13750E+00, 0.14281E+00, - & 0.14678E+00, 0.14927E+00, 0.15027E+00, 0.14993E+00, 0.14843E+00, - & 0.14611E+00, 0.14365E+00, 0.14119E+00, 0.13873E+00, 0.13627E+00, - & 0.13381E+00, 0.13135E+00, 0.12889E+00, 0.12643E+00, 0.12397E+00, - & 0.48153E-01, 0.44821E-01, 0.41491E-01, 0.41524E-01, 0.39869E-01, - & 0.49812E-01, 0.60829E-01, 0.72048E-01, 0.82944E-01, 0.10046E+00, - & 0.11104E+00, 0.11973E+00, 0.12723E+00, 0.13352E+00, 0.13854E+00, - & 0.14230E+00, 0.14467E+00, 0.14563E+00, 0.14532E+00, 0.14391E+00, - & 0.14175E+00, 0.13946E+00, 0.13718E+00, 0.13490E+00, 0.13263E+00, - & 0.13035E+00, 0.12807E+00, 0.12579E+00, 0.12351E+00, 0.12124E+00, - & 0.48218E-01, 0.44880E-01, 0.41545E-01, 0.41579E-01, 0.39901E-01, - & 0.49601E-01, 0.60268E-01, 0.71051E-01, 0.81479E-01, 0.98359E-01, - & 0.10842E+00, 0.11664E+00, 0.12373E+00, 0.12967E+00, 0.13442E+00, - & 0.13797E+00, 0.14022E+00, 0.14113E+00, 0.14085E+00, 0.13954E+00, - & 0.13753E+00, 0.13539E+00, 0.13329E+00, 0.13118E+00, 0.12908E+00, - & 0.12697E+00, 0.12486E+00, 0.12276E+00, 0.12065E+00, 0.11855E+00, - & 0.48282E-01, 0.44940E-01, 0.41601E-01, 0.41635E-01, 0.39934E-01, - & 0.49393E-01, 0.59716E-01, 0.70075E-01, 0.80049E-01, 0.96312E-01, - & 0.10587E+00, 0.11364E+00, 0.12034E+00, 0.12594E+00, 0.13043E+00, - & 0.13379E+00, 0.13592E+00, 0.13679E+00, 0.13654E+00, 0.13531E+00, - & 0.13343E+00, 0.13145E+00, 0.12951E+00, 0.12756E+00, 0.12562E+00, - & 0.12367E+00, 0.12173E+00, 0.11979E+00, 0.11784E+00, 0.11590E+00, - & 0.48349E-01, 0.45002E-01, 0.41658E-01, 0.41692E-01, 0.39968E-01, - & 0.49188E-01, 0.59174E-01, 0.69119E-01, 0.78653E-01, 0.94318E-01, - & 0.10339E+00, 0.11074E+00, 0.11706E+00, 0.12234E+00, 0.12657E+00, - & 0.12975E+00, 0.13176E+00, 0.13259E+00, 0.13236E+00, 0.13122E+00, - & 0.12946E+00, 0.12763E+00, 0.12583E+00, 0.12404E+00, 0.12225E+00, - & 0.12046E+00, 0.11866E+00, 0.11687E+00, 0.11508E+00, 0.11329E+00/ - - data ((flgrrl(i,j),j=1,30),i= 11, 20)/ - & 0.48415E-01, 0.45064E-01, 0.41716E-01, 0.41750E-01, 0.40004E-01, - & 0.48987E-01, 0.58642E-01, 0.68183E-01, 0.77291E-01, 0.92378E-01, - & 0.10099E+00, 0.10792E+00, 0.11388E+00, 0.11886E+00, 0.12285E+00, - & 0.12584E+00, 0.12774E+00, 0.12853E+00, 0.12832E+00, 0.12725E+00, - & 0.12561E+00, 0.12391E+00, 0.12227E+00, 0.12062E+00, 0.11897E+00, - & 0.11732E+00, 0.11567E+00, 0.11403E+00, 0.11238E+00, 0.11073E+00, - & 0.48486E-01, 0.45129E-01, 0.41776E-01, 0.41809E-01, 0.40040E-01, - & 0.48789E-01, 0.58118E-01, 0.67267E-01, 0.75961E-01, 0.90489E-01, - & 0.98656E-01, 0.10519E+00, 0.11080E+00, 0.11549E+00, 0.11924E+00, - & 0.12207E+00, 0.12386E+00, 0.12461E+00, 0.12441E+00, 0.12341E+00, - & 0.12189E+00, 0.12031E+00, 0.11880E+00, 0.11728E+00, 0.11577E+00, - & 0.11425E+00, 0.11274E+00, 0.11123E+00, 0.10971E+00, 0.10820E+00, - & 0.48554E-01, 0.45194E-01, 0.41836E-01, 0.41870E-01, 0.40078E-01, - & 0.48594E-01, 0.57603E-01, 0.66371E-01, 0.74663E-01, 0.88651E-01, - & 0.96389E-01, 0.10255E+00, 0.10782E+00, 0.11223E+00, 0.11576E+00, - & 0.11842E+00, 0.12010E+00, 0.12081E+00, 0.12063E+00, 0.11970E+00, - & 0.11827E+00, 0.11682E+00, 0.11543E+00, 0.11404E+00, 0.11265E+00, - & 0.11126E+00, 0.10987E+00, 0.10849E+00, 0.10710E+00, 0.10571E+00, - & 0.48628E-01, 0.45262E-01, 0.41898E-01, 0.41931E-01, 0.40116E-01, - & 0.48402E-01, 0.57098E-01, 0.65493E-01, 0.73396E-01, 0.86861E-01, - & 0.94187E-01, 0.99982E-01, 0.10494E+00, 0.10908E+00, 0.11239E+00, - & 0.11489E+00, 0.11647E+00, 0.11714E+00, 0.11697E+00, 0.11610E+00, - & 0.11477E+00, 0.11342E+00, 0.11215E+00, 0.11088E+00, 0.10961E+00, - & 0.10834E+00, 0.10707E+00, 0.10580E+00, 0.10453E+00, 0.10325E+00, - & 0.48701E-01, 0.45329E-01, 0.41960E-01, 0.41994E-01, 0.40156E-01, - & 0.48213E-01, 0.56601E-01, 0.64634E-01, 0.72159E-01, 0.85119E-01, - & 0.92049E-01, 0.97494E-01, 0.10215E+00, 0.10603E+00, 0.10914E+00, - & 0.11148E+00, 0.11297E+00, 0.11359E+00, 0.11343E+00, 0.11261E+00, - & 0.11137E+00, 0.11013E+00, 0.10897E+00, 0.10781E+00, 0.10665E+00, - & 0.10548E+00, 0.10432E+00, 0.10316E+00, 0.10200E+00, 0.10084E+00, - & 0.48772E-01, 0.45397E-01, 0.42024E-01, 0.42058E-01, 0.40197E-01, - & 0.48027E-01, 0.56112E-01, 0.63792E-01, 0.70952E-01, 0.83423E-01, - & 0.89971E-01, 0.95081E-01, 0.99441E-01, 0.10307E+00, 0.10599E+00, - & 0.10818E+00, 0.10957E+00, 0.11015E+00, 0.11000E+00, 0.10923E+00, - & 0.10807E+00, 0.10693E+00, 0.10587E+00, 0.10481E+00, 0.10375E+00, - & 0.10269E+00, 0.10164E+00, 0.10058E+00, 0.99518E-01, 0.98459E-01, - & 0.48847E-01, 0.45467E-01, 0.42089E-01, 0.42123E-01, 0.40239E-01, - & 0.47844E-01, 0.55632E-01, 0.62968E-01, 0.69773E-01, 0.81771E-01, - & 0.87952E-01, 0.92742E-01, 0.96821E-01, 0.10022E+00, 0.10294E+00, - & 0.10499E+00, 0.10629E+00, 0.10683E+00, 0.10668E+00, 0.10595E+00, - & 0.10488E+00, 0.10382E+00, 0.10286E+00, 0.10190E+00, 0.10093E+00, - & 0.99968E-01, 0.99005E-01, 0.98041E-01, 0.97078E-01, 0.96114E-01, - & 0.48925E-01, 0.45539E-01, 0.42154E-01, 0.42188E-01, 0.40282E-01, - & 0.47664E-01, 0.55160E-01, 0.62162E-01, 0.68622E-01, 0.80163E-01, - & 0.85991E-01, 0.90473E-01, 0.94282E-01, 0.97453E-01, 0.99993E-01, - & 0.10190E+00, 0.10311E+00, 0.10361E+00, 0.10347E+00, 0.10278E+00, - & 0.10178E+00, 0.10080E+00, 0.99931E-01, 0.99058E-01, 0.98184E-01, - & 0.97311E-01, 0.96437E-01, 0.95564E-01, 0.94691E-01, 0.93817E-01, - & 0.49002E-01, 0.45610E-01, 0.42221E-01, 0.42255E-01, 0.40325E-01, - & 0.47486E-01, 0.54696E-01, 0.61372E-01, 0.67499E-01, 0.78597E-01, - & 0.84086E-01, 0.88272E-01, 0.91824E-01, 0.94777E-01, 0.97142E-01, - & 0.98919E-01, 0.10004E+00, 0.10050E+00, 0.10035E+00, 0.99704E-01, - & 0.98767E-01, 0.97872E-01, 0.97080E-01, 0.96288E-01, 0.95495E-01, - & 0.94703E-01, 0.93911E-01, 0.93119E-01, 0.92326E-01, 0.91534E-01, - & 0.49081E-01, 0.45683E-01, 0.42288E-01, 0.42322E-01, 0.40370E-01, - & 0.47312E-01, 0.54240E-01, 0.60598E-01, 0.66401E-01, 0.77072E-01, - & 0.82234E-01, 0.86137E-01, 0.89441E-01, 0.92186E-01, 0.94383E-01, - & 0.96032E-01, 0.97072E-01, 0.97488E-01, 0.97340E-01, 0.96722E-01, - & 0.95846E-01, 0.95023E-01, 0.94306E-01, 0.93590E-01, 0.92874E-01, - & 0.92158E-01, 0.91441E-01, 0.90725E-01, 0.90009E-01, 0.89293E-01/ - - data ((flgrrl(i,j),j=1,30),i= 21, 30)/ - & 0.49160E-01, 0.45756E-01, 0.42356E-01, 0.42390E-01, 0.40415E-01, - & 0.47139E-01, 0.53792E-01, 0.59840E-01, 0.65330E-01, 0.75586E-01, - & 0.80434E-01, 0.84065E-01, 0.87132E-01, 0.89678E-01, 0.91713E-01, - & 0.93239E-01, 0.94196E-01, 0.94571E-01, 0.94419E-01, 0.93831E-01, - & 0.93011E-01, 0.92253E-01, 0.91607E-01, 0.90960E-01, 0.90314E-01, - & 0.89668E-01, 0.89021E-01, 0.88375E-01, 0.87729E-01, 0.87082E-01, - & 0.49236E-01, 0.45829E-01, 0.42424E-01, 0.42458E-01, 0.40460E-01, - & 0.46969E-01, 0.53351E-01, 0.59097E-01, 0.64283E-01, 0.74138E-01, - & 0.78684E-01, 0.82054E-01, 0.84894E-01, 0.87249E-01, 0.89129E-01, - & 0.90536E-01, 0.91413E-01, 0.91747E-01, 0.91589E-01, 0.91027E-01, - & 0.90259E-01, 0.89560E-01, 0.88978E-01, 0.88396E-01, 0.87814E-01, - & 0.87232E-01, 0.86650E-01, 0.86068E-01, 0.85486E-01, 0.84904E-01, - & 0.49317E-01, 0.45904E-01, 0.42493E-01, 0.42527E-01, 0.40507E-01, - & 0.46802E-01, 0.52916E-01, 0.58369E-01, 0.63260E-01, 0.72728E-01, - & 0.76983E-01, 0.80102E-01, 0.82725E-01, 0.84896E-01, 0.86627E-01, - & 0.87919E-01, 0.88718E-01, 0.89011E-01, 0.88847E-01, 0.88307E-01, - & 0.87585E-01, 0.86942E-01, 0.86419E-01, 0.85895E-01, 0.85372E-01, - & 0.84849E-01, 0.84325E-01, 0.83802E-01, 0.83279E-01, 0.82755E-01, - & 0.49399E-01, 0.45979E-01, 0.42563E-01, 0.42597E-01, 0.40553E-01, - & 0.46636E-01, 0.52489E-01, 0.57656E-01, 0.62260E-01, 0.71353E-01, - & 0.75328E-01, 0.78208E-01, 0.80621E-01, 0.82616E-01, 0.84204E-01, - & 0.85385E-01, 0.86109E-01, 0.86361E-01, 0.86188E-01, 0.85668E-01, - & 0.84989E-01, 0.84395E-01, 0.83926E-01, 0.83456E-01, 0.82986E-01, - & 0.82516E-01, 0.82047E-01, 0.81577E-01, 0.81107E-01, 0.80638E-01, - & 0.49478E-01, 0.46054E-01, 0.42632E-01, 0.42666E-01, 0.40600E-01, - & 0.46473E-01, 0.52068E-01, 0.56956E-01, 0.61283E-01, 0.70013E-01, - & 0.73719E-01, 0.76368E-01, 0.78581E-01, 0.80407E-01, 0.81858E-01, - & 0.82932E-01, 0.83582E-01, 0.83794E-01, 0.83610E-01, 0.83107E-01, - & 0.82466E-01, 0.81918E-01, 0.81497E-01, 0.81075E-01, 0.80654E-01, - & 0.80233E-01, 0.79812E-01, 0.79391E-01, 0.78969E-01, 0.78548E-01, - & 0.49560E-01, 0.46130E-01, 0.42701E-01, 0.42736E-01, 0.40646E-01, - & 0.46311E-01, 0.51653E-01, 0.56270E-01, 0.60327E-01, 0.68706E-01, - & 0.72153E-01, 0.74581E-01, 0.76602E-01, 0.78266E-01, 0.79584E-01, - & 0.80555E-01, 0.81134E-01, 0.81305E-01, 0.81110E-01, 0.80621E-01, - & 0.80014E-01, 0.79507E-01, 0.79129E-01, 0.78752E-01, 0.78374E-01, - & 0.77997E-01, 0.77619E-01, 0.77242E-01, 0.76864E-01, 0.76487E-01, - & 0.49640E-01, 0.46204E-01, 0.42770E-01, 0.42805E-01, 0.40693E-01, - & 0.46150E-01, 0.51244E-01, 0.55597E-01, 0.59392E-01, 0.67431E-01, - & 0.70628E-01, 0.72844E-01, 0.74682E-01, 0.76190E-01, 0.77382E-01, - & 0.78253E-01, 0.78762E-01, 0.78893E-01, 0.78685E-01, 0.78207E-01, - & 0.77630E-01, 0.77159E-01, 0.76821E-01, 0.76483E-01, 0.76144E-01, - & 0.75806E-01, 0.75468E-01, 0.75129E-01, 0.74791E-01, 0.74453E-01, - & 0.49719E-01, 0.46278E-01, 0.42839E-01, 0.42873E-01, 0.40739E-01, - & 0.45991E-01, 0.50841E-01, 0.54935E-01, 0.58478E-01, 0.66187E-01, - & 0.69145E-01, 0.71157E-01, 0.72818E-01, 0.74177E-01, 0.75246E-01, - & 0.76022E-01, 0.76462E-01, 0.76554E-01, 0.76331E-01, 0.75862E-01, - & 0.75312E-01, 0.74874E-01, 0.74570E-01, 0.74267E-01, 0.73964E-01, - & 0.73660E-01, 0.73357E-01, 0.73054E-01, 0.72750E-01, 0.72447E-01, - & 0.49796E-01, 0.46350E-01, 0.42907E-01, 0.42941E-01, 0.40785E-01, - & 0.45833E-01, 0.50442E-01, 0.54286E-01, 0.57582E-01, 0.64973E-01, - & 0.67699E-01, 0.69516E-01, 0.71009E-01, 0.72224E-01, 0.73176E-01, - & 0.73858E-01, 0.74233E-01, 0.74285E-01, 0.74047E-01, 0.73584E-01, - & 0.73057E-01, 0.72648E-01, 0.72375E-01, 0.72102E-01, 0.71829E-01, - & 0.71556E-01, 0.71283E-01, 0.71011E-01, 0.70738E-01, 0.70465E-01, - & 0.49873E-01, 0.46422E-01, 0.42974E-01, 0.43008E-01, 0.40829E-01, - & 0.45675E-01, 0.50049E-01, 0.53647E-01, 0.56705E-01, 0.63786E-01, - & 0.66291E-01, 0.67921E-01, 0.69251E-01, 0.70329E-01, 0.71167E-01, - & 0.71760E-01, 0.72070E-01, 0.72083E-01, 0.71829E-01, 0.71370E-01, - & 0.70863E-01, 0.70479E-01, 0.70233E-01, 0.69986E-01, 0.69740E-01, - & 0.69494E-01, 0.69248E-01, 0.69002E-01, 0.68756E-01, 0.68510E-01/ - - data ((flgrrl(i,j),j=1,30),i= 31, 40)/ - & 0.49951E-01, 0.46494E-01, 0.43039E-01, 0.43074E-01, 0.40872E-01, - & 0.45517E-01, 0.49659E-01, 0.53019E-01, 0.55845E-01, 0.62628E-01, - & 0.64919E-01, 0.66368E-01, 0.67542E-01, 0.68489E-01, 0.69219E-01, - & 0.69725E-01, 0.69972E-01, 0.69946E-01, 0.69674E-01, 0.69217E-01, - & 0.68727E-01, 0.68364E-01, 0.68141E-01, 0.67918E-01, 0.67695E-01, - & 0.67472E-01, 0.67249E-01, 0.67026E-01, 0.66803E-01, 0.66580E-01, - & 0.50025E-01, 0.46563E-01, 0.43103E-01, 0.43138E-01, 0.40914E-01, - & 0.45360E-01, 0.49274E-01, 0.52400E-01, 0.55002E-01, 0.61495E-01, - & 0.63580E-01, 0.64857E-01, 0.65882E-01, 0.66702E-01, 0.67327E-01, - & 0.67749E-01, 0.67935E-01, 0.67870E-01, 0.67581E-01, 0.67124E-01, - & 0.66648E-01, 0.66303E-01, 0.66099E-01, 0.65896E-01, 0.65692E-01, - & 0.65488E-01, 0.65285E-01, 0.65081E-01, 0.64877E-01, 0.64674E-01, - & 0.50099E-01, 0.46630E-01, 0.43165E-01, 0.43199E-01, 0.40954E-01, - & 0.45201E-01, 0.48891E-01, 0.51791E-01, 0.54175E-01, 0.60386E-01, - & 0.62274E-01, 0.63384E-01, 0.64267E-01, 0.64965E-01, 0.65490E-01, - & 0.65831E-01, 0.65957E-01, 0.65854E-01, 0.65545E-01, 0.65087E-01, - & 0.64622E-01, 0.64292E-01, 0.64104E-01, 0.63916E-01, 0.63729E-01, - & 0.63541E-01, 0.63353E-01, 0.63166E-01, 0.62978E-01, 0.62790E-01, - & 0.50164E-01, 0.46693E-01, 0.43224E-01, 0.43258E-01, 0.40991E-01, - & 0.45042E-01, 0.48511E-01, 0.51190E-01, 0.53362E-01, 0.59301E-01, - & 0.60998E-01, 0.61950E-01, 0.62695E-01, 0.63277E-01, 0.63705E-01, - & 0.63968E-01, 0.64036E-01, 0.63895E-01, 0.63567E-01, 0.63104E-01, - & 0.62648E-01, 0.62330E-01, 0.62155E-01, 0.61980E-01, 0.61805E-01, - & 0.61630E-01, 0.61455E-01, 0.61280E-01, 0.61105E-01, 0.60930E-01, - & 0.50229E-01, 0.46753E-01, 0.43280E-01, 0.43314E-01, 0.41026E-01, - & 0.44881E-01, 0.48133E-01, 0.50596E-01, 0.52563E-01, 0.58238E-01, - & 0.59752E-01, 0.60551E-01, 0.61164E-01, 0.61635E-01, 0.61969E-01, - & 0.62157E-01, 0.62169E-01, 0.61990E-01, 0.61641E-01, 0.61174E-01, - & 0.60724E-01, 0.60415E-01, 0.60250E-01, 0.60084E-01, 0.59919E-01, - & 0.59754E-01, 0.59589E-01, 0.59423E-01, 0.59258E-01, 0.59093E-01, - & 0.50292E-01, 0.46810E-01, 0.43332E-01, 0.43367E-01, 0.41057E-01, - & 0.44718E-01, 0.47757E-01, 0.50009E-01, 0.51777E-01, 0.57196E-01, - & 0.58533E-01, 0.59186E-01, 0.59673E-01, 0.60036E-01, 0.60281E-01, - & 0.60396E-01, 0.60353E-01, 0.60137E-01, 0.59767E-01, 0.59293E-01, - & 0.58848E-01, 0.58545E-01, 0.58386E-01, 0.58228E-01, 0.58069E-01, - & 0.57910E-01, 0.57752E-01, 0.57593E-01, 0.57434E-01, 0.57276E-01, - & 0.50347E-01, 0.46862E-01, 0.43380E-01, 0.43415E-01, 0.41084E-01, - & 0.44552E-01, 0.47381E-01, 0.49428E-01, 0.51003E-01, 0.56173E-01, - & 0.57340E-01, 0.57852E-01, 0.58219E-01, 0.58480E-01, 0.58638E-01, - & 0.58683E-01, 0.58586E-01, 0.58334E-01, 0.57943E-01, 0.57461E-01, - & 0.57017E-01, 0.56718E-01, 0.56563E-01, 0.56409E-01, 0.56254E-01, - & 0.56099E-01, 0.55945E-01, 0.55790E-01, 0.55635E-01, 0.55481E-01, - & 0.50398E-01, 0.46909E-01, 0.43423E-01, 0.43458E-01, 0.41106E-01, - & 0.44383E-01, 0.47005E-01, 0.48852E-01, 0.50239E-01, 0.55168E-01, - & 0.56172E-01, 0.56549E-01, 0.56800E-01, 0.56962E-01, 0.57038E-01, - & 0.57015E-01, 0.56866E-01, 0.56578E-01, 0.56165E-01, 0.55674E-01, - & 0.55230E-01, 0.54932E-01, 0.54779E-01, 0.54626E-01, 0.54473E-01, - & 0.54320E-01, 0.54167E-01, 0.54014E-01, 0.53861E-01, 0.53708E-01, - & 0.50440E-01, 0.46949E-01, 0.43460E-01, 0.43495E-01, 0.41123E-01, - & 0.44209E-01, 0.46628E-01, 0.48280E-01, 0.49485E-01, 0.54180E-01, - & 0.55027E-01, 0.55275E-01, 0.55415E-01, 0.55482E-01, 0.55479E-01, - & 0.55391E-01, 0.55191E-01, 0.54867E-01, 0.54432E-01, 0.53931E-01, - & 0.53485E-01, 0.53187E-01, 0.53033E-01, 0.52879E-01, 0.52725E-01, - & 0.52571E-01, 0.52417E-01, 0.52263E-01, 0.52109E-01, 0.51955E-01, - & 0.50476E-01, 0.46982E-01, 0.43491E-01, 0.43526E-01, 0.41134E-01, - & 0.44030E-01, 0.46250E-01, 0.47711E-01, 0.48739E-01, 0.53207E-01, - & 0.53903E-01, 0.54027E-01, 0.54061E-01, 0.54038E-01, 0.53958E-01, - & 0.53807E-01, 0.53559E-01, 0.53199E-01, 0.52742E-01, 0.52229E-01, - & 0.51780E-01, 0.51479E-01, 0.51322E-01, 0.51165E-01, 0.51008E-01, - & 0.50851E-01, 0.50694E-01, 0.50537E-01, 0.50380E-01, 0.50222E-01/ - - data ((flgrrl(i,j),j=1,30),i= 41, 50)/ - & 0.50502E-01, 0.47007E-01, 0.43514E-01, 0.43549E-01, 0.41138E-01, - & 0.43846E-01, 0.45868E-01, 0.47144E-01, 0.48000E-01, 0.52248E-01, - & 0.52798E-01, 0.52804E-01, 0.52737E-01, 0.52627E-01, 0.52474E-01, - & 0.52262E-01, 0.51966E-01, 0.51573E-01, 0.51093E-01, 0.50568E-01, - & 0.50114E-01, 0.49809E-01, 0.49646E-01, 0.49484E-01, 0.49322E-01, - & 0.49160E-01, 0.48998E-01, 0.48836E-01, 0.48673E-01, 0.48511E-01, - & 0.50520E-01, 0.47023E-01, 0.43529E-01, 0.43564E-01, 0.41134E-01, - & 0.43654E-01, 0.45483E-01, 0.46578E-01, 0.47268E-01, 0.51301E-01, - & 0.51712E-01, 0.51604E-01, 0.51440E-01, 0.51247E-01, 0.51024E-01, - & 0.50754E-01, 0.50412E-01, 0.49985E-01, 0.49483E-01, 0.48945E-01, - & 0.48485E-01, 0.48173E-01, 0.48004E-01, 0.47835E-01, 0.47665E-01, - & 0.47496E-01, 0.47327E-01, 0.47157E-01, 0.46988E-01, 0.46819E-01, - & 0.50525E-01, 0.47029E-01, 0.43535E-01, 0.43570E-01, 0.41121E-01, - & 0.43455E-01, 0.45093E-01, 0.46012E-01, 0.46540E-01, 0.50366E-01, - & 0.50642E-01, 0.50426E-01, 0.50169E-01, 0.49897E-01, 0.49607E-01, - & 0.49281E-01, 0.48895E-01, 0.48434E-01, 0.47910E-01, 0.47359E-01, - & 0.46891E-01, 0.46572E-01, 0.46394E-01, 0.46216E-01, 0.46038E-01, - & 0.45860E-01, 0.45682E-01, 0.45504E-01, 0.45326E-01, 0.45148E-01, - & 0.50520E-01, 0.47024E-01, 0.43530E-01, 0.43565E-01, 0.41099E-01, - & 0.43247E-01, 0.44698E-01, 0.45444E-01, 0.45817E-01, 0.49439E-01, - & 0.49587E-01, 0.49267E-01, 0.48922E-01, 0.48574E-01, 0.48220E-01, - & 0.47840E-01, 0.47411E-01, 0.46919E-01, 0.46373E-01, 0.45808E-01, - & 0.45331E-01, 0.45003E-01, 0.44815E-01, 0.44627E-01, 0.44438E-01, - & 0.44250E-01, 0.44062E-01, 0.43874E-01, 0.43686E-01, 0.43497E-01, - & 0.50501E-01, 0.47005E-01, 0.43513E-01, 0.43548E-01, 0.41065E-01, - & 0.43029E-01, 0.44295E-01, 0.44874E-01, 0.45095E-01, 0.48521E-01, - & 0.48544E-01, 0.48126E-01, 0.47696E-01, 0.47277E-01, 0.46862E-01, - & 0.46430E-01, 0.45960E-01, 0.45437E-01, 0.44869E-01, 0.44290E-01, - & 0.43803E-01, 0.43465E-01, 0.43265E-01, 0.43066E-01, 0.42866E-01, - & 0.42666E-01, 0.42466E-01, 0.42267E-01, 0.42067E-01, 0.41867E-01, - & 0.50466E-01, 0.46973E-01, 0.43482E-01, 0.43517E-01, 0.41018E-01, - & 0.42799E-01, 0.43883E-01, 0.44299E-01, 0.44374E-01, 0.47608E-01, - & 0.47514E-01, 0.47002E-01, 0.46492E-01, 0.46004E-01, 0.45530E-01, - & 0.45049E-01, 0.44540E-01, 0.43987E-01, 0.43398E-01, 0.42804E-01, - & 0.42307E-01, 0.41958E-01, 0.41745E-01, 0.41533E-01, 0.41320E-01, - & 0.41108E-01, 0.40895E-01, 0.40683E-01, 0.40470E-01, 0.40257E-01, - & 0.50414E-01, 0.46924E-01, 0.43437E-01, 0.43472E-01, 0.40958E-01, - & 0.42556E-01, 0.43462E-01, 0.43719E-01, 0.43652E-01, 0.46701E-01, - & 0.46493E-01, 0.45891E-01, 0.45305E-01, 0.44752E-01, 0.44224E-01, - & 0.43696E-01, 0.43149E-01, 0.42567E-01, 0.41957E-01, 0.41349E-01, - & 0.40841E-01, 0.40480E-01, 0.40253E-01, 0.40027E-01, 0.39801E-01, - & 0.39574E-01, 0.39348E-01, 0.39122E-01, 0.38895E-01, 0.38669E-01, - & 0.50342E-01, 0.46858E-01, 0.43376E-01, 0.43411E-01, 0.40883E-01, - & 0.42300E-01, 0.43030E-01, 0.43133E-01, 0.42929E-01, 0.45797E-01, - & 0.45481E-01, 0.44794E-01, 0.44136E-01, 0.43521E-01, 0.42940E-01, - & 0.42368E-01, 0.41785E-01, 0.41175E-01, 0.40544E-01, 0.39923E-01, - & 0.39403E-01, 0.39030E-01, 0.38789E-01, 0.38548E-01, 0.38307E-01, - & 0.38066E-01, 0.37825E-01, 0.37584E-01, 0.37343E-01, 0.37102E-01, - & 0.50249E-01, 0.46772E-01, 0.43297E-01, 0.43332E-01, 0.40790E-01, - & 0.42027E-01, 0.42586E-01, 0.42538E-01, 0.42202E-01, 0.44894E-01, - & 0.44475E-01, 0.43708E-01, 0.42981E-01, 0.42309E-01, 0.41678E-01, - & 0.41064E-01, 0.40447E-01, 0.39811E-01, 0.39160E-01, 0.38524E-01, - & 0.37993E-01, 0.37607E-01, 0.37350E-01, 0.37094E-01, 0.36838E-01, - & 0.36582E-01, 0.36326E-01, 0.36069E-01, 0.35813E-01, 0.35557E-01, - & 0.50134E-01, 0.46665E-01, 0.43198E-01, 0.43233E-01, 0.40679E-01, - & 0.41737E-01, 0.42127E-01, 0.41934E-01, 0.41471E-01, 0.43992E-01, - & 0.43474E-01, 0.42631E-01, 0.41840E-01, 0.41113E-01, 0.40436E-01, - & 0.39782E-01, 0.39132E-01, 0.38471E-01, 0.37802E-01, 0.37153E-01, - & 0.36610E-01, 0.36210E-01, 0.35938E-01, 0.35666E-01, 0.35395E-01, - & 0.35123E-01, 0.34851E-01, 0.34579E-01, 0.34307E-01, 0.34035E-01/ - - data ((flgrrl(i,j),j=1,30),i= 51, 60)/ - & 0.49996E-01, 0.46535E-01, 0.43077E-01, 0.43112E-01, 0.40548E-01, - & 0.41429E-01, 0.41652E-01, 0.41319E-01, 0.40733E-01, 0.43088E-01, - & 0.42477E-01, 0.41562E-01, 0.40711E-01, 0.39933E-01, 0.39212E-01, - & 0.38521E-01, 0.37841E-01, 0.37156E-01, 0.36470E-01, 0.35807E-01, - & 0.35253E-01, 0.34839E-01, 0.34552E-01, 0.34264E-01, 0.33976E-01, - & 0.33688E-01, 0.33401E-01, 0.33113E-01, 0.32825E-01, 0.32537E-01, - & 0.49829E-01, 0.46380E-01, 0.42933E-01, 0.42968E-01, 0.40395E-01, - & 0.41099E-01, 0.41160E-01, 0.40691E-01, 0.39987E-01, 0.42181E-01, - & 0.41481E-01, 0.40499E-01, 0.39592E-01, 0.38766E-01, 0.38004E-01, - & 0.37279E-01, 0.36571E-01, 0.35864E-01, 0.35161E-01, 0.34486E-01, - & 0.33920E-01, 0.33494E-01, 0.33190E-01, 0.32886E-01, 0.32583E-01, - & 0.32279E-01, 0.31975E-01, 0.31672E-01, 0.31368E-01, 0.31064E-01, - & 0.49632E-01, 0.46196E-01, 0.42763E-01, 0.42797E-01, 0.40217E-01, - & 0.40747E-01, 0.40649E-01, 0.40048E-01, 0.39232E-01, 0.41269E-01, - & 0.40485E-01, 0.39441E-01, 0.38482E-01, 0.37612E-01, 0.36812E-01, - & 0.36055E-01, 0.35321E-01, 0.34594E-01, 0.33875E-01, 0.33188E-01, - & 0.32612E-01, 0.32172E-01, 0.31853E-01, 0.31533E-01, 0.31214E-01, - & 0.30894E-01, 0.30575E-01, 0.30255E-01, 0.29936E-01, 0.29616E-01, - & 0.49401E-01, 0.45981E-01, 0.42565E-01, 0.42599E-01, 0.40014E-01, - & 0.40370E-01, 0.40117E-01, 0.39390E-01, 0.38466E-01, 0.40351E-01, - & 0.39489E-01, 0.38386E-01, 0.37379E-01, 0.36469E-01, 0.35634E-01, - & 0.34847E-01, 0.34089E-01, 0.33344E-01, 0.32611E-01, 0.31914E-01, - & 0.31328E-01, 0.30875E-01, 0.30540E-01, 0.30205E-01, 0.29870E-01, - & 0.29535E-01, 0.29200E-01, 0.28865E-01, 0.28530E-01, 0.28196E-01, - & 0.49135E-01, 0.45734E-01, 0.42336E-01, 0.42370E-01, 0.39781E-01, - & 0.39966E-01, 0.39563E-01, 0.38714E-01, 0.37688E-01, 0.39425E-01, - & 0.38490E-01, 0.37334E-01, 0.36283E-01, 0.35335E-01, 0.34469E-01, - & 0.33656E-01, 0.32876E-01, 0.32114E-01, 0.31368E-01, 0.30662E-01, - & 0.30066E-01, 0.29601E-01, 0.29251E-01, 0.28901E-01, 0.28552E-01, - & 0.28202E-01, 0.27852E-01, 0.27502E-01, 0.27152E-01, 0.26802E-01, - & 0.48833E-01, 0.45452E-01, 0.42074E-01, 0.42108E-01, 0.39518E-01, - & 0.39535E-01, 0.38984E-01, 0.38019E-01, 0.36896E-01, 0.38490E-01, - & 0.37487E-01, 0.36282E-01, 0.35191E-01, 0.34210E-01, 0.33316E-01, - & 0.32478E-01, 0.31679E-01, 0.30902E-01, 0.30146E-01, 0.29431E-01, - & 0.28827E-01, 0.28351E-01, 0.27987E-01, 0.27623E-01, 0.27258E-01, - & 0.26894E-01, 0.26530E-01, 0.26166E-01, 0.25801E-01, 0.25437E-01, - & 0.48487E-01, 0.45131E-01, 0.41777E-01, 0.41811E-01, 0.39222E-01, - & 0.39072E-01, 0.38380E-01, 0.37303E-01, 0.36089E-01, 0.37545E-01, - & 0.36478E-01, 0.35230E-01, 0.34103E-01, 0.33092E-01, 0.32173E-01, - & 0.31314E-01, 0.30498E-01, 0.29709E-01, 0.28944E-01, 0.28222E-01, - & 0.27611E-01, 0.27124E-01, 0.26747E-01, 0.26369E-01, 0.25992E-01, - & 0.25615E-01, 0.25237E-01, 0.24860E-01, 0.24482E-01, 0.24105E-01, - & 0.48097E-01, 0.44768E-01, 0.41442E-01, 0.41475E-01, 0.38890E-01, - & 0.38577E-01, 0.37747E-01, 0.36566E-01, 0.35266E-01, 0.36589E-01, - & 0.35464E-01, 0.34176E-01, 0.33018E-01, 0.31980E-01, 0.31040E-01, - & 0.30163E-01, 0.29333E-01, 0.28533E-01, 0.27760E-01, 0.27033E-01, - & 0.26416E-01, 0.25921E-01, 0.25531E-01, 0.25141E-01, 0.24751E-01, - & 0.24362E-01, 0.23972E-01, 0.23582E-01, 0.23193E-01, 0.22803E-01, - & 0.47661E-01, 0.44363E-01, 0.41066E-01, 0.41099E-01, 0.38521E-01, - & 0.38048E-01, 0.37086E-01, 0.35805E-01, 0.34426E-01, 0.35619E-01, - & 0.34442E-01, 0.33120E-01, 0.31934E-01, 0.30875E-01, 0.29915E-01, - & 0.29024E-01, 0.28182E-01, 0.27374E-01, 0.26596E-01, 0.25865E-01, - & 0.25244E-01, 0.24740E-01, 0.24340E-01, 0.23939E-01, 0.23538E-01, - & 0.23138E-01, 0.22737E-01, 0.22336E-01, 0.21936E-01, 0.21535E-01, - & 0.47177E-01, 0.43911E-01, 0.40648E-01, 0.40680E-01, 0.38111E-01, - & 0.37482E-01, 0.36393E-01, 0.35019E-01, 0.33567E-01, 0.34636E-01, - & 0.33412E-01, 0.32060E-01, 0.30852E-01, 0.29774E-01, 0.28800E-01, - & 0.27896E-01, 0.27045E-01, 0.26231E-01, 0.25450E-01, 0.24718E-01, - & 0.24093E-01, 0.23584E-01, 0.23173E-01, 0.22763E-01, 0.22353E-01, - & 0.21942E-01, 0.21532E-01, 0.21122E-01, 0.20712E-01, 0.20301E-01/ - - data ((flgrrl(i,j),j=1,30),i= 61, 70)/ - & 0.46640E-01, 0.43410E-01, 0.40183E-01, 0.40215E-01, 0.37658E-01, - & 0.36878E-01, 0.35668E-01, 0.34208E-01, 0.32689E-01, 0.33639E-01, - & 0.32373E-01, 0.30997E-01, 0.29770E-01, 0.28678E-01, 0.27692E-01, - & 0.26779E-01, 0.25923E-01, 0.25105E-01, 0.24323E-01, 0.23591E-01, - & 0.22965E-01, 0.22451E-01, 0.22032E-01, 0.21614E-01, 0.21196E-01, - & 0.20778E-01, 0.20360E-01, 0.19941E-01, 0.19523E-01, 0.19105E-01, - & 0.46042E-01, 0.42855E-01, 0.39670E-01, 0.39702E-01, 0.37161E-01, - & 0.36233E-01, 0.34910E-01, 0.33369E-01, 0.31790E-01, 0.32626E-01, - & 0.31325E-01, 0.29930E-01, 0.28689E-01, 0.27586E-01, 0.26592E-01, - & 0.25674E-01, 0.24814E-01, 0.23995E-01, 0.23214E-01, 0.22484E-01, - & 0.21859E-01, 0.21342E-01, 0.20917E-01, 0.20493E-01, 0.20069E-01, - & 0.19645E-01, 0.19220E-01, 0.18796E-01, 0.18372E-01, 0.17947E-01, - & 0.45386E-01, 0.42245E-01, 0.39106E-01, 0.39137E-01, 0.36616E-01, - & 0.35547E-01, 0.34116E-01, 0.32504E-01, 0.30871E-01, 0.31598E-01, - & 0.30267E-01, 0.28858E-01, 0.27608E-01, 0.26498E-01, 0.25500E-01, - & 0.24579E-01, 0.23718E-01, 0.22902E-01, 0.22124E-01, 0.21399E-01, - & 0.20776E-01, 0.20257E-01, 0.19829E-01, 0.19400E-01, 0.18972E-01, - & 0.18543E-01, 0.18114E-01, 0.17686E-01, 0.17257E-01, 0.16828E-01, - & 0.44671E-01, 0.41578E-01, 0.38489E-01, 0.38520E-01, 0.36021E-01, - & 0.34817E-01, 0.33287E-01, 0.31609E-01, 0.29931E-01, 0.30554E-01, - & 0.29200E-01, 0.27782E-01, 0.26527E-01, 0.25415E-01, 0.24416E-01, - & 0.23495E-01, 0.22637E-01, 0.21825E-01, 0.21053E-01, 0.20334E-01, - & 0.19715E-01, 0.19198E-01, 0.18767E-01, 0.18336E-01, 0.17906E-01, - & 0.17475E-01, 0.17044E-01, 0.16613E-01, 0.16182E-01, 0.15751E-01, - & 0.43889E-01, 0.40851E-01, 0.37816E-01, 0.37847E-01, 0.35376E-01, - & 0.34043E-01, 0.32421E-01, 0.30687E-01, 0.28970E-01, 0.29495E-01, - & 0.28123E-01, 0.26701E-01, 0.25446E-01, 0.24336E-01, 0.23339E-01, - & 0.22423E-01, 0.21570E-01, 0.20765E-01, 0.20001E-01, 0.19291E-01, - & 0.18679E-01, 0.18165E-01, 0.17734E-01, 0.17302E-01, 0.16871E-01, - & 0.16439E-01, 0.16008E-01, 0.15577E-01, 0.15145E-01, 0.14714E-01, - & 0.43044E-01, 0.40064E-01, 0.37087E-01, 0.37116E-01, 0.34677E-01, - & 0.33224E-01, 0.31518E-01, 0.29736E-01, 0.27988E-01, 0.28421E-01, - & 0.27037E-01, 0.25617E-01, 0.24367E-01, 0.23262E-01, 0.22272E-01, - & 0.21362E-01, 0.20518E-01, 0.19722E-01, 0.18969E-01, 0.18270E-01, - & 0.17667E-01, 0.17158E-01, 0.16729E-01, 0.16299E-01, 0.15870E-01, - & 0.15441E-01, 0.15012E-01, 0.14582E-01, 0.14153E-01, 0.13724E-01, - & 0.42128E-01, 0.39212E-01, 0.36298E-01, 0.36327E-01, 0.33924E-01, - & 0.32359E-01, 0.30579E-01, 0.28756E-01, 0.26986E-01, 0.27332E-01, - & 0.25943E-01, 0.24530E-01, 0.23289E-01, 0.22194E-01, 0.21213E-01, - & 0.20314E-01, 0.19481E-01, 0.18697E-01, 0.17958E-01, 0.17272E-01, - & 0.16679E-01, 0.16178E-01, 0.15753E-01, 0.15328E-01, 0.14902E-01, - & 0.14477E-01, 0.14052E-01, 0.13627E-01, 0.13201E-01, 0.12776E-01, - & 0.41143E-01, 0.38295E-01, 0.35450E-01, 0.35479E-01, 0.33116E-01, - & 0.31447E-01, 0.29603E-01, 0.27750E-01, 0.25964E-01, 0.26230E-01, - & 0.24842E-01, 0.23442E-01, 0.22214E-01, 0.21132E-01, 0.20165E-01, - & 0.19280E-01, 0.18460E-01, 0.17692E-01, 0.16968E-01, 0.16297E-01, - & 0.15718E-01, 0.15226E-01, 0.14807E-01, 0.14388E-01, 0.13969E-01, - & 0.13550E-01, 0.13131E-01, 0.12713E-01, 0.12294E-01, 0.11875E-01, - & 0.40087E-01, 0.37313E-01, 0.34542E-01, 0.34569E-01, 0.32252E-01, - & 0.30490E-01, 0.28592E-01, 0.26717E-01, 0.24925E-01, 0.25117E-01, - & 0.23735E-01, 0.22353E-01, 0.21143E-01, 0.20079E-01, 0.19129E-01, - & 0.18260E-01, 0.17457E-01, 0.16706E-01, 0.16000E-01, 0.15347E-01, - & 0.14783E-01, 0.14303E-01, 0.13892E-01, 0.13482E-01, 0.13072E-01, - & 0.12661E-01, 0.12251E-01, 0.11841E-01, 0.11430E-01, 0.11020E-01, - & 0.38962E-01, 0.36266E-01, 0.33572E-01, 0.33599E-01, 0.31332E-01, - & 0.29488E-01, 0.27546E-01, 0.25659E-01, 0.23869E-01, 0.23993E-01, - & 0.22624E-01, 0.21265E-01, 0.20078E-01, 0.19035E-01, 0.18105E-01, - & 0.17255E-01, 0.16472E-01, 0.15741E-01, 0.15055E-01, 0.14422E-01, - & 0.13875E-01, 0.13409E-01, 0.13009E-01, 0.12610E-01, 0.12210E-01, - & 0.11811E-01, 0.11411E-01, 0.11012E-01, 0.10612E-01, 0.10213E-01/ - - data ((flgrrl(i,j),j=1,30),i= 71, 80)/ - & 0.37767E-01, 0.35154E-01, 0.32542E-01, 0.32568E-01, 0.30357E-01, - & 0.28442E-01, 0.26468E-01, 0.24578E-01, 0.22799E-01, 0.22861E-01, - & 0.21512E-01, 0.20181E-01, 0.19021E-01, 0.18003E-01, 0.17096E-01, - & 0.16268E-01, 0.15507E-01, 0.14798E-01, 0.14135E-01, 0.13523E-01, - & 0.12996E-01, 0.12545E-01, 0.12158E-01, 0.11772E-01, 0.11385E-01, - & 0.10998E-01, 0.10611E-01, 0.10225E-01, 0.98380E-02, 0.94512E-02, - & 0.36504E-01, 0.33978E-01, 0.31454E-01, 0.31479E-01, 0.29327E-01, - & 0.27354E-01, 0.25359E-01, 0.23477E-01, 0.21717E-01, 0.21724E-01, - & 0.20400E-01, 0.19102E-01, 0.17973E-01, 0.16983E-01, 0.16102E-01, - & 0.15300E-01, 0.14564E-01, 0.13879E-01, 0.13240E-01, 0.12652E-01, - & 0.12145E-01, 0.11712E-01, 0.11340E-01, 0.10968E-01, 0.10596E-01, - & 0.10223E-01, 0.98511E-02, 0.94789E-02, 0.91067E-02, 0.87345E-02, - & 0.35176E-01, 0.32741E-01, 0.30308E-01, 0.30332E-01, 0.28246E-01, - & 0.26228E-01, 0.24224E-01, 0.22359E-01, 0.20626E-01, 0.20585E-01, - & 0.19292E-01, 0.18032E-01, 0.16937E-01, 0.15978E-01, 0.15127E-01, - & 0.14352E-01, 0.13643E-01, 0.12984E-01, 0.12371E-01, 0.11809E-01, - & 0.11325E-01, 0.10911E-01, 0.10555E-01, 0.10200E-01, 0.98440E-02, - & 0.94883E-02, 0.91327E-02, 0.87770E-02, 0.84213E-02, 0.80657E-02, - & 0.33783E-01, 0.31445E-01, 0.29108E-01, 0.29131E-01, 0.27114E-01, - & 0.25066E-01, 0.23066E-01, 0.21227E-01, 0.19530E-01, 0.19447E-01, - & 0.18190E-01, 0.16972E-01, 0.15915E-01, 0.14991E-01, 0.14171E-01, - & 0.13427E-01, 0.12746E-01, 0.12116E-01, 0.11530E-01, 0.10994E-01, - & 0.10534E-01, 0.10142E-01, 0.98041E-02, 0.94664E-02, 0.91288E-02, - & 0.87911E-02, 0.84535E-02, 0.81159E-02, 0.77782E-02, 0.74406E-02, - & 0.32332E-01, 0.30094E-01, 0.27858E-01, 0.27880E-01, 0.25937E-01, - & 0.23872E-01, 0.21888E-01, 0.20086E-01, 0.18432E-01, 0.18314E-01, - & 0.17098E-01, 0.15926E-01, 0.14911E-01, 0.14024E-01, 0.13238E-01, - & 0.12525E-01, 0.11875E-01, 0.11274E-01, 0.10718E-01, 0.10210E-01, - & 0.97756E-02, 0.94050E-02, 0.90867E-02, 0.87684E-02, 0.84501E-02, - & 0.81318E-02, 0.78135E-02, 0.74952E-02, 0.71770E-02, 0.68587E-02, - & 0.30828E-01, 0.28694E-01, 0.26562E-01, 0.26583E-01, 0.24719E-01, - & 0.22652E-01, 0.20695E-01, 0.18939E-01, 0.17337E-01, 0.17189E-01, - & 0.16019E-01, 0.14897E-01, 0.13926E-01, 0.13079E-01, 0.12329E-01, - & 0.11650E-01, 0.11031E-01, 0.10462E-01, 0.99355E-02, 0.94568E-02, - & 0.90484E-02, 0.87010E-02, 0.84032E-02, 0.81054E-02, 0.78076E-02, - & 0.75097E-02, 0.72119E-02, 0.69141E-02, 0.66163E-02, 0.63185E-02, - & 0.29278E-01, 0.27251E-01, 0.25225E-01, 0.25246E-01, 0.23465E-01, - & 0.21411E-01, 0.19494E-01, 0.17792E-01, 0.16248E-01, 0.16078E-01, - & 0.14958E-01, 0.13888E-01, 0.12964E-01, 0.12159E-01, 0.11446E-01, - & 0.10802E-01, 0.10217E-01, 0.96790E-02, 0.91838E-02, 0.87348E-02, - & 0.83534E-02, 0.80299E-02, 0.77533E-02, 0.74768E-02, 0.72002E-02, - & 0.69237E-02, 0.66471E-02, 0.63706E-02, 0.60940E-02, 0.58175E-02, - & 0.27689E-01, 0.25772E-01, 0.23856E-01, 0.23875E-01, 0.22181E-01, - & 0.20155E-01, 0.18289E-01, 0.16650E-01, 0.15171E-01, 0.14983E-01, - & 0.13917E-01, 0.12903E-01, 0.12028E-01, 0.11266E-01, 0.10592E-01, - & 0.99838E-02, 0.94322E-02, 0.89273E-02, 0.84636E-02, 0.80448E-02, - & 0.76907E-02, 0.73915E-02, 0.71367E-02, 0.68818E-02, 0.66270E-02, - & 0.63722E-02, 0.61174E-02, 0.58626E-02, 0.56078E-02, 0.53530E-02, - & 0.26068E-01, 0.24263E-01, 0.22460E-01, 0.22478E-01, 0.20874E-01, - & 0.18890E-01, 0.17087E-01, 0.15519E-01, 0.14109E-01, 0.13911E-01, - & 0.12901E-01, 0.11945E-01, 0.11120E-01, 0.10402E-01, 0.97679E-02, - & 0.91966E-02, 0.86795E-02, 0.82075E-02, 0.77756E-02, 0.73871E-02, - & 0.70604E-02, 0.67855E-02, 0.65526E-02, 0.63197E-02, 0.60868E-02, - & 0.58539E-02, 0.56210E-02, 0.53881E-02, 0.51552E-02, 0.49223E-02, - & 0.24428E-01, 0.22736E-01, 0.21047E-01, 0.21063E-01, 0.19552E-01, - & 0.17625E-01, 0.15894E-01, 0.14403E-01, 0.13069E-01, 0.12864E-01, - & 0.11914E-01, 0.11016E-01, 0.10242E-01, 0.95693E-02, 0.89760E-02, - & 0.84417E-02, 0.79594E-02, 0.75204E-02, 0.71202E-02, 0.67617E-02, - & 0.64621E-02, 0.62115E-02, 0.60003E-02, 0.57892E-02, 0.55780E-02, - & 0.53668E-02, 0.51557E-02, 0.49445E-02, 0.47333E-02, 0.45222E-02/ - - data ((flgrrl(i,j),j=1,30),i= 81, 90)/ - & 0.22779E-01, 0.21201E-01, 0.19625E-01, 0.19641E-01, 0.18224E-01, - & 0.16366E-01, 0.14717E-01, 0.13308E-01, 0.12054E-01, 0.11847E-01, - & 0.10958E-01, 0.10120E-01, 0.93977E-02, 0.87704E-02, 0.82175E-02, - & 0.77204E-02, 0.72726E-02, 0.68665E-02, 0.64975E-02, 0.61686E-02, - & 0.58955E-02, 0.56686E-02, 0.54787E-02, 0.52888E-02, 0.50989E-02, - & 0.49090E-02, 0.47191E-02, 0.45291E-02, 0.43392E-02, 0.41493E-02, - & 0.21128E-01, 0.19665E-01, 0.18204E-01, 0.18219E-01, 0.16898E-01, - & 0.15122E-01, 0.13562E-01, 0.12241E-01, 0.11068E-01, 0.10863E-01, - & 0.10036E-01, 0.92583E-02, 0.85883E-02, 0.80062E-02, 0.74936E-02, - & 0.70334E-02, 0.66198E-02, 0.62458E-02, 0.59074E-02, 0.56072E-02, - & 0.53599E-02, 0.51558E-02, 0.49864E-02, 0.48169E-02, 0.46475E-02, - & 0.44780E-02, 0.43086E-02, 0.41391E-02, 0.39697E-02, 0.38002E-02, - & 0.19492E-01, 0.18143E-01, 0.16794E-01, 0.16807E-01, 0.15583E-01, - & 0.13900E-01, 0.12436E-01, 0.11205E-01, 0.10117E-01, 0.99175E-02, - & 0.91524E-02, 0.84340E-02, 0.78154E-02, 0.72780E-02, 0.68051E-02, - & 0.63811E-02, 0.60008E-02, 0.56582E-02, 0.53494E-02, 0.50770E-02, - & 0.48543E-02, 0.46720E-02, 0.45219E-02, 0.43719E-02, 0.42218E-02, - & 0.40718E-02, 0.39217E-02, 0.37717E-02, 0.36216E-02, 0.34716E-02, - & 0.17879E-01, 0.16641E-01, 0.15405E-01, 0.15417E-01, 0.14289E-01, - & 0.12707E-01, 0.11344E-01, 0.10206E-01, 0.92024E-02, 0.90112E-02, - & 0.83078E-02, 0.76481E-02, 0.70800E-02, 0.65864E-02, 0.61522E-02, - & 0.57634E-02, 0.54156E-02, 0.51032E-02, 0.48229E-02, 0.45769E-02, - & 0.43775E-02, 0.42157E-02, 0.40837E-02, 0.39518E-02, 0.38199E-02, - & 0.36879E-02, 0.35560E-02, 0.34241E-02, 0.32921E-02, 0.31602E-02, - & 0.16300E-01, 0.15172E-01, 0.14045E-01, 0.14056E-01, 0.13024E-01, - & 0.11550E-01, 0.10291E-01, 0.92462E-02, 0.83275E-02, 0.81465E-02, - & 0.75036E-02, 0.69012E-02, 0.63821E-02, 0.59310E-02, 0.55344E-02, - & 0.51797E-02, 0.48632E-02, 0.45798E-02, 0.43266E-02, 0.41056E-02, - & 0.39281E-02, 0.37852E-02, 0.36699E-02, 0.35546E-02, 0.34393E-02, - & 0.33241E-02, 0.32088E-02, 0.30935E-02, 0.29782E-02, 0.28629E-02, - & 0.14770E-01, 0.13746E-01, 0.12724E-01, 0.12734E-01, 0.11796E-01, - & 0.10435E-01, 0.92815E-02, 0.83294E-02, 0.74940E-02, 0.73245E-02, - & 0.67405E-02, 0.61933E-02, 0.57216E-02, 0.53116E-02, 0.49512E-02, - & 0.46293E-02, 0.43426E-02, 0.40869E-02, 0.38593E-02, 0.36618E-02, - & 0.35044E-02, 0.33789E-02, 0.32787E-02, 0.31785E-02, 0.30784E-02, - & 0.29782E-02, 0.28780E-02, 0.27778E-02, 0.26776E-02, 0.25774E-02, - & 0.13288E-01, 0.12368E-01, 0.11448E-01, 0.11458E-01, 0.10611E-01, - & 0.93662E-02, 0.83181E-02, 0.74570E-02, 0.67027E-02, 0.65453E-02, - & 0.60179E-02, 0.55239E-02, 0.50976E-02, 0.47269E-02, 0.44012E-02, - & 0.41106E-02, 0.38524E-02, 0.36228E-02, 0.34194E-02, 0.32437E-02, - & 0.31049E-02, 0.29952E-02, 0.29085E-02, 0.28218E-02, 0.27351E-02, - & 0.26484E-02, 0.25617E-02, 0.24750E-02, 0.23883E-02, 0.23016E-02, - & 0.11867E-01, 0.11045E-01, 0.10225E-01, 0.10233E-01, 0.94745E-02, - & 0.83465E-02, 0.74023E-02, 0.66293E-02, 0.59531E-02, 0.58079E-02, - & 0.53346E-02, 0.48913E-02, 0.45084E-02, 0.41753E-02, 0.38827E-02, - & 0.36220E-02, 0.33908E-02, 0.31859E-02, 0.30050E-02, 0.28497E-02, - & 0.27278E-02, 0.26323E-02, 0.25575E-02, 0.24827E-02, 0.24079E-02, - & 0.23331E-02, 0.22583E-02, 0.21835E-02, 0.21087E-02, 0.20339E-02, - & 0.10511E-01, 0.97832E-02, 0.90564E-02, 0.90637E-02, 0.83901E-02, - & 0.73774E-02, 0.65340E-02, 0.58456E-02, 0.52439E-02, 0.51105E-02, - & 0.46887E-02, 0.42935E-02, 0.39520E-02, 0.36547E-02, 0.33937E-02, - & 0.31615E-02, 0.29559E-02, 0.27743E-02, 0.26146E-02, 0.24780E-02, - & 0.23716E-02, 0.22887E-02, 0.22243E-02, 0.21599E-02, 0.20955E-02, - & 0.20311E-02, 0.19668E-02, 0.19024E-02, 0.18380E-02, 0.17736E-02, - & 0.92208E-02, 0.85826E-02, 0.79448E-02, 0.79512E-02, 0.73588E-02, - & 0.64585E-02, 0.57118E-02, 0.51039E-02, 0.45728E-02, 0.44507E-02, - & 0.40775E-02, 0.37281E-02, 0.34259E-02, 0.31629E-02, 0.29321E-02, - & 0.27269E-02, 0.25458E-02, 0.23861E-02, 0.22462E-02, 0.21271E-02, - & 0.20348E-02, 0.19632E-02, 0.19079E-02, 0.18527E-02, 0.17974E-02, - & 0.17422E-02, 0.16869E-02, 0.16317E-02, 0.15764E-02, 0.15212E-02/ - - data ((flgrrl(i,j),j=1,30),i= 91,100)/ - & 0.79957E-02, 0.74423E-02, 0.68893E-02, 0.68949E-02, 0.63797E-02, - & 0.55876E-02, 0.49332E-02, 0.44014E-02, 0.39370E-02, 0.38254E-02, - & 0.34984E-02, 0.31925E-02, 0.29279E-02, 0.26977E-02, 0.24958E-02, - & 0.23166E-02, 0.21587E-02, 0.20200E-02, 0.18988E-02, 0.17959E-02, - & 0.17165E-02, 0.16551E-02, 0.16079E-02, 0.15607E-02, 0.15135E-02, - & 0.14663E-02, 0.14191E-02, 0.13719E-02, 0.13248E-02, 0.12776E-02, - & 0.68325E-02, 0.63597E-02, 0.58872E-02, 0.58919E-02, 0.54503E-02, - & 0.47615E-02, 0.41945E-02, 0.37347E-02, 0.33335E-02, 0.32317E-02, - & 0.29487E-02, 0.26845E-02, 0.24560E-02, 0.22573E-02, 0.20833E-02, - & 0.19291E-02, 0.17936E-02, 0.16749E-02, 0.15715E-02, 0.14839E-02, - & 0.14165E-02, 0.13644E-02, 0.13244E-02, 0.12844E-02, 0.12445E-02, - & 0.12045E-02, 0.11645E-02, 0.11246E-02, 0.10846E-02, 0.10446E-02, - & 0.57265E-02, 0.53301E-02, 0.49341E-02, 0.49381E-02, 0.45664E-02, - & 0.39763E-02, 0.34924E-02, 0.31009E-02, 0.27596E-02, 0.26675E-02, - & 0.24267E-02, 0.22026E-02, 0.20090E-02, 0.18410E-02, 0.16941E-02, - & 0.15642E-02, 0.14504E-02, 0.13509E-02, 0.12644E-02, 0.11914E-02, - & 0.11352E-02, 0.10918E-02, 0.10585E-02, 0.10252E-02, 0.99190E-03, - & 0.95861E-03, 0.92531E-03, 0.89201E-03, 0.85872E-03, 0.82542E-03, - & 0.46724E-02, 0.43490E-02, 0.40259E-02, 0.40291E-02, 0.37242E-02, - & 0.32287E-02, 0.28242E-02, 0.24981E-02, 0.22144E-02, 0.21321E-02, - & 0.19322E-02, 0.17471E-02, 0.15876E-02, 0.14494E-02, 0.13290E-02, - & 0.12228E-02, 0.11300E-02, 0.10492E-02, 0.97909E-03, 0.92002E-03, - & 0.87448E-03, 0.83923E-03, 0.81216E-03, 0.78509E-03, 0.75802E-03, - & 0.73094E-03, 0.70387E-03, 0.67680E-03, 0.64973E-03, 0.62265E-03, - & 0.36669E-02, 0.34132E-02, 0.31597E-02, 0.31623E-02, 0.29212E-02, - & 0.25175E-02, 0.21899E-02, 0.19272E-02, 0.16993E-02, 0.16277E-02, - & 0.14678E-02, 0.13208E-02, 0.11945E-02, 0.10856E-02, 0.99098E-03, - & 0.90787E-03, 0.83548E-03, 0.77263E-03, 0.71831E-03, 0.67259E-03, - & 0.63728E-03, 0.60978E-03, 0.58846E-03, 0.56714E-03, 0.54581E-03, - & 0.52449E-03, 0.50317E-03, 0.48185E-03, 0.46053E-03, 0.43921E-03, - & 0.27131E-02, 0.25253E-02, 0.23377E-02, 0.23396E-02, 0.21595E-02, - & 0.18461E-02, 0.15937E-02, 0.13928E-02, 0.12195E-02, 0.11601E-02, - & 0.10395E-02, 0.92958E-03, 0.83567E-03, 0.75508E-03, 0.68546E-03, - & 0.62456E-03, 0.57178E-03, 0.52613E-03, 0.48681E-03, 0.45377E-03, - & 0.42818E-03, 0.40805E-03, 0.39217E-03, 0.37629E-03, 0.36042E-03, - & 0.34454E-03, 0.32867E-03, 0.31279E-03, 0.29692E-03, 0.28104E-03, - & 0.18230E-02, 0.16968E-02, 0.15707E-02, 0.15719E-02, 0.14493E-02, - & 0.12253E-02, 0.10469E-02, 0.90644E-03, 0.78604E-03, 0.74103E-03, - & 0.65833E-03, 0.58394E-03, 0.52086E-03, 0.46712E-03, 0.42101E-03, - & 0.38092E-03, 0.34639E-03, 0.31669E-03, 0.29121E-03, 0.26984E-03, - & 0.25324E-03, 0.24002E-03, 0.22938E-03, 0.21875E-03, 0.20811E-03, - & 0.19748E-03, 0.18684E-03, 0.17621E-03, 0.16557E-03, 0.15493E-03, - & 0.10263E-02, 0.95530E-03, 0.88431E-03, 0.88502E-03, 0.81475E-03, - & 0.67822E-03, 0.57116E-03, 0.48820E-03, 0.41777E-03, 0.38894E-03, - & 0.34154E-03, 0.29960E-03, 0.26442E-03, 0.23475E-03, 0.20954E-03, - & 0.18781E-03, 0.16925E-03, 0.15340E-03, 0.13989E-03, 0.12859E-03, - & 0.11978E-03, 0.11268E-03, 0.10685E-03, 0.10103E-03, 0.95207E-04, - & 0.89383E-04, 0.83560E-04, 0.77737E-04, 0.71913E-04, 0.66090E-04, - & 0.38393E-03, 0.35735E-03, 0.33080E-03, 0.33107E-03, 0.30413E-03, - & 0.24777E-03, 0.20451E-03, 0.17171E-03, 0.14426E-03, 0.13199E-03, - & 0.11406E-03, 0.98550E-04, 0.85726E-04, 0.75067E-04, 0.66132E-04, - & 0.58519E-04, 0.52095E-04, 0.46668E-04, 0.42078E-04, 0.38263E-04, - & 0.35283E-04, 0.32852E-04, 0.30826E-04, 0.28801E-04, 0.26776E-04, - & 0.24751E-04, 0.22726E-04, 0.20700E-04, 0.18675E-04, 0.16650E-04, - & 0.42563E-04, 0.39616E-04, 0.36673E-04, 0.36702E-04, 0.33686E-04, - & 0.27193E-04, 0.22249E-04, 0.18534E-04, 0.15441E-04, 0.14016E-04, - & 0.12022E-04, 0.10312E-04, 0.89071E-05, 0.77470E-05, 0.67804E-05, - & 0.59611E-05, 0.52736E-05, 0.46957E-05, 0.42087E-05, 0.38052E-05, - & 0.34898E-05, 0.32312E-05, 0.30144E-05, 0.27976E-05, 0.25808E-05, - & 0.23640E-05, 0.21472E-05, 0.19304E-05, 0.17136E-05, 0.14968E-05/ - - data ((c2grrl(i,j),j=1,30),i= 1, 10)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 11, 20)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 21, 30)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 31, 40)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 41, 50)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 51, 60)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 61, 70)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 71, 80)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 81, 90)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 91,100)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30/ - - data ((clgrrl(i,j),j=1,30),i= 1, 10)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 11, 20)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 21, 30)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 31, 40)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 41, 50)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 51, 60)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 61, 70)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 71, 80)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 81, 90)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 91,100)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30/ - - DO I=1, 100 - DO J=1, 30 - U_GRD(I,J) = U_GRDL(I,J) - G_GRD(I,J) = G_GRDL(I,J) - F2GRD(I,J) = F2GRDL(I,J) - FLGRD(I,J) = FLGRDL(I,J) - C2GRD(I,J) = C2GRDL(I,J) - CLGRD(I,J) = CLGRDL(I,J) - F2GRR(I,J) = F2GRRL(I,J) - FLGRR(I,J) = FLGRRL(I,J) - C2GRR(I,J) = C2GRRL(I,J) - CLGRR(I,J) = CLGRRL(I,J) - ENDDO - ENDDO - RETURN - END diff --git a/GeneratorInterface/PomwigInterface/src/i_2006_fitb.f b/GeneratorInterface/PomwigInterface/src/i_2006_fitb.f deleted file mode 100644 index a76b042ed4905..0000000000000 --- a/GeneratorInterface/PomwigInterface/src/i_2006_fitb.f +++ /dev/null @@ -1,6242 +0,0 @@ - SUBROUTINE i_2006_fitb - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - PARAMETER (NQ2MAX= 30,NZMAX= 100) - DIMENSION U_GRD(NZMAX,NQ2MAX), - & G_GRD(NZMAX,NQ2MAX), - & F2GRD(NZMAX,NQ2MAX), - & FLGRD(NZMAX,NQ2MAX), - & C2GRD(NZMAX,NQ2MAX), - & CLGRD(NZMAX,NQ2MAX), - & F2GRR(NZMAX,NQ2MAX), - & FLGRR(NZMAX,NQ2MAX), - & C2GRR(NZMAX,NQ2MAX), - & CLGRR(NZMAX,NQ2MAX) - DIMENSION U_GRDL(NZMAX,NQ2MAX), - & G_GRDL(NZMAX,NQ2MAX), - & F2GRDL(NZMAX,NQ2MAX), - & FLGRDL(NZMAX,NQ2MAX), - & C2GRDL(NZMAX,NQ2MAX), - & CLGRDL(NZMAX,NQ2MAX), - & F2GRRL(NZMAX,NQ2MAX), - & FLGRRL(NZMAX,NQ2MAX), - & C2GRRL(NZMAX,NQ2MAX), - & CLGRRL(NZMAX,NQ2MAX) - COMMON /CPARAM/ U_GRD,G_GRD, - & F2GRD,FLGRD,C2GRD,CLGRD, - & F2GRR,FLGRR,C2GRR,CLGRR - data ((u_grdl(i,j),j=1,30),i= 1, 10)/ - &-0.19785E-01,-0.12204E-01,-0.46167E-02, 0.36256E-02, 0.12787E-01, - & 0.22710E-01, 0.33242E-01, 0.44322E-01, 0.55706E-01, 0.67424E-01, - & 0.79419E-01, 0.91624E-01, 0.10399E+00, 0.11649E+00, 0.12909E+00, - & 0.14175E+00, 0.15446E+00, 0.16720E+00, 0.17995E+00, 0.19270E+00, - & 0.20543E+00, 0.21814E+00, 0.23084E+00, 0.24353E+00, 0.25623E+00, - & 0.26892E+00, 0.28162E+00, 0.29431E+00, 0.30701E+00, 0.31970E+00, - &-0.19629E-01,-0.12105E-01,-0.45751E-02, 0.35872E-02, 0.12634E-01, - & 0.22409E-01, 0.32766E-01, 0.43641E-01, 0.54802E-01, 0.66275E-01, - & 0.78005E-01, 0.89929E-01, 0.10200E+00, 0.11419E+00, 0.12646E+00, - & 0.13879E+00, 0.15115E+00, 0.16354E+00, 0.17593E+00, 0.18830E+00, - & 0.20066E+00, 0.21298E+00, 0.22529E+00, 0.23760E+00, 0.24991E+00, - & 0.26221E+00, 0.27452E+00, 0.28683E+00, 0.29914E+00, 0.31145E+00, - &-0.19472E-01,-0.12005E-01,-0.45335E-02, 0.35489E-02, 0.12482E-01, - & 0.22111E-01, 0.32293E-01, 0.42966E-01, 0.53907E-01, 0.65140E-01, - & 0.76610E-01, 0.88256E-01, 0.10004E+00, 0.11192E+00, 0.12387E+00, - & 0.13587E+00, 0.14790E+00, 0.15994E+00, 0.17197E+00, 0.18399E+00, - & 0.19597E+00, 0.20792E+00, 0.21985E+00, 0.23178E+00, 0.24371E+00, - & 0.25564E+00, 0.26758E+00, 0.27951E+00, 0.29144E+00, 0.30337E+00, - &-0.19314E-01,-0.11906E-01,-0.44917E-02, 0.35108E-02, 0.12330E-01, - & 0.21815E-01, 0.31825E-01, 0.42297E-01, 0.53021E-01, 0.64017E-01, - & 0.75231E-01, 0.86606E-01, 0.98100E-01, 0.10968E+00, 0.12133E+00, - & 0.13300E+00, 0.14470E+00, 0.15640E+00, 0.16809E+00, 0.17975E+00, - & 0.19137E+00, 0.20296E+00, 0.21452E+00, 0.22608E+00, 0.23764E+00, - & 0.24920E+00, 0.26077E+00, 0.27233E+00, 0.28389E+00, 0.29545E+00, - &-0.19156E-01,-0.11806E-01,-0.44498E-02, 0.34728E-02, 0.12179E-01, - & 0.21521E-01, 0.31360E-01, 0.41636E-01, 0.52146E-01, 0.62908E-01, - & 0.73871E-01, 0.84978E-01, 0.96192E-01, 0.10748E+00, 0.11882E+00, - & 0.13018E+00, 0.14156E+00, 0.15292E+00, 0.16427E+00, 0.17559E+00, - & 0.18686E+00, 0.19809E+00, 0.20929E+00, 0.22050E+00, 0.23170E+00, - & 0.24290E+00, 0.25411E+00, 0.26531E+00, 0.27651E+00, 0.28772E+00, - &-0.18998E-01,-0.11705E-01,-0.44079E-02, 0.34349E-02, 0.12029E-01, - & 0.21228E-01, 0.30900E-01, 0.40980E-01, 0.51280E-01, 0.61812E-01, - & 0.72528E-01, 0.83373E-01, 0.94310E-01, 0.10531E+00, 0.11635E+00, - & 0.12741E+00, 0.13846E+00, 0.14951E+00, 0.16052E+00, 0.17150E+00, - & 0.18243E+00, 0.19332E+00, 0.20417E+00, 0.21503E+00, 0.22588E+00, - & 0.23674E+00, 0.24759E+00, 0.25845E+00, 0.26930E+00, 0.28016E+00, - &-0.18839E-01,-0.11605E-01,-0.43658E-02, 0.33973E-02, 0.11879E-01, - & 0.20938E-01, 0.30443E-01, 0.40331E-01, 0.50423E-01, 0.60730E-01, - & 0.71202E-01, 0.81790E-01, 0.92457E-01, 0.10318E+00, 0.11392E+00, - & 0.12468E+00, 0.13543E+00, 0.14615E+00, 0.15685E+00, 0.16750E+00, - & 0.17809E+00, 0.18864E+00, 0.19915E+00, 0.20966E+00, 0.22017E+00, - & 0.23069E+00, 0.24120E+00, 0.25171E+00, 0.26223E+00, 0.27274E+00, - &-0.18679E-01,-0.11503E-01,-0.43236E-02, 0.33598E-02, 0.11731E-01, - & 0.20650E-01, 0.29990E-01, 0.39689E-01, 0.49576E-01, 0.59660E-01, - & 0.69893E-01, 0.80228E-01, 0.90630E-01, 0.10107E+00, 0.11153E+00, - & 0.12199E+00, 0.13244E+00, 0.14286E+00, 0.15323E+00, 0.16356E+00, - & 0.17383E+00, 0.18405E+00, 0.19423E+00, 0.20441E+00, 0.21459E+00, - & 0.22477E+00, 0.23495E+00, 0.24513E+00, 0.25531E+00, 0.26549E+00, - &-0.18519E-01,-0.11402E-01,-0.42813E-02, 0.33225E-02, 0.11583E-01, - & 0.20364E-01, 0.29542E-01, 0.39053E-01, 0.48739E-01, 0.58604E-01, - & 0.68602E-01, 0.78688E-01, 0.88830E-01, 0.99001E-01, 0.10918E+00, - & 0.11935E+00, 0.12950E+00, 0.13962E+00, 0.14969E+00, 0.15971E+00, - & 0.16965E+00, 0.17955E+00, 0.18940E+00, 0.19926E+00, 0.20912E+00, - & 0.21898E+00, 0.22883E+00, 0.23869E+00, 0.24855E+00, 0.25840E+00, - &-0.18358E-01,-0.11300E-01,-0.42388E-02, 0.32854E-02, 0.11437E-01, - & 0.20080E-01, 0.29097E-01, 0.38424E-01, 0.47910E-01, 0.57560E-01, - & 0.67327E-01, 0.77169E-01, 0.87056E-01, 0.96962E-01, 0.10687E+00, - & 0.11676E+00, 0.12662E+00, 0.13644E+00, 0.14621E+00, 0.15592E+00, - & 0.16555E+00, 0.17513E+00, 0.18468E+00, 0.19422E+00, 0.20376E+00, - & 0.21330E+00, 0.22284E+00, 0.23239E+00, 0.24193E+00, 0.25147E+00/ - - data ((u_grdl(i,j),j=1,30),i= 11, 20)/ - &-0.18196E-01,-0.11198E-01,-0.41963E-02, 0.32485E-02, 0.11291E-01, - & 0.19799E-01, 0.28656E-01, 0.37801E-01, 0.47091E-01, 0.56529E-01, - & 0.66069E-01, 0.75672E-01, 0.85308E-01, 0.94954E-01, 0.10459E+00, - & 0.11421E+00, 0.12378E+00, 0.13331E+00, 0.14279E+00, 0.15220E+00, - & 0.16153E+00, 0.17081E+00, 0.18004E+00, 0.18928E+00, 0.19851E+00, - & 0.20774E+00, 0.21698E+00, 0.22621E+00, 0.23544E+00, 0.24468E+00, - &-0.18033E-01,-0.11095E-01,-0.41536E-02, 0.32119E-02, 0.11146E-01, - & 0.19519E-01, 0.28219E-01, 0.37184E-01, 0.46282E-01, 0.55510E-01, - & 0.64828E-01, 0.74196E-01, 0.83586E-01, 0.92977E-01, 0.10235E+00, - & 0.11170E+00, 0.12100E+00, 0.13025E+00, 0.13944E+00, 0.14856E+00, - & 0.15759E+00, 0.16657E+00, 0.17551E+00, 0.18444E+00, 0.19338E+00, - & 0.20231E+00, 0.21125E+00, 0.22018E+00, 0.22911E+00, 0.23805E+00, - &-0.17871E-01,-0.10993E-01,-0.41108E-02, 0.31755E-02, 0.11001E-01, - & 0.19242E-01, 0.27786E-01, 0.36574E-01, 0.45482E-01, 0.54505E-01, - & 0.63603E-01, 0.72741E-01, 0.81890E-01, 0.91032E-01, 0.10015E+00, - & 0.10923E+00, 0.11826E+00, 0.12723E+00, 0.13614E+00, 0.14498E+00, - & 0.15373E+00, 0.16242E+00, 0.17106E+00, 0.17971E+00, 0.18835E+00, - & 0.19699E+00, 0.20563E+00, 0.21428E+00, 0.22292E+00, 0.23156E+00, - &-0.17707E-01,-0.10889E-01,-0.40678E-02, 0.31393E-02, 0.10858E-01, - & 0.18966E-01, 0.27357E-01, 0.35970E-01, 0.44690E-01, 0.53512E-01, - & 0.62395E-01, 0.71306E-01, 0.80220E-01, 0.89116E-01, 0.97982E-01, - & 0.10680E+00, 0.11557E+00, 0.12428E+00, 0.13291E+00, 0.14147E+00, - & 0.14994E+00, 0.15835E+00, 0.16671E+00, 0.17507E+00, 0.18342E+00, - & 0.19178E+00, 0.20014E+00, 0.20850E+00, 0.21686E+00, 0.22522E+00, - &-0.17543E-01,-0.10785E-01,-0.40247E-02, 0.31034E-02, 0.10716E-01, - & 0.18693E-01, 0.26932E-01, 0.35373E-01, 0.43909E-01, 0.52531E-01, - & 0.61203E-01, 0.69892E-01, 0.78574E-01, 0.87231E-01, 0.95850E-01, - & 0.10442E+00, 0.11293E+00, 0.12137E+00, 0.12974E+00, 0.13803E+00, - & 0.14623E+00, 0.15436E+00, 0.16244E+00, 0.17052E+00, 0.17861E+00, - & 0.18669E+00, 0.19477E+00, 0.20285E+00, 0.21094E+00, 0.21902E+00, - &-0.17379E-01,-0.10682E-01,-0.39814E-02, 0.30679E-02, 0.10575E-01, - & 0.18422E-01, 0.26511E-01, 0.34782E-01, 0.43136E-01, 0.51563E-01, - & 0.60027E-01, 0.68498E-01, 0.76953E-01, 0.85376E-01, 0.93754E-01, - & 0.10208E+00, 0.11034E+00, 0.11852E+00, 0.12663E+00, 0.13466E+00, - & 0.14259E+00, 0.15045E+00, 0.15826E+00, 0.16608E+00, 0.17389E+00, - & 0.18170E+00, 0.18952E+00, 0.19733E+00, 0.20514E+00, 0.21296E+00, - &-0.17213E-01,-0.10577E-01,-0.39379E-02, 0.30326E-02, 0.10434E-01, - & 0.18154E-01, 0.26094E-01, 0.34197E-01, 0.42372E-01, 0.50607E-01, - & 0.58867E-01, 0.67124E-01, 0.75358E-01, 0.83551E-01, 0.91692E-01, - & 0.99774E-01, 0.10779E+00, 0.11572E+00, 0.12358E+00, 0.13135E+00, - & 0.13902E+00, 0.14662E+00, 0.15417E+00, 0.16172E+00, 0.16927E+00, - & 0.17683E+00, 0.18438E+00, 0.19193E+00, 0.19948E+00, 0.20703E+00, - &-0.17048E-01,-0.10473E-01,-0.38942E-02, 0.29977E-02, 0.10295E-01, - & 0.17887E-01, 0.25681E-01, 0.33619E-01, 0.41618E-01, 0.49664E-01, - & 0.57723E-01, 0.65770E-01, 0.73786E-01, 0.81754E-01, 0.89665E-01, - & 0.97511E-01, 0.10528E+00, 0.11297E+00, 0.12058E+00, 0.12810E+00, - & 0.13552E+00, 0.14287E+00, 0.15016E+00, 0.15746E+00, 0.16476E+00, - & 0.17205E+00, 0.17935E+00, 0.18665E+00, 0.19394E+00, 0.20124E+00, - &-0.16881E-01,-0.10367E-01,-0.38503E-02, 0.29632E-02, 0.10157E-01, - & 0.17623E-01, 0.25272E-01, 0.33047E-01, 0.40872E-01, 0.48732E-01, - & 0.56595E-01, 0.64437E-01, 0.72239E-01, 0.79987E-01, 0.87671E-01, - & 0.95287E-01, 0.10282E+00, 0.11028E+00, 0.11765E+00, 0.12492E+00, - & 0.13209E+00, 0.13919E+00, 0.14624E+00, 0.15329E+00, 0.16034E+00, - & 0.16739E+00, 0.17443E+00, 0.18148E+00, 0.18853E+00, 0.19558E+00, - &-0.16715E-01,-0.10262E-01,-0.38062E-02, 0.29291E-02, 0.10020E-01, - & 0.17361E-01, 0.24867E-01, 0.32482E-01, 0.40136E-01, 0.47813E-01, - & 0.55483E-01, 0.63123E-01, 0.70716E-01, 0.78248E-01, 0.85712E-01, - & 0.93103E-01, 0.10041E+00, 0.10763E+00, 0.11476E+00, 0.12180E+00, - & 0.12873E+00, 0.13559E+00, 0.14240E+00, 0.14921E+00, 0.15601E+00, - & 0.16282E+00, 0.16963E+00, 0.17643E+00, 0.18324E+00, 0.19005E+00/ - - data ((u_grdl(i,j),j=1,30),i= 21, 30)/ - &-0.16548E-01,-0.10156E-01,-0.37618E-02, 0.28954E-02, 0.98837E-02, - & 0.17102E-01, 0.24466E-01, 0.31922E-01, 0.39409E-01, 0.46906E-01, - & 0.54387E-01, 0.61828E-01, 0.69216E-01, 0.76537E-01, 0.83785E-01, - & 0.90956E-01, 0.98041E-01, 0.10503E+00, 0.11194E+00, 0.11875E+00, - & 0.12544E+00, 0.13207E+00, 0.13864E+00, 0.14521E+00, 0.15178E+00, - & 0.15836E+00, 0.16493E+00, 0.17150E+00, 0.17807E+00, 0.18464E+00, - &-0.16380E-01,-0.10050E-01,-0.37172E-02, 0.28621E-02, 0.97489E-02, - & 0.16845E-01, 0.24070E-01, 0.31370E-01, 0.38691E-01, 0.46012E-01, - & 0.53305E-01, 0.60553E-01, 0.67740E-01, 0.74855E-01, 0.81892E-01, - & 0.88848E-01, 0.95714E-01, 0.10249E+00, 0.10917E+00, 0.11575E+00, - & 0.12222E+00, 0.12862E+00, 0.13496E+00, 0.14130E+00, 0.14765E+00, - & 0.15399E+00, 0.16033E+00, 0.16668E+00, 0.17302E+00, 0.17936E+00, - &-0.16212E-01,-0.99432E-02,-0.36722E-02, 0.28294E-02, 0.96153E-02, - & 0.16590E-01, 0.23677E-01, 0.30824E-01, 0.37981E-01, 0.45129E-01, - & 0.52240E-01, 0.59297E-01, 0.66287E-01, 0.73201E-01, 0.80031E-01, - & 0.86777E-01, 0.93430E-01, 0.99986E-01, 0.10645E+00, 0.11281E+00, - & 0.11906E+00, 0.12524E+00, 0.13136E+00, 0.13748E+00, 0.14360E+00, - & 0.14972E+00, 0.15584E+00, 0.16196E+00, 0.16809E+00, 0.17421E+00, - &-0.16043E-01,-0.98359E-02,-0.36269E-02, 0.27973E-02, 0.94831E-02, - & 0.16338E-01, 0.23289E-01, 0.30284E-01, 0.37281E-01, 0.44258E-01, - & 0.51190E-01, 0.58060E-01, 0.64858E-01, 0.71574E-01, 0.78202E-01, - & 0.84743E-01, 0.91188E-01, 0.97534E-01, 0.10378E+00, 0.10993E+00, - & 0.11597E+00, 0.12193E+00, 0.12783E+00, 0.13374E+00, 0.13964E+00, - & 0.14555E+00, 0.15145E+00, 0.15736E+00, 0.16326E+00, 0.16917E+00, - &-0.15874E-01,-0.97285E-02,-0.35812E-02, 0.27657E-02, 0.93521E-02, - & 0.16089E-01, 0.22906E-01, 0.29751E-01, 0.36590E-01, 0.43400E-01, - & 0.50155E-01, 0.56842E-01, 0.63452E-01, 0.69974E-01, 0.76405E-01, - & 0.82746E-01, 0.88988E-01, 0.95129E-01, 0.10117E+00, 0.10711E+00, - & 0.11294E+00, 0.11869E+00, 0.12438E+00, 0.13008E+00, 0.13577E+00, - & 0.14147E+00, 0.14716E+00, 0.15286E+00, 0.15855E+00, 0.16425E+00, - &-0.15704E-01,-0.96204E-02,-0.35352E-02, 0.27348E-02, 0.92226E-02, - & 0.15842E-01, 0.22526E-01, 0.29224E-01, 0.35908E-01, 0.42553E-01, - & 0.49136E-01, 0.55644E-01, 0.62069E-01, 0.68402E-01, 0.74640E-01, - & 0.80785E-01, 0.86829E-01, 0.92770E-01, 0.98611E-01, 0.10435E+00, - & 0.10997E+00, 0.11552E+00, 0.12101E+00, 0.12650E+00, 0.13199E+00, - & 0.13748E+00, 0.14297E+00, 0.14846E+00, 0.15396E+00, 0.15945E+00, - &-0.15534E-01,-0.95121E-02,-0.34886E-02, 0.27047E-02, 0.90945E-02, - & 0.15598E-01, 0.22151E-01, 0.28704E-01, 0.35236E-01, 0.41718E-01, - & 0.48131E-01, 0.54464E-01, 0.60708E-01, 0.66856E-01, 0.72906E-01, - & 0.78860E-01, 0.84711E-01, 0.90457E-01, 0.96101E-01, 0.10164E+00, - & 0.10707E+00, 0.11241E+00, 0.11771E+00, 0.12300E+00, 0.12829E+00, - & 0.13359E+00, 0.13888E+00, 0.14417E+00, 0.14946E+00, 0.15476E+00, - &-0.15362E-01,-0.94028E-02,-0.34416E-02, 0.26753E-02, 0.89680E-02, - & 0.15357E-01, 0.21780E-01, 0.28191E-01, 0.34572E-01, 0.40896E-01, - & 0.47143E-01, 0.53303E-01, 0.59370E-01, 0.65338E-01, 0.71204E-01, - & 0.76971E-01, 0.82633E-01, 0.88189E-01, 0.93643E-01, 0.98992E-01, - & 0.10422E+00, 0.10938E+00, 0.11448E+00, 0.11958E+00, 0.12468E+00, - & 0.12978E+00, 0.13488E+00, 0.13998E+00, 0.14508E+00, 0.15018E+00, - &-0.15191E-01,-0.92931E-02,-0.33940E-02, 0.26467E-02, 0.88431E-02, - & 0.15119E-01, 0.21414E-01, 0.27685E-01, 0.33918E-01, 0.40085E-01, - & 0.46169E-01, 0.52161E-01, 0.58055E-01, 0.63846E-01, 0.69532E-01, - & 0.75117E-01, 0.80596E-01, 0.85966E-01, 0.91234E-01, 0.96396E-01, - & 0.10144E+00, 0.10641E+00, 0.11132E+00, 0.11623E+00, 0.12115E+00, - & 0.12606E+00, 0.13097E+00, 0.13588E+00, 0.14080E+00, 0.14571E+00, - &-0.15019E-01,-0.91829E-02,-0.33458E-02, 0.26191E-02, 0.87199E-02, - & 0.14883E-01, 0.21053E-01, 0.27185E-01, 0.33273E-01, 0.39287E-01, - & 0.45210E-01, 0.51037E-01, 0.56762E-01, 0.62380E-01, 0.67890E-01, - & 0.73298E-01, 0.78598E-01, 0.83788E-01, 0.88874E-01, 0.93855E-01, - & 0.98717E-01, 0.10350E+00, 0.10823E+00, 0.11297E+00, 0.11770E+00, - & 0.12243E+00, 0.12716E+00, 0.13189E+00, 0.13662E+00, 0.14135E+00/ - - data ((u_grdl(i,j),j=1,30),i= 31, 40)/ - &-0.14846E-01,-0.90722E-02,-0.32969E-02, 0.25925E-02, 0.85986E-02, - & 0.14651E-01, 0.20697E-01, 0.26692E-01, 0.32637E-01, 0.38501E-01, - & 0.44267E-01, 0.49932E-01, 0.55491E-01, 0.60940E-01, 0.66279E-01, - & 0.71514E-01, 0.76638E-01, 0.81653E-01, 0.86563E-01, 0.91367E-01, - & 0.96052E-01, 0.10066E+00, 0.10522E+00, 0.10977E+00, 0.11432E+00, - & 0.11888E+00, 0.12343E+00, 0.12799E+00, 0.13254E+00, 0.13710E+00, - &-0.14673E-01,-0.89606E-02,-0.32473E-02, 0.25670E-02, 0.84791E-02, - & 0.14422E-01, 0.20345E-01, 0.26206E-01, 0.32010E-01, 0.37726E-01, - & 0.43339E-01, 0.48845E-01, 0.54242E-01, 0.59526E-01, 0.64698E-01, - & 0.69764E-01, 0.74718E-01, 0.79562E-01, 0.84300E-01, 0.88932E-01, - & 0.93445E-01, 0.97883E-01, 0.10227E+00, 0.10665E+00, 0.11103E+00, - & 0.11542E+00, 0.11980E+00, 0.12418E+00, 0.12856E+00, 0.13295E+00, - &-0.14499E-01,-0.88486E-02,-0.31967E-02, 0.25428E-02, 0.83617E-02, - & 0.14196E-01, 0.19998E-01, 0.25728E-01, 0.31393E-01, 0.36964E-01, - & 0.42426E-01, 0.47778E-01, 0.53016E-01, 0.58138E-01, 0.63147E-01, - & 0.68048E-01, 0.72836E-01, 0.77513E-01, 0.82084E-01, 0.86549E-01, - & 0.90896E-01, 0.95167E-01, 0.99384E-01, 0.10360E+00, 0.10782E+00, - & 0.11203E+00, 0.11625E+00, 0.12047E+00, 0.12468E+00, 0.12890E+00, - &-0.14325E-01,-0.87354E-02,-0.31453E-02, 0.25198E-02, 0.82465E-02, - & 0.13973E-01, 0.19657E-01, 0.25256E-01, 0.30786E-01, 0.36215E-01, - & 0.41529E-01, 0.46728E-01, 0.51811E-01, 0.56776E-01, 0.61625E-01, - & 0.66366E-01, 0.70992E-01, 0.75507E-01, 0.79916E-01, 0.84218E-01, - & 0.88403E-01, 0.92512E-01, 0.96568E-01, 0.10062E+00, 0.10468E+00, - & 0.10873E+00, 0.11279E+00, 0.11684E+00, 0.12090E+00, 0.12495E+00, - &-0.14149E-01,-0.86212E-02,-0.30928E-02, 0.24984E-02, 0.81337E-02, - & 0.13755E-01, 0.19320E-01, 0.24792E-01, 0.30189E-01, 0.35477E-01, - & 0.40647E-01, 0.45697E-01, 0.50629E-01, 0.55440E-01, 0.60133E-01, - & 0.64717E-01, 0.69186E-01, 0.73543E-01, 0.77794E-01, 0.81938E-01, - & 0.85965E-01, 0.89918E-01, 0.93817E-01, 0.97715E-01, 0.10161E+00, - & 0.10551E+00, 0.10941E+00, 0.11331E+00, 0.11721E+00, 0.12111E+00, - &-0.13972E-01,-0.85061E-02,-0.30391E-02, 0.24785E-02, 0.80232E-02, - & 0.13540E-01, 0.18990E-01, 0.24336E-01, 0.29601E-01, 0.34752E-01, - & 0.39780E-01, 0.44685E-01, 0.49468E-01, 0.54129E-01, 0.58671E-01, - & 0.63102E-01, 0.67417E-01, 0.71620E-01, 0.75718E-01, 0.79709E-01, - & 0.83583E-01, 0.87383E-01, 0.91130E-01, 0.94876E-01, 0.98622E-01, - & 0.10237E+00, 0.10611E+00, 0.10986E+00, 0.11361E+00, 0.11735E+00, - &-0.13796E-01,-0.83902E-02,-0.29841E-02, 0.24605E-02, 0.79155E-02, - & 0.13328E-01, 0.18664E-01, 0.23887E-01, 0.29023E-01, 0.34040E-01, - & 0.38929E-01, 0.43691E-01, 0.48330E-01, 0.52844E-01, 0.57237E-01, - & 0.61519E-01, 0.65686E-01, 0.69739E-01, 0.73687E-01, 0.77529E-01, - & 0.81255E-01, 0.84908E-01, 0.88507E-01, 0.92106E-01, 0.95705E-01, - & 0.99304E-01, 0.10290E+00, 0.10650E+00, 0.11010E+00, 0.11370E+00, - &-0.13617E-01,-0.82726E-02,-0.29277E-02, 0.24443E-02, 0.78106E-02, - & 0.13122E-01, 0.18345E-01, 0.23446E-01, 0.28455E-01, 0.33341E-01, - & 0.38093E-01, 0.42716E-01, 0.47213E-01, 0.51584E-01, 0.55833E-01, - & 0.59970E-01, 0.63991E-01, 0.67899E-01, 0.71702E-01, 0.75399E-01, - & 0.78981E-01, 0.82490E-01, 0.85946E-01, 0.89402E-01, 0.92858E-01, - & 0.96315E-01, 0.99771E-01, 0.10323E+00, 0.10668E+00, 0.11014E+00, - &-0.13438E-01,-0.81540E-02,-0.28696E-02, 0.24304E-02, 0.77088E-02, - & 0.12919E-01, 0.18032E-01, 0.23013E-01, 0.27898E-01, 0.32654E-01, - & 0.37273E-01, 0.41760E-01, 0.46118E-01, 0.50349E-01, 0.54458E-01, - & 0.58453E-01, 0.62333E-01, 0.66100E-01, 0.69761E-01, 0.73318E-01, - & 0.76760E-01, 0.80131E-01, 0.83448E-01, 0.86766E-01, 0.90083E-01, - & 0.93401E-01, 0.96719E-01, 0.10004E+00, 0.10335E+00, 0.10667E+00, - &-0.13258E-01,-0.80338E-02,-0.28097E-02, 0.24187E-02, 0.76102E-02, - & 0.12721E-01, 0.17725E-01, 0.22588E-01, 0.27351E-01, 0.31980E-01, - & 0.36469E-01, 0.40822E-01, 0.45046E-01, 0.49140E-01, 0.53111E-01, - & 0.56969E-01, 0.60711E-01, 0.64340E-01, 0.67865E-01, 0.71285E-01, - & 0.74592E-01, 0.77827E-01, 0.81011E-01, 0.84194E-01, 0.87378E-01, - & 0.90561E-01, 0.93745E-01, 0.96928E-01, 0.10011E+00, 0.10329E+00/ - - data ((u_grdl(i,j),j=1,30),i= 41, 50)/ - &-0.13075E-01,-0.79117E-02,-0.27478E-02, 0.24097E-02, 0.75152E-02, - & 0.12528E-01, 0.17424E-01, 0.22172E-01, 0.26816E-01, 0.31320E-01, - & 0.35681E-01, 0.39904E-01, 0.43995E-01, 0.47957E-01, 0.51794E-01, - & 0.55518E-01, 0.59126E-01, 0.62622E-01, 0.66013E-01, 0.69301E-01, - & 0.72476E-01, 0.75581E-01, 0.78634E-01, 0.81688E-01, 0.84741E-01, - & 0.87795E-01, 0.90848E-01, 0.93901E-01, 0.96955E-01, 0.10001E+00, - &-0.12892E-01,-0.77878E-02,-0.26837E-02, 0.24035E-02, 0.74239E-02, - & 0.12340E-01, 0.17130E-01, 0.21765E-01, 0.26291E-01, 0.30673E-01, - & 0.34909E-01, 0.39005E-01, 0.42967E-01, 0.46799E-01, 0.50506E-01, - & 0.54099E-01, 0.57577E-01, 0.60942E-01, 0.64204E-01, 0.67364E-01, - & 0.70412E-01, 0.73390E-01, 0.76318E-01, 0.79246E-01, 0.82173E-01, - & 0.85101E-01, 0.88028E-01, 0.90956E-01, 0.93884E-01, 0.96811E-01, - &-0.12707E-01,-0.76620E-02,-0.26170E-02, 0.24004E-02, 0.73369E-02, - & 0.12157E-01, 0.16844E-01, 0.21366E-01, 0.25777E-01, 0.30040E-01, - & 0.34153E-01, 0.38125E-01, 0.41962E-01, 0.45666E-01, 0.49246E-01, - & 0.52713E-01, 0.56063E-01, 0.59303E-01, 0.62439E-01, 0.65474E-01, - & 0.68399E-01, 0.71255E-01, 0.74060E-01, 0.76866E-01, 0.79672E-01, - & 0.82477E-01, 0.85283E-01, 0.88089E-01, 0.90894E-01, 0.93700E-01, - &-0.12520E-01,-0.75335E-02,-0.25475E-02, 0.24008E-02, 0.72542E-02, - & 0.11981E-01, 0.16564E-01, 0.20978E-01, 0.25275E-01, 0.29422E-01, - & 0.33415E-01, 0.37264E-01, 0.40978E-01, 0.44560E-01, 0.48016E-01, - & 0.51359E-01, 0.54586E-01, 0.57703E-01, 0.60718E-01, 0.63632E-01, - & 0.66437E-01, 0.69174E-01, 0.71861E-01, 0.74549E-01, 0.77236E-01, - & 0.79924E-01, 0.82612E-01, 0.85299E-01, 0.87987E-01, 0.90674E-01, - &-0.12330E-01,-0.74025E-02,-0.24750E-02, 0.24050E-02, 0.71764E-02, - & 0.11810E-01, 0.16293E-01, 0.20599E-01, 0.24785E-01, 0.28817E-01, - & 0.32693E-01, 0.36424E-01, 0.40018E-01, 0.43479E-01, 0.46815E-01, - & 0.50037E-01, 0.53145E-01, 0.56143E-01, 0.59039E-01, 0.61836E-01, - & 0.64525E-01, 0.67147E-01, 0.69721E-01, 0.72294E-01, 0.74867E-01, - & 0.77441E-01, 0.80014E-01, 0.82588E-01, 0.85161E-01, 0.87734E-01, - &-0.12139E-01,-0.72687E-02,-0.23989E-02, 0.24133E-02, 0.71038E-02, - & 0.11646E-01, 0.16030E-01, 0.20230E-01, 0.24308E-01, 0.28227E-01, - & 0.31988E-01, 0.35604E-01, 0.39080E-01, 0.42424E-01, 0.45643E-01, - & 0.48748E-01, 0.51739E-01, 0.54622E-01, 0.57403E-01, 0.60087E-01, - & 0.62664E-01, 0.65175E-01, 0.67638E-01, 0.70101E-01, 0.72564E-01, - & 0.75027E-01, 0.77490E-01, 0.79953E-01, 0.82416E-01, 0.84879E-01, - &-0.11944E-01,-0.71315E-02,-0.23190E-02, 0.24263E-02, 0.70369E-02, - & 0.11489E-01, 0.15776E-01, 0.19872E-01, 0.23843E-01, 0.27653E-01, - & 0.31302E-01, 0.34804E-01, 0.38166E-01, 0.41396E-01, 0.44500E-01, - & 0.47492E-01, 0.50370E-01, 0.53140E-01, 0.55811E-01, 0.58384E-01, - & 0.60852E-01, 0.63256E-01, 0.65612E-01, 0.67968E-01, 0.70324E-01, - & 0.72680E-01, 0.75036E-01, 0.77392E-01, 0.79748E-01, 0.82105E-01, - &-0.11747E-01,-0.69905E-02,-0.22348E-02, 0.24444E-02, 0.69762E-02, - & 0.11340E-01, 0.15530E-01, 0.19525E-01, 0.23391E-01, 0.27094E-01, - & 0.30633E-01, 0.34024E-01, 0.37276E-01, 0.40394E-01, 0.43387E-01, - & 0.46268E-01, 0.49037E-01, 0.51698E-01, 0.54260E-01, 0.56727E-01, - & 0.59090E-01, 0.61389E-01, 0.63642E-01, 0.65895E-01, 0.68148E-01, - & 0.70401E-01, 0.72654E-01, 0.74906E-01, 0.77159E-01, 0.79412E-01, - &-0.11546E-01,-0.68454E-02,-0.21458E-02, 0.24680E-02, 0.69221E-02, - & 0.11199E-01, 0.15295E-01, 0.19190E-01, 0.22954E-01, 0.26551E-01, - & 0.29983E-01, 0.33266E-01, 0.36410E-01, 0.39419E-01, 0.42304E-01, - & 0.45078E-01, 0.47740E-01, 0.50295E-01, 0.52753E-01, 0.55116E-01, - & 0.57378E-01, 0.59576E-01, 0.61729E-01, 0.63882E-01, 0.66035E-01, - & 0.68188E-01, 0.70341E-01, 0.72494E-01, 0.74647E-01, 0.76799E-01, - &-0.11341E-01,-0.66957E-02,-0.20514E-02, 0.24979E-02, 0.68754E-02, - & 0.11066E-01, 0.15070E-01, 0.18867E-01, 0.22530E-01, 0.26024E-01, - & 0.29352E-01, 0.32530E-01, 0.35567E-01, 0.38471E-01, 0.41251E-01, - & 0.43921E-01, 0.46479E-01, 0.48931E-01, 0.51288E-01, 0.53552E-01, - & 0.55715E-01, 0.57816E-01, 0.59872E-01, 0.61928E-01, 0.63984E-01, - & 0.66041E-01, 0.68097E-01, 0.70153E-01, 0.72209E-01, 0.74266E-01/ - - data ((u_grdl(i,j),j=1,30),i= 51, 60)/ - &-0.11131E-01,-0.65405E-02,-0.19512E-02, 0.25345E-02, 0.68366E-02, - & 0.10943E-01, 0.14856E-01, 0.18557E-01, 0.22122E-01, 0.25515E-01, - & 0.28741E-01, 0.31816E-01, 0.34750E-01, 0.37551E-01, 0.40229E-01, - & 0.42797E-01, 0.45254E-01, 0.47608E-01, 0.49866E-01, 0.52033E-01, - & 0.54101E-01, 0.56108E-01, 0.58071E-01, 0.60034E-01, 0.61998E-01, - & 0.63961E-01, 0.65924E-01, 0.67887E-01, 0.69851E-01, 0.71814E-01, - &-0.10916E-01,-0.63795E-02,-0.18443E-02, 0.25786E-02, 0.68064E-02, - & 0.10830E-01, 0.14653E-01, 0.18261E-01, 0.21729E-01, 0.25024E-01, - & 0.28150E-01, 0.31124E-01, 0.33958E-01, 0.36659E-01, 0.39237E-01, - & 0.41707E-01, 0.44067E-01, 0.46324E-01, 0.48487E-01, 0.50560E-01, - & 0.52536E-01, 0.54453E-01, 0.56326E-01, 0.58199E-01, 0.60072E-01, - & 0.61945E-01, 0.63818E-01, 0.65692E-01, 0.67565E-01, 0.69438E-01, - &-0.10695E-01,-0.62122E-02,-0.17301E-02, 0.26310E-02, 0.67856E-02, - & 0.10727E-01, 0.14463E-01, 0.17978E-01, 0.21353E-01, 0.24551E-01, - & 0.27580E-01, 0.30456E-01, 0.33192E-01, 0.35796E-01, 0.38277E-01, - & 0.40651E-01, 0.42916E-01, 0.45080E-01, 0.47151E-01, 0.49134E-01, - & 0.51021E-01, 0.52849E-01, 0.54635E-01, 0.56421E-01, 0.58207E-01, - & 0.59993E-01, 0.61779E-01, 0.63565E-01, 0.65351E-01, 0.67137E-01, - &-0.10468E-01,-0.60373E-02,-0.16077E-02, 0.26925E-02, 0.67752E-02, - & 0.10637E-01, 0.14287E-01, 0.17711E-01, 0.20993E-01, 0.24097E-01, - & 0.27031E-01, 0.29812E-01, 0.32453E-01, 0.34962E-01, 0.37349E-01, - & 0.39630E-01, 0.41803E-01, 0.43877E-01, 0.45859E-01, 0.47754E-01, - & 0.49555E-01, 0.51298E-01, 0.53000E-01, 0.54702E-01, 0.56405E-01, - & 0.58107E-01, 0.59809E-01, 0.61511E-01, 0.63213E-01, 0.64915E-01, - &-0.10233E-01,-0.58543E-02,-0.14763E-02, 0.27640E-02, 0.67759E-02, - & 0.10559E-01, 0.14124E-01, 0.17460E-01, 0.20652E-01, 0.23664E-01, - & 0.26504E-01, 0.29192E-01, 0.31741E-01, 0.34157E-01, 0.36454E-01, - & 0.38644E-01, 0.40728E-01, 0.42714E-01, 0.44610E-01, 0.46420E-01, - & 0.48138E-01, 0.49799E-01, 0.51421E-01, 0.53042E-01, 0.54663E-01, - & 0.56284E-01, 0.57905E-01, 0.59526E-01, 0.61147E-01, 0.62768E-01, - &-0.99907E-02,-0.56622E-02,-0.13348E-02, 0.28466E-02, 0.67889E-02, - & 0.10494E-01, 0.13977E-01, 0.17226E-01, 0.20329E-01, 0.23252E-01, - & 0.26001E-01, 0.28598E-01, 0.31056E-01, 0.33383E-01, 0.35591E-01, - & 0.37694E-01, 0.39692E-01, 0.41592E-01, 0.43405E-01, 0.45133E-01, - & 0.46771E-01, 0.48353E-01, 0.49896E-01, 0.51439E-01, 0.52982E-01, - & 0.54525E-01, 0.56068E-01, 0.57611E-01, 0.59154E-01, 0.60697E-01, - &-0.97386E-02,-0.54597E-02,-0.11821E-02, 0.29413E-02, 0.68152E-02, - & 0.10445E-01, 0.13846E-01, 0.17011E-01, 0.20027E-01, 0.22861E-01, - & 0.25522E-01, 0.28031E-01, 0.30401E-01, 0.32641E-01, 0.34762E-01, - & 0.36780E-01, 0.38694E-01, 0.40512E-01, 0.42244E-01, 0.43893E-01, - & 0.45453E-01, 0.46960E-01, 0.48427E-01, 0.49895E-01, 0.51362E-01, - & 0.52830E-01, 0.54297E-01, 0.55765E-01, 0.57232E-01, 0.58700E-01, - &-0.94759E-02,-0.52458E-02,-0.10171E-02, 0.30495E-02, 0.68562E-02, - & 0.10411E-01, 0.13733E-01, 0.16814E-01, 0.19745E-01, 0.22494E-01, - & 0.25069E-01, 0.27491E-01, 0.29775E-01, 0.31930E-01, 0.33968E-01, - & 0.35903E-01, 0.37736E-01, 0.39475E-01, 0.41128E-01, 0.42700E-01, - & 0.44186E-01, 0.45619E-01, 0.47013E-01, 0.48408E-01, 0.49803E-01, - & 0.51198E-01, 0.52593E-01, 0.53987E-01, 0.55382E-01, 0.56777E-01, - &-0.92013E-02,-0.50191E-02,-0.83825E-03, 0.31724E-02, 0.69130E-02, - & 0.10394E-01, 0.13638E-01, 0.16638E-01, 0.19486E-01, 0.22151E-01, - & 0.24641E-01, 0.26979E-01, 0.29180E-01, 0.31253E-01, 0.33209E-01, - & 0.35064E-01, 0.36818E-01, 0.38480E-01, 0.40058E-01, 0.41555E-01, - & 0.42969E-01, 0.44330E-01, 0.45655E-01, 0.46980E-01, 0.48304E-01, - & 0.49629E-01, 0.50953E-01, 0.52278E-01, 0.53602E-01, 0.54927E-01, - &-0.89134E-02,-0.47781E-02,-0.64421E-03, 0.33116E-02, 0.69873E-02, - & 0.10397E-01, 0.13564E-01, 0.16483E-01, 0.19251E-01, 0.21833E-01, - & 0.24241E-01, 0.26497E-01, 0.28617E-01, 0.30609E-01, 0.32486E-01, - & 0.34263E-01, 0.35942E-01, 0.37528E-01, 0.39033E-01, 0.40459E-01, - & 0.41803E-01, 0.43096E-01, 0.44353E-01, 0.45610E-01, 0.46867E-01, - & 0.48124E-01, 0.49381E-01, 0.50638E-01, 0.51895E-01, 0.53151E-01/ - - data ((u_grdl(i,j),j=1,30),i= 61, 70)/ - &-0.86105E-02,-0.45211E-02,-0.43326E-03, 0.34687E-02, 0.70806E-02, - & 0.10419E-01, 0.13511E-01, 0.16352E-01, 0.19040E-01, 0.21542E-01, - & 0.23870E-01, 0.26046E-01, 0.28086E-01, 0.30001E-01, 0.31801E-01, - & 0.33502E-01, 0.35107E-01, 0.36621E-01, 0.38055E-01, 0.39412E-01, - & 0.40688E-01, 0.41915E-01, 0.43107E-01, 0.44298E-01, 0.45490E-01, - & 0.46682E-01, 0.47874E-01, 0.49066E-01, 0.50257E-01, 0.51449E-01, - &-0.82908E-02,-0.42464E-02,-0.20365E-03, 0.36454E-02, 0.71946E-02, - & 0.10464E-01, 0.13481E-01, 0.16246E-01, 0.18856E-01, 0.21279E-01, - & 0.23529E-01, 0.25627E-01, 0.27590E-01, 0.29428E-01, 0.31154E-01, - & 0.32782E-01, 0.34315E-01, 0.35759E-01, 0.37124E-01, 0.38414E-01, - & 0.39625E-01, 0.40788E-01, 0.41917E-01, 0.43045E-01, 0.44174E-01, - & 0.45303E-01, 0.46432E-01, 0.47560E-01, 0.48689E-01, 0.49818E-01, - &-0.79522E-02,-0.39519E-02, 0.46680E-04, 0.38438E-02, 0.73313E-02, - & 0.10532E-01, 0.13477E-01, 0.16166E-01, 0.18700E-01, 0.21046E-01, - & 0.23219E-01, 0.25241E-01, 0.27129E-01, 0.28893E-01, 0.30546E-01, - & 0.32103E-01, 0.33566E-01, 0.34942E-01, 0.36240E-01, 0.37466E-01, - & 0.38614E-01, 0.39715E-01, 0.40783E-01, 0.41851E-01, 0.42919E-01, - & 0.43987E-01, 0.45055E-01, 0.46123E-01, 0.47191E-01, 0.48259E-01, - &-0.75925E-02,-0.36354E-02, 0.31985E-03, 0.40659E-02, 0.74927E-02, - & 0.10626E-01, 0.13500E-01, 0.16115E-01, 0.18574E-01, 0.20845E-01, - & 0.22942E-01, 0.24890E-01, 0.26704E-01, 0.28396E-01, 0.29979E-01, - & 0.31467E-01, 0.32862E-01, 0.34172E-01, 0.35406E-01, 0.36568E-01, - & 0.37656E-01, 0.38697E-01, 0.39707E-01, 0.40716E-01, 0.41725E-01, - & 0.42735E-01, 0.43744E-01, 0.44753E-01, 0.45763E-01, 0.46772E-01, - &-0.72091E-02,-0.32944E-02, 0.61834E-03, 0.43141E-02, 0.76810E-02, - & 0.10748E-01, 0.13552E-01, 0.16094E-01, 0.18480E-01, 0.20677E-01, - & 0.22700E-01, 0.24575E-01, 0.26318E-01, 0.27940E-01, 0.29453E-01, - & 0.30874E-01, 0.32203E-01, 0.33449E-01, 0.34621E-01, 0.35722E-01, - & 0.36751E-01, 0.37735E-01, 0.38688E-01, 0.39640E-01, 0.40592E-01, - & 0.41545E-01, 0.42497E-01, 0.43450E-01, 0.44402E-01, 0.45355E-01, - &-0.67991E-02,-0.29262E-02, 0.94471E-03, 0.45909E-02, 0.78987E-02, - & 0.10900E-01, 0.13635E-01, 0.16106E-01, 0.18419E-01, 0.20543E-01, - & 0.22495E-01, 0.24299E-01, 0.25971E-01, 0.27525E-01, 0.28971E-01, - & 0.30326E-01, 0.31591E-01, 0.32775E-01, 0.33886E-01, 0.34929E-01, - & 0.35900E-01, 0.36829E-01, 0.37726E-01, 0.38623E-01, 0.39521E-01, - & 0.40418E-01, 0.41316E-01, 0.42213E-01, 0.43111E-01, 0.44008E-01, - &-0.63594E-02,-0.25278E-02, 0.13019E-02, 0.48991E-02, 0.81485E-02, - & 0.11086E-01, 0.13751E-01, 0.16152E-01, 0.18394E-01, 0.20447E-01, - & 0.22328E-01, 0.24062E-01, 0.25666E-01, 0.27152E-01, 0.28533E-01, - & 0.29824E-01, 0.31027E-01, 0.32150E-01, 0.33202E-01, 0.34188E-01, - & 0.35104E-01, 0.35978E-01, 0.36822E-01, 0.37667E-01, 0.38511E-01, - & 0.39355E-01, 0.40200E-01, 0.41044E-01, 0.41888E-01, 0.42733E-01, - &-0.58868E-02,-0.20959E-02, 0.16930E-02, 0.52416E-02, 0.84330E-02, - & 0.11306E-01, 0.13904E-01, 0.16235E-01, 0.18407E-01, 0.20390E-01, - & 0.22201E-01, 0.23866E-01, 0.25403E-01, 0.26824E-01, 0.28140E-01, - & 0.29369E-01, 0.30511E-01, 0.31575E-01, 0.32570E-01, 0.33500E-01, - & 0.34363E-01, 0.35184E-01, 0.35977E-01, 0.36770E-01, 0.37563E-01, - & 0.38356E-01, 0.39149E-01, 0.39942E-01, 0.40735E-01, 0.41528E-01, - &-0.53770E-02,-0.16267E-02, 0.21215E-02, 0.56217E-02, 0.87555E-02, - & 0.11565E-01, 0.14096E-01, 0.16358E-01, 0.18460E-01, 0.20374E-01, - & 0.22116E-01, 0.23714E-01, 0.25185E-01, 0.26541E-01, 0.27795E-01, - & 0.28962E-01, 0.30045E-01, 0.31052E-01, 0.31991E-01, 0.32866E-01, - & 0.33677E-01, 0.34448E-01, 0.35191E-01, 0.35934E-01, 0.36676E-01, - & 0.37419E-01, 0.38162E-01, 0.38905E-01, 0.39648E-01, 0.40391E-01, - &-0.48262E-02,-0.11164E-02, 0.25911E-02, 0.60430E-02, 0.91191E-02, - & 0.11865E-01, 0.14329E-01, 0.16522E-01, 0.18556E-01, 0.20401E-01, - & 0.22076E-01, 0.23607E-01, 0.25013E-01, 0.26306E-01, 0.27498E-01, - & 0.28605E-01, 0.29630E-01, 0.30580E-01, 0.31464E-01, 0.32287E-01, - & 0.33047E-01, 0.33768E-01, 0.34462E-01, 0.35156E-01, 0.35850E-01, - & 0.36545E-01, 0.37239E-01, 0.37933E-01, 0.38627E-01, 0.39321E-01/ - - data ((u_grdl(i,j),j=1,30),i= 71, 80)/ - &-0.42299E-02,-0.56084E-03, 0.31059E-02, 0.65091E-02, 0.95273E-02, - & 0.12209E-01, 0.14607E-01, 0.16732E-01, 0.18697E-01, 0.20474E-01, - & 0.22082E-01, 0.23547E-01, 0.24889E-01, 0.26119E-01, 0.27250E-01, - & 0.28298E-01, 0.29266E-01, 0.30161E-01, 0.30992E-01, 0.31763E-01, - & 0.32473E-01, 0.33146E-01, 0.33792E-01, 0.34439E-01, 0.35086E-01, - & 0.35732E-01, 0.36379E-01, 0.37025E-01, 0.37672E-01, 0.38319E-01, - &-0.35828E-02, 0.44937E-04, 0.36703E-02, 0.70241E-02, 0.99839E-02, - & 0.12602E-01, 0.14932E-01, 0.16989E-01, 0.18886E-01, 0.20594E-01, - & 0.22136E-01, 0.23536E-01, 0.24813E-01, 0.25982E-01, 0.27053E-01, - & 0.28043E-01, 0.28955E-01, 0.29795E-01, 0.30574E-01, 0.31294E-01, - & 0.31955E-01, 0.32580E-01, 0.33181E-01, 0.33781E-01, 0.34381E-01, - & 0.34981E-01, 0.35581E-01, 0.36181E-01, 0.36781E-01, 0.37382E-01, - &-0.28788E-02, 0.70628E-03, 0.42889E-02, 0.75923E-02, 0.10493E-01, - & 0.13046E-01, 0.15308E-01, 0.17297E-01, 0.19124E-01, 0.20765E-01, - & 0.22240E-01, 0.23575E-01, 0.24789E-01, 0.25896E-01, 0.26908E-01, - & 0.27840E-01, 0.28696E-01, 0.29483E-01, 0.30210E-01, 0.30880E-01, - & 0.31493E-01, 0.32072E-01, 0.32626E-01, 0.33180E-01, 0.33735E-01, - & 0.34289E-01, 0.34843E-01, 0.35398E-01, 0.35952E-01, 0.36506E-01, - &-0.21124E-02, 0.14285E-02, 0.49669E-02, 0.82182E-02, 0.11058E-01, - & 0.13545E-01, 0.15739E-01, 0.17657E-01, 0.19416E-01, 0.20988E-01, - & 0.22396E-01, 0.23666E-01, 0.24817E-01, 0.25862E-01, 0.26815E-01, - & 0.27690E-01, 0.28491E-01, 0.29224E-01, 0.29900E-01, 0.30521E-01, - & 0.31087E-01, 0.31619E-01, 0.32128E-01, 0.32638E-01, 0.33147E-01, - & 0.33656E-01, 0.34165E-01, 0.34674E-01, 0.35183E-01, 0.35692E-01, - &-0.12768E-02, 0.22177E-02, 0.57096E-02, 0.89067E-02, 0.11683E-01, - & 0.14102E-01, 0.16226E-01, 0.18074E-01, 0.19763E-01, 0.21266E-01, - & 0.22606E-01, 0.23810E-01, 0.24898E-01, 0.25882E-01, 0.26775E-01, - & 0.27593E-01, 0.28339E-01, 0.29019E-01, 0.29644E-01, 0.30216E-01, - & 0.30734E-01, 0.31222E-01, 0.31686E-01, 0.32151E-01, 0.32615E-01, - & 0.33080E-01, 0.33544E-01, 0.34009E-01, 0.34474E-01, 0.34938E-01, - &-0.36433E-03, 0.30806E-02, 0.65229E-02, 0.96628E-02, 0.12374E-01, - & 0.14723E-01, 0.16774E-01, 0.18550E-01, 0.20167E-01, 0.21600E-01, - & 0.22871E-01, 0.24009E-01, 0.25032E-01, 0.25954E-01, 0.26788E-01, - & 0.27549E-01, 0.28239E-01, 0.28867E-01, 0.29440E-01, 0.29963E-01, - & 0.30435E-01, 0.30877E-01, 0.31297E-01, 0.31717E-01, 0.32138E-01, - & 0.32558E-01, 0.32978E-01, 0.33398E-01, 0.33819E-01, 0.34239E-01, - & 0.63264E-03, 0.40241E-02, 0.74127E-02, 0.10492E-01, 0.13134E-01, - & 0.15409E-01, 0.17386E-01, 0.19087E-01, 0.20630E-01, 0.21991E-01, - & 0.23192E-01, 0.24262E-01, 0.25221E-01, 0.26080E-01, 0.26854E-01, - & 0.27557E-01, 0.28191E-01, 0.28765E-01, 0.29288E-01, 0.29761E-01, - & 0.30187E-01, 0.30583E-01, 0.30959E-01, 0.31335E-01, 0.31710E-01, - & 0.32086E-01, 0.32462E-01, 0.32838E-01, 0.33213E-01, 0.33589E-01, - & 0.17224E-02, 0.50554E-02, 0.83856E-02, 0.11399E-01, 0.13967E-01, - & 0.16166E-01, 0.18064E-01, 0.19688E-01, 0.21154E-01, 0.22441E-01, - & 0.23570E-01, 0.24571E-01, 0.25463E-01, 0.26259E-01, 0.26971E-01, - & 0.27615E-01, 0.28193E-01, 0.28713E-01, 0.29184E-01, 0.29608E-01, - & 0.29986E-01, 0.30337E-01, 0.30668E-01, 0.30999E-01, 0.31331E-01, - & 0.31662E-01, 0.31993E-01, 0.32324E-01, 0.32656E-01, 0.32987E-01, - & 0.29147E-02, 0.61827E-02, 0.94478E-02, 0.12389E-01, 0.14879E-01, - & 0.16995E-01, 0.18812E-01, 0.20354E-01, 0.21741E-01, 0.22950E-01, - & 0.24005E-01, 0.24935E-01, 0.25758E-01, 0.26488E-01, 0.27138E-01, - & 0.27721E-01, 0.28242E-01, 0.28707E-01, 0.29125E-01, 0.29499E-01, - & 0.29830E-01, 0.30134E-01, 0.30420E-01, 0.30707E-01, 0.30993E-01, - & 0.31279E-01, 0.31565E-01, 0.31851E-01, 0.32138E-01, 0.32424E-01, - & 0.42192E-02, 0.74142E-02, 0.10606E-01, 0.13468E-01, 0.15873E-01, - & 0.17901E-01, 0.19630E-01, 0.21087E-01, 0.22390E-01, 0.23518E-01, - & 0.24496E-01, 0.25351E-01, 0.26103E-01, 0.26766E-01, 0.27351E-01, - & 0.27872E-01, 0.28334E-01, 0.28743E-01, 0.29108E-01, 0.29431E-01, - & 0.29712E-01, 0.29970E-01, 0.30210E-01, 0.30451E-01, 0.30691E-01, - & 0.30932E-01, 0.31172E-01, 0.31413E-01, 0.31653E-01, 0.31894E-01/ - - data ((u_grdl(i,j),j=1,30),i= 81, 90)/ - & 0.56455E-02, 0.87580E-02, 0.11867E-01, 0.14641E-01, 0.16952E-01, - & 0.18885E-01, 0.20520E-01, 0.21886E-01, 0.23100E-01, 0.24143E-01, - & 0.25040E-01, 0.25817E-01, 0.26496E-01, 0.27087E-01, 0.27606E-01, - & 0.28064E-01, 0.28465E-01, 0.28816E-01, 0.29125E-01, 0.29395E-01, - & 0.29627E-01, 0.29837E-01, 0.30031E-01, 0.30224E-01, 0.30418E-01, - & 0.30612E-01, 0.30805E-01, 0.30999E-01, 0.31193E-01, 0.31386E-01, - & 0.72047E-02, 0.10223E-01, 0.13238E-01, 0.15912E-01, 0.18119E-01, - & 0.19950E-01, 0.21483E-01, 0.22750E-01, 0.23870E-01, 0.24823E-01, - & 0.25633E-01, 0.26329E-01, 0.26930E-01, 0.27448E-01, 0.27897E-01, - & 0.28288E-01, 0.28626E-01, 0.28918E-01, 0.29170E-01, 0.29386E-01, - & 0.29567E-01, 0.29727E-01, 0.29873E-01, 0.30019E-01, 0.30165E-01, - & 0.30310E-01, 0.30456E-01, 0.30602E-01, 0.30748E-01, 0.30893E-01, - & 0.89075E-02, 0.11817E-01, 0.14724E-01, 0.17285E-01, 0.19377E-01, - & 0.21093E-01, 0.22516E-01, 0.23678E-01, 0.24696E-01, 0.25552E-01, - & 0.26271E-01, 0.26880E-01, 0.27399E-01, 0.27840E-01, 0.28216E-01, - & 0.28538E-01, 0.28810E-01, 0.29039E-01, 0.29232E-01, 0.29392E-01, - & 0.29521E-01, 0.29630E-01, 0.29727E-01, 0.29823E-01, 0.29920E-01, - & 0.30016E-01, 0.30113E-01, 0.30209E-01, 0.30306E-01, 0.30402E-01, - & 0.10766E-01, 0.13549E-01, 0.16330E-01, 0.18762E-01, 0.20725E-01, - & 0.22315E-01, 0.23616E-01, 0.24663E-01, 0.25571E-01, 0.26323E-01, - & 0.26945E-01, 0.27462E-01, 0.27894E-01, 0.28254E-01, 0.28552E-01, - & 0.28801E-01, 0.29004E-01, 0.29169E-01, 0.29300E-01, 0.29402E-01, - & 0.29476E-01, 0.29532E-01, 0.29578E-01, 0.29623E-01, 0.29669E-01, - & 0.29714E-01, 0.29760E-01, 0.29805E-01, 0.29850E-01, 0.29896E-01, - & 0.12790E-01, 0.15427E-01, 0.18060E-01, 0.20344E-01, 0.22161E-01, - & 0.23610E-01, 0.24777E-01, 0.25699E-01, 0.26487E-01, 0.27127E-01, - & 0.27643E-01, 0.28062E-01, 0.28402E-01, 0.28675E-01, 0.28892E-01, - & 0.29064E-01, 0.29195E-01, 0.29291E-01, 0.29358E-01, 0.29400E-01, - & 0.29416E-01, 0.29419E-01, 0.29411E-01, 0.29404E-01, 0.29397E-01, - & 0.29389E-01, 0.29382E-01, 0.29375E-01, 0.29367E-01, 0.29360E-01, - & 0.14992E-01, 0.17456E-01, 0.19916E-01, 0.22029E-01, 0.23680E-01, - & 0.24971E-01, 0.25990E-01, 0.26774E-01, 0.27431E-01, 0.27949E-01, - & 0.28352E-01, 0.28666E-01, 0.28907E-01, 0.29087E-01, 0.29217E-01, - & 0.29308E-01, 0.29364E-01, 0.29388E-01, 0.29388E-01, 0.29366E-01, - & 0.29324E-01, 0.29270E-01, 0.29208E-01, 0.29146E-01, 0.29084E-01, - & 0.29021E-01, 0.28959E-01, 0.28897E-01, 0.28835E-01, 0.28773E-01, - & 0.17377E-01, 0.19639E-01, 0.21898E-01, 0.23812E-01, 0.25273E-01, - & 0.26386E-01, 0.27239E-01, 0.27872E-01, 0.28386E-01, 0.28771E-01, - & 0.29051E-01, 0.29251E-01, 0.29386E-01, 0.29468E-01, 0.29507E-01, - & 0.29512E-01, 0.29487E-01, 0.29437E-01, 0.29367E-01, 0.29279E-01, - & 0.29175E-01, 0.29062E-01, 0.28944E-01, 0.28825E-01, 0.28706E-01, - & 0.28587E-01, 0.28469E-01, 0.28350E-01, 0.28231E-01, 0.28112E-01, - & 0.19955E-01, 0.21978E-01, 0.23998E-01, 0.25681E-01, 0.26925E-01, - & 0.27838E-01, 0.28506E-01, 0.28971E-01, 0.29327E-01, 0.29567E-01, - & 0.29715E-01, 0.29792E-01, 0.29814E-01, 0.29791E-01, 0.29732E-01, - & 0.29647E-01, 0.29538E-01, 0.29409E-01, 0.29265E-01, 0.29109E-01, - & 0.28942E-01, 0.28769E-01, 0.28592E-01, 0.28415E-01, 0.28237E-01, - & 0.28060E-01, 0.27883E-01, 0.27706E-01, 0.27529E-01, 0.27352E-01, - & 0.22733E-01, 0.24472E-01, 0.26207E-01, 0.27620E-01, 0.28615E-01, - & 0.29301E-01, 0.29763E-01, 0.30040E-01, 0.30223E-01, 0.30305E-01, - & 0.30309E-01, 0.30254E-01, 0.30154E-01, 0.30020E-01, 0.29859E-01, - & 0.29678E-01, 0.29480E-01, 0.29270E-01, 0.29050E-01, 0.28823E-01, - & 0.28591E-01, 0.28355E-01, 0.28119E-01, 0.27882E-01, 0.27645E-01, - & 0.27409E-01, 0.27172E-01, 0.26935E-01, 0.26699E-01, 0.26462E-01, - & 0.25698E-01, 0.27103E-01, 0.28505E-01, 0.29602E-01, 0.30311E-01, - & 0.30739E-01, 0.30969E-01, 0.31041E-01, 0.31033E-01, 0.30942E-01, - & 0.30790E-01, 0.30593E-01, 0.30365E-01, 0.30113E-01, 0.29843E-01, - & 0.29563E-01, 0.29273E-01, 0.28978E-01, 0.28680E-01, 0.28380E-01, - & 0.28081E-01, 0.27783E-01, 0.27486E-01, 0.27189E-01, 0.26893E-01, - & 0.26596E-01, 0.26299E-01, 0.26002E-01, 0.25705E-01, 0.25408E-01/ - - data ((u_grdl(i,j),j=1,30),i= 91,100)/ - & 0.28840E-01, 0.29850E-01, 0.30858E-01, 0.31586E-01, 0.31966E-01, - & 0.32103E-01, 0.32073E-01, 0.31917E-01, 0.31700E-01, 0.31423E-01, - & 0.31103E-01, 0.30755E-01, 0.30390E-01, 0.30014E-01, 0.29632E-01, - & 0.29248E-01, 0.28864E-01, 0.28482E-01, 0.28104E-01, 0.27732E-01, - & 0.27366E-01, 0.27006E-01, 0.26649E-01, 0.26292E-01, 0.25936E-01, - & 0.25579E-01, 0.25222E-01, 0.24865E-01, 0.24508E-01, 0.24152E-01, - & 0.32136E-01, 0.32678E-01, 0.33218E-01, 0.33514E-01, 0.33516E-01, - & 0.33322E-01, 0.33003E-01, 0.32597E-01, 0.32153E-01, 0.31673E-01, - & 0.31175E-01, 0.30669E-01, 0.30161E-01, 0.29656E-01, 0.29158E-01, - & 0.28669E-01, 0.28189E-01, 0.27721E-01, 0.27264E-01, 0.26820E-01, - & 0.26390E-01, 0.25968E-01, 0.25554E-01, 0.25140E-01, 0.24725E-01, - & 0.24311E-01, 0.23896E-01, 0.23482E-01, 0.23068E-01, 0.22653E-01, - & 0.35539E-01, 0.35525E-01, 0.35508E-01, 0.35298E-01, 0.34867E-01, - & 0.34302E-01, 0.33663E-01, 0.32984E-01, 0.32294E-01, 0.31600E-01, - & 0.30915E-01, 0.30243E-01, 0.29589E-01, 0.28954E-01, 0.28340E-01, - & 0.27746E-01, 0.27173E-01, 0.26621E-01, 0.26089E-01, 0.25576E-01, - & 0.25085E-01, 0.24608E-01, 0.24140E-01, 0.23673E-01, 0.23205E-01, - & 0.22737E-01, 0.22270E-01, 0.21802E-01, 0.21335E-01, 0.20867E-01, - & 0.38954E-01, 0.38284E-01, 0.37612E-01, 0.36813E-01, 0.35888E-01, - & 0.34908E-01, 0.33918E-01, 0.32946E-01, 0.31996E-01, 0.31079E-01, - & 0.30201E-01, 0.29363E-01, 0.28563E-01, 0.27801E-01, 0.27076E-01, - & 0.26382E-01, 0.25722E-01, 0.25093E-01, 0.24493E-01, 0.23920E-01, - & 0.23376E-01, 0.22851E-01, 0.22338E-01, 0.21826E-01, 0.21313E-01, - & 0.20801E-01, 0.20288E-01, 0.19776E-01, 0.19263E-01, 0.18751E-01, - & 0.42242E-01, 0.40796E-01, 0.39350E-01, 0.37867E-01, 0.36384E-01, - & 0.34948E-01, 0.33581E-01, 0.32302E-01, 0.31084E-01, 0.29942E-01, - & 0.28876E-01, 0.27878E-01, 0.26941E-01, 0.26063E-01, 0.25238E-01, - & 0.24458E-01, 0.23724E-01, 0.23031E-01, 0.22376E-01, 0.21757E-01, - & 0.21174E-01, 0.20614E-01, 0.20070E-01, 0.19526E-01, 0.18983E-01, - & 0.18439E-01, 0.17895E-01, 0.17351E-01, 0.16807E-01, 0.16263E-01, - & 0.45145E-01, 0.42788E-01, 0.40431E-01, 0.38163E-01, 0.36060E-01, - & 0.34135E-01, 0.32378E-01, 0.30794E-01, 0.29314E-01, 0.27962E-01, - & 0.26725E-01, 0.25588E-01, 0.24538E-01, 0.23567E-01, 0.22666E-01, - & 0.21824E-01, 0.21040E-01, 0.20309E-01, 0.19622E-01, 0.18979E-01, - & 0.18380E-01, 0.17807E-01, 0.17254E-01, 0.16700E-01, 0.16146E-01, - & 0.15592E-01, 0.15039E-01, 0.14485E-01, 0.13931E-01, 0.13377E-01, - & 0.47188E-01, 0.43772E-01, 0.40358E-01, 0.37204E-01, 0.34441E-01, - & 0.32021E-01, 0.29890E-01, 0.28031E-01, 0.26329E-01, 0.24809E-01, - & 0.23448E-01, 0.22220E-01, 0.21103E-01, 0.20086E-01, 0.19155E-01, - & 0.18296E-01, 0.17505E-01, 0.16774E-01, 0.16097E-01, 0.15467E-01, - & 0.14888E-01, 0.14337E-01, 0.13807E-01, 0.13277E-01, 0.12747E-01, - & 0.12217E-01, 0.11686E-01, 0.11156E-01, 0.10626E-01, 0.10096E-01, - & 0.47370E-01, 0.42760E-01, 0.38155E-01, 0.34057E-01, 0.30653E-01, - & 0.27806E-01, 0.25393E-01, 0.23364E-01, 0.21547E-01, 0.19968E-01, - & 0.18589E-01, 0.17370E-01, 0.16284E-01, 0.15313E-01, 0.14438E-01, - & 0.13642E-01, 0.12920E-01, 0.12262E-01, 0.11660E-01, 0.11107E-01, - & 0.10604E-01, 0.10130E-01, 0.96770E-02, 0.92239E-02, 0.87707E-02, - & 0.83175E-02, 0.78644E-02, 0.74112E-02, 0.69580E-02, 0.65048E-02, - & 0.43090E-01, 0.37208E-01, 0.31335E-01, 0.26401E-01, 0.22635E-01, - & 0.19703E-01, 0.17361E-01, 0.15499E-01, 0.13886E-01, 0.12540E-01, - & 0.11407E-01, 0.10438E-01, 0.95978E-02, 0.88657E-02, 0.82220E-02, - & 0.76483E-02, 0.71386E-02, 0.66834E-02, 0.62734E-02, 0.59037E-02, - & 0.55733E-02, 0.52654E-02, 0.49734E-02, 0.46814E-02, 0.43894E-02, - & 0.40974E-02, 0.38053E-02, 0.35133E-02, 0.32213E-02, 0.29293E-02, - & 0.61043E-02, 0.52308E-02, 0.43586E-02, 0.36311E-02, 0.30821E-02, - & 0.26591E-02, 0.23245E-02, 0.20607E-02, 0.18336E-02, 0.16454E-02, - & 0.14883E-02, 0.13545E-02, 0.12393E-02, 0.11393E-02, 0.10519E-02, - & 0.97438E-03, 0.90578E-03, 0.84477E-03, 0.79004E-03, 0.74089E-03, - & 0.69714E-03, 0.65648E-03, 0.61799E-03, 0.57951E-03, 0.54102E-03, - & 0.50253E-03, 0.46404E-03, 0.42555E-03, 0.38707E-03, 0.34858E-03/ - - data ((g_grdl(i,j),j=1,30),i= 1, 10)/ - &-0.16775E+00, 0.34798E-01, 0.23757E+00, 0.46627E+00, 0.73105E+00, - & 0.10249E+01, 0.13411E+01, 0.16759E+01, 0.20204E+01, 0.23747E+01, - & 0.27362E+01, 0.31021E+01, 0.34705E+01, 0.38401E+01, 0.42095E+01, - & 0.45780E+01, 0.49446E+01, 0.53089E+01, 0.56702E+01, 0.60281E+01, - & 0.63818E+01, 0.67324E+01, 0.70808E+01, 0.74292E+01, 0.77776E+01, - & 0.81260E+01, 0.84744E+01, 0.88227E+01, 0.91711E+01, 0.95195E+01, - &-0.16373E+00, 0.37369E-01, 0.23870E+00, 0.46513E+00, 0.72632E+00, - & 0.10154E+01, 0.13256E+01, 0.16533E+01, 0.19900E+01, 0.23358E+01, - & 0.26880E+01, 0.30440E+01, 0.34020E+01, 0.37607E+01, 0.41189E+01, - & 0.44758E+01, 0.48307E+01, 0.51829E+01, 0.55319E+01, 0.58775E+01, - & 0.62185E+01, 0.65565E+01, 0.68922E+01, 0.72279E+01, 0.75635E+01, - & 0.78992E+01, 0.82349E+01, 0.85706E+01, 0.89063E+01, 0.92419E+01, - &-0.15972E+00, 0.39944E-01, 0.23982E+00, 0.46399E+00, 0.72161E+00, - & 0.10059E+01, 0.13102E+01, 0.16309E+01, 0.19600E+01, 0.22973E+01, - & 0.26404E+01, 0.29867E+01, 0.33346E+01, 0.36826E+01, 0.40299E+01, - & 0.43755E+01, 0.47189E+01, 0.50593E+01, 0.53964E+01, 0.57299E+01, - & 0.60587E+01, 0.63844E+01, 0.67077E+01, 0.70310E+01, 0.73544E+01, - & 0.76777E+01, 0.80010E+01, 0.83243E+01, 0.86477E+01, 0.89710E+01, - &-0.15566E+00, 0.42540E-01, 0.24095E+00, 0.46284E+00, 0.71692E+00, - & 0.99641E+00, 0.12949E+01, 0.16087E+01, 0.19303E+01, 0.22593E+01, - & 0.25934E+01, 0.29302E+01, 0.32681E+01, 0.36058E+01, 0.39424E+01, - & 0.42770E+01, 0.46091E+01, 0.49381E+01, 0.52636E+01, 0.55852E+01, - & 0.59022E+01, 0.62159E+01, 0.65273E+01, 0.68386E+01, 0.71499E+01, - & 0.74612E+01, 0.77726E+01, 0.80839E+01, 0.83952E+01, 0.87066E+01, - &-0.15157E+00, 0.45155E-01, 0.24209E+00, 0.46170E+00, 0.71225E+00, - & 0.98702E+00, 0.12797E+01, 0.15868E+01, 0.19009E+01, 0.22218E+01, - & 0.25471E+01, 0.28746E+01, 0.32027E+01, 0.35303E+01, 0.38564E+01, - & 0.41803E+01, 0.45014E+01, 0.48192E+01, 0.51334E+01, 0.54436E+01, - & 0.57490E+01, 0.60511E+01, 0.63508E+01, 0.66505E+01, 0.69502E+01, - & 0.72499E+01, 0.75496E+01, 0.78492E+01, 0.81489E+01, 0.84486E+01, - &-0.14751E+00, 0.47759E-01, 0.24323E+00, 0.46056E+00, 0.70759E+00, - & 0.97768E+00, 0.12647E+01, 0.15650E+01, 0.18718E+01, 0.21848E+01, - & 0.25014E+01, 0.28198E+01, 0.31384E+01, 0.34560E+01, 0.37718E+01, - & 0.40853E+01, 0.43957E+01, 0.47026E+01, 0.50058E+01, 0.53049E+01, - & 0.55991E+01, 0.58899E+01, 0.61783E+01, 0.64667E+01, 0.67550E+01, - & 0.70434E+01, 0.73318E+01, 0.76202E+01, 0.79086E+01, 0.81969E+01, - &-0.14338E+00, 0.50398E-01, 0.24437E+00, 0.45943E+00, 0.70295E+00, - & 0.96841E+00, 0.12498E+01, 0.15435E+01, 0.18431E+01, 0.21482E+01, - & 0.24564E+01, 0.27658E+01, 0.30750E+01, 0.33829E+01, 0.36888E+01, - & 0.39920E+01, 0.42920E+01, 0.45883E+01, 0.48808E+01, 0.51691E+01, - & 0.54523E+01, 0.57322E+01, 0.60096E+01, 0.62870E+01, 0.65644E+01, - & 0.68419E+01, 0.71193E+01, 0.73967E+01, 0.76741E+01, 0.79515E+01, - &-0.13924E+00, 0.53042E-01, 0.24551E+00, 0.45829E+00, 0.69833E+00, - & 0.95919E+00, 0.12350E+01, 0.15222E+01, 0.18147E+01, 0.21120E+01, - & 0.24119E+01, 0.27126E+01, 0.30126E+01, 0.33111E+01, 0.36071E+01, - & 0.39004E+01, 0.41902E+01, 0.44763E+01, 0.47583E+01, 0.50361E+01, - & 0.53087E+01, 0.55780E+01, 0.58447E+01, 0.61115E+01, 0.63782E+01, - & 0.66449E+01, 0.69117E+01, 0.71784E+01, 0.74452E+01, 0.77119E+01, - &-0.13507E+00, 0.55705E-01, 0.24666E+00, 0.45716E+00, 0.69373E+00, - & 0.95003E+00, 0.12203E+01, 0.15011E+01, 0.17866E+01, 0.20763E+01, - & 0.23681E+01, 0.26601E+01, 0.29512E+01, 0.32404E+01, 0.35269E+01, - & 0.38105E+01, 0.40904E+01, 0.43664E+01, 0.46383E+01, 0.49058E+01, - & 0.51682E+01, 0.54271E+01, 0.56835E+01, 0.59400E+01, 0.61964E+01, - & 0.64528E+01, 0.67092E+01, 0.69656E+01, 0.72220E+01, 0.74784E+01, - &-0.13089E+00, 0.58374E-01, 0.24781E+00, 0.45602E+00, 0.68915E+00, - & 0.94093E+00, 0.12058E+01, 0.14802E+01, 0.17588E+01, 0.20411E+01, - & 0.23248E+01, 0.26085E+01, 0.28908E+01, 0.31709E+01, 0.34481E+01, - & 0.37222E+01, 0.39925E+01, 0.42587E+01, 0.45207E+01, 0.47783E+01, - & 0.50307E+01, 0.52796E+01, 0.55260E+01, 0.57723E+01, 0.60187E+01, - & 0.62651E+01, 0.65115E+01, 0.67578E+01, 0.70042E+01, 0.72506E+01/ - - data ((g_grdl(i,j),j=1,30),i= 11, 20)/ - &-0.12667E+00, 0.61063E-01, 0.24896E+00, 0.45489E+00, 0.68459E+00, - & 0.93188E+00, 0.11913E+01, 0.14595E+01, 0.17314E+01, 0.20063E+01, - & 0.22822E+01, 0.25576E+01, 0.28313E+01, 0.31026E+01, 0.33707E+01, - & 0.36355E+01, 0.38964E+01, 0.41531E+01, 0.44055E+01, 0.46535E+01, - & 0.48961E+01, 0.51353E+01, 0.53720E+01, 0.56087E+01, 0.58453E+01, - & 0.60820E+01, 0.63187E+01, 0.65553E+01, 0.67920E+01, 0.70286E+01, - &-0.12242E+00, 0.63771E-01, 0.25012E+00, 0.45376E+00, 0.68004E+00, - & 0.92289E+00, 0.11770E+01, 0.14390E+01, 0.17042E+01, 0.19719E+01, - & 0.22401E+01, 0.25074E+01, 0.27728E+01, 0.30354E+01, 0.32947E+01, - & 0.35504E+01, 0.38022E+01, 0.40496E+01, 0.42927E+01, 0.45312E+01, - & 0.47645E+01, 0.49943E+01, 0.52215E+01, 0.54487E+01, 0.56760E+01, - & 0.59032E+01, 0.61304E+01, 0.63577E+01, 0.65849E+01, 0.68121E+01, - &-0.11816E+00, 0.66485E-01, 0.25128E+00, 0.45263E+00, 0.67551E+00, - & 0.91396E+00, 0.11628E+01, 0.14187E+01, 0.16774E+01, 0.19380E+01, - & 0.21987E+01, 0.24580E+01, 0.27152E+01, 0.29693E+01, 0.32200E+01, - & 0.34669E+01, 0.37098E+01, 0.39482E+01, 0.41822E+01, 0.44116E+01, - & 0.46357E+01, 0.48564E+01, 0.50745E+01, 0.52925E+01, 0.55106E+01, - & 0.57287E+01, 0.59468E+01, 0.61649E+01, 0.63830E+01, 0.66010E+01, - &-0.11386E+00, 0.69219E-01, 0.25244E+00, 0.45150E+00, 0.67099E+00, - & 0.90508E+00, 0.11487E+01, 0.13986E+01, 0.16509E+01, 0.19045E+01, - & 0.21578E+01, 0.24094E+01, 0.26585E+01, 0.29044E+01, 0.31466E+01, - & 0.33850E+01, 0.36191E+01, 0.38488E+01, 0.40740E+01, 0.42945E+01, - & 0.45098E+01, 0.47215E+01, 0.49308E+01, 0.51400E+01, 0.53492E+01, - & 0.55584E+01, 0.57676E+01, 0.59769E+01, 0.61861E+01, 0.63953E+01, - &-0.10952E+00, 0.71974E-01, 0.25361E+00, 0.45038E+00, 0.66650E+00, - & 0.89625E+00, 0.11347E+01, 0.13788E+01, 0.16246E+01, 0.18714E+01, - & 0.21174E+01, 0.23615E+01, 0.26027E+01, 0.28405E+01, 0.30745E+01, - & 0.33045E+01, 0.35302E+01, 0.37513E+01, 0.39680E+01, 0.41800E+01, - & 0.43866E+01, 0.45898E+01, 0.47904E+01, 0.49910E+01, 0.51917E+01, - & 0.53923E+01, 0.55929E+01, 0.57935E+01, 0.59942E+01, 0.61948E+01, - &-0.10515E+00, 0.74750E-01, 0.25478E+00, 0.44925E+00, 0.66202E+00, - & 0.88748E+00, 0.11209E+01, 0.13591E+01, 0.15987E+01, 0.18388E+01, - & 0.20776E+01, 0.23142E+01, 0.25478E+01, 0.27777E+01, 0.30037E+01, - & 0.32256E+01, 0.34430E+01, 0.36559E+01, 0.38642E+01, 0.40678E+01, - & 0.42661E+01, 0.44610E+01, 0.46533E+01, 0.48456E+01, 0.50379E+01, - & 0.52302E+01, 0.54225E+01, 0.56148E+01, 0.58071E+01, 0.59994E+01, - &-0.10077E+00, 0.77530E-01, 0.25596E+00, 0.44813E+00, 0.65756E+00, - & 0.87876E+00, 0.11071E+01, 0.13396E+01, 0.15731E+01, 0.18065E+01, - & 0.20384E+01, 0.22678E+01, 0.24938E+01, 0.27160E+01, 0.29342E+01, - & 0.31481E+01, 0.33576E+01, 0.35624E+01, 0.37626E+01, 0.39581E+01, - & 0.41483E+01, 0.43351E+01, 0.45193E+01, 0.47036E+01, 0.48878E+01, - & 0.50720E+01, 0.52563E+01, 0.54405E+01, 0.56248E+01, 0.58090E+01, - &-0.96353E-01, 0.80331E-01, 0.25714E+00, 0.44700E+00, 0.65311E+00, - & 0.87010E+00, 0.10935E+01, 0.13203E+01, 0.15477E+01, 0.17747E+01, - & 0.19998E+01, 0.22220E+01, 0.24407E+01, 0.26554E+01, 0.28659E+01, - & 0.30721E+01, 0.32738E+01, 0.34707E+01, 0.36631E+01, 0.38507E+01, - & 0.40331E+01, 0.42120E+01, 0.43885E+01, 0.45649E+01, 0.47413E+01, - & 0.49178E+01, 0.50942E+01, 0.52707E+01, 0.54471E+01, 0.56235E+01, - &-0.91930E-01, 0.83137E-01, 0.25832E+00, 0.44588E+00, 0.64868E+00, - & 0.86149E+00, 0.10800E+01, 0.13012E+01, 0.15227E+01, 0.17433E+01, - & 0.19616E+01, 0.21769E+01, 0.23884E+01, 0.25958E+01, 0.27988E+01, - & 0.29976E+01, 0.31916E+01, 0.33809E+01, 0.35657E+01, 0.37457E+01, - & 0.39205E+01, 0.40918E+01, 0.42607E+01, 0.44296E+01, 0.45985E+01, - & 0.47674E+01, 0.49362E+01, 0.51051E+01, 0.52740E+01, 0.54429E+01, - &-0.87437E-01, 0.85979E-01, 0.25951E+00, 0.44476E+00, 0.64427E+00, - & 0.85293E+00, 0.10666E+01, 0.12823E+01, 0.14979E+01, 0.17123E+01, - & 0.19241E+01, 0.21325E+01, 0.23370E+01, 0.25372E+01, 0.27330E+01, - & 0.29244E+01, 0.31111E+01, 0.32930E+01, 0.34703E+01, 0.36430E+01, - & 0.38104E+01, 0.39744E+01, 0.41360E+01, 0.42975E+01, 0.44591E+01, - & 0.46206E+01, 0.47822E+01, 0.49437E+01, 0.51053E+01, 0.52669E+01/ - - data ((g_grdl(i,j),j=1,30),i= 21, 30)/ - &-0.82970E-01, 0.88812E-01, 0.26070E+00, 0.44364E+00, 0.63987E+00, - & 0.84442E+00, 0.10533E+01, 0.12636E+01, 0.14735E+01, 0.16817E+01, - & 0.18870E+01, 0.20887E+01, 0.22864E+01, 0.24797E+01, 0.26684E+01, - & 0.28526E+01, 0.30321E+01, 0.32069E+01, 0.33770E+01, 0.35425E+01, - & 0.37027E+01, 0.38596E+01, 0.40141E+01, 0.41686E+01, 0.43231E+01, - & 0.44776E+01, 0.46320E+01, 0.47865E+01, 0.49410E+01, 0.50955E+01, - &-0.78434E-01, 0.91680E-01, 0.26189E+00, 0.44252E+00, 0.63549E+00, - & 0.83597E+00, 0.10401E+01, 0.12450E+01, 0.14493E+01, 0.16515E+01, - & 0.18505E+01, 0.20457E+01, 0.22367E+01, 0.24231E+01, 0.26049E+01, - & 0.27822E+01, 0.29547E+01, 0.31225E+01, 0.32857E+01, 0.34442E+01, - & 0.35975E+01, 0.37476E+01, 0.38952E+01, 0.40428E+01, 0.41905E+01, - & 0.43381E+01, 0.44858E+01, 0.46334E+01, 0.47810E+01, 0.49287E+01, - &-0.73857E-01, 0.94570E-01, 0.26309E+00, 0.44140E+00, 0.63113E+00, - & 0.82757E+00, 0.10270E+01, 0.12267E+01, 0.14254E+01, 0.16216E+01, - & 0.18144E+01, 0.20032E+01, 0.21877E+01, 0.23675E+01, 0.25426E+01, - & 0.27131E+01, 0.28789E+01, 0.30399E+01, 0.31963E+01, 0.33480E+01, - & 0.34947E+01, 0.36381E+01, 0.37791E+01, 0.39201E+01, 0.40611E+01, - & 0.42021E+01, 0.43432E+01, 0.44842E+01, 0.46252E+01, 0.47662E+01, - &-0.69308E-01, 0.97450E-01, 0.26430E+00, 0.44028E+00, 0.62678E+00, - & 0.81922E+00, 0.10140E+01, 0.12086E+01, 0.14017E+01, 0.15922E+01, - & 0.17790E+01, 0.19615E+01, 0.21396E+01, 0.23129E+01, 0.24814E+01, - & 0.26454E+01, 0.28046E+01, 0.29589E+01, 0.31088E+01, 0.32540E+01, - & 0.33942E+01, 0.35312E+01, 0.36658E+01, 0.38004E+01, 0.39350E+01, - & 0.40696E+01, 0.42042E+01, 0.43388E+01, 0.44734E+01, 0.46080E+01, - &-0.64690E-01, 0.10037E+00, 0.26550E+00, 0.43917E+00, 0.62245E+00, - & 0.81092E+00, 0.10012E+01, 0.11906E+01, 0.13784E+01, 0.15632E+01, - & 0.17440E+01, 0.19204E+01, 0.20922E+01, 0.22592E+01, 0.24214E+01, - & 0.25790E+01, 0.27317E+01, 0.28797E+01, 0.30232E+01, 0.31621E+01, - & 0.32960E+01, 0.34267E+01, 0.35551E+01, 0.36835E+01, 0.38119E+01, - & 0.39403E+01, 0.40688E+01, 0.41972E+01, 0.43256E+01, 0.44540E+01, - &-0.60030E-01, 0.10330E+00, 0.26671E+00, 0.43805E+00, 0.61814E+00, - & 0.80267E+00, 0.98840E+00, 0.11728E+01, 0.13553E+01, 0.15345E+01, - & 0.17095E+01, 0.18799E+01, 0.20457E+01, 0.22065E+01, 0.23625E+01, - & 0.25138E+01, 0.26604E+01, 0.28022E+01, 0.29394E+01, 0.30722E+01, - & 0.32001E+01, 0.33248E+01, 0.34472E+01, 0.35696E+01, 0.36920E+01, - & 0.38145E+01, 0.39369E+01, 0.40593E+01, 0.41817E+01, 0.43042E+01, - &-0.55331E-01, 0.10626E+00, 0.26793E+00, 0.43694E+00, 0.61383E+00, - & 0.79447E+00, 0.97573E+00, 0.11552E+01, 0.13325E+01, 0.15062E+01, - & 0.16755E+01, 0.18401E+01, 0.19999E+01, 0.21547E+01, 0.23046E+01, - & 0.24499E+01, 0.25904E+01, 0.27262E+01, 0.28575E+01, 0.29844E+01, - & 0.31063E+01, 0.32252E+01, 0.33418E+01, 0.34585E+01, 0.35751E+01, - & 0.36917E+01, 0.38084E+01, 0.39250E+01, 0.40416E+01, 0.41583E+01, - &-0.50659E-01, 0.10921E+00, 0.26915E+00, 0.43582E+00, 0.60955E+00, - & 0.78632E+00, 0.96318E+00, 0.11378E+01, 0.13099E+01, 0.14782E+01, - & 0.16419E+01, 0.18009E+01, 0.19549E+01, 0.21038E+01, 0.22479E+01, - & 0.23873E+01, 0.25219E+01, 0.26519E+01, 0.27774E+01, 0.28985E+01, - & 0.30148E+01, 0.31280E+01, 0.32391E+01, 0.33501E+01, 0.34612E+01, - & 0.35723E+01, 0.36833E+01, 0.37944E+01, 0.39054E+01, 0.40165E+01, - &-0.45918E-01, 0.11220E+00, 0.27038E+00, 0.43471E+00, 0.60528E+00, - & 0.77822E+00, 0.95072E+00, 0.11205E+01, 0.12876E+01, 0.14507E+01, - & 0.16089E+01, 0.17622E+01, 0.19106E+01, 0.20539E+01, 0.21922E+01, - & 0.23259E+01, 0.24548E+01, 0.25791E+01, 0.26990E+01, 0.28145E+01, - & 0.29253E+01, 0.30332E+01, 0.31388E+01, 0.32445E+01, 0.33501E+01, - & 0.34558E+01, 0.35615E+01, 0.36671E+01, 0.37728E+01, 0.38784E+01, - &-0.41104E-01, 0.11522E+00, 0.27161E+00, 0.43360E+00, 0.60102E+00, - & 0.77017E+00, 0.93837E+00, 0.11034E+01, 0.12656E+01, 0.14235E+01, - & 0.15764E+01, 0.17242E+01, 0.18671E+01, 0.20048E+01, 0.21375E+01, - & 0.22657E+01, 0.23891E+01, 0.25078E+01, 0.26223E+01, 0.27325E+01, - & 0.28380E+01, 0.29406E+01, 0.30410E+01, 0.31415E+01, 0.32419E+01, - & 0.33424E+01, 0.34429E+01, 0.35433E+01, 0.36438E+01, 0.37442E+01/ - - data ((g_grdl(i,j),j=1,30),i= 31, 40)/ - &-0.36312E-01, 0.11824E+00, 0.27284E+00, 0.43248E+00, 0.59678E+00, - & 0.76216E+00, 0.92612E+00, 0.10865E+01, 0.12438E+01, 0.13966E+01, - & 0.15443E+01, 0.16868E+01, 0.18243E+01, 0.19566E+01, 0.20839E+01, - & 0.22067E+01, 0.23247E+01, 0.24381E+01, 0.25473E+01, 0.26523E+01, - & 0.27527E+01, 0.28502E+01, 0.29456E+01, 0.30410E+01, 0.31365E+01, - & 0.32319E+01, 0.33273E+01, 0.34228E+01, 0.35182E+01, 0.36136E+01, - &-0.31486E-01, 0.12127E+00, 0.27408E+00, 0.43137E+00, 0.59255E+00, - & 0.75421E+00, 0.91397E+00, 0.10698E+01, 0.12223E+01, 0.13701E+01, - & 0.15127E+01, 0.16500E+01, 0.17822E+01, 0.19092E+01, 0.20313E+01, - & 0.21488E+01, 0.22616E+01, 0.23699E+01, 0.24740E+01, 0.25739E+01, - & 0.26694E+01, 0.27620E+01, 0.28526E+01, 0.29432E+01, 0.30338E+01, - & 0.31243E+01, 0.32149E+01, 0.33055E+01, 0.33961E+01, 0.34867E+01, - &-0.26587E-01, 0.12435E+00, 0.27532E+00, 0.43026E+00, 0.58834E+00, - & 0.74630E+00, 0.90192E+00, 0.10532E+01, 0.12011E+01, 0.13440E+01, - & 0.14815E+01, 0.16138E+01, 0.17408E+01, 0.18627E+01, 0.19797E+01, - & 0.20921E+01, 0.21999E+01, 0.23032E+01, 0.24023E+01, 0.24974E+01, - & 0.25881E+01, 0.26760E+01, 0.27619E+01, 0.28478E+01, 0.29337E+01, - & 0.30196E+01, 0.31055E+01, 0.31914E+01, 0.32773E+01, 0.33632E+01, - &-0.21680E-01, 0.12743E+00, 0.27657E+00, 0.42915E+00, 0.58414E+00, - & 0.73844E+00, 0.88996E+00, 0.10368E+01, 0.11801E+01, 0.13182E+01, - & 0.14508E+01, 0.15781E+01, 0.17002E+01, 0.18171E+01, 0.19290E+01, - & 0.20365E+01, 0.21394E+01, 0.22378E+01, 0.23322E+01, 0.24226E+01, - & 0.25087E+01, 0.25920E+01, 0.26734E+01, 0.27548E+01, 0.28362E+01, - & 0.29177E+01, 0.29991E+01, 0.30805E+01, 0.31619E+01, 0.32433E+01, - &-0.16734E-01, 0.13053E+00, 0.27782E+00, 0.42804E+00, 0.57995E+00, - & 0.73062E+00, 0.87810E+00, 0.10206E+01, 0.11593E+01, 0.12927E+01, - & 0.14206E+01, 0.15430E+01, 0.16602E+01, 0.17722E+01, 0.18794E+01, - & 0.19820E+01, 0.20802E+01, 0.21739E+01, 0.22637E+01, 0.23496E+01, - & 0.24312E+01, 0.25101E+01, 0.25872E+01, 0.26643E+01, 0.27413E+01, - & 0.28184E+01, 0.28955E+01, 0.29726E+01, 0.30496E+01, 0.31267E+01, - &-0.11778E-01, 0.13364E+00, 0.27908E+00, 0.42692E+00, 0.57578E+00, - & 0.72285E+00, 0.86634E+00, 0.10045E+01, 0.11388E+01, 0.12676E+01, - & 0.13908E+01, 0.15085E+01, 0.16209E+01, 0.17282E+01, 0.18306E+01, - & 0.19287E+01, 0.20222E+01, 0.21114E+01, 0.21967E+01, 0.22782E+01, - & 0.23555E+01, 0.24302E+01, 0.25031E+01, 0.25760E+01, 0.26489E+01, - & 0.27218E+01, 0.27947E+01, 0.28675E+01, 0.29404E+01, 0.30133E+01, - &-0.67525E-02, 0.13679E+00, 0.28035E+00, 0.42581E+00, 0.57162E+00, - & 0.71512E+00, 0.85467E+00, 0.98862E+00, 0.11185E+01, 0.12428E+01, - & 0.13614E+01, 0.14745E+01, 0.15823E+01, 0.16850E+01, 0.17828E+01, - & 0.18763E+01, 0.19654E+01, 0.20503E+01, 0.21313E+01, 0.22085E+01, - & 0.22817E+01, 0.23523E+01, 0.24212E+01, 0.24901E+01, 0.25589E+01, - & 0.26278E+01, 0.26967E+01, 0.27655E+01, 0.28344E+01, 0.29033E+01, - &-0.16832E-02, 0.13996E+00, 0.28162E+00, 0.42470E+00, 0.56747E+00, - & 0.70744E+00, 0.84309E+00, 0.97287E+00, 0.10984E+01, 0.12184E+01, - & 0.13324E+01, 0.14410E+01, 0.15443E+01, 0.16426E+01, 0.17360E+01, - & 0.18251E+01, 0.19099E+01, 0.19905E+01, 0.20673E+01, 0.21404E+01, - & 0.22096E+01, 0.22764E+01, 0.23414E+01, 0.24063E+01, 0.24713E+01, - & 0.25363E+01, 0.26013E+01, 0.26663E+01, 0.27313E+01, 0.27962E+01, - & 0.34252E-02, 0.14315E+00, 0.28290E+00, 0.42359E+00, 0.56333E+00, - & 0.69980E+00, 0.83161E+00, 0.95729E+00, 0.10786E+01, 0.11942E+01, - & 0.13039E+01, 0.14081E+01, 0.15070E+01, 0.16009E+01, 0.16900E+01, - & 0.17749E+01, 0.18555E+01, 0.19320E+01, 0.20048E+01, 0.20740E+01, - & 0.21393E+01, 0.22023E+01, 0.22636E+01, 0.23248E+01, 0.23861E+01, - & 0.24473E+01, 0.25086E+01, 0.25699E+01, 0.26311E+01, 0.26924E+01, - & 0.85449E-02, 0.14636E+00, 0.28418E+00, 0.42247E+00, 0.55921E+00, - & 0.69220E+00, 0.82021E+00, 0.94186E+00, 0.10591E+01, 0.11704E+01, - & 0.12758E+01, 0.13757E+01, 0.14704E+01, 0.15600E+01, 0.16449E+01, - & 0.17257E+01, 0.18022E+01, 0.18748E+01, 0.19437E+01, 0.20091E+01, - & 0.20707E+01, 0.21301E+01, 0.21878E+01, 0.22454E+01, 0.23031E+01, - & 0.23608E+01, 0.24185E+01, 0.24761E+01, 0.25338E+01, 0.25915E+01/ - - data ((g_grdl(i,j),j=1,30),i= 41, 50)/ - & 0.13766E-01, 0.14961E+00, 0.28547E+00, 0.42136E+00, 0.55509E+00, - & 0.68464E+00, 0.80891E+00, 0.92658E+00, 0.10397E+01, 0.11469E+01, - & 0.12482E+01, 0.13438E+01, 0.14344E+01, 0.15199E+01, 0.16008E+01, - & 0.16775E+01, 0.17501E+01, 0.18188E+01, 0.18840E+01, 0.19457E+01, - & 0.20038E+01, 0.20597E+01, 0.21139E+01, 0.21682E+01, 0.22224E+01, - & 0.22766E+01, 0.23309E+01, 0.23851E+01, 0.24393E+01, 0.24936E+01, - & 0.18971E-01, 0.15287E+00, 0.28677E+00, 0.42024E+00, 0.55099E+00, - & 0.67713E+00, 0.79769E+00, 0.91146E+00, 0.10206E+01, 0.11237E+01, - & 0.12209E+01, 0.13125E+01, 0.13989E+01, 0.14805E+01, 0.15574E+01, - & 0.16303E+01, 0.16991E+01, 0.17642E+01, 0.18257E+01, 0.18839E+01, - & 0.19386E+01, 0.19911E+01, 0.20420E+01, 0.20929E+01, 0.21438E+01, - & 0.21948E+01, 0.22457E+01, 0.22966E+01, 0.23475E+01, 0.23984E+01, - & 0.24242E-01, 0.15616E+00, 0.28807E+00, 0.41913E+00, 0.54690E+00, - & 0.66966E+00, 0.78656E+00, 0.89649E+00, 0.10017E+01, 0.11009E+01, - & 0.11940E+01, 0.12817E+01, 0.13642E+01, 0.14418E+01, 0.15149E+01, - & 0.15841E+01, 0.16493E+01, 0.17107E+01, 0.17688E+01, 0.18236E+01, - & 0.18749E+01, 0.19242E+01, 0.19719E+01, 0.20197E+01, 0.20674E+01, - & 0.21152E+01, 0.21629E+01, 0.22107E+01, 0.22584E+01, 0.23061E+01, - & 0.29560E-01, 0.15947E+00, 0.28938E+00, 0.41801E+00, 0.54282E+00, - & 0.66222E+00, 0.77552E+00, 0.88167E+00, 0.98304E+00, 0.10783E+01, - & 0.11675E+01, 0.12513E+01, 0.13300E+01, 0.14039E+01, 0.14733E+01, - & 0.15388E+01, 0.16005E+01, 0.16584E+01, 0.17131E+01, 0.17647E+01, - & 0.18129E+01, 0.18590E+01, 0.19037E+01, 0.19484E+01, 0.19931E+01, - & 0.20378E+01, 0.20825E+01, 0.21271E+01, 0.21718E+01, 0.22165E+01, - & 0.34918E-01, 0.16281E+00, 0.29069E+00, 0.41689E+00, 0.53875E+00, - & 0.65483E+00, 0.76457E+00, 0.86699E+00, 0.96459E+00, 0.10560E+01, - & 0.11415E+01, 0.12214E+01, 0.12964E+01, 0.13666E+01, 0.14325E+01, - & 0.14945E+01, 0.15527E+01, 0.16074E+01, 0.16588E+01, 0.17072E+01, - & 0.17524E+01, 0.17955E+01, 0.18373E+01, 0.18790E+01, 0.19208E+01, - & 0.19625E+01, 0.20043E+01, 0.20461E+01, 0.20878E+01, 0.21296E+01, - & 0.40319E-01, 0.16617E+00, 0.29202E+00, 0.41577E+00, 0.53468E+00, - & 0.64747E+00, 0.75370E+00, 0.85247E+00, 0.94635E+00, 0.10341E+01, - & 0.11158E+01, 0.11921E+01, 0.12634E+01, 0.13301E+01, 0.13924E+01, - & 0.14511E+01, 0.15060E+01, 0.15574E+01, 0.16058E+01, 0.16511E+01, - & 0.16933E+01, 0.17337E+01, 0.17726E+01, 0.18116E+01, 0.18505E+01, - & 0.18895E+01, 0.19284E+01, 0.19673E+01, 0.20063E+01, 0.20452E+01, - & 0.45795E-01, 0.16958E+00, 0.29335E+00, 0.41465E+00, 0.53063E+00, - & 0.64015E+00, 0.74291E+00, 0.83808E+00, 0.92834E+00, 0.10124E+01, - & 0.10905E+01, 0.11632E+01, 0.12310E+01, 0.12942E+01, 0.13532E+01, - & 0.14086E+01, 0.14603E+01, 0.15086E+01, 0.15540E+01, 0.15964E+01, - & 0.16358E+01, 0.16734E+01, 0.17097E+01, 0.17459E+01, 0.17822E+01, - & 0.18184E+01, 0.18547E+01, 0.18909E+01, 0.19272E+01, 0.19634E+01, - & 0.51315E-01, 0.17301E+00, 0.29468E+00, 0.41353E+00, 0.52659E+00, - & 0.63288E+00, 0.73220E+00, 0.82384E+00, 0.91053E+00, 0.99102E+00, - & 0.10655E+01, 0.11348E+01, 0.11992E+01, 0.12590E+01, 0.13148E+01, - & 0.13670E+01, 0.14156E+01, 0.14610E+01, 0.15034E+01, 0.15430E+01, - & 0.15798E+01, 0.16147E+01, 0.16484E+01, 0.16821E+01, 0.17157E+01, - & 0.17494E+01, 0.17831E+01, 0.18168E+01, 0.18504E+01, 0.18841E+01, - & 0.56877E-01, 0.17646E+00, 0.29603E+00, 0.41241E+00, 0.52255E+00, - & 0.62563E+00, 0.72158E+00, 0.80974E+00, 0.89293E+00, 0.96992E+00, - & 0.10410E+01, 0.11068E+01, 0.11679E+01, 0.12245E+01, 0.12771E+01, - & 0.13262E+01, 0.13719E+01, 0.14144E+01, 0.14540E+01, 0.14910E+01, - & 0.15251E+01, 0.15576E+01, 0.15888E+01, 0.16200E+01, 0.16512E+01, - & 0.16824E+01, 0.17136E+01, 0.17448E+01, 0.17761E+01, 0.18073E+01, - & 0.62485E-01, 0.17995E+00, 0.29738E+00, 0.41128E+00, 0.51852E+00, - & 0.61842E+00, 0.71103E+00, 0.79578E+00, 0.87553E+00, 0.94911E+00, - & 0.10168E+01, 0.10793E+01, 0.11372E+01, 0.11906E+01, 0.12402E+01, - & 0.12863E+01, 0.13291E+01, 0.13689E+01, 0.14058E+01, 0.14402E+01, - & 0.14719E+01, 0.15019E+01, 0.15308E+01, 0.15596E+01, 0.15885E+01, - & 0.16173E+01, 0.16462E+01, 0.16750E+01, 0.17039E+01, 0.17327E+01/ - - data ((g_grdl(i,j),j=1,30),i= 51, 60)/ - & 0.68166E-01, 0.18347E+00, 0.29874E+00, 0.41016E+00, 0.51450E+00, - & 0.61125E+00, 0.70057E+00, 0.78195E+00, 0.85834E+00, 0.92857E+00, - & 0.99298E+00, 0.10523E+01, 0.11070E+01, 0.11574E+01, 0.12040E+01, - & 0.12473E+01, 0.12873E+01, 0.13244E+01, 0.13588E+01, 0.13907E+01, - & 0.14200E+01, 0.14477E+01, 0.14743E+01, 0.15009E+01, 0.15275E+01, - & 0.15541E+01, 0.15807E+01, 0.16073E+01, 0.16339E+01, 0.16605E+01, - & 0.73893E-01, 0.18702E+00, 0.30011E+00, 0.40903E+00, 0.51049E+00, - & 0.60412E+00, 0.69018E+00, 0.76827E+00, 0.84135E+00, 0.90832E+00, - & 0.96951E+00, 0.10257E+01, 0.10773E+01, 0.11248E+01, 0.11686E+01, - & 0.12091E+01, 0.12465E+01, 0.12810E+01, 0.13129E+01, 0.13425E+01, - & 0.13695E+01, 0.13950E+01, 0.14194E+01, 0.14439E+01, 0.14683E+01, - & 0.14928E+01, 0.15172E+01, 0.15416E+01, 0.15661E+01, 0.15905E+01, - & 0.79665E-01, 0.19060E+00, 0.30149E+00, 0.40789E+00, 0.50648E+00, - & 0.59701E+00, 0.67987E+00, 0.75471E+00, 0.82456E+00, 0.88833E+00, - & 0.94640E+00, 0.99952E+00, 0.10482E+01, 0.10928E+01, 0.11338E+01, - & 0.11717E+01, 0.12065E+01, 0.12386E+01, 0.12681E+01, 0.12954E+01, - & 0.13202E+01, 0.13436E+01, 0.13660E+01, 0.13884E+01, 0.14108E+01, - & 0.14331E+01, 0.14555E+01, 0.14779E+01, 0.15003E+01, 0.15226E+01, - & 0.85511E-01, 0.19421E+00, 0.30288E+00, 0.40676E+00, 0.50248E+00, - & 0.58994E+00, 0.66963E+00, 0.74128E+00, 0.80796E+00, 0.86860E+00, - & 0.92363E+00, 0.97378E+00, 0.10196E+01, 0.10615E+01, 0.10998E+01, - & 0.11351E+01, 0.11675E+01, 0.11971E+01, 0.12244E+01, 0.12495E+01, - & 0.12723E+01, 0.12937E+01, 0.13141E+01, 0.13345E+01, 0.13549E+01, - & 0.13753E+01, 0.13958E+01, 0.14162E+01, 0.14366E+01, 0.14570E+01, - & 0.91374E-01, 0.19785E+00, 0.30428E+00, 0.40562E+00, 0.49848E+00, - & 0.58290E+00, 0.65947E+00, 0.72798E+00, 0.79155E+00, 0.84914E+00, - & 0.90120E+00, 0.94848E+00, 0.99153E+00, 0.10307E+01, 0.10665E+01, - & 0.10993E+01, 0.11293E+01, 0.11567E+01, 0.11818E+01, 0.12048E+01, - & 0.12256E+01, 0.12451E+01, 0.12636E+01, 0.12821E+01, 0.13007E+01, - & 0.13192E+01, 0.13377E+01, 0.13563E+01, 0.13748E+01, 0.13933E+01, - & 0.97372E-01, 0.20155E+00, 0.30568E+00, 0.40448E+00, 0.49449E+00, - & 0.57589E+00, 0.64938E+00, 0.71481E+00, 0.77534E+00, 0.82994E+00, - & 0.87910E+00, 0.92359E+00, 0.96394E+00, 0.10006E+01, 0.10338E+01, - & 0.10643E+01, 0.10920E+01, 0.11172E+01, 0.11402E+01, 0.11612E+01, - & 0.11801E+01, 0.11977E+01, 0.12145E+01, 0.12312E+01, 0.12480E+01, - & 0.12647E+01, 0.12815E+01, 0.12982E+01, 0.13150E+01, 0.13317E+01, - & 0.10336E+00, 0.20525E+00, 0.30709E+00, 0.40333E+00, 0.49051E+00, - & 0.56892E+00, 0.63936E+00, 0.70177E+00, 0.75930E+00, 0.81100E+00, - & 0.85734E+00, 0.89911E+00, 0.93685E+00, 0.97096E+00, 0.10018E+01, - & 0.10300E+01, 0.10555E+01, 0.10786E+01, 0.10996E+01, 0.11187E+01, - & 0.11358E+01, 0.11517E+01, 0.11668E+01, 0.11818E+01, 0.11969E+01, - & 0.12119E+01, 0.12270E+01, 0.12420E+01, 0.12571E+01, 0.12721E+01, - & 0.10945E+00, 0.20901E+00, 0.30852E+00, 0.40219E+00, 0.48652E+00, - & 0.56197E+00, 0.62941E+00, 0.68884E+00, 0.74346E+00, 0.79231E+00, - & 0.83590E+00, 0.87503E+00, 0.91025E+00, 0.94193E+00, 0.97050E+00, - & 0.99644E+00, 0.10198E+01, 0.10410E+01, 0.10601E+01, 0.10773E+01, - & 0.10927E+01, 0.11069E+01, 0.11204E+01, 0.11338E+01, 0.11472E+01, - & 0.11607E+01, 0.11741E+01, 0.11875E+01, 0.12009E+01, 0.12144E+01, - & 0.11560E+00, 0.21280E+00, 0.30995E+00, 0.40103E+00, 0.48254E+00, - & 0.55505E+00, 0.61952E+00, 0.67604E+00, 0.72779E+00, 0.77386E+00, - & 0.81478E+00, 0.85135E+00, 0.88412E+00, 0.91347E+00, 0.93981E+00, - & 0.96362E+00, 0.98500E+00, 0.10042E+01, 0.10215E+01, 0.10370E+01, - & 0.10507E+01, 0.10634E+01, 0.10753E+01, 0.10872E+01, 0.10991E+01, - & 0.11109E+01, 0.11228E+01, 0.11347E+01, 0.11466E+01, 0.11585E+01, - & 0.12181E+00, 0.21663E+00, 0.31140E+00, 0.39988E+00, 0.47857E+00, - & 0.54816E+00, 0.60971E+00, 0.66336E+00, 0.71229E+00, 0.75565E+00, - & 0.79398E+00, 0.82806E+00, 0.85846E+00, 0.88555E+00, 0.90975E+00, - & 0.93152E+00, 0.95095E+00, 0.96830E+00, 0.98384E+00, 0.99770E+00, - & 0.10099E+01, 0.10210E+01, 0.10315E+01, 0.10419E+01, 0.10523E+01, - & 0.10628E+01, 0.10732E+01, 0.10837E+01, 0.10941E+01, 0.11046E+01/ - - data ((g_grdl(i,j),j=1,30),i= 61, 70)/ - & 0.12808E+00, 0.22050E+00, 0.31285E+00, 0.39872E+00, 0.47459E+00, - & 0.54129E+00, 0.59995E+00, 0.65079E+00, 0.69698E+00, 0.73769E+00, - & 0.77348E+00, 0.80516E+00, 0.83326E+00, 0.85817E+00, 0.88030E+00, - & 0.90011E+00, 0.91768E+00, 0.93327E+00, 0.94714E+00, 0.95942E+00, - & 0.97010E+00, 0.97983E+00, 0.98889E+00, 0.99795E+00, 0.10070E+01, - & 0.10161E+01, 0.10251E+01, 0.10342E+01, 0.10432E+01, 0.10523E+01, - & 0.13446E+00, 0.22442E+00, 0.31432E+00, 0.39755E+00, 0.47062E+00, - & 0.53445E+00, 0.59027E+00, 0.63833E+00, 0.68183E+00, 0.71996E+00, - & 0.75329E+00, 0.78263E+00, 0.80851E+00, 0.83132E+00, 0.85146E+00, - & 0.86938E+00, 0.88517E+00, 0.89908E+00, 0.91135E+00, 0.92213E+00, - & 0.93140E+00, 0.93978E+00, 0.94753E+00, 0.95528E+00, 0.96302E+00, - & 0.97077E+00, 0.97852E+00, 0.98627E+00, 0.99402E+00, 0.10018E+01, - & 0.14089E+00, 0.22837E+00, 0.31579E+00, 0.39638E+00, 0.46665E+00, - & 0.52763E+00, 0.58064E+00, 0.62599E+00, 0.66685E+00, 0.70246E+00, - & 0.73340E+00, 0.76046E+00, 0.78420E+00, 0.80498E+00, 0.82321E+00, - & 0.83932E+00, 0.85341E+00, 0.86570E+00, 0.87646E+00, 0.88581E+00, - & 0.89374E+00, 0.90083E+00, 0.90734E+00, 0.91385E+00, 0.92036E+00, - & 0.92687E+00, 0.93338E+00, 0.93989E+00, 0.94640E+00, 0.95291E+00, - & 0.14740E+00, 0.23237E+00, 0.31728E+00, 0.39520E+00, 0.46267E+00, - & 0.52084E+00, 0.57107E+00, 0.61376E+00, 0.65203E+00, 0.68518E+00, - & 0.71380E+00, 0.73866E+00, 0.76032E+00, 0.77916E+00, 0.79555E+00, - & 0.80992E+00, 0.82237E+00, 0.83313E+00, 0.84244E+00, 0.85043E+00, - & 0.85709E+00, 0.86297E+00, 0.86831E+00, 0.87365E+00, 0.87899E+00, - & 0.88433E+00, 0.88967E+00, 0.89501E+00, 0.90035E+00, 0.90569E+00, - & 0.15399E+00, 0.23641E+00, 0.31878E+00, 0.39402E+00, 0.45870E+00, - & 0.51406E+00, 0.56156E+00, 0.60163E+00, 0.63738E+00, 0.66813E+00, - & 0.69448E+00, 0.71721E+00, 0.73687E+00, 0.75382E+00, 0.76844E+00, - & 0.78115E+00, 0.79204E+00, 0.80133E+00, 0.80927E+00, 0.81596E+00, - & 0.82143E+00, 0.82617E+00, 0.83040E+00, 0.83463E+00, 0.83887E+00, - & 0.84310E+00, 0.84733E+00, 0.85157E+00, 0.85580E+00, 0.86003E+00, - & 0.16063E+00, 0.24049E+00, 0.32029E+00, 0.39283E+00, 0.45472E+00, - & 0.50731E+00, 0.55211E+00, 0.58960E+00, 0.62288E+00, 0.65129E+00, - & 0.67544E+00, 0.69612E+00, 0.71384E+00, 0.72897E+00, 0.74190E+00, - & 0.75301E+00, 0.76241E+00, 0.77031E+00, 0.77693E+00, 0.78240E+00, - & 0.78673E+00, 0.79039E+00, 0.79358E+00, 0.79677E+00, 0.79996E+00, - & 0.80315E+00, 0.80635E+00, 0.80954E+00, 0.81273E+00, 0.81592E+00, - & 0.16738E+00, 0.24463E+00, 0.32181E+00, 0.39164E+00, 0.45074E+00, - & 0.50057E+00, 0.54271E+00, 0.57767E+00, 0.60853E+00, 0.63466E+00, - & 0.65668E+00, 0.67535E+00, 0.69120E+00, 0.70459E+00, 0.71589E+00, - & 0.72547E+00, 0.73345E+00, 0.74002E+00, 0.74540E+00, 0.74971E+00, - & 0.75297E+00, 0.75561E+00, 0.75782E+00, 0.76003E+00, 0.76224E+00, - & 0.76445E+00, 0.76666E+00, 0.76887E+00, 0.77108E+00, 0.77329E+00, - & 0.17421E+00, 0.24881E+00, 0.32335E+00, 0.39043E+00, 0.44675E+00, - & 0.49385E+00, 0.53336E+00, 0.56584E+00, 0.59433E+00, 0.61823E+00, - & 0.63818E+00, 0.65492E+00, 0.66897E+00, 0.68068E+00, 0.69041E+00, - & 0.69853E+00, 0.70515E+00, 0.71046E+00, 0.71466E+00, 0.71788E+00, - & 0.72012E+00, 0.72180E+00, 0.72309E+00, 0.72438E+00, 0.72567E+00, - & 0.72696E+00, 0.72825E+00, 0.72954E+00, 0.73083E+00, 0.73212E+00, - & 0.18113E+00, 0.25304E+00, 0.32489E+00, 0.38922E+00, 0.44276E+00, - & 0.48714E+00, 0.52405E+00, 0.55410E+00, 0.58027E+00, 0.60201E+00, - & 0.61994E+00, 0.63481E+00, 0.64711E+00, 0.65722E+00, 0.66545E+00, - & 0.67218E+00, 0.67750E+00, 0.68160E+00, 0.68469E+00, 0.68687E+00, - & 0.68816E+00, 0.68894E+00, 0.68937E+00, 0.68980E+00, 0.69022E+00, - & 0.69065E+00, 0.69107E+00, 0.69150E+00, 0.69193E+00, 0.69235E+00, - & 0.18816E+00, 0.25734E+00, 0.32645E+00, 0.38800E+00, 0.43875E+00, - & 0.48045E+00, 0.51479E+00, 0.54245E+00, 0.56635E+00, 0.58597E+00, - & 0.60195E+00, 0.61500E+00, 0.62563E+00, 0.63418E+00, 0.64098E+00, - & 0.64637E+00, 0.65046E+00, 0.65343E+00, 0.65546E+00, 0.65666E+00, - & 0.65706E+00, 0.65700E+00, 0.65661E+00, 0.65623E+00, 0.65585E+00, - & 0.65547E+00, 0.65508E+00, 0.65470E+00, 0.65432E+00, 0.65394E+00/ - - data ((g_grdl(i,j),j=1,30),i= 71, 80)/ - & 0.19525E+00, 0.26167E+00, 0.32803E+00, 0.38677E+00, 0.43474E+00, - & 0.47376E+00, 0.50557E+00, 0.53089E+00, 0.55256E+00, 0.57012E+00, - & 0.58420E+00, 0.59550E+00, 0.60452E+00, 0.61158E+00, 0.61700E+00, - & 0.62112E+00, 0.62404E+00, 0.62592E+00, 0.62696E+00, 0.62724E+00, - & 0.62680E+00, 0.62594E+00, 0.62481E+00, 0.62367E+00, 0.62253E+00, - & 0.62140E+00, 0.62026E+00, 0.61912E+00, 0.61799E+00, 0.61685E+00, - & 0.20245E+00, 0.26607E+00, 0.32962E+00, 0.38553E+00, 0.43072E+00, - & 0.46708E+00, 0.49639E+00, 0.51939E+00, 0.53889E+00, 0.55444E+00, - & 0.56668E+00, 0.57629E+00, 0.58375E+00, 0.58938E+00, 0.59349E+00, - & 0.59640E+00, 0.59820E+00, 0.59906E+00, 0.59915E+00, 0.59857E+00, - & 0.59734E+00, 0.59575E+00, 0.59391E+00, 0.59207E+00, 0.59023E+00, - & 0.58839E+00, 0.58655E+00, 0.58471E+00, 0.58287E+00, 0.58103E+00, - & 0.20974E+00, 0.27051E+00, 0.33122E+00, 0.38428E+00, 0.42669E+00, - & 0.46040E+00, 0.48724E+00, 0.50798E+00, 0.52534E+00, 0.53894E+00, - & 0.54939E+00, 0.55736E+00, 0.56332E+00, 0.56758E+00, 0.57043E+00, - & 0.57218E+00, 0.57293E+00, 0.57282E+00, 0.57203E+00, 0.57063E+00, - & 0.56867E+00, 0.56639E+00, 0.56390E+00, 0.56141E+00, 0.55891E+00, - & 0.55642E+00, 0.55393E+00, 0.55143E+00, 0.54894E+00, 0.54645E+00, - & 0.21714E+00, 0.27502E+00, 0.33284E+00, 0.38301E+00, 0.42263E+00, - & 0.45372E+00, 0.47811E+00, 0.49662E+00, 0.51190E+00, 0.52359E+00, - & 0.53230E+00, 0.53870E+00, 0.54321E+00, 0.54615E+00, 0.54781E+00, - & 0.54846E+00, 0.54820E+00, 0.54718E+00, 0.54556E+00, 0.54340E+00, - & 0.54076E+00, 0.53784E+00, 0.53474E+00, 0.53164E+00, 0.52855E+00, - & 0.52545E+00, 0.52235E+00, 0.51925E+00, 0.51615E+00, 0.51305E+00, - & 0.22466E+00, 0.27960E+00, 0.33447E+00, 0.38173E+00, 0.41856E+00, - & 0.44703E+00, 0.46901E+00, 0.48533E+00, 0.49856E+00, 0.50839E+00, - & 0.51542E+00, 0.52029E+00, 0.52341E+00, 0.52509E+00, 0.52561E+00, - & 0.52521E+00, 0.52401E+00, 0.52213E+00, 0.51972E+00, 0.51685E+00, - & 0.51357E+00, 0.51007E+00, 0.50641E+00, 0.50276E+00, 0.49910E+00, - & 0.49544E+00, 0.49178E+00, 0.48813E+00, 0.48447E+00, 0.48081E+00, - & 0.23228E+00, 0.28423E+00, 0.33612E+00, 0.38043E+00, 0.41446E+00, - & 0.44033E+00, 0.45992E+00, 0.47408E+00, 0.48531E+00, 0.49333E+00, - & 0.49873E+00, 0.50211E+00, 0.50390E+00, 0.50438E+00, 0.50380E+00, - & 0.50242E+00, 0.50031E+00, 0.49763E+00, 0.49448E+00, 0.49096E+00, - & 0.48709E+00, 0.48304E+00, 0.47887E+00, 0.47470E+00, 0.47053E+00, - & 0.46636E+00, 0.46219E+00, 0.45802E+00, 0.45385E+00, 0.44968E+00, - & 0.24008E+00, 0.28896E+00, 0.33778E+00, 0.37912E+00, 0.41034E+00, - & 0.43361E+00, 0.45083E+00, 0.46288E+00, 0.47215E+00, 0.47839E+00, - & 0.48220E+00, 0.48416E+00, 0.48467E+00, 0.48399E+00, 0.48238E+00, - & 0.48005E+00, 0.47710E+00, 0.47366E+00, 0.46983E+00, 0.46569E+00, - & 0.46129E+00, 0.45674E+00, 0.45210E+00, 0.44746E+00, 0.44282E+00, - & 0.43819E+00, 0.43355E+00, 0.42891E+00, 0.42427E+00, 0.41963E+00, - & 0.24794E+00, 0.29374E+00, 0.33947E+00, 0.37778E+00, 0.40618E+00, - & 0.42687E+00, 0.44174E+00, 0.45169E+00, 0.45904E+00, 0.46356E+00, - & 0.46584E+00, 0.46642E+00, 0.46569E+00, 0.46391E+00, 0.46131E+00, - & 0.45809E+00, 0.45435E+00, 0.45020E+00, 0.44573E+00, 0.44103E+00, - & 0.43612E+00, 0.43112E+00, 0.42606E+00, 0.42100E+00, 0.41593E+00, - & 0.41087E+00, 0.40580E+00, 0.40074E+00, 0.39568E+00, 0.39061E+00, - & 0.25599E+00, 0.29861E+00, 0.34117E+00, 0.37643E+00, 0.40198E+00, - & 0.42009E+00, 0.43263E+00, 0.44053E+00, 0.44599E+00, 0.44883E+00, - & 0.44960E+00, 0.44886E+00, 0.44695E+00, 0.44412E+00, 0.44058E+00, - & 0.43652E+00, 0.43203E+00, 0.42721E+00, 0.42216E+00, 0.41694E+00, - & 0.41158E+00, 0.40617E+00, 0.40072E+00, 0.39528E+00, 0.38983E+00, - & 0.38438E+00, 0.37894E+00, 0.37349E+00, 0.36805E+00, 0.36260E+00, - & 0.26422E+00, 0.30359E+00, 0.34290E+00, 0.37504E+00, 0.39774E+00, - & 0.41326E+00, 0.42349E+00, 0.42936E+00, 0.43296E+00, 0.43416E+00, - & 0.43349E+00, 0.43146E+00, 0.42841E+00, 0.42458E+00, 0.42015E+00, - & 0.41530E+00, 0.41011E+00, 0.40468E+00, 0.39909E+00, 0.39339E+00, - & 0.38762E+00, 0.38184E+00, 0.37605E+00, 0.37027E+00, 0.36448E+00, - & 0.35869E+00, 0.35291E+00, 0.34712E+00, 0.34133E+00, 0.33555E+00/ - - data ((g_grdl(i,j),j=1,30),i= 81, 90)/ - & 0.27260E+00, 0.30865E+00, 0.34464E+00, 0.37362E+00, 0.39344E+00, - & 0.40638E+00, 0.41431E+00, 0.41817E+00, 0.41995E+00, 0.41954E+00, - & 0.41747E+00, 0.41420E+00, 0.41006E+00, 0.40527E+00, 0.40000E+00, - & 0.39441E+00, 0.38857E+00, 0.38257E+00, 0.37648E+00, 0.37035E+00, - & 0.36422E+00, 0.35811E+00, 0.35202E+00, 0.34594E+00, 0.33985E+00, - & 0.33376E+00, 0.32768E+00, 0.32159E+00, 0.31551E+00, 0.30942E+00, - & 0.28117E+00, 0.31382E+00, 0.34641E+00, 0.37217E+00, 0.38908E+00, - & 0.39942E+00, 0.40506E+00, 0.40694E+00, 0.40693E+00, 0.40495E+00, - & 0.40150E+00, 0.39705E+00, 0.39187E+00, 0.38616E+00, 0.38010E+00, - & 0.37381E+00, 0.36737E+00, 0.36085E+00, 0.35431E+00, 0.34779E+00, - & 0.34133E+00, 0.33494E+00, 0.32859E+00, 0.32225E+00, 0.31590E+00, - & 0.30956E+00, 0.30321E+00, 0.29687E+00, 0.29052E+00, 0.28418E+00, - & 0.28994E+00, 0.31911E+00, 0.34821E+00, 0.37068E+00, 0.38463E+00, - & 0.39237E+00, 0.39572E+00, 0.39564E+00, 0.39386E+00, 0.39034E+00, - & 0.38558E+00, 0.37997E+00, 0.37379E+00, 0.36722E+00, 0.36041E+00, - & 0.35348E+00, 0.34648E+00, 0.33948E+00, 0.33254E+00, 0.32567E+00, - & 0.31894E+00, 0.31230E+00, 0.30574E+00, 0.29918E+00, 0.29262E+00, - & 0.28605E+00, 0.27949E+00, 0.27293E+00, 0.26637E+00, 0.25981E+00, - & 0.29894E+00, 0.32452E+00, 0.35004E+00, 0.36914E+00, 0.38009E+00, - & 0.38520E+00, 0.38627E+00, 0.38424E+00, 0.38071E+00, 0.37570E+00, - & 0.36964E+00, 0.36293E+00, 0.35579E+00, 0.34841E+00, 0.34091E+00, - & 0.33337E+00, 0.32586E+00, 0.31844E+00, 0.31113E+00, 0.30397E+00, - & 0.29700E+00, 0.29016E+00, 0.28343E+00, 0.27669E+00, 0.26996E+00, - & 0.26322E+00, 0.25648E+00, 0.24975E+00, 0.24301E+00, 0.23627E+00, - & 0.30823E+00, 0.33010E+00, 0.35191E+00, 0.36754E+00, 0.37544E+00, - & 0.37789E+00, 0.37666E+00, 0.37270E+00, 0.36745E+00, 0.36096E+00, - & 0.35365E+00, 0.34587E+00, 0.33783E+00, 0.32968E+00, 0.32153E+00, - & 0.31344E+00, 0.30547E+00, 0.29767E+00, 0.29005E+00, 0.28264E+00, - & 0.27548E+00, 0.26849E+00, 0.26162E+00, 0.25475E+00, 0.24788E+00, - & 0.24101E+00, 0.23414E+00, 0.22727E+00, 0.22041E+00, 0.21354E+00, - & 0.31786E+00, 0.33586E+00, 0.35381E+00, 0.36587E+00, 0.37064E+00, - & 0.37040E+00, 0.36686E+00, 0.36097E+00, 0.35401E+00, 0.34608E+00, - & 0.33756E+00, 0.32876E+00, 0.31986E+00, 0.31099E+00, 0.30223E+00, - & 0.29364E+00, 0.28527E+00, 0.27714E+00, 0.26926E+00, 0.26164E+00, - & 0.25434E+00, 0.24724E+00, 0.24028E+00, 0.23332E+00, 0.22637E+00, - & 0.21941E+00, 0.21246E+00, 0.20550E+00, 0.19855E+00, 0.19159E+00, - & 0.32785E+00, 0.34183E+00, 0.35577E+00, 0.36411E+00, 0.36567E+00, - & 0.36268E+00, 0.35682E+00, 0.34900E+00, 0.34035E+00, 0.33100E+00, - & 0.32130E+00, 0.31152E+00, 0.30181E+00, 0.29227E+00, 0.28297E+00, - & 0.27394E+00, 0.26521E+00, 0.25680E+00, 0.24871E+00, 0.24094E+00, - & 0.23354E+00, 0.22638E+00, 0.21939E+00, 0.21239E+00, 0.20540E+00, - & 0.19840E+00, 0.19141E+00, 0.18441E+00, 0.17742E+00, 0.17042E+00, - & 0.33828E+00, 0.34805E+00, 0.35777E+00, 0.36225E+00, 0.36048E+00, - & 0.35468E+00, 0.34646E+00, 0.33671E+00, 0.32637E+00, 0.31563E+00, - & 0.30480E+00, 0.29409E+00, 0.28362E+00, 0.27347E+00, 0.26368E+00, - & 0.25425E+00, 0.24523E+00, 0.23660E+00, 0.22836E+00, 0.22050E+00, - & 0.21306E+00, 0.20588E+00, 0.19890E+00, 0.19192E+00, 0.18494E+00, - & 0.17795E+00, 0.17097E+00, 0.16399E+00, 0.15701E+00, 0.15002E+00, - & 0.34927E+00, 0.35458E+00, 0.35985E+00, 0.36025E+00, 0.35502E+00, - & 0.34633E+00, 0.33570E+00, 0.32400E+00, 0.31200E+00, 0.29989E+00, - & 0.28797E+00, 0.27637E+00, 0.26520E+00, 0.25449E+00, 0.24428E+00, - & 0.23453E+00, 0.22527E+00, 0.21650E+00, 0.20816E+00, 0.20027E+00, - & 0.19285E+00, 0.18572E+00, 0.17880E+00, 0.17188E+00, 0.16497E+00, - & 0.15805E+00, 0.15113E+00, 0.14422E+00, 0.13730E+00, 0.13038E+00, - & 0.36091E+00, 0.36148E+00, 0.36200E+00, 0.35809E+00, 0.34922E+00, - & 0.33752E+00, 0.32442E+00, 0.31077E+00, 0.29710E+00, 0.28366E+00, - & 0.27068E+00, 0.25826E+00, 0.24645E+00, 0.23527E+00, 0.22470E+00, - & 0.21470E+00, 0.20528E+00, 0.19642E+00, 0.18807E+00, 0.18021E+00, - & 0.17287E+00, 0.16585E+00, 0.15906E+00, 0.15228E+00, 0.14549E+00, - & 0.13870E+00, 0.13191E+00, 0.12512E+00, 0.11834E+00, 0.11155E+00/ - - data ((g_grdl(i,j),j=1,30),i= 91,100)/ - & 0.37345E+00, 0.36887E+00, 0.36425E+00, 0.35570E+00, 0.34298E+00, - & 0.32813E+00, 0.31248E+00, 0.29685E+00, 0.28152E+00, 0.26678E+00, - & 0.25280E+00, 0.23963E+00, 0.22725E+00, 0.21567E+00, 0.20484E+00, - & 0.19468E+00, 0.18519E+00, 0.17633E+00, 0.16803E+00, 0.16028E+00, - & 0.15310E+00, 0.14627E+00, 0.13967E+00, 0.13308E+00, 0.12649E+00, - & 0.11990E+00, 0.11331E+00, 0.10672E+00, 0.10013E+00, 0.93538E-01, - & 0.38711E+00, 0.37689E+00, 0.36663E+00, 0.35302E+00, 0.33614E+00, - & 0.31796E+00, 0.29967E+00, 0.28203E+00, 0.26504E+00, 0.24905E+00, - & 0.23415E+00, 0.22031E+00, 0.20747E+00, 0.19559E+00, 0.18459E+00, - & 0.17436E+00, 0.16490E+00, 0.15614E+00, 0.14801E+00, 0.14046E+00, - & 0.13352E+00, 0.12694E+00, 0.12063E+00, 0.11432E+00, 0.10800E+00, - & 0.10169E+00, 0.95374E-01, 0.89060E-01, 0.82746E-01, 0.76432E-01, - & 0.40235E+00, 0.38578E+00, 0.36917E+00, 0.34993E+00, 0.32851E+00, - & 0.30675E+00, 0.28570E+00, 0.26602E+00, 0.24740E+00, 0.23021E+00, - & 0.21448E+00, 0.20008E+00, 0.18690E+00, 0.17485E+00, 0.16382E+00, - & 0.15367E+00, 0.14436E+00, 0.13582E+00, 0.12795E+00, 0.12071E+00, - & 0.11411E+00, 0.10790E+00, 0.10195E+00, 0.96000E-01, 0.90053E-01, - & 0.84106E-01, 0.78158E-01, 0.72211E-01, 0.66263E-01, 0.60316E-01, - & 0.41976E+00, 0.39586E+00, 0.37193E+00, 0.34625E+00, 0.31975E+00, - & 0.29411E+00, 0.27014E+00, 0.24840E+00, 0.22818E+00, 0.20990E+00, - & 0.19348E+00, 0.17868E+00, 0.16533E+00, 0.15328E+00, 0.14239E+00, - & 0.13247E+00, 0.12347E+00, 0.11530E+00, 0.10784E+00, 0.10104E+00, - & 0.94900E-01, 0.89151E-01, 0.83677E-01, 0.78203E-01, 0.72729E-01, - & 0.67255E-01, 0.61781E-01, 0.56307E-01, 0.50833E-01, 0.45359E-01, - & 0.44040E+00, 0.40769E+00, 0.37497E+00, 0.34168E+00, 0.30934E+00, - & 0.27940E+00, 0.25234E+00, 0.22854E+00, 0.20682E+00, 0.18761E+00, - & 0.17071E+00, 0.15575E+00, 0.14246E+00, 0.13066E+00, 0.12013E+00, - & 0.11065E+00, 0.10217E+00, 0.94554E-01, 0.87680E-01, 0.81478E-01, - & 0.75942E-01, 0.70794E-01, 0.65918E-01, 0.61043E-01, 0.56168E-01, - & 0.51292E-01, 0.46417E-01, 0.41542E-01, 0.36666E-01, 0.31791E-01, - & 0.46620E+00, 0.42231E+00, 0.37842E+00, 0.33565E+00, 0.29635E+00, - & 0.26154E+00, 0.23121E+00, 0.20545E+00, 0.18242E+00, 0.16258E+00, - & 0.14555E+00, 0.13078E+00, 0.11792E+00, 0.10670E+00, 0.96860E-01, - & 0.88131E-01, 0.80434E-01, 0.73624E-01, 0.67555E-01, 0.62148E-01, - & 0.57386E-01, 0.52996E-01, 0.48865E-01, 0.44734E-01, 0.40603E-01, - & 0.36472E-01, 0.32341E-01, 0.28210E-01, 0.24079E-01, 0.19948E-01, - & 0.50116E+00, 0.44178E+00, 0.38243E+00, 0.32695E+00, 0.27889E+00, - & 0.23846E+00, 0.20475E+00, 0.17735E+00, 0.15349E+00, 0.13362E+00, - & 0.11707E+00, 0.10312E+00, 0.91258E-01, 0.81145E-01, 0.72463E-01, - & 0.64904E-01, 0.58365E-01, 0.52681E-01, 0.47698E-01, 0.43329E-01, - & 0.39546E-01, 0.36093E-01, 0.32871E-01, 0.29649E-01, 0.26427E-01, - & 0.23205E-01, 0.19983E-01, 0.16761E-01, 0.13539E-01, 0.10317E-01, - & 0.55485E+00, 0.47095E+00, 0.38712E+00, 0.31226E+00, 0.25224E+00, - & 0.20534E+00, 0.16871E+00, 0.14076E+00, 0.11734E+00, 0.98759E-01, - & 0.83952E-01, 0.71929E-01, 0.62052E-01, 0.53889E-01, 0.47081E-01, - & 0.41298E-01, 0.36421E-01, 0.32280E-01, 0.28726E-01, 0.25673E-01, - & 0.23086E-01, 0.20757E-01, 0.18606E-01, 0.16455E-01, 0.14304E-01, - & 0.12153E-01, 0.10002E-01, 0.78504E-02, 0.56993E-02, 0.35482E-02, - & 0.71967E+00, 0.55873E+00, 0.39818E+00, 0.27678E+00, 0.19886E+00, - & 0.14747E+00, 0.11219E+00, 0.88115E-01, 0.69207E-01, 0.55333E-01, - & 0.45004E-01, 0.37074E-01, 0.30869E-01, 0.25961E-01, 0.22027E-01, - & 0.18795E-01, 0.16159E-01, 0.13990E-01, 0.12178E-01, 0.10663E-01, - & 0.94136E-02, 0.83073E-02, 0.72989E-02, 0.62905E-02, 0.52821E-02, - & 0.42737E-02, 0.32653E-02, 0.22569E-02, 0.12485E-02, 0.24007E-03, - & 0.10741E+00, 0.82476E-01, 0.57601E-01, 0.39069E-01, 0.27459E-01, - & 0.19973E-01, 0.14932E-01, 0.11559E-01, 0.89413E-02, 0.70507E-02, - & 0.56636E-02, 0.46124E-02, 0.37994E-02, 0.31635E-02, 0.26590E-02, - & 0.22482E-02, 0.19164E-02, 0.16457E-02, 0.14215E-02, 0.12355E-02, - & 0.10834E-02, 0.94947E-03, 0.82789E-03, 0.70632E-03, 0.58474E-03, - & 0.46316E-03, 0.34159E-03, 0.22001E-03, 0.98433E-04,-0.23143E-04/ - - data ((f2grdl(i,j),j=1,30),i= 1, 10)/ - &-0.21573E-01,-0.85413E-02, 0.45002E-02, 0.18686E-01, 0.34790E-01, - & 0.52888E-01, 0.73056E-01, 0.95532E-01, 0.11953E+00, 0.14546E+00, - & 0.17326E+00, 0.20276E+00, 0.23383E+00, 0.26639E+00, 0.30029E+00, - & 0.33542E+00, 0.37181E+00, 0.40947E+00, 0.44866E+00, 0.48984E+00, - & 0.53441E+00, 0.58226E+00, 0.63288E+00, 0.68350E+00, 0.73412E+00, - & 0.78474E+00, 0.83536E+00, 0.88597E+00, 0.93659E+00, 0.98721E+00, - &-0.21316E-01,-0.84304E-02, 0.44639E-02, 0.18466E-01, 0.34325E-01, - & 0.52122E-01, 0.71924E-01, 0.93967E-01, 0.11748E+00, 0.14287E+00, - & 0.17007E+00, 0.19890E+00, 0.22926E+00, 0.26105E+00, 0.29414E+00, - & 0.32841E+00, 0.36388E+00, 0.40059E+00, 0.43877E+00, 0.47888E+00, - & 0.52229E+00, 0.56888E+00, 0.61817E+00, 0.66746E+00, 0.71674E+00, - & 0.76603E+00, 0.81532E+00, 0.86461E+00, 0.91390E+00, 0.96318E+00, - &-0.21058E-01,-0.83190E-02, 0.44290E-02, 0.18248E-01, 0.33864E-01, - & 0.51362E-01, 0.70803E-01, 0.92419E-01, 0.11545E+00, 0.14032E+00, - & 0.16692E+00, 0.19510E+00, 0.22475E+00, 0.25579E+00, 0.28807E+00, - & 0.32150E+00, 0.35608E+00, 0.39185E+00, 0.42905E+00, 0.46811E+00, - & 0.51037E+00, 0.55573E+00, 0.60371E+00, 0.65169E+00, 0.69968E+00, - & 0.74766E+00, 0.79565E+00, 0.84363E+00, 0.89161E+00, 0.93960E+00, - &-0.20800E-01,-0.82065E-02, 0.43956E-02, 0.18033E-01, 0.33407E-01, - & 0.50610E-01, 0.69693E-01, 0.90886E-01, 0.11345E+00, 0.13779E+00, - & 0.16381E+00, 0.19135E+00, 0.22031E+00, 0.25061E+00, 0.28210E+00, - & 0.31469E+00, 0.34840E+00, 0.38325E+00, 0.41947E+00, 0.45751E+00, - & 0.49864E+00, 0.54279E+00, 0.58949E+00, 0.63620E+00, 0.68290E+00, - & 0.72960E+00, 0.77630E+00, 0.82301E+00, 0.86971E+00, 0.91641E+00, - &-0.20540E-01,-0.80922E-02, 0.43634E-02, 0.17819E-01, 0.32953E-01, - & 0.49865E-01, 0.68594E-01, 0.89371E-01, 0.11148E+00, 0.13529E+00, - & 0.16074E+00, 0.18765E+00, 0.21593E+00, 0.24550E+00, 0.27621E+00, - & 0.30799E+00, 0.34085E+00, 0.37479E+00, 0.41006E+00, 0.44708E+00, - & 0.48712E+00, 0.53008E+00, 0.57552E+00, 0.62096E+00, 0.66641E+00, - & 0.71185E+00, 0.75729E+00, 0.80274E+00, 0.84818E+00, 0.89362E+00, - &-0.20277E-01,-0.79764E-02, 0.43325E-02, 0.17607E-01, 0.32504E-01, - & 0.49127E-01, 0.67504E-01, 0.87872E-01, 0.10952E+00, 0.13283E+00, - & 0.15771E+00, 0.18400E+00, 0.21161E+00, 0.24047E+00, 0.27042E+00, - & 0.30139E+00, 0.33340E+00, 0.36646E+00, 0.40079E+00, 0.43683E+00, - & 0.47579E+00, 0.51758E+00, 0.56178E+00, 0.60598E+00, 0.65018E+00, - & 0.69438E+00, 0.73858E+00, 0.78278E+00, 0.82698E+00, 0.87119E+00, - &-0.20012E-01,-0.78582E-02, 0.43029E-02, 0.17398E-01, 0.32059E-01, - & 0.48395E-01, 0.66425E-01, 0.86390E-01, 0.10759E+00, 0.13040E+00, - & 0.15472E+00, 0.18040E+00, 0.20736E+00, 0.23550E+00, 0.26471E+00, - & 0.29490E+00, 0.32608E+00, 0.35827E+00, 0.39168E+00, 0.42674E+00, - & 0.46466E+00, 0.50530E+00, 0.54828E+00, 0.59127E+00, 0.63425E+00, - & 0.67723E+00, 0.72021E+00, 0.76319E+00, 0.80617E+00, 0.84915E+00, - &-0.19749E-01,-0.77408E-02, 0.42745E-02, 0.17190E-01, 0.31617E-01, - & 0.47670E-01, 0.65357E-01, 0.84922E-01, 0.10568E+00, 0.12799E+00, - & 0.15176E+00, 0.17685E+00, 0.20316E+00, 0.23062E+00, 0.25909E+00, - & 0.28850E+00, 0.31887E+00, 0.35020E+00, 0.38272E+00, 0.41682E+00, - & 0.45370E+00, 0.49323E+00, 0.53502E+00, 0.57681E+00, 0.61859E+00, - & 0.66038E+00, 0.70217E+00, 0.74396E+00, 0.78575E+00, 0.82753E+00, - &-0.19482E-01,-0.76209E-02, 0.42473E-02, 0.16985E-01, 0.31180E-01, - & 0.46951E-01, 0.64300E-01, 0.83470E-01, 0.10380E+00, 0.12562E+00, - & 0.14885E+00, 0.17335E+00, 0.19902E+00, 0.22580E+00, 0.25355E+00, - & 0.28220E+00, 0.31177E+00, 0.34227E+00, 0.37391E+00, 0.40708E+00, - & 0.44294E+00, 0.48137E+00, 0.52199E+00, 0.56261E+00, 0.60323E+00, - & 0.64385E+00, 0.68446E+00, 0.72508E+00, 0.76570E+00, 0.80632E+00, - &-0.19214E-01,-0.75000E-02, 0.42213E-02, 0.16781E-01, 0.30746E-01, - & 0.46236E-01, 0.63255E-01, 0.82033E-01, 0.10194E+00, 0.12328E+00, - & 0.14598E+00, 0.16989E+00, 0.19495E+00, 0.22105E+00, 0.24810E+00, - & 0.27601E+00, 0.30479E+00, 0.33446E+00, 0.36524E+00, 0.39749E+00, - & 0.43236E+00, 0.46971E+00, 0.50919E+00, 0.54867E+00, 0.58814E+00, - & 0.62762E+00, 0.66710E+00, 0.70658E+00, 0.74605E+00, 0.78553E+00/ - - data ((f2grdl(i,j),j=1,30),i= 11, 20)/ - &-0.18942E-01,-0.73759E-02, 0.41966E-02, 0.16579E-01, 0.30316E-01, - & 0.45528E-01, 0.62222E-01, 0.80613E-01, 0.10010E+00, 0.12096E+00, - & 0.14314E+00, 0.16649E+00, 0.19093E+00, 0.21638E+00, 0.24273E+00, - & 0.26990E+00, 0.29792E+00, 0.32679E+00, 0.35672E+00, 0.38807E+00, - & 0.42196E+00, 0.45826E+00, 0.49662E+00, 0.53499E+00, 0.57335E+00, - & 0.61171E+00, 0.65008E+00, 0.68844E+00, 0.72681E+00, 0.76517E+00, - &-0.18668E-01,-0.72508E-02, 0.41732E-02, 0.16378E-01, 0.29889E-01, - & 0.44826E-01, 0.61200E-01, 0.79209E-01, 0.98279E-01, 0.11868E+00, - & 0.14034E+00, 0.16313E+00, 0.18697E+00, 0.21177E+00, 0.23744E+00, - & 0.26390E+00, 0.29115E+00, 0.31923E+00, 0.34833E+00, 0.37881E+00, - & 0.41173E+00, 0.44700E+00, 0.48428E+00, 0.52156E+00, 0.55884E+00, - & 0.59612E+00, 0.63340E+00, 0.67068E+00, 0.70795E+00, 0.74523E+00, - &-0.18385E-01,-0.71201E-02, 0.41513E-02, 0.16179E-01, 0.29467E-01, - & 0.44131E-01, 0.60188E-01, 0.77823E-01, 0.96483E-01, 0.11642E+00, - & 0.13758E+00, 0.15982E+00, 0.18306E+00, 0.20723E+00, 0.23223E+00, - & 0.25799E+00, 0.28450E+00, 0.31181E+00, 0.34009E+00, 0.36970E+00, - & 0.40168E+00, 0.43594E+00, 0.47216E+00, 0.50837E+00, 0.54459E+00, - & 0.58081E+00, 0.61702E+00, 0.65324E+00, 0.68946E+00, 0.72567E+00, - &-0.18092E-01,-0.69837E-02, 0.41312E-02, 0.15982E-01, 0.29049E-01, - & 0.43443E-01, 0.59187E-01, 0.76453E-01, 0.94709E-01, 0.11420E+00, - & 0.13486E+00, 0.15656E+00, 0.17922E+00, 0.20277E+00, 0.22710E+00, - & 0.25216E+00, 0.27796E+00, 0.30450E+00, 0.33199E+00, 0.36075E+00, - & 0.39180E+00, 0.42508E+00, 0.46025E+00, 0.49542E+00, 0.53059E+00, - & 0.56576E+00, 0.60093E+00, 0.63610E+00, 0.67127E+00, 0.70644E+00, - &-0.17810E-01,-0.68513E-02, 0.41133E-02, 0.15787E-01, 0.28635E-01, - & 0.42762E-01, 0.58197E-01, 0.75100E-01, 0.92956E-01, 0.11200E+00, - & 0.13218E+00, 0.15334E+00, 0.17542E+00, 0.19836E+00, 0.22206E+00, - & 0.24644E+00, 0.27152E+00, 0.29732E+00, 0.32402E+00, 0.35196E+00, - & 0.38210E+00, 0.41441E+00, 0.44855E+00, 0.48270E+00, 0.51685E+00, - & 0.55100E+00, 0.58515E+00, 0.61929E+00, 0.65344E+00, 0.68759E+00, - &-0.17536E-01,-0.67218E-02, 0.40973E-02, 0.15593E-01, 0.28225E-01, - & 0.42086E-01, 0.57217E-01, 0.73762E-01, 0.91223E-01, 0.10984E+00, - & 0.12953E+00, 0.15016E+00, 0.17169E+00, 0.19403E+00, 0.21709E+00, - & 0.24080E+00, 0.26519E+00, 0.29025E+00, 0.31619E+00, 0.34331E+00, - & 0.37257E+00, 0.40393E+00, 0.43707E+00, 0.47022E+00, 0.50336E+00, - & 0.53651E+00, 0.56965E+00, 0.60280E+00, 0.63594E+00, 0.66909E+00, - &-0.17259E-01,-0.65908E-02, 0.40821E-02, 0.15401E-01, 0.27819E-01, - & 0.41418E-01, 0.56247E-01, 0.72440E-01, 0.89514E-01, 0.10770E+00, - & 0.12692E+00, 0.14703E+00, 0.16801E+00, 0.18976E+00, 0.21220E+00, - & 0.23526E+00, 0.25896E+00, 0.28331E+00, 0.30849E+00, 0.33483E+00, - & 0.36321E+00, 0.39364E+00, 0.42580E+00, 0.45796E+00, 0.49012E+00, - & 0.52228E+00, 0.55444E+00, 0.58660E+00, 0.61876E+00, 0.65092E+00, - &-0.16981E-01,-0.64587E-02, 0.40680E-02, 0.15211E-01, 0.27415E-01, - & 0.40756E-01, 0.55287E-01, 0.71133E-01, 0.87825E-01, 0.10559E+00, - & 0.12434E+00, 0.14395E+00, 0.16439E+00, 0.18556E+00, 0.20739E+00, - & 0.22981E+00, 0.25283E+00, 0.27648E+00, 0.30093E+00, 0.32648E+00, - & 0.35402E+00, 0.38353E+00, 0.41472E+00, 0.44592E+00, 0.47712E+00, - & 0.50831E+00, 0.53951E+00, 0.57070E+00, 0.60190E+00, 0.63310E+00, - &-0.16699E-01,-0.63246E-02, 0.40547E-02, 0.15023E-01, 0.27015E-01, - & 0.40101E-01, 0.54338E-01, 0.69840E-01, 0.86156E-01, 0.10351E+00, - & 0.12179E+00, 0.14091E+00, 0.16082E+00, 0.18143E+00, 0.20266E+00, - & 0.22444E+00, 0.24681E+00, 0.26977E+00, 0.29350E+00, 0.31828E+00, - & 0.34499E+00, 0.37361E+00, 0.40386E+00, 0.43412E+00, 0.46438E+00, - & 0.49463E+00, 0.52489E+00, 0.55515E+00, 0.58540E+00, 0.61566E+00, - &-0.16418E-01,-0.61900E-02, 0.40425E-02, 0.14838E-01, 0.26619E-01, - & 0.39452E-01, 0.53399E-01, 0.68563E-01, 0.84509E-01, 0.10145E+00, - & 0.11928E+00, 0.13792E+00, 0.15731E+00, 0.17736E+00, 0.19800E+00, - & 0.21917E+00, 0.24089E+00, 0.26318E+00, 0.28620E+00, 0.31023E+00, - & 0.33612E+00, 0.36387E+00, 0.39321E+00, 0.42254E+00, 0.45188E+00, - & 0.48121E+00, 0.51055E+00, 0.53988E+00, 0.56922E+00, 0.59856E+00/ - - data ((f2grdl(i,j),j=1,30),i= 21, 30)/ - &-0.16138E-01,-0.60554E-02, 0.40313E-02, 0.14654E-01, 0.26225E-01, - & 0.38809E-01, 0.52470E-01, 0.67300E-01, 0.82883E-01, 0.99422E-01, - & 0.11681E+00, 0.13497E+00, 0.15384E+00, 0.17335E+00, 0.19341E+00, - & 0.21398E+00, 0.23507E+00, 0.25669E+00, 0.27902E+00, 0.30232E+00, - & 0.32742E+00, 0.35430E+00, 0.38273E+00, 0.41116E+00, 0.43958E+00, - & 0.46801E+00, 0.49643E+00, 0.52486E+00, 0.55329E+00, 0.58171E+00, - &-0.15853E-01,-0.59183E-02, 0.40210E-02, 0.14473E-01, 0.25836E-01, - & 0.38173E-01, 0.51552E-01, 0.66054E-01, 0.81279E-01, 0.97419E-01, - & 0.11437E+00, 0.13207E+00, 0.15044E+00, 0.16941E+00, 0.18890E+00, - & 0.20887E+00, 0.22935E+00, 0.25032E+00, 0.27197E+00, 0.29455E+00, - & 0.31887E+00, 0.34491E+00, 0.37245E+00, 0.39998E+00, 0.42751E+00, - & 0.45504E+00, 0.48257E+00, 0.51010E+00, 0.53763E+00, 0.56516E+00, - &-0.15564E-01,-0.57780E-02, 0.40118E-02, 0.14294E-01, 0.25449E-01, - & 0.37544E-01, 0.50643E-01, 0.64823E-01, 0.79696E-01, 0.95445E-01, - & 0.11197E+00, 0.12921E+00, 0.14708E+00, 0.16553E+00, 0.18446E+00, - & 0.20385E+00, 0.22372E+00, 0.24406E+00, 0.26504E+00, 0.28692E+00, - & 0.31047E+00, 0.33570E+00, 0.36235E+00, 0.38901E+00, 0.41566E+00, - & 0.44232E+00, 0.46897E+00, 0.49563E+00, 0.52228E+00, 0.54894E+00, - &-0.15277E-01,-0.56385E-02, 0.40038E-02, 0.14118E-01, 0.25066E-01, - & 0.36925E-01, 0.49744E-01, 0.63608E-01, 0.78134E-01, 0.93498E-01, - & 0.10961E+00, 0.12639E+00, 0.14378E+00, 0.16170E+00, 0.18010E+00, - & 0.19892E+00, 0.21818E+00, 0.23790E+00, 0.25823E+00, 0.27942E+00, - & 0.30223E+00, 0.32665E+00, 0.35245E+00, 0.37826E+00, 0.40406E+00, - & 0.42987E+00, 0.45567E+00, 0.48148E+00, 0.50729E+00, 0.53309E+00, - &-0.14984E-01,-0.54952E-02, 0.39971E-02, 0.13944E-01, 0.24687E-01, - & 0.36312E-01, 0.48855E-01, 0.62407E-01, 0.76592E-01, 0.91579E-01, - & 0.10728E+00, 0.12362E+00, 0.14053E+00, 0.15794E+00, 0.17580E+00, - & 0.19406E+00, 0.21275E+00, 0.23186E+00, 0.25155E+00, 0.27206E+00, - & 0.29413E+00, 0.31776E+00, 0.34274E+00, 0.36772E+00, 0.39269E+00, - & 0.41767E+00, 0.44265E+00, 0.46763E+00, 0.49260E+00, 0.51758E+00, - &-0.14695E-01,-0.53532E-02, 0.39916E-02, 0.13771E-01, 0.24311E-01, - & 0.35705E-01, 0.47976E-01, 0.61221E-01, 0.75072E-01, 0.89687E-01, - & 0.10498E+00, 0.12089E+00, 0.13732E+00, 0.15423E+00, 0.17157E+00, - & 0.18930E+00, 0.20741E+00, 0.22592E+00, 0.24499E+00, 0.26484E+00, - & 0.28619E+00, 0.30905E+00, 0.33322E+00, 0.35738E+00, 0.38155E+00, - & 0.40571E+00, 0.42988E+00, 0.45405E+00, 0.47821E+00, 0.50238E+00, - &-0.14402E-01,-0.52086E-02, 0.39875E-02, 0.13600E-01, 0.23940E-01, - & 0.35104E-01, 0.47108E-01, 0.60050E-01, 0.73571E-01, 0.87822E-01, - & 0.10272E+00, 0.11820E+00, 0.13417E+00, 0.15059E+00, 0.16742E+00, - & 0.18461E+00, 0.20216E+00, 0.22009E+00, 0.23854E+00, 0.25775E+00, - & 0.27839E+00, 0.30050E+00, 0.32387E+00, 0.34725E+00, 0.37062E+00, - & 0.39399E+00, 0.41736E+00, 0.44073E+00, 0.46410E+00, 0.48747E+00, - &-0.14109E-01,-0.50636E-02, 0.39846E-02, 0.13430E-01, 0.23572E-01, - & 0.34510E-01, 0.46249E-01, 0.58893E-01, 0.72090E-01, 0.85984E-01, - & 0.10050E+00, 0.11555E+00, 0.13107E+00, 0.14702E+00, 0.16334E+00, - & 0.18001E+00, 0.19701E+00, 0.21436E+00, 0.23222E+00, 0.25080E+00, - & 0.27075E+00, 0.29212E+00, 0.31471E+00, 0.33731E+00, 0.35990E+00, - & 0.38249E+00, 0.40508E+00, 0.42767E+00, 0.45026E+00, 0.47286E+00, - &-0.13810E-01,-0.49149E-02, 0.39830E-02, 0.13263E-01, 0.23210E-01, - & 0.33922E-01, 0.45401E-01, 0.57751E-01, 0.70630E-01, 0.84172E-01, - & 0.98305E-01, 0.11294E+00, 0.12801E+00, 0.14350E+00, 0.15933E+00, - & 0.17549E+00, 0.19195E+00, 0.20874E+00, 0.22601E+00, 0.24397E+00, - & 0.26325E+00, 0.28390E+00, 0.30573E+00, 0.32755E+00, 0.34938E+00, - & 0.37120E+00, 0.39303E+00, 0.41486E+00, 0.43668E+00, 0.45851E+00, - &-0.13515E-01,-0.47677E-02, 0.39829E-02, 0.13097E-01, 0.22852E-01, - & 0.33339E-01, 0.44563E-01, 0.56625E-01, 0.69190E-01, 0.82386E-01, - & 0.96145E-01, 0.11037E+00, 0.12501E+00, 0.14004E+00, 0.15538E+00, - & 0.17104E+00, 0.18698E+00, 0.20322E+00, 0.21992E+00, 0.23727E+00, - & 0.25590E+00, 0.27584E+00, 0.29691E+00, 0.31799E+00, 0.33907E+00, - & 0.36014E+00, 0.38122E+00, 0.40230E+00, 0.42337E+00, 0.44445E+00/ - - data ((f2grdl(i,j),j=1,30),i= 31, 40)/ - &-0.13222E-01,-0.46203E-02, 0.39839E-02, 0.12933E-01, 0.22498E-01, - & 0.32763E-01, 0.43737E-01, 0.55513E-01, 0.67771E-01, 0.80629E-01, - & 0.94018E-01, 0.10784E+00, 0.12206E+00, 0.13664E+00, 0.15151E+00, - & 0.16668E+00, 0.18209E+00, 0.19780E+00, 0.21393E+00, 0.23069E+00, - & 0.24868E+00, 0.26793E+00, 0.28827E+00, 0.30861E+00, 0.32895E+00, - & 0.34929E+00, 0.36964E+00, 0.38998E+00, 0.41032E+00, 0.43066E+00, - &-0.12928E-01,-0.44721E-02, 0.39861E-02, 0.12772E-01, 0.22148E-01, - & 0.32194E-01, 0.42923E-01, 0.54416E-01, 0.66372E-01, 0.78897E-01, - & 0.91923E-01, 0.10535E+00, 0.11916E+00, 0.13330E+00, 0.14771E+00, - & 0.16239E+00, 0.17730E+00, 0.19248E+00, 0.20806E+00, 0.22424E+00, - & 0.24160E+00, 0.26017E+00, 0.27980E+00, 0.29942E+00, 0.31904E+00, - & 0.33866E+00, 0.35829E+00, 0.37791E+00, 0.39753E+00, 0.41716E+00, - &-0.12630E-01,-0.43217E-02, 0.39894E-02, 0.12613E-01, 0.21803E-01, - & 0.31632E-01, 0.42121E-01, 0.53334E-01, 0.64993E-01, 0.77191E-01, - & 0.89859E-01, 0.10290E+00, 0.11630E+00, 0.13001E+00, 0.14397E+00, - & 0.15818E+00, 0.17260E+00, 0.18725E+00, 0.20230E+00, 0.21791E+00, - & 0.23466E+00, 0.25257E+00, 0.27149E+00, 0.29041E+00, 0.30932E+00, - & 0.32824E+00, 0.34716E+00, 0.36608E+00, 0.38499E+00, 0.40391E+00, - &-0.12336E-01,-0.41722E-02, 0.39939E-02, 0.12456E-01, 0.21461E-01, - & 0.31077E-01, 0.41328E-01, 0.52268E-01, 0.63635E-01, 0.75511E-01, - & 0.87829E-01, 0.10050E+00, 0.11350E+00, 0.12679E+00, 0.14030E+00, - & 0.15404E+00, 0.16798E+00, 0.18213E+00, 0.19664E+00, 0.21171E+00, - & 0.22786E+00, 0.24512E+00, 0.26335E+00, 0.28158E+00, 0.29982E+00, - & 0.31805E+00, 0.33628E+00, 0.35452E+00, 0.37275E+00, 0.39098E+00, - &-0.12040E-01,-0.40212E-02, 0.39995E-02, 0.12302E-01, 0.21123E-01, - & 0.30529E-01, 0.40548E-01, 0.51220E-01, 0.62300E-01, 0.73859E-01, - & 0.85833E-01, 0.98136E-01, 0.11074E+00, 0.12362E+00, 0.13670E+00, - & 0.14998E+00, 0.16344E+00, 0.17710E+00, 0.19110E+00, 0.20562E+00, - & 0.22119E+00, 0.23781E+00, 0.25538E+00, 0.27295E+00, 0.29052E+00, - & 0.30808E+00, 0.32565E+00, 0.34322E+00, 0.36079E+00, 0.37835E+00, - &-0.11737E-01,-0.38663E-02, 0.40065E-02, 0.12150E-01, 0.20789E-01, - & 0.29988E-01, 0.39779E-01, 0.50187E-01, 0.60985E-01, 0.72234E-01, - & 0.83869E-01, 0.95812E-01, 0.10804E+00, 0.12051E+00, 0.13316E+00, - & 0.14599E+00, 0.15899E+00, 0.17217E+00, 0.18567E+00, 0.19966E+00, - & 0.21464E+00, 0.23066E+00, 0.24758E+00, 0.26450E+00, 0.28142E+00, - & 0.29834E+00, 0.31526E+00, 0.33217E+00, 0.34909E+00, 0.36601E+00, - &-0.11443E-01,-0.37150E-02, 0.40150E-02, 0.12000E-01, 0.20460E-01, - & 0.29456E-01, 0.39019E-01, 0.49170E-01, 0.59690E-01, 0.70636E-01, - & 0.81938E-01, 0.93528E-01, 0.10538E+00, 0.11745E+00, 0.12969E+00, - & 0.14208E+00, 0.15462E+00, 0.16734E+00, 0.18034E+00, 0.19382E+00, - & 0.20824E+00, 0.22365E+00, 0.23994E+00, 0.25623E+00, 0.27251E+00, - & 0.28880E+00, 0.30509E+00, 0.32138E+00, 0.33767E+00, 0.35396E+00, - &-0.11142E-01,-0.35595E-02, 0.40246E-02, 0.11854E-01, 0.20135E-01, - & 0.28931E-01, 0.38270E-01, 0.48170E-01, 0.58415E-01, 0.69064E-01, - & 0.80041E-01, 0.91284E-01, 0.10276E+00, 0.11445E+00, 0.12628E+00, - & 0.13824E+00, 0.15034E+00, 0.16259E+00, 0.17512E+00, 0.18809E+00, - & 0.20196E+00, 0.21679E+00, 0.23246E+00, 0.24813E+00, 0.26380E+00, - & 0.27947E+00, 0.29514E+00, 0.31081E+00, 0.32648E+00, 0.34215E+00, - &-0.10843E-01,-0.34044E-02, 0.40358E-02, 0.11709E-01, 0.19815E-01, - & 0.28414E-01, 0.37532E-01, 0.47185E-01, 0.57160E-01, 0.67519E-01, - & 0.78177E-01, 0.89081E-01, 0.10020E+00, 0.11150E+00, 0.12293E+00, - & 0.13447E+00, 0.14614E+00, 0.15795E+00, 0.17001E+00, 0.18248E+00, - & 0.19582E+00, 0.21007E+00, 0.22513E+00, 0.24020E+00, 0.25527E+00, - & 0.27033E+00, 0.28540E+00, 0.30047E+00, 0.31553E+00, 0.33060E+00, - &-0.10545E-01,-0.32490E-02, 0.40485E-02, 0.11568E-01, 0.19500E-01, - & 0.27906E-01, 0.36804E-01, 0.46215E-01, 0.55925E-01, 0.65999E-01, - & 0.76346E-01, 0.86916E-01, 0.97684E-01, 0.10861E+00, 0.11965E+00, - & 0.13078E+00, 0.14203E+00, 0.15340E+00, 0.16500E+00, 0.17699E+00, - & 0.18980E+00, 0.20349E+00, 0.21797E+00, 0.23245E+00, 0.24692E+00, - & 0.26140E+00, 0.27588E+00, 0.29035E+00, 0.30483E+00, 0.31931E+00/ - - data ((f2grdl(i,j),j=1,30),i= 41, 50)/ - &-0.10248E-01,-0.30931E-02, 0.40628E-02, 0.11429E-01, 0.19190E-01, - & 0.27406E-01, 0.36088E-01, 0.45261E-01, 0.54711E-01, 0.64505E-01, - & 0.74547E-01, 0.84791E-01, 0.95215E-01, 0.10577E+00, 0.11643E+00, - & 0.12717E+00, 0.13800E+00, 0.14894E+00, 0.16009E+00, 0.17161E+00, - & 0.18391E+00, 0.19706E+00, 0.21096E+00, 0.22486E+00, 0.23876E+00, - & 0.25266E+00, 0.26657E+00, 0.28047E+00, 0.29437E+00, 0.30827E+00, - &-0.99495E-02,-0.29362E-02, 0.40786E-02, 0.11293E-01, 0.18886E-01, - & 0.26913E-01, 0.35384E-01, 0.44321E-01, 0.53518E-01, 0.63037E-01, - & 0.72780E-01, 0.82708E-01, 0.92792E-01, 0.10299E+00, 0.11327E+00, - & 0.12363E+00, 0.13406E+00, 0.14457E+00, 0.15529E+00, 0.16635E+00, - & 0.17815E+00, 0.19077E+00, 0.20410E+00, 0.21744E+00, 0.23078E+00, - & 0.24412E+00, 0.25746E+00, 0.27079E+00, 0.28413E+00, 0.29747E+00, - &-0.96559E-02,-0.27807E-02, 0.40959E-02, 0.11161E-01, 0.18587E-01, - & 0.26428E-01, 0.34692E-01, 0.43398E-01, 0.52346E-01, 0.61596E-01, - & 0.71046E-01, 0.80663E-01, 0.90417E-01, 0.10027E+00, 0.11018E+00, - & 0.12016E+00, 0.13019E+00, 0.14030E+00, 0.15059E+00, 0.16121E+00, - & 0.17252E+00, 0.18461E+00, 0.19740E+00, 0.21019E+00, 0.22298E+00, - & 0.23577E+00, 0.24856E+00, 0.26134E+00, 0.27413E+00, 0.28692E+00, - &-0.93567E-02,-0.26216E-02, 0.41148E-02, 0.11032E-01, 0.18293E-01, - & 0.25951E-01, 0.34012E-01, 0.42491E-01, 0.51197E-01, 0.60180E-01, - & 0.69343E-01, 0.78657E-01, 0.88087E-01, 0.97594E-01, 0.10715E+00, - & 0.11676E+00, 0.12641E+00, 0.13613E+00, 0.14600E+00, 0.15618E+00, - & 0.16701E+00, 0.17860E+00, 0.19085E+00, 0.20310E+00, 0.21535E+00, - & 0.22760E+00, 0.23985E+00, 0.25210E+00, 0.26435E+00, 0.27661E+00, - &-0.90561E-02,-0.24609E-02, 0.41356E-02, 0.10906E-01, 0.18005E-01, - & 0.25483E-01, 0.33345E-01, 0.41601E-01, 0.50070E-01, 0.58792E-01, - & 0.67676E-01, 0.76693E-01, 0.85805E-01, 0.94978E-01, 0.10419E+00, - & 0.11344E+00, 0.12271E+00, 0.13204E+00, 0.14151E+00, 0.15125E+00, - & 0.16163E+00, 0.17272E+00, 0.18445E+00, 0.19618E+00, 0.20790E+00, - & 0.21963E+00, 0.23136E+00, 0.24309E+00, 0.25482E+00, 0.26654E+00, - &-0.87613E-02,-0.23020E-02, 0.41585E-02, 0.10784E-01, 0.17723E-01, - & 0.25025E-01, 0.32691E-01, 0.40727E-01, 0.48965E-01, 0.57430E-01, - & 0.66041E-01, 0.74768E-01, 0.83569E-01, 0.92416E-01, 0.10128E+00, - & 0.11019E+00, 0.11909E+00, 0.12804E+00, 0.13711E+00, 0.14644E+00, - & 0.15637E+00, 0.16698E+00, 0.17820E+00, 0.18942E+00, 0.20064E+00, - & 0.21186E+00, 0.22308E+00, 0.23430E+00, 0.24552E+00, 0.25675E+00, - &-0.84605E-02,-0.21391E-02, 0.41835E-02, 0.10666E-01, 0.17448E-01, - & 0.24576E-01, 0.32050E-01, 0.39871E-01, 0.47881E-01, 0.56097E-01, - & 0.64441E-01, 0.72884E-01, 0.81380E-01, 0.89908E-01, 0.98445E-01, - & 0.10700E+00, 0.11555E+00, 0.12413E+00, 0.13281E+00, 0.14174E+00, - & 0.15122E+00, 0.16137E+00, 0.17209E+00, 0.18282E+00, 0.19355E+00, - & 0.20427E+00, 0.21500E+00, 0.22572E+00, 0.23645E+00, 0.24717E+00, - &-0.81662E-02,-0.19782E-02, 0.42109E-02, 0.10552E-01, 0.17179E-01, - & 0.24136E-01, 0.31423E-01, 0.39034E-01, 0.46821E-01, 0.54790E-01, - & 0.62878E-01, 0.71038E-01, 0.79238E-01, 0.87456E-01, 0.95668E-01, - & 0.10389E+00, 0.11209E+00, 0.12030E+00, 0.12861E+00, 0.13714E+00, - & 0.14620E+00, 0.15589E+00, 0.16613E+00, 0.17637E+00, 0.18661E+00, - & 0.19686E+00, 0.20710E+00, 0.21734E+00, 0.22758E+00, 0.23782E+00, - &-0.78753E-02,-0.18179E-02, 0.42406E-02, 0.10442E-01, 0.16917E-01, - & 0.23707E-01, 0.30809E-01, 0.38215E-01, 0.45783E-01, 0.53514E-01, - & 0.61349E-01, 0.69234E-01, 0.77143E-01, 0.85060E-01, 0.92956E-01, - & 0.10085E+00, 0.10871E+00, 0.11656E+00, 0.12451E+00, 0.13264E+00, - & 0.14130E+00, 0.15054E+00, 0.16031E+00, 0.17008E+00, 0.17985E+00, - & 0.18962E+00, 0.19939E+00, 0.20916E+00, 0.21893E+00, 0.22870E+00, - &-0.75775E-02,-0.16530E-02, 0.42726E-02, 0.10337E-01, 0.16662E-01, - & 0.23288E-01, 0.30210E-01, 0.37415E-01, 0.44769E-01, 0.52266E-01, - & 0.59853E-01, 0.67469E-01, 0.75097E-01, 0.82717E-01, 0.90306E-01, - & 0.97877E-01, 0.10541E+00, 0.11292E+00, 0.12050E+00, 0.12826E+00, - & 0.13652E+00, 0.14532E+00, 0.15463E+00, 0.16394E+00, 0.17325E+00, - & 0.18256E+00, 0.19186E+00, 0.20117E+00, 0.21048E+00, 0.21979E+00/ - - data ((f2grdl(i,j),j=1,30),i= 51, 60)/ - &-0.72848E-02,-0.14891E-02, 0.43075E-02, 0.10236E-01, 0.16416E-01, - & 0.22880E-01, 0.29625E-01, 0.36635E-01, 0.43778E-01, 0.51050E-01, - & 0.58392E-01, 0.65746E-01, 0.73098E-01, 0.80430E-01, 0.87718E-01, - & 0.94977E-01, 0.10219E+00, 0.10936E+00, 0.11659E+00, 0.12399E+00, - & 0.13186E+00, 0.14024E+00, 0.14909E+00, 0.15794E+00, 0.16680E+00, - & 0.17565E+00, 0.18450E+00, 0.19335E+00, 0.20220E+00, 0.21106E+00, - &-0.69960E-02,-0.13257E-02, 0.43454E-02, 0.10141E-01, 0.16177E-01, - & 0.22484E-01, 0.29055E-01, 0.35873E-01, 0.42810E-01, 0.49863E-01, - & 0.56964E-01, 0.64063E-01, 0.71147E-01, 0.78198E-01, 0.85193E-01, - & 0.92147E-01, 0.99041E-01, 0.10589E+00, 0.11278E+00, 0.11983E+00, - & 0.12732E+00, 0.13529E+00, 0.14370E+00, 0.15211E+00, 0.16052E+00, - & 0.16892E+00, 0.17733E+00, 0.18574E+00, 0.19415E+00, 0.20256E+00, - &-0.67034E-02,-0.11591E-02, 0.43861E-02, 0.10052E-01, 0.15947E-01, - & 0.22099E-01, 0.28500E-01, 0.35131E-01, 0.41867E-01, 0.48705E-01, - & 0.55570E-01, 0.62421E-01, 0.69245E-01, 0.76022E-01, 0.82733E-01, - & 0.89388E-01, 0.95975E-01, 0.10251E+00, 0.10908E+00, 0.11578E+00, - & 0.12290E+00, 0.13046E+00, 0.13845E+00, 0.14643E+00, 0.15441E+00, - & 0.16239E+00, 0.17037E+00, 0.17835E+00, 0.18633E+00, 0.19432E+00, - &-0.64081E-02,-0.98914E-03, 0.44307E-02, 0.99692E-02, 0.15726E-01, - & 0.21726E-01, 0.27962E-01, 0.34410E-01, 0.40949E-01, 0.47576E-01, - & 0.54212E-01, 0.60821E-01, 0.67390E-01, 0.73902E-01, 0.80335E-01, - & 0.86702E-01, 0.92991E-01, 0.99216E-01, 0.10547E+00, 0.11183E+00, - & 0.11859E+00, 0.12577E+00, 0.13335E+00, 0.14092E+00, 0.14850E+00, - & 0.15607E+00, 0.16365E+00, 0.17122E+00, 0.17880E+00, 0.18637E+00, - &-0.61218E-02,-0.82162E-03, 0.44793E-02, 0.98926E-02, 0.15514E-01, - & 0.21367E-01, 0.27441E-01, 0.33709E-01, 0.40056E-01, 0.46477E-01, - & 0.52890E-01, 0.59263E-01, 0.65584E-01, 0.71837E-01, 0.77999E-01, - & 0.84087E-01, 0.90085E-01, 0.96012E-01, 0.10195E+00, 0.10800E+00, - & 0.11439E+00, 0.12121E+00, 0.12839E+00, 0.13558E+00, 0.14277E+00, - & 0.14995E+00, 0.15714E+00, 0.16432E+00, 0.17151E+00, 0.17870E+00, - &-0.58301E-02,-0.64947E-03, 0.45320E-02, 0.98228E-02, 0.15313E-01, - & 0.21021E-01, 0.26937E-01, 0.33029E-01, 0.39191E-01, 0.45411E-01, - & 0.51605E-01, 0.57748E-01, 0.63828E-01, 0.69830E-01, 0.75727E-01, - & 0.81541E-01, 0.87259E-01, 0.92896E-01, 0.98536E-01, 0.10427E+00, - & 0.11032E+00, 0.11677E+00, 0.12358E+00, 0.13038E+00, 0.13719E+00, - & 0.14400E+00, 0.15081E+00, 0.15762E+00, 0.16442E+00, 0.17123E+00, - &-0.55338E-02,-0.47254E-03, 0.45896E-02, 0.97610E-02, 0.15122E-01, - & 0.20690E-01, 0.26452E-01, 0.32373E-01, 0.38352E-01, 0.44375E-01, - & 0.50358E-01, 0.56278E-01, 0.62125E-01, 0.67879E-01, 0.73520E-01, - & 0.79068E-01, 0.84513E-01, 0.89869E-01, 0.95217E-01, 0.10064E+00, - & 0.10636E+00, 0.11246E+00, 0.11890E+00, 0.12534E+00, 0.13178E+00, - & 0.13823E+00, 0.14467E+00, 0.15111E+00, 0.15755E+00, 0.16399E+00, - &-0.52436E-02,-0.29584E-03, 0.46528E-02, 0.97071E-02, 0.14944E-01, - & 0.20374E-01, 0.25985E-01, 0.31739E-01, 0.37542E-01, 0.43372E-01, - & 0.49150E-01, 0.54854E-01, 0.60473E-01, 0.65986E-01, 0.71377E-01, - & 0.76668E-01, 0.81849E-01, 0.86931E-01, 0.91997E-01, 0.97125E-01, - & 0.10252E+00, 0.10828E+00, 0.11437E+00, 0.12046E+00, 0.12655E+00, - & 0.13264E+00, 0.13873E+00, 0.14482E+00, 0.15090E+00, 0.15699E+00, - &-0.49484E-02,-0.11362E-03, 0.47220E-02, 0.96616E-02, 0.14777E-01, - & 0.20075E-01, 0.25539E-01, 0.31131E-01, 0.36761E-01, 0.42403E-01, - & 0.47981E-01, 0.53476E-01, 0.58872E-01, 0.64152E-01, 0.69301E-01, - & 0.74342E-01, 0.79266E-01, 0.84083E-01, 0.88874E-01, 0.93716E-01, - & 0.98803E-01, 0.10424E+00, 0.10998E+00, 0.11572E+00, 0.12147E+00, - & 0.12721E+00, 0.13296E+00, 0.13870E+00, 0.14444E+00, 0.15019E+00, - &-0.46588E-02, 0.69203E-04, 0.47979E-02, 0.96259E-02, 0.14623E-01, - & 0.19792E-01, 0.25113E-01, 0.30547E-01, 0.36009E-01, 0.41469E-01, - & 0.46853E-01, 0.52144E-01, 0.57323E-01, 0.62375E-01, 0.67291E-01, - & 0.72090E-01, 0.76765E-01, 0.81325E-01, 0.85852E-01, 0.90415E-01, - & 0.95205E-01, 0.10032E+00, 0.10573E+00, 0.11114E+00, 0.11655E+00, - & 0.12196E+00, 0.12736E+00, 0.13277E+00, 0.13818E+00, 0.14359E+00/ - - data ((f2grdl(i,j),j=1,30),i= 61, 70)/ - &-0.43608E-02, 0.25954E-03, 0.48808E-02, 0.96005E-02, 0.14484E-01, - & 0.19528E-01, 0.24709E-01, 0.29989E-01, 0.35288E-01, 0.40571E-01, - & 0.45769E-01, 0.50859E-01, 0.55826E-01, 0.60657E-01, 0.65345E-01, - & 0.69911E-01, 0.74345E-01, 0.78656E-01, 0.82925E-01, 0.87218E-01, - & 0.91723E-01, 0.96531E-01, 0.10162E+00, 0.10671E+00, 0.11180E+00, - & 0.11689E+00, 0.12197E+00, 0.12706E+00, 0.13215E+00, 0.13724E+00, - &-0.40596E-02, 0.45594E-03, 0.49723E-02, 0.95869E-02, 0.14360E-01, - & 0.19283E-01, 0.24328E-01, 0.29460E-01, 0.34599E-01, 0.39710E-01, - & 0.44727E-01, 0.49621E-01, 0.54382E-01, 0.58999E-01, 0.63467E-01, - & 0.67805E-01, 0.72006E-01, 0.76075E-01, 0.80095E-01, 0.84127E-01, - & 0.88358E-01, 0.92869E-01, 0.97644E-01, 0.10242E+00, 0.10720E+00, - & 0.11197E+00, 0.11675E+00, 0.12152E+00, 0.12630E+00, 0.13107E+00, - &-0.37577E-02, 0.65736E-03, 0.50732E-02, 0.95861E-02, 0.14251E-01, - & 0.19057E-01, 0.23972E-01, 0.28958E-01, 0.33942E-01, 0.38887E-01, - & 0.43725E-01, 0.48431E-01, 0.52993E-01, 0.57403E-01, 0.61657E-01, - & 0.65774E-01, 0.69749E-01, 0.73585E-01, 0.77363E-01, 0.81145E-01, - & 0.85110E-01, 0.89334E-01, 0.93806E-01, 0.98278E-01, 0.10275E+00, - & 0.10722E+00, 0.11169E+00, 0.11617E+00, 0.12064E+00, 0.12511E+00, - &-0.34509E-02, 0.86658E-03, 0.51847E-02, 0.95993E-02, 0.14160E-01, - & 0.18852E-01, 0.23642E-01, 0.28486E-01, 0.33320E-01, 0.38103E-01, - & 0.42768E-01, 0.47289E-01, 0.51659E-01, 0.55870E-01, 0.59917E-01, - & 0.63822E-01, 0.67578E-01, 0.71189E-01, 0.74734E-01, 0.78274E-01, - & 0.81982E-01, 0.85929E-01, 0.90104E-01, 0.94280E-01, 0.98455E-01, - & 0.10263E+00, 0.10681E+00, 0.11098E+00, 0.11516E+00, 0.11933E+00, - &-0.31337E-02, 0.10869E-02, 0.53083E-02, 0.96270E-02, 0.14087E-01, - & 0.18671E-01, 0.23340E-01, 0.28046E-01, 0.32733E-01, 0.37359E-01, - & 0.41856E-01, 0.46198E-01, 0.50381E-01, 0.54398E-01, 0.58245E-01, - & 0.61946E-01, 0.65488E-01, 0.68883E-01, 0.72204E-01, 0.75511E-01, - & 0.78971E-01, 0.82650E-01, 0.86542E-01, 0.90433E-01, 0.94325E-01, - & 0.98217E-01, 0.10211E+00, 0.10600E+00, 0.10989E+00, 0.11378E+00, - &-0.28157E-02, 0.13145E-02, 0.54455E-02, 0.96713E-02, 0.14035E-01, - & 0.18514E-01, 0.23067E-01, 0.27639E-01, 0.32185E-01, 0.36658E-01, - & 0.40989E-01, 0.45159E-01, 0.49161E-01, 0.52991E-01, 0.56643E-01, - & 0.60145E-01, 0.63483E-01, 0.66667E-01, 0.69771E-01, 0.72854E-01, - & 0.76074E-01, 0.79498E-01, 0.83119E-01, 0.86740E-01, 0.90361E-01, - & 0.93982E-01, 0.97603E-01, 0.10122E+00, 0.10485E+00, 0.10847E+00, - &-0.24801E-02, 0.15583E-02, 0.55977E-02, 0.97343E-02, 0.14005E-01, - & 0.18382E-01, 0.22823E-01, 0.27268E-01, 0.31676E-01, 0.35999E-01, - & 0.40172E-01, 0.44173E-01, 0.48001E-01, 0.51650E-01, 0.55114E-01, - & 0.58423E-01, 0.61562E-01, 0.64544E-01, 0.67439E-01, 0.70306E-01, - & 0.73292E-01, 0.76471E-01, 0.79838E-01, 0.83204E-01, 0.86571E-01, - & 0.89937E-01, 0.93304E-01, 0.96670E-01, 0.10004E+00, 0.10340E+00, - &-0.21317E-02, 0.18173E-02, 0.57674E-02, 0.98176E-02, 0.13999E-01, - & 0.18278E-01, 0.22612E-01, 0.26933E-01, 0.31208E-01, 0.35387E-01, - & 0.39404E-01, 0.43244E-01, 0.46902E-01, 0.50376E-01, 0.53657E-01, - & 0.56778E-01, 0.59726E-01, 0.62513E-01, 0.65208E-01, 0.67867E-01, - & 0.70629E-01, 0.73574E-01, 0.76696E-01, 0.79818E-01, 0.82941E-01, - & 0.86063E-01, 0.89186E-01, 0.92308E-01, 0.95431E-01, 0.98553E-01, - &-0.17722E-02, 0.20919E-02, 0.59571E-02, 0.99235E-02, 0.14018E-01, - & 0.18203E-01, 0.22433E-01, 0.26638E-01, 0.30783E-01, 0.34822E-01, - & 0.38690E-01, 0.42372E-01, 0.45866E-01, 0.49169E-01, 0.52275E-01, - & 0.55214E-01, 0.57978E-01, 0.60577E-01, 0.63078E-01, 0.65538E-01, - & 0.68085E-01, 0.70806E-01, 0.73696E-01, 0.76587E-01, 0.79477E-01, - & 0.82368E-01, 0.85258E-01, 0.88149E-01, 0.91039E-01, 0.93930E-01, - &-0.13926E-02, 0.23879E-02, 0.61695E-02, 0.10055E-01, 0.14066E-01, - & 0.18161E-01, 0.22290E-01, 0.26382E-01, 0.30404E-01, 0.34306E-01, - & 0.38029E-01, 0.41560E-01, 0.44896E-01, 0.48032E-01, 0.50967E-01, - & 0.53730E-01, 0.56317E-01, 0.58735E-01, 0.61051E-01, 0.63318E-01, - & 0.65660E-01, 0.68166E-01, 0.70833E-01, 0.73500E-01, 0.76167E-01, - & 0.78834E-01, 0.81501E-01, 0.84168E-01, 0.86835E-01, 0.89502E-01/ - - data ((f2grdl(i,j),j=1,30),i= 71, 80)/ - &-0.98316E-03, 0.27117E-02, 0.64078E-02, 0.10213E-01, 0.14144E-01, - & 0.18153E-01, 0.22185E-01, 0.26168E-01, 0.30071E-01, 0.33843E-01, - & 0.37426E-01, 0.40809E-01, 0.43990E-01, 0.46965E-01, 0.49737E-01, - & 0.52332E-01, 0.54747E-01, 0.56991E-01, 0.59129E-01, 0.61211E-01, - & 0.63359E-01, 0.65659E-01, 0.68112E-01, 0.70564E-01, 0.73016E-01, - & 0.75468E-01, 0.77920E-01, 0.80372E-01, 0.82825E-01, 0.85277E-01, - &-0.54804E-03, 0.30635E-02, 0.66762E-02, 0.10403E-01, 0.14257E-01, - & 0.18181E-01, 0.22121E-01, 0.25999E-01, 0.29788E-01, 0.33433E-01, - & 0.36880E-01, 0.40120E-01, 0.43151E-01, 0.45970E-01, 0.48583E-01, - & 0.51017E-01, 0.53268E-01, 0.55344E-01, 0.57310E-01, 0.59216E-01, - & 0.61179E-01, 0.63283E-01, 0.65529E-01, 0.67775E-01, 0.70021E-01, - & 0.72267E-01, 0.74514E-01, 0.76760E-01, 0.79006E-01, 0.81252E-01, - &-0.79138E-04, 0.34494E-02, 0.69791E-02, 0.10628E-01, 0.14406E-01, - & 0.18250E-01, 0.22101E-01, 0.25876E-01, 0.29556E-01, 0.33079E-01, - & 0.36394E-01, 0.39495E-01, 0.42380E-01, 0.45051E-01, 0.47510E-01, - & 0.49788E-01, 0.51880E-01, 0.53796E-01, 0.55598E-01, 0.57334E-01, - & 0.59121E-01, 0.61038E-01, 0.63089E-01, 0.65140E-01, 0.67191E-01, - & 0.69241E-01, 0.71292E-01, 0.73343E-01, 0.75394E-01, 0.77445E-01, - & 0.44445E-03, 0.38827E-02, 0.73223E-02, 0.10893E-01, 0.14596E-01, - & 0.18362E-01, 0.22126E-01, 0.25805E-01, 0.29378E-01, 0.32783E-01, - & 0.35970E-01, 0.38936E-01, 0.41681E-01, 0.44206E-01, 0.46518E-01, - & 0.48645E-01, 0.50584E-01, 0.52346E-01, 0.53991E-01, 0.55565E-01, - & 0.57183E-01, 0.58922E-01, 0.60785E-01, 0.62649E-01, 0.64512E-01, - & 0.66376E-01, 0.68239E-01, 0.70103E-01, 0.71966E-01, 0.73830E-01, - & 0.10248E-02, 0.43679E-02, 0.77125E-02, 0.11201E-01, 0.14831E-01, - & 0.18520E-01, 0.22201E-01, 0.25786E-01, 0.29256E-01, 0.32545E-01, - & 0.35610E-01, 0.38445E-01, 0.41054E-01, 0.43439E-01, 0.45607E-01, - & 0.47592E-01, 0.49383E-01, 0.50996E-01, 0.52490E-01, 0.53910E-01, - & 0.55367E-01, 0.56935E-01, 0.58620E-01, 0.60304E-01, 0.61988E-01, - & 0.63672E-01, 0.65356E-01, 0.67040E-01, 0.68725E-01, 0.70409E-01, - & 0.16939E-02, 0.49254E-02, 0.81587E-02, 0.11561E-01, 0.15116E-01, - & 0.18730E-01, 0.22329E-01, 0.25823E-01, 0.29194E-01, 0.32371E-01, - & 0.35315E-01, 0.38023E-01, 0.40500E-01, 0.42750E-01, 0.44780E-01, - & 0.46624E-01, 0.48273E-01, 0.49744E-01, 0.51093E-01, 0.52366E-01, - & 0.53669E-01, 0.55077E-01, 0.56593E-01, 0.58110E-01, 0.59626E-01, - & 0.61142E-01, 0.62658E-01, 0.64175E-01, 0.65691E-01, 0.67207E-01, - & 0.24530E-02, 0.55621E-02, 0.86729E-02, 0.11978E-01, 0.15457E-01, - & 0.18996E-01, 0.22513E-01, 0.25918E-01, 0.29194E-01, 0.32264E-01, - & 0.35087E-01, 0.37670E-01, 0.40019E-01, 0.42139E-01, 0.44035E-01, - & 0.45742E-01, 0.47255E-01, 0.48589E-01, 0.49800E-01, 0.50932E-01, - & 0.52089E-01, 0.53346E-01, 0.54706E-01, 0.56067E-01, 0.57428E-01, - & 0.58789E-01, 0.60150E-01, 0.61511E-01, 0.62871E-01, 0.64232E-01, - & 0.30512E-02, 0.61546E-02, 0.92575E-02, 0.12462E-01, 0.15860E-01, - & 0.19322E-01, 0.22759E-01, 0.26075E-01, 0.29257E-01, 0.32224E-01, - & 0.34930E-01, 0.37391E-01, 0.39613E-01, 0.41603E-01, 0.43368E-01, - & 0.44943E-01, 0.46324E-01, 0.47524E-01, 0.48602E-01, 0.49599E-01, - & 0.50618E-01, 0.51729E-01, 0.52940E-01, 0.54152E-01, 0.55363E-01, - & 0.56574E-01, 0.57785E-01, 0.58996E-01, 0.60207E-01, 0.61418E-01, - & 0.36501E-02, 0.67753E-02, 0.98996E-02, 0.13022E-01, 0.16332E-01, - & 0.19714E-01, 0.23071E-01, 0.26298E-01, 0.29386E-01, 0.32253E-01, - & 0.34847E-01, 0.37186E-01, 0.39284E-01, 0.41146E-01, 0.42783E-01, - & 0.44228E-01, 0.45480E-01, 0.46552E-01, 0.47500E-01, 0.48369E-01, - & 0.49254E-01, 0.50227E-01, 0.51295E-01, 0.52362E-01, 0.53430E-01, - & 0.54497E-01, 0.55564E-01, 0.56632E-01, 0.57699E-01, 0.58767E-01, - & 0.42855E-02, 0.74435E-02, 0.10601E-01, 0.13672E-01, 0.16882E-01, - & 0.20180E-01, 0.23453E-01, 0.26591E-01, 0.29585E-01, 0.32351E-01, - & 0.34835E-01, 0.37056E-01, 0.39030E-01, 0.40768E-01, 0.42279E-01, - & 0.43597E-01, 0.44723E-01, 0.45672E-01, 0.46496E-01, 0.47239E-01, - & 0.47996E-01, 0.48839E-01, 0.49771E-01, 0.50703E-01, 0.51635E-01, - & 0.52567E-01, 0.53499E-01, 0.54432E-01, 0.55364E-01, 0.56296E-01/ - - data ((f2grdl(i,j),j=1,30),i= 81, 90)/ - & 0.49663E-02, 0.81671E-02, 0.11367E-01, 0.14423E-01, 0.17521E-01, - & 0.20727E-01, 0.23911E-01, 0.26958E-01, 0.29857E-01, 0.32521E-01, - & 0.34895E-01, 0.36999E-01, 0.38853E-01, 0.40466E-01, 0.41853E-01, - & 0.43049E-01, 0.44052E-01, 0.44880E-01, 0.45584E-01, 0.46207E-01, - & 0.46842E-01, 0.47561E-01, 0.48367E-01, 0.49173E-01, 0.49979E-01, - & 0.50785E-01, 0.51591E-01, 0.52397E-01, 0.53203E-01, 0.54008E-01, - & 0.56998E-02, 0.89538E-02, 0.12207E-01, 0.15286E-01, 0.18262E-01, - & 0.21364E-01, 0.24452E-01, 0.27402E-01, 0.30203E-01, 0.32764E-01, - & 0.35030E-01, 0.37013E-01, 0.38745E-01, 0.40236E-01, 0.41502E-01, - & 0.42577E-01, 0.43461E-01, 0.44171E-01, 0.44759E-01, 0.45267E-01, - & 0.45786E-01, 0.46385E-01, 0.47066E-01, 0.47748E-01, 0.48429E-01, - & 0.49110E-01, 0.49792E-01, 0.50473E-01, 0.51155E-01, 0.51836E-01, - & 0.64922E-02, 0.98116E-02, 0.13129E-01, 0.16246E-01, 0.19121E-01, - & 0.22101E-01, 0.25083E-01, 0.27929E-01, 0.30625E-01, 0.33080E-01, - & 0.35235E-01, 0.37099E-01, 0.38707E-01, 0.40074E-01, 0.41217E-01, - & 0.42171E-01, 0.42936E-01, 0.43531E-01, 0.44006E-01, 0.44401E-01, - & 0.44808E-01, 0.45293E-01, 0.45860E-01, 0.46426E-01, 0.46993E-01, - & 0.47559E-01, 0.48126E-01, 0.48692E-01, 0.49259E-01, 0.49826E-01, - & 0.73609E-02, 0.10755E-01, 0.14147E-01, 0.17307E-01, 0.20117E-01, - & 0.22950E-01, 0.25810E-01, 0.28543E-01, 0.31126E-01, 0.33468E-01, - & 0.35509E-01, 0.37251E-01, 0.38734E-01, 0.39976E-01, 0.40995E-01, - & 0.41827E-01, 0.42473E-01, 0.42953E-01, 0.43315E-01, 0.43600E-01, - & 0.43898E-01, 0.44273E-01, 0.44728E-01, 0.45182E-01, 0.45637E-01, - & 0.46091E-01, 0.46546E-01, 0.47000E-01, 0.47455E-01, 0.47909E-01, - & 0.83205E-02, 0.11798E-01, 0.15273E-01, 0.18481E-01, 0.21267E-01, - & 0.23924E-01, 0.26643E-01, 0.29247E-01, 0.31706E-01, 0.33927E-01, - & 0.35845E-01, 0.37464E-01, 0.38817E-01, 0.39930E-01, 0.40824E-01, - & 0.41532E-01, 0.42060E-01, 0.42425E-01, 0.42677E-01, 0.42855E-01, - & 0.43048E-01, 0.43316E-01, 0.43661E-01, 0.44006E-01, 0.44352E-01, - & 0.44697E-01, 0.45042E-01, 0.45387E-01, 0.45732E-01, 0.46077E-01, - & 0.93912E-02, 0.12959E-01, 0.16524E-01, 0.19781E-01, 0.22560E-01, - & 0.25042E-01, 0.27590E-01, 0.30046E-01, 0.32365E-01, 0.34450E-01, - & 0.36240E-01, 0.37730E-01, 0.38946E-01, 0.39926E-01, 0.40691E-01, - & 0.41273E-01, 0.41680E-01, 0.41931E-01, 0.42073E-01, 0.42144E-01, - & 0.42233E-01, 0.42398E-01, 0.42640E-01, 0.42882E-01, 0.43124E-01, - & 0.43366E-01, 0.43608E-01, 0.43851E-01, 0.44093E-01, 0.44335E-01, - & 0.10604E-01, 0.14264E-01, 0.17922E-01, 0.21224E-01, 0.23990E-01, - & 0.26324E-01, 0.28662E-01, 0.30944E-01, 0.33101E-01, 0.35035E-01, - & 0.36680E-01, 0.38033E-01, 0.39109E-01, 0.39949E-01, 0.40578E-01, - & 0.41032E-01, 0.41316E-01, 0.41451E-01, 0.41482E-01, 0.41448E-01, - & 0.41434E-01, 0.41498E-01, 0.41637E-01, 0.41777E-01, 0.41916E-01, - & 0.42056E-01, 0.42195E-01, 0.42335E-01, 0.42474E-01, 0.42614E-01, - & 0.11992E-01, 0.15744E-01, 0.19492E-01, 0.22831E-01, 0.25568E-01, - & 0.27792E-01, 0.29870E-01, 0.31943E-01, 0.33910E-01, 0.35670E-01, - & 0.37154E-01, 0.38354E-01, 0.39283E-01, 0.39975E-01, 0.40463E-01, - & 0.40783E-01, 0.40941E-01, 0.40958E-01, 0.40877E-01, 0.40737E-01, - & 0.40622E-01, 0.40586E-01, 0.40629E-01, 0.40671E-01, 0.40713E-01, - & 0.40755E-01, 0.40798E-01, 0.40840E-01, 0.40882E-01, 0.40924E-01, - & 0.13611E-01, 0.17442E-01, 0.21269E-01, 0.24626E-01, 0.27309E-01, - & 0.29429E-01, 0.31227E-01, 0.33045E-01, 0.34784E-01, 0.36342E-01, - & 0.37642E-01, 0.38673E-01, 0.39440E-01, 0.39975E-01, 0.40313E-01, - & 0.40493E-01, 0.40520E-01, 0.40415E-01, 0.40221E-01, 0.39975E-01, - & 0.39760E-01, 0.39626E-01, 0.39569E-01, 0.39512E-01, 0.39455E-01, - & 0.39398E-01, 0.39341E-01, 0.39284E-01, 0.39227E-01, 0.39171E-01, - & 0.15528E-01, 0.19413E-01, 0.23294E-01, 0.26637E-01, 0.29227E-01, - & 0.31209E-01, 0.32750E-01, 0.34247E-01, 0.35711E-01, 0.37031E-01, - & 0.38119E-01, 0.38956E-01, 0.39548E-01, 0.39913E-01, 0.40090E-01, - & 0.40120E-01, 0.40009E-01, 0.39779E-01, 0.39470E-01, 0.39117E-01, - & 0.38802E-01, 0.38569E-01, 0.38415E-01, 0.38261E-01, 0.38107E-01, - & 0.37953E-01, 0.37799E-01, 0.37645E-01, 0.37491E-01, 0.37337E-01/ - - data ((f2grdl(i,j),j=1,30),i= 91,100)/ - & 0.17840E-01, 0.21734E-01, 0.25622E-01, 0.28899E-01, 0.31342E-01, - & 0.33131E-01, 0.34431E-01, 0.35548E-01, 0.36673E-01, 0.37706E-01, - & 0.38546E-01, 0.39162E-01, 0.39556E-01, 0.39738E-01, 0.39743E-01, - & 0.39615E-01, 0.39360E-01, 0.39001E-01, 0.38573E-01, 0.38112E-01, - & 0.37697E-01, 0.37367E-01, 0.37118E-01, 0.36868E-01, 0.36619E-01, - & 0.36369E-01, 0.36120E-01, 0.35870E-01, 0.35620E-01, 0.35371E-01, - & 0.20680E-01, 0.24505E-01, 0.28324E-01, 0.31452E-01, 0.33668E-01, - & 0.35191E-01, 0.36211E-01, 0.36931E-01, 0.37637E-01, 0.38325E-01, - & 0.38871E-01, 0.39233E-01, 0.39401E-01, 0.39383E-01, 0.39204E-01, - & 0.38907E-01, 0.38501E-01, 0.38007E-01, 0.37460E-01, 0.36891E-01, - & 0.36377E-01, 0.35952E-01, 0.35609E-01, 0.35266E-01, 0.34923E-01, - & 0.34580E-01, 0.34237E-01, 0.33894E-01, 0.33551E-01, 0.33208E-01, - & 0.24241E-01, 0.27870E-01, 0.31491E-01, 0.34347E-01, 0.36218E-01, - & 0.37374E-01, 0.38028E-01, 0.38325E-01, 0.38560E-01, 0.38826E-01, - & 0.39024E-01, 0.39088E-01, 0.38999E-01, 0.38759E-01, 0.38381E-01, - & 0.37904E-01, 0.37340E-01, 0.36710E-01, 0.36041E-01, 0.35367E-01, - & 0.34758E-01, 0.34241E-01, 0.33806E-01, 0.33372E-01, 0.32938E-01, - & 0.32503E-01, 0.32069E-01, 0.31635E-01, 0.31201E-01, 0.30766E-01, - & 0.28800E-01, 0.32028E-01, 0.35247E-01, 0.37636E-01, 0.38996E-01, - & 0.39643E-01, 0.39817E-01, 0.39646E-01, 0.39369E-01, 0.39118E-01, - & 0.38899E-01, 0.38616E-01, 0.38235E-01, 0.37746E-01, 0.37157E-01, - & 0.36492E-01, 0.35766E-01, 0.34997E-01, 0.34210E-01, 0.33434E-01, - & 0.32735E-01, 0.32132E-01, 0.31613E-01, 0.31094E-01, 0.30575E-01, - & 0.30057E-01, 0.29538E-01, 0.29019E-01, 0.28500E-01, 0.27981E-01, - & 0.34771E-01, 0.37267E-01, 0.39755E-01, 0.41380E-01, 0.41982E-01, - & 0.41925E-01, 0.41463E-01, 0.40734E-01, 0.39903E-01, 0.39062E-01, - & 0.38344E-01, 0.37657E-01, 0.36943E-01, 0.36180E-01, 0.35365E-01, - & 0.34508E-01, 0.33618E-01, 0.32715E-01, 0.31818E-01, 0.30951E-01, - & 0.30175E-01, 0.29497E-01, 0.28904E-01, 0.28311E-01, 0.27718E-01, - & 0.27126E-01, 0.26533E-01, 0.25940E-01, 0.25347E-01, 0.24754E-01, - & 0.42806E-01, 0.44026E-01, 0.45238E-01, 0.45625E-01, 0.45103E-01, - & 0.44065E-01, 0.42762E-01, 0.41332E-01, 0.39874E-01, 0.38429E-01, - & 0.37122E-01, 0.35969E-01, 0.34884E-01, 0.33824E-01, 0.32773E-01, - & 0.31727E-01, 0.30686E-01, 0.29663E-01, 0.28674E-01, 0.27736E-01, - & 0.26903E-01, 0.26170E-01, 0.25523E-01, 0.24876E-01, 0.24228E-01, - & 0.23581E-01, 0.22934E-01, 0.22286E-01, 0.21639E-01, 0.20991E-01, - & 0.54025E-01, 0.53021E-01, 0.52011E-01, 0.50372E-01, 0.48157E-01, - & 0.45736E-01, 0.43312E-01, 0.40999E-01, 0.38788E-01, 0.36726E-01, - & 0.34833E-01, 0.33158E-01, 0.31674E-01, 0.30312E-01, 0.29034E-01, - & 0.27816E-01, 0.26655E-01, 0.25549E-01, 0.24504E-01, 0.23535E-01, - & 0.22682E-01, 0.21931E-01, 0.21262E-01, 0.20593E-01, 0.19924E-01, - & 0.19255E-01, 0.18586E-01, 0.17917E-01, 0.17248E-01, 0.16579E-01, - & 0.70732E-01, 0.65665E-01, 0.60597E-01, 0.55460E-01, 0.50567E-01, - & 0.46134E-01, 0.42199E-01, 0.38788E-01, 0.35692E-01, 0.32970E-01, - & 0.30578E-01, 0.28467E-01, 0.26613E-01, 0.24994E-01, 0.23549E-01, - & 0.22230E-01, 0.21023E-01, 0.19913E-01, 0.18894E-01, 0.17970E-01, - & 0.17169E-01, 0.16465E-01, 0.15836E-01, 0.15207E-01, 0.14577E-01, - & 0.13948E-01, 0.13319E-01, 0.12690E-01, 0.12061E-01, 0.11432E-01, - & 0.10712E+00, 0.90390E-01, 0.73691E-01, 0.59944E-01, 0.49800E-01, - & 0.42158E-01, 0.36238E-01, 0.31671E-01, 0.27792E-01, 0.24636E-01, - & 0.22043E-01, 0.19868E-01, 0.18023E-01, 0.16451E-01, 0.15099E-01, - & 0.13921E-01, 0.12895E-01, 0.11992E-01, 0.11192E-01, 0.10489E-01, - & 0.98954E-02, 0.93760E-02, 0.89133E-02, 0.84506E-02, 0.79878E-02, - & 0.75251E-02, 0.70624E-02, 0.65997E-02, 0.61369E-02, 0.56742E-02, - & 0.16241E-01, 0.13567E-01, 0.10898E-01, 0.87241E-02, 0.71467E-02, - & 0.59763E-02, 0.50813E-02, 0.43998E-02, 0.38254E-02, 0.33626E-02, - & 0.29859E-02, 0.26725E-02, 0.24083E-02, 0.21838E-02, 0.19919E-02, - & 0.18259E-02, 0.16825E-02, 0.15573E-02, 0.14473E-02, 0.13512E-02, - & 0.12704E-02, 0.11998E-02, 0.11370E-02, 0.10741E-02, 0.10113E-02, - & 0.94847E-03, 0.88564E-03, 0.82281E-03, 0.75998E-03, 0.69715E-03/ - - data ((flgrdl(i,j),j=1,30),i= 1, 10)/ - &-0.37515E-02, 0.12313E-02, 0.62142E-02, 0.11197E-01, 0.16150E-01, - & 0.21102E-01, 0.26142E-01, 0.31352E-01, 0.36679E-01, 0.42176E-01, - & 0.47759E-01, 0.53394E-01, 0.59024E-01, 0.64614E-01, 0.70112E-01, - & 0.75503E-01, 0.80764E-01, 0.85871E-01, 0.90885E-01, 0.95874E-01, - & 0.10103E+00, 0.10649E+00, 0.11223E+00, 0.11798E+00, 0.12372E+00, - & 0.12946E+00, 0.13521E+00, 0.14095E+00, 0.14670E+00, 0.15244E+00, - &-0.36183E-02, 0.13117E-02, 0.62418E-02, 0.11157E-01, 0.16026E-01, - & 0.20879E-01, 0.25808E-01, 0.30895E-01, 0.36091E-01, 0.41449E-01, - & 0.46886E-01, 0.52370E-01, 0.57844E-01, 0.63277E-01, 0.68615E-01, - & 0.73846E-01, 0.78950E-01, 0.83901E-01, 0.88759E-01, 0.93594E-01, - & 0.98588E-01, 0.10387E+00, 0.10944E+00, 0.11501E+00, 0.12058E+00, - & 0.12615E+00, 0.13172E+00, 0.13729E+00, 0.14286E+00, 0.14843E+00, - &-0.34850E-02, 0.13924E-02, 0.62695E-02, 0.11118E-01, 0.15902E-01, - & 0.20658E-01, 0.25476E-01, 0.30442E-01, 0.35510E-01, 0.40730E-01, - & 0.46025E-01, 0.51360E-01, 0.56682E-01, 0.61957E-01, 0.67138E-01, - & 0.72215E-01, 0.77165E-01, 0.81963E-01, 0.86670E-01, 0.91353E-01, - & 0.96187E-01, 0.10131E+00, 0.10671E+00, 0.11210E+00, 0.11750E+00, - & 0.12290E+00, 0.12830E+00, 0.13370E+00, 0.13910E+00, 0.14449E+00, - &-0.33505E-02, 0.14736E-02, 0.62975E-02, 0.11079E-01, 0.15779E-01, - & 0.20438E-01, 0.25147E-01, 0.29994E-01, 0.34935E-01, 0.40020E-01, - & 0.45175E-01, 0.50364E-01, 0.55537E-01, 0.60658E-01, 0.65685E-01, - & 0.70610E-01, 0.75409E-01, 0.80058E-01, 0.84616E-01, 0.89153E-01, - & 0.93829E-01, 0.98788E-01, 0.10402E+00, 0.10925E+00, 0.11447E+00, - & 0.11970E+00, 0.12493E+00, 0.13016E+00, 0.13539E+00, 0.14062E+00, - &-0.32155E-02, 0.15552E-02, 0.63255E-02, 0.11041E-01, 0.15656E-01, - & 0.20220E-01, 0.24820E-01, 0.29550E-01, 0.34368E-01, 0.39318E-01, - & 0.44337E-01, 0.49383E-01, 0.54409E-01, 0.59379E-01, 0.64256E-01, - & 0.69033E-01, 0.73683E-01, 0.78186E-01, 0.82601E-01, 0.86992E-01, - & 0.91515E-01, 0.96316E-01, 0.10138E+00, 0.10645E+00, 0.11151E+00, - & 0.11658E+00, 0.12164E+00, 0.12671E+00, 0.13177E+00, 0.13684E+00, - &-0.30789E-02, 0.16376E-02, 0.63537E-02, 0.11002E-01, 0.15534E-01, - & 0.20004E-01, 0.24497E-01, 0.29110E-01, 0.33807E-01, 0.38625E-01, - & 0.43510E-01, 0.48415E-01, 0.53296E-01, 0.58119E-01, 0.62850E-01, - & 0.67481E-01, 0.71986E-01, 0.76347E-01, 0.80621E-01, 0.84870E-01, - & 0.89242E-01, 0.93888E-01, 0.98793E-01, 0.10370E+00, 0.10860E+00, - & 0.11351E+00, 0.11841E+00, 0.12331E+00, 0.12822E+00, 0.13312E+00, - &-0.29422E-02, 0.17202E-02, 0.63821E-02, 0.10964E-01, 0.15413E-01, - & 0.19789E-01, 0.24176E-01, 0.28675E-01, 0.33252E-01, 0.37942E-01, - & 0.42694E-01, 0.47462E-01, 0.52200E-01, 0.56878E-01, 0.61465E-01, - & 0.65955E-01, 0.70318E-01, 0.74540E-01, 0.78676E-01, 0.82783E-01, - & 0.87011E-01, 0.91508E-01, 0.96259E-01, 0.10101E+00, 0.10576E+00, - & 0.11051E+00, 0.11526E+00, 0.12001E+00, 0.12476E+00, 0.12951E+00, - &-0.28053E-02, 0.18030E-02, 0.64106E-02, 0.10926E-01, 0.15292E-01, - & 0.19575E-01, 0.23858E-01, 0.28245E-01, 0.32705E-01, 0.37268E-01, - & 0.41889E-01, 0.46522E-01, 0.51121E-01, 0.55655E-01, 0.60102E-01, - & 0.64455E-01, 0.68678E-01, 0.72762E-01, 0.76766E-01, 0.80733E-01, - & 0.84822E-01, 0.89172E-01, 0.93770E-01, 0.98369E-01, 0.10297E+00, - & 0.10757E+00, 0.11216E+00, 0.11676E+00, 0.12136E+00, 0.12596E+00, - &-0.26666E-02, 0.18867E-02, 0.64393E-02, 0.10888E-01, 0.15172E-01, - & 0.19363E-01, 0.23543E-01, 0.27819E-01, 0.32163E-01, 0.36603E-01, - & 0.41097E-01, 0.45596E-01, 0.50056E-01, 0.54451E-01, 0.58761E-01, - & 0.62980E-01, 0.67066E-01, 0.71016E-01, 0.74887E-01, 0.78720E-01, - & 0.82673E-01, 0.86881E-01, 0.91332E-01, 0.95782E-01, 0.10023E+00, - & 0.10468E+00, 0.10913E+00, 0.11358E+00, 0.11803E+00, 0.12249E+00, - &-0.25270E-02, 0.19710E-02, 0.64681E-02, 0.10850E-01, 0.15053E-01, - & 0.19151E-01, 0.23231E-01, 0.27397E-01, 0.31628E-01, 0.35946E-01, - & 0.40315E-01, 0.44681E-01, 0.49006E-01, 0.53266E-01, 0.57441E-01, - & 0.61530E-01, 0.65482E-01, 0.69300E-01, 0.73041E-01, 0.76744E-01, - & 0.80565E-01, 0.84633E-01, 0.88940E-01, 0.93246E-01, 0.97553E-01, - & 0.10186E+00, 0.10617E+00, 0.11047E+00, 0.11478E+00, 0.11909E+00/ - - data ((flgrdl(i,j),j=1,30),i= 11, 20)/ - &-0.23861E-02, 0.20560E-02, 0.64971E-02, 0.10813E-01, 0.14934E-01, - & 0.18941E-01, 0.22923E-01, 0.26979E-01, 0.31099E-01, 0.35298E-01, - & 0.39543E-01, 0.43780E-01, 0.47972E-01, 0.52100E-01, 0.56143E-01, - & 0.60104E-01, 0.63925E-01, 0.67615E-01, 0.71227E-01, 0.74804E-01, - & 0.78496E-01, 0.82427E-01, 0.86593E-01, 0.90758E-01, 0.94923E-01, - & 0.99088E-01, 0.10325E+00, 0.10742E+00, 0.11158E+00, 0.11575E+00, - &-0.22447E-02, 0.21414E-02, 0.65264E-02, 0.10775E-01, 0.14816E-01, - & 0.18733E-01, 0.22617E-01, 0.26567E-01, 0.30575E-01, 0.34658E-01, - & 0.38782E-01, 0.42891E-01, 0.46953E-01, 0.50953E-01, 0.54867E-01, - & 0.58701E-01, 0.62395E-01, 0.65959E-01, 0.69446E-01, 0.72896E-01, - & 0.76466E-01, 0.80261E-01, 0.84279E-01, 0.88298E-01, 0.92317E-01, - & 0.96336E-01, 0.10036E+00, 0.10437E+00, 0.10839E+00, 0.11241E+00, - &-0.21020E-02, 0.22275E-02, 0.65558E-02, 0.10738E-01, 0.14699E-01, - & 0.18526E-01, 0.22314E-01, 0.26158E-01, 0.30058E-01, 0.34026E-01, - & 0.38030E-01, 0.42013E-01, 0.45949E-01, 0.49826E-01, 0.53614E-01, - & 0.57321E-01, 0.60892E-01, 0.64331E-01, 0.67695E-01, 0.71021E-01, - & 0.74475E-01, 0.78134E-01, 0.82006E-01, 0.85878E-01, 0.89751E-01, - & 0.93623E-01, 0.97495E-01, 0.10137E+00, 0.10524E+00, 0.10911E+00, - &-0.19566E-02, 0.23151E-02, 0.65856E-02, 0.10700E-01, 0.14583E-01, - & 0.18320E-01, 0.22013E-01, 0.25755E-01, 0.29546E-01, 0.33402E-01, - & 0.37289E-01, 0.41148E-01, 0.44961E-01, 0.48718E-01, 0.52383E-01, - & 0.55962E-01, 0.59413E-01, 0.62732E-01, 0.65974E-01, 0.69181E-01, - & 0.72521E-01, 0.76047E-01, 0.79775E-01, 0.83502E-01, 0.87230E-01, - & 0.90958E-01, 0.94685E-01, 0.98413E-01, 0.10214E+00, 0.10587E+00, - &-0.18122E-02, 0.24025E-02, 0.66156E-02, 0.10663E-01, 0.14467E-01, - & 0.18116E-01, 0.21716E-01, 0.25356E-01, 0.29041E-01, 0.32788E-01, - & 0.36558E-01, 0.40294E-01, 0.43989E-01, 0.47627E-01, 0.51171E-01, - & 0.54626E-01, 0.57958E-01, 0.61160E-01, 0.64284E-01, 0.67374E-01, - & 0.70602E-01, 0.74000E-01, 0.77587E-01, 0.81174E-01, 0.84761E-01, - & 0.88348E-01, 0.91935E-01, 0.95522E-01, 0.99109E-01, 0.10270E+00, - &-0.16675E-02, 0.24900E-02, 0.66460E-02, 0.10626E-01, 0.14352E-01, - & 0.17914E-01, 0.21421E-01, 0.24962E-01, 0.28541E-01, 0.32181E-01, - & 0.35835E-01, 0.39453E-01, 0.43033E-01, 0.46554E-01, 0.49980E-01, - & 0.53313E-01, 0.56528E-01, 0.59614E-01, 0.62624E-01, 0.65599E-01, - & 0.68719E-01, 0.71990E-01, 0.75438E-01, 0.78886E-01, 0.82334E-01, - & 0.85782E-01, 0.89230E-01, 0.92677E-01, 0.96125E-01, 0.99573E-01, - &-0.15223E-02, 0.25779E-02, 0.66765E-02, 0.10589E-01, 0.14237E-01, - & 0.17712E-01, 0.21129E-01, 0.24571E-01, 0.28048E-01, 0.31582E-01, - & 0.35122E-01, 0.38625E-01, 0.42092E-01, 0.45498E-01, 0.48808E-01, - & 0.52023E-01, 0.55124E-01, 0.58096E-01, 0.60993E-01, 0.63859E-01, - & 0.66869E-01, 0.70016E-01, 0.73326E-01, 0.76635E-01, 0.79944E-01, - & 0.83253E-01, 0.86562E-01, 0.89871E-01, 0.93180E-01, 0.96490E-01, - &-0.13756E-02, 0.26667E-02, 0.67073E-02, 0.10552E-01, 0.14123E-01, - & 0.17513E-01, 0.20839E-01, 0.24185E-01, 0.27560E-01, 0.30990E-01, - & 0.34417E-01, 0.37810E-01, 0.41166E-01, 0.44458E-01, 0.47655E-01, - & 0.50752E-01, 0.53743E-01, 0.56605E-01, 0.59392E-01, 0.62154E-01, - & 0.65050E-01, 0.68079E-01, 0.71262E-01, 0.74445E-01, 0.77628E-01, - & 0.80811E-01, 0.83994E-01, 0.87177E-01, 0.90360E-01, 0.93543E-01, - &-0.12282E-02, 0.27559E-02, 0.67382E-02, 0.10516E-01, 0.14009E-01, - & 0.17314E-01, 0.20552E-01, 0.23803E-01, 0.27078E-01, 0.30407E-01, - & 0.33723E-01, 0.37008E-01, 0.40255E-01, 0.43436E-01, 0.46521E-01, - & 0.49504E-01, 0.52385E-01, 0.55142E-01, 0.57822E-01, 0.60485E-01, - & 0.63267E-01, 0.66179E-01, 0.69237E-01, 0.72295E-01, 0.75354E-01, - & 0.78412E-01, 0.81470E-01, 0.84529E-01, 0.87587E-01, 0.90645E-01, - &-0.10797E-02, 0.28458E-02, 0.67694E-02, 0.10480E-01, 0.13896E-01, - & 0.17117E-01, 0.20267E-01, 0.23424E-01, 0.26601E-01, 0.29830E-01, - & 0.33038E-01, 0.36217E-01, 0.39358E-01, 0.42429E-01, 0.45405E-01, - & 0.48277E-01, 0.51051E-01, 0.53706E-01, 0.56286E-01, 0.58847E-01, - & 0.61517E-01, 0.64316E-01, 0.67254E-01, 0.70191E-01, 0.73129E-01, - & 0.76067E-01, 0.79005E-01, 0.81943E-01, 0.84881E-01, 0.87818E-01/ - - data ((flgrdl(i,j),j=1,30),i= 21, 30)/ - &-0.93048E-03, 0.29361E-02, 0.68008E-02, 0.10443E-01, 0.13784E-01, - & 0.16922E-01, 0.19984E-01, 0.23049E-01, 0.26130E-01, 0.29257E-01, - & 0.32363E-01, 0.35440E-01, 0.38474E-01, 0.41439E-01, 0.44307E-01, - & 0.47071E-01, 0.49740E-01, 0.52296E-01, 0.54778E-01, 0.57240E-01, - & 0.59797E-01, 0.62491E-01, 0.65322E-01, 0.68153E-01, 0.70984E-01, - & 0.73815E-01, 0.76646E-01, 0.79476E-01, 0.82307E-01, 0.85138E-01, - &-0.78005E-03, 0.30272E-02, 0.68324E-02, 0.10408E-01, 0.13672E-01, - & 0.16728E-01, 0.19704E-01, 0.22678E-01, 0.25665E-01, 0.28693E-01, - & 0.31697E-01, 0.34675E-01, 0.37605E-01, 0.40464E-01, 0.43227E-01, - & 0.45887E-01, 0.48454E-01, 0.50911E-01, 0.53298E-01, 0.55663E-01, - & 0.58109E-01, 0.60703E-01, 0.63437E-01, 0.66172E-01, 0.68907E-01, - & 0.71641E-01, 0.74376E-01, 0.77110E-01, 0.79845E-01, 0.82580E-01, - &-0.62759E-03, 0.31194E-02, 0.68643E-02, 0.10372E-01, 0.13560E-01, - & 0.16535E-01, 0.19427E-01, 0.22311E-01, 0.25206E-01, 0.28136E-01, - & 0.31042E-01, 0.33921E-01, 0.36749E-01, 0.39504E-01, 0.42164E-01, - & 0.44724E-01, 0.47191E-01, 0.49552E-01, 0.51844E-01, 0.54115E-01, - & 0.56452E-01, 0.58948E-01, 0.61589E-01, 0.64230E-01, 0.66872E-01, - & 0.69513E-01, 0.72155E-01, 0.74796E-01, 0.77437E-01, 0.80079E-01, - &-0.47511E-03, 0.32118E-02, 0.68965E-02, 0.10337E-01, 0.13449E-01, - & 0.16345E-01, 0.19152E-01, 0.21948E-01, 0.24752E-01, 0.27588E-01, - & 0.30396E-01, 0.33179E-01, 0.35907E-01, 0.38560E-01, 0.41119E-01, - & 0.43581E-01, 0.45952E-01, 0.48219E-01, 0.50418E-01, 0.52596E-01, - & 0.54833E-01, 0.57229E-01, 0.59775E-01, 0.62321E-01, 0.64866E-01, - & 0.67412E-01, 0.69958E-01, 0.72503E-01, 0.75049E-01, 0.77594E-01, - &-0.31997E-03, 0.33057E-02, 0.69290E-02, 0.10302E-01, 0.13339E-01, - & 0.16156E-01, 0.18879E-01, 0.21589E-01, 0.24304E-01, 0.27046E-01, - & 0.29761E-01, 0.32448E-01, 0.35079E-01, 0.37628E-01, 0.40090E-01, - & 0.42459E-01, 0.44735E-01, 0.46910E-01, 0.49018E-01, 0.51106E-01, - & 0.53247E-01, 0.55547E-01, 0.57993E-01, 0.60440E-01, 0.62887E-01, - & 0.65333E-01, 0.67780E-01, 0.70227E-01, 0.72673E-01, 0.75120E-01, - &-0.16508E-03, 0.33996E-02, 0.69619E-02, 0.10267E-01, 0.13229E-01, - & 0.15969E-01, 0.18609E-01, 0.21234E-01, 0.23862E-01, 0.26512E-01, - & 0.29136E-01, 0.31728E-01, 0.34263E-01, 0.36712E-01, 0.39078E-01, - & 0.41357E-01, 0.43540E-01, 0.45625E-01, 0.47646E-01, 0.49645E-01, - & 0.51692E-01, 0.53897E-01, 0.56247E-01, 0.58597E-01, 0.60946E-01, - & 0.63296E-01, 0.65645E-01, 0.67995E-01, 0.70345E-01, 0.72694E-01, - &-0.81802E-05, 0.34947E-02, 0.69951E-02, 0.10233E-01, 0.13120E-01, - & 0.15783E-01, 0.18341E-01, 0.20883E-01, 0.23425E-01, 0.25985E-01, - & 0.28520E-01, 0.31021E-01, 0.33457E-01, 0.35811E-01, 0.38085E-01, - & 0.40274E-01, 0.42367E-01, 0.44365E-01, 0.46299E-01, 0.48212E-01, - & 0.50168E-01, 0.52281E-01, 0.54536E-01, 0.56791E-01, 0.59046E-01, - & 0.61301E-01, 0.63556E-01, 0.65811E-01, 0.68066E-01, 0.70321E-01, - & 0.14946E-03, 0.35903E-02, 0.70287E-02, 0.10198E-01, 0.13012E-01, - & 0.15598E-01, 0.18075E-01, 0.20535E-01, 0.22993E-01, 0.25465E-01, - & 0.27912E-01, 0.30324E-01, 0.32664E-01, 0.34927E-01, 0.37109E-01, - & 0.39212E-01, 0.41216E-01, 0.43128E-01, 0.44979E-01, 0.46808E-01, - & 0.48674E-01, 0.50697E-01, 0.52860E-01, 0.55023E-01, 0.57186E-01, - & 0.59348E-01, 0.61511E-01, 0.63674E-01, 0.65837E-01, 0.68000E-01, - & 0.30886E-03, 0.36870E-02, 0.70626E-02, 0.10164E-01, 0.12904E-01, - & 0.15414E-01, 0.17812E-01, 0.20191E-01, 0.22566E-01, 0.24953E-01, - & 0.27314E-01, 0.29635E-01, 0.31883E-01, 0.34057E-01, 0.36151E-01, - & 0.38168E-01, 0.40086E-01, 0.41916E-01, 0.43684E-01, 0.45430E-01, - & 0.47211E-01, 0.49145E-01, 0.51218E-01, 0.53291E-01, 0.55364E-01, - & 0.57437E-01, 0.59509E-01, 0.61582E-01, 0.63655E-01, 0.65728E-01, - & 0.46866E-03, 0.37841E-02, 0.70969E-02, 0.10130E-01, 0.12797E-01, - & 0.15232E-01, 0.17551E-01, 0.19851E-01, 0.22145E-01, 0.24447E-01, - & 0.26724E-01, 0.28955E-01, 0.31116E-01, 0.33203E-01, 0.35210E-01, - & 0.37143E-01, 0.38976E-01, 0.40726E-01, 0.42415E-01, 0.44080E-01, - & 0.45777E-01, 0.47625E-01, 0.49610E-01, 0.51594E-01, 0.53578E-01, - & 0.55563E-01, 0.57547E-01, 0.59531E-01, 0.61515E-01, 0.63500E-01/ - - data ((flgrdl(i,j),j=1,30),i= 31, 40)/ - & 0.63020E-03, 0.38822E-02, 0.71316E-02, 0.10096E-01, 0.12691E-01, - & 0.15050E-01, 0.17293E-01, 0.19514E-01, 0.21728E-01, 0.23949E-01, - & 0.26143E-01, 0.28285E-01, 0.30361E-01, 0.32364E-01, 0.34285E-01, - & 0.36137E-01, 0.37889E-01, 0.39559E-01, 0.41170E-01, 0.42755E-01, - & 0.44371E-01, 0.46137E-01, 0.48035E-01, 0.49934E-01, 0.51833E-01, - & 0.53732E-01, 0.55631E-01, 0.57529E-01, 0.59428E-01, 0.61327E-01, - & 0.79321E-03, 0.39813E-02, 0.71667E-02, 0.10063E-01, 0.12586E-01, - & 0.14870E-01, 0.17038E-01, 0.19181E-01, 0.21317E-01, 0.23457E-01, - & 0.25569E-01, 0.27627E-01, 0.29619E-01, 0.31539E-01, 0.33378E-01, - & 0.35150E-01, 0.36822E-01, 0.38413E-01, 0.39950E-01, 0.41451E-01, - & 0.42995E-01, 0.44679E-01, 0.46495E-01, 0.48311E-01, 0.50126E-01, - & 0.51942E-01, 0.53758E-01, 0.55574E-01, 0.57389E-01, 0.59205E-01, - & 0.95839E-03, 0.40817E-02, 0.72022E-02, 0.10030E-01, 0.12481E-01, - & 0.14691E-01, 0.16786E-01, 0.18851E-01, 0.20911E-01, 0.22972E-01, - & 0.25003E-01, 0.26979E-01, 0.28890E-01, 0.30728E-01, 0.32487E-01, - & 0.34181E-01, 0.35776E-01, 0.37287E-01, 0.38748E-01, 0.40171E-01, - & 0.41647E-01, 0.43252E-01, 0.44986E-01, 0.46719E-01, 0.48453E-01, - & 0.50187E-01, 0.51921E-01, 0.53654E-01, 0.55388E-01, 0.57122E-01, - & 0.11245E-02, 0.41828E-02, 0.72383E-02, 0.99973E-02, 0.12377E-01, - & 0.14514E-01, 0.16536E-01, 0.18526E-01, 0.20510E-01, 0.22493E-01, - & 0.24446E-01, 0.26342E-01, 0.28173E-01, 0.29933E-01, 0.31613E-01, - & 0.33230E-01, 0.34750E-01, 0.36182E-01, 0.37566E-01, 0.38917E-01, - & 0.40328E-01, 0.41854E-01, 0.43504E-01, 0.45154E-01, 0.46804E-01, - & 0.48454E-01, 0.50105E-01, 0.51755E-01, 0.53405E-01, 0.55055E-01, - & 0.12918E-02, 0.42847E-02, 0.72749E-02, 0.99651E-02, 0.12273E-01, - & 0.14338E-01, 0.16289E-01, 0.18205E-01, 0.20116E-01, 0.22021E-01, - & 0.23898E-01, 0.25715E-01, 0.27468E-01, 0.29151E-01, 0.30754E-01, - & 0.32296E-01, 0.33742E-01, 0.35099E-01, 0.36407E-01, 0.37688E-01, - & 0.39038E-01, 0.40482E-01, 0.42039E-01, 0.43597E-01, 0.45155E-01, - & 0.46713E-01, 0.48271E-01, 0.49829E-01, 0.51387E-01, 0.52945E-01, - & 0.14620E-02, 0.43884E-02, 0.73120E-02, 0.99332E-02, 0.12170E-01, - & 0.14164E-01, 0.16045E-01, 0.17888E-01, 0.19726E-01, 0.21558E-01, - & 0.23358E-01, 0.25098E-01, 0.26775E-01, 0.28384E-01, 0.29913E-01, - & 0.31375E-01, 0.32751E-01, 0.34036E-01, 0.35271E-01, 0.36484E-01, - & 0.37773E-01, 0.39134E-01, 0.40594E-01, 0.42054E-01, 0.43515E-01, - & 0.44975E-01, 0.46435E-01, 0.47895E-01, 0.49356E-01, 0.50816E-01, - & 0.16326E-02, 0.44926E-02, 0.73497E-02, 0.99017E-02, 0.12068E-01, - & 0.13991E-01, 0.15803E-01, 0.17575E-01, 0.19342E-01, 0.21101E-01, - & 0.22826E-01, 0.24492E-01, 0.26094E-01, 0.27630E-01, 0.29086E-01, - & 0.30470E-01, 0.31775E-01, 0.32993E-01, 0.34159E-01, 0.35307E-01, - & 0.36533E-01, 0.37815E-01, 0.39182E-01, 0.40550E-01, 0.41917E-01, - & 0.43284E-01, 0.44651E-01, 0.46018E-01, 0.47386E-01, 0.48753E-01, - & 0.18058E-02, 0.45983E-02, 0.73880E-02, 0.98705E-02, 0.11966E-01, - & 0.13820E-01, 0.15562E-01, 0.17266E-01, 0.18961E-01, 0.20651E-01, - & 0.22302E-01, 0.23895E-01, 0.25425E-01, 0.26888E-01, 0.28273E-01, - & 0.29583E-01, 0.30817E-01, 0.31970E-01, 0.33070E-01, 0.34155E-01, - & 0.35315E-01, 0.36524E-01, 0.37805E-01, 0.39086E-01, 0.40368E-01, - & 0.41649E-01, 0.42930E-01, 0.44212E-01, 0.45493E-01, 0.46774E-01, - & 0.19804E-02, 0.47051E-02, 0.74270E-02, 0.98397E-02, 0.11865E-01, - & 0.13651E-01, 0.15324E-01, 0.16961E-01, 0.18586E-01, 0.20207E-01, - & 0.21786E-01, 0.23308E-01, 0.24767E-01, 0.26159E-01, 0.27475E-01, - & 0.28713E-01, 0.29879E-01, 0.30968E-01, 0.32007E-01, 0.33029E-01, - & 0.34116E-01, 0.35258E-01, 0.36466E-01, 0.37674E-01, 0.38881E-01, - & 0.40089E-01, 0.41297E-01, 0.42505E-01, 0.43713E-01, 0.44921E-01, - & 0.21567E-02, 0.48131E-02, 0.74666E-02, 0.98094E-02, 0.11766E-01, - & 0.13482E-01, 0.15088E-01, 0.16658E-01, 0.18215E-01, 0.19769E-01, - & 0.21278E-01, 0.22730E-01, 0.24119E-01, 0.25442E-01, 0.26690E-01, - & 0.27861E-01, 0.28960E-01, 0.29987E-01, 0.30965E-01, 0.31926E-01, - & 0.32940E-01, 0.34017E-01, 0.35162E-01, 0.36307E-01, 0.37452E-01, - & 0.38597E-01, 0.39743E-01, 0.40888E-01, 0.42033E-01, 0.43178E-01/ - - data ((flgrdl(i,j),j=1,30),i= 41, 50)/ - & 0.23344E-02, 0.49222E-02, 0.75070E-02, 0.97796E-02, 0.11666E-01, - & 0.13316E-01, 0.14855E-01, 0.16360E-01, 0.17849E-01, 0.19337E-01, - & 0.20778E-01, 0.22161E-01, 0.23483E-01, 0.24738E-01, 0.25918E-01, - & 0.27025E-01, 0.28061E-01, 0.29027E-01, 0.29946E-01, 0.30848E-01, - & 0.31792E-01, 0.32806E-01, 0.33891E-01, 0.34976E-01, 0.36061E-01, - & 0.37146E-01, 0.38232E-01, 0.39317E-01, 0.40402E-01, 0.41487E-01, - & 0.25142E-02, 0.50326E-02, 0.75480E-02, 0.97502E-02, 0.11568E-01, - & 0.13150E-01, 0.14624E-01, 0.16064E-01, 0.17488E-01, 0.18911E-01, - & 0.20285E-01, 0.21602E-01, 0.22858E-01, 0.24048E-01, 0.25162E-01, - & 0.26207E-01, 0.27181E-01, 0.28088E-01, 0.28949E-01, 0.29794E-01, - & 0.30669E-01, 0.31623E-01, 0.32651E-01, 0.33679E-01, 0.34707E-01, - & 0.35734E-01, 0.36762E-01, 0.37790E-01, 0.38818E-01, 0.39846E-01, - & 0.26960E-02, 0.51444E-02, 0.75898E-02, 0.97216E-02, 0.11471E-01, - & 0.12987E-01, 0.14395E-01, 0.15771E-01, 0.17131E-01, 0.18491E-01, - & 0.19799E-01, 0.21052E-01, 0.22245E-01, 0.23370E-01, 0.24420E-01, - & 0.25406E-01, 0.26319E-01, 0.27168E-01, 0.27973E-01, 0.28762E-01, - & 0.29573E-01, 0.30468E-01, 0.31439E-01, 0.32410E-01, 0.33381E-01, - & 0.34351E-01, 0.35322E-01, 0.36293E-01, 0.37264E-01, 0.38235E-01, - & 0.28812E-02, 0.52582E-02, 0.76324E-02, 0.96934E-02, 0.11374E-01, - & 0.12824E-01, 0.14169E-01, 0.15482E-01, 0.16781E-01, 0.18076E-01, - & 0.19320E-01, 0.20511E-01, 0.21643E-01, 0.22705E-01, 0.23694E-01, - & 0.24621E-01, 0.25476E-01, 0.26267E-01, 0.27018E-01, 0.27751E-01, - & 0.28502E-01, 0.29340E-01, 0.30254E-01, 0.31169E-01, 0.32083E-01, - & 0.32998E-01, 0.33912E-01, 0.34827E-01, 0.35742E-01, 0.36656E-01, - & 0.30686E-02, 0.53737E-02, 0.76758E-02, 0.96659E-02, 0.11278E-01, - & 0.12663E-01, 0.13945E-01, 0.15197E-01, 0.16435E-01, 0.17668E-01, - & 0.18850E-01, 0.19981E-01, 0.21052E-01, 0.22053E-01, 0.22981E-01, - & 0.23850E-01, 0.24649E-01, 0.25385E-01, 0.26081E-01, 0.26762E-01, - & 0.27456E-01, 0.28237E-01, 0.29095E-01, 0.29953E-01, 0.30812E-01, - & 0.31670E-01, 0.32528E-01, 0.33387E-01, 0.34245E-01, 0.35103E-01, - & 0.32577E-02, 0.54904E-02, 0.77202E-02, 0.96390E-02, 0.11183E-01, - & 0.12504E-01, 0.13724E-01, 0.14915E-01, 0.16094E-01, 0.17265E-01, - & 0.18387E-01, 0.19462E-01, 0.20471E-01, 0.21412E-01, 0.22282E-01, - & 0.23094E-01, 0.23838E-01, 0.24520E-01, 0.25166E-01, 0.25792E-01, - & 0.26434E-01, 0.27159E-01, 0.27959E-01, 0.28759E-01, 0.29560E-01, - & 0.30360E-01, 0.31161E-01, 0.31961E-01, 0.32762E-01, 0.33562E-01, - & 0.34505E-02, 0.56095E-02, 0.77656E-02, 0.96127E-02, 0.11088E-01, - & 0.12346E-01, 0.13506E-01, 0.14637E-01, 0.15758E-01, 0.16869E-01, - & 0.17933E-01, 0.18951E-01, 0.19901E-01, 0.20784E-01, 0.21597E-01, - & 0.22353E-01, 0.23044E-01, 0.23674E-01, 0.24267E-01, 0.24841E-01, - & 0.25435E-01, 0.26105E-01, 0.26849E-01, 0.27593E-01, 0.28337E-01, - & 0.29081E-01, 0.29824E-01, 0.30568E-01, 0.31312E-01, 0.32056E-01, - & 0.36438E-02, 0.57294E-02, 0.78120E-02, 0.95871E-02, 0.10995E-01, - & 0.12189E-01, 0.13289E-01, 0.14362E-01, 0.15426E-01, 0.16479E-01, - & 0.17490E-01, 0.18448E-01, 0.19341E-01, 0.20167E-01, 0.20925E-01, - & 0.21626E-01, 0.22265E-01, 0.22843E-01, 0.23387E-01, 0.23910E-01, - & 0.24458E-01, 0.25074E-01, 0.25761E-01, 0.26447E-01, 0.27133E-01, - & 0.27820E-01, 0.28506E-01, 0.29193E-01, 0.29879E-01, 0.30565E-01, - & 0.38407E-02, 0.58515E-02, 0.78594E-02, 0.95622E-02, 0.10903E-01, - & 0.12035E-01, 0.13076E-01, 0.14091E-01, 0.15099E-01, 0.16095E-01, - & 0.17052E-01, 0.17954E-01, 0.18790E-01, 0.19562E-01, 0.20267E-01, - & 0.20914E-01, 0.21502E-01, 0.22030E-01, 0.22525E-01, 0.22999E-01, - & 0.23502E-01, 0.24067E-01, 0.24697E-01, 0.25328E-01, 0.25958E-01, - & 0.26589E-01, 0.27219E-01, 0.27850E-01, 0.28480E-01, 0.29111E-01, - & 0.40408E-02, 0.59758E-02, 0.79079E-02, 0.95378E-02, 0.10811E-01, - & 0.11882E-01, 0.12864E-01, 0.13824E-01, 0.14777E-01, 0.15718E-01, - & 0.16622E-01, 0.17469E-01, 0.18250E-01, 0.18967E-01, 0.19620E-01, - & 0.20218E-01, 0.20756E-01, 0.21235E-01, 0.21682E-01, 0.22110E-01, - & 0.22568E-01, 0.23081E-01, 0.23656E-01, 0.24230E-01, 0.24805E-01, - & 0.25380E-01, 0.25955E-01, 0.26530E-01, 0.27105E-01, 0.27680E-01/ - - data ((flgrdl(i,j),j=1,30),i= 51, 60)/ - & 0.42433E-02, 0.61018E-02, 0.79575E-02, 0.95142E-02, 0.10721E-01, - & 0.11730E-01, 0.12655E-01, 0.13561E-01, 0.14459E-01, 0.15347E-01, - & 0.16199E-01, 0.16991E-01, 0.17720E-01, 0.18385E-01, 0.18988E-01, - & 0.19535E-01, 0.20025E-01, 0.20459E-01, 0.20859E-01, 0.21243E-01, - & 0.21654E-01, 0.22117E-01, 0.22635E-01, 0.23153E-01, 0.23671E-01, - & 0.24189E-01, 0.24706E-01, 0.25224E-01, 0.25742E-01, 0.26260E-01, - & 0.44485E-02, 0.62298E-02, 0.80083E-02, 0.94914E-02, 0.10632E-01, - & 0.11579E-01, 0.12448E-01, 0.13300E-01, 0.14146E-01, 0.14983E-01, - & 0.15782E-01, 0.16522E-01, 0.17199E-01, 0.17813E-01, 0.18367E-01, - & 0.18868E-01, 0.19310E-01, 0.19699E-01, 0.20056E-01, 0.20396E-01, - & 0.20762E-01, 0.21176E-01, 0.21642E-01, 0.22109E-01, 0.22575E-01, - & 0.23041E-01, 0.23507E-01, 0.23973E-01, 0.24439E-01, 0.24905E-01, - & 0.46569E-02, 0.63600E-02, 0.80602E-02, 0.94693E-02, 0.10543E-01, - & 0.11430E-01, 0.12243E-01, 0.13043E-01, 0.13836E-01, 0.14624E-01, - & 0.15371E-01, 0.16061E-01, 0.16688E-01, 0.17253E-01, 0.17759E-01, - & 0.18216E-01, 0.18612E-01, 0.18957E-01, 0.19271E-01, 0.19569E-01, - & 0.19890E-01, 0.20259E-01, 0.20677E-01, 0.21095E-01, 0.21513E-01, - & 0.21932E-01, 0.22350E-01, 0.22768E-01, 0.23186E-01, 0.23604E-01, - & 0.48693E-02, 0.64927E-02, 0.81134E-02, 0.94481E-02, 0.10455E-01, - & 0.11283E-01, 0.12041E-01, 0.12789E-01, 0.13532E-01, 0.14270E-01, - & 0.14968E-01, 0.15608E-01, 0.16187E-01, 0.16706E-01, 0.17165E-01, - & 0.17577E-01, 0.17930E-01, 0.18232E-01, 0.18505E-01, 0.18762E-01, - & 0.19040E-01, 0.19364E-01, 0.19736E-01, 0.20108E-01, 0.20480E-01, - & 0.20852E-01, 0.21224E-01, 0.21596E-01, 0.21968E-01, 0.22340E-01, - & 0.50842E-02, 0.66274E-02, 0.81678E-02, 0.94275E-02, 0.10368E-01, - & 0.11137E-01, 0.11841E-01, 0.12538E-01, 0.13232E-01, 0.13922E-01, - & 0.14571E-01, 0.15163E-01, 0.15695E-01, 0.16169E-01, 0.16583E-01, - & 0.16952E-01, 0.17262E-01, 0.17523E-01, 0.17756E-01, 0.17973E-01, - & 0.18209E-01, 0.18490E-01, 0.18818E-01, 0.19145E-01, 0.19473E-01, - & 0.19800E-01, 0.20128E-01, 0.20455E-01, 0.20783E-01, 0.21110E-01, - & 0.53030E-02, 0.67645E-02, 0.82234E-02, 0.94076E-02, 0.10282E-01, - & 0.10992E-01, 0.11644E-01, 0.12291E-01, 0.12936E-01, 0.13579E-01, - & 0.14180E-01, 0.14726E-01, 0.15213E-01, 0.15645E-01, 0.16015E-01, - & 0.16339E-01, 0.16608E-01, 0.16829E-01, 0.17024E-01, 0.17202E-01, - & 0.17399E-01, 0.17639E-01, 0.17925E-01, 0.18211E-01, 0.18497E-01, - & 0.18783E-01, 0.19069E-01, 0.19355E-01, 0.19641E-01, 0.19927E-01, - & 0.55258E-02, 0.69044E-02, 0.82803E-02, 0.93885E-02, 0.10197E-01, - & 0.10849E-01, 0.11448E-01, 0.12046E-01, 0.12644E-01, 0.13241E-01, - & 0.13797E-01, 0.14298E-01, 0.14743E-01, 0.15131E-01, 0.15459E-01, - & 0.15741E-01, 0.15970E-01, 0.16152E-01, 0.16308E-01, 0.16449E-01, - & 0.16608E-01, 0.16808E-01, 0.17052E-01, 0.17295E-01, 0.17539E-01, - & 0.17782E-01, 0.18026E-01, 0.18270E-01, 0.18513E-01, 0.18757E-01, - & 0.57514E-02, 0.70462E-02, 0.83384E-02, 0.93700E-02, 0.10112E-01, - & 0.10707E-01, 0.11255E-01, 0.11805E-01, 0.12357E-01, 0.12909E-01, - & 0.13420E-01, 0.13878E-01, 0.14282E-01, 0.14628E-01, 0.14914E-01, - & 0.15154E-01, 0.15346E-01, 0.15491E-01, 0.15610E-01, 0.15715E-01, - & 0.15838E-01, 0.15998E-01, 0.16198E-01, 0.16399E-01, 0.16599E-01, - & 0.16799E-01, 0.16999E-01, 0.17199E-01, 0.17400E-01, 0.17600E-01, - & 0.59806E-02, 0.71904E-02, 0.83978E-02, 0.93518E-02, 0.10028E-01, - & 0.10566E-01, 0.11063E-01, 0.11567E-01, 0.12074E-01, 0.12582E-01, - & 0.13050E-01, 0.13468E-01, 0.13829E-01, 0.14134E-01, 0.14381E-01, - & 0.14581E-01, 0.14735E-01, 0.14844E-01, 0.14929E-01, 0.14998E-01, - & 0.15088E-01, 0.15211E-01, 0.15372E-01, 0.15533E-01, 0.15695E-01, - & 0.15856E-01, 0.16017E-01, 0.16179E-01, 0.16340E-01, 0.16501E-01, - & 0.62136E-02, 0.73371E-02, 0.84582E-02, 0.93342E-02, 0.99446E-02, - & 0.10426E-01, 0.10873E-01, 0.11331E-01, 0.11795E-01, 0.12259E-01, - & 0.12686E-01, 0.13064E-01, 0.13386E-01, 0.13650E-01, 0.13859E-01, - & 0.14022E-01, 0.14140E-01, 0.14213E-01, 0.14263E-01, 0.14300E-01, - & 0.14355E-01, 0.14442E-01, 0.14567E-01, 0.14691E-01, 0.14816E-01, - & 0.14940E-01, 0.15065E-01, 0.15189E-01, 0.15314E-01, 0.15438E-01/ - - data ((flgrdl(i,j),j=1,30),i= 61, 70)/ - & 0.64511E-02, 0.74866E-02, 0.85197E-02, 0.93170E-02, 0.98615E-02, - & 0.10287E-01, 0.10684E-01, 0.11098E-01, 0.11519E-01, 0.11942E-01, - & 0.12330E-01, 0.12668E-01, 0.12950E-01, 0.13176E-01, 0.13347E-01, - & 0.13474E-01, 0.13558E-01, 0.13598E-01, 0.13615E-01, 0.13621E-01, - & 0.13643E-01, 0.13694E-01, 0.13779E-01, 0.13865E-01, 0.13951E-01, - & 0.14036E-01, 0.14122E-01, 0.14207E-01, 0.14293E-01, 0.14379E-01, - & 0.66918E-02, 0.76382E-02, 0.85822E-02, 0.92999E-02, 0.97785E-02, - & 0.10149E-01, 0.10497E-01, 0.10868E-01, 0.11247E-01, 0.11630E-01, - & 0.11979E-01, 0.12279E-01, 0.12522E-01, 0.12711E-01, 0.12847E-01, - & 0.12939E-01, 0.12988E-01, 0.12998E-01, 0.12984E-01, 0.12959E-01, - & 0.12948E-01, 0.12965E-01, 0.13013E-01, 0.13061E-01, 0.13108E-01, - & 0.13156E-01, 0.13204E-01, 0.13251E-01, 0.13299E-01, 0.13347E-01, - & 0.69368E-02, 0.77922E-02, 0.86455E-02, 0.92828E-02, 0.96954E-02, - & 0.10010E-01, 0.10311E-01, 0.10639E-01, 0.10977E-01, 0.11322E-01, - & 0.11633E-01, 0.11896E-01, 0.12103E-01, 0.12256E-01, 0.12358E-01, - & 0.12416E-01, 0.12433E-01, 0.12412E-01, 0.12369E-01, 0.12315E-01, - & 0.12270E-01, 0.12256E-01, 0.12273E-01, 0.12290E-01, 0.12307E-01, - & 0.12324E-01, 0.12341E-01, 0.12358E-01, 0.12375E-01, 0.12392E-01, - & 0.71853E-02, 0.79484E-02, 0.87095E-02, 0.92655E-02, 0.96120E-02, - & 0.98723E-02, 0.10127E-01, 0.10412E-01, 0.10711E-01, 0.11018E-01, - & 0.11293E-01, 0.11520E-01, 0.11692E-01, 0.11810E-01, 0.11879E-01, - & 0.11907E-01, 0.11892E-01, 0.11842E-01, 0.11771E-01, 0.11689E-01, - & 0.11612E-01, 0.11568E-01, 0.11554E-01, 0.11540E-01, 0.11527E-01, - & 0.11513E-01, 0.11499E-01, 0.11485E-01, 0.11472E-01, 0.11458E-01, - & 0.74389E-02, 0.81074E-02, 0.87740E-02, 0.92476E-02, 0.95278E-02, - & 0.97342E-02, 0.99429E-02, 0.10187E-01, 0.10448E-01, 0.10718E-01, - & 0.10958E-01, 0.11150E-01, 0.11288E-01, 0.11374E-01, 0.11410E-01, - & 0.11410E-01, 0.11365E-01, 0.11286E-01, 0.11188E-01, 0.11077E-01, - & 0.10973E-01, 0.10899E-01, 0.10857E-01, 0.10814E-01, 0.10772E-01, - & 0.10729E-01, 0.10687E-01, 0.10644E-01, 0.10601E-01, 0.10559E-01, - & 0.76945E-02, 0.82675E-02, 0.88387E-02, 0.92289E-02, 0.94428E-02, - & 0.95955E-02, 0.97593E-02, 0.99642E-02, 0.10188E-01, 0.10422E-01, - & 0.10627E-01, 0.10787E-01, 0.10892E-01, 0.10947E-01, 0.10953E-01, - & 0.10923E-01, 0.10850E-01, 0.10744E-01, 0.10619E-01, 0.10482E-01, - & 0.10350E-01, 0.10249E-01, 0.10179E-01, 0.10109E-01, 0.10039E-01, - & 0.99695E-02, 0.98997E-02, 0.98299E-02, 0.97600E-02, 0.96902E-02, - & 0.79552E-02, 0.84301E-02, 0.89032E-02, 0.92090E-02, 0.93565E-02, - & 0.94560E-02, 0.95755E-02, 0.97419E-02, 0.99295E-02, 0.10129E-01, - & 0.10302E-01, 0.10429E-01, 0.10504E-01, 0.10529E-01, 0.10505E-01, - & 0.10447E-01, 0.10347E-01, 0.10215E-01, 0.10065E-01, 0.99024E-02, - & 0.97459E-02, 0.96171E-02, 0.95171E-02, 0.94171E-02, 0.93171E-02, - & 0.92170E-02, 0.91170E-02, 0.90170E-02, 0.89170E-02, 0.88169E-02, - & 0.82192E-02, 0.85941E-02, 0.89674E-02, 0.91874E-02, 0.92682E-02, - & 0.93151E-02, 0.93909E-02, 0.95199E-02, 0.96727E-02, 0.98398E-02, - & 0.99809E-02, 0.10078E-01, 0.10123E-01, 0.10119E-01, 0.10067E-01, - & 0.99819E-02, 0.98565E-02, 0.96986E-02, 0.95239E-02, 0.93369E-02, - & 0.91596E-02, 0.90042E-02, 0.88755E-02, 0.87467E-02, 0.86180E-02, - & 0.84893E-02, 0.83606E-02, 0.82318E-02, 0.81031E-02, 0.79744E-02, - & 0.84867E-02, 0.87594E-02, 0.90306E-02, 0.91638E-02, 0.91776E-02, - & 0.91721E-02, 0.92052E-02, 0.92986E-02, 0.94172E-02, 0.95528E-02, - & 0.96641E-02, 0.97312E-02, 0.97479E-02, 0.97173E-02, 0.96392E-02, - & 0.95270E-02, 0.93778E-02, 0.91958E-02, 0.89968E-02, 0.87882E-02, - & 0.85895E-02, 0.84089E-02, 0.82517E-02, 0.80944E-02, 0.79372E-02, - & 0.77799E-02, 0.76227E-02, 0.74655E-02, 0.73082E-02, 0.71510E-02, - & 0.87566E-02, 0.89252E-02, 0.90926E-02, 0.91374E-02, 0.90840E-02, - & 0.90265E-02, 0.90175E-02, 0.90762E-02, 0.91624E-02, 0.92678E-02, - & 0.93504E-02, 0.93896E-02, 0.93802E-02, 0.93234E-02, 0.92203E-02, - & 0.90819E-02, 0.89091E-02, 0.87060E-02, 0.84855E-02, 0.82560E-02, - & 0.80361E-02, 0.78307E-02, 0.76448E-02, 0.74588E-02, 0.72728E-02, - & 0.70868E-02, 0.69008E-02, 0.67149E-02, 0.65289E-02, 0.63429E-02/ - - data ((flgrdl(i,j),j=1,30),i= 71, 80)/ - & 0.90295E-02, 0.90916E-02, 0.91525E-02, 0.91078E-02, 0.89866E-02, - & 0.88775E-02, 0.88274E-02, 0.88519E-02, 0.89073E-02, 0.89849E-02, - & 0.90397E-02, 0.90529E-02, 0.90179E-02, 0.89355E-02, 0.88090E-02, - & 0.86484E-02, 0.84532E-02, 0.82290E-02, 0.79894E-02, 0.77387E-02, - & 0.74982E-02, 0.72719E-02, 0.70642E-02, 0.68566E-02, 0.66489E-02, - & 0.64413E-02, 0.62336E-02, 0.60260E-02, 0.58183E-02, 0.56107E-02, - & 0.93039E-02, 0.92574E-02, 0.92100E-02, 0.90740E-02, 0.88849E-02, - & 0.87243E-02, 0.86342E-02, 0.86259E-02, 0.86518E-02, 0.87023E-02, - & 0.87311E-02, 0.87200E-02, 0.86607E-02, 0.85553E-02, 0.84062E-02, - & 0.82252E-02, 0.80098E-02, 0.77655E-02, 0.75060E-02, 0.72387E-02, - & 0.69780E-02, 0.67318E-02, 0.65040E-02, 0.62763E-02, 0.60485E-02, - & 0.58208E-02, 0.55930E-02, 0.53653E-02, 0.51375E-02, 0.49098E-02, - & 0.95787E-02, 0.94218E-02, 0.92640E-02, 0.90356E-02, 0.87779E-02, - & 0.85664E-02, 0.84370E-02, 0.83969E-02, 0.83949E-02, 0.84194E-02, - & 0.84247E-02, 0.83901E-02, 0.83089E-02, 0.81823E-02, 0.80125E-02, - & 0.78108E-02, 0.75766E-02, 0.73162E-02, 0.70397E-02, 0.67565E-02, - & 0.64767E-02, 0.62102E-02, 0.59592E-02, 0.57081E-02, 0.54571E-02, - & 0.52060E-02, 0.49550E-02, 0.47039E-02, 0.44529E-02, 0.42018E-02, - & 0.98531E-02, 0.95837E-02, 0.93136E-02, 0.89914E-02, 0.86647E-02, - & 0.84025E-02, 0.82346E-02, 0.81641E-02, 0.81359E-02, 0.81363E-02, - & 0.81190E-02, 0.80637E-02, 0.79617E-02, 0.78149E-02, 0.76261E-02, - & 0.74068E-02, 0.71550E-02, 0.68790E-02, 0.65887E-02, 0.62892E-02, - & 0.59909E-02, 0.57091E-02, 0.54429E-02, 0.51768E-02, 0.49107E-02, - & 0.46446E-02, 0.43785E-02, 0.41124E-02, 0.38462E-02, 0.35801E-02, - & 0.10123E-01, 0.97408E-02, 0.93578E-02, 0.89405E-02, 0.85443E-02, - & 0.82317E-02, 0.80260E-02, 0.79271E-02, 0.78736E-02, 0.78514E-02, - & 0.78140E-02, 0.77392E-02, 0.76187E-02, 0.74537E-02, 0.72475E-02, - & 0.70130E-02, 0.67458E-02, 0.64542E-02, 0.61500E-02, 0.58362E-02, - & 0.55233E-02, 0.52278E-02, 0.49505E-02, 0.46733E-02, 0.43960E-02, - & 0.41187E-02, 0.38414E-02, 0.35641E-02, 0.32869E-02, 0.30096E-02, - & 0.10384E-01, 0.98896E-02, 0.93947E-02, 0.88820E-02, 0.84158E-02, - & 0.80529E-02, 0.78103E-02, 0.76839E-02, 0.76070E-02, 0.75641E-02, - & 0.75088E-02, 0.74165E-02, 0.72786E-02, 0.70976E-02, 0.68762E-02, - & 0.66270E-02, 0.63468E-02, 0.60425E-02, 0.57250E-02, 0.53999E-02, - & 0.50758E-02, 0.47654E-02, 0.44712E-02, 0.41770E-02, 0.38828E-02, - & 0.35885E-02, 0.32943E-02, 0.30001E-02, 0.27059E-02, 0.24117E-02, - & 0.10627E-01, 0.10025E-01, 0.94221E-02, 0.88146E-02, 0.82780E-02, - & 0.78651E-02, 0.75863E-02, 0.74338E-02, 0.73350E-02, 0.72744E-02, - & 0.72021E-02, 0.70935E-02, 0.69407E-02, 0.67460E-02, 0.65116E-02, - & 0.62490E-02, 0.59569E-02, 0.56422E-02, 0.53150E-02, 0.49794E-02, - & 0.46456E-02, 0.43232E-02, 0.40140E-02, 0.37047E-02, 0.33955E-02, - & 0.30862E-02, 0.27770E-02, 0.24677E-02, 0.21585E-02, 0.18492E-02, - & 0.10849E-01, 0.10143E-01, 0.94365E-02, 0.87369E-02, 0.81299E-02, - & 0.76669E-02, 0.73528E-02, 0.71752E-02, 0.70562E-02, 0.69798E-02, - & 0.68924E-02, 0.67704E-02, 0.66047E-02, 0.63976E-02, 0.61516E-02, - & 0.58785E-02, 0.55767E-02, 0.52525E-02, 0.49165E-02, 0.45720E-02, - & 0.42302E-02, 0.38984E-02, 0.35796E-02, 0.32607E-02, 0.29419E-02, - & 0.26231E-02, 0.23042E-02, 0.19854E-02, 0.16666E-02, 0.13477E-02, - & 0.11052E-01, 0.10243E-01, 0.94346E-02, 0.86473E-02, 0.79702E-02, - & 0.74575E-02, 0.71088E-02, 0.69075E-02, 0.67699E-02, 0.66794E-02, - & 0.65803E-02, 0.64465E-02, 0.62698E-02, 0.60525E-02, 0.57971E-02, - & 0.55154E-02, 0.52059E-02, 0.48745E-02, 0.45314E-02, 0.41805E-02, - & 0.38327E-02, 0.34920E-02, 0.31617E-02, 0.28315E-02, 0.25013E-02, - & 0.21711E-02, 0.18409E-02, 0.15107E-02, 0.11804E-02, 0.85023E-03, - & 0.11231E-01, 0.10322E-01, 0.94130E-02, 0.85433E-02, 0.77980E-02, - & 0.72357E-02, 0.68529E-02, 0.66293E-02, 0.64747E-02, 0.63716E-02, - & 0.62632E-02, 0.61205E-02, 0.59356E-02, 0.57108E-02, 0.54481E-02, - & 0.51599E-02, 0.48443E-02, 0.45083E-02, 0.41613E-02, 0.38062E-02, - & 0.34529E-02, 0.31063E-02, 0.27686E-02, 0.24308E-02, 0.20930E-02, - & 0.17552E-02, 0.14174E-02, 0.10797E-02, 0.74189E-03, 0.40411E-03/ - - data ((flgrdl(i,j),j=1,30),i= 81, 90)/ - & 0.11382E-01, 0.10375E-01, 0.93682E-02, 0.84219E-02, 0.76120E-02, - & 0.70005E-02, 0.65841E-02, 0.63394E-02, 0.61694E-02, 0.60558E-02, - & 0.59400E-02, 0.57922E-02, 0.56018E-02, 0.53713E-02, 0.51039E-02, - & 0.48114E-02, 0.44929E-02, 0.41545E-02, 0.38055E-02, 0.34488E-02, - & 0.30916E-02, 0.27422E-02, 0.24023E-02, 0.20624E-02, 0.17225E-02, - & 0.13826E-02, 0.10427E-02, 0.70284E-03, 0.36295E-03, 0.23050E-04, - & 0.11497E-01, 0.10396E-01, 0.92960E-02, 0.82787E-02, 0.74108E-02, - & 0.67511E-02, 0.63016E-02, 0.60366E-02, 0.58528E-02, 0.57311E-02, - & 0.56114E-02, 0.54593E-02, 0.52657E-02, 0.50327E-02, 0.47636E-02, - & 0.44705E-02, 0.41512E-02, 0.38126E-02, 0.34644E-02, 0.31080E-02, - & 0.27507E-02, 0.24010E-02, 0.20601E-02, 0.17191E-02, 0.13782E-02, - & 0.10373E-02, 0.69637E-03, 0.35545E-03, 0.14535E-04,-0.32639E-03, - & 0.11571E-01, 0.10381E-01, 0.91920E-02, 0.81089E-02, 0.71927E-02, - & 0.64868E-02, 0.60047E-02, 0.57206E-02, 0.55242E-02, 0.53963E-02, - & 0.52743E-02, 0.51220E-02, 0.49281E-02, 0.46950E-02, 0.44265E-02, - & 0.41342E-02, 0.38172E-02, 0.34816E-02, 0.31364E-02, 0.27830E-02, - & 0.24285E-02, 0.20806E-02, 0.17412E-02, 0.14018E-02, 0.10625E-02, - & 0.72309E-03, 0.38371E-03, 0.44331E-04,-0.29505E-03,-0.63443E-03, - & 0.11595E-01, 0.10323E-01, 0.90513E-02, 0.79088E-02, 0.69551E-02, - & 0.62073E-02, 0.56933E-02, 0.53904E-02, 0.51827E-02, 0.50505E-02, - & 0.49290E-02, 0.47791E-02, 0.45877E-02, 0.43575E-02, 0.40926E-02, - & 0.38043E-02, 0.34918E-02, 0.31614E-02, 0.28218E-02, 0.24742E-02, - & 0.21256E-02, 0.17824E-02, 0.14468E-02, 0.11111E-02, 0.77544E-03, - & 0.43978E-03, 0.10413E-03,-0.23153E-03,-0.56719E-03,-0.90285E-03, - & 0.11560E-01, 0.10214E-01, 0.88686E-02, 0.76744E-02, 0.66931E-02, - & 0.59121E-02, 0.53672E-02, 0.50462E-02, 0.48280E-02, 0.46931E-02, - & 0.45737E-02, 0.44292E-02, 0.42437E-02, 0.40197E-02, 0.37611E-02, - & 0.34801E-02, 0.31754E-02, 0.28531E-02, 0.25221E-02, 0.21830E-02, - & 0.18432E-02, 0.15072E-02, 0.11777E-02, 0.84823E-03, 0.51873E-03, - & 0.18922E-03,-0.14028E-03,-0.46978E-03,-0.79929E-03,-0.11288E-02, - & 0.11457E-01, 0.10047E-01, 0.86383E-02, 0.74018E-02, 0.64020E-02, - & 0.56008E-02, 0.50273E-02, 0.46886E-02, 0.44603E-02, 0.43234E-02, - & 0.42092E-02, 0.40729E-02, 0.38966E-02, 0.36816E-02, 0.34327E-02, - & 0.31613E-02, 0.28673E-02, 0.25566E-02, 0.22374E-02, 0.19101E-02, - & 0.15812E-02, 0.12559E-02, 0.93612E-03, 0.61636E-03, 0.29660E-03, - &-0.23157E-04,-0.34292E-03,-0.66267E-03,-0.98243E-03,-0.13022E-02, - & 0.11275E-01, 0.98140E-02, 0.83544E-02, 0.70871E-02, 0.60780E-02, - & 0.52720E-02, 0.46748E-02, 0.43186E-02, 0.40806E-02, 0.39430E-02, - & 0.38346E-02, 0.37094E-02, 0.35458E-02, 0.33430E-02, 0.31066E-02, - & 0.28488E-02, 0.25686E-02, 0.22721E-02, 0.19677E-02, 0.16551E-02, - & 0.13406E-02, 0.10293E-02, 0.72343E-03, 0.41753E-03, 0.11162E-03, - &-0.19428E-03,-0.50019E-03,-0.80609E-03,-0.11120E-02,-0.14179E-02, - & 0.11003E-01, 0.95060E-02, 0.80111E-02, 0.67262E-02, 0.57186E-02, - & 0.49222E-02, 0.43115E-02, 0.39385E-02, 0.36907E-02, 0.35525E-02, - & 0.34515E-02, 0.33386E-02, 0.31906E-02, 0.30038E-02, 0.27838E-02, - & 0.25417E-02, 0.22785E-02, 0.19999E-02, 0.17133E-02, 0.14189E-02, - & 0.11224E-02, 0.82799E-03, 0.53799E-03, 0.24800E-03,-0.41999E-04, - &-0.33200E-03,-0.62199E-03,-0.91199E-03,-0.12020E-02,-0.14920E-02, - & 0.10629E-01, 0.91147E-02, 0.76025E-02, 0.63158E-02, 0.53217E-02, - & 0.45459E-02, 0.39389E-02, 0.35513E-02, 0.32933E-02, 0.31542E-02, - & 0.30610E-02, 0.29622E-02, 0.28317E-02, 0.26639E-02, 0.24628E-02, - & 0.22406E-02, 0.19977E-02, 0.17398E-02, 0.14744E-02, 0.12011E-02, - & 0.92556E-03, 0.65185E-03, 0.38230E-03, 0.11276E-03,-0.15678E-03, - &-0.42633E-03,-0.69587E-03,-0.96541E-03,-0.12350E-02,-0.15045E-02, - & 0.10141E-01, 0.86311E-02, 0.71233E-02, 0.58532E-02, 0.48863E-02, - & 0.41413E-02, 0.35570E-02, 0.31607E-02, 0.28928E-02, 0.27516E-02, - & 0.26663E-02, 0.25819E-02, 0.24713E-02, 0.23252E-02, 0.21462E-02, - & 0.19462E-02, 0.17262E-02, 0.14925E-02, 0.12511E-02, 0.10024E-02, - & 0.75112E-03, 0.50083E-03, 0.25353E-03, 0.62431E-05,-0.24105E-03, - &-0.48834E-03,-0.73563E-03,-0.98292E-03,-0.12302E-02,-0.14775E-02/ - - data ((flgrdl(i,j),j=1,30),i= 91,100)/ - & 0.95280E-02, 0.80476E-02, 0.65695E-02, 0.53367E-02, 0.44122E-02, - & 0.37091E-02, 0.31622E-02, 0.27704E-02, 0.24951E-02, 0.23500E-02, - & 0.22709E-02, 0.22011E-02, 0.21111E-02, 0.19888E-02, 0.18348E-02, - & 0.16599E-02, 0.14659E-02, 0.12587E-02, 0.10440E-02, 0.82255E-03, - & 0.59863E-03, 0.37489E-03, 0.15358E-03,-0.67728E-04,-0.28904E-03, - &-0.51035E-03,-0.73166E-03,-0.95297E-03,-0.11743E-02,-0.13956E-02, - & 0.87802E-02, 0.73583E-02, 0.59387E-02, 0.47665E-02, 0.39010E-02, - & 0.32516E-02, 0.27520E-02, 0.23819E-02, 0.21067E-02, 0.19562E-02, - & 0.18811E-02, 0.18245E-02, 0.17543E-02, 0.16571E-02, 0.15302E-02, - & 0.13829E-02, 0.12171E-02, 0.10387E-02, 0.85362E-03, 0.66184E-03, - & 0.46764E-03, 0.27329E-03, 0.80638E-04,-0.11201E-03,-0.30466E-03, - &-0.49731E-03,-0.68995E-03,-0.88260E-03,-0.10753E-02,-0.12679E-02, - & 0.78913E-02, 0.65601E-02, 0.52312E-02, 0.41455E-02, 0.33565E-02, - & 0.27729E-02, 0.23291E-02, 0.19961E-02, 0.17351E-02, 0.15792E-02, - & 0.15047E-02, 0.14585E-02, 0.14070E-02, 0.13343E-02, 0.12354E-02, - & 0.11171E-02, 0.98119E-03, 0.83369E-03, 0.67980E-03, 0.51984E-03, - & 0.35745E-03, 0.19435E-03, 0.32098E-04,-0.13015E-03,-0.29240E-03, - &-0.45466E-03,-0.61691E-03,-0.77916E-03,-0.94141E-03,-0.11037E-02, - & 0.68596E-02, 0.56547E-02, 0.44519E-02, 0.34801E-02, 0.27858E-02, - & 0.22798E-02, 0.18997E-02, 0.16160E-02, 0.13848E-02, 0.12291E-02, - & 0.11520E-02, 0.11121E-02, 0.10760E-02, 0.10257E-02, 0.95448E-03, - & 0.86565E-03, 0.76059E-03, 0.64479E-03, 0.52294E-03, 0.39582E-03, - & 0.26641E-03, 0.13584E-03, 0.54254E-05,-0.12499E-03,-0.25540E-03, - &-0.38581E-03,-0.51622E-03,-0.64663E-03,-0.77704E-03,-0.90746E-03, - & 0.56930E-02, 0.46515E-02, 0.36120E-02, 0.27822E-02, 0.22001E-02, - & 0.17824E-02, 0.14727E-02, 0.12442E-02, 0.10559E-02, 0.91523E-03, - & 0.83480E-03, 0.79655E-03, 0.77104E-03, 0.73937E-03, 0.69317E-03, - & 0.63263E-03, 0.55772E-03, 0.47325E-03, 0.38339E-03, 0.28899E-03, - & 0.19248E-03, 0.94662E-04,-0.34995E-05,-0.10166E-03,-0.19982E-03, - &-0.29798E-03,-0.39615E-03,-0.49431E-03,-0.59247E-03,-0.69063E-03, - & 0.44126E-02, 0.35715E-02, 0.27322E-02, 0.20710E-02, 0.16163E-02, - & 0.12955E-02, 0.10608E-02, 0.88983E-03, 0.74956E-03, 0.64104E-03, - & 0.56472E-03, 0.52467E-03, 0.50403E-03, 0.48552E-03, 0.45926E-03, - & 0.42344E-03, 0.37653E-03, 0.32143E-03, 0.26166E-03, 0.19825E-03, - & 0.13303E-03, 0.66524E-04,-0.63441E-06,-0.67793E-04,-0.13495E-03, - &-0.20211E-03,-0.26927E-03,-0.33643E-03,-0.40359E-03,-0.47074E-03, - & 0.30628E-02, 0.24546E-02, 0.18477E-02, 0.13764E-02, 0.10592E-02, - & 0.83940E-03, 0.68087E-03, 0.56675E-03, 0.47383E-03, 0.40215E-03, - & 0.34691E-03, 0.30874E-03, 0.28850E-03, 0.27644E-03, 0.26360E-03, - & 0.24629E-03, 0.22228E-03, 0.19243E-03, 0.15891E-03, 0.12266E-03, - & 0.84936E-04, 0.46200E-04, 0.67957E-05,-0.32608E-04,-0.72012E-04, - &-0.11142E-03,-0.15082E-03,-0.19022E-03,-0.22963E-03,-0.26903E-03, - & 0.17286E-02, 0.13722E-02, 0.10167E-02, 0.74447E-03, 0.56500E-03, - & 0.44268E-03, 0.35561E-03, 0.29365E-03, 0.24353E-03, 0.20518E-03, - & 0.17539E-03, 0.15214E-03, 0.13534E-03, 0.12525E-03, 0.11863E-03, - & 0.11192E-03, 0.10306E-03, 0.91421E-04, 0.77678E-04, 0.62236E-04, - & 0.45815E-04, 0.28775E-04, 0.11299E-04,-0.61783E-05,-0.23655E-04, - &-0.41132E-04,-0.58609E-04,-0.76086E-04,-0.93563E-04,-0.11104E-03, - & 0.58315E-03, 0.46182E-03, 0.34077E-03, 0.24826E-03, 0.18745E-03, - & 0.14611E-03, 0.11675E-03, 0.95925E-04, 0.79113E-04, 0.66291E-04, - & 0.56364E-04, 0.48457E-04, 0.42150E-04, 0.37476E-04, 0.34023E-04, - & 0.31404E-04, 0.29086E-04, 0.26482E-04, 0.23440E-04, 0.19908E-04, - & 0.16012E-04, 0.11899E-04, 0.76400E-05, 0.33811E-05,-0.87780E-06, - &-0.51367E-05,-0.93956E-05,-0.13655E-04,-0.17913E-04,-0.22172E-04, - & 0.61062E-04, 0.48354E-04, 0.35677E-04, 0.25980E-04, 0.19597E-04, - & 0.15254E-04, 0.12169E-04, 0.99803E-05, 0.82140E-05, 0.68678E-05, - & 0.58265E-05, 0.49981E-05, 0.43271E-05, 0.37791E-05, 0.33399E-05, - & 0.30285E-05, 0.28040E-05, 0.25873E-05, 0.23416E-05, 0.20509E-05, - & 0.17208E-05, 0.13676E-05, 0.99944E-06, 0.63132E-06, 0.26319E-06, - &-0.10493E-06,-0.47306E-06,-0.84118E-06,-0.12093E-05,-0.15774E-05/ - - data ((c2grdl(i,j),j=1,30),i= 1, 10)/ - & 0.17510E-02, 0.41233E-02, 0.64994E-02, 0.93855E-02, 0.13267E-01, - & 0.18323E-01, 0.24724E-01, 0.32684E-01, 0.41677E-01, 0.51993E-01, - & 0.63514E-01, 0.76090E-01, 0.89612E-01, 0.10400E+00, 0.11917E+00, - & 0.13508E+00, 0.15174E+00, 0.16916E+00, 0.18745E+00, 0.20674E+00, - & 0.22743E+00, 0.24928E+00, 0.27209E+00, 0.29491E+00, 0.31772E+00, - & 0.34054E+00, 0.36335E+00, 0.38617E+00, 0.40898E+00, 0.43179E+00, - & 0.17219E-02, 0.40556E-02, 0.63932E-02, 0.92327E-02, 0.13048E-01, - & 0.18020E-01, 0.24310E-01, 0.32126E-01, 0.40951E-01, 0.51067E-01, - & 0.62361E-01, 0.74678E-01, 0.87917E-01, 0.10200E+00, 0.11684E+00, - & 0.13239E+00, 0.14869E+00, 0.16571E+00, 0.18358E+00, 0.20243E+00, - & 0.22263E+00, 0.24398E+00, 0.26626E+00, 0.28855E+00, 0.31083E+00, - & 0.33312E+00, 0.35540E+00, 0.37769E+00, 0.39997E+00, 0.42226E+00, - & 0.16915E-02, 0.39880E-02, 0.62883E-02, 0.90820E-02, 0.12832E-01, - & 0.17722E-01, 0.23900E-01, 0.31575E-01, 0.40233E-01, 0.50153E-01, - & 0.61222E-01, 0.73285E-01, 0.86244E-01, 0.10002E+00, 0.11453E+00, - & 0.12974E+00, 0.14567E+00, 0.16230E+00, 0.17976E+00, 0.19817E+00, - & 0.21790E+00, 0.23874E+00, 0.26051E+00, 0.28227E+00, 0.30403E+00, - & 0.32579E+00, 0.34755E+00, 0.36931E+00, 0.39108E+00, 0.41284E+00, - & 0.16602E-02, 0.39205E-02, 0.61845E-02, 0.89329E-02, 0.12619E-01, - & 0.17427E-01, 0.23494E-01, 0.31029E-01, 0.39523E-01, 0.49250E-01, - & 0.60097E-01, 0.71907E-01, 0.84591E-01, 0.98069E-01, 0.11225E+00, - & 0.12713E+00, 0.14269E+00, 0.15893E+00, 0.17598E+00, 0.19396E+00, - & 0.21322E+00, 0.23357E+00, 0.25482E+00, 0.27607E+00, 0.29731E+00, - & 0.31856E+00, 0.33981E+00, 0.36105E+00, 0.38230E+00, 0.40355E+00, - & 0.16295E-02, 0.38538E-02, 0.60817E-02, 0.87853E-02, 0.12408E-01, - & 0.17136E-01, 0.23093E-01, 0.30490E-01, 0.38822E-01, 0.48357E-01, - & 0.58985E-01, 0.70546E-01, 0.82957E-01, 0.96140E-01, 0.11001E+00, - & 0.12454E+00, 0.13975E+00, 0.15561E+00, 0.17226E+00, 0.18981E+00, - & 0.20861E+00, 0.22847E+00, 0.24920E+00, 0.26993E+00, 0.29067E+00, - & 0.31140E+00, 0.33213E+00, 0.35287E+00, 0.37360E+00, 0.39433E+00, - & 0.15995E-02, 0.37880E-02, 0.59800E-02, 0.86399E-02, 0.12199E-01, - & 0.16849E-01, 0.22695E-01, 0.29957E-01, 0.38129E-01, 0.47474E-01, - & 0.57885E-01, 0.69201E-01, 0.81344E-01, 0.94237E-01, 0.10779E+00, - & 0.12199E+00, 0.13684E+00, 0.15233E+00, 0.16858E+00, 0.18570E+00, - & 0.20406E+00, 0.22343E+00, 0.24365E+00, 0.26387E+00, 0.28409E+00, - & 0.30430E+00, 0.32452E+00, 0.34474E+00, 0.36496E+00, 0.38518E+00, - & 0.15713E-02, 0.37235E-02, 0.58793E-02, 0.84960E-02, 0.11994E-01, - & 0.16565E-01, 0.22303E-01, 0.29431E-01, 0.37445E-01, 0.46604E-01, - & 0.56799E-01, 0.67874E-01, 0.79752E-01, 0.92357E-01, 0.10560E+00, - & 0.11947E+00, 0.13397E+00, 0.14909E+00, 0.16495E+00, 0.18165E+00, - & 0.19957E+00, 0.21846E+00, 0.23818E+00, 0.25789E+00, 0.27760E+00, - & 0.29731E+00, 0.31702E+00, 0.33674E+00, 0.35645E+00, 0.37616E+00, - & 0.15395E-02, 0.36579E-02, 0.57796E-02, 0.83537E-02, 0.11791E-01, - & 0.16285E-01, 0.21914E-01, 0.28909E-01, 0.36769E-01, 0.45745E-01, - & 0.55726E-01, 0.66564E-01, 0.78181E-01, 0.90501E-01, 0.10344E+00, - & 0.11698E+00, 0.13114E+00, 0.14589E+00, 0.16136E+00, 0.17766E+00, - & 0.19513E+00, 0.21356E+00, 0.23277E+00, 0.25198E+00, 0.27119E+00, - & 0.29041E+00, 0.30962E+00, 0.32883E+00, 0.34804E+00, 0.36725E+00, - & 0.15100E-02, 0.35938E-02, 0.56809E-02, 0.82130E-02, 0.11590E-01, - & 0.16006E-01, 0.21531E-01, 0.28393E-01, 0.36102E-01, 0.44896E-01, - & 0.54667E-01, 0.65272E-01, 0.76629E-01, 0.88669E-01, 0.10131E+00, - & 0.11453E+00, 0.12834E+00, 0.14274E+00, 0.15782E+00, 0.17371E+00, - & 0.19075E+00, 0.20871E+00, 0.22743E+00, 0.24615E+00, 0.26487E+00, - & 0.28359E+00, 0.30231E+00, 0.32103E+00, 0.33975E+00, 0.35847E+00, - & 0.14802E-02, 0.35300E-02, 0.55831E-02, 0.80737E-02, 0.11392E-01, - & 0.15728E-01, 0.21153E-01, 0.27882E-01, 0.35442E-01, 0.44056E-01, - & 0.53621E-01, 0.63996E-01, 0.75097E-01, 0.86859E-01, 0.99199E-01, - & 0.11210E+00, 0.12558E+00, 0.13962E+00, 0.15433E+00, 0.16983E+00, - & 0.18643E+00, 0.20394E+00, 0.22218E+00, 0.24042E+00, 0.25866E+00, - & 0.27690E+00, 0.29514E+00, 0.31338E+00, 0.33162E+00, 0.34986E+00/ - - data ((c2grdl(i,j),j=1,30),i= 11, 20)/ - & 0.14540E-02, 0.34685E-02, 0.54863E-02, 0.79359E-02, 0.11196E-01, - & 0.15455E-01, 0.20782E-01, 0.27378E-01, 0.34792E-01, 0.43227E-01, - & 0.52589E-01, 0.62735E-01, 0.73583E-01, 0.85072E-01, 0.97120E-01, - & 0.10971E+00, 0.12286E+00, 0.13655E+00, 0.15089E+00, 0.16599E+00, - & 0.18217E+00, 0.19922E+00, 0.21699E+00, 0.23477E+00, 0.25254E+00, - & 0.27031E+00, 0.28808E+00, 0.30585E+00, 0.32363E+00, 0.34140E+00, - & 0.14272E-02, 0.34073E-02, 0.53906E-02, 0.77993E-02, 0.11002E-01, - & 0.15184E-01, 0.20414E-01, 0.26881E-01, 0.34149E-01, 0.42408E-01, - & 0.51570E-01, 0.61490E-01, 0.72088E-01, 0.83307E-01, 0.95066E-01, - & 0.10735E+00, 0.12017E+00, 0.13351E+00, 0.14749E+00, 0.16220E+00, - & 0.17796E+00, 0.19457E+00, 0.21188E+00, 0.22920E+00, 0.24652E+00, - & 0.26383E+00, 0.28115E+00, 0.29846E+00, 0.31578E+00, 0.33309E+00, - & 0.14092E-02, 0.33510E-02, 0.52961E-02, 0.76642E-02, 0.10811E-01, - & 0.14916E-01, 0.20052E-01, 0.26391E-01, 0.33514E-01, 0.41600E-01, - & 0.50563E-01, 0.60259E-01, 0.70613E-01, 0.81565E-01, 0.93038E-01, - & 0.10502E+00, 0.11751E+00, 0.13052E+00, 0.14414E+00, 0.15846E+00, - & 0.17380E+00, 0.18998E+00, 0.20684E+00, 0.22371E+00, 0.24057E+00, - & 0.25744E+00, 0.27430E+00, 0.29117E+00, 0.30803E+00, 0.32490E+00, - & 0.13996E-02, 0.32997E-02, 0.52032E-02, 0.75304E-02, 0.10623E-01, - & 0.14652E-01, 0.19693E-01, 0.25909E-01, 0.32887E-01, 0.40803E-01, - & 0.49572E-01, 0.59045E-01, 0.69156E-01, 0.79845E-01, 0.91036E-01, - & 0.10272E+00, 0.11490E+00, 0.12757E+00, 0.14083E+00, 0.15478E+00, - & 0.16970E+00, 0.18545E+00, 0.20187E+00, 0.21829E+00, 0.23471E+00, - & 0.25112E+00, 0.26754E+00, 0.28396E+00, 0.30038E+00, 0.31680E+00, - & 0.13776E-02, 0.32434E-02, 0.51123E-02, 0.73978E-02, 0.10438E-01, - & 0.14391E-01, 0.19340E-01, 0.25432E-01, 0.32266E-01, 0.40018E-01, - & 0.48593E-01, 0.57846E-01, 0.67717E-01, 0.78148E-01, 0.89060E-01, - & 0.10045E+00, 0.11231E+00, 0.12465E+00, 0.13756E+00, 0.15114E+00, - & 0.16566E+00, 0.18099E+00, 0.19697E+00, 0.21294E+00, 0.22892E+00, - & 0.24490E+00, 0.26088E+00, 0.27686E+00, 0.29284E+00, 0.30882E+00, - & 0.13472E-02, 0.31836E-02, 0.50229E-02, 0.72665E-02, 0.10254E-01, - & 0.14134E-01, 0.18990E-01, 0.24961E-01, 0.31653E-01, 0.39242E-01, - & 0.47625E-01, 0.56661E-01, 0.66297E-01, 0.76474E-01, 0.87112E-01, - & 0.98207E-01, 0.10976E+00, 0.12178E+00, 0.13434E+00, 0.14755E+00, - & 0.16168E+00, 0.17658E+00, 0.19213E+00, 0.20767E+00, 0.22322E+00, - & 0.23876E+00, 0.25431E+00, 0.26985E+00, 0.28539E+00, 0.30094E+00, - & 0.13185E-02, 0.31249E-02, 0.49341E-02, 0.71366E-02, 0.10073E-01, - & 0.13879E-01, 0.18644E-01, 0.24497E-01, 0.31049E-01, 0.38476E-01, - & 0.46668E-01, 0.55489E-01, 0.64897E-01, 0.74824E-01, 0.85191E-01, - & 0.95999E-01, 0.10725E+00, 0.11894E+00, 0.13117E+00, 0.14402E+00, - & 0.15775E+00, 0.17225E+00, 0.18736E+00, 0.20248E+00, 0.21759E+00, - & 0.23271E+00, 0.24782E+00, 0.26294E+00, 0.27805E+00, 0.29316E+00, - & 0.12892E-02, 0.30662E-02, 0.48460E-02, 0.70080E-02, 0.98941E-02, - & 0.13628E-01, 0.18303E-01, 0.24037E-01, 0.30451E-01, 0.37720E-01, - & 0.45719E-01, 0.54335E-01, 0.63517E-01, 0.73196E-01, 0.83297E-01, - & 0.93819E-01, 0.10477E+00, 0.11615E+00, 0.12804E+00, 0.14054E+00, - & 0.15388E+00, 0.16797E+00, 0.18266E+00, 0.19735E+00, 0.21204E+00, - & 0.22673E+00, 0.24142E+00, 0.25611E+00, 0.27081E+00, 0.28550E+00, - & 0.12619E-02, 0.30089E-02, 0.47586E-02, 0.68810E-02, 0.97165E-02, - & 0.13379E-01, 0.17965E-01, 0.23583E-01, 0.29861E-01, 0.36973E-01, - & 0.44783E-01, 0.53196E-01, 0.62156E-01, 0.71591E-01, 0.81429E-01, - & 0.91672E-01, 0.10233E+00, 0.11339E+00, 0.12496E+00, 0.13710E+00, - & 0.15006E+00, 0.16375E+00, 0.17803E+00, 0.19230E+00, 0.20658E+00, - & 0.22086E+00, 0.23513E+00, 0.24941E+00, 0.26369E+00, 0.27796E+00, - & 0.12340E-02, 0.29516E-02, 0.46720E-02, 0.67557E-02, 0.95406E-02, - & 0.13133E-01, 0.17632E-01, 0.23134E-01, 0.29277E-01, 0.36234E-01, - & 0.43859E-01, 0.52074E-01, 0.60814E-01, 0.70006E-01, 0.79586E-01, - & 0.89554E-01, 0.99920E-01, 0.11068E+00, 0.12191E+00, 0.13371E+00, - & 0.14630E+00, 0.15960E+00, 0.17347E+00, 0.18734E+00, 0.20121E+00, - & 0.21508E+00, 0.22896E+00, 0.24283E+00, 0.25670E+00, 0.27057E+00/ - - data ((c2grdl(i,j),j=1,30),i= 21, 30)/ - & 0.12035E-02, 0.28934E-02, 0.45859E-02, 0.66319E-02, 0.93663E-02, - & 0.12890E-01, 0.17303E-01, 0.22690E-01, 0.28703E-01, 0.35500E-01, - & 0.42949E-01, 0.50968E-01, 0.59490E-01, 0.68443E-01, 0.77768E-01, - & 0.87463E-01, 0.97543E-01, 0.10799E+00, 0.11891E+00, 0.13037E+00, - & 0.14260E+00, 0.15550E+00, 0.16896E+00, 0.18242E+00, 0.19588E+00, - & 0.20935E+00, 0.22281E+00, 0.23627E+00, 0.24973E+00, 0.26320E+00, - & 0.11761E-02, 0.28370E-02, 0.45005E-02, 0.65101E-02, 0.91937E-02, - & 0.12650E-01, 0.16977E-01, 0.22253E-01, 0.28136E-01, 0.34777E-01, - & 0.42051E-01, 0.49878E-01, 0.58183E-01, 0.66901E-01, 0.75974E-01, - & 0.85399E-01, 0.95197E-01, 0.10535E+00, 0.11595E+00, 0.12708E+00, - & 0.13894E+00, 0.15146E+00, 0.16451E+00, 0.17757E+00, 0.19062E+00, - & 0.20368E+00, 0.21673E+00, 0.22979E+00, 0.24284E+00, 0.25590E+00, - & 0.11532E-02, 0.27832E-02, 0.44158E-02, 0.63905E-02, 0.90228E-02, - & 0.12414E-01, 0.16655E-01, 0.21822E-01, 0.27577E-01, 0.34065E-01, - & 0.41167E-01, 0.48802E-01, 0.56894E-01, 0.65377E-01, 0.74203E-01, - & 0.83363E-01, 0.92881E-01, 0.10274E+00, 0.11304E+00, 0.12383E+00, - & 0.13534E+00, 0.14748E+00, 0.16013E+00, 0.17278E+00, 0.18544E+00, - & 0.19809E+00, 0.21074E+00, 0.22340E+00, 0.23605E+00, 0.24871E+00, - & 0.11259E-02, 0.27277E-02, 0.43321E-02, 0.62726E-02, 0.88536E-02, - & 0.12183E-01, 0.16336E-01, 0.21396E-01, 0.27024E-01, 0.33363E-01, - & 0.40295E-01, 0.47742E-01, 0.55622E-01, 0.63873E-01, 0.72455E-01, - & 0.81357E-01, 0.90601E-01, 0.10018E+00, 0.11016E+00, 0.12062E+00, - & 0.13178E+00, 0.14355E+00, 0.15581E+00, 0.16808E+00, 0.18034E+00, - & 0.19260E+00, 0.20487E+00, 0.21713E+00, 0.22939E+00, 0.24166E+00, - & 0.11042E-02, 0.26754E-02, 0.42491E-02, 0.61557E-02, 0.86863E-02, - & 0.11955E-01, 0.16021E-01, 0.20975E-01, 0.26479E-01, 0.32670E-01, - & 0.39437E-01, 0.46696E-01, 0.54367E-01, 0.62386E-01, 0.70729E-01, - & 0.79382E-01, 0.88354E-01, 0.97643E-01, 0.10733E+00, 0.11747E+00, - & 0.12828E+00, 0.13968E+00, 0.15156E+00, 0.16345E+00, 0.17533E+00, - & 0.18722E+00, 0.19910E+00, 0.21099E+00, 0.22287E+00, 0.23476E+00, - & 0.10777E-02, 0.26212E-02, 0.41671E-02, 0.60396E-02, 0.85208E-02, - & 0.11729E-01, 0.15710E-01, 0.20559E-01, 0.25941E-01, 0.31988E-01, - & 0.38592E-01, 0.45665E-01, 0.53128E-01, 0.60922E-01, 0.69029E-01, - & 0.77437E-01, 0.86142E-01, 0.95149E-01, 0.10454E+00, 0.11436E+00, - & 0.12483E+00, 0.13587E+00, 0.14738E+00, 0.15889E+00, 0.17040E+00, - & 0.18191E+00, 0.19342E+00, 0.20493E+00, 0.21643E+00, 0.22794E+00, - & 0.10548E-02, 0.25692E-02, 0.40859E-02, 0.59244E-02, 0.83575E-02, - & 0.11505E-01, 0.15402E-01, 0.20148E-01, 0.25410E-01, 0.31313E-01, - & 0.37758E-01, 0.44648E-01, 0.51903E-01, 0.59482E-01, 0.67355E-01, - & 0.75521E-01, 0.83963E-01, 0.92693E-01, 0.10179E+00, 0.11130E+00, - & 0.12144E+00, 0.13212E+00, 0.14326E+00, 0.15440E+00, 0.16554E+00, - & 0.17668E+00, 0.18781E+00, 0.19895E+00, 0.21009E+00, 0.22123E+00, - & 0.10297E-02, 0.25164E-02, 0.40055E-02, 0.58102E-02, 0.81962E-02, - & 0.11284E-01, 0.15098E-01, 0.19742E-01, 0.24885E-01, 0.30648E-01, - & 0.36934E-01, 0.43643E-01, 0.50696E-01, 0.58064E-01, 0.65708E-01, - & 0.73633E-01, 0.81818E-01, 0.90274E-01, 0.99081E-01, 0.10829E+00, - & 0.11809E+00, 0.12843E+00, 0.13920E+00, 0.14998E+00, 0.16075E+00, - & 0.17153E+00, 0.18230E+00, 0.19308E+00, 0.20385E+00, 0.21463E+00, - & 0.10102E-02, 0.24669E-02, 0.39260E-02, 0.56970E-02, 0.80376E-02, - & 0.11065E-01, 0.14798E-01, 0.19340E-01, 0.24367E-01, 0.29992E-01, - & 0.36121E-01, 0.42650E-01, 0.49506E-01, 0.56666E-01, 0.64085E-01, - & 0.71773E-01, 0.79704E-01, 0.87893E-01, 0.96414E-01, 0.10532E+00, - & 0.11480E+00, 0.12479E+00, 0.13520E+00, 0.14562E+00, 0.15603E+00, - & 0.16644E+00, 0.17685E+00, 0.18726E+00, 0.19767E+00, 0.20809E+00, - & 0.98533E-03, 0.24152E-02, 0.38474E-02, 0.55847E-02, 0.78817E-02, - & 0.10847E-01, 0.14501E-01, 0.18944E-01, 0.23857E-01, 0.29345E-01, - & 0.35319E-01, 0.41668E-01, 0.48334E-01, 0.55289E-01, 0.62487E-01, - & 0.69939E-01, 0.77621E-01, 0.85545E-01, 0.93787E-01, 0.10240E+00, - & 0.11156E+00, 0.12121E+00, 0.13127E+00, 0.14132E+00, 0.15138E+00, - & 0.16143E+00, 0.17149E+00, 0.18155E+00, 0.19160E+00, 0.20166E+00/ - - data ((c2grdl(i,j),j=1,30),i= 31, 40)/ - & 0.95877E-03, 0.23630E-02, 0.37694E-02, 0.54734E-02, 0.77272E-02, - & 0.10632E-01, 0.14209E-01, 0.18553E-01, 0.23352E-01, 0.28708E-01, - & 0.34528E-01, 0.40700E-01, 0.47180E-01, 0.53932E-01, 0.60911E-01, - & 0.68132E-01, 0.75568E-01, 0.83230E-01, 0.91196E-01, 0.99513E-01, - & 0.10837E+00, 0.11768E+00, 0.12739E+00, 0.13709E+00, 0.14680E+00, - & 0.15650E+00, 0.16621E+00, 0.17592E+00, 0.18562E+00, 0.19533E+00, - & 0.93128E-03, 0.23105E-02, 0.36919E-02, 0.53632E-02, 0.75747E-02, - & 0.10419E-01, 0.13923E-01, 0.18167E-01, 0.22855E-01, 0.28079E-01, - & 0.33747E-01, 0.39748E-01, 0.46044E-01, 0.52597E-01, 0.59360E-01, - & 0.66352E-01, 0.73545E-01, 0.80950E-01, 0.88644E-01, 0.96677E-01, - & 0.10523E+00, 0.11421E+00, 0.12357E+00, 0.13293E+00, 0.14228E+00, - & 0.15164E+00, 0.16100E+00, 0.17036E+00, 0.17971E+00, 0.18907E+00, - & 0.90691E-03, 0.22598E-02, 0.36149E-02, 0.52543E-02, 0.74235E-02, - & 0.10208E-01, 0.13640E-01, 0.17785E-01, 0.22363E-01, 0.27457E-01, - & 0.32976E-01, 0.38809E-01, 0.44924E-01, 0.51282E-01, 0.57834E-01, - & 0.64599E-01, 0.71554E-01, 0.78705E-01, 0.86132E-01, 0.93885E-01, - & 0.10213E+00, 0.11079E+00, 0.11981E+00, 0.12882E+00, 0.13784E+00, - & 0.14685E+00, 0.15586E+00, 0.16488E+00, 0.17389E+00, 0.18291E+00, - & 0.87909E-03, 0.22077E-02, 0.35384E-02, 0.51462E-02, 0.72736E-02, - & 0.10000E-01, 0.13360E-01, 0.17409E-01, 0.21880E-01, 0.26844E-01, - & 0.32216E-01, 0.37885E-01, 0.43821E-01, 0.49986E-01, 0.56330E-01, - & 0.62873E-01, 0.69593E-01, 0.76495E-01, 0.83660E-01, 0.91139E-01, - & 0.99087E-01, 0.10743E+00, 0.11611E+00, 0.12479E+00, 0.13347E+00, - & 0.14215E+00, 0.15084E+00, 0.15952E+00, 0.16820E+00, 0.17688E+00, - & 0.85208E-03, 0.21561E-02, 0.34622E-02, 0.50397E-02, 0.71251E-02, - & 0.97947E-02, 0.13086E-01, 0.17040E-01, 0.21405E-01, 0.26241E-01, - & 0.31467E-01, 0.36975E-01, 0.42734E-01, 0.48708E-01, 0.54848E-01, - & 0.61171E-01, 0.67662E-01, 0.74320E-01, 0.81229E-01, 0.88438E-01, - & 0.96089E-01, 0.10412E+00, 0.11248E+00, 0.12084E+00, 0.12920E+00, - & 0.13756E+00, 0.14592E+00, 0.15428E+00, 0.16264E+00, 0.17100E+00, - & 0.83101E-03, 0.21077E-02, 0.33865E-02, 0.49336E-02, 0.69778E-02, - & 0.95915E-02, 0.12814E-01, 0.16676E-01, 0.20936E-01, 0.25648E-01, - & 0.30728E-01, 0.36079E-01, 0.41664E-01, 0.47451E-01, 0.53389E-01, - & 0.59493E-01, 0.65758E-01, 0.72177E-01, 0.78833E-01, 0.85776E-01, - & 0.93135E-01, 0.10086E+00, 0.10891E+00, 0.11695E+00, 0.12500E+00, - & 0.13305E+00, 0.14110E+00, 0.14914E+00, 0.15719E+00, 0.16524E+00, - & 0.80017E-03, 0.20548E-02, 0.33114E-02, 0.48286E-02, 0.68317E-02, - & 0.93911E-02, 0.12545E-01, 0.16317E-01, 0.20472E-01, 0.25064E-01, - & 0.30001E-01, 0.35196E-01, 0.40611E-01, 0.46213E-01, 0.51953E-01, - & 0.57840E-01, 0.63882E-01, 0.70070E-01, 0.76479E-01, 0.83159E-01, - & 0.90233E-01, 0.97659E-01, 0.10540E+00, 0.11314E+00, 0.12087E+00, - & 0.12861E+00, 0.13635E+00, 0.14409E+00, 0.15183E+00, 0.15956E+00, - & 0.77654E-03, 0.20054E-02, 0.32364E-02, 0.47245E-02, 0.66871E-02, - & 0.91928E-02, 0.12279E-01, 0.15964E-01, 0.20015E-01, 0.24488E-01, - & 0.29285E-01, 0.34326E-01, 0.39573E-01, 0.44993E-01, 0.50539E-01, - & 0.56214E-01, 0.62037E-01, 0.67996E-01, 0.74164E-01, 0.80585E-01, - & 0.87378E-01, 0.94511E-01, 0.10195E+00, 0.10938E+00, 0.11682E+00, - & 0.12425E+00, 0.13169E+00, 0.13912E+00, 0.14656E+00, 0.15399E+00, - & 0.74919E-03, 0.19546E-02, 0.31618E-02, 0.46209E-02, 0.65437E-02, - & 0.89981E-02, 0.12014E-01, 0.15615E-01, 0.19563E-01, 0.23919E-01, - & 0.28580E-01, 0.33470E-01, 0.38552E-01, 0.43792E-01, 0.49146E-01, - & 0.54615E-01, 0.60222E-01, 0.65957E-01, 0.71887E-01, 0.78055E-01, - & 0.84573E-01, 0.91418E-01, 0.98553E-01, 0.10569E+00, 0.11282E+00, - & 0.11996E+00, 0.12709E+00, 0.13423E+00, 0.14136E+00, 0.14850E+00, - & 0.72067E-03, 0.19032E-02, 0.30875E-02, 0.45179E-02, 0.64018E-02, - & 0.88059E-02, 0.11753E-01, 0.15270E-01, 0.19117E-01, 0.23358E-01, - & 0.27884E-01, 0.32626E-01, 0.37547E-01, 0.42608E-01, 0.47774E-01, - & 0.53044E-01, 0.58440E-01, 0.63953E-01, 0.69649E-01, 0.75568E-01, - & 0.81815E-01, 0.88378E-01, 0.95219E-01, 0.10206E+00, 0.10890E+00, - & 0.11574E+00, 0.12258E+00, 0.12942E+00, 0.13626E+00, 0.14310E+00/ - - data ((c2grdl(i,j),j=1,30),i= 41, 50)/ - & 0.69099E-03, 0.18513E-02, 0.30134E-02, 0.44155E-02, 0.62610E-02, - & 0.86149E-02, 0.11495E-01, 0.14929E-01, 0.18676E-01, 0.22805E-01, - & 0.27199E-01, 0.31795E-01, 0.36557E-01, 0.41442E-01, 0.46422E-01, - & 0.51500E-01, 0.56689E-01, 0.61985E-01, 0.67450E-01, 0.73125E-01, - & 0.79108E-01, 0.85393E-01, 0.91942E-01, 0.98492E-01, 0.10504E+00, - & 0.11159E+00, 0.11814E+00, 0.12469E+00, 0.13124E+00, 0.13779E+00, - & 0.66140E-03, 0.17994E-02, 0.29392E-02, 0.43134E-02, 0.61215E-02, - & 0.84257E-02, 0.11240E-01, 0.14590E-01, 0.18241E-01, 0.22258E-01, - & 0.26524E-01, 0.30978E-01, 0.35583E-01, 0.40296E-01, 0.45093E-01, - & 0.49984E-01, 0.54969E-01, 0.60052E-01, 0.65292E-01, 0.70727E-01, - & 0.76450E-01, 0.82462E-01, 0.88724E-01, 0.94987E-01, 0.10125E+00, - & 0.10751E+00, 0.11377E+00, 0.12004E+00, 0.12630E+00, 0.13256E+00, - & 0.62650E-03, 0.17448E-02, 0.28649E-02, 0.42122E-02, 0.59832E-02, - & 0.82382E-02, 0.10987E-01, 0.14256E-01, 0.17813E-01, 0.21720E-01, - & 0.25858E-01, 0.30173E-01, 0.34624E-01, 0.39169E-01, 0.43788E-01, - & 0.48494E-01, 0.53279E-01, 0.58153E-01, 0.63172E-01, 0.68374E-01, - & 0.73842E-01, 0.79585E-01, 0.85567E-01, 0.91548E-01, 0.97530E-01, - & 0.10351E+00, 0.10949E+00, 0.11547E+00, 0.12146E+00, 0.12744E+00, - & 0.59659E-03, 0.16926E-02, 0.27903E-02, 0.41112E-02, 0.58457E-02, - & 0.80518E-02, 0.10738E-01, 0.13926E-01, 0.17391E-01, 0.21188E-01, - & 0.25200E-01, 0.29380E-01, 0.33679E-01, 0.38060E-01, 0.42505E-01, - & 0.47029E-01, 0.51620E-01, 0.56289E-01, 0.61091E-01, 0.66061E-01, - & 0.71281E-01, 0.76762E-01, 0.82467E-01, 0.88173E-01, 0.93878E-01, - & 0.99583E-01, 0.10529E+00, 0.11099E+00, 0.11670E+00, 0.12241E+00, - & 0.56753E-03, 0.16407E-02, 0.27157E-02, 0.40103E-02, 0.57092E-02, - & 0.78669E-02, 0.10491E-01, 0.13600E-01, 0.16976E-01, 0.20664E-01, - & 0.24555E-01, 0.28600E-01, 0.32750E-01, 0.36970E-01, 0.41243E-01, - & 0.45589E-01, 0.49988E-01, 0.54456E-01, 0.59047E-01, 0.63789E-01, - & 0.68766E-01, 0.73990E-01, 0.79425E-01, 0.84861E-01, 0.90296E-01, - & 0.95732E-01, 0.10117E+00, 0.10660E+00, 0.11204E+00, 0.11747E+00, - & 0.53281E-03, 0.15860E-02, 0.26408E-02, 0.39101E-02, 0.55733E-02, - & 0.76844E-02, 0.10248E-01, 0.13277E-01, 0.16566E-01, 0.20146E-01, - & 0.23918E-01, 0.27833E-01, 0.31836E-01, 0.35898E-01, 0.40004E-01, - & 0.44173E-01, 0.48386E-01, 0.52657E-01, 0.57039E-01, 0.61560E-01, - & 0.66298E-01, 0.71270E-01, 0.76443E-01, 0.81617E-01, 0.86790E-01, - & 0.91963E-01, 0.97137E-01, 0.10231E+00, 0.10748E+00, 0.11266E+00, - & 0.50451E-03, 0.15342E-02, 0.25656E-02, 0.38097E-02, 0.54380E-02, - & 0.75029E-02, 0.10007E-01, 0.12959E-01, 0.16161E-01, 0.19637E-01, - & 0.23292E-01, 0.27078E-01, 0.30936E-01, 0.34844E-01, 0.38786E-01, - & 0.42782E-01, 0.46811E-01, 0.50889E-01, 0.55067E-01, 0.59369E-01, - & 0.63876E-01, 0.68602E-01, 0.73518E-01, 0.78435E-01, 0.83352E-01, - & 0.88269E-01, 0.93185E-01, 0.98102E-01, 0.10302E+00, 0.10794E+00, - & 0.46859E-03, 0.14787E-02, 0.24903E-02, 0.37091E-02, 0.53034E-02, - & 0.73225E-02, 0.97688E-02, 0.12645E-01, 0.15762E-01, 0.19134E-01, - & 0.22680E-01, 0.26334E-01, 0.30050E-01, 0.33808E-01, 0.37589E-01, - & 0.41414E-01, 0.45264E-01, 0.49149E-01, 0.53127E-01, 0.57212E-01, - & 0.61497E-01, 0.65980E-01, 0.70644E-01, 0.75307E-01, 0.79971E-01, - & 0.84634E-01, 0.89298E-01, 0.93962E-01, 0.98625E-01, 0.10329E+00, - & 0.42944E-03, 0.14212E-02, 0.24144E-02, 0.36085E-02, 0.51693E-02, - & 0.71441E-02, 0.95329E-02, 0.12335E-01, 0.15368E-01, 0.18640E-01, - & 0.22076E-01, 0.25602E-01, 0.29180E-01, 0.32791E-01, 0.36413E-01, - & 0.40071E-01, 0.43745E-01, 0.47442E-01, 0.51221E-01, 0.55099E-01, - & 0.59166E-01, 0.63411E-01, 0.67825E-01, 0.72238E-01, 0.76652E-01, - & 0.81065E-01, 0.85478E-01, 0.89892E-01, 0.94305E-01, 0.98719E-01, - & 0.39665E-03, 0.13664E-02, 0.23377E-02, 0.35074E-02, 0.50354E-02, - & 0.69667E-02, 0.92992E-02, 0.12030E-01, 0.14979E-01, 0.18154E-01, - & 0.21481E-01, 0.24882E-01, 0.28325E-01, 0.31790E-01, 0.35259E-01, - & 0.38753E-01, 0.42255E-01, 0.45768E-01, 0.49353E-01, 0.53028E-01, - & 0.56882E-01, 0.60895E-01, 0.65062E-01, 0.69229E-01, 0.73396E-01, - & 0.77563E-01, 0.81730E-01, 0.85897E-01, 0.90064E-01, 0.94231E-01/ - - data ((c2grdl(i,j),j=1,30),i= 51, 60)/ - & 0.35745E-03, 0.13083E-02, 0.22605E-02, 0.34058E-02, 0.49023E-02, - & 0.67903E-02, 0.90673E-02, 0.11728E-01, 0.14596E-01, 0.17676E-01, - & 0.20895E-01, 0.24173E-01, 0.27484E-01, 0.30808E-01, 0.34126E-01, - & 0.37459E-01, 0.40793E-01, 0.44127E-01, 0.47522E-01, 0.51000E-01, - & 0.54646E-01, 0.58429E-01, 0.62350E-01, 0.66271E-01, 0.70192E-01, - & 0.74113E-01, 0.78034E-01, 0.81955E-01, 0.85876E-01, 0.89798E-01, - & 0.31364E-03, 0.12473E-02, 0.21824E-02, 0.33038E-02, 0.47688E-02, - & 0.66146E-02, 0.88374E-02, 0.11429E-01, 0.14216E-01, 0.17206E-01, - & 0.20316E-01, 0.23475E-01, 0.26657E-01, 0.29842E-01, 0.33013E-01, - & 0.36189E-01, 0.39358E-01, 0.42520E-01, 0.45731E-01, 0.49016E-01, - & 0.52457E-01, 0.56016E-01, 0.59697E-01, 0.63377E-01, 0.67057E-01, - & 0.70737E-01, 0.74417E-01, 0.78097E-01, 0.81777E-01, 0.85457E-01, - & 0.27275E-03, 0.11871E-02, 0.21029E-02, 0.32013E-02, 0.46352E-02, - & 0.64397E-02, 0.86087E-02, 0.11133E-01, 0.13840E-01, 0.16741E-01, - & 0.19744E-01, 0.22787E-01, 0.25844E-01, 0.28895E-01, 0.31922E-01, - & 0.34943E-01, 0.37950E-01, 0.40943E-01, 0.43977E-01, 0.47074E-01, - & 0.50312E-01, 0.53655E-01, 0.57103E-01, 0.60552E-01, 0.64000E-01, - & 0.67448E-01, 0.70896E-01, 0.74345E-01, 0.77793E-01, 0.81241E-01, - & 0.23350E-03, 0.11274E-02, 0.20226E-02, 0.30985E-02, 0.45016E-02, - & 0.62648E-02, 0.83820E-02, 0.10840E-01, 0.13470E-01, 0.16282E-01, - & 0.19181E-01, 0.22111E-01, 0.25045E-01, 0.27964E-01, 0.30850E-01, - & 0.33722E-01, 0.36571E-01, 0.39400E-01, 0.42261E-01, 0.45175E-01, - & 0.48211E-01, 0.51346E-01, 0.54576E-01, 0.57805E-01, 0.61034E-01, - & 0.64263E-01, 0.67492E-01, 0.70721E-01, 0.73950E-01, 0.77179E-01, - & 0.18357E-03, 0.10617E-02, 0.19412E-02, 0.29947E-02, 0.43674E-02, - & 0.60905E-02, 0.81569E-02, 0.10549E-01, 0.13103E-01, 0.15828E-01, - & 0.18626E-01, 0.21444E-01, 0.24258E-01, 0.27049E-01, 0.29798E-01, - & 0.32524E-01, 0.35219E-01, 0.37887E-01, 0.40580E-01, 0.43316E-01, - & 0.46152E-01, 0.49085E-01, 0.52108E-01, 0.55131E-01, 0.58154E-01, - & 0.61177E-01, 0.64199E-01, 0.67222E-01, 0.70245E-01, 0.73268E-01, - & 0.13753E-03, 0.99718E-03, 0.18581E-02, 0.28896E-02, 0.42323E-02, - & 0.59165E-02, 0.79325E-02, 0.10260E-01, 0.12741E-01, 0.15381E-01, - & 0.18079E-01, 0.20789E-01, 0.23486E-01, 0.26152E-01, 0.28765E-01, - & 0.31348E-01, 0.33893E-01, 0.36406E-01, 0.38934E-01, 0.41496E-01, - & 0.44139E-01, 0.46875E-01, 0.49694E-01, 0.52513E-01, 0.55332E-01, - & 0.58151E-01, 0.60971E-01, 0.63790E-01, 0.66609E-01, 0.69428E-01, - & 0.94238E-04, 0.93331E-03, 0.17737E-02, 0.27839E-02, 0.40966E-02, - & 0.57423E-02, 0.77098E-02, 0.99741E-02, 0.12383E-01, 0.14938E-01, - & 0.17540E-01, 0.20145E-01, 0.22730E-01, 0.25271E-01, 0.27752E-01, - & 0.30196E-01, 0.32596E-01, 0.34955E-01, 0.37324E-01, 0.39716E-01, - & 0.42171E-01, 0.44715E-01, 0.47337E-01, 0.49958E-01, 0.52580E-01, - & 0.55202E-01, 0.57824E-01, 0.60446E-01, 0.63068E-01, 0.65690E-01, - & 0.42837E-04, 0.86473E-03, 0.16879E-02, 0.26766E-02, 0.39603E-02, - & 0.55689E-02, 0.74874E-02, 0.96902E-02, 0.12030E-01, 0.14501E-01, - & 0.17010E-01, 0.19513E-01, 0.21987E-01, 0.24406E-01, 0.26758E-01, - & 0.29068E-01, 0.31326E-01, 0.33537E-01, 0.35750E-01, 0.37977E-01, - & 0.40251E-01, 0.42609E-01, 0.45040E-01, 0.47472E-01, 0.49903E-01, - & 0.52335E-01, 0.54766E-01, 0.57197E-01, 0.59629E-01, 0.62060E-01, - &-0.66616E-05, 0.79627E-03, 0.16004E-02, 0.25673E-02, 0.38231E-02, - & 0.53946E-02, 0.72654E-02, 0.94083E-02, 0.11680E-01, 0.14070E-01, - & 0.16487E-01, 0.18892E-01, 0.21257E-01, 0.23559E-01, 0.25786E-01, - & 0.27963E-01, 0.30085E-01, 0.32151E-01, 0.34212E-01, 0.36279E-01, - & 0.38379E-01, 0.40556E-01, 0.42800E-01, 0.45044E-01, 0.47288E-01, - & 0.49532E-01, 0.51776E-01, 0.54020E-01, 0.56264E-01, 0.58509E-01, - &-0.63943E-04, 0.72305E-03, 0.15112E-02, 0.24565E-02, 0.36847E-02, - & 0.52194E-02, 0.70437E-02, 0.91281E-02, 0.11333E-01, 0.13643E-01, - & 0.15972E-01, 0.18282E-01, 0.20539E-01, 0.22725E-01, 0.24832E-01, - & 0.26883E-01, 0.28871E-01, 0.30797E-01, 0.32712E-01, 0.34621E-01, - & 0.36556E-01, 0.38556E-01, 0.40616E-01, 0.42677E-01, 0.44737E-01, - & 0.46797E-01, 0.48857E-01, 0.50917E-01, 0.52978E-01, 0.55038E-01/ - - data ((c2grdl(i,j),j=1,30),i= 61, 70)/ - &-0.11638E-03, 0.65096E-03, 0.14196E-02, 0.23437E-02, 0.35453E-02, - & 0.50445E-02, 0.68222E-02, 0.88495E-02, 0.10988E-01, 0.13222E-01, - & 0.15467E-01, 0.17681E-01, 0.19832E-01, 0.21906E-01, 0.23895E-01, - & 0.25823E-01, 0.27682E-01, 0.29473E-01, 0.31243E-01, 0.33000E-01, - & 0.34776E-01, 0.36606E-01, 0.38490E-01, 0.40375E-01, 0.42259E-01, - & 0.44143E-01, 0.46027E-01, 0.47911E-01, 0.49795E-01, 0.51679E-01, - &-0.16977E-03, 0.57770E-03, 0.13263E-02, 0.22290E-02, 0.34041E-02, - & 0.48680E-02, 0.66006E-02, 0.85724E-02, 0.10647E-01, 0.12806E-01, - & 0.14970E-01, 0.17088E-01, 0.19137E-01, 0.21102E-01, 0.22978E-01, - & 0.24785E-01, 0.26519E-01, 0.28176E-01, 0.29808E-01, 0.31416E-01, - & 0.33040E-01, 0.34705E-01, 0.36415E-01, 0.38126E-01, 0.39837E-01, - & 0.41548E-01, 0.43259E-01, 0.44970E-01, 0.46680E-01, 0.48391E-01, - &-0.22653E-03, 0.50172E-03, 0.12312E-02, 0.21126E-02, 0.32606E-02, - & 0.46895E-02, 0.63791E-02, 0.82954E-02, 0.10307E-01, 0.12394E-01, - & 0.14476E-01, 0.16504E-01, 0.18454E-01, 0.20314E-01, 0.22079E-01, - & 0.23769E-01, 0.25381E-01, 0.26910E-01, 0.28406E-01, 0.29873E-01, - & 0.31348E-01, 0.32852E-01, 0.34393E-01, 0.35934E-01, 0.37476E-01, - & 0.39017E-01, 0.40558E-01, 0.42100E-01, 0.43641E-01, 0.45182E-01, - &-0.28321E-03, 0.42494E-03, 0.11342E-02, 0.19940E-02, 0.31149E-02, - & 0.45104E-02, 0.61572E-02, 0.80190E-02, 0.99696E-02, 0.11987E-01, - & 0.13988E-01, 0.15927E-01, 0.17782E-01, 0.19541E-01, 0.21199E-01, - & 0.22777E-01, 0.24271E-01, 0.25676E-01, 0.27041E-01, 0.28372E-01, - & 0.29704E-01, 0.31050E-01, 0.32423E-01, 0.33796E-01, 0.35169E-01, - & 0.36542E-01, 0.37915E-01, 0.39287E-01, 0.40660E-01, 0.42033E-01, - &-0.33536E-03, 0.34946E-03, 0.10355E-02, 0.18724E-02, 0.29667E-02, - & 0.43299E-02, 0.59348E-02, 0.77433E-02, 0.96339E-02, 0.11582E-01, - & 0.13506E-01, 0.15358E-01, 0.17120E-01, 0.18780E-01, 0.20334E-01, - & 0.21805E-01, 0.23184E-01, 0.24470E-01, 0.25710E-01, 0.26909E-01, - & 0.28101E-01, 0.29296E-01, 0.30509E-01, 0.31721E-01, 0.32933E-01, - & 0.34146E-01, 0.35358E-01, 0.36571E-01, 0.37783E-01, 0.38995E-01, - &-0.39353E-03, 0.27042E-03, 0.93544E-03, 0.17484E-02, 0.28164E-02, - & 0.41467E-02, 0.57115E-02, 0.74683E-02, 0.93004E-02, 0.11182E-01, - & 0.13027E-01, 0.14796E-01, 0.16469E-01, 0.18034E-01, 0.19487E-01, - & 0.20854E-01, 0.22121E-01, 0.23292E-01, 0.24410E-01, 0.25482E-01, - & 0.26538E-01, 0.27589E-01, 0.28649E-01, 0.29710E-01, 0.30770E-01, - & 0.31830E-01, 0.32891E-01, 0.33951E-01, 0.35011E-01, 0.36072E-01, - &-0.44102E-03, 0.19569E-03, 0.83369E-03, 0.16221E-02, 0.26639E-02, - & 0.39614E-02, 0.54867E-02, 0.71934E-02, 0.89687E-02, 0.10783E-01, - & 0.12555E-01, 0.14242E-01, 0.15828E-01, 0.17303E-01, 0.18658E-01, - & 0.19922E-01, 0.21082E-01, 0.22141E-01, 0.23143E-01, 0.24093E-01, - & 0.25014E-01, 0.25928E-01, 0.26848E-01, 0.27768E-01, 0.28688E-01, - & 0.29608E-01, 0.30527E-01, 0.31447E-01, 0.32367E-01, 0.33287E-01, - &-0.48431E-03, 0.12284E-03, 0.73130E-03, 0.14934E-02, 0.25079E-02, - & 0.37737E-02, 0.52600E-02, 0.69177E-02, 0.86377E-02, 0.10388E-01, - & 0.12087E-01, 0.13697E-01, 0.15199E-01, 0.16585E-01, 0.17845E-01, - & 0.19009E-01, 0.20066E-01, 0.21018E-01, 0.21908E-01, 0.22741E-01, - & 0.23535E-01, 0.24317E-01, 0.25102E-01, 0.25886E-01, 0.26671E-01, - & 0.27456E-01, 0.28240E-01, 0.29025E-01, 0.29810E-01, 0.30594E-01, - &-0.52578E-03, 0.50908E-04, 0.62896E-03, 0.13627E-02, 0.23492E-02, - & 0.35829E-02, 0.50306E-02, 0.66426E-02, 0.83081E-02, 0.99962E-02, - & 0.11626E-01, 0.13159E-01, 0.14580E-01, 0.15880E-01, 0.17048E-01, - & 0.18116E-01, 0.19075E-01, 0.19924E-01, 0.20706E-01, 0.21428E-01, - & 0.22097E-01, 0.22755E-01, 0.23412E-01, 0.24070E-01, 0.24727E-01, - & 0.25384E-01, 0.26042E-01, 0.26699E-01, 0.27357E-01, 0.28014E-01, - &-0.55814E-03,-0.16079E-04, 0.52732E-03, 0.12301E-02, 0.21871E-02, - & 0.33897E-02, 0.47984E-02, 0.63653E-02, 0.79788E-02, 0.96061E-02, - & 0.11168E-01, 0.12629E-01, 0.13973E-01, 0.15187E-01, 0.16268E-01, - & 0.17242E-01, 0.18106E-01, 0.18858E-01, 0.19537E-01, 0.20150E-01, - & 0.20703E-01, 0.21241E-01, 0.21775E-01, 0.22309E-01, 0.22843E-01, - & 0.23378E-01, 0.23912E-01, 0.24446E-01, 0.24981E-01, 0.25515E-01/ - - data ((c2grdl(i,j),j=1,30),i= 71, 80)/ - &-0.57252E-03,-0.73259E-04, 0.42749E-03, 0.10957E-02, 0.20220E-02, - & 0.31928E-02, 0.45638E-02, 0.60854E-02, 0.76490E-02, 0.92190E-02, - & 0.10716E-01, 0.12107E-01, 0.13374E-01, 0.14506E-01, 0.15504E-01, - & 0.16391E-01, 0.17163E-01, 0.17820E-01, 0.18402E-01, 0.18911E-01, - & 0.19357E-01, 0.19779E-01, 0.20194E-01, 0.20609E-01, 0.21024E-01, - & 0.21439E-01, 0.21854E-01, 0.22269E-01, 0.22684E-01, 0.23099E-01, - &-0.57475E-03,-0.12255E-03, 0.33129E-03, 0.96006E-03, 0.18541E-02, - & 0.29914E-02, 0.43271E-02, 0.58042E-02, 0.73192E-02, 0.88331E-02, - & 0.10268E-01, 0.11591E-01, 0.12783E-01, 0.13838E-01, 0.14755E-01, - & 0.15559E-01, 0.16245E-01, 0.16811E-01, 0.17299E-01, 0.17711E-01, - & 0.18054E-01, 0.18367E-01, 0.18668E-01, 0.18969E-01, 0.19270E-01, - & 0.19571E-01, 0.19872E-01, 0.20172E-01, 0.20473E-01, 0.20774E-01, - &-0.55841E-03,-0.15972E-03, 0.24052E-03, 0.82494E-03, 0.16840E-02, - & 0.27879E-02, 0.40872E-02, 0.55200E-02, 0.69877E-02, 0.84483E-02, - & 0.98232E-02, 0.11079E-01, 0.12202E-01, 0.13183E-01, 0.14023E-01, - & 0.14746E-01, 0.15349E-01, 0.15832E-01, 0.16230E-01, 0.16549E-01, - & 0.16795E-01, 0.17006E-01, 0.17200E-01, 0.17394E-01, 0.17588E-01, - & 0.17782E-01, 0.17976E-01, 0.18170E-01, 0.18364E-01, 0.18558E-01, - &-0.50495E-03,-0.17440E-03, 0.15796E-03, 0.69084E-03, 0.15111E-02, - & 0.25799E-02, 0.38429E-02, 0.52337E-02, 0.66547E-02, 0.80638E-02, - & 0.93808E-02, 0.10575E-01, 0.11629E-01, 0.12539E-01, 0.13306E-01, - & 0.13954E-01, 0.14478E-01, 0.14881E-01, 0.15196E-01, 0.15426E-01, - & 0.15581E-01, 0.15694E-01, 0.15785E-01, 0.15876E-01, 0.15967E-01, - & 0.16058E-01, 0.16149E-01, 0.16240E-01, 0.16331E-01, 0.16421E-01, - &-0.41407E-03,-0.16438E-03, 0.87291E-04, 0.55913E-03, 0.13363E-02, - & 0.23687E-02, 0.35944E-02, 0.49450E-02, 0.63202E-02, 0.76775E-02, - & 0.89405E-02, 0.10075E-01, 0.11066E-01, 0.11908E-01, 0.12605E-01, - & 0.13183E-01, 0.13633E-01, 0.13959E-01, 0.14194E-01, 0.14343E-01, - & 0.14411E-01, 0.14433E-01, 0.14426E-01, 0.14419E-01, 0.14412E-01, - & 0.14405E-01, 0.14398E-01, 0.14392E-01, 0.14385E-01, 0.14378E-01, - &-0.25641E-03,-0.11246E-03, 0.33841E-04, 0.43273E-03, 0.11609E-02, - & 0.21542E-02, 0.33420E-02, 0.46525E-02, 0.59843E-02, 0.72912E-02, - & 0.85009E-02, 0.95783E-02, 0.10509E-01, 0.11289E-01, 0.11920E-01, - & 0.12430E-01, 0.12810E-01, 0.13064E-01, 0.13226E-01, 0.13298E-01, - & 0.13286E-01, 0.13223E-01, 0.13127E-01, 0.13031E-01, 0.12936E-01, - & 0.12840E-01, 0.12744E-01, 0.12649E-01, 0.12553E-01, 0.12457E-01, - &-0.33822E-04,-0.15273E-04, 0.55277E-05, 0.31378E-03, 0.98620E-03, - & 0.19369E-02, 0.30855E-02, 0.43562E-02, 0.56455E-02, 0.69058E-02, - & 0.80630E-02, 0.90843E-02, 0.99581E-02, 0.10680E-01, 0.11250E-01, - & 0.11694E-01, 0.12009E-01, 0.12197E-01, 0.12290E-01, 0.12291E-01, - & 0.12204E-01, 0.12063E-01, 0.11889E-01, 0.11715E-01, 0.11541E-01, - & 0.11367E-01, 0.11192E-01, 0.11018E-01, 0.10844E-01, 0.10670E-01, - &-0.93949E-06,-0.44320E-06, 0.30315E-06, 0.20641E-03, 0.81335E-03, - & 0.17167E-02, 0.28254E-02, 0.40550E-02, 0.53028E-02, 0.65193E-02, - & 0.76258E-02, 0.85952E-02, 0.94140E-02, 0.10078E-01, 0.10589E-01, - & 0.10973E-01, 0.11227E-01, 0.11352E-01, 0.11381E-01, 0.11316E-01, - & 0.11160E-01, 0.10947E-01, 0.10698E-01, 0.10449E-01, 0.10200E-01, - & 0.99507E-02, 0.97016E-02, 0.94525E-02, 0.92033E-02, 0.89542E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.11583E-03, 0.64513E-03, - & 0.14959E-02, 0.25619E-02, 0.37504E-02, 0.49567E-02, 0.61305E-02, - & 0.71918E-02, 0.81106E-02, 0.88764E-02, 0.94864E-02, 0.99417E-02, - & 0.10268E-01, 0.10465E-01, 0.10532E-01, 0.10501E-01, 0.10376E-01, - & 0.10156E-01, 0.98763E-02, 0.95571E-02, 0.92380E-02, 0.89189E-02, - & 0.85997E-02, 0.82806E-02, 0.79614E-02, 0.76423E-02, 0.73231E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.48673E-04, 0.48476E-03, - & 0.12750E-02, 0.22945E-02, 0.34420E-02, 0.46072E-02, 0.57376E-02, - & 0.67562E-02, 0.76288E-02, 0.83458E-02, 0.89046E-02, 0.93085E-02, - & 0.95822E-02, 0.97252E-02, 0.97400E-02, 0.96555E-02, 0.94735E-02, - & 0.91948E-02, 0.88552E-02, 0.84731E-02, 0.80909E-02, 0.77087E-02, - & 0.73266E-02, 0.69444E-02, 0.65623E-02, 0.61801E-02, 0.57980E-02/ - - data ((c2grdl(i,j),j=1,30),i= 81, 90)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.91663E-05, 0.33600E-03, - & 0.10567E-02, 0.20245E-02, 0.31297E-02, 0.42537E-02, 0.53425E-02, - & 0.63175E-02, 0.71489E-02, 0.78215E-02, 0.83331E-02, 0.86890E-02, - & 0.89156E-02, 0.90102E-02, 0.89763E-02, 0.88421E-02, 0.86100E-02, - & 0.82794E-02, 0.78868E-02, 0.74505E-02, 0.70143E-02, 0.65780E-02, - & 0.61417E-02, 0.57055E-02, 0.52692E-02, 0.48329E-02, 0.43966E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.58167E-06, 0.20459E-03, - & 0.84332E-03, 0.17539E-02, 0.28136E-02, 0.38965E-02, 0.49448E-02, - & 0.58804E-02, 0.66681E-02, 0.72984E-02, 0.77686E-02, 0.80829E-02, - & 0.82673E-02, 0.83183E-02, 0.82421E-02, 0.80642E-02, 0.77881E-02, - & 0.74117E-02, 0.69702E-02, 0.64818E-02, 0.59934E-02, 0.55050E-02, - & 0.50166E-02, 0.45282E-02, 0.40398E-02, 0.35515E-02, 0.30631E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.98527E-04, - & 0.63875E-03, 0.14842E-02, 0.24956E-02, 0.35352E-02, 0.45439E-02, - & 0.54402E-02, 0.61900E-02, 0.67810E-02, 0.72109E-02, 0.74851E-02, - & 0.76308E-02, 0.76432E-02, 0.75292E-02, 0.73141E-02, 0.69983E-02, - & 0.65817E-02, 0.61001E-02, 0.55705E-02, 0.50409E-02, 0.45114E-02, - & 0.39818E-02, 0.34523E-02, 0.29227E-02, 0.23931E-02, 0.18636E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.29903E-04, - & 0.44788E-03, 0.12180E-02, 0.21757E-02, 0.31703E-02, 0.41401E-02, - & 0.49994E-02, 0.57125E-02, 0.62676E-02, 0.66627E-02, 0.69021E-02, - & 0.70116E-02, 0.69893E-02, 0.68408E-02, 0.65914E-02, 0.62421E-02, - & 0.57922E-02, 0.52751E-02, 0.47093E-02, 0.41435E-02, 0.35778E-02, - & 0.30120E-02, 0.24462E-02, 0.18805E-02, 0.13147E-02, 0.74892E-03, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.45114E-05, - & 0.27790E-03, 0.95885E-03, 0.18568E-02, 0.28026E-02, 0.37328E-02, - & 0.45554E-02, 0.52346E-02, 0.57570E-02, 0.61201E-02, 0.63289E-02, - & 0.64073E-02, 0.63558E-02, 0.61796E-02, 0.59029E-02, 0.55266E-02, - & 0.50498E-02, 0.45041E-02, 0.39075E-02, 0.33109E-02, 0.27143E-02, - & 0.21177E-02, 0.15211E-02, 0.92446E-03, 0.32785E-03,-0.26876E-03, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.25399E-06, - & 0.13812E-03, 0.71200E-03, 0.15419E-02, 0.24336E-02, 0.33211E-02, - & 0.41109E-02, 0.47582E-02, 0.52503E-02, 0.55848E-02, 0.57668E-02, - & 0.58191E-02, 0.57427E-02, 0.55436E-02, 0.52451E-02, 0.48467E-02, - & 0.43491E-02, 0.37822E-02, 0.31648E-02, 0.25474E-02, 0.19300E-02, - & 0.13125E-02, 0.69511E-03, 0.77690E-04,-0.53973E-03,-0.11572E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.41903E-04, 0.48381E-03, 0.12342E-02, 0.20658E-02, 0.29087E-02, - & 0.36621E-02, 0.42812E-02, 0.47473E-02, 0.50566E-02, 0.52156E-02, - & 0.52473E-02, 0.51516E-02, 0.49358E-02, 0.46214E-02, 0.42083E-02, - & 0.36954E-02, 0.31141E-02, 0.24810E-02, 0.18479E-02, 0.12148E-02, - & 0.58175E-03,-0.51332E-04,-0.68441E-03,-0.13175E-02,-0.19506E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.38669E-05, 0.28418E-03, 0.94028E-03, 0.17025E-02, 0.24962E-02, - & 0.32137E-02, 0.38031E-02, 0.42453E-02, 0.45349E-02, 0.46767E-02, - & 0.46928E-02, 0.45832E-02, 0.43558E-02, 0.40314E-02, 0.36094E-02, - & 0.30885E-02, 0.25014E-02, 0.18640E-02, 0.12267E-02, 0.58931E-03, - &-0.48051E-04,-0.68541E-03,-0.13228E-02,-0.19601E-02,-0.25975E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.12645E-03, 0.66727E-03, 0.13474E-02, 0.20864E-02, - & 0.27650E-02, 0.33263E-02, 0.37452E-02, 0.40174E-02, 0.41454E-02, - & 0.41510E-02, 0.40339E-02, 0.38012E-02, 0.34732E-02, 0.30501E-02, - & 0.25302E-02, 0.19440E-02, 0.13074E-02, 0.67085E-03, 0.34274E-04, - &-0.60230E-03,-0.12389E-02,-0.18755E-02,-0.25120E-02,-0.31486E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.31177E-04, 0.42654E-03, 0.10076E-02, 0.16829E-02, - & 0.23198E-02, 0.28511E-02, 0.32504E-02, 0.35075E-02, 0.36254E-02, - & 0.36240E-02, 0.35036E-02, 0.32720E-02, 0.29470E-02, 0.25296E-02, - & 0.20178E-02, 0.14412E-02, 0.81515E-03, 0.18908E-03,-0.43699E-03, - &-0.10631E-02,-0.16891E-02,-0.23152E-02,-0.29413E-02,-0.35674E-02/ - - data ((c2grdl(i,j),j=1,30),i= 91,100)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.26069E-05, 0.23487E-03, 0.69297E-03, 0.12919E-02, - & 0.18805E-02, 0.23806E-02, 0.27601E-02, 0.30044E-02, 0.31169E-02, - & 0.31151E-02, 0.29977E-02, 0.27739E-02, 0.24592E-02, 0.20552E-02, - & 0.15588E-02, 0.10007E-02, 0.39499E-03,-0.21077E-03,-0.81653E-03, - &-0.14223E-02,-0.20280E-02,-0.26338E-02,-0.32396E-02,-0.38453E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10994E-03, 0.41552E-03, 0.92202E-03, - & 0.14533E-02, 0.19182E-02, 0.22754E-02, 0.25101E-02, 0.26207E-02, - & 0.26227E-02, 0.25143E-02, 0.23040E-02, 0.20070E-02, 0.16246E-02, - & 0.11538E-02, 0.62433E-03, 0.49768E-04,-0.52479E-03,-0.10994E-02, - &-0.16739E-02,-0.22485E-02,-0.28230E-02,-0.33976E-02,-0.39722E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.32411E-04, 0.19581E-03, 0.58584E-03, - & 0.10470E-02, 0.14694E-02, 0.18031E-02, 0.20275E-02, 0.21374E-02, - & 0.21467E-02, 0.20529E-02, 0.18635E-02, 0.15922E-02, 0.12405E-02, - & 0.80579E-03, 0.31517E-03,-0.21791E-03,-0.75098E-03,-0.12841E-02, - &-0.18171E-02,-0.23502E-02,-0.28833E-02,-0.34164E-02,-0.39494E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.30856E-05, 0.62103E-04, 0.30153E-03, - & 0.67456E-03, 0.10435E-02, 0.13482E-02, 0.15603E-02, 0.16718E-02, - & 0.16924E-02, 0.16188E-02, 0.14570E-02, 0.12194E-02, 0.90723E-03, - & 0.51787E-03, 0.77969E-04,-0.40046E-03,-0.87889E-03,-0.13573E-02, - &-0.18358E-02,-0.23142E-02,-0.27926E-02,-0.32710E-02,-0.37495E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.75205E-05, 0.97480E-04, - & 0.35518E-03, 0.65556E-03, 0.92159E-03, 0.11168E-02, 0.12296E-02, - & 0.12626E-02, 0.12124E-02, 0.10839E-02, 0.88790E-03, 0.62498E-03, - & 0.29329E-03,-0.83623E-04,-0.49459E-03,-0.90556E-03,-0.13165E-02, - &-0.17275E-02,-0.21385E-02,-0.25494E-02,-0.29604E-02,-0.33714E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.20520E-06, 0.98272E-05, - & 0.11938E-03, 0.32703E-03, 0.54007E-03, 0.71030E-03, 0.81889E-03, - & 0.86399E-03, 0.84026E-03, 0.75016E-03, 0.60256E-03, 0.39789E-03, - & 0.13413E-03,-0.16724E-03,-0.49687E-03,-0.82651E-03,-0.11561E-02, - &-0.14858E-02,-0.18154E-02,-0.21451E-02,-0.24747E-02,-0.28043E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.12349E-04, 0.94638E-04, 0.23177E-03, 0.36154E-03, 0.45726E-03, - & 0.50902E-03, 0.50993E-03, 0.46025E-03, 0.36566E-03, 0.22640E-03, - & 0.40514E-04,-0.17447E-03,-0.41100E-03,-0.64753E-03,-0.88406E-03, - &-0.11206E-02,-0.13571E-02,-0.15937E-02,-0.18302E-02,-0.20667E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.90460E-05, 0.43547E-04, 0.10903E-03, 0.17465E-03, - & 0.22016E-03, 0.23752E-03, 0.22369E-03, 0.18051E-03, 0.10798E-03, - & 0.44288E-05,-0.11819E-03,-0.25465E-03,-0.39111E-03,-0.52757E-03, - &-0.66403E-03,-0.80049E-03,-0.93695E-03,-0.10734E-02,-0.12099E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.27745E-05, 0.10936E-04, 0.23827E-04, - & 0.40893E-04, 0.54738E-04, 0.59474E-04, 0.53174E-04, 0.34714E-04, - & 0.28155E-05,-0.37403E-04,-0.83571E-04,-0.12974E-03,-0.17591E-03, - &-0.22208E-03,-0.26825E-03,-0.31441E-03,-0.36058E-03,-0.40675E-03, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.31887E-07, 0.73663E-06, - & 0.25412E-05, 0.43996E-05, 0.54079E-05, 0.52111E-05, 0.36212E-05, - & 0.46236E-06,-0.36720E-05,-0.85010E-05,-0.13330E-04,-0.18159E-04, - &-0.22988E-04,-0.27817E-04,-0.32646E-04,-0.37475E-04,-0.42304E-04/ - - data ((clgrdl(i,j),j=1,30),i= 1, 10)/ - &-0.78650E-04, 0.15687E-03, 0.39308E-03, 0.73517E-03, 0.13086E-02, - & 0.22102E-02, 0.35434E-02, 0.54184E-02, 0.76406E-02, 0.10304E-01, - & 0.13277E-01, 0.16461E-01, 0.19740E-01, 0.23036E-01, 0.26275E-01, - & 0.29446E-01, 0.32530E-01, 0.35518E-01, 0.38462E-01, 0.41381E-01, - & 0.44319E-01, 0.47339E-01, 0.50445E-01, 0.53551E-01, 0.56657E-01, - & 0.59763E-01, 0.62869E-01, 0.65975E-01, 0.69081E-01, 0.72188E-01, - &-0.77700E-04, 0.15453E-03, 0.38745E-03, 0.72438E-03, 0.12890E-02, - & 0.21773E-02, 0.34881E-02, 0.53318E-02, 0.75142E-02, 0.10127E-01, - & 0.13045E-01, 0.16164E-01, 0.19374E-01, 0.22599E-01, 0.25766E-01, - & 0.28862E-01, 0.31875E-01, 0.34792E-01, 0.37665E-01, 0.40513E-01, - & 0.43378E-01, 0.46325E-01, 0.49358E-01, 0.52392E-01, 0.55425E-01, - & 0.58458E-01, 0.61492E-01, 0.64525E-01, 0.67558E-01, 0.70592E-01, - &-0.76888E-04, 0.15215E-03, 0.38185E-03, 0.71381E-03, 0.12696E-02, - & 0.21447E-02, 0.34334E-02, 0.52461E-02, 0.73894E-02, 0.99532E-02, - & 0.12815E-01, 0.15871E-01, 0.19014E-01, 0.22165E-01, 0.25260E-01, - & 0.28284E-01, 0.31226E-01, 0.34074E-01, 0.36878E-01, 0.39656E-01, - & 0.42449E-01, 0.45323E-01, 0.48284E-01, 0.51244E-01, 0.54204E-01, - & 0.57164E-01, 0.60124E-01, 0.63084E-01, 0.66044E-01, 0.69005E-01, - &-0.76154E-04, 0.14974E-03, 0.37629E-03, 0.70334E-03, 0.12504E-02, - & 0.21124E-02, 0.33792E-02, 0.51609E-02, 0.72662E-02, 0.97810E-02, - & 0.12588E-01, 0.15581E-01, 0.18658E-01, 0.21737E-01, 0.24761E-01, - & 0.27715E-01, 0.30586E-01, 0.33365E-01, 0.36100E-01, 0.38812E-01, - & 0.41530E-01, 0.44333E-01, 0.47220E-01, 0.50106E-01, 0.52992E-01, - & 0.55879E-01, 0.58765E-01, 0.61651E-01, 0.64538E-01, 0.67424E-01, - &-0.75361E-04, 0.14737E-03, 0.37075E-03, 0.69294E-03, 0.12313E-02, - & 0.20807E-02, 0.33255E-02, 0.50767E-02, 0.71446E-02, 0.96103E-02, - & 0.12363E-01, 0.15296E-01, 0.18306E-01, 0.21315E-01, 0.24268E-01, - & 0.27152E-01, 0.29954E-01, 0.32666E-01, 0.35334E-01, 0.37977E-01, - & 0.40624E-01, 0.43357E-01, 0.46172E-01, 0.48987E-01, 0.51803E-01, - & 0.54618E-01, 0.57433E-01, 0.60248E-01, 0.63063E-01, 0.65878E-01, - &-0.74430E-04, 0.14508E-03, 0.36524E-03, 0.68279E-03, 0.12125E-02, - & 0.20494E-02, 0.32723E-02, 0.49931E-02, 0.70243E-02, 0.94415E-02, - & 0.12142E-01, 0.15013E-01, 0.17957E-01, 0.20897E-01, 0.23782E-01, - & 0.26597E-01, 0.29330E-01, 0.31976E-01, 0.34577E-01, 0.37154E-01, - & 0.39730E-01, 0.42393E-01, 0.45137E-01, 0.47880E-01, 0.50624E-01, - & 0.53368E-01, 0.56112E-01, 0.58855E-01, 0.61599E-01, 0.64343E-01, - &-0.73393E-04, 0.14287E-03, 0.35977E-03, 0.67278E-03, 0.11939E-02, - & 0.20182E-02, 0.32196E-02, 0.49107E-02, 0.69058E-02, 0.92756E-02, - & 0.11923E-01, 0.14735E-01, 0.17613E-01, 0.20483E-01, 0.23300E-01, - & 0.26049E-01, 0.28715E-01, 0.31295E-01, 0.33830E-01, 0.36337E-01, - & 0.38848E-01, 0.41443E-01, 0.44120E-01, 0.46796E-01, 0.49473E-01, - & 0.52149E-01, 0.54826E-01, 0.57503E-01, 0.60179E-01, 0.62856E-01, - &-0.73271E-04, 0.14023E-03, 0.35434E-03, 0.66297E-03, 0.11755E-02, - & 0.19873E-02, 0.31676E-02, 0.48290E-02, 0.67887E-02, 0.91125E-02, - & 0.11707E-01, 0.14459E-01, 0.17272E-01, 0.20074E-01, 0.22824E-01, - & 0.25509E-01, 0.28107E-01, 0.30621E-01, 0.33093E-01, 0.35531E-01, - & 0.37978E-01, 0.40505E-01, 0.43114E-01, 0.45723E-01, 0.48331E-01, - & 0.50940E-01, 0.53548E-01, 0.56157E-01, 0.58765E-01, 0.61374E-01, - &-0.72248E-04, 0.13802E-03, 0.34892E-03, 0.65316E-03, 0.11573E-02, - & 0.19564E-02, 0.31164E-02, 0.47480E-02, 0.66729E-02, 0.89513E-02, - & 0.11494E-01, 0.14188E-01, 0.16935E-01, 0.19671E-01, 0.22354E-01, - & 0.24976E-01, 0.27508E-01, 0.29956E-01, 0.32364E-01, 0.34736E-01, - & 0.37119E-01, 0.39582E-01, 0.42124E-01, 0.44666E-01, 0.47208E-01, - & 0.49750E-01, 0.52292E-01, 0.54835E-01, 0.57377E-01, 0.59919E-01, - &-0.71059E-04, 0.13593E-03, 0.34353E-03, 0.64336E-03, 0.11393E-02, - & 0.19254E-02, 0.30659E-02, 0.46680E-02, 0.65585E-02, 0.87922E-02, - & 0.11284E-01, 0.13918E-01, 0.16600E-01, 0.19272E-01, 0.21889E-01, - & 0.24450E-01, 0.26917E-01, 0.29299E-01, 0.31642E-01, 0.33951E-01, - & 0.36272E-01, 0.38670E-01, 0.41147E-01, 0.43624E-01, 0.46101E-01, - & 0.48578E-01, 0.51055E-01, 0.53532E-01, 0.56010E-01, 0.58487E-01/ - - data ((clgrdl(i,j),j=1,30),i= 11, 20)/ - &-0.69842E-04, 0.13388E-03, 0.33820E-03, 0.63362E-03, 0.11217E-02, - & 0.18948E-02, 0.30164E-02, 0.45890E-02, 0.64452E-02, 0.86352E-02, - & 0.11077E-01, 0.13651E-01, 0.16270E-01, 0.18878E-01, 0.21432E-01, - & 0.23930E-01, 0.26334E-01, 0.28652E-01, 0.30931E-01, 0.33177E-01, - & 0.35437E-01, 0.37770E-01, 0.40183E-01, 0.42595E-01, 0.45008E-01, - & 0.47421E-01, 0.49834E-01, 0.52246E-01, 0.54659E-01, 0.57072E-01, - &-0.68521E-04, 0.13191E-03, 0.33294E-03, 0.62393E-03, 0.11041E-02, - & 0.18645E-02, 0.29676E-02, 0.45110E-02, 0.63329E-02, 0.84800E-02, - & 0.10871E-01, 0.13387E-01, 0.15943E-01, 0.18490E-01, 0.20980E-01, - & 0.23417E-01, 0.25758E-01, 0.28013E-01, 0.30227E-01, 0.32410E-01, - & 0.34613E-01, 0.36879E-01, 0.39221E-01, 0.41563E-01, 0.43905E-01, - & 0.46247E-01, 0.48589E-01, 0.50931E-01, 0.53273E-01, 0.55615E-01, - &-0.66812E-04, 0.13018E-03, 0.32776E-03, 0.61432E-03, 0.10870E-02, - & 0.18344E-02, 0.29193E-02, 0.44343E-02, 0.62217E-02, 0.83266E-02, - & 0.10668E-01, 0.13125E-01, 0.15620E-01, 0.18108E-01, 0.20536E-01, - & 0.22910E-01, 0.25190E-01, 0.27381E-01, 0.29533E-01, 0.31651E-01, - & 0.33800E-01, 0.36000E-01, 0.38269E-01, 0.40537E-01, 0.42806E-01, - & 0.45075E-01, 0.47344E-01, 0.49612E-01, 0.51881E-01, 0.54150E-01, - &-0.63298E-04, 0.12939E-03, 0.32269E-03, 0.60477E-03, 0.10702E-02, - & 0.18047E-02, 0.28717E-02, 0.43592E-02, 0.61121E-02, 0.81752E-02, - & 0.10467E-01, 0.12865E-01, 0.15302E-01, 0.17733E-01, 0.20099E-01, - & 0.22408E-01, 0.24627E-01, 0.26756E-01, 0.28845E-01, 0.30903E-01, - & 0.32999E-01, 0.35132E-01, 0.37328E-01, 0.39523E-01, 0.41718E-01, - & 0.43914E-01, 0.46109E-01, 0.48304E-01, 0.50500E-01, 0.52695E-01, - &-0.61927E-04, 0.12766E-03, 0.31780E-03, 0.59526E-03, 0.10537E-02, - & 0.17754E-02, 0.28251E-02, 0.42850E-02, 0.60033E-02, 0.80267E-02, - & 0.10268E-01, 0.12608E-01, 0.14989E-01, 0.17362E-01, 0.19668E-01, - & 0.21913E-01, 0.24071E-01, 0.26139E-01, 0.28166E-01, 0.30163E-01, - & 0.32207E-01, 0.34276E-01, 0.36399E-01, 0.38523E-01, 0.40647E-01, - & 0.42770E-01, 0.44894E-01, 0.47017E-01, 0.49141E-01, 0.51265E-01, - &-0.61396E-04, 0.12555E-03, 0.31302E-03, 0.58584E-03, 0.10373E-02, - & 0.17463E-02, 0.27788E-02, 0.42115E-02, 0.58958E-02, 0.78799E-02, - & 0.10070E-01, 0.12354E-01, 0.14681E-01, 0.16996E-01, 0.19242E-01, - & 0.21423E-01, 0.23521E-01, 0.25528E-01, 0.27496E-01, 0.29434E-01, - & 0.31425E-01, 0.33429E-01, 0.35481E-01, 0.37533E-01, 0.39585E-01, - & 0.41637E-01, 0.43689E-01, 0.45741E-01, 0.47793E-01, 0.49845E-01, - &-0.60839E-04, 0.12345E-03, 0.30827E-03, 0.57651E-03, 0.10212E-02, - & 0.17176E-02, 0.27328E-02, 0.41391E-02, 0.57899E-02, 0.77346E-02, - & 0.98736E-02, 0.12105E-01, 0.14377E-01, 0.16635E-01, 0.18821E-01, - & 0.20941E-01, 0.22979E-01, 0.24926E-01, 0.26833E-01, 0.28716E-01, - & 0.30651E-01, 0.32593E-01, 0.34571E-01, 0.36549E-01, 0.38527E-01, - & 0.40505E-01, 0.42483E-01, 0.44461E-01, 0.46439E-01, 0.48417E-01, - &-0.60164E-04, 0.12142E-03, 0.30353E-03, 0.56725E-03, 0.10051E-02, - & 0.16891E-02, 0.26873E-02, 0.40676E-02, 0.56855E-02, 0.75912E-02, - & 0.96788E-02, 0.11859E-01, 0.14078E-01, 0.16278E-01, 0.18405E-01, - & 0.20462E-01, 0.22443E-01, 0.24332E-01, 0.26180E-01, 0.28010E-01, - & 0.29885E-01, 0.31766E-01, 0.33680E-01, 0.35594E-01, 0.37509E-01, - & 0.39423E-01, 0.41338E-01, 0.43252E-01, 0.45166E-01, 0.47081E-01, - &-0.59491E-04, 0.11940E-03, 0.29882E-03, 0.55805E-03, 0.98913E-03, - & 0.16609E-02, 0.26422E-02, 0.39968E-02, 0.55817E-02, 0.74494E-02, - & 0.94867E-02, 0.11616E-01, 0.13782E-01, 0.15925E-01, 0.17995E-01, - & 0.19991E-01, 0.21913E-01, 0.23747E-01, 0.25538E-01, 0.27317E-01, - & 0.29130E-01, 0.30950E-01, 0.32800E-01, 0.34651E-01, 0.36501E-01, - & 0.38352E-01, 0.40202E-01, 0.42053E-01, 0.43903E-01, 0.45754E-01, - &-0.58764E-04, 0.11743E-03, 0.29413E-03, 0.54899E-03, 0.97323E-03, - & 0.16331E-02, 0.25974E-02, 0.39261E-02, 0.54785E-02, 0.73084E-02, - & 0.92968E-02, 0.11377E-01, 0.13490E-01, 0.15577E-01, 0.17589E-01, - & 0.19525E-01, 0.21390E-01, 0.23171E-01, 0.24910E-01, 0.26635E-01, - & 0.28384E-01, 0.30146E-01, 0.31935E-01, 0.33724E-01, 0.35512E-01, - & 0.37301E-01, 0.39090E-01, 0.40879E-01, 0.42668E-01, 0.44457E-01/ - - data ((clgrdl(i,j),j=1,30),i= 21, 30)/ - &-0.58520E-04, 0.11522E-03, 0.28946E-03, 0.54008E-03, 0.95739E-03, - & 0.16055E-02, 0.25531E-02, 0.38561E-02, 0.53771E-02, 0.71666E-02, - & 0.91094E-02, 0.11142E-01, 0.13202E-01, 0.15233E-01, 0.17189E-01, - & 0.19065E-01, 0.20873E-01, 0.22602E-01, 0.24290E-01, 0.25962E-01, - & 0.27646E-01, 0.29355E-01, 0.31093E-01, 0.32831E-01, 0.34569E-01, - & 0.36307E-01, 0.38045E-01, 0.39782E-01, 0.41520E-01, 0.43258E-01, - &-0.57738E-04, 0.11329E-03, 0.28481E-03, 0.53135E-03, 0.94165E-03, - & 0.15784E-02, 0.25092E-02, 0.37872E-02, 0.52770E-02, 0.70268E-02, - & 0.89249E-02, 0.10910E-01, 0.12918E-01, 0.14894E-01, 0.16793E-01, - & 0.18613E-01, 0.20364E-01, 0.22041E-01, 0.23678E-01, 0.25297E-01, - & 0.26917E-01, 0.28576E-01, 0.30271E-01, 0.31966E-01, 0.33661E-01, - & 0.35357E-01, 0.37052E-01, 0.38747E-01, 0.40442E-01, 0.42137E-01, - &-0.56445E-04, 0.11164E-03, 0.28021E-03, 0.52288E-03, 0.92602E-03, - & 0.15517E-02, 0.24656E-02, 0.37191E-02, 0.51783E-02, 0.68889E-02, - & 0.87429E-02, 0.10682E-01, 0.12638E-01, 0.14557E-01, 0.16402E-01, - & 0.18167E-01, 0.19864E-01, 0.21488E-01, 0.23074E-01, 0.24641E-01, - & 0.26198E-01, 0.27806E-01, 0.29460E-01, 0.31113E-01, 0.32766E-01, - & 0.34419E-01, 0.36072E-01, 0.37725E-01, 0.39378E-01, 0.41031E-01, - &-0.55794E-04, 0.10969E-03, 0.27566E-03, 0.51458E-03, 0.91053E-03, - & 0.15262E-02, 0.24225E-02, 0.36518E-02, 0.50808E-02, 0.67531E-02, - & 0.85637E-02, 0.10456E-01, 0.12362E-01, 0.14224E-01, 0.16015E-01, - & 0.17727E-01, 0.19371E-01, 0.20944E-01, 0.22478E-01, 0.23993E-01, - & 0.25494E-01, 0.27050E-01, 0.28656E-01, 0.30263E-01, 0.31869E-01, - & 0.33475E-01, 0.35082E-01, 0.36688E-01, 0.38294E-01, 0.39901E-01, - &-0.54167E-04, 0.10826E-03, 0.27117E-03, 0.50633E-03, 0.89517E-03, - & 0.15010E-02, 0.23797E-02, 0.35853E-02, 0.49845E-02, 0.66192E-02, - & 0.83880E-02, 0.10234E-01, 0.12089E-01, 0.13894E-01, 0.15631E-01, - & 0.17293E-01, 0.18884E-01, 0.20407E-01, 0.21890E-01, 0.23354E-01, - & 0.24801E-01, 0.26306E-01, 0.27861E-01, 0.29416E-01, 0.30971E-01, - & 0.32526E-01, 0.34081E-01, 0.35636E-01, 0.37191E-01, 0.38746E-01, - &-0.53499E-04, 0.10640E-03, 0.26676E-03, 0.49811E-03, 0.87990E-03, - & 0.14761E-02, 0.23374E-02, 0.35194E-02, 0.48900E-02, 0.64872E-02, - & 0.82153E-02, 0.10015E-01, 0.11819E-01, 0.13568E-01, 0.15252E-01, - & 0.16866E-01, 0.18405E-01, 0.19878E-01, 0.21311E-01, 0.22725E-01, - & 0.24119E-01, 0.25572E-01, 0.27077E-01, 0.28581E-01, 0.30085E-01, - & 0.31589E-01, 0.33093E-01, 0.34597E-01, 0.36102E-01, 0.37606E-01, - &-0.52443E-04, 0.10475E-03, 0.26240E-03, 0.48993E-03, 0.86483E-03, - & 0.14512E-02, 0.22954E-02, 0.34541E-02, 0.47961E-02, 0.63566E-02, - & 0.80450E-02, 0.97999E-02, 0.11549E-01, 0.13247E-01, 0.14880E-01, - & 0.16444E-01, 0.17933E-01, 0.19356E-01, 0.20741E-01, 0.22104E-01, - & 0.23447E-01, 0.24849E-01, 0.26303E-01, 0.27757E-01, 0.29211E-01, - & 0.30665E-01, 0.32119E-01, 0.33573E-01, 0.35027E-01, 0.36481E-01, - &-0.51809E-04, 0.10292E-03, 0.25810E-03, 0.48182E-03, 0.85004E-03, - & 0.14265E-02, 0.22538E-02, 0.33895E-02, 0.47033E-02, 0.62278E-02, - & 0.78768E-02, 0.95872E-02, 0.11284E-01, 0.12931E-01, 0.14513E-01, - & 0.16030E-01, 0.17468E-01, 0.18842E-01, 0.20179E-01, 0.21493E-01, - & 0.22784E-01, 0.24137E-01, 0.25541E-01, 0.26946E-01, 0.28350E-01, - & 0.29755E-01, 0.31159E-01, 0.32564E-01, 0.33969E-01, 0.35373E-01, - &-0.50702E-04, 0.10135E-03, 0.25384E-03, 0.47377E-03, 0.83555E-03, - & 0.14020E-02, 0.22125E-02, 0.33256E-02, 0.46116E-02, 0.61008E-02, - & 0.77106E-02, 0.93752E-02, 0.11021E-01, 0.12620E-01, 0.14152E-01, - & 0.15620E-01, 0.17009E-01, 0.18336E-01, 0.19625E-01, 0.20890E-01, - & 0.22132E-01, 0.23435E-01, 0.24790E-01, 0.26146E-01, 0.27501E-01, - & 0.28857E-01, 0.30212E-01, 0.31567E-01, 0.32923E-01, 0.34278E-01, - &-0.50325E-04, 0.99423E-04, 0.24961E-03, 0.46579E-03, 0.82142E-03, - & 0.13774E-02, 0.21717E-02, 0.32624E-02, 0.45210E-02, 0.59755E-02, - & 0.75471E-02, 0.91634E-02, 0.10762E-01, 0.12313E-01, 0.13796E-01, - & 0.15217E-01, 0.16557E-01, 0.17838E-01, 0.19080E-01, 0.20296E-01, - & 0.21489E-01, 0.22744E-01, 0.24050E-01, 0.25357E-01, 0.26663E-01, - & 0.27969E-01, 0.29276E-01, 0.30582E-01, 0.31889E-01, 0.33195E-01/ - - data ((clgrdl(i,j),j=1,30),i= 31, 40)/ - &-0.49722E-04, 0.97624E-04, 0.24540E-03, 0.45787E-03, 0.80746E-03, - & 0.13529E-02, 0.21318E-02, 0.31998E-02, 0.44314E-02, 0.58525E-02, - & 0.73851E-02, 0.89547E-02, 0.10507E-01, 0.12011E-01, 0.13446E-01, - & 0.14820E-01, 0.16112E-01, 0.17346E-01, 0.18542E-01, 0.19710E-01, - & 0.20856E-01, 0.22063E-01, 0.23322E-01, 0.24581E-01, 0.25840E-01, - & 0.27099E-01, 0.28358E-01, 0.29617E-01, 0.30876E-01, 0.32135E-01, - &-0.49118E-04, 0.95838E-04, 0.24122E-03, 0.45005E-03, 0.79371E-03, - & 0.13287E-02, 0.20930E-02, 0.31377E-02, 0.43429E-02, 0.57307E-02, - & 0.72242E-02, 0.87493E-02, 0.10256E-01, 0.11714E-01, 0.13101E-01, - & 0.14429E-01, 0.15675E-01, 0.16862E-01, 0.18012E-01, 0.19127E-01, - & 0.20233E-01, 0.21394E-01, 0.22606E-01, 0.23819E-01, 0.25032E-01, - & 0.26245E-01, 0.27458E-01, 0.28670E-01, 0.29883E-01, 0.31096E-01, - &-0.47703E-04, 0.94478E-04, 0.23708E-03, 0.44238E-03, 0.78009E-03, - & 0.13048E-02, 0.20547E-02, 0.30762E-02, 0.42553E-02, 0.56102E-02, - & 0.70652E-02, 0.85472E-02, 0.10010E-01, 0.11421E-01, 0.12761E-01, - & 0.14045E-01, 0.15245E-01, 0.16381E-01, 0.17486E-01, 0.18552E-01, - & 0.19621E-01, 0.20734E-01, 0.21901E-01, 0.23067E-01, 0.24233E-01, - & 0.25400E-01, 0.26566E-01, 0.27733E-01, 0.28899E-01, 0.30065E-01, - &-0.47174E-04, 0.92715E-04, 0.23301E-03, 0.43476E-03, 0.76656E-03, - & 0.12811E-02, 0.20170E-02, 0.30161E-02, 0.41693E-02, 0.54905E-02, - & 0.69087E-02, 0.83481E-02, 0.97665E-02, 0.11133E-01, 0.12427E-01, - & 0.13665E-01, 0.14820E-01, 0.15907E-01, 0.16962E-01, 0.17985E-01, - & 0.19018E-01, 0.20085E-01, 0.21202E-01, 0.22320E-01, 0.23438E-01, - & 0.24555E-01, 0.25673E-01, 0.26791E-01, 0.27908E-01, 0.29026E-01, - &-0.46646E-04, 0.90961E-04, 0.22897E-03, 0.42733E-03, 0.75314E-03, - & 0.12578E-02, 0.19803E-02, 0.29575E-02, 0.40854E-02, 0.53734E-02, - & 0.67545E-02, 0.81522E-02, 0.95269E-02, 0.10850E-01, 0.12098E-01, - & 0.13291E-01, 0.14402E-01, 0.15441E-01, 0.16448E-01, 0.17428E-01, - & 0.18426E-01, 0.19443E-01, 0.20503E-01, 0.21563E-01, 0.22624E-01, - & 0.23684E-01, 0.24744E-01, 0.25805E-01, 0.26865E-01, 0.27925E-01, - &-0.45024E-04, 0.89780E-04, 0.22498E-03, 0.41989E-03, 0.73986E-03, - & 0.12347E-02, 0.19440E-02, 0.28998E-02, 0.40025E-02, 0.52590E-02, - & 0.66025E-02, 0.79593E-02, 0.92908E-02, 0.10571E-01, 0.11775E-01, - & 0.12918E-01, 0.13987E-01, 0.14981E-01, 0.15941E-01, 0.16879E-01, - & 0.17842E-01, 0.18807E-01, 0.19803E-01, 0.20799E-01, 0.21795E-01, - & 0.22792E-01, 0.23788E-01, 0.24784E-01, 0.25780E-01, 0.26777E-01, - &-0.44698E-04, 0.87994E-04, 0.22106E-03, 0.41257E-03, 0.72665E-03, - & 0.12121E-02, 0.19079E-02, 0.28431E-02, 0.39205E-02, 0.51467E-02, - & 0.64527E-02, 0.77692E-02, 0.90583E-02, 0.10296E-01, 0.11456E-01, - & 0.12550E-01, 0.13574E-01, 0.14528E-01, 0.15443E-01, 0.16341E-01, - & 0.17267E-01, 0.18181E-01, 0.19116E-01, 0.20051E-01, 0.20986E-01, - & 0.21921E-01, 0.22856E-01, 0.23791E-01, 0.24726E-01, 0.25661E-01, - &-0.43871E-04, 0.86449E-04, 0.21716E-03, 0.40526E-03, 0.71365E-03, - & 0.11898E-02, 0.18721E-02, 0.27876E-02, 0.38392E-02, 0.50358E-02, - & 0.63047E-02, 0.75816E-02, 0.88292E-02, 0.10024E-01, 0.11141E-01, - & 0.12187E-01, 0.13168E-01, 0.14080E-01, 0.14954E-01, 0.15812E-01, - & 0.16697E-01, 0.17565E-01, 0.18445E-01, 0.19325E-01, 0.20204E-01, - & 0.21084E-01, 0.21964E-01, 0.22843E-01, 0.23723E-01, 0.24603E-01, - &-0.43140E-04, 0.84890E-04, 0.21329E-03, 0.39795E-03, 0.70078E-03, - & 0.11681E-02, 0.18362E-02, 0.27329E-02, 0.37587E-02, 0.49262E-02, - & 0.61587E-02, 0.73968E-02, 0.86034E-02, 0.97549E-02, 0.10830E-01, - & 0.11831E-01, 0.12768E-01, 0.13640E-01, 0.14475E-01, 0.15293E-01, - & 0.16130E-01, 0.16957E-01, 0.17792E-01, 0.18626E-01, 0.19461E-01, - & 0.20295E-01, 0.21129E-01, 0.21964E-01, 0.22798E-01, 0.23633E-01, - &-0.42695E-04, 0.83200E-04, 0.20946E-03, 0.39076E-03, 0.68811E-03, - & 0.11467E-02, 0.18008E-02, 0.26785E-02, 0.36788E-02, 0.48180E-02, - & 0.60147E-02, 0.72136E-02, 0.83804E-02, 0.94895E-02, 0.10522E-01, - & 0.11482E-01, 0.12376E-01, 0.13209E-01, 0.14005E-01, 0.14783E-01, - & 0.15570E-01, 0.16357E-01, 0.17156E-01, 0.17954E-01, 0.18753E-01, - & 0.19551E-01, 0.20350E-01, 0.21148E-01, 0.21947E-01, 0.22745E-01/ - - data ((clgrdl(i,j),j=1,30),i= 41, 50)/ - &-0.42715E-04, 0.81287E-04, 0.20564E-03, 0.38365E-03, 0.67563E-03, - & 0.11254E-02, 0.17658E-02, 0.26244E-02, 0.35999E-02, 0.47108E-02, - & 0.58722E-02, 0.70331E-02, 0.81602E-02, 0.92283E-02, 0.10219E-01, - & 0.11138E-01, 0.11991E-01, 0.12785E-01, 0.13543E-01, 0.14283E-01, - & 0.15021E-01, 0.15770E-01, 0.16533E-01, 0.17297E-01, 0.18061E-01, - & 0.18825E-01, 0.19589E-01, 0.20353E-01, 0.21117E-01, 0.21881E-01, - &-0.42770E-04, 0.79334E-04, 0.20179E-03, 0.37657E-03, 0.66328E-03, - & 0.11043E-02, 0.17311E-02, 0.25706E-02, 0.35218E-02, 0.46049E-02, - & 0.57316E-02, 0.68554E-02, 0.79443E-02, 0.89715E-02, 0.99202E-02, - & 0.10801E-01, 0.11613E-01, 0.12368E-01, 0.13090E-01, 0.13791E-01, - & 0.14482E-01, 0.15194E-01, 0.15925E-01, 0.16656E-01, 0.17387E-01, - & 0.18118E-01, 0.18849E-01, 0.19580E-01, 0.20311E-01, 0.21042E-01, - &-0.43132E-04, 0.77207E-04, 0.19789E-03, 0.36966E-03, 0.65108E-03, - & 0.10834E-02, 0.16969E-02, 0.25173E-02, 0.34451E-02, 0.44998E-02, - & 0.55925E-02, 0.66804E-02, 0.77321E-02, 0.87191E-02, 0.96272E-02, - & 0.10470E-01, 0.11243E-01, 0.11960E-01, 0.12644E-01, 0.13308E-01, - & 0.13955E-01, 0.14629E-01, 0.15327E-01, 0.16024E-01, 0.16721E-01, - & 0.17419E-01, 0.18116E-01, 0.18813E-01, 0.19511E-01, 0.20208E-01, - &-0.42446E-04, 0.75592E-04, 0.19397E-03, 0.36278E-03, 0.63885E-03, - & 0.10627E-02, 0.16633E-02, 0.24646E-02, 0.33703E-02, 0.43957E-02, - & 0.54549E-02, 0.65078E-02, 0.75231E-02, 0.84711E-02, 0.93395E-02, - & 0.10144E-01, 0.10878E-01, 0.11558E-01, 0.12206E-01, 0.12832E-01, - & 0.13438E-01, 0.14075E-01, 0.14739E-01, 0.15403E-01, 0.16066E-01, - & 0.16730E-01, 0.17394E-01, 0.18058E-01, 0.18722E-01, 0.19386E-01, - &-0.41850E-04, 0.73933E-04, 0.19006E-03, 0.35589E-03, 0.62675E-03, - & 0.10422E-02, 0.16300E-02, 0.24126E-02, 0.32970E-02, 0.42933E-02, - & 0.53198E-02, 0.63400E-02, 0.73179E-02, 0.82268E-02, 0.90564E-02, - & 0.98228E-02, 0.10520E-01, 0.11163E-01, 0.11773E-01, 0.12365E-01, - & 0.12931E-01, 0.13531E-01, 0.14160E-01, 0.14790E-01, 0.15419E-01, - & 0.16048E-01, 0.16677E-01, 0.17306E-01, 0.17936E-01, 0.18565E-01, - &-0.42014E-04, 0.71898E-04, 0.18613E-03, 0.34912E-03, 0.61471E-03, - & 0.10221E-02, 0.15975E-02, 0.23612E-02, 0.32243E-02, 0.41920E-02, - & 0.51869E-02, 0.61755E-02, 0.71156E-02, 0.79864E-02, 0.87780E-02, - & 0.95069E-02, 0.10168E-01, 0.10774E-01, 0.11350E-01, 0.11903E-01, - & 0.12434E-01, 0.12997E-01, 0.13590E-01, 0.14182E-01, 0.14774E-01, - & 0.15367E-01, 0.15959E-01, 0.16551E-01, 0.17144E-01, 0.17736E-01, - &-0.41051E-04, 0.70410E-04, 0.18220E-03, 0.34234E-03, 0.60273E-03, - & 0.10022E-02, 0.15654E-02, 0.23107E-02, 0.31527E-02, 0.40924E-02, - & 0.50573E-02, 0.60136E-02, 0.69164E-02, 0.77495E-02, 0.85041E-02, - & 0.91954E-02, 0.98207E-02, 0.10390E-01, 0.10931E-01, 0.11447E-01, - & 0.11946E-01, 0.12473E-01, 0.13028E-01, 0.13584E-01, 0.14140E-01, - & 0.14695E-01, 0.15251E-01, 0.15806E-01, 0.16362E-01, 0.16917E-01, - &-0.41580E-04, 0.68189E-04, 0.17826E-03, 0.33549E-03, 0.59093E-03, - & 0.98240E-03, 0.15336E-02, 0.22611E-02, 0.30821E-02, 0.39942E-02, - & 0.49323E-02, 0.58534E-02, 0.67202E-02, 0.75161E-02, 0.82344E-02, - & 0.88886E-02, 0.94784E-02, 0.10012E-01, 0.10517E-01, 0.10997E-01, - & 0.11466E-01, 0.11956E-01, 0.12473E-01, 0.12991E-01, 0.13508E-01, - & 0.14025E-01, 0.14542E-01, 0.15059E-01, 0.15576E-01, 0.16094E-01, - &-0.42091E-04, 0.65929E-04, 0.17425E-03, 0.32865E-03, 0.57922E-03, - & 0.96306E-03, 0.15022E-02, 0.22125E-02, 0.30124E-02, 0.38976E-02, - & 0.48084E-02, 0.56959E-02, 0.65266E-02, 0.72870E-02, 0.79696E-02, - & 0.85870E-02, 0.91418E-02, 0.96410E-02, 0.10111E-01, 0.10555E-01, - & 0.10994E-01, 0.11449E-01, 0.11928E-01, 0.12407E-01, 0.12887E-01, - & 0.13366E-01, 0.13845E-01, 0.14324E-01, 0.14804E-01, 0.15283E-01, - &-0.42264E-04, 0.63786E-04, 0.17014E-03, 0.32169E-03, 0.56756E-03, - & 0.94387E-03, 0.14711E-02, 0.21649E-02, 0.29440E-02, 0.38037E-02, - & 0.46863E-02, 0.55404E-02, 0.63363E-02, 0.70604E-02, 0.77082E-02, - & 0.82913E-02, 0.88115E-02, 0.92761E-02, 0.97110E-02, 0.10122E-01, - & 0.10530E-01, 0.10949E-01, 0.11390E-01, 0.11831E-01, 0.12271E-01, - & 0.12712E-01, 0.13153E-01, 0.13594E-01, 0.14035E-01, 0.14475E-01/ - - data ((clgrdl(i,j),j=1,30),i= 51, 60)/ - &-0.42778E-04, 0.61450E-04, 0.16596E-03, 0.31466E-03, 0.55610E-03, - & 0.92477E-03, 0.14404E-02, 0.21179E-02, 0.28766E-02, 0.37118E-02, - & 0.45660E-02, 0.53867E-02, 0.61485E-02, 0.68384E-02, 0.74518E-02, - & 0.80003E-02, 0.84867E-02, 0.89190E-02, 0.93201E-02, 0.96992E-02, - & 0.10074E-01, 0.10457E-01, 0.10857E-01, 0.11256E-01, 0.11656E-01, - & 0.12055E-01, 0.12455E-01, 0.12855E-01, 0.13254E-01, 0.13654E-01, - &-0.44058E-04, 0.58654E-04, 0.16165E-03, 0.30758E-03, 0.54457E-03, - & 0.90566E-03, 0.14101E-02, 0.20712E-02, 0.28095E-02, 0.36219E-02, - & 0.44462E-02, 0.52359E-02, 0.59641E-02, 0.66194E-02, 0.71992E-02, - & 0.77160E-02, 0.81684E-02, 0.85682E-02, 0.89376E-02, 0.92843E-02, - & 0.96272E-02, 0.99757E-02, 0.10339E-01, 0.10701E-01, 0.11064E-01, - & 0.11427E-01, 0.11790E-01, 0.12153E-01, 0.12516E-01, 0.12879E-01, - &-0.45093E-04, 0.55881E-04, 0.15715E-03, 0.30043E-03, 0.53302E-03, - & 0.88654E-03, 0.13799E-02, 0.20250E-02, 0.27432E-02, 0.35329E-02, - & 0.43284E-02, 0.50866E-02, 0.57823E-02, 0.64047E-02, 0.69512E-02, - & 0.74374E-02, 0.78568E-02, 0.82242E-02, 0.85622E-02, 0.88775E-02, - & 0.91875E-02, 0.95037E-02, 0.98331E-02, 0.10162E-01, 0.10492E-01, - & 0.10821E-01, 0.11150E-01, 0.11480E-01, 0.11809E-01, 0.12138E-01, - &-0.45534E-04, 0.53342E-04, 0.15250E-03, 0.29328E-03, 0.52147E-03, - & 0.86744E-03, 0.13503E-02, 0.19793E-02, 0.26783E-02, 0.34444E-02, - & 0.42124E-02, 0.49392E-02, 0.56038E-02, 0.61947E-02, 0.67089E-02, - & 0.71638E-02, 0.75513E-02, 0.78872E-02, 0.81942E-02, 0.84797E-02, - & 0.87570E-02, 0.90416E-02, 0.93387E-02, 0.96358E-02, 0.99329E-02, - & 0.10230E-01, 0.10527E-01, 0.10824E-01, 0.11121E-01, 0.11419E-01, - &-0.47264E-04, 0.50086E-04, 0.14770E-03, 0.28592E-03, 0.50973E-03, - & 0.84852E-03, 0.13210E-02, 0.19342E-02, 0.26142E-02, 0.33575E-02, - & 0.40974E-02, 0.47947E-02, 0.54284E-02, 0.59892E-02, 0.64710E-02, - & 0.68944E-02, 0.72512E-02, 0.75568E-02, 0.78340E-02, 0.80885E-02, - & 0.83345E-02, 0.85880E-02, 0.88541E-02, 0.91202E-02, 0.93863E-02, - & 0.96524E-02, 0.99185E-02, 0.10185E-01, 0.10451E-01, 0.10717E-01, - &-0.48700E-04, 0.46851E-04, 0.14267E-03, 0.27833E-03, 0.49778E-03, - & 0.82976E-03, 0.12919E-02, 0.18895E-02, 0.25513E-02, 0.32718E-02, - & 0.39841E-02, 0.46531E-02, 0.52567E-02, 0.57887E-02, 0.62390E-02, - & 0.66298E-02, 0.69561E-02, 0.72314E-02, 0.74791E-02, 0.77049E-02, - & 0.79207E-02, 0.81444E-02, 0.83817E-02, 0.86191E-02, 0.88564E-02, - & 0.90937E-02, 0.93310E-02, 0.95683E-02, 0.98056E-02, 0.10043E-01, - &-0.50022E-04, 0.43556E-04, 0.13740E-03, 0.27060E-03, 0.48569E-03, - & 0.81098E-03, 0.12631E-02, 0.18455E-02, 0.24891E-02, 0.31869E-02, - & 0.38735E-02, 0.45139E-02, 0.50898E-02, 0.55913E-02, 0.60114E-02, - & 0.63709E-02, 0.66674E-02, 0.69131E-02, 0.71312E-02, 0.73286E-02, - & 0.75155E-02, 0.77093E-02, 0.79162E-02, 0.81230E-02, 0.83299E-02, - & 0.85367E-02, 0.87435E-02, 0.89504E-02, 0.91572E-02, 0.93641E-02, - &-0.52189E-04, 0.39710E-04, 0.13187E-03, 0.26258E-03, 0.47346E-03, - & 0.79239E-03, 0.12343E-02, 0.18021E-02, 0.24282E-02, 0.31034E-02, - & 0.37645E-02, 0.43781E-02, 0.49259E-02, 0.53972E-02, 0.57874E-02, - & 0.61156E-02, 0.63838E-02, 0.66015E-02, 0.67916E-02, 0.69600E-02, - & 0.71197E-02, 0.72835E-02, 0.74583E-02, 0.76331E-02, 0.78079E-02, - & 0.79827E-02, 0.81575E-02, 0.83323E-02, 0.85071E-02, 0.86819E-02, - &-0.54471E-04, 0.35663E-04, 0.12604E-03, 0.25413E-03, 0.46101E-03, - & 0.77355E-03, 0.12054E-02, 0.17591E-02, 0.23677E-02, 0.30214E-02, - & 0.36579E-02, 0.42456E-02, 0.47651E-02, 0.52072E-02, 0.55682E-02, - & 0.58661E-02, 0.61055E-02, 0.62952E-02, 0.64582E-02, 0.65991E-02, - & 0.67327E-02, 0.68688E-02, 0.70152E-02, 0.71615E-02, 0.73079E-02, - & 0.74543E-02, 0.76007E-02, 0.77471E-02, 0.78935E-02, 0.80399E-02, - &-0.56915E-04, 0.31348E-04, 0.11987E-03, 0.24538E-03, 0.44829E-03, - & 0.75441E-03, 0.11765E-02, 0.17164E-02, 0.23078E-02, 0.29405E-02, - & 0.35528E-02, 0.41155E-02, 0.46072E-02, 0.50196E-02, 0.53527E-02, - & 0.56226E-02, 0.58346E-02, 0.59961E-02, 0.61318E-02, 0.62462E-02, - & 0.63529E-02, 0.64618E-02, 0.65812E-02, 0.67005E-02, 0.68198E-02, - & 0.69391E-02, 0.70585E-02, 0.71778E-02, 0.72971E-02, 0.74164E-02/ - - data ((clgrdl(i,j),j=1,30),i= 61, 70)/ - &-0.59049E-04, 0.26997E-04, 0.11330E-03, 0.23623E-03, 0.43529E-03, - & 0.73530E-03, 0.11475E-02, 0.16742E-02, 0.22488E-02, 0.28605E-02, - & 0.34506E-02, 0.39877E-02, 0.44512E-02, 0.48351E-02, 0.51405E-02, - & 0.53830E-02, 0.55682E-02, 0.57040E-02, 0.58125E-02, 0.59027E-02, - & 0.59828E-02, 0.60637E-02, 0.61533E-02, 0.62429E-02, 0.63326E-02, - & 0.64222E-02, 0.65118E-02, 0.66014E-02, 0.66911E-02, 0.67807E-02, - &-0.61777E-04, 0.22177E-04, 0.10638E-03, 0.22662E-03, 0.42178E-03, - & 0.71563E-03, 0.11184E-02, 0.16320E-02, 0.21902E-02, 0.27824E-02, - & 0.33502E-02, 0.38612E-02, 0.42979E-02, 0.46548E-02, 0.49331E-02, - & 0.51484E-02, 0.53068E-02, 0.54182E-02, 0.55021E-02, 0.55670E-02, - & 0.56207E-02, 0.56750E-02, 0.57352E-02, 0.57954E-02, 0.58557E-02, - & 0.59159E-02, 0.59762E-02, 0.60364E-02, 0.60966E-02, 0.61569E-02, - &-0.64492E-04, 0.17152E-04, 0.99043E-04, 0.21653E-03, 0.40774E-03, - & 0.69520E-03, 0.10893E-02, 0.15893E-02, 0.21317E-02, 0.27053E-02, - & 0.32499E-02, 0.37367E-02, 0.41479E-02, 0.44779E-02, 0.47300E-02, - & 0.49194E-02, 0.50518E-02, 0.51391E-02, 0.51990E-02, 0.52393E-02, - & 0.52655E-02, 0.52954E-02, 0.53324E-02, 0.53693E-02, 0.54063E-02, - & 0.54433E-02, 0.54803E-02, 0.55173E-02, 0.55543E-02, 0.55913E-02, - &-0.67345E-04, 0.11865E-04, 0.91307E-04, 0.20588E-03, 0.39306E-03, - & 0.67456E-03, 0.10600E-02, 0.15468E-02, 0.20741E-02, 0.26284E-02, - & 0.31515E-02, 0.36146E-02, 0.40005E-02, 0.43041E-02, 0.45308E-02, - & 0.46965E-02, 0.48039E-02, 0.48673E-02, 0.49039E-02, 0.49204E-02, - & 0.49204E-02, 0.49262E-02, 0.49394E-02, 0.49525E-02, 0.49656E-02, - & 0.49788E-02, 0.49919E-02, 0.50051E-02, 0.50182E-02, 0.50313E-02, - &-0.68980E-04, 0.69605E-05, 0.83156E-04, 0.19459E-03, 0.37766E-03, - & 0.65346E-03, 0.10303E-02, 0.15043E-02, 0.20168E-02, 0.25521E-02, - & 0.30548E-02, 0.34942E-02, 0.38549E-02, 0.41343E-02, 0.43357E-02, - & 0.44792E-02, 0.45619E-02, 0.46015E-02, 0.46157E-02, 0.46082E-02, - & 0.45847E-02, 0.45672E-02, 0.45580E-02, 0.45488E-02, 0.45395E-02, - & 0.45303E-02, 0.45211E-02, 0.45119E-02, 0.45027E-02, 0.44935E-02, - &-0.71661E-04, 0.13913E-05, 0.74674E-04, 0.18260E-03, 0.36156E-03, - & 0.63149E-03, 0.10002E-02, 0.14620E-02, 0.19599E-02, 0.24774E-02, - & 0.29586E-02, 0.33754E-02, 0.37128E-02, 0.39685E-02, 0.41458E-02, - & 0.42657E-02, 0.43257E-02, 0.43420E-02, 0.43328E-02, 0.43033E-02, - & 0.42565E-02, 0.42167E-02, 0.41864E-02, 0.41561E-02, 0.41258E-02, - & 0.40955E-02, 0.40653E-02, 0.40350E-02, 0.40047E-02, 0.39744E-02, - &-0.72633E-04,-0.35369E-05, 0.65815E-04, 0.16999E-03, 0.34466E-03, - & 0.60882E-03, 0.96940E-03, 0.14195E-02, 0.19034E-02, 0.24029E-02, - & 0.28642E-02, 0.32587E-02, 0.35736E-02, 0.38064E-02, 0.39604E-02, - & 0.40568E-02, 0.40947E-02, 0.40888E-02, 0.40577E-02, 0.40060E-02, - & 0.39386E-02, 0.38757E-02, 0.38209E-02, 0.37662E-02, 0.37115E-02, - & 0.36568E-02, 0.36021E-02, 0.35474E-02, 0.34927E-02, 0.34380E-02, - &-0.72821E-04,-0.81771E-05, 0.56725E-04, 0.15664E-03, 0.32675E-03, - & 0.58520E-03, 0.93758E-03, 0.13762E-02, 0.18463E-02, 0.23290E-02, - & 0.27709E-02, 0.31448E-02, 0.34370E-02, 0.36474E-02, 0.37787E-02, - & 0.38529E-02, 0.38688E-02, 0.38408E-02, 0.37886E-02, 0.37148E-02, - & 0.36297E-02, 0.35445E-02, 0.34663E-02, 0.33881E-02, 0.33099E-02, - & 0.32317E-02, 0.31535E-02, 0.30753E-02, 0.29971E-02, 0.29189E-02, - &-0.72109E-04,-0.12416E-04, 0.47540E-04, 0.14265E-03, 0.30789E-03, - & 0.56037E-03, 0.90478E-03, 0.13330E-02, 0.17893E-02, 0.22557E-02, - & 0.26792E-02, 0.30321E-02, 0.33030E-02, 0.34921E-02, 0.36017E-02, - & 0.36534E-02, 0.36490E-02, 0.35998E-02, 0.35258E-02, 0.34328E-02, - & 0.33291E-02, 0.32224E-02, 0.31205E-02, 0.30187E-02, 0.29169E-02, - & 0.28150E-02, 0.27132E-02, 0.26113E-02, 0.25095E-02, 0.24076E-02, - &-0.69895E-04,-0.15873E-04, 0.38409E-04, 0.12802E-03, 0.28787E-03, - & 0.53434E-03, 0.87068E-03, 0.12886E-02, 0.17318E-02, 0.21825E-02, - & 0.25880E-02, 0.29211E-02, 0.31722E-02, 0.33402E-02, 0.34291E-02, - & 0.34581E-02, 0.34331E-02, 0.33653E-02, 0.32719E-02, 0.31598E-02, - & 0.30372E-02, 0.29091E-02, 0.27827E-02, 0.26564E-02, 0.25300E-02, - & 0.24036E-02, 0.22773E-02, 0.21509E-02, 0.20245E-02, 0.18982E-02/ - - data ((clgrdl(i,j),j=1,30),i= 71, 80)/ - &-0.65031E-04,-0.17879E-04, 0.29543E-04, 0.11285E-03, 0.26678E-03, - & 0.50692E-03, 0.83536E-03, 0.12424E-02, 0.16734E-02, 0.21099E-02, - & 0.24976E-02, 0.28121E-02, 0.30433E-02, 0.31902E-02, 0.32594E-02, - & 0.32693E-02, 0.32245E-02, 0.31375E-02, 0.30265E-02, 0.28947E-02, - & 0.27534E-02, 0.26071E-02, 0.24625E-02, 0.23178E-02, 0.21732E-02, - & 0.20286E-02, 0.18839E-02, 0.17393E-02, 0.15947E-02, 0.14500E-02, - &-0.58124E-04,-0.18566E-04, 0.21266E-04, 0.97225E-04, 0.24455E-03, - & 0.47786E-03, 0.79870E-03, 0.11953E-02, 0.16145E-02, 0.20366E-02, - & 0.24074E-02, 0.27043E-02, 0.29162E-02, 0.30441E-02, 0.30939E-02, - & 0.30859E-02, 0.30228E-02, 0.29173E-02, 0.27875E-02, 0.26400E-02, - & 0.24801E-02, 0.23162E-02, 0.21546E-02, 0.19930E-02, 0.18314E-02, - & 0.16698E-02, 0.15083E-02, 0.13467E-02, 0.11851E-02, 0.10235E-02, - &-0.48629E-04,-0.17495E-04, 0.13897E-04, 0.81486E-04, 0.22132E-03, - & 0.44745E-03, 0.76031E-03, 0.11466E-02, 0.15544E-02, 0.19622E-02, - & 0.23178E-02, 0.25973E-02, 0.27918E-02, 0.29018E-02, 0.29335E-02, - & 0.29067E-02, 0.28264E-02, 0.27057E-02, 0.25596E-02, 0.23966E-02, - & 0.22187E-02, 0.20363E-02, 0.18541E-02, 0.16718E-02, 0.14896E-02, - & 0.13073E-02, 0.11251E-02, 0.94279E-03, 0.76054E-03, 0.57828E-03, - &-0.35793E-04,-0.14107E-04, 0.78331E-05, 0.65845E-04, 0.19701E-03, - & 0.41522E-03, 0.71987E-03, 0.10962E-02, 0.14931E-02, 0.18876E-02, - & 0.22281E-02, 0.24921E-02, 0.26694E-02, 0.27619E-02, 0.27767E-02, - & 0.27338E-02, 0.26367E-02, 0.25010E-02, 0.23412E-02, 0.21621E-02, - & 0.19662E-02, 0.17697E-02, 0.15743E-02, 0.13788E-02, 0.11833E-02, - & 0.98784E-03, 0.79237E-03, 0.59690E-03, 0.40142E-03, 0.20595E-03, - &-0.21345E-04,-0.90636E-05, 0.34426E-05, 0.50680E-04, 0.17190E-03, - & 0.38129E-03, 0.67728E-03, 0.10443E-02, 0.14301E-02, 0.18115E-02, - & 0.21384E-02, 0.23874E-02, 0.25491E-02, 0.26255E-02, 0.26242E-02, - & 0.25671E-02, 0.24552E-02, 0.23038E-02, 0.21298E-02, 0.19359E-02, - & 0.17256E-02, 0.15163E-02, 0.13111E-02, 0.11059E-02, 0.90066E-03, - & 0.69546E-03, 0.49025E-03, 0.28505E-03, 0.79844E-04,-0.12536E-03, - &-0.75696E-05,-0.33959E-05, 0.94260E-06, 0.36577E-04, 0.14630E-03, - & 0.34578E-03, 0.63241E-03, 0.98975E-03, 0.13651E-02, 0.17340E-02, - & 0.20485E-02, 0.22834E-02, 0.24301E-02, 0.24919E-02, 0.24762E-02, - & 0.24048E-02, 0.22797E-02, 0.21152E-02, 0.19271E-02, 0.17210E-02, - & 0.14990E-02, 0.12752E-02, 0.10543E-02, 0.83340E-03, 0.61249E-03, - & 0.39159E-03, 0.17068E-03,-0.50229E-04,-0.27114E-03,-0.49204E-03, - &-0.69431E-06,-0.31699E-06, 0.10610E-06, 0.24052E-04, 0.12060E-03, - & 0.30872E-03, 0.58520E-03, 0.93269E-03, 0.12977E-02, 0.16558E-02, - & 0.19574E-02, 0.21787E-02, 0.23121E-02, 0.23609E-02, 0.23324E-02, - & 0.22472E-02, 0.21097E-02, 0.19337E-02, 0.17346E-02, 0.15166E-02, - & 0.12841E-02, 0.10483E-02, 0.81293E-03, 0.57758E-03, 0.34222E-03, - & 0.10687E-03,-0.12848E-03,-0.36383E-03,-0.59919E-03,-0.83454E-03, - &-0.28180E-08,-0.13294E-08, 0.37218E-08, 0.13778E-04, 0.95291E-04, - & 0.27025E-03, 0.53567E-03, 0.87263E-03, 0.12273E-02, 0.15751E-02, - & 0.18646E-02, 0.20740E-02, 0.21951E-02, 0.22314E-02, 0.21908E-02, - & 0.20944E-02, 0.19459E-02, 0.17589E-02, 0.15492E-02, 0.13206E-02, - & 0.10788E-02, 0.83294E-03, 0.58811E-03, 0.34328E-03, 0.98455E-04, - &-0.14637E-03,-0.39120E-03,-0.63603E-03,-0.88086E-03,-0.11257E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.63140E-05, 0.71157E-04, - & 0.23093E-03, 0.48388E-03, 0.80987E-03, 0.11543E-02, 0.14918E-02, - & 0.17710E-02, 0.19691E-02, 0.20788E-02, 0.21041E-02, 0.20529E-02, - & 0.19465E-02, 0.17884E-02, 0.15921E-02, 0.13731E-02, 0.11358E-02, - & 0.88625E-03, 0.63042E-03, 0.37386E-03, 0.11730E-03,-0.13925E-03, - &-0.39581E-03,-0.65237E-03,-0.90893E-03,-0.11655E-02,-0.14220E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.19031E-05, 0.49131E-04, - & 0.19129E-03, 0.42986E-03, 0.74421E-03, 0.10780E-02, 0.14050E-02, - & 0.16747E-02, 0.18630E-02, 0.19632E-02, 0.19794E-02, 0.19191E-02, - & 0.18039E-02, 0.16375E-02, 0.14339E-02, 0.12081E-02, 0.96392E-03, - & 0.70667E-03, 0.44351E-03, 0.17855E-03,-0.86410E-04,-0.35137E-03, - &-0.61633E-03,-0.88129E-03,-0.11463E-02,-0.14112E-02,-0.16762E-02/ - - data ((clgrdl(i,j),j=1,30),i= 81, 90)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.22808E-06, 0.30199E-04, - & 0.15219E-03, 0.37406E-03, 0.67557E-03, 0.99819E-03, 0.13151E-02, - & 0.15754E-02, 0.17562E-02, 0.18485E-02, 0.18565E-02, 0.17888E-02, - & 0.16666E-02, 0.14942E-02, 0.12851E-02, 0.10539E-02, 0.80482E-03, - & 0.54098E-03, 0.27309E-03, 0.46545E-05,-0.26378E-03,-0.53221E-03, - &-0.80064E-03,-0.10691E-02,-0.13375E-02,-0.16059E-02,-0.18744E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.81252E-08, 0.15489E-04, - & 0.11461E-03, 0.31718E-03, 0.60410E-03, 0.91476E-03, 0.12219E-02, - & 0.14743E-02, 0.16469E-02, 0.17323E-02, 0.17342E-02, 0.16615E-02, - & 0.15352E-02, 0.13584E-02, 0.11454E-02, 0.91121E-03, 0.65867E-03, - & 0.39150E-03, 0.12076E-03,-0.15060E-03,-0.42197E-03,-0.69334E-03, - &-0.96470E-03,-0.12361E-02,-0.15074E-02,-0.17788E-02,-0.20502E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.58727E-05, - & 0.79972E-04, 0.26016E-03, 0.53047E-03, 0.82776E-03, 0.11248E-02, - & 0.13692E-02, 0.15357E-02, 0.16158E-02, 0.16132E-02, 0.15367E-02, - & 0.14070E-02, 0.12284E-02, 0.10139E-02, 0.77841E-03, 0.52466E-03, - & 0.25670E-03,-0.15160E-04,-0.28721E-03,-0.55926E-03,-0.83131E-03, - &-0.11034E-02,-0.13754E-02,-0.16475E-02,-0.19195E-02,-0.21916E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.13673E-05, - & 0.49845E-04, 0.20416E-03, 0.45503E-03, 0.73735E-03, 0.10238E-02, - & 0.12609E-02, 0.14219E-02, 0.14979E-02, 0.14925E-02, 0.14146E-02, - & 0.12839E-02, 0.11049E-02, 0.89080E-03, 0.65599E-03, 0.40330E-03, - & 0.13726E-03,-0.13335E-03,-0.40449E-03,-0.67562E-03,-0.94676E-03, - &-0.12179E-02,-0.14890E-02,-0.17602E-02,-0.20313E-02,-0.23024E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.14018E-06, - & 0.26009E-04, 0.15086E-03, 0.37915E-03, 0.64405E-03, 0.91890E-03, - & 0.11483E-02, 0.13046E-02, 0.13783E-02, 0.13721E-02, 0.12944E-02, - & 0.11653E-02, 0.98855E-03, 0.77716E-03, 0.54558E-03, 0.29622E-03, - & 0.34330E-04,-0.23281E-03,-0.50100E-03,-0.76919E-03,-0.10374E-02, - &-0.13056E-02,-0.15738E-02,-0.18420E-02,-0.21102E-02,-0.23784E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.43217E-08, - & 0.99119E-05, 0.10238E-03, 0.30431E-03, 0.54874E-03, 0.80995E-03, - & 0.10323E-02, 0.11848E-02, 0.12572E-02, 0.12519E-02, 0.11767E-02, - & 0.10508E-02, 0.87861E-03, 0.67287E-03, 0.44715E-03, 0.20390E-03, - &-0.51971E-04,-0.31277E-03,-0.57486E-03,-0.83694E-03,-0.10990E-02, - &-0.13611E-02,-0.16232E-02,-0.18853E-02,-0.21474E-02,-0.24095E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.19676E-05, 0.61107E-04, 0.23238E-03, 0.45288E-03, 0.69859E-03, - & 0.91215E-03, 0.10617E-02, 0.11343E-02, 0.11314E-02, 0.10606E-02, - & 0.94096E-03, 0.77577E-03, 0.57771E-03, 0.36045E-03, 0.12593E-03, - &-0.12095E-03,-0.37231E-03,-0.62458E-03,-0.87686E-03,-0.11291E-02, - &-0.13814E-02,-0.16337E-02,-0.18859E-02,-0.21382E-02,-0.23905E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.13916E-06, 0.29679E-04, 0.16612E-03, 0.35846E-03, 0.58550E-03, - & 0.78934E-03, 0.93513E-03, 0.10088E-02, 0.10102E-02, 0.94653E-03, - & 0.83455E-03, 0.67897E-03, 0.49183E-03, 0.28565E-03, 0.62869E-04, - &-0.17176E-03,-0.41126E-03,-0.65202E-03,-0.89278E-03,-0.11335E-02, - &-0.13743E-02,-0.16151E-02,-0.18558E-02,-0.20966E-02,-0.23373E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.99954E-05, 0.10846E-03, 0.26792E-03, 0.47264E-03, - & 0.66448E-03, 0.80624E-03, 0.88103E-03, 0.88795E-03, 0.83263E-03, - & 0.73154E-03, 0.58823E-03, 0.41434E-03, 0.22212E-03, 0.13768E-04, - &-0.20584E-03,-0.42998E-03,-0.65500E-03,-0.88001E-03,-0.11050E-02, - &-0.13300E-02,-0.15551E-02,-0.17801E-02,-0.20051E-02,-0.22301E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.17369E-05, 0.62528E-04, 0.18482E-03, 0.36257E-03, - & 0.53984E-03, 0.67586E-03, 0.75241E-03, 0.76563E-03, 0.72041E-03, - & 0.63167E-03, 0.50274E-03, 0.34509E-03, 0.16961E-03,-0.21286E-04, - &-0.22280E-03,-0.42906E-03,-0.63678E-03,-0.84450E-03,-0.10522E-02, - &-0.12599E-02,-0.14677E-02,-0.16754E-02,-0.18831E-02,-0.20908E-02/ - - data ((clgrdl(i,j),j=1,30),i= 91,100)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.11193E-06, 0.30534E-04, 0.11342E-03, 0.25895E-03, - & 0.41749E-03, 0.54598E-03, 0.62350E-03, 0.64344E-03, 0.60976E-03, - & 0.53535E-03, 0.42327E-03, 0.28391E-03, 0.12747E-03,-0.43286E-04, - &-0.22386E-03,-0.40925E-03,-0.59609E-03,-0.78293E-03,-0.96977E-03, - &-0.11566E-02,-0.13435E-02,-0.15303E-02,-0.17171E-02,-0.19040E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.11409E-04, 0.57926E-04, 0.16637E-03, - & 0.30144E-03, 0.41926E-03, 0.49562E-03, 0.52241E-03, 0.50092E-03, - & 0.44221E-03, 0.34865E-03, 0.22977E-03, 0.95030E-04,-0.53228E-04, - &-0.21050E-03,-0.37225E-03,-0.53561E-03,-0.69897E-03,-0.86233E-03, - &-0.10257E-02,-0.11891E-02,-0.13524E-02,-0.15158E-02,-0.16791E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.22363E-05, 0.22027E-04, 0.90336E-04, - & 0.19659E-03, 0.29942E-03, 0.37250E-03, 0.40474E-03, 0.39500E-03, - & 0.35243E-03, 0.27871E-03, 0.18199E-03, 0.70670E-04,-0.52938E-04, - &-0.18475E-03,-0.32093E-03,-0.45904E-03,-0.59715E-03,-0.73526E-03, - &-0.87337E-03,-0.10115E-02,-0.11496E-02,-0.12877E-02,-0.14258E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.15920E-06, 0.51474E-05, 0.36421E-04, - & 0.10900E-03, 0.19178E-03, 0.25768E-03, 0.29288E-03, 0.29406E-03, - & 0.26728E-03, 0.21369E-03, 0.13987E-03, 0.52860E-04,-0.44893E-04, - &-0.14987E-03,-0.25903E-03,-0.37028E-03,-0.48153E-03,-0.59279E-03, - &-0.70404E-03,-0.81529E-03,-0.92655E-03,-0.10378E-02,-0.11491E-02, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.45908E-06, 0.80098E-05, - & 0.45331E-04, 0.10298E-03, 0.15678E-03, 0.19129E-03, 0.20091E-03, - & 0.18827E-03, 0.15367E-03, 0.10232E-03, 0.39740E-04,-0.31965E-04, - &-0.10986E-03,-0.19146E-03,-0.27517E-03,-0.35887E-03,-0.44258E-03, - &-0.52629E-03,-0.61000E-03,-0.69370E-03,-0.77741E-03,-0.86112E-03, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.33675E-08, 0.63585E-06, - & 0.10388E-04, 0.39994E-04, 0.76657E-04, 0.10572E-03, 0.11943E-03, - & 0.11781E-03, 0.99904E-04, 0.69031E-04, 0.29254E-04,-0.17717E-04, - &-0.69665E-04,-0.12470E-03,-0.18169E-03,-0.23869E-03,-0.29568E-03, - &-0.35268E-03,-0.40967E-03,-0.46666E-03,-0.52366E-03,-0.58065E-03, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.85311E-06, 0.77859E-05, 0.24453E-04, 0.42888E-04, 0.55547E-04, - & 0.59967E-04, 0.54370E-04, 0.40122E-04, 0.19667E-04,-0.58680E-05, - &-0.35062E-04,-0.66505E-04,-0.99490E-04,-0.13247E-03,-0.16546E-03, - &-0.19844E-03,-0.23143E-03,-0.26441E-03,-0.29740E-03,-0.33038E-03, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.54895E-06, 0.31250E-05, 0.89492E-05, 0.15579E-04, - & 0.20116E-04, 0.20739E-04, 0.17144E-04, 0.10239E-04, 0.49329E-06, - &-0.11418E-04,-0.24630E-04,-0.38763E-04,-0.52896E-04,-0.67029E-04, - &-0.81161E-04,-0.95294E-04,-0.10943E-03,-0.12356E-03,-0.13769E-03, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10384E-06, 0.68009E-06, 0.15794E-05, - & 0.26430E-05, 0.34207E-05, 0.34337E-05, 0.26197E-05, 0.96465E-06, - &-0.14184E-05,-0.42413E-05,-0.73722E-05,-0.10503E-04,-0.13634E-04, - &-0.16765E-04,-0.19896E-04,-0.23027E-04,-0.26158E-04,-0.29289E-04, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.68004E-09, 0.15710E-07, - & 0.88174E-07, 0.18584E-06, 0.24106E-06, 0.22672E-06, 0.13150E-06, - &-0.39290E-07,-0.25605E-06,-0.50470E-06,-0.75336E-06,-0.10020E-05, - &-0.12507E-05,-0.14993E-05,-0.17480E-05,-0.19966E-05,-0.22453E-05/ - - data ((f2grrl(i,j),j=1,30),i= 1, 10)/ - & 0.33204E+00, 0.33123E+00, 0.33042E+00, 0.33044E+00, 0.33314E+00, - & 0.36639E+00, 0.39977E+00, 0.43367E+00, 0.46831E+00, 0.50370E+00, - & 0.54145E+00, 0.58194E+00, 0.62554E+00, 0.67265E+00, 0.72353E+00, - & 0.77833E+00, 0.83767E+00, 0.90233E+00, 0.97332E+00, 0.10531E+01, - & 0.11484E+01, 0.12592E+01, 0.13829E+01, 0.15067E+01, 0.16304E+01, - & 0.17541E+01, 0.18779E+01, 0.20016E+01, 0.21254E+01, 0.22491E+01, - & 0.33248E+00, 0.33167E+00, 0.33087E+00, 0.33088E+00, 0.33355E+00, - & 0.36635E+00, 0.39927E+00, 0.43270E+00, 0.46685E+00, 0.50173E+00, - & 0.53892E+00, 0.57876E+00, 0.62160E+00, 0.66781E+00, 0.71764E+00, - & 0.77122E+00, 0.82917E+00, 0.89223E+00, 0.96140E+00, 0.10391E+01, - & 0.11320E+01, 0.12399E+01, 0.13606E+01, 0.14812E+01, 0.16019E+01, - & 0.17226E+01, 0.18432E+01, 0.19639E+01, 0.20845E+01, 0.22052E+01, - & 0.33290E+00, 0.33210E+00, 0.33131E+00, 0.33133E+00, 0.33396E+00, - & 0.36633E+00, 0.39878E+00, 0.43173E+00, 0.46540E+00, 0.49977E+00, - & 0.53640E+00, 0.57560E+00, 0.61768E+00, 0.66300E+00, 0.71180E+00, - & 0.76418E+00, 0.82075E+00, 0.88224E+00, 0.94964E+00, 0.10253E+01, - & 0.11158E+01, 0.12210E+01, 0.13387E+01, 0.14563E+01, 0.15740E+01, - & 0.16917E+01, 0.18093E+01, 0.19270E+01, 0.20446E+01, 0.21623E+01, - & 0.33335E+00, 0.33255E+00, 0.33176E+00, 0.33178E+00, 0.33437E+00, - & 0.36630E+00, 0.39830E+00, 0.43078E+00, 0.46396E+00, 0.49783E+00, - & 0.53389E+00, 0.57245E+00, 0.61378E+00, 0.65823E+00, 0.70600E+00, - & 0.75721E+00, 0.81243E+00, 0.87239E+00, 0.93805E+00, 0.10117E+01, - & 0.10999E+01, 0.12025E+01, 0.13172E+01, 0.14320E+01, 0.15467E+01, - & 0.16614E+01, 0.17761E+01, 0.18909E+01, 0.20056E+01, 0.21203E+01, - & 0.33380E+00, 0.33301E+00, 0.33222E+00, 0.33223E+00, 0.33478E+00, - & 0.36628E+00, 0.39783E+00, 0.42983E+00, 0.46253E+00, 0.49589E+00, - & 0.53140E+00, 0.56932E+00, 0.60991E+00, 0.65348E+00, 0.70025E+00, - & 0.75030E+00, 0.80420E+00, 0.86266E+00, 0.92663E+00, 0.99839E+00, - & 0.10843E+01, 0.11843E+01, 0.12962E+01, 0.14080E+01, 0.15199E+01, - & 0.16318E+01, 0.17437E+01, 0.18556E+01, 0.19674E+01, 0.20793E+01, - & 0.33425E+00, 0.33346E+00, 0.33267E+00, 0.33269E+00, 0.33520E+00, - & 0.36627E+00, 0.39736E+00, 0.42890E+00, 0.46111E+00, 0.49397E+00, - & 0.52893E+00, 0.56621E+00, 0.60606E+00, 0.64877E+00, 0.69454E+00, - & 0.74345E+00, 0.79606E+00, 0.85305E+00, 0.91536E+00, 0.98525E+00, - & 0.10690E+01, 0.11664E+01, 0.12755E+01, 0.13846E+01, 0.14937E+01, - & 0.16028E+01, 0.17119E+01, 0.18210E+01, 0.19300E+01, 0.20391E+01, - & 0.33465E+00, 0.33389E+00, 0.33313E+00, 0.33315E+00, 0.33563E+00, - & 0.36626E+00, 0.39690E+00, 0.42797E+00, 0.45971E+00, 0.49206E+00, - & 0.52646E+00, 0.56311E+00, 0.60223E+00, 0.64409E+00, 0.68887E+00, - & 0.73667E+00, 0.78801E+00, 0.84355E+00, 0.90425E+00, 0.97231E+00, - & 0.10539E+01, 0.11488E+01, 0.12552E+01, 0.13616E+01, 0.14680E+01, - & 0.15744E+01, 0.16808E+01, 0.17872E+01, 0.18936E+01, 0.20000E+01, - & 0.33511E+00, 0.33435E+00, 0.33359E+00, 0.33361E+00, 0.33605E+00, - & 0.36625E+00, 0.39644E+00, 0.42705E+00, 0.45831E+00, 0.49016E+00, - & 0.52401E+00, 0.56002E+00, 0.59841E+00, 0.63944E+00, 0.68325E+00, - & 0.72995E+00, 0.78004E+00, 0.83418E+00, 0.89330E+00, 0.95956E+00, - & 0.10390E+01, 0.11316E+01, 0.12353E+01, 0.13391E+01, 0.14428E+01, - & 0.15466E+01, 0.16503E+01, 0.17541E+01, 0.18578E+01, 0.19616E+01, - & 0.33553E+00, 0.33479E+00, 0.33406E+00, 0.33407E+00, 0.33648E+00, - & 0.36625E+00, 0.39599E+00, 0.42614E+00, 0.45692E+00, 0.48827E+00, - & 0.52156E+00, 0.55695E+00, 0.59462E+00, 0.63481E+00, 0.67767E+00, - & 0.72329E+00, 0.77216E+00, 0.82492E+00, 0.88249E+00, 0.94701E+00, - & 0.10244E+01, 0.11146E+01, 0.12158E+01, 0.13170E+01, 0.14182E+01, - & 0.15193E+01, 0.16205E+01, 0.17217E+01, 0.18228E+01, 0.19240E+01, - & 0.33600E+00, 0.33526E+00, 0.33452E+00, 0.33453E+00, 0.33691E+00, - & 0.36625E+00, 0.39554E+00, 0.42523E+00, 0.45553E+00, 0.48639E+00, - & 0.51913E+00, 0.55390E+00, 0.59085E+00, 0.63022E+00, 0.67214E+00, - & 0.71669E+00, 0.76435E+00, 0.81576E+00, 0.87183E+00, 0.93465E+00, - & 0.10100E+01, 0.10980E+01, 0.11967E+01, 0.12953E+01, 0.13940E+01, - & 0.14926E+01, 0.15913E+01, 0.16900E+01, 0.17886E+01, 0.18873E+01/ - - data ((f2grrl(i,j),j=1,30),i= 11, 20)/ - & 0.33642E+00, 0.33570E+00, 0.33498E+00, 0.33499E+00, 0.33734E+00, - & 0.36625E+00, 0.39510E+00, 0.42433E+00, 0.45416E+00, 0.48451E+00, - & 0.51671E+00, 0.55085E+00, 0.58710E+00, 0.62565E+00, 0.66664E+00, - & 0.71015E+00, 0.75663E+00, 0.80672E+00, 0.86131E+00, 0.92246E+00, - & 0.99590E+00, 0.10816E+01, 0.11779E+01, 0.12741E+01, 0.13703E+01, - & 0.14665E+01, 0.15627E+01, 0.16590E+01, 0.17552E+01, 0.18514E+01, - & 0.33689E+00, 0.33616E+00, 0.33544E+00, 0.33546E+00, 0.33777E+00, - & 0.36625E+00, 0.39465E+00, 0.42343E+00, 0.45279E+00, 0.48264E+00, - & 0.51429E+00, 0.54782E+00, 0.58336E+00, 0.62111E+00, 0.66118E+00, - & 0.70366E+00, 0.74899E+00, 0.79778E+00, 0.85093E+00, 0.91046E+00, - & 0.98199E+00, 0.10656E+01, 0.11594E+01, 0.12532E+01, 0.13470E+01, - & 0.14409E+01, 0.15347E+01, 0.16285E+01, 0.17223E+01, 0.18162E+01, - & 0.33731E+00, 0.33661E+00, 0.33591E+00, 0.33592E+00, 0.33820E+00, - & 0.36626E+00, 0.39421E+00, 0.42253E+00, 0.45142E+00, 0.48078E+00, - & 0.51188E+00, 0.54480E+00, 0.57964E+00, 0.61659E+00, 0.65576E+00, - & 0.69723E+00, 0.74142E+00, 0.78895E+00, 0.84068E+00, 0.89863E+00, - & 0.96830E+00, 0.10498E+01, 0.11413E+01, 0.12328E+01, 0.13243E+01, - & 0.14158E+01, 0.15073E+01, 0.15988E+01, 0.16903E+01, 0.17818E+01, - & 0.33774E+00, 0.33705E+00, 0.33636E+00, 0.33638E+00, 0.33862E+00, - & 0.36626E+00, 0.39378E+00, 0.42164E+00, 0.45006E+00, 0.47892E+00, - & 0.50948E+00, 0.54179E+00, 0.57594E+00, 0.61210E+00, 0.65038E+00, - & 0.69085E+00, 0.73393E+00, 0.78021E+00, 0.83057E+00, 0.88696E+00, - & 0.95481E+00, 0.10342E+01, 0.11235E+01, 0.12127E+01, 0.13020E+01, - & 0.13912E+01, 0.14805E+01, 0.15697E+01, 0.16590E+01, 0.17482E+01, - & 0.33816E+00, 0.33749E+00, 0.33682E+00, 0.33683E+00, 0.33905E+00, - & 0.36626E+00, 0.39334E+00, 0.42075E+00, 0.44871E+00, 0.47707E+00, - & 0.50709E+00, 0.53879E+00, 0.57225E+00, 0.60764E+00, 0.64504E+00, - & 0.68453E+00, 0.72651E+00, 0.77158E+00, 0.82058E+00, 0.87546E+00, - & 0.94154E+00, 0.10189E+01, 0.11060E+01, 0.11930E+01, 0.12801E+01, - & 0.13671E+01, 0.14542E+01, 0.15412E+01, 0.16283E+01, 0.17153E+01, - & 0.33861E+00, 0.33794E+00, 0.33727E+00, 0.33728E+00, 0.33947E+00, - & 0.36626E+00, 0.39290E+00, 0.41986E+00, 0.44735E+00, 0.47522E+00, - & 0.50470E+00, 0.53580E+00, 0.56858E+00, 0.60319E+00, 0.63972E+00, - & 0.67825E+00, 0.71916E+00, 0.76303E+00, 0.81072E+00, 0.86412E+00, - & 0.92847E+00, 0.10039E+01, 0.10888E+01, 0.11737E+01, 0.12586E+01, - & 0.13434E+01, 0.14283E+01, 0.15132E+01, 0.15981E+01, 0.16830E+01, - & 0.33902E+00, 0.33837E+00, 0.33772E+00, 0.33773E+00, 0.33988E+00, - & 0.36625E+00, 0.39245E+00, 0.41897E+00, 0.44600E+00, 0.47337E+00, - & 0.50232E+00, 0.53281E+00, 0.56492E+00, 0.59877E+00, 0.63445E+00, - & 0.67202E+00, 0.71188E+00, 0.75458E+00, 0.80097E+00, 0.85293E+00, - & 0.91559E+00, 0.98910E+00, 0.10719E+01, 0.11546E+01, 0.12374E+01, - & 0.13202E+01, 0.14030E+01, 0.14857E+01, 0.15685E+01, 0.16513E+01, - & 0.33943E+00, 0.33879E+00, 0.33816E+00, 0.33817E+00, 0.34029E+00, - & 0.36624E+00, 0.39201E+00, 0.41808E+00, 0.44464E+00, 0.47152E+00, - & 0.49993E+00, 0.52983E+00, 0.56127E+00, 0.59436E+00, 0.62920E+00, - & 0.66584E+00, 0.70466E+00, 0.74622E+00, 0.79135E+00, 0.84189E+00, - & 0.90290E+00, 0.97454E+00, 0.10553E+01, 0.11360E+01, 0.12167E+01, - & 0.12974E+01, 0.13781E+01, 0.14589E+01, 0.15396E+01, 0.16203E+01, - & 0.33983E+00, 0.33921E+00, 0.33859E+00, 0.33860E+00, 0.34070E+00, - & 0.36622E+00, 0.39156E+00, 0.41718E+00, 0.44329E+00, 0.46967E+00, - & 0.49755E+00, 0.52685E+00, 0.55763E+00, 0.58998E+00, 0.62398E+00, - & 0.65970E+00, 0.69751E+00, 0.73794E+00, 0.78183E+00, 0.83100E+00, - & 0.89040E+00, 0.96021E+00, 0.10389E+01, 0.11176E+01, 0.11963E+01, - & 0.12751E+01, 0.13538E+01, 0.14325E+01, 0.15112E+01, 0.15899E+01, - & 0.34021E+00, 0.33961E+00, 0.33902E+00, 0.33903E+00, 0.34109E+00, - & 0.36620E+00, 0.39110E+00, 0.41628E+00, 0.44193E+00, 0.46782E+00, - & 0.49517E+00, 0.52388E+00, 0.55400E+00, 0.58561E+00, 0.61879E+00, - & 0.65361E+00, 0.69041E+00, 0.72975E+00, 0.77242E+00, 0.82024E+00, - & 0.87807E+00, 0.94610E+00, 0.10229E+01, 0.10996E+01, 0.11764E+01, - & 0.12531E+01, 0.13299E+01, 0.14066E+01, 0.14834E+01, 0.15601E+01/ - - data ((f2grrl(i,j),j=1,30),i= 21, 30)/ - & 0.34062E+00, 0.34003E+00, 0.33943E+00, 0.33944E+00, 0.34148E+00, - & 0.36616E+00, 0.39064E+00, 0.41538E+00, 0.44056E+00, 0.46596E+00, - & 0.49278E+00, 0.52091E+00, 0.55037E+00, 0.58125E+00, 0.61362E+00, - & 0.64755E+00, 0.68337E+00, 0.72163E+00, 0.76312E+00, 0.80962E+00, - & 0.86591E+00, 0.93220E+00, 0.10070E+01, 0.10819E+01, 0.11567E+01, - & 0.12315E+01, 0.13064E+01, 0.13812E+01, 0.14561E+01, 0.15309E+01, - & 0.34093E+00, 0.34038E+00, 0.33983E+00, 0.33984E+00, 0.34186E+00, - & 0.36612E+00, 0.39017E+00, 0.41446E+00, 0.43919E+00, 0.46410E+00, - & 0.49039E+00, 0.51794E+00, 0.54675E+00, 0.57691E+00, 0.60848E+00, - & 0.64153E+00, 0.67639E+00, 0.71359E+00, 0.75392E+00, 0.79912E+00, - & 0.85391E+00, 0.91850E+00, 0.99146E+00, 0.10644E+01, 0.11374E+01, - & 0.12104E+01, 0.12833E+01, 0.13563E+01, 0.14293E+01, 0.15022E+01, - & 0.34131E+00, 0.34077E+00, 0.34022E+00, 0.34023E+00, 0.34222E+00, - & 0.36606E+00, 0.38969E+00, 0.41354E+00, 0.43781E+00, 0.46223E+00, - & 0.48800E+00, 0.51497E+00, 0.54313E+00, 0.57258E+00, 0.60336E+00, - & 0.63555E+00, 0.66946E+00, 0.70561E+00, 0.74481E+00, 0.78875E+00, - & 0.84207E+00, 0.90499E+00, 0.97613E+00, 0.10473E+01, 0.11184E+01, - & 0.11895E+01, 0.12607E+01, 0.13318E+01, 0.14030E+01, 0.14741E+01, - & 0.34168E+00, 0.34114E+00, 0.34059E+00, 0.34061E+00, 0.34257E+00, - & 0.36599E+00, 0.38919E+00, 0.41261E+00, 0.43642E+00, 0.46035E+00, - & 0.48560E+00, 0.51199E+00, 0.53952E+00, 0.56826E+00, 0.59826E+00, - & 0.62959E+00, 0.66257E+00, 0.69771E+00, 0.73579E+00, 0.77850E+00, - & 0.83038E+00, 0.89168E+00, 0.96103E+00, 0.10304E+01, 0.10997E+01, - & 0.11691E+01, 0.12384E+01, 0.13078E+01, 0.13771E+01, 0.14465E+01, - & 0.34197E+00, 0.34146E+00, 0.34095E+00, 0.34096E+00, 0.34290E+00, - & 0.36591E+00, 0.38868E+00, 0.41166E+00, 0.43502E+00, 0.45846E+00, - & 0.48319E+00, 0.50900E+00, 0.53590E+00, 0.56394E+00, 0.59317E+00, - & 0.62367E+00, 0.65573E+00, 0.68987E+00, 0.72686E+00, 0.76836E+00, - & 0.81884E+00, 0.87854E+00, 0.94614E+00, 0.10137E+01, 0.10813E+01, - & 0.11489E+01, 0.12165E+01, 0.12842E+01, 0.13518E+01, 0.14194E+01, - & 0.34228E+00, 0.34178E+00, 0.34129E+00, 0.34130E+00, 0.34321E+00, - & 0.36581E+00, 0.38815E+00, 0.41069E+00, 0.43361E+00, 0.45656E+00, - & 0.48076E+00, 0.50601E+00, 0.53228E+00, 0.55963E+00, 0.58810E+00, - & 0.61777E+00, 0.64893E+00, 0.68209E+00, 0.71801E+00, 0.75833E+00, - & 0.80743E+00, 0.86558E+00, 0.93147E+00, 0.99736E+00, 0.10633E+01, - & 0.11291E+01, 0.11950E+01, 0.12609E+01, 0.13268E+01, 0.13927E+01, - & 0.34253E+00, 0.34207E+00, 0.34161E+00, 0.34162E+00, 0.34351E+00, - & 0.36569E+00, 0.38761E+00, 0.40971E+00, 0.43217E+00, 0.45464E+00, - & 0.47833E+00, 0.50301E+00, 0.52865E+00, 0.55531E+00, 0.58304E+00, - & 0.61189E+00, 0.64217E+00, 0.67437E+00, 0.70924E+00, 0.74840E+00, - & 0.79616E+00, 0.85278E+00, 0.91700E+00, 0.98122E+00, 0.10454E+01, - & 0.11097E+01, 0.11739E+01, 0.12381E+01, 0.13023E+01, 0.13665E+01, - & 0.34275E+00, 0.34233E+00, 0.34190E+00, 0.34191E+00, 0.34378E+00, - & 0.36554E+00, 0.38704E+00, 0.40871E+00, 0.43072E+00, 0.45270E+00, - & 0.47587E+00, 0.49999E+00, 0.52501E+00, 0.55100E+00, 0.57798E+00, - & 0.60604E+00, 0.63545E+00, 0.66670E+00, 0.70054E+00, 0.73856E+00, - & 0.78501E+00, 0.84014E+00, 0.90272E+00, 0.96530E+00, 0.10279E+01, - & 0.10905E+01, 0.11530E+01, 0.12156E+01, 0.12782E+01, 0.13408E+01, - & 0.34301E+00, 0.34259E+00, 0.34217E+00, 0.34218E+00, 0.34403E+00, - & 0.36538E+00, 0.38645E+00, 0.40769E+00, 0.42925E+00, 0.45074E+00, - & 0.47340E+00, 0.49695E+00, 0.52137E+00, 0.54668E+00, 0.57293E+00, - & 0.60020E+00, 0.62875E+00, 0.65908E+00, 0.69191E+00, 0.72882E+00, - & 0.77397E+00, 0.82765E+00, 0.88863E+00, 0.94961E+00, 0.10106E+01, - & 0.10716E+01, 0.11325E+01, 0.11935E+01, 0.12545E+01, 0.13155E+01, - & 0.34319E+00, 0.34280E+00, 0.34241E+00, 0.34242E+00, 0.34425E+00, - & 0.36518E+00, 0.38584E+00, 0.40664E+00, 0.42776E+00, 0.44875E+00, - & 0.47090E+00, 0.49390E+00, 0.51771E+00, 0.54235E+00, 0.56788E+00, - & 0.59437E+00, 0.62208E+00, 0.65149E+00, 0.68334E+00, 0.71916E+00, - & 0.76306E+00, 0.81530E+00, 0.87471E+00, 0.93412E+00, 0.99352E+00, - & 0.10529E+01, 0.11123E+01, 0.11717E+01, 0.12312E+01, 0.12906E+01/ - - data ((f2grrl(i,j),j=1,30),i= 31, 40)/ - & 0.34333E+00, 0.34297E+00, 0.34262E+00, 0.34263E+00, 0.34444E+00, - & 0.36496E+00, 0.38520E+00, 0.40557E+00, 0.42623E+00, 0.44674E+00, - & 0.46838E+00, 0.49083E+00, 0.51403E+00, 0.53802E+00, 0.56283E+00, - & 0.58855E+00, 0.61544E+00, 0.64395E+00, 0.67483E+00, 0.70958E+00, - & 0.75224E+00, 0.80309E+00, 0.86095E+00, 0.91882E+00, 0.97669E+00, - & 0.10346E+01, 0.10924E+01, 0.11503E+01, 0.12082E+01, 0.12660E+01, - & 0.34340E+00, 0.34310E+00, 0.34280E+00, 0.34281E+00, 0.34460E+00, - & 0.36470E+00, 0.38452E+00, 0.40446E+00, 0.42468E+00, 0.44470E+00, - & 0.46583E+00, 0.48773E+00, 0.51033E+00, 0.53367E+00, 0.55778E+00, - & 0.58274E+00, 0.60881E+00, 0.63644E+00, 0.66637E+00, 0.70008E+00, - & 0.74152E+00, 0.79100E+00, 0.84736E+00, 0.90372E+00, 0.96008E+00, - & 0.10164E+01, 0.10728E+01, 0.11292E+01, 0.11855E+01, 0.12419E+01, - & 0.34354E+00, 0.34324E+00, 0.34294E+00, 0.34295E+00, 0.34472E+00, - & 0.36441E+00, 0.38381E+00, 0.40332E+00, 0.42309E+00, 0.44263E+00, - & 0.46325E+00, 0.48460E+00, 0.50661E+00, 0.52930E+00, 0.55271E+00, - & 0.57693E+00, 0.60219E+00, 0.62896E+00, 0.65796E+00, 0.69064E+00, - & 0.73089E+00, 0.77902E+00, 0.83391E+00, 0.88879E+00, 0.94367E+00, - & 0.99855E+00, 0.10534E+01, 0.11083E+01, 0.11632E+01, 0.12181E+01, - & 0.34357E+00, 0.34330E+00, 0.34304E+00, 0.34305E+00, 0.34481E+00, - & 0.36408E+00, 0.38306E+00, 0.40214E+00, 0.42147E+00, 0.44052E+00, - & 0.46064E+00, 0.48144E+00, 0.50286E+00, 0.52491E+00, 0.54764E+00, - & 0.57111E+00, 0.59559E+00, 0.62151E+00, 0.64959E+00, 0.68126E+00, - & 0.72035E+00, 0.76716E+00, 0.82059E+00, 0.87402E+00, 0.92746E+00, - & 0.98089E+00, 0.10343E+01, 0.10877E+01, 0.11412E+01, 0.11946E+01, - & 0.34353E+00, 0.34331E+00, 0.34310E+00, 0.34311E+00, 0.34485E+00, - & 0.36371E+00, 0.38227E+00, 0.40092E+00, 0.41981E+00, 0.43837E+00, - & 0.45799E+00, 0.47825E+00, 0.49907E+00, 0.52049E+00, 0.54254E+00, - & 0.56529E+00, 0.58899E+00, 0.61407E+00, 0.64125E+00, 0.67193E+00, - & 0.70989E+00, 0.75540E+00, 0.80741E+00, 0.85942E+00, 0.91143E+00, - & 0.96344E+00, 0.10154E+01, 0.10675E+01, 0.11195E+01, 0.11715E+01, - & 0.34353E+00, 0.34332E+00, 0.34311E+00, 0.34312E+00, 0.34485E+00, - & 0.36329E+00, 0.38144E+00, 0.39966E+00, 0.41810E+00, 0.43618E+00, - & 0.45529E+00, 0.47501E+00, 0.49526E+00, 0.51605E+00, 0.53742E+00, - & 0.55945E+00, 0.58238E+00, 0.60665E+00, 0.63294E+00, 0.66266E+00, - & 0.69949E+00, 0.74373E+00, 0.79434E+00, 0.84495E+00, 0.89556E+00, - & 0.94617E+00, 0.99678E+00, 0.10474E+01, 0.10980E+01, 0.11486E+01, - & 0.34336E+00, 0.34322E+00, 0.34307E+00, 0.34308E+00, 0.34479E+00, - & 0.36283E+00, 0.38055E+00, 0.39835E+00, 0.41634E+00, 0.43394E+00, - & 0.45255E+00, 0.47173E+00, 0.49140E+00, 0.51157E+00, 0.53228E+00, - & 0.55360E+00, 0.57578E+00, 0.59924E+00, 0.62466E+00, 0.65342E+00, - & 0.68915E+00, 0.73215E+00, 0.78139E+00, 0.83063E+00, 0.87987E+00, - & 0.92910E+00, 0.97834E+00, 0.10276E+01, 0.10768E+01, 0.11261E+01, - & 0.34319E+00, 0.34308E+00, 0.34298E+00, 0.34298E+00, 0.34469E+00, - & 0.36231E+00, 0.37962E+00, 0.39698E+00, 0.41454E+00, 0.43164E+00, - & 0.44976E+00, 0.46841E+00, 0.48750E+00, 0.50706E+00, 0.52710E+00, - & 0.54773E+00, 0.56916E+00, 0.59182E+00, 0.61639E+00, 0.64422E+00, - & 0.67887E+00, 0.72064E+00, 0.76853E+00, 0.81642E+00, 0.86431E+00, - & 0.91220E+00, 0.96009E+00, 0.10080E+01, 0.10559E+01, 0.11038E+01, - & 0.34300E+00, 0.34291E+00, 0.34282E+00, 0.34283E+00, 0.34452E+00, - & 0.36173E+00, 0.37862E+00, 0.39556E+00, 0.41267E+00, 0.42930E+00, - & 0.44691E+00, 0.46503E+00, 0.48355E+00, 0.50250E+00, 0.52189E+00, - & 0.54183E+00, 0.56253E+00, 0.58441E+00, 0.60813E+00, 0.63504E+00, - & 0.66863E+00, 0.70920E+00, 0.75577E+00, 0.80233E+00, 0.84890E+00, - & 0.89546E+00, 0.94203E+00, 0.98860E+00, 0.10352E+01, 0.10817E+01, - & 0.34268E+00, 0.34265E+00, 0.34261E+00, 0.34261E+00, 0.34429E+00, - & 0.36109E+00, 0.37757E+00, 0.39408E+00, 0.41075E+00, 0.42688E+00, - & 0.44401E+00, 0.46160E+00, 0.47955E+00, 0.49789E+00, 0.51664E+00, - & 0.53590E+00, 0.55587E+00, 0.57698E+00, 0.59988E+00, 0.62589E+00, - & 0.65844E+00, 0.69782E+00, 0.74308E+00, 0.78834E+00, 0.83360E+00, - & 0.87886E+00, 0.92412E+00, 0.96938E+00, 0.10146E+01, 0.10599E+01/ - - data ((f2grrl(i,j),j=1,30),i= 41, 50)/ - & 0.34233E+00, 0.34233E+00, 0.34233E+00, 0.34233E+00, 0.34400E+00, - & 0.36038E+00, 0.37645E+00, 0.39253E+00, 0.40876E+00, 0.42441E+00, - & 0.44104E+00, 0.45810E+00, 0.47549E+00, 0.49323E+00, 0.51135E+00, - & 0.52993E+00, 0.54919E+00, 0.56954E+00, 0.59163E+00, 0.61675E+00, - & 0.64827E+00, 0.68649E+00, 0.73047E+00, 0.77445E+00, 0.81843E+00, - & 0.86240E+00, 0.90638E+00, 0.95036E+00, 0.99434E+00, 0.10383E+01, - & 0.34190E+00, 0.34194E+00, 0.34197E+00, 0.34197E+00, 0.34364E+00, - & 0.35960E+00, 0.37525E+00, 0.39091E+00, 0.40669E+00, 0.42186E+00, - & 0.43800E+00, 0.45454E+00, 0.47137E+00, 0.48851E+00, 0.50600E+00, - & 0.52391E+00, 0.54247E+00, 0.56207E+00, 0.58337E+00, 0.60761E+00, - & 0.63813E+00, 0.67520E+00, 0.71792E+00, 0.76064E+00, 0.80335E+00, - & 0.84607E+00, 0.88878E+00, 0.93150E+00, 0.97422E+00, 0.10169E+01, - & 0.34136E+00, 0.34145E+00, 0.34153E+00, 0.34154E+00, 0.34319E+00, - & 0.35874E+00, 0.37398E+00, 0.38921E+00, 0.40456E+00, 0.41924E+00, - & 0.43489E+00, 0.45090E+00, 0.46718E+00, 0.48373E+00, 0.50059E+00, - & 0.51785E+00, 0.53571E+00, 0.55458E+00, 0.57509E+00, 0.59848E+00, - & 0.62800E+00, 0.66395E+00, 0.70542E+00, 0.74689E+00, 0.78837E+00, - & 0.82984E+00, 0.87131E+00, 0.91278E+00, 0.95425E+00, 0.99573E+00, - & 0.34077E+00, 0.34089E+00, 0.34102E+00, 0.34102E+00, 0.34267E+00, - & 0.35781E+00, 0.37263E+00, 0.38743E+00, 0.40234E+00, 0.41654E+00, - & 0.43170E+00, 0.44719E+00, 0.46292E+00, 0.47888E+00, 0.49513E+00, - & 0.51173E+00, 0.52891E+00, 0.54706E+00, 0.56679E+00, 0.58933E+00, - & 0.61788E+00, 0.65272E+00, 0.69297E+00, 0.73322E+00, 0.77347E+00, - & 0.81372E+00, 0.85396E+00, 0.89421E+00, 0.93446E+00, 0.97471E+00, - & 0.34006E+00, 0.34024E+00, 0.34041E+00, 0.34041E+00, 0.34205E+00, - & 0.35678E+00, 0.37118E+00, 0.38556E+00, 0.40003E+00, 0.41375E+00, - & 0.42842E+00, 0.44339E+00, 0.45857E+00, 0.47396E+00, 0.48959E+00, - & 0.50556E+00, 0.52206E+00, 0.53949E+00, 0.55846E+00, 0.58017E+00, - & 0.60776E+00, 0.64150E+00, 0.68054E+00, 0.71958E+00, 0.75862E+00, - & 0.79767E+00, 0.83671E+00, 0.87575E+00, 0.91479E+00, 0.95383E+00, - & 0.33926E+00, 0.33948E+00, 0.33971E+00, 0.33971E+00, 0.34134E+00, - & 0.35565E+00, 0.36965E+00, 0.38360E+00, 0.39763E+00, 0.41086E+00, - & 0.42505E+00, 0.43951E+00, 0.45414E+00, 0.46895E+00, 0.48398E+00, - & 0.49931E+00, 0.51515E+00, 0.53187E+00, 0.55009E+00, 0.57099E+00, - & 0.59763E+00, 0.63029E+00, 0.66815E+00, 0.70600E+00, 0.74385E+00, - & 0.78170E+00, 0.81955E+00, 0.85740E+00, 0.89525E+00, 0.93310E+00, - & 0.33835E+00, 0.33862E+00, 0.33890E+00, 0.33890E+00, 0.34053E+00, - & 0.35443E+00, 0.36801E+00, 0.38154E+00, 0.39513E+00, 0.40788E+00, - & 0.42158E+00, 0.43553E+00, 0.44962E+00, 0.46386E+00, 0.47829E+00, - & 0.49299E+00, 0.50817E+00, 0.52420E+00, 0.54168E+00, 0.56178E+00, - & 0.58748E+00, 0.61909E+00, 0.65576E+00, 0.69244E+00, 0.72911E+00, - & 0.76579E+00, 0.80246E+00, 0.83914E+00, 0.87582E+00, 0.91249E+00, - & 0.33736E+00, 0.33767E+00, 0.33799E+00, 0.33799E+00, 0.33961E+00, - & 0.35310E+00, 0.36626E+00, 0.37937E+00, 0.39252E+00, 0.40479E+00, - & 0.41801E+00, 0.43145E+00, 0.44500E+00, 0.45868E+00, 0.47251E+00, - & 0.48659E+00, 0.50112E+00, 0.51647E+00, 0.53322E+00, 0.55252E+00, - & 0.57731E+00, 0.60787E+00, 0.64338E+00, 0.67890E+00, 0.71442E+00, - & 0.74993E+00, 0.78545E+00, 0.82097E+00, 0.85649E+00, 0.89200E+00, - & 0.33623E+00, 0.33659E+00, 0.33696E+00, 0.33696E+00, 0.33858E+00, - & 0.35165E+00, 0.36440E+00, 0.37708E+00, 0.38980E+00, 0.40160E+00, - & 0.41433E+00, 0.42726E+00, 0.44028E+00, 0.45339E+00, 0.46664E+00, - & 0.48011E+00, 0.49400E+00, 0.50867E+00, 0.52471E+00, 0.54323E+00, - & 0.56711E+00, 0.59663E+00, 0.63100E+00, 0.66537E+00, 0.69974E+00, - & 0.73411E+00, 0.76849E+00, 0.80286E+00, 0.83723E+00, 0.87160E+00, - & 0.33500E+00, 0.33540E+00, 0.33580E+00, 0.33581E+00, 0.33742E+00, - & 0.35008E+00, 0.36242E+00, 0.37468E+00, 0.38696E+00, 0.39828E+00, - & 0.41053E+00, 0.42296E+00, 0.43545E+00, 0.44800E+00, 0.46067E+00, - & 0.47353E+00, 0.48679E+00, 0.50080E+00, 0.51612E+00, 0.53388E+00, - & 0.55686E+00, 0.58537E+00, 0.61861E+00, 0.65185E+00, 0.68509E+00, - & 0.71833E+00, 0.75157E+00, 0.78481E+00, 0.81805E+00, 0.85129E+00/ - - data ((f2grrl(i,j),j=1,30),i= 51, 60)/ - & 0.33361E+00, 0.33407E+00, 0.33452E+00, 0.33452E+00, 0.33613E+00, - & 0.34838E+00, 0.36031E+00, 0.37215E+00, 0.38400E+00, 0.39484E+00, - & 0.40661E+00, 0.41854E+00, 0.43050E+00, 0.44250E+00, 0.45459E+00, - & 0.46686E+00, 0.47949E+00, 0.49284E+00, 0.50747E+00, 0.52447E+00, - & 0.54657E+00, 0.57407E+00, 0.60619E+00, 0.63832E+00, 0.67044E+00, - & 0.70257E+00, 0.73469E+00, 0.76682E+00, 0.79894E+00, 0.83107E+00, - & 0.33206E+00, 0.33258E+00, 0.33310E+00, 0.33310E+00, 0.33471E+00, - & 0.34655E+00, 0.35807E+00, 0.36949E+00, 0.38090E+00, 0.39126E+00, - & 0.40256E+00, 0.41399E+00, 0.42543E+00, 0.43688E+00, 0.44840E+00, - & 0.46008E+00, 0.47209E+00, 0.48480E+00, 0.49875E+00, 0.51499E+00, - & 0.53623E+00, 0.56273E+00, 0.59376E+00, 0.62478E+00, 0.65580E+00, - & 0.68683E+00, 0.71785E+00, 0.74887E+00, 0.77990E+00, 0.81092E+00, - & 0.33041E+00, 0.33097E+00, 0.33153E+00, 0.33154E+00, 0.33314E+00, - & 0.34457E+00, 0.35568E+00, 0.36668E+00, 0.37766E+00, 0.38755E+00, - & 0.39838E+00, 0.40931E+00, 0.42022E+00, 0.43114E+00, 0.44209E+00, - & 0.45318E+00, 0.46459E+00, 0.47666E+00, 0.48993E+00, 0.50544E+00, - & 0.52583E+00, 0.55135E+00, 0.58128E+00, 0.61121E+00, 0.64114E+00, - & 0.67107E+00, 0.70101E+00, 0.73094E+00, 0.76087E+00, 0.79080E+00, - & 0.32856E+00, 0.32919E+00, 0.32981E+00, 0.32981E+00, 0.33142E+00, - & 0.34244E+00, 0.35315E+00, 0.36373E+00, 0.37428E+00, 0.38370E+00, - & 0.39405E+00, 0.40449E+00, 0.41489E+00, 0.42526E+00, 0.43566E+00, - & 0.44617E+00, 0.45698E+00, 0.46842E+00, 0.48103E+00, 0.49582E+00, - & 0.51536E+00, 0.53991E+00, 0.56876E+00, 0.59762E+00, 0.62647E+00, - & 0.65533E+00, 0.68418E+00, 0.71303E+00, 0.74189E+00, 0.77074E+00, - & 0.32663E+00, 0.32728E+00, 0.32793E+00, 0.32793E+00, 0.32953E+00, - & 0.34015E+00, 0.35045E+00, 0.36061E+00, 0.37074E+00, 0.37969E+00, - & 0.38957E+00, 0.39952E+00, 0.40941E+00, 0.41925E+00, 0.42909E+00, - & 0.43904E+00, 0.44925E+00, 0.46008E+00, 0.47203E+00, 0.48611E+00, - & 0.50482E+00, 0.52841E+00, 0.55620E+00, 0.58398E+00, 0.61177E+00, - & 0.63956E+00, 0.66735E+00, 0.69514E+00, 0.72293E+00, 0.75072E+00, - & 0.32444E+00, 0.32516E+00, 0.32588E+00, 0.32587E+00, 0.32748E+00, - & 0.33769E+00, 0.34759E+00, 0.35734E+00, 0.36704E+00, 0.37552E+00, - & 0.38494E+00, 0.39440E+00, 0.40378E+00, 0.41310E+00, 0.42239E+00, - & 0.43178E+00, 0.44141E+00, 0.45163E+00, 0.46294E+00, 0.47631E+00, - & 0.49420E+00, 0.51684E+00, 0.54358E+00, 0.57032E+00, 0.59705E+00, - & 0.62379E+00, 0.65052E+00, 0.67726E+00, 0.70400E+00, 0.73073E+00, - & 0.32213E+00, 0.32289E+00, 0.32364E+00, 0.32364E+00, 0.32524E+00, - & 0.33506E+00, 0.34456E+00, 0.35389E+00, 0.36317E+00, 0.37119E+00, - & 0.38014E+00, 0.38912E+00, 0.39800E+00, 0.40679E+00, 0.41555E+00, - & 0.42438E+00, 0.43344E+00, 0.44306E+00, 0.45373E+00, 0.46642E+00, - & 0.48349E+00, 0.50521E+00, 0.53090E+00, 0.55660E+00, 0.58229E+00, - & 0.60799E+00, 0.63369E+00, 0.65938E+00, 0.68508E+00, 0.71077E+00, - & 0.31955E+00, 0.32038E+00, 0.32122E+00, 0.32122E+00, 0.32282E+00, - & 0.33224E+00, 0.34134E+00, 0.35027E+00, 0.35912E+00, 0.36668E+00, - & 0.37518E+00, 0.38368E+00, 0.39206E+00, 0.40034E+00, 0.40856E+00, - & 0.41684E+00, 0.42534E+00, 0.43437E+00, 0.44442E+00, 0.45643E+00, - & 0.47271E+00, 0.49350E+00, 0.51817E+00, 0.54284E+00, 0.56750E+00, - & 0.59217E+00, 0.61684E+00, 0.64151E+00, 0.66617E+00, 0.69084E+00, - & 0.31685E+00, 0.31772E+00, 0.31860E+00, 0.31860E+00, 0.32020E+00, - & 0.32922E+00, 0.33794E+00, 0.34646E+00, 0.35489E+00, 0.36200E+00, - & 0.37004E+00, 0.37806E+00, 0.38595E+00, 0.39372E+00, 0.40143E+00, - & 0.40917E+00, 0.41711E+00, 0.42556E+00, 0.43500E+00, 0.44634E+00, - & 0.46183E+00, 0.48172E+00, 0.50537E+00, 0.52902E+00, 0.55267E+00, - & 0.57632E+00, 0.59997E+00, 0.62362E+00, 0.64727E+00, 0.67092E+00, - & 0.31392E+00, 0.31485E+00, 0.31578E+00, 0.31577E+00, 0.31738E+00, - & 0.32601E+00, 0.33434E+00, 0.34246E+00, 0.35047E+00, 0.35713E+00, - & 0.36472E+00, 0.37228E+00, 0.37968E+00, 0.38695E+00, 0.39413E+00, - & 0.40135E+00, 0.40874E+00, 0.41662E+00, 0.42546E+00, 0.43615E+00, - & 0.45087E+00, 0.46986E+00, 0.49250E+00, 0.51515E+00, 0.53780E+00, - & 0.56044E+00, 0.58309E+00, 0.60574E+00, 0.62839E+00, 0.65103E+00/ - - data ((f2grrl(i,j),j=1,30),i= 61, 70)/ - & 0.31078E+00, 0.31176E+00, 0.31274E+00, 0.31274E+00, 0.31434E+00, - & 0.32260E+00, 0.33053E+00, 0.33826E+00, 0.34586E+00, 0.35208E+00, - & 0.35922E+00, 0.36631E+00, 0.37323E+00, 0.38000E+00, 0.38668E+00, - & 0.39337E+00, 0.40023E+00, 0.40756E+00, 0.41581E+00, 0.42585E+00, - & 0.43982E+00, 0.45792E+00, 0.47958E+00, 0.50123E+00, 0.52289E+00, - & 0.54454E+00, 0.56620E+00, 0.58786E+00, 0.60951E+00, 0.63117E+00, - & 0.30745E+00, 0.30847E+00, 0.30949E+00, 0.30948E+00, 0.31109E+00, - & 0.31896E+00, 0.32652E+00, 0.33386E+00, 0.34106E+00, 0.34683E+00, - & 0.35353E+00, 0.36017E+00, 0.36661E+00, 0.37289E+00, 0.37907E+00, - & 0.38526E+00, 0.39159E+00, 0.39837E+00, 0.40605E+00, 0.41546E+00, - & 0.42867E+00, 0.44591E+00, 0.46659E+00, 0.48727E+00, 0.50795E+00, - & 0.52863E+00, 0.54931E+00, 0.56999E+00, 0.59067E+00, 0.61135E+00, - & 0.30383E+00, 0.30492E+00, 0.30600E+00, 0.30600E+00, 0.30761E+00, - & 0.31511E+00, 0.32230E+00, 0.32925E+00, 0.33604E+00, 0.34139E+00, - & 0.34765E+00, 0.35383E+00, 0.35981E+00, 0.36562E+00, 0.37131E+00, - & 0.37698E+00, 0.38280E+00, 0.38905E+00, 0.39617E+00, 0.40496E+00, - & 0.41744E+00, 0.43382E+00, 0.45354E+00, 0.47326E+00, 0.49298E+00, - & 0.51270E+00, 0.53242E+00, 0.55214E+00, 0.57185E+00, 0.59157E+00, - & 0.30004E+00, 0.30116E+00, 0.30229E+00, 0.30228E+00, 0.30389E+00, - & 0.31104E+00, 0.31786E+00, 0.32442E+00, 0.33083E+00, 0.33575E+00, - & 0.34158E+00, 0.34732E+00, 0.35283E+00, 0.35817E+00, 0.36338E+00, - & 0.36857E+00, 0.37388E+00, 0.37961E+00, 0.38618E+00, 0.39436E+00, - & 0.40613E+00, 0.42167E+00, 0.44044E+00, 0.45921E+00, 0.47799E+00, - & 0.49676E+00, 0.51553E+00, 0.53430E+00, 0.55308E+00, 0.57185E+00, - & 0.29599E+00, 0.29716E+00, 0.29833E+00, 0.29833E+00, 0.29994E+00, - & 0.30674E+00, 0.31320E+00, 0.31939E+00, 0.32540E+00, 0.32991E+00, - & 0.33532E+00, 0.34061E+00, 0.34568E+00, 0.35055E+00, 0.35529E+00, - & 0.36000E+00, 0.36483E+00, 0.37005E+00, 0.37608E+00, 0.38368E+00, - & 0.39474E+00, 0.40946E+00, 0.42730E+00, 0.44514E+00, 0.46298E+00, - & 0.48082E+00, 0.49866E+00, 0.51650E+00, 0.53434E+00, 0.55218E+00, - & 0.29169E+00, 0.29291E+00, 0.29414E+00, 0.29413E+00, 0.29575E+00, - & 0.30220E+00, 0.30832E+00, 0.31414E+00, 0.31976E+00, 0.32386E+00, - & 0.32886E+00, 0.33372E+00, 0.33835E+00, 0.34277E+00, 0.34705E+00, - & 0.35129E+00, 0.35564E+00, 0.36037E+00, 0.36588E+00, 0.37291E+00, - & 0.38329E+00, 0.39719E+00, 0.41412E+00, 0.43104E+00, 0.44797E+00, - & 0.46489E+00, 0.48182E+00, 0.49875E+00, 0.51567E+00, 0.53260E+00, - & 0.28714E+00, 0.28842E+00, 0.28970E+00, 0.28969E+00, 0.29132E+00, - & 0.29744E+00, 0.30321E+00, 0.30867E+00, 0.31392E+00, 0.31762E+00, - & 0.32221E+00, 0.32665E+00, 0.33084E+00, 0.33482E+00, 0.33865E+00, - & 0.34244E+00, 0.34633E+00, 0.35058E+00, 0.35559E+00, 0.36206E+00, - & 0.37177E+00, 0.38488E+00, 0.40091E+00, 0.41694E+00, 0.43297E+00, - & 0.44900E+00, 0.46503E+00, 0.48106E+00, 0.49710E+00, 0.51313E+00, - & 0.28236E+00, 0.28369E+00, 0.28502E+00, 0.28501E+00, 0.28664E+00, - & 0.29244E+00, 0.29788E+00, 0.30298E+00, 0.30786E+00, 0.31118E+00, - & 0.31537E+00, 0.31940E+00, 0.32316E+00, 0.32671E+00, 0.33011E+00, - & 0.33347E+00, 0.33691E+00, 0.34070E+00, 0.34521E+00, 0.35114E+00, - & 0.36020E+00, 0.37254E+00, 0.38769E+00, 0.40285E+00, 0.41800E+00, - & 0.43315E+00, 0.44831E+00, 0.46346E+00, 0.47861E+00, 0.49377E+00, - & 0.27736E+00, 0.27873E+00, 0.28010E+00, 0.28009E+00, 0.28172E+00, - & 0.28721E+00, 0.29233E+00, 0.29709E+00, 0.30161E+00, 0.30455E+00, - & 0.30834E+00, 0.31197E+00, 0.31533E+00, 0.31846E+00, 0.32144E+00, - & 0.32437E+00, 0.32738E+00, 0.33072E+00, 0.33476E+00, 0.34017E+00, - & 0.34860E+00, 0.36018E+00, 0.37448E+00, 0.38878E+00, 0.40308E+00, - & 0.41737E+00, 0.43167E+00, 0.44597E+00, 0.46027E+00, 0.47456E+00, - & 0.27210E+00, 0.27352E+00, 0.27494E+00, 0.27493E+00, 0.27657E+00, - & 0.28176E+00, 0.28656E+00, 0.29098E+00, 0.29515E+00, 0.29773E+00, - & 0.30114E+00, 0.30437E+00, 0.30733E+00, 0.31006E+00, 0.31263E+00, - & 0.31515E+00, 0.31775E+00, 0.32066E+00, 0.32425E+00, 0.32916E+00, - & 0.33697E+00, 0.34782E+00, 0.36129E+00, 0.37475E+00, 0.38821E+00, - & 0.40167E+00, 0.41513E+00, 0.42859E+00, 0.44205E+00, 0.45551E+00/ - - data ((f2grrl(i,j),j=1,30),i= 71, 80)/ - & 0.26663E+00, 0.26809E+00, 0.26954E+00, 0.26953E+00, 0.27118E+00, - & 0.27609E+00, 0.28059E+00, 0.28468E+00, 0.28850E+00, 0.29073E+00, - & 0.29377E+00, 0.29662E+00, 0.29919E+00, 0.30153E+00, 0.30371E+00, - & 0.30584E+00, 0.30803E+00, 0.31054E+00, 0.31369E+00, 0.31812E+00, - & 0.32534E+00, 0.33548E+00, 0.34814E+00, 0.36079E+00, 0.37344E+00, - & 0.38609E+00, 0.39874E+00, 0.41139E+00, 0.42404E+00, 0.43669E+00, - & 0.26092E+00, 0.26243E+00, 0.26393E+00, 0.26392E+00, 0.26558E+00, - & 0.27021E+00, 0.27442E+00, 0.27820E+00, 0.28168E+00, 0.28356E+00, - & 0.28624E+00, 0.28872E+00, 0.29092E+00, 0.29288E+00, 0.29469E+00, - & 0.29644E+00, 0.29825E+00, 0.30037E+00, 0.30311E+00, 0.30707E+00, - & 0.31372E+00, 0.32318E+00, 0.33504E+00, 0.34691E+00, 0.35877E+00, - & 0.37063E+00, 0.38249E+00, 0.39435E+00, 0.40622E+00, 0.41808E+00, - & 0.25502E+00, 0.25657E+00, 0.25811E+00, 0.25810E+00, 0.25976E+00, - & 0.26414E+00, 0.26807E+00, 0.27153E+00, 0.27469E+00, 0.27623E+00, - & 0.27856E+00, 0.28068E+00, 0.28252E+00, 0.28413E+00, 0.28557E+00, - & 0.28697E+00, 0.28842E+00, 0.29016E+00, 0.29251E+00, 0.29603E+00, - & 0.30214E+00, 0.31093E+00, 0.32204E+00, 0.33314E+00, 0.34424E+00, - & 0.35534E+00, 0.36644E+00, 0.37754E+00, 0.38864E+00, 0.39974E+00, - & 0.24892E+00, 0.25051E+00, 0.25211E+00, 0.25209E+00, 0.25376E+00, - & 0.25789E+00, 0.26155E+00, 0.26470E+00, 0.26754E+00, 0.26877E+00, - & 0.27076E+00, 0.27253E+00, 0.27402E+00, 0.27529E+00, 0.27639E+00, - & 0.27744E+00, 0.27856E+00, 0.27995E+00, 0.28192E+00, 0.28503E+00, - & 0.29061E+00, 0.29877E+00, 0.30913E+00, 0.31950E+00, 0.32986E+00, - & 0.34022E+00, 0.35059E+00, 0.36095E+00, 0.37131E+00, 0.38168E+00, - & 0.24270E+00, 0.24432E+00, 0.24593E+00, 0.24592E+00, 0.24759E+00, - & 0.25149E+00, 0.25488E+00, 0.25774E+00, 0.26026E+00, 0.26118E+00, - & 0.26284E+00, 0.26428E+00, 0.26544E+00, 0.26637E+00, 0.26716E+00, - & 0.26789E+00, 0.26868E+00, 0.26974E+00, 0.27136E+00, 0.27407E+00, - & 0.27915E+00, 0.28670E+00, 0.29636E+00, 0.30601E+00, 0.31567E+00, - & 0.32533E+00, 0.33498E+00, 0.34464E+00, 0.35430E+00, 0.36395E+00, - & 0.23632E+00, 0.23797E+00, 0.23962E+00, 0.23961E+00, 0.24128E+00, - & 0.24495E+00, 0.24808E+00, 0.25065E+00, 0.25286E+00, 0.25349E+00, - & 0.25483E+00, 0.25595E+00, 0.25679E+00, 0.25742E+00, 0.25789E+00, - & 0.25832E+00, 0.25881E+00, 0.25956E+00, 0.26085E+00, 0.26319E+00, - & 0.26780E+00, 0.27476E+00, 0.28374E+00, 0.29271E+00, 0.30169E+00, - & 0.31066E+00, 0.31964E+00, 0.32862E+00, 0.33759E+00, 0.34657E+00, - & 0.22983E+00, 0.23151E+00, 0.23319E+00, 0.23318E+00, 0.23486E+00, - & 0.23831E+00, 0.24118E+00, 0.24346E+00, 0.24537E+00, 0.24572E+00, - & 0.24675E+00, 0.24756E+00, 0.24810E+00, 0.24843E+00, 0.24861E+00, - & 0.24876E+00, 0.24897E+00, 0.24943E+00, 0.25042E+00, 0.25241E+00, - & 0.25656E+00, 0.26297E+00, 0.27129E+00, 0.27962E+00, 0.28794E+00, - & 0.29627E+00, 0.30459E+00, 0.31292E+00, 0.32124E+00, 0.32957E+00, - & 0.22329E+00, 0.22499E+00, 0.22670E+00, 0.22669E+00, 0.22836E+00, - & 0.23159E+00, 0.23421E+00, 0.23620E+00, 0.23782E+00, 0.23789E+00, - & 0.23862E+00, 0.23914E+00, 0.23939E+00, 0.23943E+00, 0.23935E+00, - & 0.23923E+00, 0.23918E+00, 0.23937E+00, 0.24007E+00, 0.24173E+00, - & 0.24547E+00, 0.25134E+00, 0.25904E+00, 0.26674E+00, 0.27445E+00, - & 0.28215E+00, 0.28985E+00, 0.29755E+00, 0.30526E+00, 0.31296E+00, - & 0.21672E+00, 0.21844E+00, 0.22017E+00, 0.22015E+00, 0.22183E+00, - & 0.22484E+00, 0.22719E+00, 0.22890E+00, 0.23022E+00, 0.23003E+00, - & 0.23047E+00, 0.23070E+00, 0.23067E+00, 0.23045E+00, 0.23011E+00, - & 0.22975E+00, 0.22946E+00, 0.22940E+00, 0.22984E+00, 0.23120E+00, - & 0.23453E+00, 0.23990E+00, 0.24701E+00, 0.25412E+00, 0.26122E+00, - & 0.26833E+00, 0.27544E+00, 0.28255E+00, 0.28966E+00, 0.29676E+00, - & 0.21017E+00, 0.21191E+00, 0.21365E+00, 0.21363E+00, 0.21530E+00, - & 0.21808E+00, 0.22017E+00, 0.22159E+00, 0.22261E+00, 0.22216E+00, - & 0.22232E+00, 0.22227E+00, 0.22198E+00, 0.22151E+00, 0.22094E+00, - & 0.22034E+00, 0.21982E+00, 0.21955E+00, 0.21974E+00, 0.22081E+00, - & 0.22377E+00, 0.22866E+00, 0.23520E+00, 0.24174E+00, 0.24828E+00, - & 0.25482E+00, 0.26136E+00, 0.26791E+00, 0.27445E+00, 0.28099E+00/ - - data ((f2grrl(i,j),j=1,30),i= 81, 90)/ - & 0.20370E+00, 0.20544E+00, 0.20718E+00, 0.20717E+00, 0.20882E+00, - & 0.21135E+00, 0.21317E+00, 0.21429E+00, 0.21502E+00, 0.21432E+00, - & 0.21420E+00, 0.21388E+00, 0.21334E+00, 0.21263E+00, 0.21183E+00, - & 0.21103E+00, 0.21030E+00, 0.20982E+00, 0.20978E+00, 0.21059E+00, - & 0.21320E+00, 0.21763E+00, 0.22364E+00, 0.22964E+00, 0.23564E+00, - & 0.24164E+00, 0.24764E+00, 0.25364E+00, 0.25964E+00, 0.26564E+00, - & 0.19734E+00, 0.19909E+00, 0.20083E+00, 0.20081E+00, 0.20243E+00, - & 0.20471E+00, 0.20623E+00, 0.20705E+00, 0.20747E+00, 0.20652E+00, - & 0.20613E+00, 0.20555E+00, 0.20476E+00, 0.20383E+00, 0.20282E+00, - & 0.20182E+00, 0.20090E+00, 0.20022E+00, 0.19998E+00, 0.20055E+00, - & 0.20282E+00, 0.20683E+00, 0.21232E+00, 0.21781E+00, 0.22330E+00, - & 0.22878E+00, 0.23427E+00, 0.23976E+00, 0.24525E+00, 0.25074E+00, - & 0.19118E+00, 0.19290E+00, 0.19463E+00, 0.19462E+00, 0.19620E+00, - & 0.19818E+00, 0.19939E+00, 0.19988E+00, 0.19999E+00, 0.19879E+00, - & 0.19813E+00, 0.19729E+00, 0.19627E+00, 0.19513E+00, 0.19392E+00, - & 0.19273E+00, 0.19164E+00, 0.19078E+00, 0.19035E+00, 0.19069E+00, - & 0.19265E+00, 0.19625E+00, 0.20125E+00, 0.20625E+00, 0.21124E+00, - & 0.21624E+00, 0.22124E+00, 0.22624E+00, 0.23124E+00, 0.23624E+00, - & 0.18525E+00, 0.18694E+00, 0.18864E+00, 0.18862E+00, 0.19015E+00, - & 0.19180E+00, 0.19267E+00, 0.19283E+00, 0.19260E+00, 0.19116E+00, - & 0.19022E+00, 0.18913E+00, 0.18788E+00, 0.18653E+00, 0.18514E+00, - & 0.18377E+00, 0.18251E+00, 0.18149E+00, 0.18088E+00, 0.18101E+00, - & 0.18267E+00, 0.18589E+00, 0.19042E+00, 0.19495E+00, 0.19948E+00, - & 0.20401E+00, 0.20854E+00, 0.21307E+00, 0.21760E+00, 0.22213E+00, - & 0.17958E+00, 0.18124E+00, 0.18289E+00, 0.18288E+00, 0.18434E+00, - & 0.18562E+00, 0.18610E+00, 0.18590E+00, 0.18533E+00, 0.18364E+00, - & 0.18242E+00, 0.18108E+00, 0.17960E+00, 0.17804E+00, 0.17647E+00, - & 0.17494E+00, 0.17353E+00, 0.17235E+00, 0.17157E+00, 0.17150E+00, - & 0.17288E+00, 0.17572E+00, 0.17981E+00, 0.18389E+00, 0.18797E+00, - & 0.19205E+00, 0.19613E+00, 0.20021E+00, 0.20430E+00, 0.20838E+00, - & 0.17423E+00, 0.17584E+00, 0.17744E+00, 0.17743E+00, 0.17879E+00, - & 0.17964E+00, 0.17970E+00, 0.17911E+00, 0.17818E+00, 0.17623E+00, - & 0.17473E+00, 0.17313E+00, 0.17143E+00, 0.16967E+00, 0.16792E+00, - & 0.16623E+00, 0.16467E+00, 0.16334E+00, 0.16241E+00, 0.16215E+00, - & 0.16326E+00, 0.16575E+00, 0.16939E+00, 0.17304E+00, 0.17669E+00, - & 0.18034E+00, 0.18399E+00, 0.18763E+00, 0.19128E+00, 0.19493E+00, - & 0.16929E+00, 0.17080E+00, 0.17230E+00, 0.17229E+00, 0.17354E+00, - & 0.17389E+00, 0.17349E+00, 0.17247E+00, 0.17116E+00, 0.16895E+00, - & 0.16716E+00, 0.16530E+00, 0.16336E+00, 0.16141E+00, 0.15948E+00, - & 0.15763E+00, 0.15592E+00, 0.15445E+00, 0.15336E+00, 0.15292E+00, - & 0.15378E+00, 0.15592E+00, 0.15915E+00, 0.16238E+00, 0.16560E+00, - & 0.16883E+00, 0.17206E+00, 0.17529E+00, 0.17852E+00, 0.18175E+00, - & 0.16471E+00, 0.16610E+00, 0.16749E+00, 0.16748E+00, 0.16858E+00, - & 0.16836E+00, 0.16744E+00, 0.16597E+00, 0.16424E+00, 0.16177E+00, - & 0.15967E+00, 0.15754E+00, 0.15538E+00, 0.15322E+00, 0.15112E+00, - & 0.14910E+00, 0.14725E+00, 0.14564E+00, 0.14440E+00, 0.14379E+00, - & 0.14439E+00, 0.14619E+00, 0.14902E+00, 0.15184E+00, 0.15466E+00, - & 0.15748E+00, 0.16030E+00, 0.16312E+00, 0.16594E+00, 0.16876E+00, - & 0.16049E+00, 0.16174E+00, 0.16299E+00, 0.16298E+00, 0.16390E+00, - & 0.16303E+00, 0.16154E+00, 0.15958E+00, 0.15741E+00, 0.15466E+00, - & 0.15225E+00, 0.14984E+00, 0.14743E+00, 0.14507E+00, 0.14278E+00, - & 0.14062E+00, 0.13861E+00, 0.13686E+00, 0.13548E+00, 0.13469E+00, - & 0.13505E+00, 0.13652E+00, 0.13895E+00, 0.14137E+00, 0.14379E+00, - & 0.14621E+00, 0.14863E+00, 0.15105E+00, 0.15347E+00, 0.15589E+00, - & 0.15657E+00, 0.15766E+00, 0.15875E+00, 0.15874E+00, 0.15945E+00, - & 0.15786E+00, 0.15573E+00, 0.15324E+00, 0.15060E+00, 0.14757E+00, - & 0.14483E+00, 0.14213E+00, 0.13948E+00, 0.13690E+00, 0.13443E+00, - & 0.13210E+00, 0.12995E+00, 0.12805E+00, 0.12653E+00, 0.12557E+00, - & 0.12568E+00, 0.12684E+00, 0.12887E+00, 0.13090E+00, 0.13292E+00, - & 0.13495E+00, 0.13698E+00, 0.13901E+00, 0.14104E+00, 0.14307E+00/ - - data ((f2grrl(i,j),j=1,30),i= 91,100)/ - & 0.15299E+00, 0.15385E+00, 0.15471E+00, 0.15470E+00, 0.15515E+00, - & 0.15274E+00, 0.14992E+00, 0.14686E+00, 0.14373E+00, 0.14042E+00, - & 0.13733E+00, 0.13433E+00, 0.13142E+00, 0.12863E+00, 0.12597E+00, - & 0.12347E+00, 0.12117E+00, 0.11913E+00, 0.11746E+00, 0.11633E+00, - & 0.11621E+00, 0.11704E+00, 0.11869E+00, 0.12033E+00, 0.12197E+00, - & 0.12361E+00, 0.12526E+00, 0.12690E+00, 0.12854E+00, 0.13018E+00, - & 0.14954E+00, 0.15014E+00, 0.15074E+00, 0.15073E+00, 0.15088E+00, - & 0.14757E+00, 0.14400E+00, 0.14033E+00, 0.13668E+00, 0.13308E+00, - & 0.12964E+00, 0.12633E+00, 0.12315E+00, 0.12013E+00, 0.11729E+00, - & 0.11462E+00, 0.11216E+00, 0.10999E+00, 0.10817E+00, 0.10687E+00, - & 0.10652E+00, 0.10704E+00, 0.10830E+00, 0.10956E+00, 0.11082E+00, - & 0.11208E+00, 0.11334E+00, 0.11460E+00, 0.11586E+00, 0.11712E+00, - & 0.14610E+00, 0.14637E+00, 0.14665E+00, 0.14665E+00, 0.14644E+00, - & 0.14214E+00, 0.13777E+00, 0.13347E+00, 0.12927E+00, 0.12539E+00, - & 0.12159E+00, 0.11795E+00, 0.11451E+00, 0.11127E+00, 0.10823E+00, - & 0.10540E+00, 0.10280E+00, 0.10049E+00, 0.98531E-01, 0.97074E-01, - & 0.96492E-01, 0.96707E-01, 0.97579E-01, 0.98451E-01, 0.99323E-01, - & 0.10020E+00, 0.10107E+00, 0.10194E+00, 0.10281E+00, 0.10368E+00, - & 0.14237E+00, 0.14228E+00, 0.14219E+00, 0.14219E+00, 0.14157E+00, - & 0.13622E+00, 0.13099E+00, 0.12602E+00, 0.12125E+00, 0.11711E+00, - & 0.11294E+00, 0.10899E+00, 0.10529E+00, 0.10183E+00, 0.98612E-01, - & 0.95624E-01, 0.92893E-01, 0.90460E-01, 0.88377E-01, 0.86773E-01, - & 0.85975E-01, 0.85921E-01, 0.86487E-01, 0.87053E-01, 0.87619E-01, - & 0.88185E-01, 0.88751E-01, 0.89317E-01, 0.89883E-01, 0.90448E-01, - & 0.13811E+00, 0.13756E+00, 0.13701E+00, 0.13702E+00, 0.13592E+00, - & 0.12943E+00, 0.12331E+00, 0.11766E+00, 0.11231E+00, 0.10793E+00, - & 0.10340E+00, 0.99147E-01, 0.95202E-01, 0.91552E-01, 0.88179E-01, - & 0.85063E-01, 0.82227E-01, 0.79698E-01, 0.77515E-01, 0.75787E-01, - & 0.74794E-01, 0.74496E-01, 0.74789E-01, 0.75083E-01, 0.75376E-01, - & 0.75670E-01, 0.75963E-01, 0.76257E-01, 0.76550E-01, 0.76844E-01, - & 0.13273E+00, 0.13166E+00, 0.13059E+00, 0.13061E+00, 0.12898E+00, - & 0.12127E+00, 0.11422E+00, 0.10788E+00, 0.10197E+00, 0.97391E-01, - & 0.92537E-01, 0.88020E-01, 0.83878E-01, 0.80084E-01, 0.76608E-01, - & 0.73418E-01, 0.70528E-01, 0.67952E-01, 0.65717E-01, 0.63907E-01, - & 0.62754E-01, 0.62218E-01, 0.62209E-01, 0.62200E-01, 0.62191E-01, - & 0.62182E-01, 0.62173E-01, 0.62164E-01, 0.62155E-01, 0.62146E-01, - & 0.12549E+00, 0.12381E+00, 0.12214E+00, 0.12216E+00, 0.11993E+00, - & 0.11094E+00, 0.10296E+00, 0.95963E-01, 0.89548E-01, 0.84836E-01, - & 0.79738E-01, 0.75046E-01, 0.70801E-01, 0.66960E-01, 0.63478E-01, - & 0.60309E-01, 0.57457E-01, 0.54923E-01, 0.52717E-01, 0.50899E-01, - & 0.49654E-01, 0.48914E-01, 0.48591E-01, 0.48268E-01, 0.47946E-01, - & 0.47623E-01, 0.47301E-01, 0.46978E-01, 0.46655E-01, 0.46333E-01, - & 0.11479E+00, 0.11248E+00, 0.11018E+00, 0.11020E+00, 0.10732E+00, - & 0.97022E-01, 0.88172E-01, 0.80651E-01, 0.73884E-01, 0.69178E-01, - & 0.64017E-01, 0.59343E-01, 0.55190E-01, 0.51492E-01, 0.48189E-01, - & 0.45218E-01, 0.42573E-01, 0.40239E-01, 0.38207E-01, 0.36511E-01, - & 0.35279E-01, 0.34424E-01, 0.33873E-01, 0.33322E-01, 0.32771E-01, - & 0.32220E-01, 0.31668E-01, 0.31117E-01, 0.30566E-01, 0.30015E-01, - & 0.96910E-01, 0.94001E-01, 0.91094E-01, 0.91125E-01, 0.87618E-01, - & 0.76152E-01, 0.66755E-01, 0.59138E-01, 0.52482E-01, 0.48112E-01, - & 0.43356E-01, 0.39169E-01, 0.35554E-01, 0.32421E-01, 0.29691E-01, - & 0.27285E-01, 0.25185E-01, 0.23360E-01, 0.21783E-01, 0.20460E-01, - & 0.19453E-01, 0.18680E-01, 0.18089E-01, 0.17498E-01, 0.16908E-01, - & 0.16317E-01, 0.15726E-01, 0.15135E-01, 0.14544E-01, 0.13953E-01, - & 0.13568E-01, 0.13137E-01, 0.12706E-01, 0.12710E-01, 0.12193E-01, - & 0.10518E-01, 0.91539E-02, 0.80561E-02, 0.71013E-02, 0.64799E-02, - & 0.58046E-02, 0.52131E-02, 0.47048E-02, 0.42665E-02, 0.38863E-02, - & 0.35525E-02, 0.32623E-02, 0.30108E-02, 0.27939E-02, 0.26119E-02, - & 0.24722E-02, 0.23631E-02, 0.22778E-02, 0.21925E-02, 0.21071E-02, - & 0.20218E-02, 0.19364E-02, 0.18511E-02, 0.17658E-02, 0.16804E-02/ - - data ((flgrrl(i,j),j=1,30),i= 1, 10)/ - & 0.47804E-01, 0.44494E-01, 0.41187E-01, 0.41220E-01, 0.39702E-01, - & 0.51148E-01, 0.64404E-01, 0.78495E-01, 0.92522E-01, 0.11435E+00, - & 0.12851E+00, 0.14044E+00, 0.15083E+00, 0.15954E+00, 0.16649E+00, - & 0.17165E+00, 0.17484E+00, 0.17605E+00, 0.17548E+00, 0.17336E+00, - & 0.17013E+00, 0.16664E+00, 0.16309E+00, 0.15955E+00, 0.15600E+00, - & 0.15246E+00, 0.14891E+00, 0.14537E+00, 0.14182E+00, 0.13828E+00, - & 0.47855E-01, 0.44544E-01, 0.41235E-01, 0.41268E-01, 0.39727E-01, - & 0.50917E-01, 0.63783E-01, 0.77363E-01, 0.90828E-01, 0.11188E+00, - & 0.12538E+00, 0.13671E+00, 0.14657E+00, 0.15483E+00, 0.16142E+00, - & 0.16633E+00, 0.16937E+00, 0.17053E+00, 0.17002E+00, 0.16804E+00, - & 0.16502E+00, 0.16175E+00, 0.15845E+00, 0.15515E+00, 0.15184E+00, - & 0.14854E+00, 0.14523E+00, 0.14193E+00, 0.13862E+00, 0.13532E+00, - & 0.47911E-01, 0.44596E-01, 0.41284E-01, 0.41317E-01, 0.39753E-01, - & 0.50690E-01, 0.63172E-01, 0.76255E-01, 0.89174E-01, 0.10947E+00, - & 0.12234E+00, 0.13310E+00, 0.14245E+00, 0.15028E+00, 0.15653E+00, - & 0.16118E+00, 0.16408E+00, 0.16521E+00, 0.16474E+00, 0.16290E+00, - & 0.16006E+00, 0.15702E+00, 0.15394E+00, 0.15087E+00, 0.14780E+00, - & 0.14473E+00, 0.14165E+00, 0.13858E+00, 0.13551E+00, 0.13244E+00, - & 0.47972E-01, 0.44651E-01, 0.41334E-01, 0.41367E-01, 0.39780E-01, - & 0.50465E-01, 0.62571E-01, 0.75169E-01, 0.87560E-01, 0.10713E+00, - & 0.11939E+00, 0.12960E+00, 0.13845E+00, 0.14587E+00, 0.15180E+00, - & 0.15622E+00, 0.15897E+00, 0.16006E+00, 0.15964E+00, 0.15791E+00, - & 0.15526E+00, 0.15242E+00, 0.14957E+00, 0.14671E+00, 0.14385E+00, - & 0.14100E+00, 0.13814E+00, 0.13528E+00, 0.13243E+00, 0.12957E+00, - & 0.48030E-01, 0.44706E-01, 0.41385E-01, 0.41418E-01, 0.39809E-01, - & 0.50244E-01, 0.61980E-01, 0.74107E-01, 0.85984E-01, 0.10485E+00, - & 0.11652E+00, 0.12621E+00, 0.13459E+00, 0.14162E+00, 0.14723E+00, - & 0.15142E+00, 0.15404E+00, 0.15508E+00, 0.15470E+00, 0.15309E+00, - & 0.15062E+00, 0.14797E+00, 0.14532E+00, 0.14267E+00, 0.14001E+00, - & 0.13736E+00, 0.13471E+00, 0.13206E+00, 0.12941E+00, 0.12675E+00, - & 0.48093E-01, 0.44764E-01, 0.41437E-01, 0.41470E-01, 0.39838E-01, - & 0.50026E-01, 0.61400E-01, 0.73066E-01, 0.84446E-01, 0.10262E+00, - & 0.11374E+00, 0.12292E+00, 0.13085E+00, 0.13750E+00, 0.14281E+00, - & 0.14678E+00, 0.14927E+00, 0.15027E+00, 0.14993E+00, 0.14843E+00, - & 0.14611E+00, 0.14365E+00, 0.14119E+00, 0.13873E+00, 0.13627E+00, - & 0.13381E+00, 0.13135E+00, 0.12889E+00, 0.12643E+00, 0.12397E+00, - & 0.48153E-01, 0.44821E-01, 0.41491E-01, 0.41524E-01, 0.39869E-01, - & 0.49812E-01, 0.60829E-01, 0.72048E-01, 0.82944E-01, 0.10046E+00, - & 0.11104E+00, 0.11973E+00, 0.12723E+00, 0.13352E+00, 0.13854E+00, - & 0.14230E+00, 0.14467E+00, 0.14563E+00, 0.14532E+00, 0.14391E+00, - & 0.14175E+00, 0.13946E+00, 0.13718E+00, 0.13490E+00, 0.13263E+00, - & 0.13035E+00, 0.12807E+00, 0.12579E+00, 0.12351E+00, 0.12124E+00, - & 0.48218E-01, 0.44881E-01, 0.41545E-01, 0.41579E-01, 0.39901E-01, - & 0.49601E-01, 0.60268E-01, 0.71051E-01, 0.81479E-01, 0.98359E-01, - & 0.10842E+00, 0.11664E+00, 0.12373E+00, 0.12967E+00, 0.13442E+00, - & 0.13797E+00, 0.14022E+00, 0.14113E+00, 0.14085E+00, 0.13954E+00, - & 0.13753E+00, 0.13539E+00, 0.13329E+00, 0.13118E+00, 0.12908E+00, - & 0.12697E+00, 0.12486E+00, 0.12276E+00, 0.12065E+00, 0.11855E+00, - & 0.48281E-01, 0.44940E-01, 0.41601E-01, 0.41635E-01, 0.39934E-01, - & 0.49393E-01, 0.59716E-01, 0.70075E-01, 0.80049E-01, 0.96312E-01, - & 0.10587E+00, 0.11364E+00, 0.12034E+00, 0.12594E+00, 0.13043E+00, - & 0.13379E+00, 0.13592E+00, 0.13679E+00, 0.13654E+00, 0.13531E+00, - & 0.13343E+00, 0.13145E+00, 0.12951E+00, 0.12756E+00, 0.12562E+00, - & 0.12367E+00, 0.12173E+00, 0.11979E+00, 0.11784E+00, 0.11590E+00, - & 0.48349E-01, 0.45002E-01, 0.41658E-01, 0.41692E-01, 0.39968E-01, - & 0.49188E-01, 0.59174E-01, 0.69119E-01, 0.78653E-01, 0.94318E-01, - & 0.10339E+00, 0.11074E+00, 0.11706E+00, 0.12234E+00, 0.12657E+00, - & 0.12975E+00, 0.13176E+00, 0.13259E+00, 0.13236E+00, 0.13122E+00, - & 0.12946E+00, 0.12763E+00, 0.12583E+00, 0.12404E+00, 0.12225E+00, - & 0.12046E+00, 0.11866E+00, 0.11687E+00, 0.11508E+00, 0.11329E+00/ - - data ((flgrrl(i,j),j=1,30),i= 11, 20)/ - & 0.48414E-01, 0.45064E-01, 0.41716E-01, 0.41750E-01, 0.40004E-01, - & 0.48987E-01, 0.58642E-01, 0.68183E-01, 0.77291E-01, 0.92378E-01, - & 0.10099E+00, 0.10792E+00, 0.11388E+00, 0.11886E+00, 0.12285E+00, - & 0.12584E+00, 0.12774E+00, 0.12853E+00, 0.12832E+00, 0.12725E+00, - & 0.12561E+00, 0.12391E+00, 0.12227E+00, 0.12062E+00, 0.11897E+00, - & 0.11732E+00, 0.11567E+00, 0.11403E+00, 0.11238E+00, 0.11073E+00, - & 0.48487E-01, 0.45130E-01, 0.41776E-01, 0.41809E-01, 0.40040E-01, - & 0.48789E-01, 0.58118E-01, 0.67267E-01, 0.75961E-01, 0.90489E-01, - & 0.98656E-01, 0.10519E+00, 0.11080E+00, 0.11549E+00, 0.11924E+00, - & 0.12207E+00, 0.12386E+00, 0.12461E+00, 0.12441E+00, 0.12341E+00, - & 0.12189E+00, 0.12031E+00, 0.11880E+00, 0.11728E+00, 0.11577E+00, - & 0.11425E+00, 0.11274E+00, 0.11123E+00, 0.10971E+00, 0.10820E+00, - & 0.48555E-01, 0.45194E-01, 0.41836E-01, 0.41870E-01, 0.40078E-01, - & 0.48594E-01, 0.57603E-01, 0.66371E-01, 0.74663E-01, 0.88651E-01, - & 0.96389E-01, 0.10255E+00, 0.10782E+00, 0.11223E+00, 0.11576E+00, - & 0.11842E+00, 0.12010E+00, 0.12081E+00, 0.12063E+00, 0.11970E+00, - & 0.11827E+00, 0.11682E+00, 0.11543E+00, 0.11404E+00, 0.11265E+00, - & 0.11126E+00, 0.10987E+00, 0.10849E+00, 0.10710E+00, 0.10571E+00, - & 0.48627E-01, 0.45261E-01, 0.41898E-01, 0.41931E-01, 0.40116E-01, - & 0.48402E-01, 0.57098E-01, 0.65493E-01, 0.73396E-01, 0.86861E-01, - & 0.94187E-01, 0.99982E-01, 0.10494E+00, 0.10908E+00, 0.11239E+00, - & 0.11489E+00, 0.11647E+00, 0.11714E+00, 0.11697E+00, 0.11610E+00, - & 0.11477E+00, 0.11342E+00, 0.11215E+00, 0.11088E+00, 0.10961E+00, - & 0.10834E+00, 0.10707E+00, 0.10580E+00, 0.10453E+00, 0.10325E+00, - & 0.48700E-01, 0.45329E-01, 0.41960E-01, 0.41994E-01, 0.40156E-01, - & 0.48213E-01, 0.56601E-01, 0.64634E-01, 0.72159E-01, 0.85119E-01, - & 0.92049E-01, 0.97494E-01, 0.10215E+00, 0.10603E+00, 0.10914E+00, - & 0.11148E+00, 0.11297E+00, 0.11359E+00, 0.11343E+00, 0.11261E+00, - & 0.11137E+00, 0.11013E+00, 0.10897E+00, 0.10781E+00, 0.10665E+00, - & 0.10548E+00, 0.10432E+00, 0.10316E+00, 0.10200E+00, 0.10084E+00, - & 0.48771E-01, 0.45396E-01, 0.42024E-01, 0.42058E-01, 0.40197E-01, - & 0.48027E-01, 0.56112E-01, 0.63792E-01, 0.70952E-01, 0.83423E-01, - & 0.89971E-01, 0.95081E-01, 0.99441E-01, 0.10307E+00, 0.10599E+00, - & 0.10818E+00, 0.10957E+00, 0.11015E+00, 0.11000E+00, 0.10923E+00, - & 0.10807E+00, 0.10693E+00, 0.10587E+00, 0.10481E+00, 0.10375E+00, - & 0.10269E+00, 0.10164E+00, 0.10058E+00, 0.99518E-01, 0.98459E-01, - & 0.48846E-01, 0.45466E-01, 0.42089E-01, 0.42123E-01, 0.40239E-01, - & 0.47844E-01, 0.55632E-01, 0.62968E-01, 0.69773E-01, 0.81771E-01, - & 0.87952E-01, 0.92742E-01, 0.96821E-01, 0.10022E+00, 0.10294E+00, - & 0.10499E+00, 0.10629E+00, 0.10683E+00, 0.10668E+00, 0.10595E+00, - & 0.10488E+00, 0.10382E+00, 0.10286E+00, 0.10190E+00, 0.10093E+00, - & 0.99968E-01, 0.99005E-01, 0.98041E-01, 0.97078E-01, 0.96114E-01, - & 0.48926E-01, 0.45539E-01, 0.42154E-01, 0.42188E-01, 0.40282E-01, - & 0.47664E-01, 0.55160E-01, 0.62162E-01, 0.68622E-01, 0.80163E-01, - & 0.85991E-01, 0.90473E-01, 0.94282E-01, 0.97453E-01, 0.99993E-01, - & 0.10190E+00, 0.10311E+00, 0.10361E+00, 0.10347E+00, 0.10278E+00, - & 0.10178E+00, 0.10080E+00, 0.99931E-01, 0.99058E-01, 0.98184E-01, - & 0.97311E-01, 0.96437E-01, 0.95564E-01, 0.94691E-01, 0.93817E-01, - & 0.49003E-01, 0.45610E-01, 0.42221E-01, 0.42255E-01, 0.40325E-01, - & 0.47486E-01, 0.54696E-01, 0.61372E-01, 0.67499E-01, 0.78597E-01, - & 0.84086E-01, 0.88272E-01, 0.91824E-01, 0.94777E-01, 0.97142E-01, - & 0.98919E-01, 0.10004E+00, 0.10050E+00, 0.10035E+00, 0.99704E-01, - & 0.98767E-01, 0.97872E-01, 0.97080E-01, 0.96288E-01, 0.95495E-01, - & 0.94703E-01, 0.93911E-01, 0.93119E-01, 0.92326E-01, 0.91534E-01, - & 0.49081E-01, 0.45683E-01, 0.42288E-01, 0.42322E-01, 0.40370E-01, - & 0.47312E-01, 0.54240E-01, 0.60598E-01, 0.66401E-01, 0.77072E-01, - & 0.82234E-01, 0.86137E-01, 0.89441E-01, 0.92186E-01, 0.94383E-01, - & 0.96032E-01, 0.97072E-01, 0.97488E-01, 0.97340E-01, 0.96722E-01, - & 0.95846E-01, 0.95023E-01, 0.94306E-01, 0.93590E-01, 0.92874E-01, - & 0.92158E-01, 0.91441E-01, 0.90725E-01, 0.90009E-01, 0.89293E-01/ - - data ((flgrrl(i,j),j=1,30),i= 21, 30)/ - & 0.49159E-01, 0.45756E-01, 0.42356E-01, 0.42390E-01, 0.40415E-01, - & 0.47139E-01, 0.53792E-01, 0.59840E-01, 0.65330E-01, 0.75586E-01, - & 0.80434E-01, 0.84065E-01, 0.87132E-01, 0.89678E-01, 0.91713E-01, - & 0.93239E-01, 0.94196E-01, 0.94571E-01, 0.94419E-01, 0.93831E-01, - & 0.93011E-01, 0.92253E-01, 0.91607E-01, 0.90960E-01, 0.90314E-01, - & 0.89668E-01, 0.89021E-01, 0.88375E-01, 0.87729E-01, 0.87082E-01, - & 0.49235E-01, 0.45828E-01, 0.42424E-01, 0.42458E-01, 0.40460E-01, - & 0.46969E-01, 0.53351E-01, 0.59097E-01, 0.64283E-01, 0.74138E-01, - & 0.78684E-01, 0.82054E-01, 0.84894E-01, 0.87249E-01, 0.89129E-01, - & 0.90536E-01, 0.91413E-01, 0.91747E-01, 0.91589E-01, 0.91027E-01, - & 0.90259E-01, 0.89560E-01, 0.88978E-01, 0.88396E-01, 0.87814E-01, - & 0.87232E-01, 0.86650E-01, 0.86068E-01, 0.85486E-01, 0.84904E-01, - & 0.49317E-01, 0.45904E-01, 0.42493E-01, 0.42527E-01, 0.40507E-01, - & 0.46802E-01, 0.52916E-01, 0.58369E-01, 0.63260E-01, 0.72728E-01, - & 0.76983E-01, 0.80102E-01, 0.82725E-01, 0.84896E-01, 0.86627E-01, - & 0.87919E-01, 0.88718E-01, 0.89011E-01, 0.88847E-01, 0.88307E-01, - & 0.87585E-01, 0.86942E-01, 0.86419E-01, 0.85895E-01, 0.85372E-01, - & 0.84849E-01, 0.84325E-01, 0.83802E-01, 0.83279E-01, 0.82755E-01, - & 0.49397E-01, 0.45979E-01, 0.42563E-01, 0.42597E-01, 0.40553E-01, - & 0.46636E-01, 0.52489E-01, 0.57656E-01, 0.62260E-01, 0.71353E-01, - & 0.75328E-01, 0.78208E-01, 0.80621E-01, 0.82616E-01, 0.84204E-01, - & 0.85385E-01, 0.86109E-01, 0.86361E-01, 0.86188E-01, 0.85668E-01, - & 0.84989E-01, 0.84395E-01, 0.83926E-01, 0.83456E-01, 0.82986E-01, - & 0.82516E-01, 0.82047E-01, 0.81577E-01, 0.81107E-01, 0.80638E-01, - & 0.49477E-01, 0.46053E-01, 0.42632E-01, 0.42666E-01, 0.40600E-01, - & 0.46473E-01, 0.52068E-01, 0.56956E-01, 0.61283E-01, 0.70013E-01, - & 0.73719E-01, 0.76368E-01, 0.78581E-01, 0.80407E-01, 0.81858E-01, - & 0.82932E-01, 0.83582E-01, 0.83794E-01, 0.83610E-01, 0.83107E-01, - & 0.82466E-01, 0.81918E-01, 0.81497E-01, 0.81075E-01, 0.80654E-01, - & 0.80233E-01, 0.79812E-01, 0.79391E-01, 0.78969E-01, 0.78548E-01, - & 0.49560E-01, 0.46130E-01, 0.42701E-01, 0.42736E-01, 0.40646E-01, - & 0.46311E-01, 0.51653E-01, 0.56270E-01, 0.60327E-01, 0.68706E-01, - & 0.72153E-01, 0.74581E-01, 0.76602E-01, 0.78266E-01, 0.79584E-01, - & 0.80555E-01, 0.81134E-01, 0.81305E-01, 0.81110E-01, 0.80621E-01, - & 0.80014E-01, 0.79507E-01, 0.79129E-01, 0.78752E-01, 0.78374E-01, - & 0.77997E-01, 0.77619E-01, 0.77242E-01, 0.76864E-01, 0.76487E-01, - & 0.49640E-01, 0.46204E-01, 0.42770E-01, 0.42805E-01, 0.40693E-01, - & 0.46150E-01, 0.51244E-01, 0.55597E-01, 0.59392E-01, 0.67431E-01, - & 0.70628E-01, 0.72844E-01, 0.74682E-01, 0.76190E-01, 0.77382E-01, - & 0.78253E-01, 0.78762E-01, 0.78893E-01, 0.78685E-01, 0.78207E-01, - & 0.77630E-01, 0.77159E-01, 0.76821E-01, 0.76483E-01, 0.76144E-01, - & 0.75806E-01, 0.75468E-01, 0.75129E-01, 0.74791E-01, 0.74453E-01, - & 0.49723E-01, 0.46279E-01, 0.42839E-01, 0.42873E-01, 0.40739E-01, - & 0.45991E-01, 0.50841E-01, 0.54935E-01, 0.58478E-01, 0.66187E-01, - & 0.69145E-01, 0.71157E-01, 0.72818E-01, 0.74177E-01, 0.75246E-01, - & 0.76022E-01, 0.76462E-01, 0.76554E-01, 0.76331E-01, 0.75862E-01, - & 0.75312E-01, 0.74874E-01, 0.74570E-01, 0.74267E-01, 0.73964E-01, - & 0.73660E-01, 0.73357E-01, 0.73054E-01, 0.72750E-01, 0.72447E-01, - & 0.49798E-01, 0.46351E-01, 0.42907E-01, 0.42941E-01, 0.40785E-01, - & 0.45833E-01, 0.50442E-01, 0.54286E-01, 0.57582E-01, 0.64973E-01, - & 0.67699E-01, 0.69516E-01, 0.71009E-01, 0.72224E-01, 0.73176E-01, - & 0.73858E-01, 0.74233E-01, 0.74285E-01, 0.74047E-01, 0.73584E-01, - & 0.73057E-01, 0.72648E-01, 0.72375E-01, 0.72102E-01, 0.71829E-01, - & 0.71556E-01, 0.71283E-01, 0.71011E-01, 0.70738E-01, 0.70465E-01, - & 0.49872E-01, 0.46422E-01, 0.42974E-01, 0.43008E-01, 0.40829E-01, - & 0.45675E-01, 0.50049E-01, 0.53647E-01, 0.56705E-01, 0.63786E-01, - & 0.66291E-01, 0.67921E-01, 0.69251E-01, 0.70329E-01, 0.71167E-01, - & 0.71760E-01, 0.72070E-01, 0.72083E-01, 0.71829E-01, 0.71370E-01, - & 0.70863E-01, 0.70479E-01, 0.70233E-01, 0.69986E-01, 0.69740E-01, - & 0.69494E-01, 0.69248E-01, 0.69002E-01, 0.68756E-01, 0.68510E-01/ - - data ((flgrrl(i,j),j=1,30),i= 31, 40)/ - & 0.49948E-01, 0.46492E-01, 0.43039E-01, 0.43074E-01, 0.40872E-01, - & 0.45517E-01, 0.49659E-01, 0.53019E-01, 0.55845E-01, 0.62628E-01, - & 0.64919E-01, 0.66368E-01, 0.67542E-01, 0.68489E-01, 0.69219E-01, - & 0.69725E-01, 0.69972E-01, 0.69946E-01, 0.69674E-01, 0.69217E-01, - & 0.68727E-01, 0.68364E-01, 0.68141E-01, 0.67918E-01, 0.67695E-01, - & 0.67472E-01, 0.67249E-01, 0.67026E-01, 0.66803E-01, 0.66580E-01, - & 0.50022E-01, 0.46561E-01, 0.43103E-01, 0.43138E-01, 0.40914E-01, - & 0.45360E-01, 0.49274E-01, 0.52400E-01, 0.55002E-01, 0.61495E-01, - & 0.63580E-01, 0.64857E-01, 0.65882E-01, 0.66702E-01, 0.67327E-01, - & 0.67749E-01, 0.67935E-01, 0.67870E-01, 0.67581E-01, 0.67124E-01, - & 0.66648E-01, 0.66303E-01, 0.66099E-01, 0.65896E-01, 0.65692E-01, - & 0.65488E-01, 0.65285E-01, 0.65081E-01, 0.64877E-01, 0.64674E-01, - & 0.50097E-01, 0.46630E-01, 0.43165E-01, 0.43199E-01, 0.40954E-01, - & 0.45201E-01, 0.48891E-01, 0.51791E-01, 0.54175E-01, 0.60386E-01, - & 0.62274E-01, 0.63384E-01, 0.64267E-01, 0.64965E-01, 0.65490E-01, - & 0.65831E-01, 0.65957E-01, 0.65854E-01, 0.65545E-01, 0.65087E-01, - & 0.64622E-01, 0.64292E-01, 0.64104E-01, 0.63916E-01, 0.63729E-01, - & 0.63541E-01, 0.63353E-01, 0.63166E-01, 0.62978E-01, 0.62790E-01, - & 0.50167E-01, 0.46694E-01, 0.43224E-01, 0.43258E-01, 0.40991E-01, - & 0.45042E-01, 0.48511E-01, 0.51190E-01, 0.53362E-01, 0.59301E-01, - & 0.60998E-01, 0.61950E-01, 0.62695E-01, 0.63277E-01, 0.63705E-01, - & 0.63968E-01, 0.64036E-01, 0.63895E-01, 0.63567E-01, 0.63104E-01, - & 0.62648E-01, 0.62330E-01, 0.62155E-01, 0.61980E-01, 0.61805E-01, - & 0.61630E-01, 0.61455E-01, 0.61280E-01, 0.61105E-01, 0.60930E-01, - & 0.50230E-01, 0.46754E-01, 0.43280E-01, 0.43314E-01, 0.41026E-01, - & 0.44881E-01, 0.48133E-01, 0.50596E-01, 0.52563E-01, 0.58238E-01, - & 0.59752E-01, 0.60551E-01, 0.61164E-01, 0.61635E-01, 0.61969E-01, - & 0.62157E-01, 0.62169E-01, 0.61990E-01, 0.61641E-01, 0.61174E-01, - & 0.60724E-01, 0.60415E-01, 0.60250E-01, 0.60084E-01, 0.59919E-01, - & 0.59754E-01, 0.59589E-01, 0.59423E-01, 0.59258E-01, 0.59093E-01, - & 0.50290E-01, 0.46809E-01, 0.43332E-01, 0.43367E-01, 0.41057E-01, - & 0.44718E-01, 0.47757E-01, 0.50009E-01, 0.51777E-01, 0.57196E-01, - & 0.58533E-01, 0.59186E-01, 0.59673E-01, 0.60036E-01, 0.60281E-01, - & 0.60396E-01, 0.60353E-01, 0.60137E-01, 0.59767E-01, 0.59293E-01, - & 0.58848E-01, 0.58545E-01, 0.58386E-01, 0.58228E-01, 0.58069E-01, - & 0.57910E-01, 0.57752E-01, 0.57593E-01, 0.57434E-01, 0.57276E-01, - & 0.50348E-01, 0.46863E-01, 0.43380E-01, 0.43415E-01, 0.41084E-01, - & 0.44552E-01, 0.47381E-01, 0.49428E-01, 0.51003E-01, 0.56173E-01, - & 0.57340E-01, 0.57852E-01, 0.58219E-01, 0.58480E-01, 0.58638E-01, - & 0.58683E-01, 0.58586E-01, 0.58334E-01, 0.57943E-01, 0.57461E-01, - & 0.57017E-01, 0.56718E-01, 0.56563E-01, 0.56409E-01, 0.56254E-01, - & 0.56099E-01, 0.55945E-01, 0.55790E-01, 0.55635E-01, 0.55481E-01, - & 0.50395E-01, 0.46908E-01, 0.43423E-01, 0.43458E-01, 0.41106E-01, - & 0.44383E-01, 0.47005E-01, 0.48852E-01, 0.50239E-01, 0.55168E-01, - & 0.56172E-01, 0.56549E-01, 0.56800E-01, 0.56962E-01, 0.57038E-01, - & 0.57015E-01, 0.56866E-01, 0.56578E-01, 0.56165E-01, 0.55674E-01, - & 0.55230E-01, 0.54932E-01, 0.54779E-01, 0.54626E-01, 0.54473E-01, - & 0.54320E-01, 0.54167E-01, 0.54014E-01, 0.53861E-01, 0.53708E-01, - & 0.50442E-01, 0.46950E-01, 0.43460E-01, 0.43495E-01, 0.41123E-01, - & 0.44209E-01, 0.46628E-01, 0.48280E-01, 0.49485E-01, 0.54180E-01, - & 0.55027E-01, 0.55275E-01, 0.55415E-01, 0.55482E-01, 0.55479E-01, - & 0.55391E-01, 0.55191E-01, 0.54867E-01, 0.54432E-01, 0.53931E-01, - & 0.53485E-01, 0.53187E-01, 0.53033E-01, 0.52879E-01, 0.52725E-01, - & 0.52571E-01, 0.52417E-01, 0.52263E-01, 0.52109E-01, 0.51955E-01, - & 0.50474E-01, 0.46981E-01, 0.43491E-01, 0.43526E-01, 0.41134E-01, - & 0.44030E-01, 0.46250E-01, 0.47711E-01, 0.48739E-01, 0.53207E-01, - & 0.53903E-01, 0.54027E-01, 0.54061E-01, 0.54038E-01, 0.53958E-01, - & 0.53807E-01, 0.53559E-01, 0.53199E-01, 0.52742E-01, 0.52229E-01, - & 0.51780E-01, 0.51479E-01, 0.51322E-01, 0.51165E-01, 0.51008E-01, - & 0.50851E-01, 0.50694E-01, 0.50537E-01, 0.50380E-01, 0.50222E-01/ - - data ((flgrrl(i,j),j=1,30),i= 41, 50)/ - & 0.50501E-01, 0.47006E-01, 0.43514E-01, 0.43549E-01, 0.41138E-01, - & 0.43846E-01, 0.45868E-01, 0.47144E-01, 0.48000E-01, 0.52248E-01, - & 0.52798E-01, 0.52804E-01, 0.52737E-01, 0.52627E-01, 0.52474E-01, - & 0.52262E-01, 0.51966E-01, 0.51573E-01, 0.51093E-01, 0.50568E-01, - & 0.50114E-01, 0.49809E-01, 0.49646E-01, 0.49484E-01, 0.49322E-01, - & 0.49160E-01, 0.48998E-01, 0.48836E-01, 0.48673E-01, 0.48511E-01, - & 0.50519E-01, 0.47023E-01, 0.43529E-01, 0.43564E-01, 0.41134E-01, - & 0.43654E-01, 0.45483E-01, 0.46578E-01, 0.47268E-01, 0.51301E-01, - & 0.51712E-01, 0.51604E-01, 0.51440E-01, 0.51247E-01, 0.51024E-01, - & 0.50754E-01, 0.50412E-01, 0.49985E-01, 0.49483E-01, 0.48945E-01, - & 0.48485E-01, 0.48173E-01, 0.48004E-01, 0.47835E-01, 0.47665E-01, - & 0.47496E-01, 0.47327E-01, 0.47157E-01, 0.46988E-01, 0.46819E-01, - & 0.50525E-01, 0.47028E-01, 0.43535E-01, 0.43570E-01, 0.41121E-01, - & 0.43455E-01, 0.45093E-01, 0.46012E-01, 0.46540E-01, 0.50366E-01, - & 0.50642E-01, 0.50426E-01, 0.50169E-01, 0.49897E-01, 0.49607E-01, - & 0.49281E-01, 0.48895E-01, 0.48434E-01, 0.47910E-01, 0.47359E-01, - & 0.46891E-01, 0.46572E-01, 0.46394E-01, 0.46216E-01, 0.46038E-01, - & 0.45860E-01, 0.45682E-01, 0.45504E-01, 0.45326E-01, 0.45148E-01, - & 0.50523E-01, 0.47025E-01, 0.43530E-01, 0.43565E-01, 0.41099E-01, - & 0.43247E-01, 0.44698E-01, 0.45444E-01, 0.45817E-01, 0.49439E-01, - & 0.49587E-01, 0.49267E-01, 0.48922E-01, 0.48574E-01, 0.48220E-01, - & 0.47840E-01, 0.47411E-01, 0.46919E-01, 0.46373E-01, 0.45808E-01, - & 0.45331E-01, 0.45003E-01, 0.44815E-01, 0.44627E-01, 0.44438E-01, - & 0.44250E-01, 0.44062E-01, 0.43874E-01, 0.43686E-01, 0.43497E-01, - & 0.50500E-01, 0.47005E-01, 0.43513E-01, 0.43548E-01, 0.41065E-01, - & 0.43029E-01, 0.44295E-01, 0.44874E-01, 0.45095E-01, 0.48521E-01, - & 0.48544E-01, 0.48126E-01, 0.47696E-01, 0.47277E-01, 0.46862E-01, - & 0.46430E-01, 0.45960E-01, 0.45437E-01, 0.44869E-01, 0.44290E-01, - & 0.43803E-01, 0.43465E-01, 0.43265E-01, 0.43066E-01, 0.42866E-01, - & 0.42666E-01, 0.42466E-01, 0.42267E-01, 0.42067E-01, 0.41867E-01, - & 0.50466E-01, 0.46973E-01, 0.43482E-01, 0.43517E-01, 0.41018E-01, - & 0.42799E-01, 0.43883E-01, 0.44299E-01, 0.44374E-01, 0.47608E-01, - & 0.47514E-01, 0.47002E-01, 0.46492E-01, 0.46004E-01, 0.45530E-01, - & 0.45049E-01, 0.44540E-01, 0.43987E-01, 0.43398E-01, 0.42804E-01, - & 0.42307E-01, 0.41958E-01, 0.41745E-01, 0.41533E-01, 0.41320E-01, - & 0.41108E-01, 0.40895E-01, 0.40683E-01, 0.40470E-01, 0.40257E-01, - & 0.50414E-01, 0.46924E-01, 0.43437E-01, 0.43472E-01, 0.40958E-01, - & 0.42556E-01, 0.43462E-01, 0.43719E-01, 0.43652E-01, 0.46701E-01, - & 0.46493E-01, 0.45891E-01, 0.45305E-01, 0.44752E-01, 0.44224E-01, - & 0.43696E-01, 0.43149E-01, 0.42567E-01, 0.41957E-01, 0.41349E-01, - & 0.40841E-01, 0.40480E-01, 0.40253E-01, 0.40027E-01, 0.39801E-01, - & 0.39574E-01, 0.39348E-01, 0.39122E-01, 0.38895E-01, 0.38669E-01, - & 0.50342E-01, 0.46858E-01, 0.43376E-01, 0.43411E-01, 0.40883E-01, - & 0.42300E-01, 0.43030E-01, 0.43133E-01, 0.42929E-01, 0.45797E-01, - & 0.45481E-01, 0.44794E-01, 0.44136E-01, 0.43521E-01, 0.42940E-01, - & 0.42368E-01, 0.41785E-01, 0.41175E-01, 0.40544E-01, 0.39923E-01, - & 0.39403E-01, 0.39030E-01, 0.38789E-01, 0.38548E-01, 0.38307E-01, - & 0.38066E-01, 0.37825E-01, 0.37584E-01, 0.37343E-01, 0.37102E-01, - & 0.50249E-01, 0.46772E-01, 0.43297E-01, 0.43332E-01, 0.40790E-01, - & 0.42027E-01, 0.42586E-01, 0.42538E-01, 0.42202E-01, 0.44894E-01, - & 0.44475E-01, 0.43708E-01, 0.42981E-01, 0.42309E-01, 0.41678E-01, - & 0.41064E-01, 0.40447E-01, 0.39811E-01, 0.39160E-01, 0.38524E-01, - & 0.37993E-01, 0.37607E-01, 0.37350E-01, 0.37094E-01, 0.36838E-01, - & 0.36582E-01, 0.36326E-01, 0.36069E-01, 0.35813E-01, 0.35557E-01, - & 0.50136E-01, 0.46666E-01, 0.43198E-01, 0.43233E-01, 0.40679E-01, - & 0.41737E-01, 0.42127E-01, 0.41934E-01, 0.41471E-01, 0.43992E-01, - & 0.43474E-01, 0.42631E-01, 0.41840E-01, 0.41113E-01, 0.40436E-01, - & 0.39782E-01, 0.39132E-01, 0.38471E-01, 0.37802E-01, 0.37153E-01, - & 0.36610E-01, 0.36210E-01, 0.35938E-01, 0.35666E-01, 0.35395E-01, - & 0.35123E-01, 0.34851E-01, 0.34579E-01, 0.34307E-01, 0.34035E-01/ - - data ((flgrrl(i,j),j=1,30),i= 51, 60)/ - & 0.49998E-01, 0.46536E-01, 0.43077E-01, 0.43112E-01, 0.40548E-01, - & 0.41429E-01, 0.41652E-01, 0.41319E-01, 0.40733E-01, 0.43088E-01, - & 0.42477E-01, 0.41562E-01, 0.40711E-01, 0.39933E-01, 0.39212E-01, - & 0.38521E-01, 0.37841E-01, 0.37156E-01, 0.36470E-01, 0.35807E-01, - & 0.35253E-01, 0.34839E-01, 0.34552E-01, 0.34264E-01, 0.33976E-01, - & 0.33688E-01, 0.33401E-01, 0.33113E-01, 0.32825E-01, 0.32537E-01, - & 0.49827E-01, 0.46379E-01, 0.42933E-01, 0.42968E-01, 0.40395E-01, - & 0.41099E-01, 0.41160E-01, 0.40691E-01, 0.39987E-01, 0.42181E-01, - & 0.41481E-01, 0.40499E-01, 0.39592E-01, 0.38766E-01, 0.38004E-01, - & 0.37279E-01, 0.36571E-01, 0.35864E-01, 0.35161E-01, 0.34486E-01, - & 0.33920E-01, 0.33494E-01, 0.33190E-01, 0.32886E-01, 0.32583E-01, - & 0.32279E-01, 0.31975E-01, 0.31672E-01, 0.31368E-01, 0.31064E-01, - & 0.49631E-01, 0.46196E-01, 0.42763E-01, 0.42797E-01, 0.40217E-01, - & 0.40747E-01, 0.40649E-01, 0.40048E-01, 0.39232E-01, 0.41269E-01, - & 0.40485E-01, 0.39441E-01, 0.38482E-01, 0.37612E-01, 0.36812E-01, - & 0.36055E-01, 0.35321E-01, 0.34594E-01, 0.33875E-01, 0.33188E-01, - & 0.32612E-01, 0.32172E-01, 0.31853E-01, 0.31533E-01, 0.31214E-01, - & 0.30894E-01, 0.30575E-01, 0.30255E-01, 0.29936E-01, 0.29616E-01, - & 0.49402E-01, 0.45982E-01, 0.42565E-01, 0.42599E-01, 0.40014E-01, - & 0.40370E-01, 0.40117E-01, 0.39390E-01, 0.38466E-01, 0.40351E-01, - & 0.39489E-01, 0.38386E-01, 0.37379E-01, 0.36469E-01, 0.35634E-01, - & 0.34847E-01, 0.34089E-01, 0.33344E-01, 0.32611E-01, 0.31914E-01, - & 0.31328E-01, 0.30875E-01, 0.30540E-01, 0.30205E-01, 0.29870E-01, - & 0.29535E-01, 0.29200E-01, 0.28865E-01, 0.28530E-01, 0.28196E-01, - & 0.49132E-01, 0.45733E-01, 0.42336E-01, 0.42370E-01, 0.39781E-01, - & 0.39966E-01, 0.39563E-01, 0.38714E-01, 0.37688E-01, 0.39425E-01, - & 0.38490E-01, 0.37334E-01, 0.36283E-01, 0.35335E-01, 0.34469E-01, - & 0.33656E-01, 0.32876E-01, 0.32114E-01, 0.31368E-01, 0.30662E-01, - & 0.30066E-01, 0.29601E-01, 0.29251E-01, 0.28901E-01, 0.28552E-01, - & 0.28202E-01, 0.27852E-01, 0.27502E-01, 0.27152E-01, 0.26802E-01, - & 0.48831E-01, 0.45452E-01, 0.42074E-01, 0.42108E-01, 0.39518E-01, - & 0.39535E-01, 0.38984E-01, 0.38019E-01, 0.36896E-01, 0.38490E-01, - & 0.37487E-01, 0.36282E-01, 0.35191E-01, 0.34210E-01, 0.33316E-01, - & 0.32478E-01, 0.31679E-01, 0.30902E-01, 0.30146E-01, 0.29431E-01, - & 0.28827E-01, 0.28351E-01, 0.27987E-01, 0.27623E-01, 0.27258E-01, - & 0.26894E-01, 0.26530E-01, 0.26166E-01, 0.25801E-01, 0.25437E-01, - & 0.48486E-01, 0.45130E-01, 0.41777E-01, 0.41811E-01, 0.39222E-01, - & 0.39072E-01, 0.38380E-01, 0.37303E-01, 0.36089E-01, 0.37545E-01, - & 0.36478E-01, 0.35230E-01, 0.34103E-01, 0.33092E-01, 0.32173E-01, - & 0.31314E-01, 0.30498E-01, 0.29709E-01, 0.28944E-01, 0.28222E-01, - & 0.27611E-01, 0.27124E-01, 0.26747E-01, 0.26369E-01, 0.25992E-01, - & 0.25615E-01, 0.25237E-01, 0.24860E-01, 0.24482E-01, 0.24105E-01, - & 0.48099E-01, 0.44769E-01, 0.41442E-01, 0.41475E-01, 0.38890E-01, - & 0.38577E-01, 0.37747E-01, 0.36566E-01, 0.35266E-01, 0.36589E-01, - & 0.35464E-01, 0.34176E-01, 0.33018E-01, 0.31980E-01, 0.31040E-01, - & 0.30163E-01, 0.29333E-01, 0.28533E-01, 0.27760E-01, 0.27033E-01, - & 0.26416E-01, 0.25921E-01, 0.25531E-01, 0.25141E-01, 0.24751E-01, - & 0.24362E-01, 0.23972E-01, 0.23582E-01, 0.23193E-01, 0.22803E-01, - & 0.47664E-01, 0.44364E-01, 0.41066E-01, 0.41099E-01, 0.38521E-01, - & 0.38048E-01, 0.37086E-01, 0.35805E-01, 0.34426E-01, 0.35619E-01, - & 0.34442E-01, 0.33120E-01, 0.31934E-01, 0.30875E-01, 0.29915E-01, - & 0.29024E-01, 0.28182E-01, 0.27374E-01, 0.26596E-01, 0.25865E-01, - & 0.25244E-01, 0.24740E-01, 0.24340E-01, 0.23939E-01, 0.23538E-01, - & 0.23138E-01, 0.22737E-01, 0.22336E-01, 0.21936E-01, 0.21535E-01, - & 0.47176E-01, 0.43910E-01, 0.40648E-01, 0.40680E-01, 0.38111E-01, - & 0.37482E-01, 0.36393E-01, 0.35019E-01, 0.33567E-01, 0.34636E-01, - & 0.33412E-01, 0.32060E-01, 0.30852E-01, 0.29774E-01, 0.28800E-01, - & 0.27896E-01, 0.27045E-01, 0.26231E-01, 0.25450E-01, 0.24718E-01, - & 0.24093E-01, 0.23584E-01, 0.23173E-01, 0.22763E-01, 0.22353E-01, - & 0.21942E-01, 0.21532E-01, 0.21122E-01, 0.20712E-01, 0.20301E-01/ - - data ((flgrrl(i,j),j=1,30),i= 61, 70)/ - & 0.46637E-01, 0.43409E-01, 0.40183E-01, 0.40215E-01, 0.37658E-01, - & 0.36878E-01, 0.35668E-01, 0.34208E-01, 0.32689E-01, 0.33639E-01, - & 0.32373E-01, 0.30997E-01, 0.29770E-01, 0.28678E-01, 0.27692E-01, - & 0.26779E-01, 0.25923E-01, 0.25105E-01, 0.24323E-01, 0.23591E-01, - & 0.22965E-01, 0.22451E-01, 0.22032E-01, 0.21614E-01, 0.21196E-01, - & 0.20778E-01, 0.20360E-01, 0.19941E-01, 0.19523E-01, 0.19105E-01, - & 0.46041E-01, 0.42854E-01, 0.39670E-01, 0.39702E-01, 0.37161E-01, - & 0.36233E-01, 0.34910E-01, 0.33369E-01, 0.31790E-01, 0.32626E-01, - & 0.31325E-01, 0.29930E-01, 0.28689E-01, 0.27586E-01, 0.26592E-01, - & 0.25674E-01, 0.24814E-01, 0.23995E-01, 0.23214E-01, 0.22484E-01, - & 0.21859E-01, 0.21342E-01, 0.20917E-01, 0.20493E-01, 0.20069E-01, - & 0.19645E-01, 0.19220E-01, 0.18796E-01, 0.18372E-01, 0.17947E-01, - & 0.45386E-01, 0.42245E-01, 0.39106E-01, 0.39137E-01, 0.36616E-01, - & 0.35547E-01, 0.34116E-01, 0.32504E-01, 0.30871E-01, 0.31598E-01, - & 0.30267E-01, 0.28858E-01, 0.27608E-01, 0.26498E-01, 0.25500E-01, - & 0.24579E-01, 0.23718E-01, 0.22902E-01, 0.22124E-01, 0.21399E-01, - & 0.20776E-01, 0.20257E-01, 0.19829E-01, 0.19400E-01, 0.18972E-01, - & 0.18543E-01, 0.18114E-01, 0.17686E-01, 0.17257E-01, 0.16828E-01, - & 0.44671E-01, 0.41579E-01, 0.38489E-01, 0.38520E-01, 0.36021E-01, - & 0.34817E-01, 0.33287E-01, 0.31609E-01, 0.29931E-01, 0.30554E-01, - & 0.29200E-01, 0.27782E-01, 0.26527E-01, 0.25415E-01, 0.24416E-01, - & 0.23495E-01, 0.22637E-01, 0.21825E-01, 0.21053E-01, 0.20334E-01, - & 0.19715E-01, 0.19198E-01, 0.18767E-01, 0.18336E-01, 0.17906E-01, - & 0.17475E-01, 0.17044E-01, 0.16613E-01, 0.16182E-01, 0.15751E-01, - & 0.43888E-01, 0.40851E-01, 0.37816E-01, 0.37847E-01, 0.35376E-01, - & 0.34043E-01, 0.32421E-01, 0.30687E-01, 0.28970E-01, 0.29495E-01, - & 0.28123E-01, 0.26701E-01, 0.25446E-01, 0.24336E-01, 0.23339E-01, - & 0.22423E-01, 0.21570E-01, 0.20765E-01, 0.20001E-01, 0.19291E-01, - & 0.18679E-01, 0.18165E-01, 0.17734E-01, 0.17302E-01, 0.16871E-01, - & 0.16439E-01, 0.16008E-01, 0.15577E-01, 0.15145E-01, 0.14714E-01, - & 0.43043E-01, 0.40064E-01, 0.37087E-01, 0.37116E-01, 0.34677E-01, - & 0.33224E-01, 0.31518E-01, 0.29736E-01, 0.27988E-01, 0.28421E-01, - & 0.27037E-01, 0.25617E-01, 0.24367E-01, 0.23262E-01, 0.22272E-01, - & 0.21362E-01, 0.20518E-01, 0.19722E-01, 0.18969E-01, 0.18270E-01, - & 0.17667E-01, 0.17158E-01, 0.16729E-01, 0.16299E-01, 0.15870E-01, - & 0.15441E-01, 0.15012E-01, 0.14582E-01, 0.14153E-01, 0.13724E-01, - & 0.42126E-01, 0.39211E-01, 0.36298E-01, 0.36327E-01, 0.33924E-01, - & 0.32359E-01, 0.30579E-01, 0.28756E-01, 0.26986E-01, 0.27332E-01, - & 0.25943E-01, 0.24530E-01, 0.23289E-01, 0.22194E-01, 0.21213E-01, - & 0.20314E-01, 0.19481E-01, 0.18697E-01, 0.17958E-01, 0.17272E-01, - & 0.16679E-01, 0.16178E-01, 0.15753E-01, 0.15328E-01, 0.14902E-01, - & 0.14477E-01, 0.14052E-01, 0.13627E-01, 0.13201E-01, 0.12776E-01, - & 0.41141E-01, 0.38295E-01, 0.35450E-01, 0.35479E-01, 0.33116E-01, - & 0.31447E-01, 0.29603E-01, 0.27750E-01, 0.25964E-01, 0.26230E-01, - & 0.24842E-01, 0.23442E-01, 0.22214E-01, 0.21132E-01, 0.20165E-01, - & 0.19280E-01, 0.18460E-01, 0.17692E-01, 0.16968E-01, 0.16297E-01, - & 0.15718E-01, 0.15226E-01, 0.14807E-01, 0.14388E-01, 0.13969E-01, - & 0.13550E-01, 0.13131E-01, 0.12713E-01, 0.12294E-01, 0.11875E-01, - & 0.40089E-01, 0.37314E-01, 0.34542E-01, 0.34569E-01, 0.32252E-01, - & 0.30490E-01, 0.28592E-01, 0.26717E-01, 0.24925E-01, 0.25117E-01, - & 0.23735E-01, 0.22353E-01, 0.21143E-01, 0.20079E-01, 0.19129E-01, - & 0.18260E-01, 0.17457E-01, 0.16706E-01, 0.16000E-01, 0.15347E-01, - & 0.14783E-01, 0.14303E-01, 0.13892E-01, 0.13482E-01, 0.13072E-01, - & 0.12661E-01, 0.12251E-01, 0.11841E-01, 0.11430E-01, 0.11020E-01, - & 0.38963E-01, 0.36266E-01, 0.33572E-01, 0.33599E-01, 0.31332E-01, - & 0.29488E-01, 0.27546E-01, 0.25659E-01, 0.23869E-01, 0.23993E-01, - & 0.22624E-01, 0.21265E-01, 0.20078E-01, 0.19035E-01, 0.18105E-01, - & 0.17255E-01, 0.16472E-01, 0.15741E-01, 0.15055E-01, 0.14422E-01, - & 0.13875E-01, 0.13409E-01, 0.13009E-01, 0.12610E-01, 0.12210E-01, - & 0.11811E-01, 0.11411E-01, 0.11012E-01, 0.10612E-01, 0.10213E-01/ - - data ((flgrrl(i,j),j=1,30),i= 71, 80)/ - & 0.37769E-01, 0.35155E-01, 0.32542E-01, 0.32568E-01, 0.30357E-01, - & 0.28442E-01, 0.26468E-01, 0.24578E-01, 0.22799E-01, 0.22861E-01, - & 0.21512E-01, 0.20181E-01, 0.19021E-01, 0.18003E-01, 0.17096E-01, - & 0.16268E-01, 0.15507E-01, 0.14798E-01, 0.14135E-01, 0.13523E-01, - & 0.12996E-01, 0.12545E-01, 0.12158E-01, 0.11772E-01, 0.11385E-01, - & 0.10998E-01, 0.10611E-01, 0.10225E-01, 0.98380E-02, 0.94512E-02, - & 0.36503E-01, 0.33977E-01, 0.31454E-01, 0.31479E-01, 0.29327E-01, - & 0.27354E-01, 0.25359E-01, 0.23477E-01, 0.21717E-01, 0.21724E-01, - & 0.20400E-01, 0.19102E-01, 0.17973E-01, 0.16983E-01, 0.16102E-01, - & 0.15300E-01, 0.14564E-01, 0.13879E-01, 0.13240E-01, 0.12652E-01, - & 0.12145E-01, 0.11712E-01, 0.11340E-01, 0.10968E-01, 0.10596E-01, - & 0.10223E-01, 0.98511E-02, 0.94789E-02, 0.91067E-02, 0.87345E-02, - & 0.35178E-01, 0.32742E-01, 0.30308E-01, 0.30332E-01, 0.28246E-01, - & 0.26228E-01, 0.24224E-01, 0.22359E-01, 0.20626E-01, 0.20585E-01, - & 0.19292E-01, 0.18032E-01, 0.16937E-01, 0.15978E-01, 0.15127E-01, - & 0.14352E-01, 0.13643E-01, 0.12984E-01, 0.12371E-01, 0.11809E-01, - & 0.11325E-01, 0.10911E-01, 0.10555E-01, 0.10200E-01, 0.98440E-02, - & 0.94883E-02, 0.91327E-02, 0.87770E-02, 0.84213E-02, 0.80657E-02, - & 0.33783E-01, 0.31445E-01, 0.29108E-01, 0.29131E-01, 0.27114E-01, - & 0.25066E-01, 0.23066E-01, 0.21227E-01, 0.19530E-01, 0.19447E-01, - & 0.18190E-01, 0.16972E-01, 0.15915E-01, 0.14991E-01, 0.14171E-01, - & 0.13427E-01, 0.12746E-01, 0.12116E-01, 0.11530E-01, 0.10994E-01, - & 0.10534E-01, 0.10142E-01, 0.98041E-02, 0.94664E-02, 0.91288E-02, - & 0.87911E-02, 0.84535E-02, 0.81159E-02, 0.77782E-02, 0.74406E-02, - & 0.32333E-01, 0.30094E-01, 0.27858E-01, 0.27880E-01, 0.25937E-01, - & 0.23872E-01, 0.21888E-01, 0.20086E-01, 0.18432E-01, 0.18314E-01, - & 0.17098E-01, 0.15926E-01, 0.14911E-01, 0.14024E-01, 0.13238E-01, - & 0.12525E-01, 0.11875E-01, 0.11274E-01, 0.10718E-01, 0.10210E-01, - & 0.97756E-02, 0.94050E-02, 0.90867E-02, 0.87684E-02, 0.84501E-02, - & 0.81318E-02, 0.78135E-02, 0.74952E-02, 0.71770E-02, 0.68587E-02, - & 0.30830E-01, 0.28695E-01, 0.26562E-01, 0.26583E-01, 0.24719E-01, - & 0.22652E-01, 0.20695E-01, 0.18939E-01, 0.17337E-01, 0.17189E-01, - & 0.16019E-01, 0.14897E-01, 0.13926E-01, 0.13079E-01, 0.12329E-01, - & 0.11650E-01, 0.11031E-01, 0.10462E-01, 0.99355E-02, 0.94568E-02, - & 0.90484E-02, 0.87010E-02, 0.84032E-02, 0.81054E-02, 0.78076E-02, - & 0.75097E-02, 0.72119E-02, 0.69141E-02, 0.66163E-02, 0.63185E-02, - & 0.29277E-01, 0.27250E-01, 0.25225E-01, 0.25246E-01, 0.23465E-01, - & 0.21411E-01, 0.19494E-01, 0.17792E-01, 0.16248E-01, 0.16078E-01, - & 0.14958E-01, 0.13888E-01, 0.12964E-01, 0.12159E-01, 0.11446E-01, - & 0.10802E-01, 0.10217E-01, 0.96790E-02, 0.91838E-02, 0.87348E-02, - & 0.83534E-02, 0.80299E-02, 0.77533E-02, 0.74768E-02, 0.72002E-02, - & 0.69237E-02, 0.66471E-02, 0.63706E-02, 0.60940E-02, 0.58175E-02, - & 0.27690E-01, 0.25772E-01, 0.23856E-01, 0.23875E-01, 0.22181E-01, - & 0.20155E-01, 0.18289E-01, 0.16650E-01, 0.15171E-01, 0.14983E-01, - & 0.13917E-01, 0.12903E-01, 0.12028E-01, 0.11266E-01, 0.10592E-01, - & 0.99838E-02, 0.94322E-02, 0.89273E-02, 0.84636E-02, 0.80448E-02, - & 0.76907E-02, 0.73915E-02, 0.71367E-02, 0.68818E-02, 0.66270E-02, - & 0.63722E-02, 0.61174E-02, 0.58626E-02, 0.56078E-02, 0.53530E-02, - & 0.26067E-01, 0.24263E-01, 0.22460E-01, 0.22478E-01, 0.20874E-01, - & 0.18890E-01, 0.17087E-01, 0.15519E-01, 0.14109E-01, 0.13911E-01, - & 0.12901E-01, 0.11945E-01, 0.11120E-01, 0.10402E-01, 0.97679E-02, - & 0.91966E-02, 0.86795E-02, 0.82075E-02, 0.77756E-02, 0.73871E-02, - & 0.70604E-02, 0.67855E-02, 0.65526E-02, 0.63197E-02, 0.60868E-02, - & 0.58539E-02, 0.56210E-02, 0.53881E-02, 0.51552E-02, 0.49223E-02, - & 0.24425E-01, 0.22735E-01, 0.21047E-01, 0.21063E-01, 0.19552E-01, - & 0.17625E-01, 0.15894E-01, 0.14403E-01, 0.13069E-01, 0.12864E-01, - & 0.11914E-01, 0.11016E-01, 0.10242E-01, 0.95693E-02, 0.89760E-02, - & 0.84417E-02, 0.79594E-02, 0.75204E-02, 0.71202E-02, 0.67617E-02, - & 0.64621E-02, 0.62115E-02, 0.60003E-02, 0.57892E-02, 0.55780E-02, - & 0.53668E-02, 0.51557E-02, 0.49445E-02, 0.47333E-02, 0.45222E-02/ - - data ((flgrrl(i,j),j=1,30),i= 81, 90)/ - & 0.22778E-01, 0.21201E-01, 0.19625E-01, 0.19641E-01, 0.18224E-01, - & 0.16366E-01, 0.14717E-01, 0.13308E-01, 0.12054E-01, 0.11847E-01, - & 0.10958E-01, 0.10120E-01, 0.93977E-02, 0.87704E-02, 0.82175E-02, - & 0.77204E-02, 0.72726E-02, 0.68665E-02, 0.64975E-02, 0.61686E-02, - & 0.58955E-02, 0.56686E-02, 0.54787E-02, 0.52888E-02, 0.50989E-02, - & 0.49090E-02, 0.47191E-02, 0.45291E-02, 0.43392E-02, 0.41493E-02, - & 0.21129E-01, 0.19666E-01, 0.18204E-01, 0.18219E-01, 0.16898E-01, - & 0.15122E-01, 0.13562E-01, 0.12241E-01, 0.11068E-01, 0.10863E-01, - & 0.10036E-01, 0.92583E-02, 0.85883E-02, 0.80062E-02, 0.74936E-02, - & 0.70334E-02, 0.66198E-02, 0.62458E-02, 0.59074E-02, 0.56072E-02, - & 0.53599E-02, 0.51558E-02, 0.49864E-02, 0.48169E-02, 0.46475E-02, - & 0.44780E-02, 0.43086E-02, 0.41391E-02, 0.39697E-02, 0.38002E-02, - & 0.19491E-01, 0.18142E-01, 0.16794E-01, 0.16807E-01, 0.15583E-01, - & 0.13900E-01, 0.12436E-01, 0.11205E-01, 0.10117E-01, 0.99175E-02, - & 0.91524E-02, 0.84340E-02, 0.78154E-02, 0.72780E-02, 0.68051E-02, - & 0.63811E-02, 0.60008E-02, 0.56582E-02, 0.53494E-02, 0.50770E-02, - & 0.48543E-02, 0.46720E-02, 0.45219E-02, 0.43719E-02, 0.42218E-02, - & 0.40718E-02, 0.39217E-02, 0.37717E-02, 0.36216E-02, 0.34716E-02, - & 0.17880E-01, 0.16642E-01, 0.15405E-01, 0.15417E-01, 0.14289E-01, - & 0.12707E-01, 0.11344E-01, 0.10206E-01, 0.92024E-02, 0.90112E-02, - & 0.83078E-02, 0.76481E-02, 0.70800E-02, 0.65864E-02, 0.61522E-02, - & 0.57634E-02, 0.54156E-02, 0.51032E-02, 0.48229E-02, 0.45769E-02, - & 0.43775E-02, 0.42157E-02, 0.40837E-02, 0.39518E-02, 0.38199E-02, - & 0.36879E-02, 0.35560E-02, 0.34241E-02, 0.32921E-02, 0.31602E-02, - & 0.16299E-01, 0.15171E-01, 0.14045E-01, 0.14056E-01, 0.13024E-01, - & 0.11550E-01, 0.10291E-01, 0.92462E-02, 0.83275E-02, 0.81465E-02, - & 0.75036E-02, 0.69012E-02, 0.63821E-02, 0.59310E-02, 0.55344E-02, - & 0.51797E-02, 0.48632E-02, 0.45798E-02, 0.43266E-02, 0.41056E-02, - & 0.39281E-02, 0.37852E-02, 0.36699E-02, 0.35546E-02, 0.34393E-02, - & 0.33241E-02, 0.32088E-02, 0.30935E-02, 0.29782E-02, 0.28629E-02, - & 0.14769E-01, 0.13746E-01, 0.12724E-01, 0.12734E-01, 0.11796E-01, - & 0.10435E-01, 0.92815E-02, 0.83294E-02, 0.74940E-02, 0.73245E-02, - & 0.67405E-02, 0.61933E-02, 0.57216E-02, 0.53116E-02, 0.49512E-02, - & 0.46293E-02, 0.43426E-02, 0.40869E-02, 0.38593E-02, 0.36618E-02, - & 0.35044E-02, 0.33789E-02, 0.32787E-02, 0.31785E-02, 0.30784E-02, - & 0.29782E-02, 0.28780E-02, 0.27778E-02, 0.26776E-02, 0.25774E-02, - & 0.13289E-01, 0.12368E-01, 0.11448E-01, 0.11458E-01, 0.10611E-01, - & 0.93662E-02, 0.83181E-02, 0.74570E-02, 0.67027E-02, 0.65453E-02, - & 0.60179E-02, 0.55239E-02, 0.50976E-02, 0.47269E-02, 0.44012E-02, - & 0.41106E-02, 0.38524E-02, 0.36228E-02, 0.34194E-02, 0.32437E-02, - & 0.31049E-02, 0.29952E-02, 0.29085E-02, 0.28218E-02, 0.27351E-02, - & 0.26484E-02, 0.25617E-02, 0.24750E-02, 0.23883E-02, 0.23016E-02, - & 0.11868E-01, 0.11046E-01, 0.10225E-01, 0.10233E-01, 0.94745E-02, - & 0.83465E-02, 0.74023E-02, 0.66293E-02, 0.59531E-02, 0.58079E-02, - & 0.53346E-02, 0.48913E-02, 0.45084E-02, 0.41753E-02, 0.38827E-02, - & 0.36220E-02, 0.33908E-02, 0.31859E-02, 0.30050E-02, 0.28497E-02, - & 0.27278E-02, 0.26323E-02, 0.25575E-02, 0.24827E-02, 0.24079E-02, - & 0.23331E-02, 0.22583E-02, 0.21835E-02, 0.21087E-02, 0.20339E-02, - & 0.10511E-01, 0.97833E-02, 0.90564E-02, 0.90637E-02, 0.83901E-02, - & 0.73774E-02, 0.65340E-02, 0.58456E-02, 0.52439E-02, 0.51105E-02, - & 0.46887E-02, 0.42935E-02, 0.39520E-02, 0.36547E-02, 0.33937E-02, - & 0.31615E-02, 0.29559E-02, 0.27743E-02, 0.26146E-02, 0.24780E-02, - & 0.23716E-02, 0.22887E-02, 0.22243E-02, 0.21599E-02, 0.20955E-02, - & 0.20311E-02, 0.19668E-02, 0.19024E-02, 0.18380E-02, 0.17736E-02, - & 0.92208E-02, 0.85826E-02, 0.79448E-02, 0.79512E-02, 0.73588E-02, - & 0.64585E-02, 0.57118E-02, 0.51039E-02, 0.45728E-02, 0.44507E-02, - & 0.40775E-02, 0.37281E-02, 0.34259E-02, 0.31629E-02, 0.29321E-02, - & 0.27269E-02, 0.25458E-02, 0.23861E-02, 0.22462E-02, 0.21271E-02, - & 0.20348E-02, 0.19632E-02, 0.19079E-02, 0.18527E-02, 0.17974E-02, - & 0.17422E-02, 0.16869E-02, 0.16317E-02, 0.15764E-02, 0.15212E-02/ - - data ((flgrrl(i,j),j=1,30),i= 91,100)/ - & 0.79959E-02, 0.74424E-02, 0.68893E-02, 0.68949E-02, 0.63797E-02, - & 0.55876E-02, 0.49332E-02, 0.44014E-02, 0.39370E-02, 0.38254E-02, - & 0.34984E-02, 0.31925E-02, 0.29279E-02, 0.26977E-02, 0.24958E-02, - & 0.23166E-02, 0.21587E-02, 0.20200E-02, 0.18988E-02, 0.17959E-02, - & 0.17165E-02, 0.16551E-02, 0.16079E-02, 0.15607E-02, 0.15135E-02, - & 0.14663E-02, 0.14191E-02, 0.13719E-02, 0.13248E-02, 0.12776E-02, - & 0.68326E-02, 0.63597E-02, 0.58872E-02, 0.58919E-02, 0.54503E-02, - & 0.47615E-02, 0.41945E-02, 0.37347E-02, 0.33335E-02, 0.32317E-02, - & 0.29487E-02, 0.26845E-02, 0.24560E-02, 0.22573E-02, 0.20833E-02, - & 0.19291E-02, 0.17936E-02, 0.16749E-02, 0.15715E-02, 0.14839E-02, - & 0.14165E-02, 0.13644E-02, 0.13244E-02, 0.12844E-02, 0.12445E-02, - & 0.12045E-02, 0.11645E-02, 0.11246E-02, 0.10846E-02, 0.10446E-02, - & 0.57264E-02, 0.53301E-02, 0.49341E-02, 0.49381E-02, 0.45664E-02, - & 0.39763E-02, 0.34924E-02, 0.31009E-02, 0.27596E-02, 0.26675E-02, - & 0.24267E-02, 0.22026E-02, 0.20090E-02, 0.18410E-02, 0.16941E-02, - & 0.15642E-02, 0.14504E-02, 0.13509E-02, 0.12644E-02, 0.11914E-02, - & 0.11352E-02, 0.10918E-02, 0.10585E-02, 0.10252E-02, 0.99190E-03, - & 0.95861E-03, 0.92531E-03, 0.89201E-03, 0.85872E-03, 0.82542E-03, - & 0.46724E-02, 0.43490E-02, 0.40259E-02, 0.40291E-02, 0.37242E-02, - & 0.32287E-02, 0.28242E-02, 0.24981E-02, 0.22144E-02, 0.21321E-02, - & 0.19322E-02, 0.17471E-02, 0.15876E-02, 0.14494E-02, 0.13290E-02, - & 0.12228E-02, 0.11300E-02, 0.10492E-02, 0.97909E-03, 0.92002E-03, - & 0.87448E-03, 0.83923E-03, 0.81216E-03, 0.78509E-03, 0.75802E-03, - & 0.73094E-03, 0.70387E-03, 0.67680E-03, 0.64973E-03, 0.62265E-03, - & 0.36670E-02, 0.34133E-02, 0.31597E-02, 0.31623E-02, 0.29212E-02, - & 0.25175E-02, 0.21899E-02, 0.19272E-02, 0.16993E-02, 0.16277E-02, - & 0.14678E-02, 0.13208E-02, 0.11945E-02, 0.10856E-02, 0.99098E-03, - & 0.90787E-03, 0.83548E-03, 0.77263E-03, 0.71831E-03, 0.67259E-03, - & 0.63728E-03, 0.60978E-03, 0.58846E-03, 0.56714E-03, 0.54581E-03, - & 0.52449E-03, 0.50317E-03, 0.48185E-03, 0.46053E-03, 0.43921E-03, - & 0.27132E-02, 0.25254E-02, 0.23377E-02, 0.23396E-02, 0.21595E-02, - & 0.18461E-02, 0.15937E-02, 0.13928E-02, 0.12195E-02, 0.11601E-02, - & 0.10395E-02, 0.92958E-03, 0.83567E-03, 0.75508E-03, 0.68546E-03, - & 0.62456E-03, 0.57178E-03, 0.52613E-03, 0.48681E-03, 0.45377E-03, - & 0.42818E-03, 0.40805E-03, 0.39217E-03, 0.37629E-03, 0.36042E-03, - & 0.34454E-03, 0.32867E-03, 0.31279E-03, 0.29692E-03, 0.28104E-03, - & 0.18230E-02, 0.16968E-02, 0.15707E-02, 0.15719E-02, 0.14493E-02, - & 0.12253E-02, 0.10469E-02, 0.90644E-03, 0.78604E-03, 0.74103E-03, - & 0.65833E-03, 0.58394E-03, 0.52086E-03, 0.46712E-03, 0.42101E-03, - & 0.38092E-03, 0.34639E-03, 0.31669E-03, 0.29121E-03, 0.26984E-03, - & 0.25324E-03, 0.24002E-03, 0.22938E-03, 0.21875E-03, 0.20811E-03, - & 0.19748E-03, 0.18684E-03, 0.17621E-03, 0.16557E-03, 0.15493E-03, - & 0.10264E-02, 0.95530E-03, 0.88431E-03, 0.88502E-03, 0.81475E-03, - & 0.67822E-03, 0.57116E-03, 0.48820E-03, 0.41777E-03, 0.38894E-03, - & 0.34154E-03, 0.29960E-03, 0.26442E-03, 0.23475E-03, 0.20954E-03, - & 0.18781E-03, 0.16925E-03, 0.15340E-03, 0.13989E-03, 0.12859E-03, - & 0.11978E-03, 0.11268E-03, 0.10685E-03, 0.10103E-03, 0.95207E-04, - & 0.89383E-04, 0.83560E-04, 0.77737E-04, 0.71913E-04, 0.66090E-04, - & 0.38392E-03, 0.35735E-03, 0.33080E-03, 0.33107E-03, 0.30413E-03, - & 0.24777E-03, 0.20451E-03, 0.17171E-03, 0.14426E-03, 0.13199E-03, - & 0.11406E-03, 0.98550E-04, 0.85726E-04, 0.75067E-04, 0.66132E-04, - & 0.58519E-04, 0.52095E-04, 0.46668E-04, 0.42078E-04, 0.38263E-04, - & 0.35283E-04, 0.32852E-04, 0.30826E-04, 0.28801E-04, 0.26776E-04, - & 0.24751E-04, 0.22726E-04, 0.20700E-04, 0.18675E-04, 0.16650E-04, - & 0.42560E-04, 0.39615E-04, 0.36673E-04, 0.36702E-04, 0.33686E-04, - & 0.27193E-04, 0.22249E-04, 0.18534E-04, 0.15441E-04, 0.14016E-04, - & 0.12022E-04, 0.10312E-04, 0.89071E-05, 0.77470E-05, 0.67804E-05, - & 0.59611E-05, 0.52736E-05, 0.46957E-05, 0.42087E-05, 0.38052E-05, - & 0.34898E-05, 0.32312E-05, 0.30144E-05, 0.27976E-05, 0.25808E-05, - & 0.23640E-05, 0.21472E-05, 0.19304E-05, 0.17136E-05, 0.14968E-05/ - - data ((c2grrl(i,j),j=1,30),i= 1, 10)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 11, 20)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 21, 30)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 31, 40)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 41, 50)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 51, 60)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 61, 70)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 71, 80)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 81, 90)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((c2grrl(i,j),j=1,30),i= 91,100)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30/ - - data ((clgrrl(i,j),j=1,30),i= 1, 10)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 11, 20)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 21, 30)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 31, 40)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 41, 50)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 51, 60)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 61, 70)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 71, 80)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 81, 90)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29/ - - data ((clgrrl(i,j),j=1,30),i= 91,100)/ - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, 0.10000E-29, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, - & 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30, 0.14403E-30/ - - DO I=1, 100 - DO J=1, 30 - U_GRD(I,J) = U_GRDL(I,J) - G_GRD(I,J) = G_GRDL(I,J) - F2GRD(I,J) = F2GRDL(I,J) - FLGRD(I,J) = FLGRDL(I,J) - C2GRD(I,J) = C2GRDL(I,J) - CLGRD(I,J) = CLGRDL(I,J) - F2GRR(I,J) = F2GRRL(I,J) - FLGRR(I,J) = FLGRRL(I,J) - C2GRR(I,J) = C2GRRL(I,J) - CLGRR(I,J) = CLGRRL(I,J) - ENDDO - ENDDO - RETURN - END diff --git a/GeneratorInterface/PomwigInterface/src/pomstr.f b/GeneratorInterface/PomwigInterface/src/pomstr.f deleted file mode 100644 index 4aa7c23960f8f..0000000000000 --- a/GeneratorInterface/PomwigInterface/src/pomstr.f +++ /dev/null @@ -1,35 +0,0 @@ -* User defined pomeron structure function routine. -* B. Cox 15/05/2001 -* -* Input : X = x_{i/IP} -* Q2 = photon virtuality -* -* Output: XPQ(-6:6): PDG style array of partons, 0=gluon. -* - - SUBROUTINE POMSTR(X,Q2,XPQ) - DOUBLE PRECISION XPQ,X,Q2 - DIMENSION XPQ(-6:6) - -CCC Q2 avoid dummy argument warning. Only needed on gcc 4.3.4. - Q2=Q2 - XPQ(1)=X*(1.0-X) - XPQ(2)=X*(1.0-X) -* XPQ(1)=X**-2 -* XPQ(2)=X**-2 - XPQ(3)=0. - XPQ(4)=0. - XPQ(5)=0. - XPQ(6)=0. - XPQ(-1)=X*(1.0-X) - XPQ(-2)=X*(1.0-X) -* XPQ(-1)=X**-2 -* XPQ(-2)=X**-2 - XPQ(-3)=0. - XPQ(-4)=0. - XPQ(-5)=0. - XPQ(-6)=0. - XPQ(0)=X*(1.0-X) - - RETURN - END diff --git a/GeneratorInterface/PomwigInterface/src/qcd_2006.f b/GeneratorInterface/PomwigInterface/src/qcd_2006.f deleted file mode 100644 index 650751a4c71ca..0000000000000 --- a/GeneratorInterface/PomwigInterface/src/qcd_2006.f +++ /dev/null @@ -1,214 +0,0 @@ -*********************************************************************** -* H1 2006 DPDF Fits parameterization * -* ---------------------------------- * -* Reference: H1 Collaboration, A. Aktas et al., "Measurement and QCD * -* Analysis of the Diffractive Deep-Inelastic Scattering Cross Section * -* at HERA", DESY06-049, hep-ex/0606004, subm. to Eur.Phys.J * -* * -* Contact persons in case of questions: * -* Frank-Peter Schilling (frank-peter.schilling@cern.ch) * -* Paul Newman (newmanpr@mail.desy.de) * -* ------------------------------------------------------------------- * -* This routine returns the pomeron dpdf's (z*pdf(z,Q^2)) and the * -* pomeron and reggeon structure functions F2_{IP,IR}(beta,Q^2), * -* FL_{IP,IR}(beta,Q^2), F2c_{IP,IR}(beta,Q^2), FLc_{IP,IR}(beta,Q^2) * -* Range of validity: 0.0043 < z < 0.8 ; 8.5 < Q^2 < 1600 GeV^2 * -* Outside, the pdf's are in z an extrapolation beyond the measured * -* range and in Q^2 evolved to higher/lower scales using the NLO DGLAP * -* equations * -* The grids are provided for 0.001 < z < 1.0 ; 1 < Q^2 < 30000 GeV^2 * -* ------------------------------------------------------------------- * -* Input: z: z-pom (parton momentum fraction) * -* q2: scale^2 where dpdf's are evaluated (in GeV^2) * -* ifit: 1: Fit A 2: Fit B * -* 0: fit used by preceding call (no re-initialization * -* of data tables, much faster than using 1 or 2) * -* Output: xpq(-6:6): PDG style array of pomeron dpdf's at (z,Q2) * -* f2(2): Structure function F2 (1=pomeron,2=reggeon) * -* fl(2): Structure function FL (1=pomeron,2=reggeon) * -* c2(2): Structure function F2c (1=pomeron,2=reggeon) * -* cl(2): Structure function FLc (1=pomeron,2=reggeon) * -*********************************************************************** - - SUBROUTINE QCD_2006(Z,Q2,IFIT,XPQ,F2,FL,C2,CL) - - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - - integer nz,nq2 - double precision q2l,q2u,zl,zu - - parameter (nz=100,nq2=30) - parameter (zl =0.001d0 , zu=0.99d0 ) - parameter (q2l=1.0d0 , q2u=30000.0d0 ) - - PARAMETER (NQ2MAX=nq2,NZMAX=nz) - - INTEGER IQ2,IZ,IFIT - DIMENSION XPQ(-6:6) - double precision F2(2),FL(2),C2(2),CL(2) - - integer iwarn - data iwarn /0/ - save iwarn - parameter ( maxwarn = 10 ) - - DIMENSION U_GRD(NZMAX,NQ2MAX), - & G_GRD(NZMAX,NQ2MAX), - & F2GRD(NZMAX,NQ2MAX), - & FLGRD(NZMAX,NQ2MAX), - & C2GRD(NZMAX,NQ2MAX), - & CLGRD(NZMAX,NQ2MAX), - & F2GRR(NZMAX,NQ2MAX), - & FLGRR(NZMAX,NQ2MAX), - & C2GRR(NZMAX,NQ2MAX), - & CLGRR(NZMAX,NQ2MAX) - - COMMON /CPARAM/ U_GRD,G_GRD, - & F2GRD,FLGRD,C2GRD,CLGRD, - & F2GRR,FLGRR,C2GRR,CLGRR - -C Initialise Parameterisation from data statements - - IF(IFIT.GT.0) THEN - IF(IFIT.EQ.1) THEN - WRITE(6,*)'[QCD_2006] Initialising H1 2006 DPDF Fit A' - CALL I_2006_FITA - ELSEIF(IFIT.EQ.2) THEN - WRITE(6,*)'[QCD_2006] Initialising H1 2006 DPDF Fit B' - CALL I_2006_FITB - ELSE - WRITE(6,*)'[QCD_2006] Error: Unknown ifit=',ifit - STOP - ENDIF - ENDIF - -c health warning - - if (z<0.0043d0.or.z>0.8d0 - & .or.q2.lt.8.5d0.or.q2.gt.1600.d0) then - if (iwarn.lt.maxwarn) then - write(6,*)'[QCD_2006] Warning: using DPDFs outside range '// - & ' of validity: z,q2:',z,q2 - iwarn=iwarn+1 - if (iwarn.eq.maxwarn) then - write(6,*)'[QCD_2006] Last warning.' - endif - endif - endif - -C Initialise xpq - - DO I=-6,6 - XPQ(I)=0.D0 - ENDDO - do i=1,2 - F2(i)=0.D0 - FL(i)=0.D0 - C2(i)=0.D0 - CL(i)=0.D0 - enddo - -c check input - ZT = Z - Q2T = Q2 - Q2T=MIN(Q2U-0.01D0,MAX(Q2L,Q2T)) - ZT =MIN(ZU,MAX(ZL,ZT)) - -c get binwidth - DQ2 = DLOG(Q2U/Q2L)/DFLOAT(NQ2-1) - DZ = DLOG10(ZU/ZL)/DFLOAT(NZ-1) - -C Lower Grid Point - IQ2 = INT(DLOG(Q2T/Q2L)/DQ2)+1 - IZ = INT(DLOG10(ZT/ZL)/DZ)+1 - -C Central and boundary z,Q2 points for interpolation - DLQ2 = DLOG(Q2T) - DLQ21 = DLOG(Q2L)+DFLOAT(IQ2-1)*DQ2 - DLQ22 = DLOG(Q2L)+DFLOAT(IQ2)*DQ2 - - DLZ = DLOG10(ZT) - DLZ1 = DLOG10(ZL)+DFLOAT(IZ-1)*DZ - DLZ2 = DLOG10(ZL)+DFLOAT(IZ)*DZ - -C Light Flavour Singlet - U_T = XYINT06(DLZ1,DLZ2,DLQ21,DLQ22,DLZ,DLQ2, - + U_GRD(IZ,IQ2), U_GRD(IZ,IQ2+1), - + U_GRD(IZ+1,IQ2),U_GRD(IZ+1,IQ2+1)) - -C Gluon - G_T = XYINT06(DLZ1,DLZ2,DLQ21,DLQ22,DLZ,DLQ2, - + G_GRD(IZ,IQ2), G_GRD(IZ,IQ2+1), - + G_GRD(IZ+1,IQ2),G_GRD(IZ+1,IQ2+1)) - -c f2-pom - F2P_T= XYINT06(DLZ1,DLZ2,DLQ21,DLQ22,DLZ,DLQ2, - + F2GRD(IZ,IQ2), F2GRD(IZ,IQ2+1), - + F2GRD(IZ+1,IQ2),F2GRD(IZ+1,IQ2+1)) -c fL-pom - FLP_T= XYINT06(DLZ1,DLZ2,DLQ21,DLQ22,DLZ,DLQ2, - + FLGRD(IZ,IQ2), FLGRD(IZ,IQ2+1), - + FLGRD(IZ+1,IQ2),FLGRD(IZ+1,IQ2+1)) -c C2-pom - C2P_T= XYINT06(DLZ1,DLZ2,DLQ21,DLQ22,DLZ,DLQ2, - + C2GRD(IZ,IQ2), C2GRD(IZ,IQ2+1), - + C2GRD(IZ+1,IQ2),C2GRD(IZ+1,IQ2+1)) -c CL-pom - CLP_T= XYINT06(DLZ1,DLZ2,DLQ21,DLQ22,DLZ,DLQ2, - + CLGRD(IZ,IQ2), CLGRD(IZ,IQ2+1), - + CLGRD(IZ+1,IQ2),CLGRD(IZ+1,IQ2+1)) -c f2-mes - F2R_T= XYINT06(DLZ1,DLZ2,DLQ21,DLQ22,DLZ,DLQ2, - + F2GRR(IZ,IQ2), F2GRR(IZ,IQ2+1), - + F2GRR(IZ+1,IQ2),F2GRR(IZ+1,IQ2+1)) -c fL-mes - FLR_T= XYINT06(DLZ1,DLZ2,DLQ21,DLQ22,DLZ,DLQ2, - + FLGRR(IZ,IQ2), FLGRR(IZ,IQ2+1), - + FLGRR(IZ+1,IQ2),FLGRR(IZ+1,IQ2+1)) -c C2-mes - C2R_T= XYINT06(DLZ1,DLZ2,DLQ21,DLQ22,DLZ,DLQ2, - + C2GRR(IZ,IQ2), C2GRR(IZ,IQ2+1), - + C2GRR(IZ+1,IQ2),C2GRR(IZ+1,IQ2+1)) -c CL-mes - CLR_T= XYINT06(DLZ1,DLZ2,DLQ21,DLQ22,DLZ,DLQ2, - + CLGRR(IZ,IQ2), CLGRR(IZ,IQ2+1), - + CLGRR(IZ+1,IQ2),CLGRR(IZ+1,IQ2+1)) - - -C Fill XPQ array - XPQ(-3) = U_T - XPQ(-2) = U_T - XPQ(-1) = U_T - XPQ( 0) = G_T - XPQ( 1) = U_T - XPQ( 2) = U_T - XPQ( 3) = U_T - - F2(1)=F2P_T - F2(2)=F2R_T - - FL(1)=FLP_T - FL(2)=FLR_T - - C2(1)=C2P_T - C2(2)=C2R_T - - CL(1)=CLP_T - CL(2)=CLR_T - - RETURN - END - -*********************************************************************** - - FUNCTION XYINT06(X1,X2,Y1,Y2,XT,YT,F11,F12,F21,F22) - IMPLICIT DOUBLE PRECISION (A-H,O-Z) - - XEXP = (XT-X1)/(X2-X1) - YEXP = (YT-Y1)/(Y2-Y1) - - XYINT06 = F11 + XEXP*(F21-F11) - & + YEXP*(F12 + XEXP*(F22-F12) - (F11 + XEXP*(F21-F11))) - - RETURN - END diff --git a/GeneratorInterface/PomwigInterface/test/BuildFile.xml b/GeneratorInterface/PomwigInterface/test/BuildFile.xml deleted file mode 100644 index 25d884585eae7..0000000000000 --- a/GeneratorInterface/PomwigInterface/test/BuildFile.xml +++ /dev/null @@ -1,13 +0,0 @@ - - - - - - - - - - - - - diff --git a/GeneratorInterface/PomwigInterface/test/PomwigAnalyzer.cc b/GeneratorInterface/PomwigInterface/test/PomwigAnalyzer.cc deleted file mode 100644 index 8c87638812778..0000000000000 --- a/GeneratorInterface/PomwigInterface/test/PomwigAnalyzer.cc +++ /dev/null @@ -1,74 +0,0 @@ -// system include files -#include -#include - -// user include files -#include "PomwigAnalyzer.h" - -//#include "CLHEP/Vector/LorentzVector.h" - -PomwigAnalyzer::PomwigAnalyzer(const edm::ParameterSet& iConfig) - : hepMCToken_(consumes(iConfig.getParameter("hepMCProductTag"))), - outputFilename(iConfig.getUntrackedParameter("OutputFilename", "dummy.root")) { - usesResource(TFileService::kSharedResource); - edm::Service fs; - hist_t = fs->make("hist_t", "t proton", 100, -1.4, 0); - hist_xigen = fs->make("hist_xigen", "#xi proton", 100, 0., 0.1); -} - -// ------------ method called to for each event ------------ -void PomwigAnalyzer::analyze(const edm::Event& iEvent, const edm::EventSetup& iSetup) { - using namespace edm; - - // get HepMC::GenEvent ... - const edm::Handle& evt_h = iEvent.getHandle(hepMCToken_); - HepMC::GenEvent* evt = new HepMC::GenEvent(*(evt_h->GetEvent())); - - // look for protons - //std::vector protons; - HepMC::GenParticle* proton1 = 0; - HepMC::GenParticle* proton2 = 0; - double pz1max = 0.; - double pz2min = 0.; - for (HepMC::GenEvent::particle_iterator it = evt->particles_begin(); it != evt->particles_end(); ++it) { - double pz = (*it)->momentum().pz(); - if (((*it)->pdg_id() == 2212) && ((*it)->status() == 1) && (pz > 5200.)) { - if (pz > pz1max) { - proton1 = *it; - pz1max = pz; - } - } else if (((*it)->pdg_id() == 2212) && ((*it)->status() == 1) && (pz < -5200.)) { - if (pz < pz2min) { - proton2 = *it; - pz2min = pz; - } - } - } - if (proton1) { - std::cout << "Proton 1: " << proton1->momentum().perp() << " " << proton1->momentum().pseudoRapidity() << " " - << proton1->momentum().phi() << std::endl; - double t1 = -proton1->momentum().perp2(); - double xigen1 = 1 - proton1->momentum().pz() / 7000.; - hist_t->Fill(t1); - hist_xigen->Fill(xigen1); - } - - if (proton2) { - std::cout << "Proton 2: " << proton2->momentum().perp() << " " << proton2->momentum().pseudoRapidity() << " " - << proton2->momentum().phi() << std::endl; - double t2 = -proton2->momentum().perp2(); - double xigen2 = 1 + proton2->momentum().pz() / 7000.; - hist_t->Fill(t2); - hist_xigen->Fill(xigen2); - } -} -// ------------ method called once each job just before starting event loop ------------ -void PomwigAnalyzer::beginJob() {} - -// ------------ method called once each job just after ending the event loop ------------ -void PomwigAnalyzer::endJob() { - // save histograms into file by TFileService -} - -//define this as a plug-in -DEFINE_FWK_MODULE(PomwigAnalyzer); diff --git a/GeneratorInterface/PomwigInterface/test/PomwigAnalyzer.h b/GeneratorInterface/PomwigInterface/test/PomwigAnalyzer.h deleted file mode 100644 index 48a09b52ed69c..0000000000000 --- a/GeneratorInterface/PomwigInterface/test/PomwigAnalyzer.h +++ /dev/null @@ -1,48 +0,0 @@ -#ifndef POMWIG_ANALYZER -#define POMWIG_ANALYZER - -#include "FWCore/Framework/interface/Frameworkfwd.h" -#include "FWCore/Framework/interface/one/EDAnalyzer.h" - -#include "FWCore/Framework/interface/Event.h" -#include "FWCore/Framework/interface/MakerMacros.h" - -#include "FWCore/ParameterSet/interface/ParameterSet.h" -#include "FWCore/Utilities/interface/InputTag.h" - -#include "FWCore/ServiceRegistry/interface/Service.h" -#include "CommonTools/UtilAlgos/interface/TFileService.h" - -#include "HepMC/WeightContainer.h" -#include "HepMC/GenEvent.h" -#include "HepMC/GenParticle.h" - -#include "SimDataFormats/GeneratorProducts/interface/HepMCProduct.h" - -#include "TH1D.h" -#include "TFile.h" - -// -// class declaration -// - -class PomwigAnalyzer : public edm::one::EDAnalyzer { -public: - explicit PomwigAnalyzer(const edm::ParameterSet&); - ~PomwigAnalyzer() override = default; - -private: - //virtual void beginJob(const edm::EventSetup&) ; - void beginJob() override; - void analyze(const edm::Event&, const edm::EventSetup&) override; - void endJob() override; - - // ----------member data --------------------------- - - const edm::EDGetTokenT hepMCToken_; - const std::string outputFilename; - TH1D* hist_t; - TH1D* hist_xigen; -}; - -#endif diff --git a/GeneratorInterface/PomwigInterface/test/SDDYAnalyzer.cc b/GeneratorInterface/PomwigInterface/test/SDDYAnalyzer.cc deleted file mode 100644 index 3f6f5565fb3fe..0000000000000 --- a/GeneratorInterface/PomwigInterface/test/SDDYAnalyzer.cc +++ /dev/null @@ -1,184 +0,0 @@ -////////// Header section ///////////////////////////////////////////// -#include "FWCore/Framework/interface/one/EDAnalyzer.h" -#include "FWCore/Utilities/interface/InputTag.h" -#include "FWCore/Framework/interface/MakerMacros.h" -#include "FWCore/Framework/interface/Frameworkfwd.h" -#include "FWCore/Framework/interface/Event.h" -#include "FWCore/Framework/interface/EventSetup.h" -#include "FWCore/Framework/interface/ESHandle.h" -#include "DataFormats/Common/interface/Handle.h" - -#include "DataFormats/HepMCCandidate/interface/GenParticle.h" - -#include "FWCore/MessageLogger/interface/MessageLogger.h" -#include "FWCore/ServiceRegistry/interface/Service.h" -#include "CommonTools/UtilAlgos/interface/TFileService.h" - -#include "TH1F.h" - -class SDDYAnalyzer : public edm::one::EDAnalyzer { -public: - /// Constructor - SDDYAnalyzer(const edm::ParameterSet& pset); - - /// Destructor - ~SDDYAnalyzer() override = default; - - // Operations - - void analyze(const edm::Event& event, const edm::EventSetup& eventSetup) override; - - //virtual void beginJob(const edm::EventSetup& eventSetup) ; - void beginJob() override; - void endJob() override; - -private: - // Input from cfg file - const edm::EDGetTokenT genParticlesToken_; - const int particle1Id_; - const int particle2Id_; - const bool debug; - - // Histograms - TH1F* hPart1Pt; - TH1F* hPart1Eta; - TH1F* hPart1Phi; - TH1F* hPart2Pt; - TH1F* hPart2Eta; - TH1F* hPart2Phi; - TH1F* hBosonPt; - TH1F* hBosonEta; - TH1F* hBosonPhi; - TH1F* hBosonM; - TH1F* hEnergyvsEta; - TH1F* hXiGen; - TH1F* hProtonPt2; - - int nevents; - double Ebeam; -}; - -////////// Source code //////////////////////////////////////////////// -/// Constructor -SDDYAnalyzer::SDDYAnalyzer(const edm::ParameterSet& pset) - : genParticlesToken_(consumes(pset.getParameter("GenParticleTag"))), - particle1Id_(pset.getParameter("Particle1Id")), - particle2Id_(pset.getParameter("Particle2Id")), - debug(pset.getUntrackedParameter("debug", false)) { - usesResource(TFileService::kSharedResource); - - if (debug) { - std::cout << ">>> First particle Id: " << particle1Id_ << std::endl; - std::cout << ">>> Second particle Id: " << particle2Id_ << std::endl; - } -} - -void SDDYAnalyzer::beginJob() { - edm::Service fs; - //TH1::SetDefaultSumw2(true); - - hPart1Pt = fs->make("hPart1Pt", "hPart1Pt", 100, 0., 100.); - hPart1Eta = fs->make("hPart1Eta", "hPart1Eta", 100, -5., 5.); - hPart1Phi = fs->make("hPart1Phi", "hPart1Phi", 100, -3.141592, 3.141592); - hPart2Pt = fs->make("hPart2Pt", "hPart2Pt", 100, 0., 100.); - hPart2Eta = fs->make("hPart2Eta", "hPart2Eta", 100, -5., 5.); - hPart2Phi = fs->make("hPart2Phi", "hPart2Phi", 100, -3.141592, 3.141592); - hBosonPt = fs->make("hBosonPt", "hBosonPt", 100, 0., 50.); - hBosonEta = fs->make("hBosonEta", "hBosonEta", 100, -5., 5.); - hBosonPhi = fs->make("hBosonPhi", "hBosonPhi", 100, -3.141592, 3.141592); - hBosonM = fs->make("hBosonM", "hBosonM", 100, 40., 100.); - - hEnergyvsEta = fs->make("hEnergyvsEta", "hEnergyvsEta", 100, -15.0, 15.0); - hXiGen = fs->make("hXiGen", "hXiGen", 100, 0., 0.21); - hProtonPt2 = fs->make("hProtonPt2", "hProtonPt2", 100, 0., 3.0); - - nevents = 0; - Ebeam = 5000.; //Fix get the Ebeam from the event -} - -void SDDYAnalyzer::endJob() { hEnergyvsEta->Scale(1 / (float)nevents); } - -void SDDYAnalyzer::analyze(const edm::Event& ev, const edm::EventSetup&) { - nevents++; - - // Generator Information - const edm::Handle& genParticles = ev.getHandle(genParticlesToken_); - double pz1max = 0.; - double pz2min = 0.; - reco::GenParticleCollection::const_iterator proton1 = genParticles->end(); - reco::GenParticleCollection::const_iterator proton2 = genParticles->end(); - reco::GenParticleCollection::const_iterator particle1 = genParticles->end(); - reco::GenParticleCollection::const_iterator particle2 = genParticles->end(); - for (reco::GenParticleCollection::const_iterator genpart = genParticles->begin(); genpart != genParticles->end(); - ++genpart) { - //std::cout << ">>>>>>> pid,status,px,py,px,e= " << genpart->pdgId() << " , " << genpart->status() << " , " << genpart->px() << " , " << genpart->py() << " , " << genpart->pz() << " , " << genpart->energy() << std::endl; - if (genpart->status() != 1) - continue; - - hEnergyvsEta->Fill(genpart->eta(), genpart->energy()); - - double pz = genpart->pz(); - if ((genpart->pdgId() == 2212) && (pz > 0.75 * Ebeam)) { - if (pz > pz1max) { - proton1 = genpart; - pz1max = pz; - } - } else if ((genpart->pdgId() == 2212) && (pz < -0.75 * Ebeam)) { - if (pz < pz2min) { - proton2 = genpart; - pz2min = pz; - } - } - - //Fix add constraint on mother/daughter relation - if ((particle1 == genParticles->end()) && (abs(genpart->pdgId()) == abs(particle1Id_))) { - particle1 = genpart; - continue; - } - if ((particle2 == genParticles->end()) && (abs(genpart->pdgId()) == abs(particle2Id_))) { - particle2 = genpart; - continue; - } - } - - if (proton1 != genParticles->end()) { - if (debug) - std::cout << "Proton 1: " << proton1->pt() << " " << proton1->eta() << " " << proton1->phi() << std::endl; - double xigen1 = 1 - proton1->pz() / Ebeam; - hXiGen->Fill(xigen1); - hProtonPt2->Fill(proton1->pt() * proton1->pt()); - } - - if (proton2 != genParticles->end()) { - if (debug) - std::cout << "Proton 2: " << proton2->pt() << " " << proton2->eta() << " " << proton2->phi() << std::endl; - double xigen2 = 1 + proton2->pz() / Ebeam; - hXiGen->Fill(xigen2); - hProtonPt2->Fill(proton2->pt() * proton2->pt()); - } - - if ((particle1 != genParticles->end()) && (particle2 != genParticles->end())) { - if (debug) - std::cout << ">>> particle 1 pt,eta: " << particle1->pt() << " , " << particle1->eta() << std::endl; - hPart1Pt->Fill(particle1->pt()); - hPart1Eta->Fill(particle1->eta()); - hPart1Phi->Fill(particle1->phi()); - - if (debug) - std::cout << ">>> particle 2 pt,eta: " << particle2->pt() << " , " << particle2->eta() << std::endl; - hPart2Pt->Fill(particle2->pt()); - hPart2Eta->Fill(particle2->eta()); - hPart2Phi->Fill(particle2->phi()); - - math::XYZTLorentzVector myboson(particle1->px() + particle2->px(), - particle1->py() + particle2->py(), - particle1->pz() + particle2->pz(), - particle1->energy() + particle2->energy()); - hBosonPt->Fill(myboson.pt()); - hBosonEta->Fill(myboson.eta()); - hBosonPhi->Fill(myboson.phi()); - hBosonM->Fill(myboson.M()); - } -} - -DEFINE_FWK_MODULE(SDDYAnalyzer); diff --git a/GeneratorInterface/PomwigInterface/test/SDDijetsAnalyzer.cc b/GeneratorInterface/PomwigInterface/test/SDDijetsAnalyzer.cc deleted file mode 100644 index 977088c1f4bbf..0000000000000 --- a/GeneratorInterface/PomwigInterface/test/SDDijetsAnalyzer.cc +++ /dev/null @@ -1,217 +0,0 @@ -////////// Header section ///////////////////////////////////////////// -#include "FWCore/Framework/interface/one/EDAnalyzer.h" -#include "FWCore/Utilities/interface/InputTag.h" -#include "FWCore/Framework/interface/MakerMacros.h" -#include "FWCore/Framework/interface/Frameworkfwd.h" -#include "FWCore/Framework/interface/Event.h" -#include "FWCore/Framework/interface/EventSetup.h" -#include "FWCore/Framework/interface/ESHandle.h" -#include "DataFormats/Common/interface/Handle.h" - -#include "DataFormats/Common/interface/View.h" -#include "DataFormats/HepMCCandidate/interface/GenParticle.h" -#include "DataFormats/JetReco/interface/GenJetCollection.h" - -#include "FWCore/MessageLogger/interface/MessageLogger.h" -#include "FWCore/ServiceRegistry/interface/Service.h" -#include "CommonTools/UtilAlgos/interface/TFileService.h" - -#include "TH1F.h" - -class SDDijetsAnalyzer : public edm::one::EDAnalyzer { -public: - /// Constructor - SDDijetsAnalyzer(const edm::ParameterSet& pset); - - /// Destructor - ~SDDijetsAnalyzer() override = default; - - // Operations - - void analyze(const edm::Event& event, const edm::EventSetup& eventSetup) override; - - //virtual void beginJob(const edm::EventSetup& eventSetup) ; - void beginJob() override; - void endJob() override; - -private: - // Input from cfg file - const edm::EDGetTokenT genParticlesToken_; - const edm::EDGetTokenT tok_jets_; - const double Ebeam; - const bool debug; - - // Histograms - TH1F* hJet1Pt; - TH1F* hJet1Eta; - TH1F* hJet1Phi; - TH1F* hJet2Pt; - TH1F* hJet2Eta; - TH1F* hJet2Phi; - TH1F* hJetDeltaEta; - TH1F* hJetDeltaPhi; - TH1F* hJetDeltaPt; - //TH1F* hThrust; - TH1F* hEnergyvsEta; - TH1F* hXiGen; - TH1F* hProtonPt2; - - int nevents; -}; - -////////// Source code //////////////////////////////////////////////// - -struct jetptcomp { - bool operator()(std::pair jet1, - std::pair jet2) { - return (jet1.second > jet2.second); - } -} myjetptcomp; - -/// Constructor -SDDijetsAnalyzer::SDDijetsAnalyzer(const edm::ParameterSet& pset) - : genParticlesToken_(consumes(pset.getParameter("GenParticleTag"))), - tok_jets_(consumes(pset.getParameter("GenJetTag"))), - Ebeam(pset.getParameter("EBeam")), - debug(pset.getUntrackedParameter("debug", false)) { - usesResource(TFileService::kSharedResource); -} - -void SDDijetsAnalyzer::beginJob() { - edm::Service fs; - //TH1::SetDefaultSumw2(true); - - hJet1Pt = fs->make("hJet1Pt", "hJet1Pt", 100, 0., 200.); - hJet1Eta = fs->make("hJet1Eta", "hJet1Eta", 100, -5., 5.); - hJet1Phi = fs->make("hJet1Phi", "hJet1Phi", 100, -3.141592, 3.141592); - hJet2Pt = fs->make("hJet2Pt", "hJet2Pt", 100, 0., 200.); - hJet2Eta = fs->make("hJet2Eta", "hJet2Eta", 100, -5., 5.); - hJet2Phi = fs->make("hJet2Phi", "hJet2Phi", 100, -3.141592, 3.141592); - - hJetDeltaEta = fs->make("hJetDeltaEta", "hJetDeltaEta", 100, -5., 5.); - hJetDeltaPhi = fs->make("hJetDeltaPhi", "hJetDeltaPhi", 100, -3.141592, 3.141592); - hJetDeltaPt = fs->make("hJetDeltaPt", "hJetDeltaPt", 100, 0., 100.); - //hThrust = fs->make("hThrust","hThrust",100,0.,1.); - - hEnergyvsEta = fs->make("hEnergyvsEta", "hEnergyvsEta", 100, -15.0, 15.0); - hXiGen = fs->make("hXiGen", "hXiGen", 100, 0., 0.21); - hProtonPt2 = fs->make("hProtonPt2", "hProtonPt2", 100, 0., 3.0); - - nevents = 0; -} - -void SDDijetsAnalyzer::endJob() { hEnergyvsEta->Scale(1 / (float)nevents); } - -void SDDijetsAnalyzer::analyze(const edm::Event& ev, const edm::EventSetup&) { - nevents++; - - // Generator Information - const edm::Handle& genParticles = ev.getHandle(genParticlesToken_); - double pz1max = 0.; - double pz2min = 0.; - reco::GenParticleCollection::const_iterator proton1 = genParticles->end(); - reco::GenParticleCollection::const_iterator proton2 = genParticles->end(); - //std::vector myStableParticles; - //for(size_t i = 0; i < genParticles->size(); ++i) { - for (reco::GenParticleCollection::const_iterator genpart = genParticles->begin(); genpart != genParticles->end(); - ++genpart) { - //const reco::GenParticle& genpart = (*genParticles)[i]; - //LogTrace("") << ">>>>>>> pid,status,px,py,px,e= " << genpart.pdgId() << " , " << genpart.status() << " , " << genpart.px() << " , " << genpart.py() << " , " << genpart.pz() << " , " << genpart.energy(); - if (genpart->status() != 1) - continue; - //myStableParticles.push_back(*genpart); - hEnergyvsEta->Fill(genpart->eta(), genpart->energy()); - - double pz = genpart->pz(); - if ((genpart->pdgId() == 2212) && (pz > 0.75 * Ebeam)) { - if (pz > pz1max) { - proton1 = genpart; - pz1max = pz; - } - } else if ((genpart->pdgId() == 2212) && (pz < -0.75 * Ebeam)) { - if (pz < pz2min) { - proton2 = genpart; - pz2min = pz; - } - } - } - - if (proton1 != genParticles->end()) { - if (debug) - std::cout << "Proton 1: " << proton1->pt() << " " << proton1->eta() << " " << proton1->phi() << std::endl; - double xigen1 = 1 - proton1->pz() / Ebeam; - hXiGen->Fill(xigen1); - hProtonPt2->Fill(proton1->pt() * proton1->pt()); - } - - if (proton2 != genParticles->end()) { - if (debug) - std::cout << "Proton 2: " << proton2->pt() << " " << proton2->eta() << " " << proton2->phi() << std::endl; - double xigen2 = 1 + proton2->pz() / Ebeam; - hXiGen->Fill(xigen2); - hProtonPt2->Fill(proton2->pt() * proton2->pt()); - } - - const edm::Handle& genJets = ev.getHandle(tok_jets_); - if (genJets->size() < 2) - return; - - /*reco::GenJetCollection::const_iterator jet1 = genJets->end(); - reco::GenJetCollection::const_iterator jet2 = genJets->end(); - double firstpt = -1.; - double secondpt = -1.; - for(reco::GenJetCollection::const_iterator genjet = genJets->begin(); genjet != genJets->end(); ++genjet){ - if(genjet->pt() > firstpt){ - firstpt = genjet->pt(); - jet2 = jet1; - jet1 = genjet; - } else if(genjet->pt() > secondpt){ - secondpt = genjet->pt(); - jet2 = genjet; - } - }*/ - /*std::vector > genjetvec; - int jetcount = 0; - for(reco::GenJetCollection::const_iterator genjet = genJets->begin(); genjet != genJets->end(); ++genjet){ - if(debug) std::cout << " Jet " << jetcount++ << " pt: " << genjet->pt() << std::endl; - genjetvec.push_back(std::make_pair(genjet,genjet->pt())); - } - std::sort(genjetvec.begin(),genjetvec.end(),myjetptcomp); - reco::GenJetCollection::const_iterator jet1 = genjetvec[0].first; - reco::GenJetCollection::const_iterator jet2 = genjetvec[1].first; - if(debug){ - std::cout << ">>> After sorting: " << std::endl; - for(size_t k = 0; k < genjetvec.size(); ++k) std::cout << " Jet " << k << " pt: " << genjetvec[k].second << std::endl; - }*/ - - const reco::GenJet* jet1 = &(*genJets)[0]; - const reco::GenJet* jet2 = &(*genJets)[1]; - - if (jet1 && jet2) { - if (debug) - std::cout << ">>> Leading Jet pt,eta: " << jet1->pt() << " , " << jet1->eta() << std::endl; - hJet1Pt->Fill(jet1->pt()); - hJet1Eta->Fill(jet1->eta()); - hJet1Phi->Fill(jet1->phi()); - - if (debug) - std::cout << ">>> Second leading Jet pt,eta: " << jet2->pt() << " , " << jet2->eta() << std::endl; - hJet2Pt->Fill(jet2->pt()); - hJet2Eta->Fill(jet2->eta()); - hJet2Phi->Fill(jet2->phi()); - - hJetDeltaEta->Fill(jet1->eta() - jet2->eta()); - hJetDeltaPhi->Fill(jet1->phi() - jet2->phi()); - hJetDeltaPt->Fill(jet1->pt() - jet2->pt()); - } - - /*//Calculate Thrust - edm::Handle > genParticlesVisible; - ev.getByLabel("genParticlesVisible", genParticlesVisible); - Thrust mythrust(genParticlesVisible->begin(),genParticlesVisible->end()); - double thrustValue = mythrust.thrust(); - if(debug) std::cout << ">>> Event Thrust: " << thrustValue << std::endl; - hThrust->Fill(thrustValue);*/ -} - -DEFINE_FWK_MODULE(SDDijetsAnalyzer); diff --git a/GeneratorInterface/PomwigInterface/test/Z2muAnalyzer.cc b/GeneratorInterface/PomwigInterface/test/Z2muAnalyzer.cc deleted file mode 100644 index 7319da21b68e3..0000000000000 --- a/GeneratorInterface/PomwigInterface/test/Z2muAnalyzer.cc +++ /dev/null @@ -1,64 +0,0 @@ -// -// Original Author: Fabian Stoeckli -// Created: Tue Nov 14 13:43:02 CET 2006 -// -// Modified for PomwigInterface test for Z/gamma* -> 2mu -// 02/2007 -// - -// system include files -#include -#include - -// user include files -#include "Z2muAnalyzer.h" - -#include "CLHEP/Vector/LorentzVector.h" - -Z2muAnalyzer::Z2muAnalyzer(const edm::ParameterSet& iConfig) - : hepMCToken_(consumes(iConfig.getParameter("hepMCProductTag"))), - outputFilename(iConfig.getUntrackedParameter("OutputFilename", "dummy.root")) { - usesResource(TFileService::kSharedResource); - edm::Service fs; - invmass_histo = fs->make("invmass_histo", "invmass_histo", 100, 0., 100.); -} - -// ------------ method called to for each event ------------ -void Z2muAnalyzer::analyze(const edm::Event& iEvent, const edm::EventSetup& iSetup) { - // get HepMC::GenEvent ... - const edm::Handle& evt_h = iEvent.getHandle(hepMCToken_); - HepMC::GenEvent* evt = new HepMC::GenEvent(*(evt_h->GetEvent())); - - // look for stable muons - std::vector muons; - for (HepMC::GenEvent::particle_iterator it = evt->particles_begin(); it != evt->particles_end(); ++it) { - if (abs((*it)->pdg_id()) == 13 && (*it)->status() == 1) - muons.push_back(*it); - } - - // if there are at least two muons - // calculate invarant mass of first two and fill it into histogram - double inv_mass = 0.0; - std::cout << muons.size() << std::endl; - if (muons.size() >= 2) { - CLHEP::HepLorentzVector tot_momentum(muons[0]->momentum().px() + muons[1]->momentum().px(), - muons[0]->momentum().py() + muons[1]->momentum().py(), - muons[0]->momentum().pz() + muons[1]->momentum().pz(), - muons[0]->momentum().e() + muons[1]->momentum().e()); - inv_mass = sqrt(tot_momentum.m2()); - } - - invmass_histo->Fill(inv_mass); - std::cout << inv_mass << std::endl; -} - -// ------------ method called once each job just before starting event loop ------------ -void Z2muAnalyzer::beginJob() {} - -// ------------ method called once each job just after ending the event loop ------------ -void Z2muAnalyzer::endJob() { - // save histograms into file -} - -//define this as a plug-in -DEFINE_FWK_MODULE(Z2muAnalyzer); diff --git a/GeneratorInterface/PomwigInterface/test/Z2muAnalyzer.h b/GeneratorInterface/PomwigInterface/test/Z2muAnalyzer.h deleted file mode 100644 index 64819acc11377..0000000000000 --- a/GeneratorInterface/PomwigInterface/test/Z2muAnalyzer.h +++ /dev/null @@ -1,48 +0,0 @@ -#ifndef Z2MU_ANALYZER -#define Z2MU_ANALYZER - -#include "FWCore/Framework/interface/Frameworkfwd.h" -#include "FWCore/Framework/interface/one/EDAnalyzer.h" - -#include "FWCore/Framework/interface/Event.h" -#include "FWCore/Framework/interface/MakerMacros.h" - -#include "FWCore/ParameterSet/interface/ParameterSet.h" -#include "FWCore/Utilities/interface/InputTag.h" - -#include "FWCore/ServiceRegistry/interface/Service.h" -#include "CommonTools/UtilAlgos/interface/TFileService.h" - -#include "HepMC/WeightContainer.h" -#include "HepMC/GenEvent.h" -#include "HepMC/GenParticle.h" - -#include "SimDataFormats/GeneratorProducts/interface/HepMCProduct.h" - -#include "TH1D.h" -#include "TFile.h" - -// -// class decleration -// - -class Z2muAnalyzer : public edm::one::EDAnalyzer { -public: - explicit Z2muAnalyzer(const edm::ParameterSet&); - ~Z2muAnalyzer() override = default; - -private: - //virtual void beginJob(const edm::EventSetup&); - void beginJob() override; - void analyze(const edm::Event&, const edm::EventSetup&) override; - void endJob() override; - - // ----------member data --------------------------- - - const edm::EDGetTokenT hepMCToken_; - const std::string outputFilename; - TH1D* weight_histo; - TH1D* invmass_histo; -}; - -#endif diff --git a/GeneratorInterface/PomwigInterface/test/analyzeSDDY_cfg.py b/GeneratorInterface/PomwigInterface/test/analyzeSDDY_cfg.py deleted file mode 100644 index 22f1e91c18606..0000000000000 --- a/GeneratorInterface/PomwigInterface/test/analyzeSDDY_cfg.py +++ /dev/null @@ -1,30 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -process = cms.Process('Analysis') - -process.maxEvents = cms.untracked.PSet( - input = cms.untracked.int32(-1) -) - -process.source = cms.Source("PoolSource", - fileNames = cms.untracked.vstring("file:POMWIG_SingleDiffractivePlusWmunu_10TeV_cff_py_GEN.root") -) - -process.load('SimGeneral.HepPDTESSource.pythiapdt_cfi') -process.load('PhysicsTools.HepMCCandAlgos.genParticles_cfi') - -process.genParticles.abortOnUnknownPDGCode = False - -process.SDDY = cms.EDAnalyzer("SDDYAnalyzer", - GenParticleTag = cms.InputTag("genParticles"), - Particle1Id = cms.int32(13), - Particle2Id = cms.int32(14), - debug = cms.untracked.bool(True) -) - -process.add_(cms.Service("TFileService", - fileName = cms.string("analysisSDDY_histos.root") - ) -) - -process.analysis = cms.Path(process.genParticles*process.SDDY) diff --git a/GeneratorInterface/PomwigInterface/test/analyzeSDDijets_cfg.py b/GeneratorInterface/PomwigInterface/test/analyzeSDDijets_cfg.py deleted file mode 100644 index af1a7f03a0e9c..0000000000000 --- a/GeneratorInterface/PomwigInterface/test/analyzeSDDijets_cfg.py +++ /dev/null @@ -1,54 +0,0 @@ -import FWCore.ParameterSet.Config as cms - -process = cms.Process('Analysis') - -process.maxEvents = cms.untracked.PSet( - input = cms.untracked.int32(-1) -) - -process.source = cms.Source("PoolSource", - fileNames = cms.untracked.vstring("file:POMWIG_SingleDiffractiveDijetsPlus_8TeV_Pt_30_cff_py_GEN.root") -) - -#process.load('SimGeneral.HepPDTESSource.pythiapdt_cfi') -#process.load('PhysicsTools.HepMCCandAlgos.genParticles_cfi') -#process.load('RecoJets.Configuration.GenJetParticles_cff') -#process.load('RecoJets.Configuration.RecoGenJets_cff') - -#process.genParticles.abortOnUnknownPDGCode = False - -process.genParticlesVisible = cms.EDFilter("GenJetParticleRefSelector", - includeList = cms.vstring(), - src = cms.InputTag("genParticles"), - stableOnly = cms.bool(True), - verbose = cms.untracked.bool(True), - excludeList = cms.vstring('nu_e', - 'nu_mu', - 'nu_tau', - 'mu-', - '~chi_10', - '~nu_eR', - '~nu_muR', - '~nu_tauR', - 'Graviton', - '~Gravitino', - 'nu_Re', - 'nu_Rmu', - 'nu_Rtau', - 'nu*_e0', - 'Graviton*') -) - -process.SDDijets = cms.EDAnalyzer("SDDijetsAnalyzer", - GenParticleTag = cms.InputTag("genParticles"), - GenJetTag = cms.InputTag("ak5GenJets"), - EBeam = cms.double(4000.0), - debug = cms.untracked.bool(True) -) - -process.add_(cms.Service("TFileService", - fileName = cms.string("analysisSDDijets_histos.root") - ) -) - -process.analysis = cms.Path(process.genParticlesVisible*process.SDDijets) diff --git a/PhysicsTools/JetMCAlgos/interface/Herwig6PartonSelector.h b/PhysicsTools/JetMCAlgos/interface/Herwig6PartonSelector.h deleted file mode 100644 index d8a3fe19dccb3..0000000000000 --- a/PhysicsTools/JetMCAlgos/interface/Herwig6PartonSelector.h +++ /dev/null @@ -1,19 +0,0 @@ -#ifndef PhysicsTools_JetMCAlgos_Herwig6PartonSelector_H -#define PhysicsTools_JetMCAlgos_Herwig6PartonSelector_H - -/**\class Herwig6PartonSelector Herwig6PartonSelector.h PhysicsTools/JetMCAlgos/interface/Herwig6PartonSelector.h - * \brief Herwig6 parton selector derived from the base parton selector - */ - -#include "PhysicsTools/JetMCAlgos/interface/BasePartonSelector.h" - -class Herwig6PartonSelector : public BasePartonSelector { -public: - Herwig6PartonSelector(); - ~Herwig6PartonSelector() override; - - void run(const edm::Handle& particles, - std::unique_ptr& partons) override; -}; - -#endif diff --git a/PhysicsTools/JetMCAlgos/plugins/HadronAndPartonSelector.cc b/PhysicsTools/JetMCAlgos/plugins/HadronAndPartonSelector.cc index 066df81af836f..5967508213df4 100644 --- a/PhysicsTools/JetMCAlgos/plugins/HadronAndPartonSelector.cc +++ b/PhysicsTools/JetMCAlgos/plugins/HadronAndPartonSelector.cc @@ -62,7 +62,6 @@ #include "PhysicsTools/JetMCAlgos/interface/BasePartonSelector.h" #include "PhysicsTools/JetMCAlgos/interface/Pythia6PartonSelector.h" #include "PhysicsTools/JetMCAlgos/interface/Pythia8PartonSelector.h" -#include "PhysicsTools/JetMCAlgos/interface/Herwig6PartonSelector.h" #include "PhysicsTools/JetMCAlgos/interface/HerwigppPartonSelector.h" #include "PhysicsTools/JetMCAlgos/interface/SherpaPartonSelector.h" @@ -153,8 +152,6 @@ void HadronAndPartonSelector::produce(edm::Event& iEvent, const edm::EventSetup& partonMode_ = "Pythia6"; else if (moduleName.find("Pythia8") != std::string::npos) partonMode_ = "Pythia8"; - else if (moduleName.find("Herwig6") != std::string::npos) - partonMode_ = "Herwig6"; else if (moduleName.find("ThePEG") != std::string::npos) partonMode_ = "Herwig++"; else if (moduleName.find("Herwig7") != std::string::npos) @@ -177,9 +174,6 @@ void HadronAndPartonSelector::produce(edm::Event& iEvent, const edm::EventSetup& } else if (partonMode_ == "Pythia8") { partonSelector_ = PartonSelectorPtr(new Pythia8PartonSelector()); edm::LogInfo("PartonModeDefined") << "Using Pythia8 parton selection mode."; - } else if (partonMode_ == "Herwig6") { - partonSelector_ = PartonSelectorPtr(new Herwig6PartonSelector()); - edm::LogInfo("PartonModeDefined") << "Using Herwig6 parton selection mode."; } else if (partonMode_ == "Herwig++") { partonSelector_ = PartonSelectorPtr(new HerwigppPartonSelector()); edm::LogInfo("PartonModeDefined") << "Using Herwig++ parton selection mode."; @@ -189,7 +183,7 @@ void HadronAndPartonSelector::produce(edm::Event& iEvent, const edm::EventSetup& } else throw cms::Exception("InvalidPartonMode") << "Parton selection mode is invalid: " << partonMode_ - << ", use Auto | Pythia6 | Pythia8 | Herwig6 | Herwig++ | Sherpa" << std::endl; + << ", use Auto | Pythia6 | Pythia8 | Herwig++ | Sherpa" << std::endl; partonSelectorSet_ = true; } diff --git a/PhysicsTools/JetMCAlgos/src/Herwig6PartonSelector.cc b/PhysicsTools/JetMCAlgos/src/Herwig6PartonSelector.cc deleted file mode 100644 index d0a8a7504f4b1..0000000000000 --- a/PhysicsTools/JetMCAlgos/src/Herwig6PartonSelector.cc +++ /dev/null @@ -1,27 +0,0 @@ - -/** - * This is a Herwig6-specific parton selector that selects all status==2 partons. An explanation of the particle status codes - * returned by Herwig6 can be found in Section 8.3.1 of Herwig6 manual (http://arxiv.org/abs/hep-ph/0011363) - */ - -#include "PhysicsTools/JetMCAlgos/interface/Herwig6PartonSelector.h" -#include "PhysicsTools/JetMCUtils/interface/CandMCTag.h" - -Herwig6PartonSelector::Herwig6PartonSelector() {} - -Herwig6PartonSelector::~Herwig6PartonSelector() {} - -void Herwig6PartonSelector::run(const edm::Handle& particles, - std::unique_ptr& partons) { - // loop over particles and select partons - for (reco::GenParticleCollection::const_iterator it = particles->begin(); it != particles->end(); ++it) { - if (it->status() != 2) - continue; // only accept status==2 particles - if (!CandMCTagUtils::isParton(*it)) - continue; // skip particle if not a parton - - partons->push_back(reco::GenParticleRef(particles, it - particles->begin())); - } - - return; -} From 3320b4194a904d59b0d2687e9ef5cbd80c04cf11 Mon Sep 17 00:00:00 2001 From: Ivan Razumov Date: Thu, 5 May 2022 11:27:43 +0200 Subject: [PATCH 2/2] Code-format --- PhysicsTools/JetMCAlgos/plugins/HadronAndPartonSelector.cc | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/PhysicsTools/JetMCAlgos/plugins/HadronAndPartonSelector.cc b/PhysicsTools/JetMCAlgos/plugins/HadronAndPartonSelector.cc index 5967508213df4..18c301f3708d1 100644 --- a/PhysicsTools/JetMCAlgos/plugins/HadronAndPartonSelector.cc +++ b/PhysicsTools/JetMCAlgos/plugins/HadronAndPartonSelector.cc @@ -181,9 +181,8 @@ void HadronAndPartonSelector::produce(edm::Event& iEvent, const edm::EventSetup& partonSelector_ = PartonSelectorPtr(new SherpaPartonSelector()); edm::LogInfo("PartonModeDefined") << "Using Sherpa parton selection mode."; } else - throw cms::Exception("InvalidPartonMode") - << "Parton selection mode is invalid: " << partonMode_ - << ", use Auto | Pythia6 | Pythia8 | Herwig++ | Sherpa" << std::endl; + throw cms::Exception("InvalidPartonMode") << "Parton selection mode is invalid: " << partonMode_ + << ", use Auto | Pythia6 | Pythia8 | Herwig++ | Sherpa" << std::endl; partonSelectorSet_ = true; }