EvtDsTopipipipi0pi0.cc

Go to the documentation of this file.

//--------------------------------------------------------------------------
// Environment:
//      This software is part of the EvtGen package developed jointly
//      for the BaBar and CLEO collaborations.  If you use all or part
//      of it, please give an appropriate acknowledgement.
//
// Copyright Information: See EvtGen/COPYRIGHT
//      Copyright (C) 1998      Caltech, UCSB
//
// Module: EvtDsTopipipipi0pi0.cc
//         the necessary file: EvtDsTopipipipi0pi0.hh
//
// Description: Ds+ -> pi+ pi+ pi- pi0 pi0
//
// Modification history:
//    Liaoyuan Dong  May 12 09:28:28 2024  Module created
//------------------------------------------------------------------------
#include "EvtDsTopipipipi0pi0.hh"
#include "../EvtGenBase/EvtConst.hh"
#include "../EvtGenBase/EvtDecayTable.hh"
#include "../EvtGenBase/EvtGenKine.hh"
#include "../EvtGenBase/EvtPDL.hh"
#include "../EvtGenBase/EvtParticle.hh"
#include "../EvtGenBase/EvtPatches.hh"
#include "../EvtGenBase/EvtReport.hh"
#include "../EvtGenBase/EvtResonance.hh"
#include "../EvtGenBase/EvtResonance2.hh"
#include <fstream>
#include <stdlib.h>
#include <string>
using std::endl;
 
EvtDsTopipipipi0pi0::~EvtDsTopipipipi0pi0() {}
 
void EvtDsTopipipipi0pi0::getName( std::string& model_name ) {
  model_name = "DsTopipipipi0pi0";
}
 
EvtDecayBase* EvtDsTopipipipi0pi0::clone() { return new EvtDsTopipipipi0pi0; }
 
void EvtDsTopipipipi0pi0::init() {
  // check that there are 0 arguments
  checkNArg( 0 );
  checkNDaug( 5 );
  checkSpinParent( EvtSpinType::SCALAR );
  checkSpinDaughter( 0, EvtSpinType::SCALAR );
  checkSpinDaughter( 1, EvtSpinType::SCALAR );
  checkSpinDaughter( 2, EvtSpinType::SCALAR );
  checkSpinDaughter( 3, EvtSpinType::SCALAR );
  checkSpinDaughter( 4, EvtSpinType::SCALAR );
 
  string   name;
  Double_t mean_v;
  phi[0]  = 0;
  rho[0]  = 1;
  phi[1]  = 0;
  rho[1]  = 0;
  phi[2]  = 0;
  rho[2]  = 0;
  phi[3]  = 0;
  rho[3]  = 0;
  phi[4]  = 0;
  rho[4]  = 0;
  phi[5]  = 0;
  rho[5]  = 0;
  phi[6]  = 0;
  rho[6]  = 0;
  phi[7]  = 0;
  rho[7]  = 0;
  phi[8]  = 0;
  rho[8]  = 0;
  phi[9]  = 0;
  rho[9]  = 0;
  phi[10] = 0;
  rho[10] = 0;
  phi[11] = 0;
  rho[11] = 0;
  phi[12] = 0;
  rho[12] = 0;
  phi[13] = 0;
  rho[13] = 0;
 
  phi[0]  = 0.0;
  phi[1]  = -0.2221550738;
  phi[2]  = 4.908682264;
  phi[3]  = 3.808080671;
  phi[4]  = 1.403674727;
  phi[5]  = -4.73279708;
  phi[6]  = -1.674922065;
  phi[7]  = 0.04954744732;
  phi[8]  = 1.837736271;
  phi[9]  = -2.762453694;
  phi[10] = -1.674922065;
  phi[11] = 0.04954744732;
  phi[12] = -2.007113109;
  phi[13] = -5.064013727;
 
  rho[0]  = 1.0;
  rho[1]  = -0.6906182923;
  rho[2]  = 1.919575948;
  rho[3]  = -0.3131096951;
  rho[4]  = 0.1208536009;
  rho[5]  = 3.481521946;
  rho[6]  = 2.65694721;
  rho[7]  = 3.511231977;
  rho[8]  = 4.390468499;
  rho[9]  = 4.263839405;
  rho[10] = 2.65694721;
  rho[11] = 3.511231977;
  rho[12] = 1.763183137;
  rho[13] = 5.382286502;
 
  modetype[0]  = 1;
  modetype[1]  = 1;
  modetype[2]  = 1;
  modetype[3]  = 8;
  modetype[4]  = 8;
  modetype[5]  = 11;
  modetype[6]  = 17;
  modetype[7]  = 17;
  modetype[8]  = 18;
  modetype[9]  = 18;
  modetype[10] = 19;
  modetype[11] = 19;
  modetype[12] = 4;
  modetype[13] = 6;
 
  /*
          for (int i=0; i<12; i++) {
                  cout << i << " rho= " << rho[i] << " phi= " << phi[i] << endl;
          }
  */
  width1[0]  = 0.00868;
  width1[1]  = 0.00868;
  width1[2]  = 0.00868;
  width1[3]  = 0.004249;
  width1[4]  = 0.004249;
  width1[5]  = 0.400;
  width1[6]  = 0.420;
  width1[7]  = 0.420;
  width1[8]  = 0.420;
  width1[9]  = 0.420;
  width1[10] = 0.420;
  width1[11] = 0.420;
  width1[12] = 0.142;
  width1[13] = 0.142;
 
  width2[0]  = 0.1478;
  width2[1]  = 0.1478;
  width2[2]  = 0.1478;
  width2[3]  = 0.1478;
  width2[4]  = 0.1478;
  width2[5]  = 0.00868;
  width2[6]  = 0.1478;
  width2[7]  = 0.1478;
  width2[8]  = 0.1478;
  width2[9]  = 0.1478;
  width2[10] = 0.1478;
  width2[11] = 0.1478;
  width2[12] = 0.00868;
  width2[13] = 0.00868;
 
  mass1[0]  = 0.78266;
  mass1[1]  = 0.78266;
  mass1[2]  = 0.78266;
  mass1[3]  = 1.019461;
  mass1[4]  = 1.019461;
  mass1[5]  = 1.465;
  mass1[6]  = 1.230;
  mass1[7]  = 1.230;
  mass1[8]  = 1.230;
  mass1[9]  = 1.230;
  mass1[10] = 1.230;
  mass1[11] = 1.230;
  mass1[12] = 1.2295;
  mass1[13] = 1.2295;
 
  mass2[0]  = 0.77526;
  mass2[1]  = 0.77526;
  mass2[2]  = 0.77526;
  mass2[3]  = 0.77526;
  mass2[4]  = 0.77526;
  mass2[5]  = 0.78266;
  mass2[6]  = 0.77526;
  mass2[7]  = 0.77526;
  mass2[8]  = 0.77526;
  mass2[9]  = 0.77526;
  mass2[10] = 0.77526;
  mass2[11] = 0.77526;
  mass2[12] = 0.78266;
  mass2[13] = 0.78266;
 
  mDsM      = 1.9683;
  mD        = 1.86486;
  metap     = 0.95778;
  mkstr     = 0.89594;
  mk0       = 0.497614;
  mass_Kaon = 0.49368;
  mass_Pion = 0.13957;
  // math_pi = 3.1415926;
  mass_Pion2 = 0.0194797849;
  mass_2Pion = 0.27914;
  math_2pi   = 6.2831852;
  rD2        = 25.0; // 5*5
  rDs2       = 25.0; // 5*5
  rRes2      = 9.0;  // 3*3
  gg1        = 0.5468;
  gg2        = 0.23; // K*0(1430)
  GS1        = 0.636619783;
  GS2        = 0.01860182466;
  GS3        = 0.1591549458; //  1/(2*math_2pi)
  GS4        = 0.00620060822;
 
  int GG[4][4] = { { 1, 0, 0, 0 }, { 0, -1, 0, 0 }, { 0, 0, -1, 0 }, { 0, 0, 0, -1 } };
  for ( int i = 0; i < 4; i++ )
  {
    for ( int j = 0; j < 4; j++ ) { G[i][j] = GG[i][j]; }
  }
 
  double EE[4][4][4][4] = {
      { { { 0, 0, 0, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 } },
        { { 0, 0, 0, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, 1 }, { 0, 0, -1, 0 } },
        { { 0, 0, 0, 0 }, { 0, 0, 0, -1 }, { 0, 0, 0, 0 }, { 0, 1, 0, 0 } },
        { { 0, 0, 0, 0 }, { 0, 0, 1, 0 }, { 0, -1, 0, 0 }, { 0, 0, 0, 0 } } },
      { { { 0, 0, 0, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, -1 }, { 0, 0, 1, 0 } },
        { { 0, 0, 0, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 } },
        { { 0, 0, 0, 1 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 }, { -1, 0, 0, 0 } },
        { { 0, 0, -1, 0 }, { 0, 0, 0, 0 }, { 1, 0, 0, 0 }, { 0, 0, 0, 0 } } },
      { { { 0, 0, 0, 0 }, { 0, 0, 0, 1 }, { 0, 0, 0, 0 }, { 0, -1, 0, 0 } },
        { { 0, 0, 0, -1 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 }, { 1, 0, 0, 0 } },
        { { 0, 0, 0, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 } },
        { { 0, 1, 0, 0 }, { -1, 0, 0, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 } } },
      { { { 0, 0, 0, 0 }, { 0, 0, -1, 0 }, { 0, 1, 0, 0 }, { 0, 0, 0, 0 } },
        { { 0, 0, 1, 0 }, { 0, 0, 0, 0 }, { -1, 0, 0, 0 }, { 0, 0, 0, 0 } },
        { { 0, -1, 0, 0 }, { 1, 0, 0, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 } },
        { { 0, 0, 0, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 }, { 0, 0, 0, 0 } } } };
 
  for ( int i = 0; i < 4; i++ )
  {
    for ( int j = 0; j < 4; j++ )
    {
      for ( int k = 0; k < 4; k++ )
      {
        for ( int l = 0; l < 4; l++ ) { E[i][j][k][l] = EE[i][j][k][l]; }
      }
    }
  }
}
 
void EvtDsTopipipipi0pi0::initProbMax() { setProbMax( 87000000.0 ); }
 
void EvtDsTopipipipi0pi0::decay( EvtParticle* p ) {
 
  p->initializePhaseSpace( getNDaug(), getDaugs() );
  EvtVector4R D1 = p->getDaug( 0 )->getP4();
  EvtVector4R D2 = p->getDaug( 1 )->getP4();
  EvtVector4R D3 = p->getDaug( 2 )->getP4();
  EvtVector4R D4 = p->getDaug( 3 )->getP4();
  EvtVector4R D5 = p->getDaug( 4 )->getP4();
 
  charge = EvtPDL::getStdHep( p->getId() );
  double P1[4], P2[4], P3[4], P4[4], P5[4];
  if ( charge > 0 )
  {
    P1[0] = D1.get( 0 );
    P1[1] = D1.get( 1 );
    P1[2] = D1.get( 2 );
    P1[3] = D1.get( 3 );
    P2[0] = D2.get( 0 );
    P2[1] = D2.get( 1 );
    P2[2] = D2.get( 2 );
    P2[3] = D2.get( 3 );
    P3[0] = D3.get( 0 );
    P3[1] = D3.get( 1 );
    P3[2] = D3.get( 2 );
    P3[3] = D3.get( 3 );
    P4[0] = D4.get( 0 );
    P4[1] = D4.get( 1 );
    P4[2] = D4.get( 2 );
    P4[3] = D4.get( 3 );
    P5[0] = D5.get( 0 );
    P5[1] = D5.get( 1 );
    P5[2] = D5.get( 2 );
    P5[3] = D5.get( 3 );
  }
  else if ( charge < 0 )
  {
    P1[0] = D1.get( 0 );
    P1[1] = ( -1.0 ) * D1.get( 1 );
    P1[2] = ( -1.0 ) * D1.get( 2 );
    P1[3] = ( -1.0 ) * D1.get( 3 );
    P2[0] = D2.get( 0 );
    P2[1] = ( -1.0 ) * D2.get( 1 );
    P2[2] = ( -1.0 ) * D2.get( 2 );
    P2[3] = ( -1.0 ) * D2.get( 3 );
    P3[0] = D3.get( 0 );
    P3[1] = ( -1.0 ) * D3.get( 1 );
    P3[2] = ( -1.0 ) * D3.get( 2 );
    P3[3] = ( -1.0 ) * D3.get( 3 );
    P4[0] = D4.get( 0 );
    P4[1] = ( -1.0 ) * D4.get( 1 );
    P4[2] = ( -1.0 ) * D4.get( 2 );
    P4[3] = ( -1.0 ) * D4.get( 3 );
    P5[0] = D5.get( 0 );
    P5[1] = ( -1.0 ) * D5.get( 1 );
    P5[2] = ( -1.0 ) * D5.get( 2 );
    P5[3] = ( -1.0 ) * D5.get( 3 );
  }
 
  double value;
  int    g0[50]   = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 };
  int    g1[50]   = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 };
  int    spin[50] = { 0, 1, 2, 0, 1, 1, 1020, 1120, 1020, 1120, 1020, 1120, 0, 0 };
  int    nstates  = 14;
  calEva( P1, P2, P3, P4, P5, mass1, mass2, width1, width2, rho, phi, g0, g1, spin, modetype,
          nstates, value );
 
  setProb( value );
 
  return;
}
 
double a1width[3000] = {
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000, 0.000000,
    0.000000, 0.000000, 0.000001, 0.000001, 0.000001, 0.000002, 0.000002, 0.000002, 0.000003,
    0.000004, 0.000004, 0.000005, 0.000006, 0.000007, 0.000008, 0.000009, 0.000010, 0.000011,
    0.000012, 0.000014, 0.000015, 0.000017, 0.000019, 0.000021, 0.000023, 0.000025, 0.000027,
    0.000029, 0.000032, 0.000035, 0.000038, 0.000041, 0.000044, 0.000047, 0.000050, 0.000054,
    0.000058, 0.000062, 0.000066, 0.000070, 0.000075, 0.000079, 0.000084, 0.000089, 0.000094,
    0.000100, 0.000105, 0.000111, 0.000117, 0.000124, 0.000130, 0.000137, 0.000143, 0.000151,
    0.000158, 0.000165, 0.000173, 0.000182, 0.000190, 0.000199, 0.000207, 0.000216, 0.000225,
    0.000235, 0.000245, 0.000256, 0.000266, 0.000277, 0.000288, 0.000300, 0.000311, 0.000322,
    0.000335, 0.000347, 0.000360, 0.000373, 0.000385, 0.000400, 0.000415, 0.000429, 0.000442,
    0.000457, 0.000473, 0.000488, 0.000504, 0.000520, 0.000539, 0.000555, 0.000572, 0.000590,
    0.000608, 0.000626, 0.000646, 0.000664, 0.000684, 0.000704, 0.000725, 0.000745, 0.000766,
    0.000787, 0.000809, 0.000828, 0.000854, 0.000878, 0.000901, 0.000927, 0.000952, 0.000973,
    0.001001, 0.001027, 0.001048, 0.001080, 0.001104, 0.001132, 0.001159, 0.001189, 0.001219,
    0.001245, 0.001277, 0.001308, 0.001338, 0.001370, 0.001404, 0.001433, 0.001468, 0.001498,
    0.001533, 0.001570, 0.001600, 0.001638, 0.001678, 0.001711, 0.001745, 0.001780, 0.001825,
    0.001857, 0.001898, 0.001941, 0.001972, 0.002017, 0.002065, 0.002104, 0.002146, 0.002189,
    0.002234, 0.002277, 0.002319, 0.002369, 0.002410, 0.002461, 0.002511, 0.002557, 0.002605,
    0.002661, 0.002704, 0.002762, 0.002807, 0.002855, 0.002910, 0.002965, 0.003020, 0.003074,
    0.003127, 0.003178, 0.003228, 0.003288, 0.003351, 0.003409, 0.003471, 0.003532, 0.003598,
    0.003660, 0.003720, 0.003793, 0.003854, 0.003910, 0.003972, 0.004050, 0.004108, 0.004181,
    0.004254, 0.004309, 0.004380, 0.004464, 0.004533, 0.004603, 0.004679, 0.004756, 0.004811,
    0.004898, 0.004974, 0.005048, 0.005142, 0.005215, 0.005279, 0.005363, 0.005449, 0.005533,
    0.005604, 0.005695, 0.005783, 0.005869, 0.005971, 0.006060, 0.006142, 0.006247, 0.006332,
    0.006409, 0.006502, 0.006594, 0.006713, 0.006784, 0.006889, 0.006995, 0.007079, 0.007190,
    0.007303, 0.007381, 0.007487, 0.007592, 0.007710, 0.007801, 0.007910, 0.008032, 0.008149,
    0.008247, 0.008378, 0.008462, 0.008559, 0.008706, 0.008843, 0.008943, 0.009091, 0.009207,
    0.009308, 0.009448, 0.009555, 0.009698, 0.009810, 0.009936, 0.010020, 0.010186, 0.010320,
    0.010474, 0.010611, 0.010742, 0.010840, 0.011011, 0.011167, 0.011281, 0.011395, 0.011541,
    0.011714, 0.011853, 0.012046, 0.012169, 0.012277, 0.012460, 0.012617, 0.012805, 0.012922,
    0.013072, 0.013234, 0.013389, 0.013561, 0.013704, 0.013917, 0.014025, 0.014239, 0.014425,
    0.014600, 0.014716, 0.014958, 0.015114, 0.015325, 0.015488, 0.015630, 0.015797, 0.016035,
    0.016206, 0.016404, 0.016591, 0.016842, 0.016964, 0.017199, 0.017392, 0.017557, 0.017798,
    0.017987, 0.018178, 0.018337, 0.018631, 0.018829, 0.019008, 0.019221, 0.019467, 0.019698,
    0.019941, 0.020166, 0.020379, 0.020585, 0.020806, 0.021040, 0.021309, 0.021482, 0.021764,
    0.022046, 0.022306, 0.022478, 0.022736, 0.023049, 0.023222, 0.023536, 0.023756, 0.024090,
    0.024337, 0.024557, 0.024873, 0.025099, 0.025392, 0.025682, 0.025995, 0.026291, 0.026498,
    0.026927, 0.027119, 0.027377, 0.027804, 0.028135, 0.028279, 0.028682, 0.028871, 0.029355,
    0.029531, 0.029956, 0.030243, 0.030592, 0.030873, 0.031246, 0.031494, 0.031771, 0.032167,
    0.032515, 0.032881, 0.033211, 0.033653, 0.033988, 0.034394, 0.034639, 0.035055, 0.035569,
    0.035879, 0.036211, 0.036611, 0.036932, 0.037489, 0.037779, 0.038284, 0.038723, 0.039001,
    0.039574, 0.039854, 0.040274, 0.040881, 0.041117, 0.041644, 0.042055, 0.042531, 0.043030,
    0.043354, 0.043832, 0.044277, 0.044956, 0.045284, 0.045828, 0.046440, 0.046800, 0.047518,
    0.047727, 0.048258, 0.048850, 0.049316, 0.049992, 0.050486, 0.050987, 0.051410, 0.051928,
    0.052613, 0.053110, 0.053824, 0.054351, 0.055078, 0.055654, 0.056030, 0.056763, 0.057245,
    0.057832, 0.058569, 0.059292, 0.060048, 0.060569, 0.061056, 0.061869, 0.062612, 0.063186,
    0.063886, 0.064655, 0.065198, 0.065815, 0.066649, 0.067577, 0.068012, 0.068967, 0.069630,
    0.070181, 0.070786, 0.071989, 0.072764, 0.073466, 0.074461, 0.075093, 0.075994, 0.076834,
    0.077455, 0.078709, 0.079581, 0.080408, 0.080884, 0.081965, 0.082882, 0.083658, 0.084824,
    0.085513, 0.086662, 0.087602, 0.088678, 0.089492, 0.090641, 0.091369, 0.092494, 0.093484,
    0.094615, 0.095385, 0.096168, 0.097668, 0.098611, 0.099630, 0.100772, 0.102020, 0.103145,
    0.104110, 0.105071, 0.106604, 0.107791, 0.108451, 0.109509, 0.111356, 0.112026, 0.113921,
    0.114507, 0.116071, 0.117027, 0.118213, 0.120164, 0.120701, 0.122121, 0.123894, 0.124937,
    0.126134, 0.127391, 0.128882, 0.130056, 0.131649, 0.133046, 0.134275, 0.135119, 0.137072,
    0.138476, 0.139612, 0.140388, 0.142734, 0.143576, 0.145445, 0.147414, 0.148856, 0.149891,
    0.150963, 0.152477, 0.153717, 0.155275, 0.156859, 0.158462, 0.159257, 0.161865, 0.163182,
    0.164465, 0.165538, 0.167003, 0.169257, 0.171211, 0.172093, 0.173261, 0.174639, 0.176510,
    0.177684, 0.179077, 0.181041, 0.182446, 0.184769, 0.184926, 0.186741, 0.188844, 0.190884,
    0.191714, 0.192254, 0.193921, 0.195917, 0.196766, 0.199052, 0.200603, 0.201808, 0.202699,
    0.204636, 0.205712, 0.206849, 0.208741, 0.209424, 0.211698, 0.212753, 0.215516, 0.215857,
    0.217790, 0.217774, 0.220454, 0.221821, 0.223466, 0.224494, 0.225632, 0.227231, 0.229456,
    0.229581, 0.231537, 0.232263, 0.233834, 0.234725, 0.237079, 0.238015, 0.239400, 0.240193,
    0.241693, 0.243787, 0.244317, 0.244971, 0.246711, 0.248615, 0.249387, 0.250905, 0.252702,
    0.253535, 0.254385, 0.255375, 0.256671, 0.258405, 0.259741, 0.260875, 0.262131, 0.262920,
    0.264860, 0.265893, 0.266016, 0.267727, 0.270039, 0.270689, 0.271047, 0.272313, 0.272474,
    0.274724, 0.275813, 0.275937, 0.278793, 0.278783, 0.281407, 0.281351, 0.282481, 0.284226,
    0.284113, 0.284999, 0.285655, 0.288361, 0.287856, 0.288893, 0.290211, 0.291708, 0.291985,
    0.294298, 0.294849, 0.296796, 0.296197, 0.296851, 0.298011, 0.300368, 0.299982, 0.302378,
    0.304363, 0.303711, 0.304729, 0.306789, 0.306378, 0.307372, 0.308720, 0.309509, 0.309712,
    0.310782, 0.311699, 0.312668, 0.312755, 0.313675, 0.315311, 0.316640, 0.317217, 0.317403,
    0.318478, 0.319916, 0.321803, 0.322678, 0.323237, 0.324343, 0.324433, 0.324493, 0.324969,
    0.325894, 0.328563, 0.328721, 0.328954, 0.330640, 0.328164, 0.331267, 0.331695, 0.333772,
    0.333619, 0.334351, 0.334605, 0.336434, 0.337510, 0.336535, 0.337362, 0.338799, 0.340732,
    0.339896, 0.342707, 0.343471, 0.342318, 0.342431, 0.344543, 0.345611, 0.345786, 0.346590,
    0.346610, 0.347761, 0.348914, 0.349558, 0.350577, 0.352128, 0.350982, 0.354134, 0.352773,
    0.353213, 0.352972, 0.354927, 0.355784, 0.355778, 0.355801, 0.357040, 0.358013, 0.358432,
    0.360045, 0.359743, 0.360238, 0.359850, 0.362184, 0.361580, 0.363430, 0.362333, 0.364397,
    0.364472, 0.364370, 0.365303, 0.366644, 0.367777, 0.368604, 0.367631, 0.368324, 0.369782,
    0.371121, 0.370653, 0.370040, 0.371649, 0.370201, 0.373362, 0.373900, 0.374159, 0.374916,
    0.374503, 0.376703, 0.372802, 0.376191, 0.379596, 0.377325, 0.376363, 0.379369, 0.379791,
    0.378703, 0.380177, 0.381762, 0.381335, 0.381374, 0.384668, 0.381763, 0.382746, 0.384723,
    0.385089, 0.386229, 0.386702, 0.387749, 0.384423, 0.384714, 0.384181, 0.388489, 0.388618,
    0.388179, 0.390092, 0.389871, 0.390496, 0.391181, 0.390679, 0.392614, 0.392269, 0.393899,
    0.393466, 0.391421, 0.391090, 0.395586, 0.391776, 0.396882, 0.393254, 0.394400, 0.395749,
    0.398063, 0.397138, 0.397585, 0.397288, 0.397847, 0.395375, 0.400170, 0.400007, 0.401191,
    0.398513, 0.401922, 0.400477, 0.404257, 0.403271, 0.400677, 0.403913, 0.403172, 0.404727,
    0.403406, 0.404404, 0.405265, 0.406389, 0.405738, 0.402173, 0.407831, 0.405895, 0.409172,
    0.408934, 0.405915, 0.408486, 0.407320, 0.407437, 0.405444, 0.408400, 0.410909, 0.412427,
    0.409881, 0.411021, 0.413001, 0.410369, 0.414702, 0.413372, 0.413095, 0.410972, 0.416346,
    0.416095, 0.414132, 0.414344, 0.416952, 0.415197, 0.417583, 0.416582, 0.416622, 0.416895,
    0.416576, 0.415551, 0.417925, 0.414838, 0.417051, 0.416831, 0.420000, 0.419132, 0.418173,
    0.417645, 0.419679, 0.419866, 0.419581, 0.421531, 0.420878, 0.422737, 0.421872, 0.421304,
    0.425486, 0.424434, 0.420842, 0.426753, 0.422761, 0.422178, 0.422372, 0.424173, 0.425582,
    0.425080, 0.425831, 0.423551, 0.422949, 0.425784, 0.427977, 0.427948, 0.426368, 0.425138,
    0.425351, 0.428643, 0.428148, 0.427488, 0.431704, 0.430167, 0.429655, 0.429584, 0.425458,
    0.430728, 0.429845, 0.431145, 0.429180, 0.428874, 0.430720, 0.430024, 0.432034, 0.431359,
    0.431535, 0.432995, 0.432425, 0.432454, 0.433140, 0.432574, 0.433814, 0.433348, 0.432886,
    0.435472, 0.436517, 0.432681, 0.436999, 0.435182, 0.434834, 0.435478, 0.438255, 0.436650,
    0.434464, 0.438530, 0.434077, 0.436471, 0.434012, 0.436822, 0.437505, 0.440135, 0.438322,
    0.438032, 0.439001, 0.440270, 0.438661, 0.439233, 0.439274, 0.437945, 0.443080, 0.439191,
    0.438233, 0.440415, 0.441063, 0.440926, 0.440929, 0.439731, 0.443584, 0.439729, 0.441597,
    0.442615, 0.444637, 0.443180, 0.440789, 0.440261, 0.442202, 0.445081, 0.445484, 0.445415,
    0.445532, 0.442806, 0.444188, 0.441073, 0.444299, 0.445897, 0.445279, 0.442830, 0.445506,
    0.445272, 0.447267, 0.443522, 0.445519, 0.446459, 0.446753, 0.446377, 0.446129, 0.446383,
    0.448556, 0.446593, 0.445293, 0.449199, 0.447590, 0.445968, 0.447482, 0.448474, 0.449890,
    0.450004, 0.447765, 0.449274, 0.450652, 0.448210, 0.449360, 0.449577, 0.448575, 0.452112,
    0.448780, 0.451393, 0.450200, 0.452018, 0.451182, 0.452050, 0.451748, 0.451377, 0.451402,
    0.448810, 0.452311, 0.452909, 0.452491, 0.452418, 0.454190, 0.454420, 0.452121, 0.452307,
    0.456857, 0.453506, 0.454058, 0.457203, 0.454394, 0.453596, 0.452240, 0.453692, 0.456516,
    0.453753, 0.455541, 0.452702, 0.456481, 0.452226, 0.454280, 0.454855, 0.456297, 0.456482,
    0.454154, 0.455387, 0.454748, 0.455764, 0.457282, 0.455487, 0.454822, 0.454257, 0.457678,
    0.454225, 0.458689, 0.456123, 0.457011, 0.457386, 0.458351, 0.458638, 0.456164, 0.455884,
    0.458525, 0.457575, 0.458340, 0.458912, 0.457836, 0.461734, 0.457545, 0.460755, 0.460960,
    0.459226, 0.458613, 0.461078, 0.460958, 0.460337, 0.460237, 0.461190, 0.460760, 0.457911,
    0.461310, 0.459657, 0.461960, 0.461040, 0.459578, 0.461650, 0.461550, 0.461251, 0.461054,
    0.463082, 0.461732, 0.461324, 0.462547, 0.461261, 0.461629, 0.464067, 0.462430, 0.462525,
    0.464232, 0.462921, 0.463202, 0.465558, 0.462914, 0.461698, 0.463963, 0.463040, 0.464275,
    0.461940, 0.462913, 0.465261, 0.461500, 0.463679, 0.463354, 0.465205, 0.464529, 0.462220,
    0.464279, 0.463427, 0.465387, 0.465288, 0.464839, 0.464926, 0.466100, 0.465531, 0.466187,
    0.464647, 0.466285, 0.465461, 0.464134, 0.466783, 0.466763, 0.466183, 0.467089, 0.464497,
    0.466080, 0.466109, 0.468166, 0.466984, 0.465335, 0.466721, 0.466856, 0.465113, 0.468377,
    0.467904, 0.464546, 0.468787, 0.465648, 0.469841, 0.469477, 0.466311, 0.468700, 0.465183,
    0.466559, 0.470433, 0.468563, 0.468109, 0.466980, 0.467567, 0.467670, 0.466991, 0.467992,
    0.468784, 0.469406, 0.469652, 0.468527, 0.470460, 0.467308, 0.470693, 0.469539, 0.468000,
    0.469295, 0.467038, 0.471908, 0.468829, 0.470663, 0.469266, 0.468975, 0.470222, 0.468649,
    0.469507, 0.472307, 0.471611, 0.470419, 0.471181, 0.471140, 0.473187, 0.471086, 0.469801,
    0.472234, 0.472131, 0.468996, 0.470229, 0.471597, 0.469625, 0.472230, 0.470164, 0.468404,
    0.472264, 0.471336, 0.471597, 0.472280, 0.471256, 0.473151, 0.471863, 0.474458, 0.471956,
    0.473099, 0.473956, 0.471725, 0.472809, 0.473065, 0.473180, 0.470611, 0.473614, 0.474263,
    0.472792, 0.473543, 0.472656, 0.469728, 0.473431, 0.474538, 0.475322, 0.474962, 0.473598,
    0.474114, 0.473486, 0.472934, 0.473252, 0.477149, 0.471719, 0.476383, 0.473076, 0.473952,
    0.473104, 0.472459, 0.474433, 0.474494, 0.473588, 0.473839, 0.478113, 0.472435, 0.475571,
    0.475194, 0.475626, 0.474617, 0.474520, 0.474472, 0.476437, 0.474512, 0.474497, 0.474628,
    0.476203, 0.475698, 0.473907, 0.477144, 0.479000, 0.475553, 0.477481, 0.473998, 0.476672,
    0.477115, 0.477114, 0.476282, 0.476152, 0.477009, 0.479854, 0.474354, 0.477645, 0.477517,
    0.477111, 0.474843, 0.476173, 0.477321, 0.477384, 0.477880, 0.475726, 0.476004, 0.478204,
    0.475586, 0.477973, 0.477935, 0.480640, 0.478234, 0.476349, 0.477493, 0.476994, 0.479815,
    0.477771, 0.476333, 0.476325, 0.478245, 0.477284, 0.479238, 0.478339, 0.478966, 0.478012,
    0.479304, 0.480148, 0.476125, 0.481267, 0.479801, 0.476720, 0.478898, 0.479284, 0.479153,
    0.480157, 0.478681, 0.479712, 0.478993, 0.479943, 0.478349, 0.478930, 0.478052, 0.477173,
    0.479244, 0.480454, 0.479128, 0.480530, 0.477843, 0.478369, 0.478561, 0.478639, 0.479191,
    0.481763, 0.481321, 0.480979, 0.479702, 0.479777, 0.479384, 0.477571, 0.481880, 0.478615,
    0.481303, 0.478783, 0.479384, 0.480517, 0.481928, 0.481199, 0.479041, 0.479188, 0.481491,
    0.482840, 0.478766, 0.481941, 0.481298, 0.478105, 0.482933, 0.479744, 0.483361, 0.482332,
    0.482556, 0.482057, 0.483616, 0.480599, 0.482245, 0.481091, 0.480871, 0.481938, 0.480678,
    0.481851, 0.482902, 0.482158, 0.480187, 0.481772, 0.484967, 0.483094, 0.482133, 0.483929,
    0.483354, 0.483382, 0.483964, 0.479941, 0.481375, 0.480255, 0.482184, 0.482541, 0.482032,
    0.483484, 0.479492, 0.483305, 0.481070, 0.483573, 0.485689, 0.485767, 0.484221, 0.481365,
    0.482440, 0.481507, 0.483418, 0.480978 };
 
void EvtDsTopipipipi0pi0::Com_Multi( double a1[2], double a2[2], double res[2] ) {
  res[0] = a1[0] * a2[0] - a1[1] * a2[1];
  res[1] = a1[1] * a2[0] + a1[0] * a2[1];
}
 
void EvtDsTopipipipi0pi0::Com_Divide( double a1[2], double a2[2], double res[2] ) {
  double tmp = a2[0] * a2[0] + a2[1] * a2[1];
  res[0]     = ( a1[0] * a2[0] + a1[1] * a2[1] ) / tmp;
  res[1]     = ( a1[1] * a2[0] - a1[0] * a2[1] ) / tmp;
}
 
void EvtDsTopipipipi0pi0::propagatorRBW_a1( double mass2, double mass, double width, double sa,
                                            double sb, double sc, double r2, int l,
                                            double prop[2] ) {
  double a[2], b[2];
  int    iii      = int( sqrt( sa ) * 1000 ) - 1;
  double width_a1 = a1width[iii];
  a[0]            = 1;
  a[1]            = 0;
  b[0]            = mass2 - sa;
  // b[1] = -mass*width*wid(mass2,mass,sa,sb,sc,r2,l);
  b[1] = -mass * width_a1;
  Com_Divide( a, b, prop );
}
 
double EvtDsTopipipipi0pi0::SCADot( double a1[4], double a2[4] ) {
  double _cal = a1[0] * a2[0] - a1[1] * a2[1] - a1[2] * a2[2] - a1[3] * a2[3];
  return _cal;
}
 
double EvtDsTopipipipi0pi0::Barrier( int l, double sa, double sb, double sc, double r2 ) {
  double F;
  double tmp = sa + sb - sc;
  double q   = 0.25 * tmp * tmp / sa - sb;
  // if (q < 0) q = 1e-16;
  if ( q < 0 ) q = -q;
  double z = q * r2;
  if ( l == 1 ) { F = sqrt( 2.0 * z / ( 1.0 + z ) ); }
  else if ( l == 2 )
  {
    double z2 = z * z;
    F         = sqrt( 13.0 * z2 / ( 9.0 + 3.0 * z + z2 ) );
  }
  else { F = 1.0; }
  return F;
}
 
double EvtDsTopipipipi0pi0::BarrierN( int l, double sa, double sb, double sc, double r,
                                      double mass ) {
  double q = ( sa + sb - sc ) * ( sa + sb - sc ) / ( 4 * sa ) - sb;
  // if(q < 0) q = 1e-16;
  if ( q < 0 ) q = -q;
  double z;
  z = q * r * r;
  z = q * r;
  double sa0;
  sa0       = mass * mass;
  double q0 = ( sa0 + sb - sc ) * ( sa0 + sb - sc ) / ( 4 * sa0 ) - sb;
  // if(q0 < 0) q0 = 1e-16;
  if ( q0 < 0 ) q0 = -q0;
  // double z0 = q0*r*r;
  double z0 = q0 * r;
  double F  = 0.0;
  if ( l == 0 ) F = 1;
  if ( l == 1 ) F = sqrt( ( 1 + z0 ) / ( 1 + z ) );
  if ( l == 2 ) F = sqrt( ( 9 + 3 * z0 + z0 * z0 ) / ( 9 + 3 * z + z * z ) );
  return F;
}
 
void EvtDsTopipipipi0pi0::calt1( double daug1[4], double daug2[4], double t1[4] ) {
  double p, pq, tmp;
  double pa[4], qa[4];
  for ( int i = 0; i < 4; i++ )
  {
    pa[i] = daug1[i] + daug2[i];
    qa[i] = daug1[i] - daug2[i];
  }
  p   = SCADot( pa, pa );
  pq  = SCADot( pa, qa );
  tmp = pq / p;
  for ( int i = 0; i < 4; i++ ) { t1[i] = qa[i] - tmp * pa[i]; }
}
 
void EvtDsTopipipipi0pi0::calt2( double daug1[4], double daug2[4], double t2[4][4] ) {
  double p, r;
  double pa[4], t1[4];
  calt1( daug1, daug2, t1 );
  r = SCADot( t1, t1 ) / 3.0;
  for ( int i = 0; i < 4; i++ ) { pa[i] = daug1[i] + daug2[i]; }
  p = SCADot( pa, pa );
  for ( int i = 0; i < 4; i++ )
  {
    for ( int j = 0; j < 4; j++ )
    { t2[i][j] = t1[i] * t1[j] - r * ( G[i][j] - pa[i] * pa[j] / p ); }
  }
}
 
void EvtDsTopipipipi0pi0::calG2( double daug1[4], double daug2[4], double g2[4][4] ) {
  double p;
  double pa[4];
  for ( int i = 0; i < 4; i++ ) { pa[i] = daug1[i] + daug2[i]; }
  p = SCADot( pa, pa );
  for ( int i = 0; i < 4; i++ )
  {
    for ( int j = 0; j < 4; j++ ) { g2[i][j] = G[i][j] - pa[i] * pa[j] / p; }
  }
}
 
void EvtDsTopipipipi0pi0::propagator( double mass2, double mass, double width, double sx,
                                      double prop[2] ) {
  double a[2], b[2];
  a[0] = 1;
  a[1] = 0;
  b[0] = mass2 - sx;
  b[1] = -mass * width;
  Com_Divide( a, b, prop );
}
 
double EvtDsTopipipipi0pi0::widttt( double mass2, double mass, double sa, double sb, double sc,
                                    double r2, int l, double ttt[3] ) {
  double widm = 0.;
  double m    = sqrt( sa );
  double tmp  = sb - sc;
  double tmp1 = sa + tmp;
  double q    = 0.25 * tmp1 * tmp1 / sa - sb;
  // if(q<0) q = 1e-16;
  if ( q < 0 ) q = -q;
  double tmp2 = mass2 + tmp;
  double q0   = 0.25 * tmp2 * tmp2 / mass2 - sb;
  // if(q0<0) q0 = 1e-16;
  if ( q0 < 0 ) q0 = -q0;
  double z  = q * r2;
  double z0 = q0 * r2;
  double t  = q / q0;
 
  ttt[0] = 0.25 * tmp1 * tmp1 / sa;
  ttt[1] = 0.25 * tmp2 * tmp2 / mass2;
  ttt[2] = sb;
 
  if ( l == 0 ) { widm = sqrt( t ) * mass / m; }
  else if ( l == 1 ) { widm = t * sqrt( t ) * mass / m * ( 1 + z0 ) / ( 1 + z ); }
  else if ( l == 2 )
  { widm = t * t * sqrt( t ) * mass / m * ( 9 + 3 * z0 + z0 * z0 ) / ( 9 + 3 * z + z * z ); }
  return widm;
}
 
double EvtDsTopipipipi0pi0::wid( double mass2, double mass, double sa, double sb, double sc,
                                 double r2, int l ) {
  double widm = 0.;
  double m    = sqrt( sa );
  double tmp  = sb - sc;
  double tmp1 = sa + tmp;
  double q    = 0.25 * tmp1 * tmp1 / sa - sb;
  // if(q<0) q = 1e-16;
  if ( q < 0 ) q = -q;
  double tmp2 = mass2 + tmp;
  double q0   = 0.25 * tmp2 * tmp2 / mass2 - sb;
  // if(q0<0) q0 = 1e-16;
  if ( q0 < 0 ) q0 = -q0;
  double z  = q * r2;
  double z0 = q0 * r2;
  double t  = q / q0;
 
  if ( l == 0 ) { widm = sqrt( t ) * mass / m; }
  else if ( l == 1 ) { widm = t * sqrt( t ) * mass / m * ( 1 + z0 ) / ( 1 + z ); }
  else if ( l == 2 )
  { widm = t * t * sqrt( t ) * mass / m * ( 9 + 3 * z0 + z0 * z0 ) / ( 9 + 3 * z + z * z ); }
  return widm;
}
 
double EvtDsTopipipipi0pi0::widl1( double mass2, double mass, double sa, double sb, double sc,
                                   double r2 ) {
  double widm = 0.;
  double m    = sqrt( sa );
  double tmp  = sb - sc;
  double tmp1 = sa + tmp;
  double q    = 0.25 * tmp1 * tmp1 / sa - sb;
  // if(q<0) q = 1e-16;
  if ( q < 0 ) q = -q;
  double tmp2 = mass2 + tmp;
  double q0   = 0.25 * tmp2 * tmp2 / mass2 - sb;
  // if(q0<0) q0 = 1e-16;
  if ( q0 < 0 ) q0 = -q0;
  double z  = q * r2;
  double z0 = q0 * r2;
  double F  = ( 1 + z0 ) / ( 1 + z );
  double t  = q / q0;
  widm      = t * sqrt( t ) * mass / m * F;
  return widm;
}
 
void EvtDsTopipipipi0pi0::propagatorRBW( double mass2, double mass, double width, double sa,
                                         double sb, double sc, double r2, int l,
                                         double prop[2] ) {
  double a[2], b[2];
  a[0] = 1;
  a[1] = 0;
  b[0] = mass2 - sa;
  b[1] = -mass * width * wid( mass2, mass, sa, sb, sc, r2, l );
  Com_Divide( a, b, prop );
}
 
void EvtDsTopipipipi0pi0::propagatorRBWttt( double mass2, double mass, double width, double sa,
                                            double sb, double sc, double r2, int l,
                                            double ttt[6], double prop[2] ) {
  double a[2], b[2];
  double temp[3];
  a[0] = 1;
  a[1] = 0;
  b[0] = mass2 - sa;
  b[1] = -mass * width * widttt( mass2, mass, sa, sb, sc, r2, l, temp );
 
  ttt[0] = b[0];
  ttt[1] = widttt( mass2, mass, sa, sb, sc, r2, l, temp );
  ttt[2] = b[1];
  ttt[3] = temp[0];
  ttt[4] = temp[1];
  ttt[5] = temp[2];
 
  Com_Divide( a, b, prop );
}
 
void EvtDsTopipipipi0pi0::propagatorRBWl1( double mass2, double mass, double width, double sa,
                                           double sb, double sc, double r2, double prop[2] ) {
  double a[2], b[2];
  a[0] = 1;
  a[1] = 0;
  b[0] = mass2 - sa;
  b[1] = -mass * width * widl1( mass2, mass, sa, sb, sc, r2 );
  Com_Divide( a, b, prop );
}
 
void EvtDsTopipipipi0pi0::propagatorGS( double mass2, double mass, double width, double sa,
                                        double sb, double sc, double r2, double prop[2] ) {
 
  double a[2], b[2];
  double tmp  = sb - sc;
  double tmp1 = sa + tmp;
  double q2   = 0.25 * tmp1 * tmp1 / sa - sb;
  // if(q2<0) q2 = 1e-16;
  if ( q2 < 0 ) q2 = -q2;
 
  double tmp2 = mass2 + tmp;
  double q02  = 0.25 * tmp2 * tmp2 / mass2 - sb;
  // if(q02<0) q02 = 1e-16;
  if ( q02 < 0 ) q02 = -q02;
 
  double q    = sqrt( q2 );
  double q0   = sqrt( q02 );
  double m    = sqrt( sa );
  double q03  = q0 * q02;
  double tmp3 = log( mass + 2 * q0 ) + 1.2760418309; // log(mass_2Pion) = 1.2760418309;
 
  double h  = GS1 * q / m * ( log( m + 2 * q ) + 1.2760418309 );
  double h0 = GS1 * q0 / mass * tmp3;
  double dh = h0 * ( 0.125 / q02 - 0.5 / mass2 ) + GS3 / mass2;
  double d  = GS2 / q02 * tmp3 + GS3 * mass / q0 - GS4 * mass / q03;
  double f  = mass2 / q03 * ( q2 * ( h - h0 ) + ( mass2 - sa ) * q02 * dh );
 
  a[0] = 1.0 + d * width / mass;
  a[1] = 0.0;
  b[0] = mass2 - sa + width * f;
  b[1] = -mass * width * widl1( mass2, mass, sa, sb, sc, r2 );
  Com_Divide( a, b, prop );
}
 
void EvtDsTopipipipi0pi0::propagatorGS_Omg( double mass2, double mass, double width, double sa,
                                            double sb, double sc, double r2, double amp_Omg,
                                            double phs_Omg, double prop[2] ) {
  const double Omg_mass  = 0.783;
  const double Omg_width = 0.008;
  const double Omg_mass2 = 0.613089;
 
  double tmp_propGS[2];
  propagatorGS( mass2, mass, width, sa, sb, sc, r2, tmp_propGS );
  double tmp_propOmg[2];
  propagatorRBWl1( Omg_mass2, Omg_mass, Omg_width, sa, sb, sc, r2,
                   tmp_propOmg ); //  Using constant Gamma
 
  double tmp_propOmg02[2];
  tmp_propOmg02[0] = Omg_mass2 * tmp_propOmg[0];
  tmp_propOmg02[1] = Omg_mass2 * tmp_propOmg[1];
 
  double tmp_cof[2];
  tmp_cof[0] = amp_Omg * cos( phs_Omg );
  tmp_cof[1] = amp_Omg * sin( phs_Omg );
 
  double amp_M_RBWOm[2];
  amp_M_RBWOm[0] = tmp_cof[0] * tmp_propOmg02[0] - tmp_cof[1] * tmp_propOmg02[1];
  amp_M_RBWOm[1] = tmp_cof[1] * tmp_propOmg02[0] + tmp_cof[0] * tmp_propOmg02[1];
 
  double GS_amp_RBWOm[2];
  Com_Multi( tmp_propGS, amp_M_RBWOm, GS_amp_RBWOm );
 
  prop[0] = tmp_propGS[0] + GS_amp_RBWOm[0];
  prop[1] = tmp_propGS[1] + GS_amp_RBWOm[1];
}
 
void EvtDsTopipipipi0pi0::rhoab( double sa, double sb, double sc, double res[2] ) {
  double tmp = sa + sb - sc;
  double q   = 0.25 * tmp * tmp / sa - sb;
  if ( q >= 0 )
  {
    res[0] = 2.0 * sqrt( q / sa );
    res[1] = 0.0;
  }
  else
  {
    res[0] = 0.0;
    res[1] = 2.0 * sqrt( -q / sa );
  }
}
 
void EvtDsTopipipipi0pi0::rho4Pi( double sa, double res[2] ) {
  double temp = 1.0 - 0.3116765584 / sa; // 0.3116765584=0.13957*0.13957*16
  if ( temp >= 0 )
  {
    res[0] = sqrt( temp ) / ( 1.0 + exp( 9.8 - 3.5 * sa ) );
    res[1] = 0.0;
  }
  else
  {
    res[0] = 0.0;
    res[1] = sqrt( -temp ) / ( 1.0 + exp( 9.8 - 3.5 * sa ) );
  }
}
 
void EvtDsTopipipipi0pi0::propagatorsigma500( double sa, double sb, double sc,
                                              double prop[2] ) {
  double       f      = 0.5843 + 1.6663 * sa;
  const double M      = 0.9264;
  const double mass2  = 0.85821696; // M*M
  const double mpi2d2 = 0.00973989245;
  double       gg1 = f * ( sa - mpi2d2 ) / ( mass2 - mpi2d2 ) * exp( ( mass2 - sa ) / 1.082 );
  double       rho1s[2], rho1M[2], rho2s[2], rho2M[2], rho1[2], rho2[2];
  rhoab( sa, sb, sc, rho1s );
  rhoab( mass2, sb, sc, rho1M );
  rho4Pi( sa, rho2s );
  rho4Pi( mass2, rho2M );
  Com_Divide( rho1s, rho1M, rho1 );
  Com_Divide( rho2s, rho2M, rho2 );
  double a[2], b[2];
  a[0] = 1.0;
  a[1] = 0.0;
  b[0] = mass2 - sa + M * ( gg1 * rho1[1] + 0.0024 * rho2[1] );
  b[1] = -M * ( gg1 * rho1[0] + 0.0024 * rho2[0] );
  Com_Divide( a, b, prop );
}
 
void EvtDsTopipipipi0pi0::KPiSLASS( double sa, double sb, double sc, double prop[2] ) {
  const double m1430 = 1.463;
  const double sa0   = 2.140369; // m1430*m1430;
  const double w1430 = 0.233;
  const double Lass1 = 0.25 / sa0;
  double       tmp   = sb - sc;
  double       tmp1  = sa0 + tmp;
  double       q0    = Lass1 * tmp1 * tmp1 - sb;
  // if(q0<0) q0 = 1e-16;
  if ( q0 < 0 ) q0 = -q0;
  double tmp2   = sa + tmp;
  double qs     = 0.25 * tmp2 * tmp2 / sa - sb;
  double q      = sqrt( qs );
  double width  = w1430 * q * m1430 / sqrt( sa * q0 );
  double temp_R = atan( m1430 * width / ( sa0 - sa ) );
  if ( temp_R < 0 ) temp_R += 3.1415926;
  double deltaR = -5.31 + temp_R;
  double temp_F = atan( 2.14 * q / ( 2.0 - 1.926 * qs ) ); // 2.0*1.07 = 2.14; 1.8*1.07 = 1.926
  if ( temp_F < 0 ) temp_F += 3.1415926;
  double deltaF = 2.33 + temp_F;
  double deltaS = deltaR + 2.0 * deltaF;
  double t1     = 0.8 * sin( deltaF );
  double t2     = sin( deltaR );
  double CF[2], CS[2];
  CF[0]   = cos( deltaF );
  CF[1]   = sin( deltaF );
  CS[0]   = cos( deltaS );
  CS[1]   = sin( deltaS );
  prop[0] = t1 * CF[0] + t2 * CS[0];
  prop[1] = t1 * CF[1] + t2 * CS[1];
}
 
void EvtDsTopipipipi0pi0::calEva( double* Pip1, double* Pip2, double* Pi01, double* Pi02,
                                  double* Pim, double* mass1, double* mass2, double* width1,
                                  double* width2, double* amp, double* phase, int* g0, int* g1,
                                  int* g2, int* modetype, double nstates, double& Result ) {
  double cof[2], amp_tmp1[2], amp_tmp2[2], amp_tmp3[2], amp_tmp4[2], amp_tmp[2], amp_PDF[2],
      PDF[2];
 
  double pomega1[4], pomega2[4], pomega3[4], pomega4[4], pphi1[4], pphi2[4], pphi3[4],
      pphi4[4], prho1[4], prho2[4], prho3[4], prho4[4], pb1p1[4], pb1p2[4], pb1p3[4], pb1p4[4],
      pb1n1[4], pb1n2[4], pb1n3[4], pb1n4[4], prho11[4], prho12[4], prho13[4], prho21[4],
      prho22[4], prho23[4], prho31[4], prho32[4], prho33[4], prho41[4], prho42[4], prho43[4],
      pDs[4], prho1450n1[4], prho1450n2[4], prho1450n3[4], prho1450n4[4], prho1450p1[4],
      prho1450p2[4], prho1450p3[4], prho1450p4[4];
  double pa1012601[4], pa1012602[4], pa1012603[4], pa1012604[4], pa10f05001[4], pa10f05002[4];
  double pa1p12601[4], pa1p12602[4], pa1rho1[4], pa1rho2[4], pa1pf0500[4];
  double pf114201[4], pf114202[4], pf114203[4], pf114204[4], pf11420rhop1[4], pf11420rhop2[4],
      pf11420rhop3[4], pf11420rhop4[4], pf11420rhom1[4], pf11420rhom2[4], pf11420rhom3[4],
      pf11420rhom4[4];
  double pr1a11[4], pr1a12[4], pr1a13[4], pr1a14[4], pr1rhop1[4], pr1rhop2[4], pr1rhop3[4],
      pr1rhop4[4], pr1a1rho01[4], pr1a1rho02[4], pr1a1rho03[4], pr1a1rho04[4];
  double pr2a11[4], pr2a12[4], pr2a13[4], pr2a14[4], pr2a1rhop1[4], pr2a1rhop2[4],
      pr2a1rhop3[4], pr2a1rhop4[4], pr2rhop1[4], pr2rhop2[4], pr2rhop3[4], pr2rhop4[4];
  double pr3a11[4], pr3a12[4], pr3a13[4], pr3a14[4], pr3rho01[4], pr3rho02[4], pr3rho03[4],
      pr3rho04[4], pr3a1rhop1[4], pr3a1rhop2[4], pr3a1rhop3[4], pr3a1rhop4[4];
  double pr4a11[4], pr4a12[4], pr4a13[4], pr4a14[4], pr4rhop1[4], pr4rhop2[4], pr4rhop3[4],
      pr4rhop4[4], pr4a1rhom1[4], pr4a1rhom2[4], pr4a1rhom3[4], pr4a1rhom4[4];
 
  for ( int i = 0; i != 4; i++ )
  {
    pomega1[i]      = Pip1[i] + Pi01[i] + Pim[i];
    pomega2[i]      = Pip1[i] + Pi02[i] + Pim[i];
    pomega3[i]      = Pip2[i] + Pi01[i] + Pim[i];
    pomega4[i]      = Pip2[i] + Pi02[i] + Pim[i];
    pphi1[i]        = Pip1[i] + Pi01[i] + Pim[i];
    pphi2[i]        = Pip1[i] + Pi02[i] + Pim[i];
    pphi3[i]        = Pip2[i] + Pi01[i] + Pim[i];
    pphi4[i]        = Pip2[i] + Pi02[i] + Pim[i];
    prho1[i]        = Pip2[i] + Pi02[i];
    prho2[i]        = Pip2[i] + Pi01[i];
    prho3[i]        = Pip1[i] + Pi02[i];
    prho4[i]        = Pip1[i] + Pi01[i];
    prho11[i]       = Pip1[i] + Pi01[i];
    prho12[i]       = Pip1[i] + Pim[i];
    prho13[i]       = Pi01[i] + Pim[i];
    prho21[i]       = Pip1[i] + Pi02[i];
    prho22[i]       = Pip1[i] + Pim[i];
    prho23[i]       = Pi02[i] + Pim[i];
    prho31[i]       = Pip2[i] + Pi01[i];
    prho32[i]       = Pip2[i] + Pim[i];
    prho33[i]       = Pi01[i] + Pim[i];
    prho41[i]       = Pip2[i] + Pi02[i];
    prho42[i]       = Pip2[i] + Pim[i];
    prho43[i]       = Pi02[i] + Pim[i];
    pb1p1[i]        = Pip1[i] + Pi01[i] + Pim[i] + Pip2[i];
    pb1p2[i]        = Pip1[i] + Pi02[i] + Pim[i] + Pip2[i];
    pb1p3[i]        = Pip2[i] + Pi01[i] + Pim[i] + Pip1[i];
    pb1p4[i]        = Pip2[i] + Pi02[i] + Pim[i] + Pip1[i];
    pb1n1[i]        = Pip1[i] + Pi01[i] + Pim[i] + Pi02[i];
    pb1n2[i]        = Pip1[i] + Pi02[i] + Pim[i] + Pi01[i];
    pb1n3[i]        = Pip2[i] + Pi01[i] + Pim[i] + Pi02[i];
    pb1n4[i]        = Pip2[i] + Pi02[i] + Pim[i] + Pi01[i];
    prho1450p1[i]   = Pip1[i] + Pi01[i] + Pim[i] + Pip2[i];
    prho1450p2[i]   = Pip1[i] + Pi02[i] + Pim[i] + Pip2[i];
    prho1450p3[i]   = Pip2[i] + Pi01[i] + Pim[i] + Pip1[i];
    prho1450p4[i]   = Pip2[i] + Pi02[i] + Pim[i] + Pip1[i];
    prho1450n1[i]   = Pip1[i] + Pi01[i] + Pim[i] + Pi02[i];
    prho1450n2[i]   = Pip1[i] + Pi02[i] + Pim[i] + Pi01[i];
    prho1450n3[i]   = Pip2[i] + Pi01[i] + Pim[i] + Pi02[i];
    prho1450n4[i]   = Pip2[i] + Pi02[i] + Pim[i] + Pi01[i];
    pa1012601[i]    = Pip1[i] + Pi01[i] + Pim[i];
    pa1012602[i]    = Pip1[i] + Pi02[i] + Pim[i];
    pa10f05001[i]   = Pip1[i] + Pim[i];
    pa1012603[i]    = Pip2[i] + Pi01[i] + Pim[i];
    pa1012604[i]    = Pip2[i] + Pi02[i] + Pim[i];
    pa10f05002[i]   = Pip2[i] + Pim[i];
    pa1p12601[i]    = Pi01[i] + Pi02[i] + Pip1[i];
    pa1p12602[i]    = Pi01[i] + Pi02[i] + Pip2[i];
    pa1pf0500[i]    = Pi01[i] + Pi02[i];
    pa1rho1[i]      = Pip2[i] + Pim[i];
    pa1rho2[i]      = Pip1[i] + Pim[i];
    pf114201[i]     = Pip1[i] + Pi01[i] + Pi02[i] + Pim[i];
    pf114202[i]     = Pip1[i] + Pi02[i] + Pi01[i] + Pim[i];
    pf114203[i]     = Pip2[i] + Pi01[i] + Pi02[i] + Pim[i];
    pf114204[i]     = Pip2[i] + Pi02[i] + Pi01[i] + Pim[i];
    pf11420rhop1[i] = Pip1[i] + Pi01[i];
    pf11420rhop2[i] = Pip1[i] + Pi02[i];
    pf11420rhop3[i] = Pip2[i] + Pi01[i];
    pf11420rhop4[i] = Pip2[i] + Pi02[i];
    pf11420rhom1[i] = Pim[i] + Pi02[i];
    pf11420rhom2[i] = Pim[i] + Pi01[i];
    pf11420rhom3[i] = Pim[i] + Pi02[i];
    pf11420rhom4[i] = Pim[i] + Pi01[i];
    pr1a11[i]       = Pip1[i] + Pim[i] + Pi01[i];
    pr1a12[i]       = Pip1[i] + Pim[i] + Pi02[i];
    pr1a13[i]       = Pip2[i] + Pim[i] + Pi01[i];
    pr1a14[i]       = Pip2[i] + Pim[i] + Pi02[i];
    pr1a1rho01[i]   = Pip1[i] + Pim[i];
    pr1a1rho02[i]   = Pip1[i] + Pim[i];
    pr1a1rho03[i]   = Pip2[i] + Pim[i];
    pr1a1rho04[i]   = Pip2[i] + Pim[i];
    pr1rhop1[i]     = Pip2[i] + Pi02[i];
    pr1rhop2[i]     = Pip2[i] + Pi01[i];
    pr1rhop3[i]     = Pip1[i] + Pi02[i];
    pr1rhop4[i]     = Pip1[i] + Pi01[i];
    pr2a11[i]       = Pip1[i] + Pi01[i] + Pim[i];
    pr2a12[i]       = Pip1[i] + Pi02[i] + Pim[i];
    pr2a13[i]       = Pip2[i] + Pi01[i] + Pim[i];
    pr2a14[i]       = Pip2[i] + Pi02[i] + Pim[i];
    pr2a1rhop1[i]   = Pip1[i] + Pi01[i];
    pr2a1rhop2[i]   = Pip1[i] + Pi02[i];
    pr2a1rhop3[i]   = Pip2[i] + Pi01[i];
    pr2a1rhop4[i]   = Pip2[i] + Pi02[i];
    pr2rhop1[i]     = Pip2[i] + Pi02[i];
    pr2rhop2[i]     = Pip2[i] + Pi01[i];
    pr2rhop3[i]     = Pip1[i] + Pi02[i];
    pr2rhop4[i]     = Pip1[i] + Pi01[i];
    pr3a11[i]       = Pip1[i] + Pi01[i] + Pi02[i];
    pr3a12[i]       = Pip1[i] + Pi02[i] + Pi01[i];
    pr3a13[i]       = Pip2[i] + Pi01[i] + Pi02[i];
    pr3a14[i]       = Pip2[i] + Pi02[i] + Pi01[i];
    pr3a1rhop1[i]   = Pip1[i] + Pi01[i];
    pr3a1rhop2[i]   = Pip1[i] + Pi02[i];
    pr3a1rhop3[i]   = Pip2[i] + Pi01[i];
    pr3a1rhop4[i]   = Pip2[i] + Pi02[i];
    pr3rho01[i]     = Pip2[i] + Pim[i];
    pr3rho02[i]     = Pip2[i] + Pim[i];
    pr3rho03[i]     = Pip1[i] + Pim[i];
    pr3rho04[i]     = Pip1[i] + Pim[i];
    pr4a11[i]       = Pim[i] + Pi01[i] + Pip1[i];
    pr4a12[i]       = Pim[i] + Pi02[i] + Pip1[i];
    pr4a13[i]       = Pim[i] + Pi01[i] + Pip2[i];
    pr4a14[i]       = Pim[i] + Pi02[i] + Pip2[i];
    pr4a1rhom1[i]   = Pi01[i] + Pim[i];
    pr4a1rhom2[i]   = Pi02[i] + Pim[i];
    pr4a1rhom3[i]   = Pi01[i] + Pim[i];
    pr4a1rhom4[i]   = Pi02[i] + Pim[i];
    pr4rhop1[i]     = Pip2[i] + Pi02[i];
    pr4rhop2[i]     = Pip2[i] + Pi01[i];
    pr4rhop3[i]     = Pip1[i] + Pi02[i];
    pr4rhop4[i]     = Pip1[i] + Pi01[i];
 
    pDs[i] = Pip1[i] + Pip2[i] + Pi01[i] + Pi02[i] + Pim[i];
  }
 
  double sPip1, sPip2, sPi01, sPi02, sPim, somega1, somega2, somega3, somega4, sphi1, sphi2,
      sphi3, sphi4, srho1, srho2, srho3, srho4, sb1p1, sb1p2, sb1p3, sb1p4, sb1n1, sb1n2,
      sb1n3, sb1n4, srho11, srho12, srho13, srho21, srho22, srho23, srho31, srho32, srho33,
      srho41, srho42, srho43, sDs, srho1450n1, srho1450n2, srho1450n3, srho1450n4, srho1450p1,
      srho1450p2, srho1450p3, srho1450p4;
  double sa1012601, sa1012602, sa1012603, sa1012604, sa10f05001, sa10f05002;
  double sa1p12601, sa1p12602, sa1rho1, sa1rho2, sa1pf0500;
  double sf114201, sf114202, sf114203, sf114204, sf11420rhop1, sf11420rhop2, sf11420rhop3,
      sf11420rhop4, sf11420rhom1, sf11420rhom2, sf11420rhom3, sf11420rhom4;
  double sr1a11, sr1a12, sr1a13, sr1a14, sr1a1rho01, sr1a1rho02, sr1a1rho03, sr1a1rho04,
      sr1rhop1, sr1rhop2, sr1rhop3, sr1rhop4;
  double sr2a11, sr2a12, sr2a13, sr2a14, sr2a1rhop1, sr2a1rhop2, sr2a1rhop3, sr2a1rhop4,
      sr2rhop1, sr2rhop2, sr2rhop3, sr2rhop4;
  double sr3a11, sr3a12, sr3a13, sr3a14, sr3a1rhop1, sr3a1rhop2, sr3a1rhop3, sr3a1rhop4,
      sr3rho01, sr3rho02, sr3rho03, sr3rho04;
  double sr4a11, sr4a12, sr4a13, sr4a14, sr4a1rhom1, sr4a1rhom2, sr4a1rhom3, sr4a1rhom4,
      sr4rhop1, sr4rhop2, sr4rhop3, sr4rhop4;
  sPip1        = SCADot( Pip1, Pip1 );
  sPip2        = SCADot( Pip2, Pip2 );
  sPi01        = SCADot( Pi01, Pi01 );
  sPi02        = SCADot( Pi02, Pi02 );
  sPim         = SCADot( Pim, Pim );
  somega1      = SCADot( pomega1, pomega1 );
  somega2      = SCADot( pomega2, pomega2 );
  somega3      = SCADot( pomega3, pomega3 );
  somega4      = SCADot( pomega4, pomega4 );
  sphi1        = SCADot( pphi1, pphi1 );
  sphi2        = SCADot( pphi2, pphi2 );
  sphi3        = SCADot( pphi3, pphi3 );
  sphi4        = SCADot( pphi4, pphi4 );
  srho1        = SCADot( prho1, prho1 );
  srho2        = SCADot( prho2, prho2 );
  srho3        = SCADot( prho3, prho3 );
  srho4        = SCADot( prho4, prho4 );
  sb1p1        = SCADot( pb1p1, pb1p1 );
  sb1p2        = SCADot( pb1p2, pb1p2 );
  sb1p3        = SCADot( pb1p3, pb1p3 );
  sb1p4        = SCADot( pb1p4, pb1p4 );
  sb1n1        = SCADot( pb1n1, pb1n1 );
  sb1n2        = SCADot( pb1n2, pb1n2 );
  sb1n3        = SCADot( pb1n3, pb1n3 );
  sb1n4        = SCADot( pb1n4, pb1n4 );
  srho1450p1   = SCADot( prho1450p1, prho1450p1 );
  srho1450p2   = SCADot( prho1450p2, prho1450p2 );
  srho1450p3   = SCADot( prho1450p3, prho1450p3 );
  srho1450p4   = SCADot( prho1450p4, prho1450p4 );
  srho1450n1   = SCADot( prho1450n1, prho1450n1 );
  srho1450n2   = SCADot( prho1450n2, prho1450n2 );
  srho1450n3   = SCADot( prho1450n3, prho1450n3 );
  srho1450n4   = SCADot( prho1450n4, prho1450n4 );
  srho11       = SCADot( prho11, prho11 );
  srho12       = SCADot( prho12, prho12 );
  srho13       = SCADot( prho13, prho13 );
  srho21       = SCADot( prho21, prho21 );
  srho22       = SCADot( prho22, prho22 );
  srho23       = SCADot( prho23, prho23 );
  srho31       = SCADot( prho31, prho31 );
  srho32       = SCADot( prho32, prho32 );
  srho33       = SCADot( prho33, prho33 );
  srho41       = SCADot( prho41, prho41 );
  srho42       = SCADot( prho42, prho42 );
  srho43       = SCADot( prho43, prho43 );
  sa1012601    = SCADot( pa1012601, pa1012601 );
  sa1012602    = SCADot( pa1012602, pa1012602 );
  sa10f05001   = SCADot( pa10f05001, pa10f05001 );
  sa1012603    = SCADot( pa1012603, pa1012603 );
  sa1012604    = SCADot( pa1012604, pa1012604 );
  sa10f05002   = SCADot( pa10f05002, pa10f05002 );
  sa1p12601    = SCADot( pa1p12601, pa1p12601 );
  sa1p12602    = SCADot( pa1p12602, pa1p12602 );
  sa1pf0500    = SCADot( pa1pf0500, pa1pf0500 );
  sa1rho1      = SCADot( pa1rho1, pa1rho1 );
  sa1rho2      = SCADot( pa1rho2, pa1rho2 );
  sf114201     = SCADot( pf114201, pf114201 );
  sf114202     = SCADot( pf114202, pf114202 );
  sf114203     = SCADot( pf114203, pf114203 );
  sf114204     = SCADot( pf114204, pf114204 );
  sf11420rhop1 = SCADot( pf11420rhop1, pf11420rhop1 );
  sf11420rhop2 = SCADot( pf11420rhop2, pf11420rhop2 );
  sf11420rhop3 = SCADot( pf11420rhop3, pf11420rhop3 );
  sf11420rhop4 = SCADot( pf11420rhop4, pf11420rhop4 );
  sf11420rhom1 = SCADot( pf11420rhom1, pf11420rhom1 );
  sf11420rhom2 = SCADot( pf11420rhom2, pf11420rhom2 );
  sf11420rhom3 = SCADot( pf11420rhom3, pf11420rhom3 );
  sf11420rhom4 = SCADot( pf11420rhom4, pf11420rhom4 );
  sr1a11       = SCADot( pr1a11, pr1a11 );
  sr1a12       = SCADot( pr1a12, pr1a12 );
  sr1a13       = SCADot( pr1a13, pr1a13 );
  sr1a14       = SCADot( pr1a14, pr1a14 );
  sr1a1rho01   = SCADot( pr1a1rho01, pr1a1rho01 );
  sr1a1rho02   = SCADot( pr1a1rho02, pr1a1rho02 );
  sr1a1rho03   = SCADot( pr1a1rho03, pr1a1rho03 );
  sr1a1rho04   = SCADot( pr1a1rho04, pr1a1rho04 );
  sr1rhop1     = SCADot( pr1rhop1, pr1rhop1 );
  sr1rhop2     = SCADot( pr1rhop2, pr1rhop2 );
  sr1rhop3     = SCADot( pr1rhop3, pr1rhop3 );
  sr1rhop4     = SCADot( pr1rhop4, pr1rhop4 );
  sr2a11       = SCADot( pr2a11, pr2a11 );
  sr2a12       = SCADot( pr2a12, pr2a12 );
  sr2a13       = SCADot( pr2a13, pr2a13 );
  sr2a14       = SCADot( pr2a14, pr2a14 );
  sr2a1rhop1   = SCADot( pr2a1rhop1, pr2a1rhop1 );
  sr2a1rhop2   = SCADot( pr2a1rhop2, pr2a1rhop2 );
  sr2a1rhop3   = SCADot( pr2a1rhop3, pr2a1rhop3 );
  sr2a1rhop4   = SCADot( pr2a1rhop4, pr2a1rhop4 );
  sr2rhop1     = SCADot( pr2rhop1, pr2rhop1 );
  sr2rhop2     = SCADot( pr2rhop2, pr2rhop2 );
  sr2rhop3     = SCADot( pr2rhop3, pr2rhop3 );
  sr2rhop4     = SCADot( pr2rhop4, pr2rhop4 );
  sr3a11       = SCADot( pr3a11, pr3a11 );
  sr3a12       = SCADot( pr3a12, pr3a12 );
  sr3a13       = SCADot( pr3a13, pr3a13 );
  sr3a14       = SCADot( pr3a14, pr3a14 );
  sr3a1rhop1   = SCADot( pr3a1rhop1, pr3a1rhop1 );
  sr3a1rhop2   = SCADot( pr3a1rhop2, pr3a1rhop2 );
  sr3a1rhop3   = SCADot( pr3a1rhop3, pr3a1rhop3 );
  sr3a1rhop4   = SCADot( pr3a1rhop4, pr3a1rhop4 );
  sr3rho01     = SCADot( pr3rho01, pr3rho01 );
  sr3rho02     = SCADot( pr3rho02, pr3rho02 );
  sr3rho03     = SCADot( pr3rho03, pr3rho03 );
  sr3rho04     = SCADot( pr3rho04, pr3rho04 );
  sr4a11       = SCADot( pr4a11, pr4a11 );
  sr4a12       = SCADot( pr4a12, pr4a12 );
  sr4a13       = SCADot( pr4a13, pr4a13 );
  sr4a14       = SCADot( pr4a14, pr4a14 );
  sr4a1rhom1   = SCADot( pr4a1rhom1, pr4a1rhom1 );
  sr4a1rhom2   = SCADot( pr4a1rhom2, pr4a1rhom2 );
  sr4a1rhom3   = SCADot( pr4a1rhom3, pr4a1rhom3 );
  sr4a1rhom4   = SCADot( pr4a1rhom4, pr4a1rhom4 );
  sr4rhop1     = SCADot( pr4rhop1, pr4rhop1 );
  sr4rhop2     = SCADot( pr4rhop2, pr4rhop2 );
  sr4rhop3     = SCADot( pr4rhop3, pr4rhop3 );
  sr4rhop4     = SCADot( pr4rhop4, pr4rhop4 );
 
  sDs = SCADot( pDs, pDs );
 
  double t1rho1[4], t1rho2[4], t1rho3[4], t1rho4[4], t1omega11[4], t1omega12[4], t1omega13[4],
      t1omega21[4], t1omega22[4], t1omega23[4], t1omega31[4], t1omega32[4], t1omega33[4],
      t1omega41[4], t1omega42[4], t1omega43[4], t1phi11[4], t1phi12[4], t1phi13[4], t1phi21[4],
      t1phi22[4], t1phi23[4], t1phi31[4], t1phi32[4], t1phi33[4], t1phi41[4], t1phi42[4],
      t1phi43[4], t1rho11[4], t1rho12[4], t1rho13[4], t1rho21[4], t1rho22[4], t1rho23[4],
      t1rho31[4], t1rho32[4], t1rho33[4], t1rho41[4], t1rho42[4], t1rho43[4];
  double p1omega11[4][4], p1omega12[4][4], p1omega13[4][4], p1omega21[4][4], p1omega22[4][4],
      p1omega23[4][4], p1omega31[4][4], p1omega32[4][4], p1omega33[4][4], p1omega41[4][4],
      p1omega42[4][4], p1omega43[4][4], p1phi11[4][4], p1phi12[4][4], p1phi13[4][4],
      p1phi21[4][4], p1phi22[4][4], p1phi23[4][4], p1phi31[4][4], p1phi32[4][4], p1phi33[4][4],
      p1phi41[4][4], p1phi42[4][4], p1phi43[4][4], p1b1p1[4][4], p1b1p2[4][4], p1b1p3[4][4],
      p1b1p4[4][4], p1b1n1[4][4], p1b1n2[4][4], p1b1n3[4][4], p1b1n4[4][4], p1rho1450p1[4][4],
      p1rho1450p2[4][4], p1rho1450p3[4][4], p1rho1450p4[4][4], p1rho1450n1[4][4],
      p1rho1450n2[4][4], p1rho1450n3[4][4], p1rho1450n4[4][4];
  double t2b1p1[4][4], t2b1p2[4][4], t2b1p3[4][4], t2b1p4[4][4], t2b1n1[4][4], t2b1n2[4][4],
      t2b1n3[4][4], t2b1n4[4][4];
  double t1rho1450p1[4], t1rho1450p2[4], t1rho1450p3[4], t1rho1450p4[4], t1rho1450n1[4],
      t1rho1450n2[4], t1rho1450n3[4], t1rho1450n4[4];
  double t1a1012601[4], t1a1012602[4], t1a1012603[4], t1a1012604[4];
  double t1a1p12601[4], t1a1p12602[4], t1a1rho1[4], t1a1rho2[4];
  double p1f114201[4][4], p1f114202[4][4], p1f114203[4][4], p1f114204[4][4], t1f114201[4],
      t1f114202[4], t1f114203[4], t1f114204[4], t1f11420rhop1[4], t1f11420rhop2[4],
      t1f11420rhop3[4], t1f11420rhop4[4], t1f11420rhom1[4], t1f11420rhom2[4], t1f11420rhom3[4],
      t1f11420rhom4[4];
  double t1r1rhop1[4], t1r1rhop2[4], t1r1rhop3[4], t1r1rhop4[4], t1r1a1rho01[4],
      t1r1a1rho02[4], t1r1a1rho03[4], t1r1a1rho04[4], t2r1a11[4][4], t2r1a12[4][4],
      t2r1a13[4][4], t2r1a14[4][4], p1r1a11[4][4], p1r1a12[4][4], p1r1a13[4][4], p1r1a14[4][4];
  double t1r2a1rhop1[4], t1r2a1rhop2[4], t1r2a1rhop3[4], t1r2a1rhop4[4], t1r2rhop1[4],
      t1r2rhop2[4], t1r2rhop3[4], t1r2rhop4[4], t2r2a11[4][4], t2r2a12[4][4], t2r2a13[4][4],
      t2r2a14[4][4], p1r2a11[4][4], p1r2a12[4][4], p1r2a13[4][4], p1r2a14[4][4];
  double t1r3a1rhop1[4], t1r3a1rhop2[4], t1r3a1rhop3[4], t1r3a1rhop4[4], t1r3rho01[4],
      t1r3rho02[4], t1r3rho03[4], t1r3rho04[4], t2r3a11[4][4], t2r3a12[4][4], t2r3a13[4][4],
      t2r3a14[4][4], p1r3a11[4][4], p1r3a12[4][4], p1r3a13[4][4], p1r3a14[4][4];
  double t1r4a1rhom1[4], t1r4a1rhom2[4], t1r4a1rhom3[4], t1r4a1rhom4[4], t1r4rhop1[4],
      t1r4rhop2[4], t1r4rhop3[4], t1r4rhop4[4], t2r4a11[4][4], t2r4a12[4][4], t2r4a13[4][4],
      t2r4a14[4][4], p1r4a11[4][4], p1r4a12[4][4], p1r4a13[4][4], p1r4a14[4][4];
 
  PDF[0] = 0.0;
  PDF[1] = 0.0;
 
  double t1Ds_omega1[4], t1Ds_omega2[4], t1Ds_omega3[4], t1Ds_omega4[4], t1Ds_phi1[4],
      t1Ds_phi2[4], t1Ds_phi3[4], t1Ds_phi4[4], t1Ds_b1p1[4], t1Ds_b1p2[4], t1Ds_b1p3[4],
      t1Ds_b1p4[4], t1Ds_b1n1[4], t1Ds_b1n2[4], t1Ds_b1n3[4], t1Ds_b1n4[4], t1Ds_rho1450p1[4],
      t1Ds_rho1450p2[4], t1Ds_rho1450p3[4], t1Ds_rho1450p4[4], t1Ds_rho1450n1[4],
      t1Ds_rho1450n2[4], t1Ds_rho1450n3[4], t1Ds_rho1450n4[4];
  double t1Ds_a1012601[4], t1Ds_a1012602[4], t1Ds_a1012603[4], t1Ds_a1012604[4];
  double t1Ds_a1p12601[4], t1Ds_a1p12602[4];
  double t1Ds_f114201[4], t1Ds_f114202[4], t1Ds_f114203[4], t1Ds_f114204[4];
  double t1Ds_r1a1rhop1[4], t1Ds_r1a1rhop2[4], t1Ds_r1a1rhop3[4], t1Ds_r1a1rhop4[4];
  double t1Ds_r2a1rhop1[4], t1Ds_r2a1rhop2[4], t1Ds_r2a1rhop3[4], t1Ds_r2a1rhop4[4];
  double t1Ds_r3a1rho01[4], t1Ds_r3a1rho02[4], t1Ds_r3a1rho03[4], t1Ds_r3a1rho04[4];
  double t1Ds_r4a1rhop1[4], t1Ds_r4a1rhop2[4], t1Ds_r4a1rhop3[4], t1Ds_r4a1rhop4[4];
 
  double t2Ds_omega1[4][4], t2Ds_omega2[4][4], t2Ds_omega3[4][4], t2Ds_omega4[4][4],
      t2Ds_phi1[4][4], t2Ds_phi2[4][4], t2Ds_phi3[4][4], t2Ds_phi4[4][4];
  double t2Ds_a1012601[4][4], t2Ds_a1012602[4][4], t2Ds_a1012603[4][4], t2Ds_a1012604[4][4];
  double t2Ds_a1p12601[4][4], t2Ds_a1p12602[4][4];
  double t2Ds_r1a1rhop1[4][4], t2Ds_r1a1rhop2[4][4], t2Ds_r1a1rhop3[4][4],
      t2Ds_r1a1rhop4[4][4];
  double t2Ds_r2a1rhop1[4][4], t2Ds_r2a1rhop2[4][4], t2Ds_r2a1rhop3[4][4],
      t2Ds_r2a1rhop4[4][4];
  double t2Ds_r3a1rho01[4][4], t2Ds_r3a1rho02[4][4], t2Ds_r3a1rho03[4][4],
      t2Ds_r3a1rho04[4][4];
  double t2Ds_r4a1rhop1[4][4], t2Ds_r4a1rhop2[4][4], t2Ds_r4a1rhop3[4][4],
      t2Ds_r4a1rhop4[4][4];
 
  double pro1V12[2], pro1V13[2], pro1V23[2], pro2V12[2], pro2V13[2], pro2V23[2], pro3V12[2],
      pro3V13[2], pro3V23[2], pro4V12[2], pro4V13[2], pro4V23[2];
 
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho11, sPip1, sPi01, rRes2, pro1V12 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho12, sPip1, sPim, rRes2, pro1V13 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho13, sPi01, sPim, rRes2, pro1V23 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho21, sPip1, sPi02, rRes2, pro2V12 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho22, sPip1, sPim, rRes2, pro2V13 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho23, sPi02, sPim, rRes2, pro2V23 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho31, sPip2, sPi01, rRes2, pro3V12 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho32, sPip2, sPim, rRes2, pro3V13 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho33, sPi01, sPim, rRes2, pro3V23 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho41, sPip2, sPi02, rRes2, pro4V12 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho42, sPip2, sPim, rRes2, pro4V13 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho43, sPi02, sPim, rRes2, pro4V23 );
 
  double B1_1V12( -1 ), B1_1V13( -1 ), B1_1V23( -1 ), B1_2V12( -1 ), B1_2V13( -1 ),
      B1_2V23( -1 ), B1_3V12( -1 ), B1_3V13( -1 ), B1_3V23( -1 ), B1_4V12( -1 ), B1_4V13( -1 ),
      B1_4V23( -1 );
  B1_1V12 = BarrierN( 1, srho11, sPip1, sPi01, rRes2, 0.77526 );
  B1_1V13 = BarrierN( 1, srho12, sPip1, sPim, rRes2, 0.77526 );
  B1_1V23 = BarrierN( 1, srho13, sPi01, sPim, rRes2, 0.77526 );
  B1_2V12 = BarrierN( 1, srho21, sPip1, sPi02, rRes2, 0.77526 );
  B1_2V13 = BarrierN( 1, srho22, sPip1, sPim, rRes2, 0.77526 );
  B1_2V23 = BarrierN( 1, srho23, sPi02, sPim, rRes2, 0.77526 );
  B1_3V12 = BarrierN( 1, srho31, sPip2, sPi01, rRes2, 0.77526 );
  B1_3V13 = BarrierN( 1, srho32, sPip2, sPim, rRes2, 0.77526 );
  B1_3V23 = BarrierN( 1, srho33, sPi01, sPim, rRes2, 0.77526 );
  B1_4V12 = BarrierN( 1, srho41, sPip2, sPi02, rRes2, 0.77526 );
  B1_4V13 = BarrierN( 1, srho42, sPip2, sPim, rRes2, 0.77526 );
  B1_4V23 = BarrierN( 1, srho43, sPi02, sPim, rRes2, 0.77526 );
 
  double B1_omega11( -1 ), B1_omega12( -1 ), B1_omega13( -1 ), B1_omega21( -1 ),
      B1_omega22( -1 ), B1_omega23( -1 ), B1_omega31( -1 ), B1_omega32( -1 ), B1_omega33( -1 ),
      B1_omega41( -1 ), B1_omega42( -1 ), B1_omega43( -1 ), B1_phi11( -1 ), B1_phi12( -1 ),
      B1_phi13( -1 ), B1_phi21( -1 ), B1_phi22( -1 ), B1_phi23( -1 ), B1_phi31( -1 ),
      B1_phi32( -1 ), B1_phi33( -1 ), B1_phi41( -1 ), B1_phi42( -1 ), B1_phi43( -1 ),
      B1_rho1( -1 ), B1_rho2( -1 ), B1_rho3( -1 ), B1_rho4( -1 ), B2_b1p1( -1 ), B2_b1p2( -1 ),
      B2_b1p3( -1 ), B2_b1p4( -1 ), B2_b1n1( -1 ), B2_b1n2( -1 ), B2_b1n3( -1 ), B2_b1n4( -1 ),
      B1_rho1450p1( -1 ), B1_rho1450p2( -1 ), B1_rho1450p3( -1 ), B1_rho1450p4( -1 ),
      B1_rho1450n1( -1 ), B1_rho1450n2( -1 ), B1_rho1450n3( -1 ), B1_rho1450n4( -1 );
  double B1_a1012601( -1 ), B1_a1012602( -1 ), B1_a1012603( -1 ), B1_a1012604( -1 );
  double B1_a1p12601( -1 ), B1_a1p12602( -1 ), B1_a1rho1( -1 ), B1_a1rho2( -1 );
  double B1_f11420rhop1( -1 ), B1_f11420rhop2( -1 ), B1_f11420rhop3( -1 ),
      B1_f11420rhop4( -1 ), B1_f11420rhom1( -1 ), B1_f11420rhom2( -1 ), B1_f11420rhom3( -1 ),
      B1_f11420rhom4( -1 );
  double B1_r1a1rho01( -1 ), B1_r1a1rho02( -1 ), B1_r1a1rho03( -1 ), B1_r1a1rho04( -1 ),
      B1_r1rhop1( -1 ), B1_r1rhop2( -1 ), B1_r1rhop3( -1 ), B1_r1rhop4( -1 );
  double B1_r2rhop1( -1 ), B1_r2rhop2( -1 ), B1_r2rhop3( -1 ), B1_r2rhop4( -1 ),
      B1_r2a1rhop1( -1 ), B1_r2a1rhop2( -1 ), B1_r2a1rhop3( -1 ), B1_r2a1rhop4( -1 );
  double B1_r3rho01( -1 ), B1_r3rho02( -1 ), B1_r3rho03( -1 ), B1_r3rho04( -1 ),
      B1_r3a1rhop1( -1 ), B1_r3a1rhop2( -1 ), B1_r3a1rhop3( -1 ), B1_r3a1rhop4( -1 );
  double B1_r4a1rhom1( -1 ), B1_r4a1rhom2( -1 ), B1_r4a1rhom3( -1 ), B1_r4a1rhom4( -1 ),
      B1_r4rhop1( -1 ), B1_r4rhop2( -1 ), B1_r4rhop3( -1 ), B1_r4rhop4( -1 );
  double B2_r1a11( -1 ), B2_r1a12( -1 ), B2_r1a13( -1 ), B2_r1a14( -1 );
  double B2_r2a11( -1 ), B2_r2a12( -1 ), B2_r2a13( -1 ), B2_r2a14( -1 );
  double B2_r3a11( -1 ), B2_r3a12( -1 ), B2_r3a13( -1 ), B2_r3a14( -1 );
  double B2_r4a11( -1 ), B2_r4a12( -1 ), B2_r4a13( -1 ), B2_r4a14( -1 );
 
  double B1_Ds_omega1( -1 ), B1_Ds_omega2( -1 ), B1_Ds_omega3( -1 ), B1_Ds_omega4( -1 ),
      B1_Ds_phi1( -1 ), B1_Ds_phi2( -1 ), B1_Ds_phi3( -1 ), B1_Ds_phi4( -1 ), B1_Ds_b1p1( -1 ),
      B1_Ds_b1p2( -1 ), B1_Ds_b1p3( -1 ), B1_Ds_b1p4( -1 ), B1_Ds_b1n1( -1 ), B1_Ds_b1n2( -1 ),
      B1_Ds_b1n3( -1 ), B1_Ds_b1n4( -1 ), B1_Ds_rho1450p1( -1 ), B1_Ds_rho1450p2( -1 ),
      B1_Ds_rho1450p3( -1 ), B1_Ds_rho1450p4( -1 ), B1_Ds_rho1450n1( -1 ),
      B1_Ds_rho1450n2( -1 ), B1_Ds_rho1450n3( -1 ), B1_Ds_rho1450n4;
  double B1_Ds_a1012601( -1 ), B1_Ds_a1012602( -1 ), B1_Ds_a1012603( -1 ),
      B1_Ds_a1012604( -1 );
  double B1_Ds_a1p12601( -1 ), B1_Ds_a1p12602( -1 );
  double B1_Ds_f114201( -1 ), B1_Ds_f114202( -1 ), B1_Ds_f114203( -1 ), B1_Ds_f114204( -1 );
  double B1_Ds_r1a1rhop1( -1 ), B1_Ds_r1a1rhop2( -1 ), B1_Ds_r1a1rhop3( -1 ),
      B1_Ds_r1a1rhop4( -1 );
  double B1_Ds_r2a1rhop1( -1 ), B1_Ds_r2a1rhop2( -1 ), B1_Ds_r2a1rhop3( -1 ),
      B1_Ds_r2a1rhop4( -1 );
  double B1_Ds_r3a1rho01( -1 ), B1_Ds_r3a1rho02( -1 ), B1_Ds_r3a1rho03( -1 ),
      B1_Ds_r3a1rho04( -1 );
  double B1_Ds_r4a1rhop1( -1 ), B1_Ds_r4a1rhop2( -1 ), B1_Ds_r4a1rhop3( -1 ),
      B1_Ds_r4a1rhop4( -1 );
 
  double B2_Ds_omega1( -1 ), B2_Ds_omega2( -1 ), B2_Ds_omega3( -1 ), B2_Ds_omega4( -1 ),
      B2_Ds_phi1( -1 ), B2_Ds_phi2( -1 ), B2_Ds_phi3( -1 ), B2_Ds_phi4;
  double B2_Ds_a1012601( -1 ), B2_Ds_a1012602( -1 ), B2_Ds_a1012603( -1 ),
      B2_Ds_a1012604( -1 );
  double B2_Ds_a1p12601( -1 ), B2_Ds_a1p12602( -1 );
  double B2_Ds_r1a1rhop1( -1 ), B2_Ds_r1a1rhop2( -1 ), B2_Ds_r1a1rhop3( -1 ),
      B2_Ds_r1a1rhop4( -1 );
  double B2_Ds_r2a1rhop1( -1 ), B2_Ds_r2a1rhop2( -1 ), B2_Ds_r2a1rhop3( -1 ),
      B2_Ds_r2a1rhop4( -1 );
  double B2_Ds_r3a1rho01( -1 ), B2_Ds_r3a1rho02( -1 ), B2_Ds_r3a1rho03( -1 ),
      B2_Ds_r3a1rho04( -1 );
  double B2_Ds_r4a1rhop1( -1 ), B2_Ds_r4a1rhop2( -1 ), B2_Ds_r4a1rhop3( -1 ),
      B2_Ds_r4a1rhop4( -1 );
 
  double temp_PDF11, temp_PDF12, temp_PDF13, temp_PDF21, temp_PDF22, temp_PDF23, temp_PDF31,
      temp_PDF32, temp_PDF33, temp_PDF41, temp_PDF42, temp_PDF43;
  double temp_PDF1, temp_PDF2, temp_PDF3, temp_PDF4;
  double pro0_11[2], pro0_12[2], pro0_13[2], pro0_21[2], pro0_22[2], pro0_23[2], pro0_31[2],
      pro0_32[2], pro0_33[2], pro0_41[2], pro0_42[2], pro0_43[2];
  double pro1_1[2], pro1_2[2], pro1_3[2], pro1_4[2];
  double tpro_11[2], tpro_12[2], tpro_13[2], tpro_21[2], tpro_22[2], tpro_23[2], tpro_31[2],
      tpro_32[2], tpro_33[2], tpro_41[2], tpro_42[2], tpro_43[2];
  double pro00_1[2], pro00_2[2], pro00_3[2], pro00_4[2];
  double pro01_1[2], pro01_2[2], pro01_3[2], pro01_4[2];
 
  double pro0_1[2], pro0_2[2], pro0_3[2], pro0_4[2];
  double pro_1[2], pro_2[4], pro_3[2], pro_4[2];
  double pro1_11[2], pro1_12[2], pro1_13[2], pro1_21[2], pro1_22[2], pro1_23[2], pro1_31[2],
      pro1_32[2], pro1_33[2], pro1_41[2], pro1_42[2], pro1_43[2];
  double proa101[2], proa102[2], proa103[2], proa104[2], proa10f05001[2], proa10f05002[2];
  double proa1p1[2], proa1p2[2], proa1pf0500[2];
  double prof114201[2], prof114202[2], prof114203[2], prof114204[2];
  double prof11420rhop1[2], prof11420rhop2[2], prof11420rhop3[2], prof11420rhop4[2];
 
  double pro_11[2], pro_12[2], pro_13[2], pro_21[2], pro_22[2], pro_23[2], pro_31[2],
      pro_32[2], pro_33[2], pro_41[2], pro_42[2], pro_43[2];
  double mass1sq, mass2sq;
 
  //---------------------------------------------------------------------------
  for ( int i = 0; i < nstates; i++ )
  {
    cof[0]     = amp[i] * cos( phase[i] );
    cof[1]     = amp[i] * sin( phase[i] );
    mass1sq    = mass1[i] * mass1[i];
    mass2sq    = mass2[i] * mass2[i];
    temp_PDF11 = 0;
    temp_PDF12 = 0;
    temp_PDF13 = 0;
    temp_PDF21 = 0;
    temp_PDF22 = 0;
    temp_PDF23 = 0;
    temp_PDF31 = 0;
    temp_PDF32 = 0;
    temp_PDF33 = 0;
    temp_PDF41 = 0;
    temp_PDF42 = 0;
    temp_PDF43 = 0;
 
    temp_PDF1 = 0;
    temp_PDF2 = 0;
    temp_PDF3 = 0;
    temp_PDF4 = 0;
 
    if ( modetype[i] == 1 )
    {
      if ( g2[i] == 0 )
      {
        if ( B1_omega11 == -1 )
        {
          B1_omega11 = BarrierN( 1, somega1, srho11, sPim, rRes2, mass1[i] );
          B1_omega12 = BarrierN( 1, somega1, srho12, sPi01, rRes2, mass1[i] );
          B1_omega13 = BarrierN( 1, somega1, srho13, sPip1, rRes2, mass1[i] );
          B1_omega21 = BarrierN( 1, somega2, srho21, sPim, rRes2, mass1[i] );
          B1_omega22 = BarrierN( 1, somega2, srho22, sPi02, rRes2, mass1[i] );
          B1_omega23 = BarrierN( 1, somega2, srho23, sPip1, rRes2, mass1[i] );
          B1_omega31 = BarrierN( 1, somega3, srho31, sPim, rRes2, mass1[i] );
          B1_omega32 = BarrierN( 1, somega3, srho32, sPi01, rRes2, mass1[i] );
          B1_omega33 = BarrierN( 1, somega3, srho33, sPip2, rRes2, mass1[i] );
          B1_omega41 = BarrierN( 1, somega4, srho41, sPim, rRes2, mass1[i] );
          B1_omega42 = BarrierN( 1, somega4, srho42, sPi02, rRes2, mass1[i] );
          B1_omega43 = BarrierN( 1, somega4, srho43, sPip2, rRes2, mass1[i] );
        }
        if ( B1_rho1 == -1 )
        {
          B1_rho1 = BarrierN( 1, srho1, sPip2, sPi02, rRes2, mass2[i] );
          B1_rho2 = BarrierN( 1, srho2, sPip2, sPi01, rRes2, mass2[i] );
          B1_rho3 = BarrierN( 1, srho3, sPip1, sPi02, rRes2, mass2[i] );
          B1_rho4 = BarrierN( 1, srho4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        calt1( Pip2, Pi02, t1rho1 );
        calt1( Pip2, Pi01, t1rho2 );
        calt1( Pip1, Pi02, t1rho3 );
        calt1( Pip1, Pi01, t1rho4 );
        calt1( prho11, Pim, t1omega11 );
        calt1( prho12, Pi01, t1omega12 );
        calt1( prho13, Pip1, t1omega13 );
        calt1( prho21, Pim, t1omega21 );
        calt1( prho22, Pi02, t1omega22 );
        calt1( prho23, Pip1, t1omega23 );
        calt1( prho31, Pim, t1omega31 );
        calt1( prho32, Pi01, t1omega32 );
        calt1( prho23, Pip2, t1omega33 );
        calt1( prho41, Pim, t1omega41 );
        calt1( prho42, Pi02, t1omega42 );
        calt1( prho43, Pip2, t1omega43 );
        calt1( Pip1, Pi01, t1rho11 );
        calt1( Pip1, Pim, t1rho12 );
        calt1( Pi01, Pim, t1rho13 );
        calt1( Pip1, Pi02, t1rho21 );
        calt1( Pip1, Pim, t1rho22 );
        calt1( Pi02, Pim, t1rho23 );
        calt1( Pip2, Pi01, t1rho31 );
        calt1( Pip2, Pim, t1rho32 );
        calt1( Pi01, Pim, t1rho33 );
        calt1( Pip2, Pi02, t1rho41 );
        calt1( Pip2, Pim, t1rho42 );
        calt1( Pi02, Pim, t1rho43 );
        calG2( prho11, Pim, p1omega11 );
        calG2( prho12, Pi01, p1omega12 );
        calG2( prho13, Pip1, p1omega13 );
        calG2( prho21, Pim, p1omega21 );
        calG2( prho22, Pi02, p1omega22 );
        calG2( prho23, Pip1, p1omega23 );
        calG2( prho31, Pim, p1omega31 );
        calG2( prho32, Pi01, p1omega32 );
        calG2( prho33, Pip2, p1omega33 );
        calG2( prho41, Pim, p1omega41 );
        calG2( prho42, Pi02, p1omega42 );
        calG2( prho43, Pip2, p1omega43 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempomega1 = pomega1[j] * G[j][j] * G[i][i];
            double tempomega2 = pomega2[j] * G[j][j] * G[i][i];
            double tempomega3 = pomega3[j] * G[j][j] * G[i][i];
            double tempomega4 = pomega4[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega11 = t1omega11[k] * G[k][k];
              double temt1omega12 = t1omega12[k] * G[k][k];
              double temt1omega13 = t1omega13[k] * G[k][k];
              double temt1omega21 = t1omega21[k] * G[k][k];
              double temt1omega22 = t1omega22[k] * G[k][k];
              double temt1omega23 = t1omega23[k] * G[k][k];
              double temt1omega31 = t1omega31[k] * G[k][k];
              double temt1omega32 = t1omega32[k] * G[k][k];
              double temt1omega33 = t1omega33[k] * G[k][k];
              double temt1omega41 = t1omega41[k] * G[k][k];
              double temt1omega42 = t1omega42[k] * G[k][k];
              double temt1omega43 = t1omega43[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                if ( ( i == j ) || ( i == k ) || ( i == l ) || ( j == k ) || ( j == l ) ||
                     ( k == l ) )
                  continue;
                double temt1rho11 = t1rho11[l] * G[l][l] * E[i][j][k][l];
                double temt1rho12 = t1rho12[l] * G[l][l] * E[i][j][k][l];
                double temt1rho13 = t1rho13[l] * G[l][l] * E[i][j][k][l];
                double temt1rho21 = t1rho21[l] * G[l][l] * E[i][j][k][l];
                double temt1rho22 = t1rho22[l] * G[l][l] * E[i][j][k][l];
                double temt1rho23 = t1rho23[l] * G[l][l] * E[i][j][k][l];
                double temt1rho31 = t1rho31[l] * G[l][l] * E[i][j][k][l];
                double temt1rho32 = t1rho32[l] * G[l][l] * E[i][j][k][l];
                double temt1rho33 = t1rho33[l] * G[l][l] * E[i][j][k][l];
                double temt1rho41 = t1rho41[l] * G[l][l] * E[i][j][k][l];
                double temt1rho42 = t1rho42[l] * G[l][l] * E[i][j][k][l];
                double temt1rho43 = t1rho43[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF11 += G[m][m] * t1rho1[m] * p1omega11[m][i] * tempomega1 *
                                temt1omega11 * temt1rho11;
                  temp_PDF12 += G[m][m] * t1rho1[m] * p1omega12[m][i] * tempomega1 *
                                temt1omega12 * temt1rho12;
                  temp_PDF13 += G[m][m] * t1rho1[m] * p1omega13[m][i] * tempomega1 *
                                temt1omega13 * temt1rho13;
                  temp_PDF21 += G[m][m] * t1rho2[m] * p1omega21[m][i] * tempomega2 *
                                temt1omega21 * temt1rho21;
                  temp_PDF22 += G[m][m] * t1rho2[m] * p1omega22[m][i] * tempomega2 *
                                temt1omega22 * temt1rho22;
                  temp_PDF23 += G[m][m] * t1rho2[m] * p1omega23[m][i] * tempomega2 *
                                temt1omega23 * temt1rho23;
                  temp_PDF31 += G[m][m] * t1rho3[m] * p1omega31[m][i] * tempomega3 *
                                temt1omega31 * temt1rho31;
                  temp_PDF32 += G[m][m] * t1rho3[m] * p1omega32[m][i] * tempomega3 *
                                temt1omega32 * temt1rho32;
                  temp_PDF33 += G[m][m] * t1rho3[m] * p1omega33[m][i] * tempomega3 *
                                temt1omega33 * temt1rho33;
                  temp_PDF41 += G[m][m] * t1rho4[m] * p1omega41[m][i] * tempomega4 *
                                temt1omega41 * temt1rho41;
                  temp_PDF42 += G[m][m] * t1rho4[m] * p1omega42[m][i] * tempomega4 *
                                temt1omega42 * temt1rho42;
                  temp_PDF43 += G[m][m] * t1rho4[m] * p1omega43[m][i] * tempomega4 *
                                temt1omega43 * temt1rho43;
                }
              }
            }
          }
        }
 
        temp_PDF11 = temp_PDF11 * B1_omega11 * B1_rho1 * B1_1V12;
        temp_PDF12 = temp_PDF12 * B1_omega12 * B1_rho1 * B1_1V13;
        temp_PDF13 = temp_PDF13 * B1_omega13 * B1_rho1 * B1_1V23;
        temp_PDF21 = temp_PDF21 * B1_omega21 * B1_rho2 * B1_2V12;
        temp_PDF22 = temp_PDF22 * B1_omega22 * B1_rho2 * B1_2V13;
        temp_PDF23 = temp_PDF23 * B1_omega23 * B1_rho2 * B1_2V23;
        temp_PDF31 = temp_PDF31 * B1_omega31 * B1_rho3 * B1_3V12;
        temp_PDF32 = temp_PDF32 * B1_omega32 * B1_rho3 * B1_3V13;
        temp_PDF33 = temp_PDF33 * B1_omega33 * B1_rho3 * B1_3V23;
        temp_PDF41 = temp_PDF41 * B1_omega41 * B1_rho4 * B1_4V12;
        temp_PDF42 = temp_PDF42 * B1_omega42 * B1_rho4 * B1_4V13;
        temp_PDF43 = temp_PDF43 * B1_omega43 * B1_rho4 * B1_4V23;
      }
      else if ( g2[i] == 1 )
      {
 
        if ( B1_omega11 == -1 )
        {
          B1_omega11 = BarrierN( 1, somega1, srho11, sPim, rRes2, mass1[i] );
          B1_omega12 = BarrierN( 1, somega1, srho12, sPi01, rRes2, mass1[i] );
          B1_omega13 = BarrierN( 1, somega1, srho13, sPip1, rRes2, mass1[i] );
          B1_omega21 = BarrierN( 1, somega2, srho21, sPim, rRes2, mass1[i] );
          B1_omega22 = BarrierN( 1, somega2, srho22, sPi02, rRes2, mass1[i] );
          B1_omega23 = BarrierN( 1, somega2, srho23, sPip1, rRes2, mass1[i] );
          B1_omega31 = BarrierN( 1, somega3, srho31, sPim, rRes2, mass1[i] );
          B1_omega32 = BarrierN( 1, somega3, srho32, sPi01, rRes2, mass1[i] );
          B1_omega33 = BarrierN( 1, somega3, srho33, sPip2, rRes2, mass1[i] );
          B1_omega41 = BarrierN( 1, somega4, srho41, sPim, rRes2, mass1[i] );
          B1_omega42 = BarrierN( 1, somega4, srho42, sPi02, rRes2, mass1[i] );
          B1_omega43 = BarrierN( 1, somega4, srho43, sPip2, rRes2, mass1[i] );
        }
        if ( B1_rho1 == -1 )
        {
          B1_rho1 = BarrierN( 1, srho1, sPip2, sPi02, rRes2, mass2[i] );
          B1_rho2 = BarrierN( 1, srho2, sPip2, sPi01, rRes2, mass2[i] );
          B1_rho3 = BarrierN( 1, srho3, sPip1, sPi02, rRes2, mass2[i] );
          B1_rho4 = BarrierN( 1, srho4, sPip1, sPi01, rRes2, mass2[i] );
        }
        if ( B1_Ds_omega1 == -1 )
        {
          B1_Ds_omega1 = BarrierN( 1, sDs, somega1, srho1, rDs2, mDsM );
          B1_Ds_omega2 = BarrierN( 1, sDs, somega2, srho2, rDs2, mDsM );
          B1_Ds_omega3 = BarrierN( 1, sDs, somega3, srho3, rDs2, mDsM );
          B1_Ds_omega4 = BarrierN( 1, sDs, somega4, srho4, rDs2, mDsM );
        }
 
        calt1( Pip2, Pi02, t1rho1 );
        calt1( Pip2, Pi01, t1rho2 );
        calt1( Pip1, Pi02, t1rho3 );
        calt1( Pip1, Pi01, t1rho4 );
        calt1( prho11, Pim, t1omega11 );
        calt1( prho12, Pi01, t1omega12 );
        calt1( prho13, Pip1, t1omega13 );
        calt1( prho21, Pim, t1omega21 );
        calt1( prho22, Pi02, t1omega22 );
        calt1( prho23, Pip1, t1omega23 );
        calt1( prho31, Pim, t1omega31 );
        calt1( prho32, Pi01, t1omega32 );
        calt1( prho23, Pip2, t1omega33 );
        calt1( prho41, Pim, t1omega41 );
        calt1( prho42, Pi02, t1omega42 );
        calt1( prho43, Pip2, t1omega43 );
        calt1( Pip1, Pi01, t1rho11 );
        calt1( Pip1, Pim, t1rho12 );
        calt1( Pi01, Pim, t1rho13 );
        calt1( Pip1, Pi02, t1rho21 );
        calt1( Pip1, Pim, t1rho22 );
        calt1( Pi02, Pim, t1rho23 );
        calt1( Pip2, Pi01, t1rho31 );
        calt1( Pip2, Pim, t1rho32 );
        calt1( Pi01, Pim, t1rho33 );
        calt1( Pip2, Pi02, t1rho41 );
        calt1( Pip2, Pim, t1rho42 );
        calt1( Pi02, Pim, t1rho43 );
        calG2( prho11, Pim, p1omega11 );
        calG2( prho12, Pi01, p1omega12 );
        calG2( prho13, Pip1, p1omega13 );
        calG2( prho21, Pim, p1omega21 );
        calG2( prho22, Pi02, p1omega22 );
        calG2( prho23, Pip1, p1omega23 );
        calG2( prho31, Pim, p1omega31 );
        calG2( prho32, Pi01, p1omega32 );
        calG2( prho33, Pip2, p1omega33 );
        calG2( prho41, Pim, p1omega41 );
        calG2( prho42, Pi02, p1omega42 );
        calG2( prho43, Pip2, p1omega43 );
        calt1( pomega1, prho1, t1Ds_omega1 );
        calt1( pomega2, prho2, t1Ds_omega2 );
        calt1( pomega3, prho3, t1Ds_omega3 );
        calt1( pomega4, prho4, t1Ds_omega4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tempDs = pDs[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double temt1rho1 = t1rho1[j] * G[j][j];
            double temt1rho2 = t1rho2[j] * G[j][j];
            double temt1rho3 = t1rho3[j] * G[j][j];
            double temt1rho4 = t1rho4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1Ds_omega1 = t1Ds_omega1[k] * G[k][k];
              double temt1Ds_omega2 = t1Ds_omega2[k] * G[k][k];
              double temt1Ds_omega3 = t1Ds_omega3[k] * G[k][k];
              double temt1Ds_omega4 = t1Ds_omega4[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                for ( int m = 0; m < 4; m++ )
                {
                  double temp1omega11 = p1omega11[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omega12 = p1omega12[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omega13 = p1omega13[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omega21 = p1omega21[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omega22 = p1omega22[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omega23 = p1omega23[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omega31 = p1omega31[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omega32 = p1omega32[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omega33 = p1omega33[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omega41 = p1omega41[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omega42 = p1omega42[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omega43 = p1omega43[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
 
                  for ( int n = 0; n < 4; n++ )
                  {
                    double tempomega1 = pomega1[n] * G[n][n];
                    double tempomega2 = pomega2[n] * G[n][n];
                    double tempomega3 = pomega3[n] * G[n][n];
                    double tempomega4 = pomega4[n] * G[n][n];
 
                    for ( int p = 0; p < 4; p++ )
                    {
                      double temt1omega11 = t1omega11[p] * G[p][p];
                      double temt1omega12 = t1omega12[p] * G[p][p];
                      double temt1omega13 = t1omega13[p] * G[p][p];
                      double temt1omega21 = t1omega21[p] * G[p][p];
                      double temt1omega22 = t1omega22[p] * G[p][p];
                      double temt1omega23 = t1omega23[p] * G[p][p];
                      double temt1omega31 = t1omega31[p] * G[p][p];
                      double temt1omega32 = t1omega32[p] * G[p][p];
                      double temt1omega33 = t1omega33[p] * G[p][p];
                      double temt1omega41 = t1omega41[p] * G[p][p];
                      double temt1omega42 = t1omega42[p] * G[p][p];
                      double temt1omega43 = t1omega43[p] * G[p][p];
 
                      for ( int q = 0; q < 4; q++ )
                      {
                        if ( ( i == j ) || ( i == k ) || ( i == l ) || ( j == k ) ||
                             ( j == l ) || ( k == l ) )
                          continue;
                        if ( ( m == n ) || ( m == p ) || ( m == q ) || ( n == p ) ||
                             ( n == q ) || ( p == q ) )
                          continue;
                        temp_PDF11 += tempDs * temt1rho1 * temt1Ds_omega1 * temp1omega11 *
                                      E[m][n][p][q] * tempomega1 * temt1omega11 * t1rho11[q] *
                                      G[q][q];
                        temp_PDF12 += tempDs * temt1rho1 * temt1Ds_omega1 * temp1omega12 *
                                      E[m][n][p][q] * tempomega1 * temt1omega12 * t1rho12[q] *
                                      G[q][q];
                        temp_PDF13 += tempDs * temt1rho1 * temt1Ds_omega1 * temp1omega13 *
                                      E[m][n][p][q] * tempomega1 * temt1omega13 * t1rho13[q] *
                                      G[q][q];
                        temp_PDF21 += tempDs * temt1rho2 * temt1Ds_omega2 * temp1omega21 *
                                      E[m][n][p][q] * tempomega2 * temt1omega21 * t1rho21[q] *
                                      G[q][q];
                        temp_PDF22 += tempDs * temt1rho2 * temt1Ds_omega2 * temp1omega22 *
                                      E[m][n][p][q] * tempomega2 * temt1omega22 * t1rho22[q] *
                                      G[q][q];
                        temp_PDF23 += tempDs * temt1rho2 * temt1Ds_omega2 * temp1omega23 *
                                      E[m][n][p][q] * tempomega2 * temt1omega23 * t1rho23[q] *
                                      G[q][q];
                        temp_PDF31 += tempDs * temt1rho3 * temt1Ds_omega3 * temp1omega31 *
                                      E[m][n][p][q] * tempomega3 * temt1omega31 * t1rho31[q] *
                                      G[q][q];
                        temp_PDF32 += tempDs * temt1rho3 * temt1Ds_omega3 * temp1omega32 *
                                      E[m][n][p][q] * tempomega3 * temt1omega32 * t1rho32[q] *
                                      G[q][q];
                        temp_PDF33 += tempDs * temt1rho3 * temt1Ds_omega3 * temp1omega33 *
                                      E[m][n][p][q] * tempomega3 * temt1omega33 * t1rho33[q] *
                                      G[q][q];
                        temp_PDF41 += tempDs * temt1rho4 * temt1Ds_omega4 * temp1omega41 *
                                      E[m][n][p][q] * tempomega4 * temt1omega41 * t1rho41[q] *
                                      G[q][q];
                        temp_PDF42 += tempDs * temt1rho4 * temt1Ds_omega4 * temp1omega42 *
                                      E[m][n][p][q] * tempomega4 * temt1omega42 * t1rho42[q] *
                                      G[q][q];
                        temp_PDF43 += tempDs * temt1rho4 * temt1Ds_omega4 * temp1omega43 *
                                      E[m][n][p][q] * tempomega4 * temt1omega43 * t1rho43[q] *
                                      G[q][q];
                      }
                    }
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_Ds_omega1 * B1_omega11 * B1_rho1 * B1_1V12;
        temp_PDF12 = temp_PDF12 * B1_Ds_omega1 * B1_omega12 * B1_rho1 * B1_1V13;
        temp_PDF13 = temp_PDF13 * B1_Ds_omega1 * B1_omega13 * B1_rho1 * B1_1V23;
        temp_PDF21 = temp_PDF21 * B1_Ds_omega2 * B1_omega21 * B1_rho2 * B1_2V12;
        temp_PDF22 = temp_PDF22 * B1_Ds_omega2 * B1_omega22 * B1_rho2 * B1_2V13;
        temp_PDF23 = temp_PDF23 * B1_Ds_omega2 * B1_omega23 * B1_rho2 * B1_2V23;
        temp_PDF31 = temp_PDF31 * B1_Ds_omega3 * B1_omega31 * B1_rho3 * B1_3V12;
        temp_PDF32 = temp_PDF32 * B1_Ds_omega3 * B1_omega32 * B1_rho3 * B1_3V13;
        temp_PDF33 = temp_PDF33 * B1_Ds_omega3 * B1_omega33 * B1_rho3 * B1_3V23;
        temp_PDF41 = temp_PDF41 * B1_Ds_omega4 * B1_omega41 * B1_rho4 * B1_4V12;
        temp_PDF42 = temp_PDF42 * B1_Ds_omega4 * B1_omega42 * B1_rho4 * B1_4V13;
        temp_PDF43 = temp_PDF43 * B1_Ds_omega4 * B1_omega43 * B1_rho4 * B1_4V23;
      }
      else if ( g2[i] == 2 )
      {
        if ( B1_omega11 == -1 )
        {
          B1_omega11 = BarrierN( 1, somega1, srho11, sPim, rRes2, mass1[i] );
          B1_omega12 = BarrierN( 1, somega1, srho12, sPi01, rRes2, mass1[i] );
          B1_omega13 = BarrierN( 1, somega1, srho13, sPip1, rRes2, mass1[i] );
          B1_omega21 = BarrierN( 1, somega2, srho21, sPim, rRes2, mass1[i] );
          B1_omega22 = BarrierN( 1, somega2, srho22, sPi02, rRes2, mass1[i] );
          B1_omega23 = BarrierN( 1, somega2, srho23, sPip1, rRes2, mass1[i] );
          B1_omega31 = BarrierN( 1, somega3, srho31, sPim, rRes2, mass1[i] );
          B1_omega32 = BarrierN( 1, somega3, srho32, sPi01, rRes2, mass1[i] );
          B1_omega33 = BarrierN( 1, somega3, srho33, sPip2, rRes2, mass1[i] );
          B1_omega41 = BarrierN( 1, somega4, srho41, sPim, rRes2, mass1[i] );
          B1_omega42 = BarrierN( 1, somega4, srho42, sPi02, rRes2, mass1[i] );
          B1_omega43 = BarrierN( 1, somega4, srho43, sPip2, rRes2, mass1[i] );
        }
        if ( B1_rho1 == -1 )
        {
          B1_rho1 = BarrierN( 1, srho1, sPip2, sPi02, rRes2, mass2[i] );
          B1_rho2 = BarrierN( 1, srho2, sPip2, sPi01, rRes2, mass2[i] );
          B1_rho3 = BarrierN( 1, srho3, sPip1, sPi02, rRes2, mass2[i] );
          B1_rho4 = BarrierN( 1, srho4, sPip1, sPi01, rRes2, mass2[i] );
        }
        if ( B2_Ds_omega1 == -1 )
        {
          B2_Ds_omega1 = BarrierN( 2, sDs, somega1, srho1, rDs2, mDsM );
          B2_Ds_omega2 = BarrierN( 2, sDs, somega2, srho2, rDs2, mDsM );
          B2_Ds_omega3 = BarrierN( 2, sDs, somega3, srho3, rDs2, mDsM );
          B2_Ds_omega4 = BarrierN( 2, sDs, somega4, srho4, rDs2, mDsM );
        }
        calt1( Pip2, Pi02, t1rho1 );
        calt1( Pip2, Pi01, t1rho2 );
        calt1( Pip1, Pi02, t1rho3 );
        calt1( Pip1, Pi01, t1rho4 );
        calt1( prho11, Pim, t1omega11 );
        calt1( prho12, Pi01, t1omega12 );
        calt1( prho13, Pip1, t1omega13 );
        calt1( prho21, Pim, t1omega21 );
        calt1( prho22, Pi02, t1omega22 );
        calt1( prho23, Pip1, t1omega23 );
        calt1( prho31, Pim, t1omega31 );
        calt1( prho32, Pi01, t1omega32 );
        calt1( prho23, Pip2, t1omega33 );
        calt1( prho41, Pim, t1omega41 );
        calt1( prho42, Pi02, t1omega42 );
        calt1( prho43, Pip2, t1omega43 );
        calt1( Pip1, Pi01, t1rho11 );
        calt1( Pip1, Pim, t1rho12 );
        calt1( Pi01, Pim, t1rho13 );
        calt1( Pip1, Pi02, t1rho21 );
        calt1( Pip1, Pim, t1rho22 );
        calt1( Pi02, Pim, t1rho23 );
        calt1( Pip2, Pi01, t1rho31 );
        calt1( Pip2, Pim, t1rho32 );
        calt1( Pi01, Pim, t1rho33 );
        calt1( Pip2, Pi02, t1rho41 );
        calt1( Pip2, Pim, t1rho42 );
        calt1( Pi02, Pim, t1rho43 );
        calG2( prho11, Pim, p1omega11 );
        calG2( prho12, Pi01, p1omega12 );
        calG2( prho13, Pip1, p1omega13 );
        calG2( prho21, Pim, p1omega21 );
        calG2( prho22, Pi02, p1omega22 );
        calG2( prho23, Pip1, p1omega23 );
        calG2( prho31, Pim, p1omega31 );
        calG2( prho32, Pi01, p1omega32 );
        calG2( prho33, Pip2, p1omega33 );
        calG2( prho41, Pim, p1omega41 );
        calG2( prho42, Pi02, p1omega42 );
        calG2( prho43, Pip2, p1omega43 );
        calt2( pomega1, prho1, t2Ds_omega1 );
        calt2( pomega2, prho2, t2Ds_omega2 );
        calt2( pomega3, prho3, t2Ds_omega3 );
        calt2( pomega4, prho4, t2Ds_omega4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempomega1 = pomega1[j] * G[j][j] * G[i][i];
            double tempomega2 = pomega2[j] * G[j][j] * G[i][i];
            double tempomega3 = pomega3[j] * G[j][j] * G[i][i];
            double tempomega4 = pomega4[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega11 = t1omega11[k] * G[k][k];
              double temt1omega12 = t1omega12[k] * G[k][k];
              double temt1omega13 = t1omega13[k] * G[k][k];
              double temt1omega21 = t1omega21[k] * G[k][k];
              double temt1omega22 = t1omega22[k] * G[k][k];
              double temt1omega23 = t1omega23[k] * G[k][k];
              double temt1omega31 = t1omega31[k] * G[k][k];
              double temt1omega32 = t1omega32[k] * G[k][k];
              double temt1omega33 = t1omega33[k] * G[k][k];
              double temt1omega41 = t1omega41[k] * G[k][k];
              double temt1omega42 = t1omega42[k] * G[k][k];
              double temt1omega43 = t1omega43[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho11 = t1rho11[l] * G[l][l] * E[i][j][k][l];
                double temt1rho12 = t1rho12[l] * G[l][l] * E[i][j][k][l];
                double temt1rho13 = t1rho13[l] * G[l][l] * E[i][j][k][l];
                double temt1rho21 = t1rho21[l] * G[l][l] * E[i][j][k][l];
                double temt1rho22 = t1rho22[l] * G[l][l] * E[i][j][k][l];
                double temt1rho23 = t1rho23[l] * G[l][l] * E[i][j][k][l];
                double temt1rho31 = t1rho31[l] * G[l][l] * E[i][j][k][l];
                double temt1rho32 = t1rho32[l] * G[l][l] * E[i][j][k][l];
                double temt1rho33 = t1rho33[l] * G[l][l] * E[i][j][k][l];
                double temt1rho41 = t1rho41[l] * G[l][l] * E[i][j][k][l];
                double temt1rho42 = t1rho42[l] * G[l][l] * E[i][j][k][l];
                double temt1rho43 = t1rho43[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temt1rho1 = t1rho1[m] * G[m][m];
                  double temt1rho2 = t1rho2[m] * G[m][m];
                  double temt1rho3 = t1rho3[m] * G[m][m];
                  double temt1rho4 = t1rho4[m] * G[m][m];
 
                  for ( int n = 0; n < 4; n++ )
                  {
                    if ( ( i == j ) || ( i == k ) || ( i == l ) || ( j == k ) || ( j == l ) ||
                         ( k == l ) )
                      continue;
 
                    temp_PDF11 += t2Ds_omega1[m][n] * temt1rho1 * p1omega11[n][i] *
                                  tempomega1 * temt1omega11 * temt1rho11 * G[n][n];
                    temp_PDF12 += t2Ds_omega1[m][n] * temt1rho1 * p1omega12[n][i] *
                                  tempomega1 * temt1omega12 * temt1rho12 * G[n][n];
                    temp_PDF13 += t2Ds_omega1[m][n] * temt1rho1 * p1omega13[n][i] *
                                  tempomega1 * temt1omega13 * temt1rho13 * G[n][n];
                    temp_PDF21 += t2Ds_omega2[m][n] * temt1rho2 * p1omega21[n][i] *
                                  tempomega2 * temt1omega21 * temt1rho21 * G[n][n];
                    temp_PDF22 += t2Ds_omega2[m][n] * temt1rho2 * p1omega22[n][i] *
                                  tempomega2 * temt1omega22 * temt1rho22 * G[n][n];
                    temp_PDF23 += t2Ds_omega2[m][n] * temt1rho2 * p1omega23[n][i] *
                                  tempomega2 * temt1omega23 * temt1rho23 * G[n][n];
                    temp_PDF31 += t2Ds_omega3[m][n] * temt1rho3 * p1omega31[n][i] *
                                  tempomega3 * temt1omega31 * temt1rho31 * G[n][n];
                    temp_PDF32 += t2Ds_omega3[m][n] * temt1rho3 * p1omega32[n][i] *
                                  tempomega3 * temt1omega32 * temt1rho32 * G[n][n];
                    temp_PDF33 += t2Ds_omega3[m][n] * temt1rho3 * p1omega33[n][i] *
                                  tempomega3 * temt1omega33 * temt1rho33 * G[n][n];
                    temp_PDF41 += t2Ds_omega4[m][n] * temt1rho4 * p1omega41[n][i] *
                                  tempomega4 * temt1omega41 * temt1rho41 * G[n][n];
                    temp_PDF42 += t2Ds_omega4[m][n] * temt1rho4 * p1omega42[n][i] *
                                  tempomega4 * temt1omega42 * temt1rho42 * G[n][n];
                    temp_PDF43 += t2Ds_omega4[m][n] * temt1rho4 * p1omega43[n][i] *
                                  tempomega4 * temt1omega43 * temt1rho43 * G[n][n];
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B2_Ds_omega1 * B1_omega11 * B1_rho1 * B1_1V12;
        temp_PDF12 = temp_PDF12 * B2_Ds_omega1 * B1_omega12 * B1_rho1 * B1_1V13;
        temp_PDF13 = temp_PDF13 * B2_Ds_omega1 * B1_omega13 * B1_rho1 * B1_1V23;
        temp_PDF21 = temp_PDF21 * B2_Ds_omega2 * B1_omega21 * B1_rho2 * B1_2V12;
        temp_PDF22 = temp_PDF22 * B2_Ds_omega2 * B1_omega22 * B1_rho2 * B1_2V13;
        temp_PDF23 = temp_PDF23 * B2_Ds_omega2 * B1_omega23 * B1_rho2 * B1_2V23;
        temp_PDF31 = temp_PDF31 * B2_Ds_omega3 * B1_omega31 * B1_rho3 * B1_3V12;
        temp_PDF32 = temp_PDF32 * B2_Ds_omega3 * B1_omega32 * B1_rho3 * B1_3V13;
        temp_PDF33 = temp_PDF33 * B2_Ds_omega3 * B1_omega33 * B1_rho3 * B1_3V23;
        temp_PDF41 = temp_PDF41 * B2_Ds_omega4 * B1_omega41 * B1_rho4 * B1_4V12;
        temp_PDF42 = temp_PDF42 * B2_Ds_omega4 * B1_omega42 * B1_rho4 * B1_4V13;
        temp_PDF43 = temp_PDF43 * B2_Ds_omega4 * B1_omega43 * B1_rho4 * B1_4V23;
      }
      if ( g0[i] == 1 )
      {
        propagator( mass1sq, mass1[i], width1[i], somega1, pro0_11 );
        propagator( mass1sq, mass1[i], width1[i], somega1, pro0_12 );
        propagator( mass1sq, mass1[i], width1[i], somega1, pro0_13 );
        propagator( mass1sq, mass1[i], width1[i], somega2, pro0_21 );
        propagator( mass1sq, mass1[i], width1[i], somega2, pro0_22 );
        propagator( mass1sq, mass1[i], width1[i], somega2, pro0_23 );
        propagator( mass1sq, mass1[i], width1[i], somega3, pro0_31 );
        propagator( mass1sq, mass1[i], width1[i], somega3, pro0_32 );
        propagator( mass1sq, mass1[i], width1[i], somega3, pro0_33 );
        propagator( mass1sq, mass1[i], width1[i], somega4, pro0_41 );
        propagator( mass1sq, mass1[i], width1[i], somega4, pro0_42 );
        propagator( mass1sq, mass1[i], width1[i], somega4, pro0_43 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_11[0] = 1;
        pro0_11[1] = 0;
        pro0_12[0] = 1;
        pro0_12[1] = 0;
        pro0_13[0] = 1;
        pro0_13[1] = 0;
        pro0_21[0] = 1;
        pro0_21[1] = 0;
        pro0_22[0] = 1;
        pro0_22[1] = 0;
        pro0_23[0] = 1;
        pro0_23[1] = 0;
        pro0_31[0] = 1;
        pro0_31[1] = 0;
        pro0_32[0] = 1;
        pro0_32[1] = 0;
        pro0_33[0] = 1;
        pro0_33[1] = 0;
        pro0_41[0] = 1;
        pro0_41[1] = 0;
        pro0_42[0] = 1;
        pro0_42[1] = 0;
        pro0_43[0] = 1;
        pro0_43[1] = 0;
      }
      if ( g1[i] == 1 )
      {
        propagatorRBW( mass2sq, mass2[i], width2[i], srho1, sPip2, sPi02, rRes2, 1, pro1_1 );
        propagatorRBW( mass2sq, mass2[i], width2[i], srho2, sPip2, sPi01, rRes2, 1, pro1_2 );
        propagatorRBW( mass2sq, mass2[i], width2[i], srho3, sPip1, sPi02, rRes2, 1, pro1_3 );
        propagatorRBW( mass2sq, mass2[i], width2[i], srho4, sPip1, sPi01, rRes2, 1, pro1_4 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
        pro1_3[0] = 1;
        pro1_3[1] = 0;
        pro1_4[0] = 1;
        pro1_4[1] = 0;
      }
      Com_Multi( pro0_11, pro1V12, tpro_11 );
      Com_Multi( tpro_11, pro1_1, pro_11 );
      Com_Multi( pro0_12, pro1V13, tpro_12 );
      Com_Multi( tpro_12, pro1_1, pro_12 );
      Com_Multi( pro0_13, pro1V23, tpro_13 );
      Com_Multi( tpro_13, pro1_1, pro_13 );
      Com_Multi( pro0_21, pro2V12, tpro_21 );
      Com_Multi( tpro_21, pro1_2, pro_21 );
      Com_Multi( pro0_22, pro2V13, tpro_22 );
      Com_Multi( tpro_22, pro1_2, pro_22 );
      Com_Multi( pro0_23, pro2V23, tpro_23 );
      Com_Multi( tpro_23, pro1_2, pro_23 );
      Com_Multi( pro0_31, pro3V12, tpro_31 );
      Com_Multi( tpro_31, pro1_3, pro_31 );
      Com_Multi( pro0_32, pro3V13, tpro_32 );
      Com_Multi( tpro_32, pro1_3, pro_32 );
      Com_Multi( pro0_33, pro3V23, tpro_33 );
      Com_Multi( tpro_33, pro1_3, pro_33 );
      Com_Multi( pro0_41, pro4V12, tpro_41 );
      Com_Multi( tpro_41, pro1_4, pro_41 );
      Com_Multi( pro0_42, pro4V13, tpro_42 );
      Com_Multi( tpro_42, pro1_4, pro_42 );
      Com_Multi( pro0_43, pro4V23, tpro_43 );
      Com_Multi( tpro_43, pro1_4, pro_43 );
      amp_tmp1[0] = temp_PDF11 * pro_11[0] - temp_PDF12 * pro_12[0] + temp_PDF13 * pro_13[0];
      amp_tmp1[1] = temp_PDF11 * pro_11[1] - temp_PDF12 * pro_12[1] + temp_PDF13 * pro_13[1];
      amp_tmp2[0] = temp_PDF21 * pro_21[0] - temp_PDF22 * pro_22[0] + temp_PDF23 * pro_23[0];
      amp_tmp2[1] = temp_PDF21 * pro_21[1] - temp_PDF22 * pro_22[1] + temp_PDF23 * pro_23[1];
      amp_tmp3[0] = temp_PDF31 * pro_31[0] - temp_PDF32 * pro_32[0] + temp_PDF33 * pro_33[0];
      amp_tmp3[1] = temp_PDF31 * pro_31[1] - temp_PDF32 * pro_32[1] + temp_PDF33 * pro_33[1];
      amp_tmp4[0] = temp_PDF41 * pro_41[0] - temp_PDF42 * pro_42[0] + temp_PDF43 * pro_43[0];
      amp_tmp4[1] = temp_PDF41 * pro_41[1] - temp_PDF42 * pro_42[1] + temp_PDF43 * pro_43[1];
    }
    else if ( modetype[i] == 4 )
    {
      if ( g2[i] == 0 )
      {
        if ( B1_omega11 == -1 )
        {
          B1_omega11 = BarrierN( 1, somega1, srho11, sPim, rRes2, mass2[i] );
          B1_omega12 = BarrierN( 1, somega1, srho12, sPi01, rRes2, mass2[i] );
          B1_omega13 = BarrierN( 1, somega1, srho13, sPip1, rRes2, mass2[i] );
          B1_omega21 = BarrierN( 1, somega2, srho21, sPim, rRes2, mass2[i] );
          B1_omega22 = BarrierN( 1, somega2, srho22, sPi02, rRes2, mass2[i] );
          B1_omega23 = BarrierN( 1, somega2, srho23, sPip1, rRes2, mass2[i] );
          B1_omega31 = BarrierN( 1, somega3, srho31, sPim, rRes2, mass2[i] );
          B1_omega32 = BarrierN( 1, somega3, srho32, sPi01, rRes2, mass2[i] );
          B1_omega33 = BarrierN( 1, somega3, srho33, sPip2, rRes2, mass2[i] );
          B1_omega41 = BarrierN( 1, somega4, srho41, sPim, rRes2, mass2[i] );
          B1_omega42 = BarrierN( 1, somega4, srho42, sPi02, rRes2, mass2[i] );
          B1_omega43 = BarrierN( 1, somega4, srho43, sPip2, rRes2, mass2[i] );
        }
        if ( B1_Ds_b1p1 == -1 )
        {
          B1_Ds_b1p1 = BarrierN( 1, sDs, sb1p1, sPi02, rDs2, mDsM );
          B1_Ds_b1p2 = BarrierN( 1, sDs, sb1p2, sPi01, rDs2, mDsM );
          B1_Ds_b1p3 = BarrierN( 1, sDs, sb1p3, sPi02, rDs2, mDsM );
          B1_Ds_b1p4 = BarrierN( 1, sDs, sb1p4, sPi01, rDs2, mDsM );
        }
        calt1( prho11, Pim, t1omega11 );
        calt1( prho12, Pi01, t1omega12 );
        calt1( prho13, Pip1, t1omega13 );
        calt1( prho21, Pim, t1omega21 );
        calt1( prho22, Pi02, t1omega22 );
        calt1( prho23, Pip1, t1omega23 );
        calt1( prho31, Pim, t1omega31 );
        calt1( prho32, Pi01, t1omega32 );
        calt1( prho23, Pip2, t1omega33 );
        calt1( prho41, Pim, t1omega41 );
        calt1( prho42, Pi02, t1omega42 );
        calt1( prho43, Pip2, t1omega43 );
        calt1( Pip1, Pi01, t1rho11 );
        calt1( Pip1, Pim, t1rho12 );
        calt1( Pi01, Pim, t1rho13 );
        calt1( Pip1, Pi02, t1rho21 );
        calt1( Pip1, Pim, t1rho22 );
        calt1( Pi02, Pim, t1rho23 );
        calt1( Pip2, Pi01, t1rho31 );
        calt1( Pip2, Pim, t1rho32 );
        calt1( Pi01, Pim, t1rho33 );
        calt1( Pip2, Pi02, t1rho41 );
        calt1( Pip2, Pim, t1rho42 );
        calt1( Pi02, Pim, t1rho43 );
        calG2( prho11, Pim, p1omega11 );
        calG2( prho12, Pi01, p1omega12 );
        calG2( prho13, Pip1, p1omega13 );
        calG2( prho21, Pim, p1omega21 );
        calG2( prho22, Pi02, p1omega22 );
        calG2( prho23, Pip1, p1omega23 );
        calG2( prho31, Pim, p1omega31 );
        calG2( prho32, Pi01, p1omega32 );
        calG2( prho33, Pip2, p1omega33 );
        calG2( prho41, Pim, p1omega41 );
        calG2( prho42, Pi02, p1omega42 );
        calG2( prho43, Pip2, p1omega43 );
        calG2( pomega1, Pip2, p1b1p1 );
        calG2( pomega2, Pip2, p1b1p2 );
        calG2( pomega3, Pip1, p1b1p3 );
        calG2( pomega4, Pip1, p1b1p4 );
        calt1( pb1p1, Pi02, t1Ds_b1p1 );
        calt1( pb1p2, Pi01, t1Ds_b1p2 );
        calt1( pb1p3, Pi02, t1Ds_b1p3 );
        calt1( pb1p4, Pi01, t1Ds_b1p4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempomega1 = pomega1[j] * G[j][j] * G[i][i];
            double tempomega2 = pomega2[j] * G[j][j] * G[i][i];
            double tempomega3 = pomega3[j] * G[j][j] * G[i][i];
            double tempomega4 = pomega4[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega11 = t1omega11[k] * G[k][k];
              double temt1omega12 = t1omega12[k] * G[k][k];
              double temt1omega13 = t1omega13[k] * G[k][k];
              double temt1omega21 = t1omega21[k] * G[k][k];
              double temt1omega22 = t1omega22[k] * G[k][k];
              double temt1omega23 = t1omega23[k] * G[k][k];
              double temt1omega31 = t1omega31[k] * G[k][k];
              double temt1omega32 = t1omega32[k] * G[k][k];
              double temt1omega33 = t1omega33[k] * G[k][k];
              double temt1omega41 = t1omega41[k] * G[k][k];
              double temt1omega42 = t1omega42[k] * G[k][k];
              double temt1omega43 = t1omega43[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho11 = t1rho11[l] * G[l][l] * E[i][j][k][l];
                double temt1rho12 = t1rho12[l] * G[l][l] * E[i][j][k][l];
                double temt1rho13 = t1rho13[l] * G[l][l] * E[i][j][k][l];
                double temt1rho21 = t1rho21[l] * G[l][l] * E[i][j][k][l];
                double temt1rho22 = t1rho22[l] * G[l][l] * E[i][j][k][l];
                double temt1rho23 = t1rho23[l] * G[l][l] * E[i][j][k][l];
                double temt1rho31 = t1rho31[l] * G[l][l] * E[i][j][k][l];
                double temt1rho32 = t1rho32[l] * G[l][l] * E[i][j][k][l];
                double temt1rho33 = t1rho33[l] * G[l][l] * E[i][j][k][l];
                double temt1rho41 = t1rho41[l] * G[l][l] * E[i][j][k][l];
                double temt1rho42 = t1rho42[l] * G[l][l] * E[i][j][k][l];
                double temt1rho43 = t1rho43[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temt1Ds_b1p1 = t1Ds_b1p1[m] * G[m][m];
                  double temt1Ds_b1p2 = t1Ds_b1p2[m] * G[m][m];
                  double temt1Ds_b1p3 = t1Ds_b1p3[m] * G[m][m];
                  double temt1Ds_b1p4 = t1Ds_b1p4[m] * G[m][m];
 
                  for ( int n = 0; n < 4; n++ )
                  {
 
                    if ( ( i == j ) || ( i == k ) || ( i == l ) || ( j == k ) || ( j == l ) ||
                         ( k == l ) )
                      continue;
                    temp_PDF11 += temt1Ds_b1p1 * p1b1p1[m][n] * p1omega11[n][i] * tempomega1 *
                                  temt1omega11 * temt1rho11 * G[n][n];
                    temp_PDF12 += temt1Ds_b1p1 * p1b1p1[m][n] * p1omega12[n][i] * tempomega1 *
                                  temt1omega12 * temt1rho12 * G[n][n];
                    temp_PDF13 += temt1Ds_b1p1 * p1b1p1[m][n] * p1omega13[n][i] * tempomega1 *
                                  temt1omega13 * temt1rho13 * G[n][n];
                    temp_PDF21 += temt1Ds_b1p2 * p1b1p2[m][n] * p1omega21[n][i] * tempomega2 *
                                  temt1omega21 * temt1rho21 * G[n][n];
                    temp_PDF22 += temt1Ds_b1p2 * p1b1p2[m][n] * p1omega22[n][i] * tempomega2 *
                                  temt1omega22 * temt1rho22 * G[n][n];
                    temp_PDF23 += temt1Ds_b1p2 * p1b1p2[m][n] * p1omega23[n][i] * tempomega2 *
                                  temt1omega23 * temt1rho23 * G[n][n];
                    temp_PDF31 += temt1Ds_b1p3 * p1b1p3[m][n] * p1omega31[n][i] * tempomega3 *
                                  temt1omega31 * temt1rho31 * G[n][n];
                    temp_PDF32 += temt1Ds_b1p3 * p1b1p3[m][n] * p1omega32[n][i] * tempomega3 *
                                  temt1omega32 * temt1rho32 * G[n][n];
                    temp_PDF33 += temt1Ds_b1p3 * p1b1p3[m][n] * p1omega33[n][i] * tempomega3 *
                                  temt1omega33 * temt1rho33 * G[n][n];
                    temp_PDF41 += temt1Ds_b1p4 * p1b1p4[m][n] * p1omega41[n][i] * tempomega4 *
                                  temt1omega41 * temt1rho41 * G[n][n];
                    temp_PDF42 += temt1Ds_b1p4 * p1b1p4[m][n] * p1omega42[n][i] * tempomega4 *
                                  temt1omega42 * temt1rho42 * G[n][n];
                    temp_PDF43 += temt1Ds_b1p4 * p1b1p4[m][n] * p1omega43[n][i] * tempomega4 *
                                  temt1omega43 * temt1rho43 * G[n][n];
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_Ds_b1p1 * B1_omega11 * B1_1V12;
        temp_PDF12 = temp_PDF12 * B1_Ds_b1p1 * B1_omega12 * B1_1V13;
        temp_PDF13 = temp_PDF13 * B1_Ds_b1p1 * B1_omega13 * B1_1V23;
        temp_PDF21 = temp_PDF21 * B1_Ds_b1p2 * B1_omega21 * B1_2V12;
        temp_PDF22 = temp_PDF22 * B1_Ds_b1p2 * B1_omega22 * B1_2V13;
        temp_PDF23 = temp_PDF23 * B1_Ds_b1p2 * B1_omega23 * B1_2V23;
        temp_PDF31 = temp_PDF31 * B1_Ds_b1p3 * B1_omega31 * B1_3V12;
        temp_PDF32 = temp_PDF32 * B1_Ds_b1p3 * B1_omega32 * B1_3V13;
        temp_PDF33 = temp_PDF33 * B1_Ds_b1p3 * B1_omega33 * B1_3V23;
        temp_PDF41 = temp_PDF41 * B1_Ds_b1p4 * B1_omega41 * B1_4V12;
        temp_PDF42 = temp_PDF42 * B1_Ds_b1p4 * B1_omega42 * B1_4V13;
        temp_PDF43 = temp_PDF43 * B1_Ds_b1p4 * B1_omega43 * B1_4V23;
      }
      else if ( g2[i] == 2 )
      {
        if ( B1_omega11 == -1 )
        {
          B1_omega11 = BarrierN( 1, somega1, srho11, sPim, rRes2, mass2[i] );
          B1_omega12 = BarrierN( 1, somega1, srho12, sPi01, rRes2, mass2[i] );
          B1_omega13 = BarrierN( 1, somega1, srho13, sPip1, rRes2, mass2[i] );
          B1_omega21 = BarrierN( 1, somega2, srho21, sPim, rRes2, mass2[i] );
          B1_omega22 = BarrierN( 1, somega2, srho22, sPi02, rRes2, mass2[i] );
          B1_omega23 = BarrierN( 1, somega2, srho23, sPip1, rRes2, mass2[i] );
          B1_omega31 = BarrierN( 1, somega3, srho31, sPim, rRes2, mass2[i] );
          B1_omega32 = BarrierN( 1, somega3, srho32, sPi01, rRes2, mass2[i] );
          B1_omega33 = BarrierN( 1, somega3, srho33, sPip2, rRes2, mass2[i] );
          B1_omega41 = BarrierN( 1, somega4, srho41, sPim, rRes2, mass2[i] );
          B1_omega42 = BarrierN( 1, somega4, srho42, sPi02, rRes2, mass2[i] );
          B1_omega43 = BarrierN( 1, somega4, srho43, sPip2, rRes2, mass2[i] );
        }
        if ( B1_Ds_b1p1 == -1 )
        {
          B1_Ds_b1p1 = BarrierN( 1, sDs, sb1p1, sPi02, rDs2, mDsM );
          B1_Ds_b1p2 = BarrierN( 1, sDs, sb1p2, sPi01, rDs2, mDsM );
          B1_Ds_b1p3 = BarrierN( 1, sDs, sb1p3, sPi02, rDs2, mDsM );
          B1_Ds_b1p4 = BarrierN( 1, sDs, sb1p4, sPi01, rDs2, mDsM );
        }
        if ( B2_b1p1 == -1 )
        {
          B2_b1p1 = BarrierN( 2, sb1p1, somega1, sPip2, rRes2, mass1[i] );
          B2_b1p2 = BarrierN( 2, sb1p2, somega2, sPip2, rRes2, mass1[i] );
          B2_b1p3 = BarrierN( 2, sb1p3, somega3, sPip1, rRes2, mass1[i] );
          B2_b1p4 = BarrierN( 2, sb1p4, somega4, sPip1, rRes2, mass1[i] );
        }
        calt1( prho11, Pim, t1omega11 );
        calt1( prho12, Pi01, t1omega12 );
        calt1( prho13, Pip1, t1omega13 );
        calt1( prho21, Pim, t1omega21 );
        calt1( prho22, Pi02, t1omega22 );
        calt1( prho23, Pip1, t1omega23 );
        calt1( prho31, Pim, t1omega31 );
        calt1( prho32, Pi01, t1omega32 );
        calt1( prho23, Pip2, t1omega33 );
        calt1( prho41, Pim, t1omega41 );
        calt1( prho42, Pi02, t1omega42 );
        calt1( prho43, Pip2, t1omega43 );
        calt1( Pip1, Pi01, t1rho11 );
        calt1( Pip1, Pim, t1rho12 );
        calt1( Pi01, Pim, t1rho13 );
        calt1( Pip1, Pi02, t1rho21 );
        calt1( Pip1, Pim, t1rho22 );
        calt1( Pi02, Pim, t1rho23 );
        calt1( Pip2, Pi01, t1rho31 );
        calt1( Pip2, Pim, t1rho32 );
        calt1( Pi01, Pim, t1rho33 );
        calt1( Pip2, Pi02, t1rho41 );
        calt1( Pip2, Pim, t1rho42 );
        calt1( Pi02, Pim, t1rho43 );
        calG2( prho11, Pim, p1omega11 );
        calG2( prho12, Pi01, p1omega12 );
        calG2( prho13, Pip1, p1omega13 );
        calG2( prho21, Pim, p1omega21 );
        calG2( prho22, Pi02, p1omega22 );
        calG2( prho23, Pip1, p1omega23 );
        calG2( prho31, Pim, p1omega31 );
        calG2( prho32, Pi01, p1omega32 );
        calG2( prho33, Pip2, p1omega33 );
        calG2( prho41, Pim, p1omega41 );
        calG2( prho42, Pi02, p1omega42 );
        calG2( prho43, Pip2, p1omega43 );
 
        calt2( pomega1, Pip2, t2b1p1 );
        calt2( pomega2, Pip2, t2b1p2 );
        calt2( pomega3, Pip1, t2b1p3 );
        calt2( pomega4, Pip1, t2b1p4 );
        calt1( pb1p1, Pi02, t1Ds_b1p1 );
        calt1( pb1p2, Pi01, t1Ds_b1p2 );
        calt1( pb1p3, Pi02, t1Ds_b1p3 );
        calt1( pb1p4, Pi01, t1Ds_b1p4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempomega1 = pomega1[j] * G[j][j] * G[i][i];
            double tempomega2 = pomega2[j] * G[j][j] * G[i][i];
            double tempomega3 = pomega3[j] * G[j][j] * G[i][i];
            double tempomega4 = pomega4[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega11 = t1omega11[k] * G[k][k];
              double temt1omega12 = t1omega12[k] * G[k][k];
              double temt1omega13 = t1omega13[k] * G[k][k];
              double temt1omega21 = t1omega21[k] * G[k][k];
              double temt1omega22 = t1omega22[k] * G[k][k];
              double temt1omega23 = t1omega23[k] * G[k][k];
              double temt1omega31 = t1omega31[k] * G[k][k];
              double temt1omega32 = t1omega32[k] * G[k][k];
              double temt1omega33 = t1omega33[k] * G[k][k];
              double temt1omega41 = t1omega41[k] * G[k][k];
              double temt1omega42 = t1omega42[k] * G[k][k];
              double temt1omega43 = t1omega43[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho11 = t1rho11[l] * G[l][l] * E[i][j][k][l];
                double temt1rho12 = t1rho12[l] * G[l][l] * E[i][j][k][l];
                double temt1rho13 = t1rho13[l] * G[l][l] * E[i][j][k][l];
                double temt1rho21 = t1rho21[l] * G[l][l] * E[i][j][k][l];
                double temt1rho22 = t1rho22[l] * G[l][l] * E[i][j][k][l];
                double temt1rho23 = t1rho23[l] * G[l][l] * E[i][j][k][l];
                double temt1rho31 = t1rho31[l] * G[l][l] * E[i][j][k][l];
                double temt1rho32 = t1rho32[l] * G[l][l] * E[i][j][k][l];
                double temt1rho33 = t1rho33[l] * G[l][l] * E[i][j][k][l];
                double temt1rho41 = t1rho41[l] * G[l][l] * E[i][j][k][l];
                double temt1rho42 = t1rho42[l] * G[l][l] * E[i][j][k][l];
                double temt1rho43 = t1rho43[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temt1Ds_b1p1 = t1Ds_b1p1[m] * G[m][m];
                  double temt1Ds_b1p2 = t1Ds_b1p2[m] * G[m][m];
                  double temt1Ds_b1p3 = t1Ds_b1p3[m] * G[m][m];
                  double temt1Ds_b1p4 = t1Ds_b1p4[m] * G[m][m];
 
                  for ( int n = 0; n < 4; n++ )
                  {
                    if ( ( i == j ) || ( i == k ) || ( i == l ) || ( j == k ) || ( j == l ) ||
                         ( k == l ) )
                      continue;
                    temp_PDF11 += temt1Ds_b1p1 * t2b1p1[m][n] * p1omega11[n][i] * tempomega1 *
                                  temt1omega11 * temt1rho11 * G[n][n];
                    temp_PDF12 += temt1Ds_b1p1 * t2b1p1[m][n] * p1omega12[n][i] * tempomega1 *
                                  temt1omega12 * temt1rho12 * G[n][n];
                    temp_PDF13 += temt1Ds_b1p1 * t2b1p1[m][n] * p1omega13[n][i] * tempomega1 *
                                  temt1omega13 * temt1rho13 * G[n][n];
                    temp_PDF21 += temt1Ds_b1p2 * t2b1p2[m][n] * p1omega21[n][i] * tempomega2 *
                                  temt1omega21 * temt1rho21 * G[n][n];
                    temp_PDF22 += temt1Ds_b1p2 * t2b1p2[m][n] * p1omega22[n][i] * tempomega2 *
                                  temt1omega22 * temt1rho22 * G[n][n];
                    temp_PDF23 += temt1Ds_b1p2 * t2b1p2[m][n] * p1omega23[n][i] * tempomega2 *
                                  temt1omega23 * temt1rho23 * G[n][n];
                    temp_PDF31 += temt1Ds_b1p3 * t2b1p3[m][n] * p1omega31[n][i] * tempomega3 *
                                  temt1omega31 * temt1rho31 * G[n][n];
                    temp_PDF32 += temt1Ds_b1p3 * t2b1p3[m][n] * p1omega32[n][i] * tempomega3 *
                                  temt1omega32 * temt1rho32 * G[n][n];
                    temp_PDF33 += temt1Ds_b1p3 * t2b1p3[m][n] * p1omega33[n][i] * tempomega3 *
                                  temt1omega33 * temt1rho33 * G[n][n];
                    temp_PDF41 += temt1Ds_b1p4 * t2b1p4[m][n] * p1omega41[n][i] * tempomega4 *
                                  temt1omega41 * temt1rho41 * G[n][n];
                    temp_PDF42 += temt1Ds_b1p4 * t2b1p4[m][n] * p1omega42[n][i] * tempomega4 *
                                  temt1omega42 * temt1rho42 * G[n][n];
                    temp_PDF43 += temt1Ds_b1p4 * t2b1p4[m][n] * p1omega43[n][i] * tempomega4 *
                                  temt1omega43 * temt1rho43 * G[n][n];
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_Ds_b1p1 * B2_b1p1 * B1_omega11 * B1_1V12;
        temp_PDF12 = temp_PDF12 * B1_Ds_b1p1 * B2_b1p1 * B1_omega12 * B1_1V13;
        temp_PDF13 = temp_PDF13 * B1_Ds_b1p1 * B2_b1p1 * B1_omega13 * B1_1V23;
        temp_PDF21 = temp_PDF21 * B1_Ds_b1p2 * B2_b1p2 * B1_omega21 * B1_2V12;
        temp_PDF22 = temp_PDF22 * B1_Ds_b1p2 * B2_b1p2 * B1_omega22 * B1_2V13;
        temp_PDF23 = temp_PDF23 * B1_Ds_b1p2 * B2_b1p2 * B1_omega23 * B1_2V23;
        temp_PDF31 = temp_PDF31 * B1_Ds_b1p3 * B2_b1p3 * B1_omega31 * B1_3V12;
        temp_PDF32 = temp_PDF32 * B1_Ds_b1p3 * B2_b1p3 * B1_omega32 * B1_3V13;
        temp_PDF33 = temp_PDF33 * B1_Ds_b1p3 * B2_b1p3 * B1_omega33 * B1_3V23;
        temp_PDF41 = temp_PDF41 * B1_Ds_b1p4 * B2_b1p4 * B1_omega41 * B1_4V12;
        temp_PDF42 = temp_PDF42 * B1_Ds_b1p4 * B2_b1p4 * B1_omega42 * B1_4V13;
        temp_PDF43 = temp_PDF43 * B1_Ds_b1p4 * B2_b1p4 * B1_omega43 * B1_4V23;
      }
      if ( g0[i] == 1 )
      {
        propagatorRBW( mass1sq, mass1[i], width1[i], sb1p1, somega1, sPip2, rRes2, g2[i],
                       pro0_1 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sb1p2, somega2, sPip2, rRes2, g2[i],
                       pro0_2 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sb1p3, somega3, sPip1, rRes2, g2[i],
                       pro0_3 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sb1p4, somega4, sPip1, rRes2, g2[i],
                       pro0_4 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_1[0] = 1;
        pro0_1[1] = 0;
        pro0_2[0] = 1;
        pro0_2[1] = 0;
        pro0_3[0] = 1;
        pro0_3[1] = 0;
        pro0_4[0] = 1;
        pro0_4[1] = 0;
      }
      if ( g1[i] == 1 )
      {
        propagator( mass2sq, mass2[i], width2[i], somega1, pro1_11 );
        propagator( mass2sq, mass2[i], width2[i], somega1, pro1_12 );
        propagator( mass2sq, mass2[i], width2[i], somega1, pro1_13 );
        propagator( mass2sq, mass2[i], width2[i], somega2, pro1_21 );
        propagator( mass2sq, mass2[i], width2[i], somega2, pro1_22 );
        propagator( mass2sq, mass2[i], width2[i], somega2, pro1_23 );
        propagator( mass2sq, mass2[i], width2[i], somega3, pro1_31 );
        propagator( mass2sq, mass2[i], width2[i], somega3, pro1_32 );
        propagator( mass2sq, mass2[i], width2[i], somega3, pro1_33 );
        propagator( mass2sq, mass2[i], width2[i], somega4, pro1_41 );
        propagator( mass2sq, mass2[i], width2[i], somega4, pro1_42 );
        propagator( mass2sq, mass2[i], width2[i], somega4, pro1_43 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_11[0] = 1;
        pro1_11[1] = 0;
        pro1_12[0] = 1;
        pro1_12[1] = 0;
        pro1_13[0] = 1;
        pro1_13[1] = 0;
        pro1_21[0] = 1;
        pro1_21[1] = 0;
        pro1_22[0] = 1;
        pro1_22[1] = 0;
        pro1_23[0] = 1;
        pro1_23[1] = 0;
        pro1_31[0] = 1;
        pro1_31[1] = 0;
        pro1_32[0] = 1;
        pro1_32[1] = 0;
        pro1_33[0] = 1;
        pro1_33[1] = 0;
        pro1_41[0] = 1;
        pro1_41[1] = 0;
        pro1_42[0] = 1;
        pro1_42[1] = 0;
        pro1_43[0] = 1;
        pro1_43[1] = 0;
      }
      Com_Multi( pro0_1, pro1_11, tpro_11 );
      Com_Multi( tpro_11, pro1V12, pro_11 );
      Com_Multi( pro0_1, pro1_12, tpro_12 );
      Com_Multi( tpro_12, pro1V13, pro_12 );
      Com_Multi( pro0_1, pro1_13, tpro_13 );
      Com_Multi( tpro_13, pro1V23, pro_13 );
      Com_Multi( pro0_2, pro1_21, tpro_21 );
      Com_Multi( tpro_21, pro2V12, pro_21 );
      Com_Multi( pro0_2, pro1_22, tpro_22 );
      Com_Multi( tpro_22, pro2V13, pro_22 );
      Com_Multi( pro0_2, pro1_23, tpro_23 );
      Com_Multi( tpro_23, pro2V23, pro_23 );
      Com_Multi( pro0_3, pro1_31, tpro_31 );
      Com_Multi( tpro_31, pro3V12, pro_31 );
      Com_Multi( pro0_3, pro1_32, tpro_32 );
      Com_Multi( tpro_32, pro3V13, pro_32 );
      Com_Multi( pro0_3, pro1_33, tpro_33 );
      Com_Multi( tpro_33, pro3V23, pro_33 );
      Com_Multi( pro0_4, pro1_41, tpro_41 );
      Com_Multi( tpro_41, pro4V12, pro_41 );
      Com_Multi( pro0_4, pro1_42, tpro_42 );
      Com_Multi( tpro_42, pro4V13, pro_42 );
      Com_Multi( pro0_4, pro1_43, tpro_43 );
      Com_Multi( tpro_43, pro4V23, pro_43 );
      amp_tmp1[0] = temp_PDF11 * pro_11[0] - temp_PDF12 * pro_12[0] + temp_PDF13 * pro_13[0];
      amp_tmp1[1] = temp_PDF11 * pro_11[1] - temp_PDF12 * pro_12[1] + temp_PDF13 * pro_13[1];
      amp_tmp2[0] = temp_PDF21 * pro_21[0] - temp_PDF22 * pro_22[0] + temp_PDF23 * pro_23[0];
      amp_tmp2[1] = temp_PDF21 * pro_21[1] - temp_PDF22 * pro_22[1] + temp_PDF23 * pro_23[1];
      amp_tmp3[0] = temp_PDF31 * pro_31[0] - temp_PDF32 * pro_32[0] + temp_PDF33 * pro_33[0];
      amp_tmp3[1] = temp_PDF31 * pro_31[1] - temp_PDF32 * pro_32[1] + temp_PDF33 * pro_33[1];
      amp_tmp4[0] = temp_PDF41 * pro_41[0] - temp_PDF42 * pro_42[0] + temp_PDF43 * pro_43[0];
      amp_tmp4[1] = temp_PDF41 * pro_41[1] - temp_PDF42 * pro_42[1] + temp_PDF43 * pro_43[1];
    }
    else if ( modetype[i] == 6 )
    {
      if ( g2[i] == 0 )
      {
        if ( B1_omega11 == -1 )
        {
          B1_omega11 = BarrierN( 1, somega1, srho11, sPim, rRes2, mass2[i] );
          B1_omega12 = BarrierN( 1, somega1, srho12, sPi01, rRes2, mass2[i] );
          B1_omega13 = BarrierN( 1, somega1, srho13, sPip1, rRes2, mass2[i] );
          B1_omega21 = BarrierN( 1, somega2, srho21, sPim, rRes2, mass2[i] );
          B1_omega22 = BarrierN( 1, somega2, srho22, sPi02, rRes2, mass2[i] );
          B1_omega23 = BarrierN( 1, somega2, srho23, sPip1, rRes2, mass2[i] );
          B1_omega31 = BarrierN( 1, somega3, srho31, sPim, rRes2, mass2[i] );
          B1_omega32 = BarrierN( 1, somega3, srho32, sPi01, rRes2, mass2[i] );
          B1_omega33 = BarrierN( 1, somega3, srho33, sPip2, rRes2, mass2[i] );
          B1_omega41 = BarrierN( 1, somega4, srho41, sPim, rRes2, mass2[i] );
          B1_omega42 = BarrierN( 1, somega4, srho42, sPi02, rRes2, mass2[i] );
          B1_omega43 = BarrierN( 1, somega4, srho43, sPip2, rRes2, mass2[i] );
        }
        if ( B1_Ds_b1n1 == -1 )
        {
          B1_Ds_b1n1 = BarrierN( 1, sDs, sb1n1, sPip2, rDs2, mDsM );
          B1_Ds_b1n2 = BarrierN( 1, sDs, sb1n2, sPip2, rDs2, mDsM );
          B1_Ds_b1n3 = BarrierN( 1, sDs, sb1n3, sPip1, rDs2, mDsM );
          B1_Ds_b1n4 = BarrierN( 1, sDs, sb1n4, sPip1, rDs2, mDsM );
        }
        calt1( prho11, Pim, t1omega11 );
        calt1( prho12, Pi01, t1omega12 );
        calt1( prho13, Pip1, t1omega13 );
        calt1( prho21, Pim, t1omega21 );
        calt1( prho22, Pi02, t1omega22 );
        calt1( prho23, Pip1, t1omega23 );
        calt1( prho31, Pim, t1omega31 );
        calt1( prho32, Pi01, t1omega32 );
        calt1( prho23, Pip2, t1omega33 );
        calt1( prho41, Pim, t1omega41 );
        calt1( prho42, Pi02, t1omega42 );
        calt1( prho43, Pip2, t1omega43 );
        calt1( Pip1, Pi01, t1rho11 );
        calt1( Pip1, Pim, t1rho12 );
        calt1( Pi01, Pim, t1rho13 );
        calt1( Pip1, Pi02, t1rho21 );
        calt1( Pip1, Pim, t1rho22 );
        calt1( Pi02, Pim, t1rho23 );
        calt1( Pip2, Pi01, t1rho31 );
        calt1( Pip2, Pim, t1rho32 );
        calt1( Pi01, Pim, t1rho33 );
        calt1( Pip2, Pi02, t1rho41 );
        calt1( Pip2, Pim, t1rho42 );
        calt1( Pi02, Pim, t1rho43 );
        calG2( prho11, Pim, p1omega11 );
        calG2( prho12, Pi01, p1omega12 );
        calG2( prho13, Pip1, p1omega13 );
        calG2( prho21, Pim, p1omega21 );
        calG2( prho22, Pi02, p1omega22 );
        calG2( prho23, Pip1, p1omega23 );
        calG2( prho31, Pim, p1omega31 );
        calG2( prho32, Pi01, p1omega32 );
        calG2( prho33, Pip2, p1omega33 );
        calG2( prho41, Pim, p1omega41 );
        calG2( prho42, Pi02, p1omega42 );
        calG2( prho43, Pip2, p1omega43 );
        calG2( pomega1, Pi02, p1b1n1 );
        calG2( pomega2, Pi01, p1b1n2 );
        calG2( pomega3, Pi02, p1b1n3 );
        calG2( pomega4, Pi01, p1b1n4 );
        calt1( pb1n1, Pip2, t1Ds_b1n1 );
        calt1( pb1n2, Pip2, t1Ds_b1n2 );
        calt1( pb1n3, Pip1, t1Ds_b1n3 );
        calt1( pb1n4, Pip1, t1Ds_b1n4 );
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempomega1 = pomega1[j] * G[j][j] * G[i][i];
            double tempomega2 = pomega2[j] * G[j][j] * G[i][i];
            double tempomega3 = pomega3[j] * G[j][j] * G[i][i];
            double tempomega4 = pomega4[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega11 = t1omega11[k] * G[k][k];
              double temt1omega12 = t1omega12[k] * G[k][k];
              double temt1omega13 = t1omega13[k] * G[k][k];
              double temt1omega21 = t1omega21[k] * G[k][k];
              double temt1omega22 = t1omega22[k] * G[k][k];
              double temt1omega23 = t1omega23[k] * G[k][k];
              double temt1omega31 = t1omega31[k] * G[k][k];
              double temt1omega32 = t1omega32[k] * G[k][k];
              double temt1omega33 = t1omega33[k] * G[k][k];
              double temt1omega41 = t1omega41[k] * G[k][k];
              double temt1omega42 = t1omega42[k] * G[k][k];
              double temt1omega43 = t1omega43[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho11 = t1rho11[l] * G[l][l] * E[i][j][k][l];
                double temt1rho12 = t1rho12[l] * G[l][l] * E[i][j][k][l];
                double temt1rho13 = t1rho13[l] * G[l][l] * E[i][j][k][l];
                double temt1rho21 = t1rho21[l] * G[l][l] * E[i][j][k][l];
                double temt1rho22 = t1rho22[l] * G[l][l] * E[i][j][k][l];
                double temt1rho23 = t1rho23[l] * G[l][l] * E[i][j][k][l];
                double temt1rho31 = t1rho31[l] * G[l][l] * E[i][j][k][l];
                double temt1rho32 = t1rho32[l] * G[l][l] * E[i][j][k][l];
                double temt1rho33 = t1rho33[l] * G[l][l] * E[i][j][k][l];
                double temt1rho41 = t1rho41[l] * G[l][l] * E[i][j][k][l];
                double temt1rho42 = t1rho42[l] * G[l][l] * E[i][j][k][l];
                double temt1rho43 = t1rho43[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temt1Ds_b1n1 = t1Ds_b1n1[m] * G[m][m];
                  double temt1Ds_b1n2 = t1Ds_b1n2[m] * G[m][m];
                  double temt1Ds_b1n3 = t1Ds_b1n3[m] * G[m][m];
                  double temt1Ds_b1n4 = t1Ds_b1n4[m] * G[m][m];
 
                  for ( int n = 0; n < 4; n++ )
                  {
                    if ( ( i == j ) || ( i == k ) || ( i == l ) || ( j == k ) || ( j == l ) ||
                         ( k == l ) )
                      continue;
                    temp_PDF11 += temt1Ds_b1n1 * p1b1n1[m][n] * p1omega11[n][i] * tempomega1 *
                                  temt1omega11 * temt1rho11 * G[n][n];
                    temp_PDF12 += temt1Ds_b1n1 * p1b1n1[m][n] * p1omega12[n][i] * tempomega1 *
                                  temt1omega12 * temt1rho12 * G[n][n];
                    temp_PDF13 += temt1Ds_b1n1 * p1b1n1[m][n] * p1omega13[n][i] * tempomega1 *
                                  temt1omega13 * temt1rho13 * G[n][n];
                    temp_PDF21 += temt1Ds_b1n2 * p1b1n2[m][n] * p1omega21[n][i] * tempomega2 *
                                  temt1omega21 * temt1rho21 * G[n][n];
                    temp_PDF22 += temt1Ds_b1n2 * p1b1n2[m][n] * p1omega22[n][i] * tempomega2 *
                                  temt1omega22 * temt1rho22 * G[n][n];
                    temp_PDF23 += temt1Ds_b1n2 * p1b1n2[m][n] * p1omega23[n][i] * tempomega2 *
                                  temt1omega23 * temt1rho23 * G[n][n];
                    temp_PDF31 += temt1Ds_b1n3 * p1b1n3[m][n] * p1omega31[n][i] * tempomega3 *
                                  temt1omega31 * temt1rho31 * G[n][n];
                    temp_PDF32 += temt1Ds_b1n3 * p1b1n3[m][n] * p1omega32[n][i] * tempomega3 *
                                  temt1omega32 * temt1rho32 * G[n][n];
                    temp_PDF33 += temt1Ds_b1n3 * p1b1n3[m][n] * p1omega33[n][i] * tempomega3 *
                                  temt1omega33 * temt1rho33 * G[n][n];
                    temp_PDF41 += temt1Ds_b1n4 * p1b1n4[m][n] * p1omega41[n][i] * tempomega4 *
                                  temt1omega41 * temt1rho41 * G[n][n];
                    temp_PDF42 += temt1Ds_b1n4 * p1b1n4[m][n] * p1omega42[n][i] * tempomega4 *
                                  temt1omega42 * temt1rho42 * G[n][n];
                    temp_PDF43 += temt1Ds_b1n4 * p1b1n4[m][n] * p1omega43[n][i] * tempomega4 *
                                  temt1omega43 * temt1rho43 * G[n][n];
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_Ds_b1n1 * B1_omega11 * B1_1V12;
        temp_PDF12 = temp_PDF12 * B1_Ds_b1n1 * B1_omega12 * B1_1V13;
        temp_PDF13 = temp_PDF13 * B1_Ds_b1n1 * B1_omega13 * B1_1V23;
        temp_PDF21 = temp_PDF21 * B1_Ds_b1n2 * B1_omega21 * B1_2V12;
        temp_PDF22 = temp_PDF22 * B1_Ds_b1n2 * B1_omega22 * B1_2V13;
        temp_PDF23 = temp_PDF23 * B1_Ds_b1n2 * B1_omega23 * B1_2V23;
        temp_PDF31 = temp_PDF31 * B1_Ds_b1n3 * B1_omega31 * B1_3V12;
        temp_PDF32 = temp_PDF32 * B1_Ds_b1n3 * B1_omega32 * B1_3V13;
        temp_PDF33 = temp_PDF33 * B1_Ds_b1n3 * B1_omega33 * B1_3V23;
        temp_PDF41 = temp_PDF41 * B1_Ds_b1n4 * B1_omega41 * B1_4V12;
        temp_PDF42 = temp_PDF42 * B1_Ds_b1n4 * B1_omega42 * B1_4V13;
        temp_PDF43 = temp_PDF43 * B1_Ds_b1n4 * B1_omega43 * B1_4V23;
      }
      else if ( g2[i] == 2 )
      {
        if ( B1_omega11 == -1 )
        {
          B1_omega11 = BarrierN( 1, somega1, srho11, sPim, rRes2, mass2[i] );
          B1_omega12 = BarrierN( 1, somega1, srho12, sPi01, rRes2, mass2[i] );
          B1_omega13 = BarrierN( 1, somega1, srho13, sPip1, rRes2, mass2[i] );
          B1_omega21 = BarrierN( 1, somega2, srho21, sPim, rRes2, mass2[i] );
          B1_omega22 = BarrierN( 1, somega2, srho22, sPi02, rRes2, mass2[i] );
          B1_omega23 = BarrierN( 1, somega2, srho23, sPip1, rRes2, mass2[i] );
          B1_omega31 = BarrierN( 1, somega3, srho31, sPim, rRes2, mass2[i] );
          B1_omega32 = BarrierN( 1, somega3, srho32, sPi01, rRes2, mass2[i] );
          B1_omega33 = BarrierN( 1, somega3, srho33, sPip2, rRes2, mass2[i] );
          B1_omega41 = BarrierN( 1, somega4, srho41, sPim, rRes2, mass2[i] );
          B1_omega42 = BarrierN( 1, somega4, srho42, sPi02, rRes2, mass2[i] );
          B1_omega43 = BarrierN( 1, somega4, srho43, sPip2, rRes2, mass2[i] );
        }
        if ( B1_Ds_b1n1 == -1 )
        {
          B1_Ds_b1n1 = BarrierN( 1, sDs, sb1n1, sPip2, rDs2, mDsM );
          B1_Ds_b1n2 = BarrierN( 1, sDs, sb1n2, sPip2, rDs2, mDsM );
          B1_Ds_b1n3 = BarrierN( 1, sDs, sb1n3, sPip1, rDs2, mDsM );
          B1_Ds_b1n4 = BarrierN( 1, sDs, sb1n4, sPip1, rDs2, mDsM );
        }
        if ( B2_b1n1 == -1 )
        {
          B2_b1n1 = BarrierN( 2, sb1n1, somega1, sPi02, rRes2, mass1[i] );
          B2_b1n2 = BarrierN( 2, sb1n2, somega2, sPi01, rRes2, mass1[i] );
          B2_b1n3 = BarrierN( 2, sb1n3, somega3, sPi02, rRes2, mass1[i] );
          B2_b1n4 = BarrierN( 2, sb1n4, somega4, sPi01, rRes2, mass1[i] );
        }
 
        calt1( prho11, Pim, t1omega11 );
        calt1( prho12, Pi01, t1omega12 );
        calt1( prho13, Pip1, t1omega13 );
        calt1( prho21, Pim, t1omega21 );
        calt1( prho22, Pi02, t1omega22 );
        calt1( prho23, Pip1, t1omega23 );
        calt1( prho31, Pim, t1omega31 );
        calt1( prho32, Pi01, t1omega32 );
        calt1( prho23, Pip2, t1omega33 );
        calt1( prho41, Pim, t1omega41 );
        calt1( prho42, Pi02, t1omega42 );
        calt1( prho43, Pip2, t1omega43 );
        calt1( Pip1, Pi01, t1rho11 );
        calt1( Pip1, Pim, t1rho12 );
        calt1( Pi01, Pim, t1rho13 );
        calt1( Pip1, Pi02, t1rho21 );
        calt1( Pip1, Pim, t1rho22 );
        calt1( Pi02, Pim, t1rho23 );
        calt1( Pip2, Pi01, t1rho31 );
        calt1( Pip2, Pim, t1rho32 );
        calt1( Pi01, Pim, t1rho33 );
        calt1( Pip2, Pi02, t1rho41 );
        calt1( Pip2, Pim, t1rho42 );
        calt1( Pi02, Pim, t1rho43 );
        calG2( prho11, Pim, p1omega11 );
        calG2( prho12, Pi01, p1omega12 );
        calG2( prho13, Pip1, p1omega13 );
        calG2( prho21, Pim, p1omega21 );
        calG2( prho22, Pi02, p1omega22 );
        calG2( prho23, Pip1, p1omega23 );
        calG2( prho31, Pim, p1omega31 );
        calG2( prho32, Pi01, p1omega32 );
        calG2( prho33, Pip2, p1omega33 );
        calG2( prho41, Pim, p1omega41 );
        calG2( prho42, Pi02, p1omega42 );
        calG2( prho43, Pip2, p1omega43 );
 
        calt2( pomega1, Pi02, t2b1n1 );
        calt2( pomega2, Pi01, t2b1n2 );
        calt2( pomega3, Pi02, t2b1n3 );
        calt2( pomega4, Pi01, t2b1n4 );
        calt1( pb1n1, Pip2, t1Ds_b1n1 );
        calt1( pb1n2, Pip2, t1Ds_b1n2 );
        calt1( pb1n3, Pip1, t1Ds_b1n3 );
        calt1( pb1n4, Pip1, t1Ds_b1n4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempomega1 = pomega1[j] * G[j][j] * G[i][i];
            double tempomega2 = pomega2[j] * G[j][j] * G[i][i];
            double tempomega3 = pomega3[j] * G[j][j] * G[i][i];
            double tempomega4 = pomega4[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega11 = t1omega11[k] * G[k][k];
              double temt1omega12 = t1omega12[k] * G[k][k];
              double temt1omega13 = t1omega13[k] * G[k][k];
              double temt1omega21 = t1omega21[k] * G[k][k];
              double temt1omega22 = t1omega22[k] * G[k][k];
              double temt1omega23 = t1omega23[k] * G[k][k];
              double temt1omega31 = t1omega31[k] * G[k][k];
              double temt1omega32 = t1omega32[k] * G[k][k];
              double temt1omega33 = t1omega33[k] * G[k][k];
              double temt1omega41 = t1omega41[k] * G[k][k];
              double temt1omega42 = t1omega42[k] * G[k][k];
              double temt1omega43 = t1omega43[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho11 = t1rho11[l] * G[l][l] * E[i][j][k][l];
                double temt1rho12 = t1rho12[l] * G[l][l] * E[i][j][k][l];
                double temt1rho13 = t1rho13[l] * G[l][l] * E[i][j][k][l];
                double temt1rho21 = t1rho21[l] * G[l][l] * E[i][j][k][l];
                double temt1rho22 = t1rho22[l] * G[l][l] * E[i][j][k][l];
                double temt1rho23 = t1rho23[l] * G[l][l] * E[i][j][k][l];
                double temt1rho31 = t1rho31[l] * G[l][l] * E[i][j][k][l];
                double temt1rho32 = t1rho32[l] * G[l][l] * E[i][j][k][l];
                double temt1rho33 = t1rho33[l] * G[l][l] * E[i][j][k][l];
                double temt1rho41 = t1rho41[l] * G[l][l] * E[i][j][k][l];
                double temt1rho42 = t1rho42[l] * G[l][l] * E[i][j][k][l];
                double temt1rho43 = t1rho43[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temt1Ds_b1n1 = t1Ds_b1n1[m] * G[m][m];
                  double temt1Ds_b1n2 = t1Ds_b1n2[m] * G[m][m];
                  double temt1Ds_b1n3 = t1Ds_b1n3[m] * G[m][m];
                  double temt1Ds_b1n4 = t1Ds_b1n4[m] * G[m][m];
 
                  for ( int n = 0; n < 4; n++ )
                  {
                    if ( ( i == j ) || ( i == k ) || ( i == l ) || ( j == k ) || ( j == l ) ||
                         ( k == l ) )
                      continue;
                    temp_PDF11 += temt1Ds_b1n1 * t2b1n1[m][n] * p1omega11[n][i] * tempomega1 *
                                  temt1omega11 * temt1rho11 * G[n][n];
                    temp_PDF12 += temt1Ds_b1n1 * t2b1n1[m][n] * p1omega12[n][i] * tempomega1 *
                                  temt1omega12 * temt1rho12 * G[n][n];
                    temp_PDF13 += temt1Ds_b1n1 * t2b1n1[m][n] * p1omega13[n][i] * tempomega1 *
                                  temt1omega13 * temt1rho13 * G[n][n];
                    temp_PDF21 += temt1Ds_b1n2 * t2b1n2[m][n] * p1omega21[n][i] * tempomega2 *
                                  temt1omega21 * temt1rho21 * G[n][n];
                    temp_PDF22 += temt1Ds_b1n2 * t2b1n2[m][n] * p1omega22[n][i] * tempomega2 *
                                  temt1omega22 * temt1rho22 * G[n][n];
                    temp_PDF23 += temt1Ds_b1n2 * t2b1n2[m][n] * p1omega23[n][i] * tempomega2 *
                                  temt1omega23 * temt1rho23 * G[n][n];
                    temp_PDF31 += temt1Ds_b1n3 * t2b1n3[m][n] * p1omega31[n][i] * tempomega3 *
                                  temt1omega31 * temt1rho31 * G[n][n];
                    temp_PDF32 += temt1Ds_b1n3 * t2b1n3[m][n] * p1omega32[n][i] * tempomega3 *
                                  temt1omega32 * temt1rho32 * G[n][n];
                    temp_PDF33 += temt1Ds_b1n3 * t2b1n3[m][n] * p1omega33[n][i] * tempomega3 *
                                  temt1omega33 * temt1rho33 * G[n][n];
                    temp_PDF41 += temt1Ds_b1n4 * t2b1n4[m][n] * p1omega41[n][i] * tempomega4 *
                                  temt1omega41 * temt1rho41 * G[n][n];
                    temp_PDF42 += temt1Ds_b1n4 * t2b1n4[m][n] * p1omega42[n][i] * tempomega4 *
                                  temt1omega42 * temt1rho42 * G[n][n];
                    temp_PDF43 += temt1Ds_b1n4 * t2b1n4[m][n] * p1omega43[n][i] * tempomega4 *
                                  temt1omega43 * temt1rho43 * G[n][n];
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_Ds_b1n1 * B2_b1n1 * B1_omega11 * B1_1V12;
        temp_PDF12 = temp_PDF12 * B1_Ds_b1n1 * B2_b1n1 * B1_omega12 * B1_1V13;
        temp_PDF13 = temp_PDF13 * B1_Ds_b1n1 * B2_b1n1 * B1_omega13 * B1_1V23;
        temp_PDF21 = temp_PDF21 * B1_Ds_b1n2 * B2_b1n2 * B1_omega21 * B1_2V12;
        temp_PDF22 = temp_PDF22 * B1_Ds_b1n2 * B2_b1n2 * B1_omega22 * B1_2V13;
        temp_PDF23 = temp_PDF23 * B1_Ds_b1n2 * B2_b1n2 * B1_omega23 * B1_2V23;
        temp_PDF31 = temp_PDF31 * B1_Ds_b1n3 * B2_b1n3 * B1_omega31 * B1_3V12;
        temp_PDF32 = temp_PDF32 * B1_Ds_b1n3 * B2_b1n3 * B1_omega32 * B1_3V13;
        temp_PDF33 = temp_PDF33 * B1_Ds_b1n3 * B2_b1n3 * B1_omega33 * B1_3V23;
        temp_PDF41 = temp_PDF41 * B1_Ds_b1n4 * B2_b1n4 * B1_omega41 * B1_4V12;
        temp_PDF42 = temp_PDF42 * B1_Ds_b1n4 * B2_b1n4 * B1_omega42 * B1_4V13;
        temp_PDF43 = temp_PDF43 * B1_Ds_b1n4 * B2_b1n4 * B1_omega43 * B1_4V23;
      }
      if ( g0[i] == 1 )
      {
        propagatorRBW( mass1sq, mass1[i], width1[i], sb1n1, somega1, sPi02, rRes2, g2[i],
                       pro0_1 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sb1n2, somega2, sPi01, rRes2, g2[i],
                       pro0_2 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sb1n3, somega3, sPi02, rRes2, g2[i],
                       pro0_3 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sb1n4, somega4, sPi01, rRes2, g2[i],
                       pro0_4 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_1[0] = 1;
        pro0_1[1] = 0;
        pro0_2[0] = 1;
        pro0_2[1] = 0;
        pro0_3[0] = 1;
        pro0_3[1] = 0;
        pro0_4[0] = 1;
        pro0_4[1] = 0;
      }
      if ( g1[i] == 1 )
      {
        propagator( mass2sq, mass2[i], width2[i], somega1, pro1_11 );
        propagator( mass2sq, mass2[i], width2[i], somega1, pro1_12 );
        propagator( mass2sq, mass2[i], width2[i], somega1, pro1_13 );
        propagator( mass2sq, mass2[i], width2[i], somega2, pro1_21 );
        propagator( mass2sq, mass2[i], width2[i], somega2, pro1_22 );
        propagator( mass2sq, mass2[i], width2[i], somega2, pro1_23 );
        propagator( mass2sq, mass2[i], width2[i], somega3, pro1_31 );
        propagator( mass2sq, mass2[i], width2[i], somega3, pro1_32 );
        propagator( mass2sq, mass2[i], width2[i], somega3, pro1_33 );
        propagator( mass2sq, mass2[i], width2[i], somega4, pro1_41 );
        propagator( mass2sq, mass2[i], width2[i], somega4, pro1_42 );
        propagator( mass2sq, mass2[i], width2[i], somega4, pro1_43 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_11[0] = 1;
        pro1_11[1] = 0;
        pro1_12[0] = 1;
        pro1_12[1] = 0;
        pro1_13[0] = 1;
        pro1_13[1] = 0;
        pro1_21[0] = 1;
        pro1_21[1] = 0;
        pro1_22[0] = 1;
        pro1_22[1] = 0;
        pro1_23[0] = 1;
        pro1_23[1] = 0;
        pro1_31[0] = 1;
        pro1_31[1] = 0;
        pro1_32[0] = 1;
        pro1_32[1] = 0;
        pro1_33[0] = 1;
        pro1_33[1] = 0;
        pro1_41[0] = 1;
        pro1_41[1] = 0;
        pro1_42[0] = 1;
        pro1_42[1] = 0;
        pro1_43[0] = 1;
        pro1_43[1] = 0;
      }
      Com_Multi( pro0_1, pro1_11, tpro_11 );
      Com_Multi( tpro_11, pro1V12, pro_11 );
      Com_Multi( pro0_1, pro1_12, tpro_12 );
      Com_Multi( tpro_12, pro1V13, pro_12 );
      Com_Multi( pro0_1, pro1_13, tpro_13 );
      Com_Multi( tpro_13, pro1V23, pro_13 );
      Com_Multi( pro0_2, pro1_21, tpro_21 );
      Com_Multi( tpro_21, pro2V12, pro_21 );
      Com_Multi( pro0_2, pro1_22, tpro_22 );
      Com_Multi( tpro_22, pro2V13, pro_22 );
      Com_Multi( pro0_2, pro1_23, tpro_23 );
      Com_Multi( tpro_23, pro2V23, pro_23 );
      Com_Multi( pro0_3, pro1_31, tpro_31 );
      Com_Multi( tpro_31, pro3V12, pro_31 );
      Com_Multi( pro0_3, pro1_32, tpro_32 );
      Com_Multi( tpro_32, pro3V13, pro_32 );
      Com_Multi( pro0_3, pro1_33, tpro_33 );
      Com_Multi( tpro_33, pro3V23, pro_33 );
      Com_Multi( pro0_4, pro1_41, tpro_41 );
      Com_Multi( tpro_41, pro4V12, pro_41 );
      Com_Multi( pro0_4, pro1_42, tpro_42 );
      Com_Multi( tpro_42, pro4V13, pro_42 );
      Com_Multi( pro0_4, pro1_43, tpro_43 );
      Com_Multi( tpro_43, pro4V23, pro_43 );
      amp_tmp1[0] =
          ( temp_PDF11 * pro_11[0] + temp_PDF12 * pro_12[0] + temp_PDF13 * pro_13[0] );
      amp_tmp1[1] =
          ( temp_PDF11 * pro_11[1] + temp_PDF12 * pro_12[1] + temp_PDF13 * pro_13[1] );
      amp_tmp2[0] =
          ( temp_PDF21 * pro_21[0] + temp_PDF22 * pro_22[0] + temp_PDF23 * pro_23[0] );
      amp_tmp2[1] =
          ( temp_PDF21 * pro_21[1] + temp_PDF22 * pro_22[1] + temp_PDF23 * pro_23[1] );
      amp_tmp3[0] =
          ( temp_PDF31 * pro_31[0] + temp_PDF32 * pro_32[0] + temp_PDF33 * pro_33[0] );
      amp_tmp3[1] =
          ( temp_PDF31 * pro_31[1] + temp_PDF32 * pro_32[1] + temp_PDF33 * pro_33[1] );
      amp_tmp4[0] =
          ( temp_PDF41 * pro_41[0] + temp_PDF42 * pro_42[0] + temp_PDF43 * pro_43[0] );
      amp_tmp4[1] =
          ( temp_PDF41 * pro_41[1] + temp_PDF42 * pro_42[1] + temp_PDF43 * pro_43[1] );
    }
    else if ( modetype[i] == 8 )
    {
      if ( g2[i] == 0 )
      {
 
        if ( B1_phi11 == -1 )
        {
          B1_phi11 = BarrierN( 1, sphi1, srho11, sPim, rRes2, mass1[i] );
          B1_phi12 = BarrierN( 1, sphi1, srho12, sPi01, rRes2, mass1[i] );
          B1_phi13 = BarrierN( 1, sphi1, srho13, sPip1, rRes2, mass1[i] );
          B1_phi21 = BarrierN( 1, sphi2, srho21, sPim, rRes2, mass1[i] );
          B1_phi22 = BarrierN( 1, sphi2, srho22, sPi02, rRes2, mass1[i] );
          B1_phi23 = BarrierN( 1, sphi2, srho23, sPip1, rRes2, mass1[i] );
          B1_phi31 = BarrierN( 1, sphi3, srho31, sPim, rRes2, mass1[i] );
          B1_phi32 = BarrierN( 1, sphi3, srho32, sPi01, rRes2, mass1[i] );
          B1_phi33 = BarrierN( 1, sphi3, srho33, sPip2, rRes2, mass1[i] );
          B1_phi41 = BarrierN( 1, sphi4, srho41, sPim, rRes2, mass1[i] );
          B1_phi42 = BarrierN( 1, sphi4, srho42, sPi02, rRes2, mass1[i] );
          B1_phi43 = BarrierN( 1, sphi4, srho43, sPip2, rRes2, mass1[i] );
        }
        if ( B1_rho1 == -1 )
        {
          B1_rho1 = BarrierN( 1, srho1, sPip2, sPi02, rRes2, mass2[i] );
          B1_rho2 = BarrierN( 1, srho2, sPip2, sPi01, rRes2, mass2[i] );
          B1_rho3 = BarrierN( 1, srho3, sPip1, sPi02, rRes2, mass2[i] );
          B1_rho4 = BarrierN( 1, srho4, sPip1, sPi01, rRes2, mass2[i] );
        }
        calt1( Pip2, Pi02, t1rho1 );
        calt1( Pip2, Pi01, t1rho2 );
        calt1( Pip1, Pi02, t1rho3 );
        calt1( Pip1, Pi01, t1rho4 );
        calt1( prho11, Pim, t1phi11 );
        calt1( prho12, Pi01, t1phi12 );
        calt1( prho13, Pip1, t1phi13 );
        calt1( prho21, Pim, t1phi21 );
        calt1( prho22, Pi02, t1phi22 );
        calt1( prho23, Pip1, t1phi23 );
        calt1( prho31, Pim, t1phi31 );
        calt1( prho32, Pi01, t1phi32 );
        calt1( prho33, Pip2, t1phi33 );
        calt1( prho41, Pim, t1phi41 );
        calt1( prho42, Pi02, t1phi42 );
        calt1( prho43, Pip2, t1phi43 );
        calt1( Pip1, Pi01, t1rho11 );
        calt1( Pip1, Pim, t1rho12 );
        calt1( Pi01, Pim, t1rho13 );
        calt1( Pip1, Pi02, t1rho21 );
        calt1( Pip1, Pim, t1rho22 );
        calt1( Pi02, Pim, t1rho23 );
        calt1( Pip2, Pi01, t1rho31 );
        calt1( Pip2, Pim, t1rho32 );
        calt1( Pi01, Pim, t1rho33 );
        calt1( Pip2, Pi02, t1rho41 );
        calt1( Pip2, Pim, t1rho42 );
        calt1( Pi02, Pim, t1rho43 );
        calG2( prho11, Pim, p1phi11 );
        calG2( prho12, Pi01, p1phi12 );
        calG2( prho13, Pip1, p1phi13 );
        calG2( prho21, Pim, p1phi21 );
        calG2( prho22, Pi02, p1phi22 );
        calG2( prho23, Pip1, p1phi23 );
        calG2( prho31, Pim, p1phi31 );
        calG2( prho32, Pi01, p1phi32 );
        calG2( prho33, Pip2, p1phi33 );
        calG2( prho41, Pim, p1phi41 );
        calG2( prho42, Pi02, p1phi42 );
        calG2( prho43, Pip2, p1phi43 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempphi1 = pphi1[j] * G[j][j] * G[i][i];
            double tempphi2 = pphi2[j] * G[j][j] * G[i][i];
            double tempphi3 = pphi3[j] * G[j][j] * G[i][i];
            double tempphi4 = pphi4[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1phi11 = t1phi11[k] * G[k][k];
              double temt1phi12 = t1phi12[k] * G[k][k];
              double temt1phi13 = t1phi13[k] * G[k][k];
              double temt1phi21 = t1phi21[k] * G[k][k];
              double temt1phi22 = t1phi22[k] * G[k][k];
              double temt1phi23 = t1phi23[k] * G[k][k];
              double temt1phi31 = t1phi31[k] * G[k][k];
              double temt1phi32 = t1phi32[k] * G[k][k];
              double temt1phi33 = t1phi33[k] * G[k][k];
              double temt1phi41 = t1phi41[k] * G[k][k];
              double temt1phi42 = t1phi42[k] * G[k][k];
              double temt1phi43 = t1phi43[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho11 = t1rho11[l] * G[l][l] * E[i][j][k][l];
                double temt1rho12 = t1rho12[l] * G[l][l] * E[i][j][k][l];
                double temt1rho13 = t1rho13[l] * G[l][l] * E[i][j][k][l];
                double temt1rho21 = t1rho21[l] * G[l][l] * E[i][j][k][l];
                double temt1rho22 = t1rho22[l] * G[l][l] * E[i][j][k][l];
                double temt1rho23 = t1rho23[l] * G[l][l] * E[i][j][k][l];
                double temt1rho31 = t1rho31[l] * G[l][l] * E[i][j][k][l];
                double temt1rho32 = t1rho32[l] * G[l][l] * E[i][j][k][l];
                double temt1rho33 = t1rho33[l] * G[l][l] * E[i][j][k][l];
                double temt1rho41 = t1rho41[l] * G[l][l] * E[i][j][k][l];
                double temt1rho42 = t1rho42[l] * G[l][l] * E[i][j][k][l];
                double temt1rho43 = t1rho43[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  if ( ( i == j ) || ( i == k ) || ( i == l ) || ( j == k ) || ( j == l ) ||
                       ( k == l ) )
                    continue;
                  temp_PDF11 +=
                      G[m][m] * t1rho1[m] * p1phi11[m][i] * tempphi1 * temt1phi11 * temt1rho11;
                  temp_PDF12 +=
                      G[m][m] * t1rho1[m] * p1phi12[m][i] * tempphi1 * temt1phi12 * temt1rho12;
                  temp_PDF13 +=
                      G[m][m] * t1rho1[m] * p1phi13[m][i] * tempphi1 * temt1phi13 * temt1rho13;
                  temp_PDF21 +=
                      G[m][m] * t1rho2[m] * p1phi21[m][i] * tempphi2 * temt1phi21 * temt1rho21;
                  temp_PDF22 +=
                      G[m][m] * t1rho2[m] * p1phi22[m][i] * tempphi2 * temt1phi22 * temt1rho22;
                  temp_PDF23 +=
                      G[m][m] * t1rho2[m] * p1phi23[m][i] * tempphi2 * temt1phi23 * temt1rho23;
                  temp_PDF31 +=
                      G[m][m] * t1rho3[m] * p1phi31[m][i] * tempphi3 * temt1phi31 * temt1rho31;
                  temp_PDF32 +=
                      G[m][m] * t1rho3[m] * p1phi32[m][i] * tempphi3 * temt1phi32 * temt1rho32;
                  temp_PDF33 +=
                      G[m][m] * t1rho3[m] * p1phi33[m][i] * tempphi3 * temt1phi33 * temt1rho33;
                  temp_PDF41 +=
                      G[m][m] * t1rho4[m] * p1phi41[m][i] * tempphi4 * temt1phi41 * temt1rho41;
                  temp_PDF42 +=
                      G[m][m] * t1rho4[m] * p1phi42[m][i] * tempphi4 * temt1phi42 * temt1rho42;
                  temp_PDF43 +=
                      G[m][m] * t1rho4[m] * p1phi43[m][i] * tempphi4 * temt1phi43 * temt1rho43;
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_phi11 * B1_rho1 * B1_1V12;
        temp_PDF12 = temp_PDF12 * B1_phi12 * B1_rho1 * B1_1V13;
        temp_PDF13 = temp_PDF13 * B1_phi13 * B1_rho1 * B1_1V23;
        temp_PDF21 = temp_PDF21 * B1_phi21 * B1_rho2 * B1_2V12;
        temp_PDF22 = temp_PDF22 * B1_phi22 * B1_rho2 * B1_2V13;
        temp_PDF23 = temp_PDF23 * B1_phi23 * B1_rho2 * B1_2V23;
        temp_PDF31 = temp_PDF31 * B1_phi31 * B1_rho3 * B1_3V12;
        temp_PDF32 = temp_PDF32 * B1_phi32 * B1_rho3 * B1_3V13;
        temp_PDF33 = temp_PDF33 * B1_phi33 * B1_rho3 * B1_3V23;
        temp_PDF41 = temp_PDF41 * B1_phi41 * B1_rho4 * B1_4V12;
        temp_PDF42 = temp_PDF42 * B1_phi42 * B1_rho4 * B1_4V13;
        temp_PDF43 = temp_PDF43 * B1_phi43 * B1_rho4 * B1_4V23;
      }
      else if ( g2[i] == 1 )
      {
 
        if ( B1_phi11 == -1 )
        {
          B1_phi11 = BarrierN( 1, sphi1, srho11, sPim, rRes2, mass1[i] );
          B1_phi12 = BarrierN( 1, sphi1, srho12, sPi01, rRes2, mass1[i] );
          B1_phi13 = BarrierN( 1, sphi1, srho13, sPip1, rRes2, mass1[i] );
          B1_phi21 = BarrierN( 1, sphi2, srho21, sPim, rRes2, mass1[i] );
          B1_phi22 = BarrierN( 1, sphi2, srho22, sPi02, rRes2, mass1[i] );
          B1_phi23 = BarrierN( 1, sphi2, srho23, sPip1, rRes2, mass1[i] );
          B1_phi31 = BarrierN( 1, sphi3, srho31, sPim, rRes2, mass1[i] );
          B1_phi32 = BarrierN( 1, sphi3, srho32, sPi01, rRes2, mass1[i] );
          B1_phi33 = BarrierN( 1, sphi3, srho33, sPip2, rRes2, mass1[i] );
          B1_phi41 = BarrierN( 1, sphi4, srho41, sPim, rRes2, mass1[i] );
          B1_phi42 = BarrierN( 1, sphi4, srho42, sPi02, rRes2, mass1[i] );
          B1_phi43 = BarrierN( 1, sphi4, srho43, sPip2, rRes2, mass1[i] );
        }
        if ( B1_rho1 == -1 )
        {
          B1_rho1 = BarrierN( 1, srho1, sPip2, sPi02, rRes2, mass2[i] );
          B1_rho2 = BarrierN( 1, srho2, sPip2, sPi01, rRes2, mass2[i] );
          B1_rho3 = BarrierN( 1, srho3, sPip1, sPi02, rRes2, mass2[i] );
          B1_rho4 = BarrierN( 1, srho4, sPip1, sPi01, rRes2, mass2[i] );
        }
        if ( B1_Ds_phi1 == -1 )
        {
          B1_Ds_phi1 = BarrierN( 1, sDs, sphi1, srho1, rDs2, mDsM );
          B1_Ds_phi2 = BarrierN( 1, sDs, sphi2, srho2, rDs2, mDsM );
          B1_Ds_phi3 = BarrierN( 1, sDs, sphi3, srho3, rDs2, mDsM );
          B1_Ds_phi4 = BarrierN( 1, sDs, sphi4, srho4, rDs2, mDsM );
        }
        calt1( Pip2, Pi02, t1rho1 );
        calt1( Pip2, Pi01, t1rho2 );
        calt1( Pip1, Pi02, t1rho3 );
        calt1( Pip1, Pi01, t1rho4 );
        calt1( prho11, Pim, t1phi11 );
        calt1( prho12, Pi01, t1phi12 );
        calt1( prho13, Pip1, t1phi13 );
        calt1( prho21, Pim, t1phi21 );
        calt1( prho22, Pi02, t1phi22 );
        calt1( prho23, Pip1, t1phi23 );
        calt1( prho31, Pim, t1phi31 );
        calt1( prho32, Pi01, t1phi32 );
        calt1( prho33, Pip2, t1phi33 );
        calt1( prho41, Pim, t1phi41 );
        calt1( prho42, Pi02, t1phi42 );
        calt1( prho43, Pip2, t1phi43 );
        calt1( Pip1, Pi01, t1rho11 );
        calt1( Pip1, Pim, t1rho12 );
        calt1( Pi01, Pim, t1rho13 );
        calt1( Pip1, Pi02, t1rho21 );
        calt1( Pip1, Pim, t1rho22 );
        calt1( Pi02, Pim, t1rho23 );
        calt1( Pip2, Pi01, t1rho31 );
        calt1( Pip2, Pim, t1rho32 );
        calt1( Pi01, Pim, t1rho33 );
        calt1( Pip2, Pi02, t1rho41 );
        calt1( Pip2, Pim, t1rho42 );
        calt1( Pi02, Pim, t1rho43 );
        calG2( prho11, Pim, p1phi11 );
        calG2( prho12, Pi01, p1phi12 );
        calG2( prho13, Pip1, p1phi13 );
        calG2( prho21, Pim, p1phi21 );
        calG2( prho22, Pi02, p1phi22 );
        calG2( prho23, Pip1, p1phi23 );
        calG2( prho31, Pim, p1phi31 );
        calG2( prho32, Pi01, p1phi32 );
        calG2( prho33, Pip2, p1phi33 );
        calG2( prho41, Pim, p1phi41 );
        calG2( prho42, Pi02, p1phi42 );
        calG2( prho43, Pip2, p1phi43 );
        calt1( pphi1, prho1, t1Ds_phi1 );
        calt1( pphi2, prho2, t1Ds_phi2 );
        calt1( pphi3, prho3, t1Ds_phi3 );
        calt1( pphi4, prho4, t1Ds_phi4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tempDs = pDs[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double temt1rho1 = t1rho1[j] * G[j][j];
            double temt1rho2 = t1rho2[j] * G[j][j];
            double temt1rho3 = t1rho3[j] * G[j][j];
            double temt1rho4 = t1rho4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1Ds_phi1 = t1Ds_phi1[k] * G[k][k];
              double temt1Ds_phi2 = t1Ds_phi2[k] * G[k][k];
              double temt1Ds_phi3 = t1Ds_phi3[k] * G[k][k];
              double temt1Ds_phi4 = t1Ds_phi4[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                for ( int m = 0; m < 4; m++ )
                {
                  double temp1phi11 = p1phi11[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phi12 = p1phi12[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phi13 = p1phi13[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phi21 = p1phi21[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phi22 = p1phi22[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phi23 = p1phi23[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phi31 = p1phi31[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phi32 = p1phi32[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phi33 = p1phi33[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phi41 = p1phi41[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phi42 = p1phi42[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phi43 = p1phi43[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
 
                  for ( int n = 0; n < 4; n++ )
                  {
                    double tempphi1 = pphi1[n] * G[n][n];
                    double tempphi2 = pphi2[n] * G[n][n];
                    double tempphi3 = pphi3[n] * G[n][n];
                    double tempphi4 = pphi4[n] * G[n][n];
 
                    for ( int p = 0; p < 4; p++ )
                    {
                      double temt1phi11 = t1phi11[p] * G[p][p];
                      double temt1phi12 = t1phi12[p] * G[p][p];
                      double temt1phi13 = t1phi13[p] * G[p][p];
                      double temt1phi21 = t1phi21[p] * G[p][p];
                      double temt1phi22 = t1phi22[p] * G[p][p];
                      double temt1phi23 = t1phi23[p] * G[p][p];
                      double temt1phi31 = t1phi31[p] * G[p][p];
                      double temt1phi32 = t1phi32[p] * G[p][p];
                      double temt1phi33 = t1phi33[p] * G[p][p];
                      double temt1phi41 = t1phi41[p] * G[p][p];
                      double temt1phi42 = t1phi42[p] * G[p][p];
                      double temt1phi43 = t1phi43[p] * G[p][p];
 
                      for ( int q = 0; q < 4; q++ )
                      {
                        if ( ( i == j ) || ( i == k ) || ( i == l ) || ( j == k ) ||
                             ( j == l ) || ( k == l ) )
                          continue;
                        if ( ( m == n ) || ( m == p ) || ( m == q ) || ( n == p ) ||
                             ( n == q ) || ( p == q ) )
                          continue;
                        temp_PDF11 += tempDs * temt1rho1 * temt1Ds_phi1 * temp1phi11 *
                                      E[m][n][p][q] * tempphi1 * temt1phi11 * t1rho11[q] *
                                      G[q][q];
                        temp_PDF12 += tempDs * temt1rho1 * temt1Ds_phi1 * temp1phi12 *
                                      E[m][n][p][q] * tempphi1 * temt1phi12 * t1rho12[q] *
                                      G[q][q];
                        temp_PDF13 += tempDs * temt1rho1 * temt1Ds_phi1 * temp1phi13 *
                                      E[m][n][p][q] * tempphi1 * temt1phi13 * t1rho13[q] *
                                      G[q][q];
                        temp_PDF21 += tempDs * temt1rho2 * temt1Ds_phi2 * temp1phi21 *
                                      E[m][n][p][q] * tempphi2 * temt1phi21 * t1rho21[q] *
                                      G[q][q];
                        temp_PDF22 += tempDs * temt1rho2 * temt1Ds_phi2 * temp1phi22 *
                                      E[m][n][p][q] * tempphi2 * temt1phi22 * t1rho22[q] *
                                      G[q][q];
                        temp_PDF23 += tempDs * temt1rho2 * temt1Ds_phi2 * temp1phi23 *
                                      E[m][n][p][q] * tempphi2 * temt1phi23 * t1rho23[q] *
                                      G[q][q];
                        temp_PDF31 += tempDs * temt1rho3 * temt1Ds_phi3 * temp1phi31 *
                                      E[m][n][p][q] * tempphi3 * temt1phi31 * t1rho31[q] *
                                      G[q][q];
                        temp_PDF32 += tempDs * temt1rho3 * temt1Ds_phi3 * temp1phi32 *
                                      E[m][n][p][q] * tempphi3 * temt1phi32 * t1rho32[q] *
                                      G[q][q];
                        temp_PDF33 += tempDs * temt1rho3 * temt1Ds_phi3 * temp1phi33 *
                                      E[m][n][p][q] * tempphi3 * temt1phi33 * t1rho33[q] *
                                      G[q][q];
                        temp_PDF41 += tempDs * temt1rho4 * temt1Ds_phi4 * temp1phi41 *
                                      E[m][n][p][q] * tempphi4 * temt1phi41 * t1rho41[q] *
                                      G[q][q];
                        temp_PDF42 += tempDs * temt1rho4 * temt1Ds_phi4 * temp1phi42 *
                                      E[m][n][p][q] * tempphi4 * temt1phi42 * t1rho42[q] *
                                      G[q][q];
                        temp_PDF43 += tempDs * temt1rho4 * temt1Ds_phi4 * temp1phi43 *
                                      E[m][n][p][q] * tempphi4 * temt1phi43 * t1rho43[q] *
                                      G[q][q];
                      }
                    }
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_Ds_phi1 * B1_phi11 * B1_rho1 * B1_1V12;
        temp_PDF12 = temp_PDF12 * B1_Ds_phi1 * B1_phi12 * B1_rho1 * B1_1V13;
        temp_PDF13 = temp_PDF13 * B1_Ds_phi1 * B1_phi13 * B1_rho1 * B1_1V23;
        temp_PDF21 = temp_PDF21 * B1_Ds_phi2 * B1_phi21 * B1_rho2 * B1_2V12;
        temp_PDF22 = temp_PDF22 * B1_Ds_phi2 * B1_phi22 * B1_rho2 * B1_2V13;
        temp_PDF23 = temp_PDF23 * B1_Ds_phi2 * B1_phi23 * B1_rho2 * B1_2V23;
        temp_PDF31 = temp_PDF31 * B1_Ds_phi3 * B1_phi31 * B1_rho3 * B1_3V12;
        temp_PDF32 = temp_PDF32 * B1_Ds_phi3 * B1_phi32 * B1_rho3 * B1_3V13;
        temp_PDF33 = temp_PDF33 * B1_Ds_phi3 * B1_phi33 * B1_rho3 * B1_3V23;
        temp_PDF41 = temp_PDF41 * B1_Ds_phi4 * B1_phi41 * B1_rho4 * B1_4V12;
        temp_PDF42 = temp_PDF42 * B1_Ds_phi4 * B1_phi42 * B1_rho4 * B1_4V13;
        temp_PDF43 = temp_PDF43 * B1_Ds_phi4 * B1_phi43 * B1_rho4 * B1_4V23;
      }
      else if ( g2[i] == 2 )
      {
 
        if ( B1_phi11 == -1 )
        {
          B1_phi11 = BarrierN( 1, sphi1, srho11, sPim, rRes2, mass1[i] );
          B1_phi12 = BarrierN( 1, sphi1, srho12, sPi01, rRes2, mass1[i] );
          B1_phi13 = BarrierN( 1, sphi1, srho13, sPip1, rRes2, mass1[i] );
          B1_phi21 = BarrierN( 1, sphi2, srho21, sPim, rRes2, mass1[i] );
          B1_phi22 = BarrierN( 1, sphi2, srho22, sPi02, rRes2, mass1[i] );
          B1_phi23 = BarrierN( 1, sphi2, srho23, sPip1, rRes2, mass1[i] );
          B1_phi31 = BarrierN( 1, sphi3, srho31, sPim, rRes2, mass1[i] );
          B1_phi32 = BarrierN( 1, sphi3, srho32, sPi01, rRes2, mass1[i] );
          B1_phi33 = BarrierN( 1, sphi3, srho33, sPip2, rRes2, mass1[i] );
          B1_phi41 = BarrierN( 1, sphi4, srho41, sPim, rRes2, mass1[i] );
          B1_phi42 = BarrierN( 1, sphi4, srho42, sPi02, rRes2, mass1[i] );
          B1_phi43 = BarrierN( 1, sphi4, srho43, sPip2, rRes2, mass1[i] );
        }
        if ( B1_rho1 == -1 )
        {
          B1_rho1 = BarrierN( 1, srho1, sPip2, sPi02, rRes2, mass2[i] );
          B1_rho2 = BarrierN( 1, srho2, sPip2, sPi01, rRes2, mass2[i] );
          B1_rho3 = BarrierN( 1, srho3, sPip1, sPi02, rRes2, mass2[i] );
          B1_rho4 = BarrierN( 1, srho4, sPip1, sPi01, rRes2, mass2[i] );
        }
        if ( B2_Ds_phi1 == -1 )
        {
          B2_Ds_phi1 = BarrierN( 2, sDs, sphi1, srho1, rDs2, mDsM );
          B2_Ds_phi2 = BarrierN( 2, sDs, sphi2, srho2, rDs2, mDsM );
          B2_Ds_phi3 = BarrierN( 2, sDs, sphi3, srho3, rDs2, mDsM );
          B2_Ds_phi4 = BarrierN( 2, sDs, sphi4, srho4, rDs2, mDsM );
        }
 
        calt1( Pip2, Pi02, t1rho1 );
        calt1( Pip2, Pi01, t1rho2 );
        calt1( Pip1, Pi02, t1rho3 );
        calt1( Pip1, Pi01, t1rho4 );
        calt1( prho11, Pim, t1phi11 );
        calt1( prho12, Pi01, t1phi12 );
        calt1( prho13, Pip1, t1phi13 );
        calt1( prho21, Pim, t1phi21 );
        calt1( prho22, Pi02, t1phi22 );
        calt1( prho23, Pip1, t1phi23 );
        calt1( prho31, Pim, t1phi31 );
        calt1( prho32, Pi01, t1phi32 );
        calt1( prho33, Pip2, t1phi33 );
        calt1( prho41, Pim, t1phi41 );
        calt1( prho42, Pi02, t1phi42 );
        calt1( prho43, Pip2, t1phi43 );
        calt1( Pip1, Pi01, t1rho11 );
        calt1( Pip1, Pim, t1rho12 );
        calt1( Pi01, Pim, t1rho13 );
        calt1( Pip1, Pi02, t1rho21 );
        calt1( Pip1, Pim, t1rho22 );
        calt1( Pi02, Pim, t1rho23 );
        calt1( Pip2, Pi01, t1rho31 );
        calt1( Pip2, Pim, t1rho32 );
        calt1( Pi01, Pim, t1rho33 );
        calt1( Pip2, Pi02, t1rho41 );
        calt1( Pip2, Pim, t1rho42 );
        calt1( Pi02, Pim, t1rho43 );
        calG2( prho11, Pim, p1phi11 );
        calG2( prho12, Pi01, p1phi12 );
        calG2( prho13, Pip1, p1phi13 );
        calG2( prho21, Pim, p1phi21 );
        calG2( prho22, Pi02, p1phi22 );
        calG2( prho23, Pip1, p1phi23 );
        calG2( prho31, Pim, p1phi31 );
        calG2( prho32, Pi01, p1phi32 );
        calG2( prho33, Pip2, p1phi33 );
        calG2( prho41, Pim, p1phi41 );
        calG2( prho42, Pi02, p1phi42 );
        calG2( prho43, Pip2, p1phi43 );
        calt2( pphi1, prho1, t2Ds_phi1 );
        calt2( pphi2, prho2, t2Ds_phi2 );
        calt2( pphi3, prho3, t2Ds_phi3 );
        calt2( pphi4, prho4, t2Ds_phi4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempphi1 = pphi1[j] * G[j][j] * G[i][i];
            double tempphi2 = pphi2[j] * G[j][j] * G[i][i];
            double tempphi3 = pphi3[j] * G[j][j] * G[i][i];
            double tempphi4 = pphi4[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1phi11 = t1phi11[k] * G[k][k];
              double temt1phi12 = t1phi12[k] * G[k][k];
              double temt1phi13 = t1phi13[k] * G[k][k];
              double temt1phi21 = t1phi21[k] * G[k][k];
              double temt1phi22 = t1phi22[k] * G[k][k];
              double temt1phi23 = t1phi23[k] * G[k][k];
              double temt1phi31 = t1phi31[k] * G[k][k];
              double temt1phi32 = t1phi32[k] * G[k][k];
              double temt1phi33 = t1phi33[k] * G[k][k];
              double temt1phi41 = t1phi41[k] * G[k][k];
              double temt1phi42 = t1phi42[k] * G[k][k];
              double temt1phi43 = t1phi43[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho11 = t1rho11[l] * G[l][l];
                double temt1rho12 = t1rho12[l] * G[l][l];
                double temt1rho13 = t1rho13[l] * G[l][l];
                double temt1rho21 = t1rho21[l] * G[l][l];
                double temt1rho22 = t1rho22[l] * G[l][l];
                double temt1rho23 = t1rho23[l] * G[l][l];
                double temt1rho31 = t1rho31[l] * G[l][l];
                double temt1rho32 = t1rho32[l] * G[l][l];
                double temt1rho33 = t1rho33[l] * G[l][l];
                double temt1rho41 = t1rho41[l] * G[l][l];
                double temt1rho42 = t1rho42[l] * G[l][l];
                double temt1rho43 = t1rho43[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temt1rho1 = t1rho1[m] * G[m][m];
                  double temt1rho2 = t1rho2[m] * G[m][m];
                  double temt1rho3 = t1rho3[m] * G[m][m];
                  double temt1rho4 = t1rho4[m] * G[m][m];
 
                  for ( int n = 0; n < 4; n++ )
                  {
                    if ( ( i == j ) || ( i == k ) || ( i == l ) || ( j == k ) || ( j == l ) ||
                         ( k == l ) )
                      continue;
                    temp_PDF11 += t2Ds_phi1[m][n] * temt1rho1 * p1phi11[n][i] * E[i][j][k][l] *
                                  tempphi1 * temt1phi11 * temt1rho11 * G[n][n];
                    temp_PDF12 += t2Ds_phi1[m][n] * temt1rho1 * p1phi12[n][i] * E[i][j][k][l] *
                                  tempphi1 * temt1phi12 * temt1rho12 * G[n][n];
                    temp_PDF13 += t2Ds_phi1[m][n] * temt1rho1 * p1phi13[n][i] * E[i][j][k][l] *
                                  tempphi1 * temt1phi13 * temt1rho13 * G[n][n];
                    temp_PDF21 += t2Ds_phi2[m][n] * temt1rho2 * p1phi21[n][i] * E[i][j][k][l] *
                                  tempphi2 * temt1phi21 * temt1rho21 * G[n][n];
                    temp_PDF22 += t2Ds_phi2[m][n] * temt1rho2 * p1phi22[n][i] * E[i][j][k][l] *
                                  tempphi2 * temt1phi22 * temt1rho22 * G[n][n];
                    temp_PDF23 += t2Ds_phi2[m][n] * temt1rho2 * p1phi23[n][i] * E[i][j][k][l] *
                                  tempphi2 * temt1phi23 * temt1rho23 * G[n][n];
                    temp_PDF31 += t2Ds_phi3[m][n] * temt1rho3 * p1phi31[n][i] * E[i][j][k][l] *
                                  tempphi3 * temt1phi31 * temt1rho31 * G[n][n];
                    temp_PDF32 += t2Ds_phi3[m][n] * temt1rho3 * p1phi32[n][i] * E[i][j][k][l] *
                                  tempphi3 * temt1phi32 * temt1rho32 * G[n][n];
                    temp_PDF33 += t2Ds_phi3[m][n] * temt1rho3 * p1phi33[n][i] * E[i][j][k][l] *
                                  tempphi3 * temt1phi33 * temt1rho33 * G[n][n];
                    temp_PDF41 += t2Ds_phi4[m][n] * temt1rho4 * p1phi41[n][i] * E[i][j][k][l] *
                                  tempphi4 * temt1phi41 * temt1rho41 * G[n][n];
                    temp_PDF42 += t2Ds_phi4[m][n] * temt1rho4 * p1phi42[n][i] * E[i][j][k][l] *
                                  tempphi4 * temt1phi42 * temt1rho42 * G[n][n];
                    temp_PDF43 += t2Ds_phi4[m][n] * temt1rho4 * p1phi43[n][i] * E[i][j][k][l] *
                                  tempphi4 * temt1phi43 * temt1rho43 * G[n][n];
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B2_Ds_phi1 * B1_phi11 * B1_rho1 * B1_1V12;
        temp_PDF12 = temp_PDF12 * B2_Ds_phi1 * B1_phi12 * B1_rho1 * B1_1V13;
        temp_PDF13 = temp_PDF13 * B2_Ds_phi1 * B1_phi13 * B1_rho1 * B1_1V23;
        temp_PDF21 = temp_PDF21 * B2_Ds_phi2 * B1_phi21 * B1_rho2 * B1_2V12;
        temp_PDF22 = temp_PDF22 * B2_Ds_phi2 * B1_phi22 * B1_rho2 * B1_2V13;
        temp_PDF23 = temp_PDF23 * B2_Ds_phi2 * B1_phi23 * B1_rho2 * B1_2V23;
        temp_PDF31 = temp_PDF31 * B2_Ds_phi3 * B1_phi31 * B1_rho3 * B1_3V12;
        temp_PDF32 = temp_PDF32 * B2_Ds_phi3 * B1_phi32 * B1_rho3 * B1_3V13;
        temp_PDF33 = temp_PDF33 * B2_Ds_phi3 * B1_phi33 * B1_rho3 * B1_3V23;
        temp_PDF41 = temp_PDF41 * B2_Ds_phi4 * B1_phi41 * B1_rho4 * B1_4V12;
        temp_PDF42 = temp_PDF42 * B2_Ds_phi4 * B1_phi42 * B1_rho4 * B1_4V13;
        temp_PDF43 = temp_PDF43 * B2_Ds_phi4 * B1_phi43 * B1_rho4 * B1_4V23;
      }
      if ( g0[i] == 1 )
      {
        propagator( mass1sq, mass1[i], width1[i], sphi1, pro0_11 );
        propagator( mass1sq, mass1[i], width1[i], sphi1, pro0_12 );
        propagator( mass1sq, mass1[i], width1[i], sphi1, pro0_13 );
        propagator( mass1sq, mass1[i], width1[i], sphi2, pro0_21 );
        propagator( mass1sq, mass1[i], width1[i], sphi2, pro0_22 );
        propagator( mass1sq, mass1[i], width1[i], sphi2, pro0_23 );
        propagator( mass1sq, mass1[i], width1[i], sphi3, pro0_31 );
        propagator( mass1sq, mass1[i], width1[i], sphi3, pro0_32 );
        propagator( mass1sq, mass1[i], width1[i], sphi3, pro0_33 );
        propagator( mass1sq, mass1[i], width1[i], sphi4, pro0_41 );
        propagator( mass1sq, mass1[i], width1[i], sphi4, pro0_42 );
        propagator( mass1sq, mass1[i], width1[i], sphi4, pro0_43 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_11[0] = 1;
        pro0_11[1] = 0;
        pro0_12[0] = 1;
        pro0_12[1] = 0;
        pro0_13[0] = 1;
        pro0_13[1] = 0;
        pro0_21[0] = 1;
        pro0_21[1] = 0;
        pro0_22[0] = 1;
        pro0_22[1] = 0;
        pro0_23[0] = 1;
        pro0_23[1] = 0;
        pro0_31[0] = 1;
        pro0_31[1] = 0;
        pro0_32[0] = 1;
        pro0_32[1] = 0;
        pro0_33[0] = 1;
        pro0_33[1] = 0;
        pro0_41[0] = 1;
        pro0_41[1] = 0;
        pro0_42[0] = 1;
        pro0_42[1] = 0;
        pro0_43[0] = 1;
        pro0_43[1] = 0;
      }
      if ( g1[i] == 1 )
      {
 
        propagatorGS( mass2sq, mass2[i], width2[i], srho1, sPip2, sPi02, rRes2, pro1_1 );
        propagatorGS( mass2sq, mass2[i], width2[i], srho2, sPip2, sPi01, rRes2, pro1_2 );
        propagatorGS( mass2sq, mass2[i], width2[i], srho3, sPip1, sPi02, rRes2, pro1_3 );
        propagatorGS( mass2sq, mass2[i], width2[i], srho4, sPip1, sPi01, rRes2, pro1_4 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
        pro1_3[0] = 1;
        pro1_3[1] = 0;
        pro1_4[0] = 1;
        pro1_4[1] = 0;
      }
      Com_Multi( pro0_11, pro1V12, tpro_11 );
      Com_Multi( tpro_11, pro1_1, pro_11 );
      Com_Multi( pro0_12, pro1V13, tpro_12 );
      Com_Multi( tpro_12, pro1_1, pro_12 );
      Com_Multi( pro0_13, pro1V23, tpro_13 );
      Com_Multi( tpro_13, pro1_1, pro_13 );
      Com_Multi( pro0_21, pro2V12, tpro_21 );
      Com_Multi( tpro_21, pro1_2, pro_21 );
      Com_Multi( pro0_22, pro2V13, tpro_22 );
      Com_Multi( tpro_22, pro1_2, pro_22 );
      Com_Multi( pro0_23, pro2V23, tpro_23 );
      Com_Multi( tpro_23, pro1_2, pro_23 );
      Com_Multi( pro0_31, pro3V12, tpro_31 );
      Com_Multi( tpro_31, pro1_3, pro_31 );
      Com_Multi( pro0_32, pro3V13, tpro_32 );
      Com_Multi( tpro_32, pro1_3, pro_32 );
      Com_Multi( pro0_33, pro3V23, tpro_33 );
      Com_Multi( tpro_33, pro1_3, pro_33 );
      Com_Multi( pro0_41, pro4V12, tpro_41 );
      Com_Multi( tpro_41, pro1_4, pro_41 );
      Com_Multi( pro0_42, pro4V13, tpro_42 );
      Com_Multi( tpro_42, pro1_4, pro_42 );
      Com_Multi( pro0_43, pro4V23, tpro_43 );
      Com_Multi( tpro_43, pro1_4, pro_43 );
      amp_tmp1[0] = temp_PDF11 * pro_11[0] - temp_PDF12 * pro_12[0] + temp_PDF13 * pro_13[0];
      amp_tmp1[1] = temp_PDF11 * pro_11[1] - temp_PDF12 * pro_12[1] + temp_PDF13 * pro_13[1];
      amp_tmp2[0] = temp_PDF21 * pro_21[0] - temp_PDF22 * pro_22[0] + temp_PDF23 * pro_23[0];
      amp_tmp2[1] = temp_PDF21 * pro_21[1] - temp_PDF22 * pro_22[1] + temp_PDF23 * pro_23[1];
      amp_tmp3[0] = temp_PDF31 * pro_31[0] - temp_PDF32 * pro_32[0] + temp_PDF33 * pro_33[0];
      amp_tmp3[1] = temp_PDF31 * pro_31[1] - temp_PDF32 * pro_32[1] + temp_PDF33 * pro_33[1];
      amp_tmp4[0] = temp_PDF41 * pro_41[0] - temp_PDF42 * pro_42[0] + temp_PDF43 * pro_43[0];
      amp_tmp4[1] = temp_PDF41 * pro_41[1] - temp_PDF42 * pro_42[1] + temp_PDF43 * pro_43[1];
    }
    else if ( modetype[i] == 11 )
    {
      if ( g2[i] == 1 )
      {
        if ( B1_Ds_rho1450p1 == -1 )
        {
          B1_Ds_rho1450p1 = BarrierN( 1, sDs, srho1450p1, sPi02, rDs2, mDsM );
          B1_Ds_rho1450p2 = BarrierN( 1, sDs, srho1450p2, sPi01, rDs2, mDsM );
          B1_Ds_rho1450p3 = BarrierN( 1, sDs, srho1450p3, sPi02, rDs2, mDsM );
          B1_Ds_rho1450p4 = BarrierN( 1, sDs, srho1450p4, sPi01, rDs2, mDsM );
        }
 
        if ( B1_rho1450p1 == -1 )
        {
          B1_rho1450p1 = BarrierN( 1, srho1450p1, somega1, sPip2, rRes2, mass1[i] );
          B1_rho1450p2 = BarrierN( 1, srho1450p2, somega2, sPip2, rRes2, mass1[i] );
          B1_rho1450p3 = BarrierN( 1, srho1450p3, somega3, sPip1, rRes2, mass1[i] );
          B1_rho1450p4 = BarrierN( 1, srho1450p4, somega4, sPip1, rRes2, mass1[i] );
        }
        if ( B1_omega11 == -1 )
        {
          B1_omega11 = BarrierN( 1, somega1, srho11, sPim, rRes2, mass2[i] );
          B1_omega12 = BarrierN( 1, somega1, srho12, sPi01, rRes2, mass2[i] );
          B1_omega13 = BarrierN( 1, somega1, srho13, sPip1, rRes2, mass2[i] );
          B1_omega21 = BarrierN( 1, somega2, srho21, sPim, rRes2, mass2[i] );
          B1_omega22 = BarrierN( 1, somega2, srho22, sPi02, rRes2, mass2[i] );
          B1_omega23 = BarrierN( 1, somega2, srho23, sPip1, rRes2, mass2[i] );
          B1_omega31 = BarrierN( 1, somega3, srho31, sPim, rRes2, mass2[i] );
          B1_omega32 = BarrierN( 1, somega3, srho32, sPi01, rRes2, mass2[i] );
          B1_omega33 = BarrierN( 1, somega3, srho33, sPip2, rRes2, mass2[i] );
          B1_omega41 = BarrierN( 1, somega4, srho41, sPim, rRes2, mass2[i] );
          B1_omega42 = BarrierN( 1, somega4, srho42, sPi02, rRes2, mass2[i] );
          B1_omega43 = BarrierN( 1, somega4, srho43, sPip2, rRes2, mass2[i] );
        }
        calt1( prho11, Pim, t1omega11 );
        calt1( prho12, Pi01, t1omega12 );
        calt1( prho13, Pip1, t1omega13 );
        calt1( prho21, Pim, t1omega21 );
        calt1( prho22, Pi02, t1omega22 );
        calt1( prho23, Pip1, t1omega23 );
        calt1( prho31, Pim, t1omega31 );
        calt1( prho32, Pi01, t1omega32 );
        calt1( prho23, Pip2, t1omega33 );
        calt1( prho41, Pim, t1omega41 );
        calt1( prho42, Pi02, t1omega42 );
        calt1( prho43, Pip2, t1omega43 );
        calt1( Pip1, Pi01, t1rho11 );
        calt1( Pip1, Pim, t1rho12 );
        calt1( Pi01, Pim, t1rho13 );
        calt1( Pip1, Pi02, t1rho21 );
        calt1( Pip1, Pim, t1rho22 );
        calt1( Pi02, Pim, t1rho23 );
        calt1( Pip2, Pi01, t1rho31 );
        calt1( Pip2, Pim, t1rho32 );
        calt1( Pi01, Pim, t1rho33 );
        calt1( Pip2, Pi02, t1rho41 );
        calt1( Pip2, Pim, t1rho42 );
        calt1( Pi02, Pim, t1rho43 );
        calt1( pomega1, Pip2, t1rho1450p1 );
        calt1( pomega2, Pip2, t1rho1450p2 );
        calt1( pomega3, Pip1, t1rho1450p3 );
        calt1( pomega4, Pip1, t1rho1450p4 );
        calG2( prho11, Pim, p1omega11 );
        calG2( prho12, Pi01, p1omega12 );
        calG2( prho13, Pip1, p1omega13 );
        calG2( prho21, Pim, p1omega21 );
        calG2( prho22, Pi02, p1omega22 );
        calG2( prho23, Pip1, p1omega23 );
        calG2( prho31, Pim, p1omega31 );
        calG2( prho32, Pi01, p1omega32 );
        calG2( prho33, Pip2, p1omega33 );
        calG2( prho41, Pim, p1omega41 );
        calG2( prho42, Pi02, p1omega42 );
        calG2( prho43, Pip2, p1omega43 );
 
        calG2( pomega1, Pip2, p1rho1450p1 );
        calG2( pomega2, Pip2, p1rho1450p2 );
        calG2( pomega3, Pip1, p1rho1450p3 );
        calG2( pomega4, Pip1, p1rho1450p4 );
        calt1( prho1450p1, Pi02, t1Ds_rho1450p1 );
        calt1( prho1450p2, Pi01, t1Ds_rho1450p2 );
        calt1( prho1450p3, Pi02, t1Ds_rho1450p3 );
        calt1( prho1450p4, Pi01, t1Ds_rho1450p4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double temt1Ds_rho1450p1 = t1Ds_rho1450p1[i] * G[i][i];
          double temt1Ds_rho1450p2 = t1Ds_rho1450p2[i] * G[i][i];
          double temt1Ds_rho1450p3 = t1Ds_rho1450p3[i] * G[i][i];
          double temt1Ds_rho1450p4 = t1Ds_rho1450p4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double temp1rho1450p1 = p1rho1450p1[i][j] * G[j][j];
            double temp1rho1450p2 = p1rho1450p2[i][j] * G[j][j];
            double temp1rho1450p3 = p1rho1450p3[i][j] * G[j][j];
            double temp1rho1450p4 = p1rho1450p4[i][j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho1450p1 = t1rho1450p1[l] * G[l][l];
                double temt1rho1450p2 = t1rho1450p2[l] * G[l][l];
                double temt1rho1450p3 = t1rho1450p3[l] * G[l][l];
                double temt1rho1450p4 = t1rho1450p4[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temprho1450p1 = prho1450p1[m] * G[m][m] * E[j][k][l][m];
                  double temprho1450p2 = prho1450p2[m] * G[m][m] * E[j][k][l][m];
                  double temprho1450p3 = prho1450p3[m] * G[m][m] * E[j][k][l][m];
                  double temprho1450p4 = prho1450p4[m] * G[m][m] * E[j][k][l][m];
 
                  for ( int n = 0; n < 4; n++ )
                  {
                    double tempomega1 = pomega1[n] * G[n][n];
                    double tempomega2 = pomega2[n] * G[n][n];
                    double tempomega3 = pomega3[n] * G[n][n];
                    double tempomega4 = pomega4[n] * G[n][n];
 
                    for ( int o = 0; o < 4; o++ )
                    {
                      double temp1omega11 = p1omega11[k][o] * G[k][k] * G[o][o];
                      double temp1omega12 = p1omega12[k][o] * G[k][k] * G[o][o];
                      double temp1omega13 = p1omega13[k][o] * G[k][k] * G[o][o];
                      double temp1omega21 = p1omega21[k][o] * G[k][k] * G[o][o];
                      double temp1omega22 = p1omega22[k][o] * G[k][k] * G[o][o];
                      double temp1omega23 = p1omega23[k][o] * G[k][k] * G[o][o];
                      double temp1omega31 = p1omega31[k][o] * G[k][k] * G[o][o];
                      double temp1omega32 = p1omega32[k][o] * G[k][k] * G[o][o];
                      double temp1omega33 = p1omega33[k][o] * G[k][k] * G[o][o];
                      double temp1omega41 = p1omega41[k][o] * G[k][k] * G[o][o];
                      double temp1omega42 = p1omega42[k][o] * G[k][k] * G[o][o];
                      double temp1omega43 = p1omega43[k][o] * G[k][k] * G[o][o];
 
                      for ( int p = 0; p < 4; p++ )
                      {
                        double temt1omega11 = t1omega11[p] * G[p][p];
                        double temt1omega12 = t1omega12[p] * G[p][p];
                        double temt1omega13 = t1omega13[p] * G[p][p];
                        double temt1omega21 = t1omega21[p] * G[p][p];
                        double temt1omega22 = t1omega22[p] * G[p][p];
                        double temt1omega23 = t1omega23[p] * G[p][p];
                        double temt1omega31 = t1omega31[p] * G[p][p];
                        double temt1omega32 = t1omega32[p] * G[p][p];
                        double temt1omega33 = t1omega33[p] * G[p][p];
                        double temt1omega41 = t1omega41[p] * G[p][p];
                        double temt1omega42 = t1omega42[p] * G[p][p];
                        double temt1omega43 = t1omega43[p] * G[p][p];
 
                        for ( int q = 0; q < 4; q++ )
                        {
                          if ( ( j == k ) || ( j == l ) || ( j == m ) || ( k == l ) ||
                               ( k == m ) || ( l == m ) )
                            continue;
                          if ( ( n == o ) || ( n == p ) || ( n == q ) || ( o == p ) ||
                               ( o == q ) || ( p == q ) )
                            continue;
                          temp_PDF11 += temt1Ds_rho1450p1 * temp1rho1450p1 * temt1rho1450p1 *
                                        temprho1450p1 * temp1omega11 * E[n][o][p][q] *
                                        tempomega1 * temt1omega11 * t1rho11[q] * G[q][q];
                          temp_PDF12 += temt1Ds_rho1450p1 * temp1rho1450p1 * temt1rho1450p1 *
                                        temprho1450p1 * temp1omega12 * E[n][o][p][q] *
                                        tempomega1 * temt1omega12 * t1rho12[q] * G[q][q];
                          temp_PDF13 += temt1Ds_rho1450p1 * temp1rho1450p1 * temt1rho1450p1 *
                                        temprho1450p1 * temp1omega13 * E[n][o][p][q] *
                                        tempomega1 * temt1omega13 * t1rho13[q] * G[q][q];
                          temp_PDF21 += temt1Ds_rho1450p2 * temp1rho1450p2 * temt1rho1450p2 *
                                        temprho1450p2 * temp1omega21 * E[n][o][p][q] *
                                        tempomega2 * temt1omega21 * t1rho21[q] * G[q][q];
                          temp_PDF22 += temt1Ds_rho1450p2 * temp1rho1450p2 * temt1rho1450p2 *
                                        temprho1450p2 * temp1omega22 * E[n][o][p][q] *
                                        tempomega2 * temt1omega22 * t1rho22[q] * G[q][q];
                          temp_PDF23 += temt1Ds_rho1450p2 * temp1rho1450p2 * temt1rho1450p2 *
                                        temprho1450p2 * temp1omega23 * E[n][o][p][q] *
                                        tempomega2 * temt1omega23 * t1rho23[q] * G[q][q];
                          temp_PDF31 += temt1Ds_rho1450p3 * temp1rho1450p3 * temt1rho1450p3 *
                                        temprho1450p3 * temp1omega31 * E[n][o][p][q] *
                                        tempomega3 * temt1omega31 * t1rho31[q] * G[q][q];
                          temp_PDF32 += temt1Ds_rho1450p3 * temp1rho1450p3 * temt1rho1450p3 *
                                        temprho1450p3 * temp1omega32 * E[n][o][p][q] *
                                        tempomega3 * temt1omega32 * t1rho32[q] * G[q][q];
                          temp_PDF33 += temt1Ds_rho1450p3 * temp1rho1450p3 * temt1rho1450p3 *
                                        temprho1450p3 * temp1omega33 * E[n][o][p][q] *
                                        tempomega3 * temt1omega33 * t1rho33[q] * G[q][q];
                          temp_PDF41 += temt1Ds_rho1450p4 * temp1rho1450p4 * temt1rho1450p4 *
                                        temprho1450p4 * temp1omega41 * E[n][o][p][q] *
                                        tempomega4 * temt1omega41 * t1rho41[q] * G[q][q];
                          temp_PDF42 += temt1Ds_rho1450p4 * temp1rho1450p4 * temt1rho1450p4 *
                                        temprho1450p4 * temp1omega42 * E[n][o][p][q] *
                                        tempomega4 * temt1omega42 * t1rho42[q] * G[q][q];
                          temp_PDF43 += temt1Ds_rho1450p4 * temp1rho1450p4 * temt1rho1450p4 *
                                        temprho1450p4 * temp1omega43 * E[n][o][p][q] *
                                        tempomega4 * temt1omega43 * t1rho43[q] * G[q][q];
                        }
                      }
                    }
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_Ds_rho1450p1 * B1_rho1450p1 * B1_omega11 * B1_1V12;
        temp_PDF12 = temp_PDF12 * B1_Ds_rho1450p1 * B1_rho1450p1 * B1_omega12 * B1_1V13;
        temp_PDF13 = temp_PDF13 * B1_Ds_rho1450p1 * B1_rho1450p1 * B1_omega13 * B1_1V23;
        temp_PDF21 = temp_PDF21 * B1_Ds_rho1450p2 * B1_rho1450p2 * B1_omega21 * B1_2V12;
        temp_PDF22 = temp_PDF22 * B1_Ds_rho1450p2 * B1_rho1450p2 * B1_omega22 * B1_2V13;
        temp_PDF23 = temp_PDF23 * B1_Ds_rho1450p2 * B1_rho1450p2 * B1_omega23 * B1_2V23;
        temp_PDF31 = temp_PDF31 * B1_Ds_rho1450p3 * B1_rho1450p3 * B1_omega31 * B1_3V12;
        temp_PDF32 = temp_PDF32 * B1_Ds_rho1450p3 * B1_rho1450p3 * B1_omega32 * B1_3V13;
        temp_PDF33 = temp_PDF33 * B1_Ds_rho1450p3 * B1_rho1450p3 * B1_omega33 * B1_3V23;
        temp_PDF41 = temp_PDF41 * B1_Ds_rho1450p4 * B1_rho1450p4 * B1_omega41 * B1_4V12;
        temp_PDF42 = temp_PDF42 * B1_Ds_rho1450p4 * B1_rho1450p4 * B1_omega42 * B1_4V13;
        temp_PDF43 = temp_PDF43 * B1_Ds_rho1450p4 * B1_rho1450p4 * B1_omega43 * B1_4V23;
      }
 
      if ( g0[i] == 1 )
      {
 
        propagatorGS( mass1sq, mass1[i], width1[i], srho1450p1, somega1, sPip2, rRes2,
                      pro0_1 );
        propagatorGS( mass1sq, mass1[i], width1[i], srho1450p2, somega2, sPip2, rRes2,
                      pro0_2 );
        propagatorGS( mass1sq, mass1[i], width1[i], srho1450p3, somega3, sPip1, rRes2,
                      pro0_3 );
        propagatorGS( mass1sq, mass1[i], width1[i], srho1450p4, somega4, sPip1, rRes2,
                      pro0_4 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_1[0] = 1;
        pro0_1[i] = 0;
        pro0_2[0] = 1;
        pro0_2[i] = 0;
        pro0_3[0] = 1;
        pro0_3[i] = 0;
        pro0_4[0] = 1;
        pro0_4[i] = 0;
      }
      if ( g1[i] == 1 )
      {
        propagator( mass2sq, mass2[i], width2[i], somega1, pro1_11 );
        propagator( mass2sq, mass2[i], width2[i], somega1, pro1_12 );
        propagator( mass2sq, mass2[i], width2[i], somega1, pro1_13 );
        propagator( mass2sq, mass2[i], width2[i], somega2, pro1_21 );
        propagator( mass2sq, mass2[i], width2[i], somega2, pro1_22 );
        propagator( mass2sq, mass2[i], width2[i], somega2, pro1_23 );
        propagator( mass2sq, mass2[i], width2[i], somega3, pro1_31 );
        propagator( mass2sq, mass2[i], width2[i], somega3, pro1_32 );
        propagator( mass2sq, mass2[i], width2[i], somega3, pro1_33 );
        propagator( mass2sq, mass2[i], width2[i], somega4, pro1_41 );
        propagator( mass2sq, mass2[i], width2[i], somega4, pro1_42 );
        propagator( mass2sq, mass2[i], width2[i], somega4, pro1_43 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_11[0] = 1;
        pro1_11[1] = 0;
        pro1_12[0] = 1;
        pro1_12[1] = 0;
        pro1_13[0] = 1;
        pro1_13[1] = 0;
        pro1_21[0] = 1;
        pro1_21[1] = 0;
        pro1_22[0] = 1;
        pro1_22[1] = 0;
        pro1_23[0] = 1;
        pro1_23[1] = 0;
        pro1_31[0] = 1;
        pro1_31[1] = 0;
        pro1_32[0] = 1;
        pro1_32[1] = 0;
        pro1_33[0] = 1;
        pro1_33[1] = 0;
        pro1_41[0] = 1;
        pro1_41[1] = 0;
        pro1_42[0] = 1;
        pro1_42[1] = 0;
        pro1_43[0] = 1;
        pro1_43[1] = 0;
      }
      Com_Multi( pro0_1, pro1_11, tpro_11 );
      Com_Multi( tpro_11, pro1V12, pro_11 );
      Com_Multi( pro0_1, pro1_12, tpro_12 );
      Com_Multi( tpro_12, pro1V13, pro_12 );
      Com_Multi( pro0_1, pro1_13, tpro_13 );
      Com_Multi( tpro_13, pro1V23, pro_13 );
      Com_Multi( pro0_2, pro1_21, tpro_21 );
      Com_Multi( tpro_21, pro2V12, pro_21 );
      Com_Multi( pro0_2, pro1_22, tpro_22 );
      Com_Multi( tpro_22, pro2V13, pro_22 );
      Com_Multi( pro0_2, pro1_23, tpro_23 );
      Com_Multi( tpro_23, pro2V23, pro_23 );
      Com_Multi( pro0_3, pro1_31, tpro_31 );
      Com_Multi( tpro_31, pro3V12, pro_31 );
      Com_Multi( pro0_3, pro1_32, tpro_32 );
      Com_Multi( tpro_32, pro3V13, pro_32 );
      Com_Multi( pro0_3, pro1_33, tpro_33 );
      Com_Multi( tpro_33, pro3V23, pro_33 );
      Com_Multi( pro0_4, pro1_41, tpro_41 );
      Com_Multi( tpro_41, pro4V12, pro_41 );
      Com_Multi( pro0_4, pro1_42, tpro_42 );
      Com_Multi( tpro_42, pro4V13, pro_42 );
      Com_Multi( pro0_4, pro1_43, tpro_43 );
      Com_Multi( tpro_43, pro4V23, pro_43 );
      amp_tmp1[0] = temp_PDF11 * pro_11[0] - temp_PDF12 * pro_12[0] + temp_PDF13 * pro_13[0];
      amp_tmp1[1] = temp_PDF11 * pro_11[1] - temp_PDF12 * pro_12[1] + temp_PDF13 * pro_13[1];
      amp_tmp2[0] = temp_PDF21 * pro_21[0] - temp_PDF22 * pro_22[0] + temp_PDF23 * pro_23[0];
      amp_tmp2[1] = temp_PDF21 * pro_21[1] - temp_PDF22 * pro_22[1] + temp_PDF23 * pro_23[1];
      amp_tmp3[0] = temp_PDF31 * pro_31[0] - temp_PDF32 * pro_32[0] + temp_PDF33 * pro_33[0];
      amp_tmp3[1] = temp_PDF31 * pro_31[1] - temp_PDF32 * pro_32[1] + temp_PDF33 * pro_33[1];
      amp_tmp4[0] = temp_PDF41 * pro_41[0] - temp_PDF42 * pro_42[0] + temp_PDF43 * pro_43[0];
      amp_tmp4[1] = temp_PDF41 * pro_41[1] - temp_PDF42 * pro_42[1] + temp_PDF43 * pro_43[1];
    }
 
    else if ( modetype[i] == 12 )
    {
      if ( g2[i] == 1 )
      {
        if ( B1_Ds_rho1450n1 == -1 )
        {
          B1_Ds_rho1450n1 = BarrierN( 1, sDs, srho1450n1, sPip2, rDs2, mDsM );
          B1_Ds_rho1450n2 = BarrierN( 1, sDs, srho1450n2, sPip2, rDs2, mDsM );
          B1_Ds_rho1450n3 = BarrierN( 1, sDs, srho1450n3, sPip1, rDs2, mDsM );
          B1_Ds_rho1450n4 = BarrierN( 1, sDs, srho1450n4, sPip1, rDs2, mDsM );
        }
 
        if ( B1_rho1450n1 == -1 )
        {
          B1_rho1450n1 = BarrierN( 1, srho1450n1, somega1, sPi02, rRes2, mass1[i] );
          B1_rho1450n2 = BarrierN( 1, srho1450n2, somega2, sPi01, rRes2, mass1[i] );
          B1_rho1450n3 = BarrierN( 1, srho1450n3, somega3, sPi02, rRes2, mass1[i] );
          B1_rho1450n4 = BarrierN( 1, srho1450n4, somega4, sPi01, rRes2, mass1[i] );
        }
        if ( B1_omega11 == -1 )
        {
          B1_omega11 = BarrierN( 1, somega1, srho11, sPim, rRes2, mass2[i] );
          B1_omega12 = BarrierN( 1, somega1, srho12, sPi01, rRes2, mass2[i] );
          B1_omega13 = BarrierN( 1, somega1, srho13, sPip1, rRes2, mass2[i] );
          B1_omega21 = BarrierN( 1, somega2, srho21, sPim, rRes2, mass2[i] );
          B1_omega22 = BarrierN( 1, somega2, srho22, sPi02, rRes2, mass2[i] );
          B1_omega23 = BarrierN( 1, somega2, srho23, sPip1, rRes2, mass2[i] );
          B1_omega31 = BarrierN( 1, somega3, srho31, sPim, rRes2, mass2[i] );
          B1_omega32 = BarrierN( 1, somega3, srho32, sPi01, rRes2, mass2[i] );
          B1_omega33 = BarrierN( 1, somega3, srho33, sPip2, rRes2, mass2[i] );
          B1_omega41 = BarrierN( 1, somega4, srho41, sPim, rRes2, mass2[i] );
          B1_omega42 = BarrierN( 1, somega4, srho42, sPi02, rRes2, mass2[i] );
          B1_omega43 = BarrierN( 1, somega4, srho43, sPip2, rRes2, mass2[i] );
        }
 
        calt1( prho11, Pim, t1omega11 );
        calt1( prho12, Pi01, t1omega12 );
        calt1( prho13, Pip1, t1omega13 );
        calt1( prho21, Pim, t1omega21 );
        calt1( prho22, Pi02, t1omega22 );
        calt1( prho23, Pip1, t1omega23 );
        calt1( prho31, Pim, t1omega31 );
        calt1( prho32, Pi01, t1omega32 );
        calt1( prho23, Pip2, t1omega33 );
        calt1( prho41, Pim, t1omega41 );
        calt1( prho42, Pi02, t1omega42 );
        calt1( prho43, Pip2, t1omega43 );
        calt1( Pip1, Pi01, t1rho11 );
        calt1( Pip1, Pim, t1rho12 );
        calt1( Pi01, Pim, t1rho13 );
        calt1( Pip1, Pi02, t1rho21 );
        calt1( Pip1, Pim, t1rho22 );
        calt1( Pi02, Pim, t1rho23 );
        calt1( Pip2, Pi01, t1rho31 );
        calt1( Pip2, Pim, t1rho32 );
        calt1( Pi01, Pim, t1rho33 );
        calt1( Pip2, Pi02, t1rho41 );
        calt1( Pip2, Pim, t1rho42 );
        calt1( Pi02, Pim, t1rho43 );
        calt1( pomega1, Pi02, t1rho1450n1 );
        calt1( pomega2, Pi01, t1rho1450n2 );
        calt1( pomega3, Pi02, t1rho1450n3 );
        calt1( pomega4, Pi01, t1rho1450n4 );
        calG2( prho11, Pim, p1omega11 );
        calG2( prho12, Pi01, p1omega12 );
        calG2( prho13, Pip1, p1omega13 );
        calG2( prho21, Pim, p1omega21 );
        calG2( prho22, Pi02, p1omega22 );
        calG2( prho23, Pip1, p1omega23 );
        calG2( prho31, Pim, p1omega31 );
        calG2( prho32, Pi01, p1omega32 );
        calG2( prho33, Pip2, p1omega33 );
        calG2( prho41, Pim, p1omega41 );
        calG2( prho42, Pi02, p1omega42 );
        calG2( prho43, Pip2, p1omega43 );
        calG2( pomega1, Pi02, p1rho1450n1 );
        calG2( pomega2, Pi01, p1rho1450n2 );
        calG2( pomega3, Pi02, p1rho1450n3 );
        calG2( pomega4, Pi01, p1rho1450n4 );
        calt1( prho1450n1, Pip2, t1Ds_rho1450n1 );
        calt1( prho1450n2, Pip2, t1Ds_rho1450n2 );
        calt1( prho1450n3, Pip1, t1Ds_rho1450n3 );
        calt1( prho1450n4, Pip1, t1Ds_rho1450n4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double temt1Ds_rho1450n1 = t1Ds_rho1450n1[i] * G[i][i];
          double temt1Ds_rho1450n2 = t1Ds_rho1450n2[i] * G[i][i];
          double temt1Ds_rho1450n3 = t1Ds_rho1450n3[i] * G[i][i];
          double temt1Ds_rho1450n4 = t1Ds_rho1450n4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double temp1rho1450n1 = p1rho1450n1[i][j] * G[j][j];
            double temp1rho1450n2 = p1rho1450n2[i][j] * G[j][j];
            double temp1rho1450n3 = p1rho1450n3[i][j] * G[j][j];
            double temp1rho1450n4 = p1rho1450n4[i][j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho1450n1 = t1rho1450n1[l] * G[l][l];
                double temt1rho1450n2 = t1rho1450n2[l] * G[l][l];
                double temt1rho1450n3 = t1rho1450n3[l] * G[l][l];
                double temt1rho1450n4 = t1rho1450n4[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temprho1450n1 = prho1450n1[m] * G[m][m] * E[j][k][l][m];
                  double temprho1450n2 = prho1450n2[m] * G[m][m] * E[j][k][l][m];
                  double temprho1450n3 = prho1450n3[m] * G[m][m] * E[j][k][l][m];
                  double temprho1450n4 = prho1450n4[m] * G[m][m] * E[j][k][l][m];
 
                  for ( int n = 0; n < 4; n++ )
                  {
                    double tempomega1 = pomega1[n] * G[n][n];
                    double tempomega2 = pomega2[n] * G[n][n];
                    double tempomega3 = pomega3[n] * G[n][n];
                    double tempomega4 = pomega4[n] * G[n][n];
 
                    for ( int o = 0; o < 4; o++ )
                    {
                      double temp1omega11 = p1omega11[k][o] * G[k][k] * G[o][o];
                      double temp1omega12 = p1omega12[k][o] * G[k][k] * G[o][o];
                      double temp1omega13 = p1omega13[k][o] * G[k][k] * G[o][o];
                      double temp1omega21 = p1omega21[k][o] * G[k][k] * G[o][o];
                      double temp1omega22 = p1omega22[k][o] * G[k][k] * G[o][o];
                      double temp1omega23 = p1omega23[k][o] * G[k][k] * G[o][o];
                      double temp1omega31 = p1omega31[k][o] * G[k][k] * G[o][o];
                      double temp1omega32 = p1omega32[k][o] * G[k][k] * G[o][o];
                      double temp1omega33 = p1omega33[k][o] * G[k][k] * G[o][o];
                      double temp1omega41 = p1omega41[k][o] * G[k][k] * G[o][o];
                      double temp1omega42 = p1omega42[k][o] * G[k][k] * G[o][o];
                      double temp1omega43 = p1omega43[k][o] * G[k][k] * G[o][o];
 
                      for ( int p = 0; p < 4; p++ )
                      {
                        double temt1omega11 = t1omega11[p] * G[p][p];
                        double temt1omega12 = t1omega12[p] * G[p][p];
                        double temt1omega13 = t1omega13[p] * G[p][p];
                        double temt1omega21 = t1omega21[p] * G[p][p];
                        double temt1omega22 = t1omega22[p] * G[p][p];
                        double temt1omega23 = t1omega23[p] * G[p][p];
                        double temt1omega31 = t1omega31[p] * G[p][p];
                        double temt1omega32 = t1omega32[p] * G[p][p];
                        double temt1omega33 = t1omega33[p] * G[p][p];
                        double temt1omega41 = t1omega41[p] * G[p][p];
                        double temt1omega42 = t1omega42[p] * G[p][p];
                        double temt1omega43 = t1omega43[p] * G[p][p];
 
                        for ( int q = 0; q < 4; q++ )
                        {
                          if ( ( j == k ) || ( j == l ) || ( j == m ) || ( k == l ) ||
                               ( k == m ) || ( l == m ) )
                            continue;
                          if ( ( n == o ) || ( n == p ) || ( n == q ) || ( o == p ) ||
                               ( o == q ) || ( p == q ) )
                            continue;
 
                          temp_PDF11 += temt1Ds_rho1450n1 * temp1rho1450n1 * temt1rho1450n1 *
                                        temprho1450n1 * temp1omega11 * E[n][o][p][q] *
                                        tempomega1 * temt1omega11 * t1rho11[q] * G[q][q];
                          temp_PDF12 += temt1Ds_rho1450n1 * temp1rho1450n1 * temt1rho1450n1 *
                                        temprho1450n1 * temp1omega12 * E[n][o][p][q] *
                                        tempomega1 * temt1omega12 * t1rho12[q] * G[q][q];
                          temp_PDF13 += temt1Ds_rho1450n1 * temp1rho1450n1 * temt1rho1450n1 *
                                        temprho1450n1 * temp1omega13 * E[n][o][p][q] *
                                        tempomega1 * temt1omega13 * t1rho13[q] * G[q][q];
                          temp_PDF21 += temt1Ds_rho1450n2 * temp1rho1450n2 * temt1rho1450n2 *
                                        temprho1450n2 * temp1omega21 * E[n][o][p][q] *
                                        tempomega2 * temt1omega21 * t1rho21[q] * G[q][q];
                          temp_PDF22 += temt1Ds_rho1450n2 * temp1rho1450n2 * temt1rho1450n2 *
                                        temprho1450n2 * temp1omega22 * E[n][o][p][q] *
                                        tempomega2 * temt1omega22 * t1rho22[q] * G[q][q];
                          temp_PDF23 += temt1Ds_rho1450n2 * temp1rho1450n2 * temt1rho1450n2 *
                                        temprho1450n2 * temp1omega23 * E[n][o][p][q] *
                                        tempomega2 * temt1omega23 * t1rho23[q] * G[q][q];
                          temp_PDF31 += temt1Ds_rho1450n3 * temp1rho1450n3 * temt1rho1450n3 *
                                        temprho1450n3 * temp1omega31 * E[n][o][p][q] *
                                        tempomega3 * temt1omega31 * t1rho31[q] * G[q][q];
                          temp_PDF32 += temt1Ds_rho1450n3 * temp1rho1450n3 * temt1rho1450n3 *
                                        temprho1450n3 * temp1omega32 * E[n][o][p][q] *
                                        tempomega3 * temt1omega32 * t1rho32[q] * G[q][q];
                          temp_PDF33 += temt1Ds_rho1450n3 * temp1rho1450n3 * temt1rho1450n3 *
                                        temprho1450n3 * temp1omega33 * E[n][o][p][q] *
                                        tempomega3 * temt1omega33 * t1rho33[q] * G[q][q];
                          temp_PDF41 += temt1Ds_rho1450n4 * temp1rho1450n4 * temt1rho1450n4 *
                                        temprho1450n4 * temp1omega41 * E[n][o][p][q] *
                                        tempomega4 * temt1omega41 * t1rho41[q] * G[q][q];
                          temp_PDF42 += temt1Ds_rho1450n4 * temp1rho1450n4 * temt1rho1450n4 *
                                        temprho1450n4 * temp1omega42 * E[n][o][p][q] *
                                        tempomega4 * temt1omega42 * t1rho42[q] * G[q][q];
                          temp_PDF43 += temt1Ds_rho1450n4 * temp1rho1450n4 * temt1rho1450n4 *
                                        temprho1450n4 * temp1omega43 * E[n][o][p][q] *
                                        tempomega4 * temt1omega43 * t1rho43[q] * G[q][q];
                        }
                      }
                    }
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_Ds_rho1450n1 * B1_rho1450n1 * B1_omega11 * B1_1V12;
        temp_PDF12 = temp_PDF12 * B1_Ds_rho1450n1 * B1_rho1450n1 * B1_omega12 * B1_1V13;
        temp_PDF13 = temp_PDF13 * B1_Ds_rho1450n1 * B1_rho1450n1 * B1_omega13 * B1_1V23;
        temp_PDF21 = temp_PDF21 * B1_Ds_rho1450n2 * B1_rho1450n2 * B1_omega21 * B1_2V12;
        temp_PDF22 = temp_PDF22 * B1_Ds_rho1450n2 * B1_rho1450n2 * B1_omega22 * B1_2V13;
        temp_PDF23 = temp_PDF23 * B1_Ds_rho1450n2 * B1_rho1450n2 * B1_omega23 * B1_2V23;
        temp_PDF31 = temp_PDF31 * B1_Ds_rho1450n3 * B1_rho1450n3 * B1_omega31 * B1_3V12;
        temp_PDF32 = temp_PDF32 * B1_Ds_rho1450n3 * B1_rho1450n3 * B1_omega32 * B1_3V13;
        temp_PDF33 = temp_PDF33 * B1_Ds_rho1450n3 * B1_rho1450n3 * B1_omega33 * B1_3V23;
        temp_PDF41 = temp_PDF41 * B1_Ds_rho1450n4 * B1_rho1450n4 * B1_omega41 * B1_4V12;
        temp_PDF42 = temp_PDF42 * B1_Ds_rho1450n4 * B1_rho1450n4 * B1_omega42 * B1_4V13;
        temp_PDF43 = temp_PDF43 * B1_Ds_rho1450n4 * B1_rho1450n4 * B1_omega43 * B1_4V23;
      }
 
      if ( g0[i] == 1 )
      {
 
        propagatorGS( mass1sq, mass1[i], width1[i], srho1450n1, somega1, sPip2, rRes2,
                      pro0_1 );
        propagatorGS( mass1sq, mass1[i], width1[i], srho1450n2, somega2, sPip2, rRes2,
                      pro0_2 );
        propagatorGS( mass1sq, mass1[i], width1[i], srho1450n3, somega3, sPip1, rRes2,
                      pro0_3 );
        propagatorGS( mass1sq, mass1[i], width1[i], srho1450n4, somega4, sPip1, rRes2,
                      pro0_4 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_1[0] = 1;
        pro0_1[i] = 0;
        pro0_2[0] = 1;
        pro0_2[i] = 0;
        pro0_3[0] = 1;
        pro0_3[i] = 0;
        pro0_4[0] = 1;
        pro0_4[i] = 0;
      }
      if ( g1[i] == 1 )
      {
        propagator( mass2sq, mass2[i], width2[i], somega1, pro1_11 );
        propagator( mass2sq, mass2[i], width2[i], somega1, pro1_12 );
        propagator( mass2sq, mass2[i], width2[i], somega1, pro1_13 );
        propagator( mass2sq, mass2[i], width2[i], somega2, pro1_21 );
        propagator( mass2sq, mass2[i], width2[i], somega2, pro1_22 );
        propagator( mass2sq, mass2[i], width2[i], somega2, pro1_23 );
        propagator( mass2sq, mass2[i], width2[i], somega3, pro1_31 );
        propagator( mass2sq, mass2[i], width2[i], somega3, pro1_32 );
        propagator( mass2sq, mass2[i], width2[i], somega3, pro1_33 );
        propagator( mass2sq, mass2[i], width2[i], somega4, pro1_41 );
        propagator( mass2sq, mass2[i], width2[i], somega4, pro1_42 );
        propagator( mass2sq, mass2[i], width2[i], somega4, pro1_43 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_11[0] = 1;
        pro1_11[1] = 0;
        pro1_12[0] = 1;
        pro1_12[1] = 0;
        pro1_13[0] = 1;
        pro1_13[1] = 0;
        pro1_21[0] = 1;
        pro1_21[1] = 0;
        pro1_22[0] = 1;
        pro1_22[1] = 0;
        pro1_23[0] = 1;
        pro1_23[1] = 0;
        pro1_31[0] = 1;
        pro1_31[1] = 0;
        pro1_32[0] = 1;
        pro1_32[1] = 0;
        pro1_33[0] = 1;
        pro1_33[1] = 0;
        pro1_41[0] = 1;
        pro1_41[1] = 0;
        pro1_42[0] = 1;
        pro1_42[1] = 0;
        pro1_43[0] = 1;
        pro1_43[1] = 0;
      }
      Com_Multi( pro0_1, pro1_11, tpro_11 );
      Com_Multi( tpro_11, pro1V12, pro_11 );
      Com_Multi( pro0_1, pro1_12, tpro_12 );
      Com_Multi( tpro_12, pro1V13, pro_12 );
      Com_Multi( pro0_1, pro1_13, tpro_13 );
      Com_Multi( tpro_13, pro1V23, pro_13 );
      Com_Multi( pro0_2, pro1_21, tpro_21 );
      Com_Multi( tpro_21, pro2V12, pro_21 );
      Com_Multi( pro0_2, pro1_22, tpro_22 );
      Com_Multi( tpro_22, pro2V13, pro_22 );
      Com_Multi( pro0_2, pro1_23, tpro_23 );
      Com_Multi( tpro_23, pro2V23, pro_23 );
      Com_Multi( pro0_3, pro1_31, tpro_31 );
      Com_Multi( tpro_31, pro3V12, pro_31 );
      Com_Multi( pro0_3, pro1_32, tpro_32 );
      Com_Multi( tpro_32, pro3V13, pro_32 );
      Com_Multi( pro0_3, pro1_33, tpro_33 );
      Com_Multi( tpro_33, pro3V23, pro_33 );
      Com_Multi( pro0_4, pro1_41, tpro_41 );
      Com_Multi( tpro_41, pro4V12, pro_41 );
      Com_Multi( pro0_4, pro1_42, tpro_42 );
      Com_Multi( tpro_42, pro4V13, pro_42 );
      Com_Multi( pro0_4, pro1_43, tpro_43 );
      Com_Multi( tpro_43, pro4V23, pro_43 );
      amp_tmp1[0] = temp_PDF11 * pro_11[0] + temp_PDF12 * pro_12[0] + temp_PDF13 * pro_13[0];
      amp_tmp1[1] = temp_PDF11 * pro_11[1] + temp_PDF12 * pro_12[1] + temp_PDF13 * pro_13[1];
      amp_tmp2[0] = temp_PDF21 * pro_21[0] + temp_PDF22 * pro_22[0] + temp_PDF23 * pro_23[0];
      amp_tmp2[1] = temp_PDF21 * pro_21[1] + temp_PDF22 * pro_22[1] + temp_PDF23 * pro_23[1];
      amp_tmp3[0] = temp_PDF31 * pro_31[0] + temp_PDF32 * pro_32[0] + temp_PDF33 * pro_33[0];
      amp_tmp3[1] = temp_PDF31 * pro_31[1] + temp_PDF32 * pro_32[1] + temp_PDF33 * pro_33[1];
      amp_tmp4[0] = temp_PDF41 * pro_41[0] + temp_PDF42 * pro_42[0] + temp_PDF43 * pro_43[0];
      amp_tmp4[1] = temp_PDF41 * pro_41[1] + temp_PDF42 * pro_42[1] + temp_PDF43 * pro_43[1];
    }
 
    else if ( modetype[i] == 13 )
    {
      if ( g2[i] == 0 )
      {
        if ( B1_a1012601 == -1 )
        {
          B1_a1012601 = BarrierN( 1, sa1012601, sa10f05001, sPi01, rRes2, mass1[i] );
          B1_a1012602 = BarrierN( 1, sa1012602, sa10f05001, sPi02, rRes2, mass1[i] );
          B1_a1012603 = BarrierN( 1, sa1012603, sa10f05002, sPi01, rRes2, mass1[i] );
          B1_a1012604 = BarrierN( 1, sa1012604, sa10f05002, sPi02, rRes2, mass1[i] );
        }
        if ( B1_rho1 == -1 )
        {
          B1_rho1 = BarrierN( 1, srho1, sPip2, sPi02, rRes2, mass2[i] );
          B1_rho2 = BarrierN( 1, srho2, sPip2, sPi01, rRes2, mass2[i] );
          B1_rho3 = BarrierN( 1, srho3, sPip1, sPi02, rRes2, mass2[i] );
          B1_rho4 = BarrierN( 1, srho4, sPip1, sPi01, rRes2, mass2[i] );
        }
        calt1( Pip2, Pi02, t1rho1 );
        calt1( Pip2, Pi01, t1rho2 );
        calt1( Pip1, Pi02, t1rho3 );
        calt1( Pip1, Pi01, t1rho4 );
        calt1( pa10f05001, Pi01, t1a1012601 );
        calt1( pa10f05001, Pi02, t1a1012602 );
        calt1( pa10f05002, Pi01, t1a1012603 );
        calt1( pa10f05002, Pi02, t1a1012604 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double ttt1a1012601 = G[i][i] * t1a1012601[i];
          double ttt1a1012602 = G[i][i] * t1a1012602[i];
          double ttt1a1012603 = G[i][i] * t1a1012603[i];
          double ttt1a1012604 = G[i][i] * t1a1012604[i];
 
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += G[j][j] * ttt1a1012601 * t1rho1[j];
            temp_PDF2 += G[j][j] * ttt1a1012602 * t1rho2[j];
            temp_PDF3 += G[j][j] * ttt1a1012603 * t1rho3[j];
            temp_PDF4 += G[j][j] * ttt1a1012604 * t1rho4[j];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_a1012601 * B1_rho1;
        temp_PDF2 = temp_PDF2 * B1_a1012602 * B1_rho2;
        temp_PDF3 = temp_PDF3 * B1_a1012603 * B1_rho3;
        temp_PDF4 = temp_PDF4 * B1_a1012604 * B1_rho4;
      }
 
      else if ( g2[i] == 1 )
      {
        if ( B1_a1012601 == -1 )
        {
          B1_a1012601 = BarrierN( 1, sa1012601, sa10f05001, sPi01, rRes2, mass1[i] );
          B1_a1012602 = BarrierN( 1, sa1012602, sa10f05001, sPi02, rRes2, mass1[i] );
          B1_a1012603 = BarrierN( 1, sa1012603, sa10f05002, sPi01, rRes2, mass1[i] );
          B1_a1012604 = BarrierN( 1, sa1012604, sa10f05002, sPi02, rRes2, mass1[i] );
        }
        if ( B1_rho1 == -1 )
        {
          B1_rho1 = BarrierN( 1, srho1, sPip2, sPi02, rRes2, mass2[i] );
          B1_rho2 = BarrierN( 1, srho2, sPip2, sPi01, rRes2, mass2[i] );
          B1_rho3 = BarrierN( 1, srho3, sPip1, sPi02, rRes2, mass2[i] );
          B1_rho4 = BarrierN( 1, srho4, sPip1, sPi01, rRes2, mass2[i] );
        }
        if ( B1_Ds_a1012601 == -1 )
        {
          B1_Ds_a1012601 = BarrierN( 1, sDs, sa1012601, srho1, rDs2, mDsM );
          B1_Ds_a1012602 = BarrierN( 1, sDs, sa1012602, srho2, rDs2, mDsM );
          B1_Ds_a1012603 = BarrierN( 1, sDs, sa1012603, srho3, rDs2, mDsM );
          B1_Ds_a1012604 = BarrierN( 1, sDs, sa1012604, srho4, rDs2, mDsM );
        }
 
        calt1( Pip2, Pi02, t1rho1 );
        calt1( Pip2, Pi01, t1rho2 );
        calt1( Pip1, Pi02, t1rho3 );
        calt1( Pip1, Pi01, t1rho4 );
        calt1( pa1012601, prho1, t1Ds_a1012601 );
        calt1( pa1012602, prho2, t1Ds_a1012602 );
        calt1( pa1012603, prho3, t1Ds_a1012603 );
        calt1( pa1012604, prho4, t1Ds_a1012604 );
        calt1( pa10f05001, Pi01, t1a1012601 );
        calt1( pa10f05001, Pi02, t1a1012602 );
        calt1( pa10f05002, Pi01, t1a1012603 );
        calt1( pa10f05002, Pi02, t1a1012604 );
        for ( int i = 0; i < 4; i++ )
        {
          double ttt1a1012601 = G[i][i] * t1a1012601[i];
          double ttt1a1012602 = G[i][i] * t1a1012602[i];
          double ttt1a1012603 = G[i][i] * t1a1012603[i];
          double ttt1a1012604 = G[i][i] * t1a1012604[i];
          for ( int j = 0; j < 4; j++ )
          {
            double ttta1rho1 = G[j][j] * t1rho1[j];
            double ttta1rho2 = G[j][j] * t1rho2[j];
            double ttta1rho3 = G[j][j] * t1rho3[j];
            double ttta1rho4 = G[j][j] * t1rho4[j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double ttta1Ds1 = G[k][k] * t1Ds_a1012601[k];
              double ttta1Ds2 = G[k][k] * t1Ds_a1012602[k];
              double ttta1Ds3 = G[k][k] * t1Ds_a1012603[k];
              double ttta1Ds4 = G[k][k] * t1Ds_a1012604[k];
 
              for ( int l = 0; l < 4; l++ )
              {
                temp_PDF1 += E[i][j][k][l] * pDs[l] * ttt1a1012601 * ttta1rho1 * ttta1Ds1;
                temp_PDF2 += E[i][j][k][l] * pDs[l] * ttt1a1012602 * ttta1rho2 * ttta1Ds2;
                temp_PDF3 += E[i][j][k][l] * pDs[l] * ttt1a1012603 * ttta1rho3 * ttta1Ds3;
                temp_PDF4 += E[i][j][k][l] * pDs[l] * ttt1a1012604 * ttta1rho4 * ttta1Ds4;
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_a1012601 * B1_rho1 * B1_Ds_a1012601;
        temp_PDF2 = temp_PDF2 * B1_a1012602 * B1_rho2 * B1_Ds_a1012602;
        temp_PDF3 = temp_PDF3 * B1_a1012603 * B1_rho3 * B1_Ds_a1012603;
        temp_PDF4 = temp_PDF4 * B1_a1012604 * B1_rho4 * B1_Ds_a1012604;
      }
 
      else if ( g2[i] == 2 )
      {
        if ( B1_a1012601 == -1 )
        {
          B1_a1012601 = BarrierN( 1, sa1012601, sa10f05001, sPi01, rRes2, mass1[i] );
          B1_a1012602 = BarrierN( 1, sa1012602, sa10f05001, sPi02, rRes2, mass1[i] );
          B1_a1012603 = BarrierN( 1, sa1012603, sa10f05002, sPi01, rRes2, mass1[i] );
          B1_a1012604 = BarrierN( 1, sa1012604, sa10f05002, sPi02, rRes2, mass1[i] );
        }
        if ( B1_rho1 == -1 )
        {
          B1_rho1 = BarrierN( 1, srho1, sPip2, sPi02, rRes2, mass2[i] );
          B1_rho2 = BarrierN( 1, srho2, sPip2, sPi01, rRes2, mass2[i] );
          B1_rho3 = BarrierN( 1, srho3, sPip1, sPi02, rRes2, mass2[i] );
          B1_rho4 = BarrierN( 1, srho4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        if ( B2_Ds_a1012601 == -1 )
        {
          B2_Ds_a1012601 = BarrierN( 2, sDs, sa1012601, srho1, rDs2, mDsM );
          B2_Ds_a1012602 = BarrierN( 2, sDs, sa1012602, srho2, rDs2, mDsM );
          B2_Ds_a1012603 = BarrierN( 2, sDs, sa1012603, srho3, rDs2, mDsM );
          B2_Ds_a1012604 = BarrierN( 2, sDs, sa1012604, srho4, rDs2, mDsM );
        }
        calt1( Pip2, Pi02, t1rho1 );
        calt1( Pip2, Pi01, t1rho2 );
        calt1( Pip1, Pi02, t1rho3 );
        calt1( Pip1, Pi01, t1rho4 );
        calt2( pa1012601, prho1, t2Ds_a1012601 );
        calt2( pa1012602, prho2, t2Ds_a1012602 );
        calt2( pa1012603, prho3, t2Ds_a1012603 );
        calt2( pa1012604, prho4, t2Ds_a1012604 );
        calt1( pa10f05001, Pi01, t1a1012601 );
        calt1( pa10f05001, Pi02, t1a1012602 );
        calt1( pa10f05002, Pi01, t1a1012603 );
        calt1( pa10f05002, Pi02, t1a1012604 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double ttta1rho1 = t1rho1[i] * G[i][i];
          double ttta1rho2 = t1rho2[i] * G[i][i];
          double ttta1rho3 = t1rho3[i] * G[i][i];
          double ttta1rho4 = t1rho4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += ttta1rho1 * t1a1012601[j] * t2Ds_a1012601[i][j] * G[j][j];
            temp_PDF2 += ttta1rho2 * t1a1012602[j] * t2Ds_a1012602[i][j] * G[j][j];
            temp_PDF3 += ttta1rho3 * t1a1012603[j] * t2Ds_a1012603[i][j] * G[j][j];
            temp_PDF4 += ttta1rho4 * t1a1012604[j] * t2Ds_a1012604[i][j] * G[j][j];
          }
        }
        temp_PDF1 = temp_PDF1 * B1_a1012601 * B1_rho1 * B2_Ds_a1012601;
        temp_PDF2 = temp_PDF2 * B1_a1012602 * B1_rho2 * B2_Ds_a1012602;
        temp_PDF3 = temp_PDF3 * B1_a1012603 * B1_rho3 * B2_Ds_a1012603;
        temp_PDF4 = temp_PDF4 * B1_a1012604 * B1_rho4 * B2_Ds_a1012604;
      }
 
      if ( g0[i] == 1 )
      {
        propagatorRBW( mass1sq, mass1[i], width1[i], sa1012601, sa10f05001, sPi01, rRes2, 1,
                       proa101 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sa1012602, sa10f05001, sPi02, rRes2, 1,
                       proa102 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sa1012603, sa10f05002, sPi01, rRes2, 1,
                       proa103 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sa1012604, sa10f05002, sPi02, rRes2, 1,
                       proa104 );
 
        propagatorsigma500( sa10f05001, sPip1, sPim, proa10f05001 );
        propagatorsigma500( sa10f05002, sPip2, sPim, proa10f05002 );
 
        Com_Multi( proa101, proa10f05001, pro0_1 );
        Com_Multi( proa102, proa10f05001, pro0_2 );
        Com_Multi( proa103, proa10f05002, pro0_3 );
        Com_Multi( proa104, proa10f05002, pro0_4 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_1[0] = 1;
        pro0_1[1] = 0;
        pro0_2[0] = 1;
        pro0_2[1] = 0;
        pro0_3[0] = 1;
        pro0_3[1] = 0;
        pro0_4[0] = 1;
        pro0_4[1] = 0;
      }
      if ( g1[i] == 1 )
      {
 
        propagatorGS( mass2sq, mass2[i], width2[i], srho1, sPip2, sPi02, rRes2, pro1_1 );
        propagatorGS( mass2sq, mass2[i], width2[i], srho2, sPip2, sPi01, rRes2, pro1_2 );
        propagatorGS( mass2sq, mass2[i], width2[i], srho3, sPip1, sPi02, rRes2, pro1_3 );
        propagatorGS( mass2sq, mass2[i], width2[i], srho4, sPip1, sPi01, rRes2, pro1_4 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
        pro1_3[0] = 1;
        pro1_3[1] = 0;
        pro1_4[0] = 1;
        pro1_4[1] = 0;
      }
      Com_Multi( pro0_1, pro1_1, pro_1 );
      Com_Multi( pro0_2, pro1_2, pro_2 );
      Com_Multi( pro0_3, pro1_3, pro_3 );
      Com_Multi( pro0_4, pro1_4, pro_4 );
 
      amp_tmp1[0] = temp_PDF1 * pro_1[0];
      amp_tmp1[1] = temp_PDF1 * pro_1[1];
      amp_tmp2[0] = temp_PDF2 * pro_2[0];
      amp_tmp2[1] = temp_PDF2 * pro_2[1];
      amp_tmp3[0] = temp_PDF3 * pro_3[0];
      amp_tmp3[1] = temp_PDF3 * pro_3[1];
      amp_tmp4[0] = temp_PDF4 * pro_4[0];
      amp_tmp4[1] = temp_PDF4 * pro_4[1];
    }
 
    else if ( modetype[i] == 14 )
    {
      if ( g2[i] == 0 )
      {
        if ( B1_a1p12601 == -1 )
        {
          B1_a1p12601 = BarrierN( 1, sa1p12601, sa1pf0500, sPip1, rRes2, mass1[i] );
          B1_a1p12602 = BarrierN( 1, sa1p12602, sa1pf0500, sPip2, rRes2, mass1[i] );
        }
        if ( B1_a1rho1 == -1 )
        {
          B1_a1rho1 = BarrierN( 1, sa1rho1, sPip2, sPim, rRes2, mass2[i] );
          B1_a1rho2 = BarrierN( 1, sa1rho2, sPip1, sPim, rRes2, mass2[i] );
        }
 
        calt1( pa1pf0500, Pip1, t1a1p12601 );
        calt1( pa1pf0500, Pip2, t1a1p12602 );
        calt1( Pip2, Pim, t1a1rho1 );
        calt1( Pip1, Pim, t1a1rho2 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double ttt1a1p12601 = G[i][i] * t1a1p12601[i];
          double ttt1a1p12602 = G[i][i] * t1a1p12602[i];
 
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += G[j][j] * ttt1a1p12601 * t1a1rho1[j];
            temp_PDF2 += G[j][j] * ttt1a1p12602 * t1a1rho2[j];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_a1p12601 * B1_a1rho1;
        temp_PDF2 = temp_PDF2 * B1_a1p12602 * B1_a1rho2;
      }
 
      else if ( g2[i] == 1 )
      {
        if ( B1_a1p12601 == -1 )
        {
          B1_a1p12601 = BarrierN( 1, sa1p12601, sa1pf0500, sPip1, rRes2, mass1[i] );
          B1_a1p12602 = BarrierN( 1, sa1p12602, sa1pf0500, sPip2, rRes2, mass1[i] );
        }
        if ( B1_a1rho1 == -1 )
        {
          B1_a1rho1 = BarrierN( 1, sa1rho1, sPip2, sPim, rRes2, mass2[i] );
          B1_a1rho2 = BarrierN( 1, sa1rho2, sPip1, sPim, rRes2, mass2[i] );
        }
        if ( B1_Ds_a1p12601 == -1 )
        {
          B1_Ds_a1p12601 = BarrierN( 1, sDs, sa1p12601, sa1rho1, rDs2, mDsM );
          B1_Ds_a1p12602 = BarrierN( 1, sDs, sa1p12602, sa1rho2, rDs2, mDsM );
        }
        calt1( pa1p12601, pa1rho1, t1Ds_a1p12601 );
        calt1( pa1p12602, pa1rho2, t1Ds_a1p12602 );
        calt1( Pip2, Pim, t1a1rho1 );
        calt1( Pip1, Pim, t1a1rho2 );
        calt1( pa1pf0500, Pip1, t1a1p12601 );
        calt1( pa1pf0500, Pip2, t1a1p12602 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double ttt1a1p12601 = G[i][i] * t1a1p12601[i];
          double ttt1a1p12602 = G[i][i] * t1a1p12602[i];
          for ( int j = 0; j < 4; j++ )
          {
            double ttta1rho1 = G[j][j] * t1a1rho1[j];
            double ttta1rho2 = G[j][j] * t1a1rho2[j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double ttta1Ds1 = G[k][k] * t1Ds_a1p12601[k];
              double ttta1Ds2 = G[k][k] * t1Ds_a1p12602[k];
 
              for ( int l = 0; l < 4; l++ )
              {
                temp_PDF1 += E[i][j][k][l] * pDs[l] * ttt1a1p12601 * ttta1rho1 * ttta1Ds1;
                temp_PDF2 += E[i][j][k][l] * pDs[l] * ttt1a1p12602 * ttta1rho2 * ttta1Ds2;
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_a1p12601 * B1_a1rho1 * B1_Ds_a1p12601;
        temp_PDF2 = temp_PDF2 * B1_a1p12602 * B1_a1rho2 * B1_Ds_a1p12602;
      }
 
      else if ( g2[i] == 2 )
      {
        if ( B1_a1p12601 == -1 )
        {
          B1_a1p12601 = BarrierN( 1, sa1p12601, sa1pf0500, sPip1, rRes2, mass1[i] );
          B1_a1p12602 = BarrierN( 1, sa1p12602, sa1pf0500, sPip2, rRes2, mass1[i] );
        }
        if ( B1_a1rho1 == -1 )
        {
          B1_a1rho1 = BarrierN( 1, sa1rho1, sPip2, sPim, rRes2, mass2[i] );
          B1_a1rho2 = BarrierN( 1, sa1rho2, sPip1, sPim, rRes2, mass2[i] );
        }
 
        if ( B2_Ds_a1p12601 == -1 )
        {
          B2_Ds_a1p12601 = BarrierN( 2, sDs, sa1p12601, sa1rho1, rDs2, mDsM );
          B2_Ds_a1p12602 = BarrierN( 2, sDs, sa1p12602, sa1rho2, rDs2, mDsM );
        }
        calt2( pa1p12601, pa1rho1, t2Ds_a1p12601 );
        calt2( pa1p12602, pa1rho2, t2Ds_a1p12602 );
        calt1( pa1pf0500, Pip1, t1a1p12601 );
        calt1( pa1pf0500, Pip2, t1a1p12602 );
        calt1( Pip2, Pim, t1a1rho1 );
        calt1( Pip1, Pim, t1a1rho2 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double ttta1rho1 = t1a1rho1[i] * G[i][i];
          double ttta1rho2 = t1a1rho2[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += ttta1rho1 * t1a1p12601[j] * t2Ds_a1p12601[i][j] * G[j][j];
            temp_PDF2 += ttta1rho2 * t1a1p12602[j] * t2Ds_a1p12602[i][j] * G[j][j];
          }
        }
        temp_PDF1 = temp_PDF1 * B1_a1p12601 * B1_rho1 * B2_Ds_a1p12601;
        temp_PDF2 = temp_PDF2 * B1_a1p12602 * B1_rho2 * B2_Ds_a1p12602;
      }
 
      if ( g0[i] == 1 )
      {
        propagatorRBW( mass1sq, mass1[i], width1[i], sa1p12601, sa1pf0500, sPip1, rRes2, 1,
                       proa1p1 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sa1p12602, sa1pf0500, sPip2, rRes2, 1,
                       proa1p2 );
 
        propagatorsigma500( sa1pf0500, sPi01, sPi02, proa1pf0500 );
 
        Com_Multi( proa1p1, proa1pf0500, pro0_1 );
        Com_Multi( proa1p2, proa1pf0500, pro0_2 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_1[0] = 1;
        pro0_1[1] = 0;
        pro0_2[0] = 1;
        pro0_2[1] = 0;
      }
      if ( g1[i] == 1 )
      {
 
        propagatorGS( mass2sq, mass2[i], width2[i], sa1rho1, sPip2, sPim, rRes2, pro1_1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sa1rho2, sPip1, sPim, rRes2, pro1_2 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
      }
      Com_Multi( pro0_1, pro1_1, pro_1 );
      Com_Multi( pro0_2, pro1_2, pro_2 );
 
      amp_tmp1[0] = temp_PDF1 * pro_1[0];
      amp_tmp1[1] = temp_PDF1 * pro_1[1];
      amp_tmp2[0] = temp_PDF2 * pro_2[0];
      amp_tmp2[1] = temp_PDF2 * pro_2[1];
      amp_tmp3[0] = 0;
      amp_tmp3[1] = 0;
      amp_tmp4[0] = 0;
      amp_tmp4[1] = 0;
    }
 
    else if ( modetype[i] == 15 )
    {
      if ( g2[i] == 0 )
      {
        if ( B1_f11420rhop1 == -1 )
        {
          B1_f11420rhop1 = BarrierN( 1, sf11420rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_f11420rhop2 = BarrierN( 1, sf11420rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_f11420rhop3 = BarrierN( 1, sf11420rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_f11420rhop4 = BarrierN( 1, sf11420rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_f11420rhom1 == -1 )
        {
          B1_f11420rhom1 = BarrierN( 1, sf11420rhom1, sPim, sPi02, rRes2, mass2[i] );
          B1_f11420rhom2 = BarrierN( 1, sf11420rhom2, sPim, sPi01, rRes2, mass2[i] );
          B1_f11420rhom3 = BarrierN( 1, sf11420rhom3, sPim, sPi02, rRes2, mass2[i] );
          B1_f11420rhom4 = BarrierN( 1, sf11420rhom4, sPim, sPi01, rRes2, mass2[i] );
        }
        if ( B1_Ds_f114201 == -1 )
        {
          B1_Ds_f114201 = BarrierN( 1, sDs, sf114201, sPip2, rDs2, mDsM );
          B1_Ds_f114202 = BarrierN( 1, sDs, sf114202, sPip2, rDs2, mDsM );
          B1_Ds_f114203 = BarrierN( 1, sDs, sf114203, sPip1, rDs2, mDsM );
          B1_Ds_f114204 = BarrierN( 1, sDs, sf114204, sPip1, rDs2, mDsM );
        }
 
        for ( int i = 0; i < 4; i++ )
        {
          double ttt1Ds = t1Ds_f114201[i] * G[i][i];
          double ttt2Ds = t1Ds_f114202[i] * G[i][i];
          double ttt3Ds = t1Ds_f114203[i] * G[i][i];
          double ttt4Ds = t1Ds_f114204[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double ppp1f1 = p1f114201[i][j] * G[j][j];
            double ppp2f1 = p1f114202[i][j] * G[j][j];
            double ppp3f1 = p1f114203[i][j] * G[j][j];
            double ppp4f1 = p1f114204[i][j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double pppp1f1 = pf114201[k] * G[k][k];
              double pppp2f1 = pf114202[k] * G[k][k];
              double pppp3f1 = pf114203[k] * G[k][k];
              double pppp4f1 = pf114204[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double ttt1f1rhop = t1f11420rhop1[l] * G[l][l];
                double ttt2f1rhop = t1f11420rhop2[l] * G[l][l];
                double ttt3f1rhop = t1f11420rhop3[l] * G[l][l];
                double ttt4f1rhop = t1f11420rhop4[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += ttt1Ds * ppp1f1 * pppp1f1 * ttt1f1rhop * t1f11420rhom1[m] *
                               G[m][m] * E[j][k][l][m];
                  temp_PDF2 += ttt2Ds * ppp2f1 * pppp2f1 * ttt2f1rhop * t1f11420rhom2[m] *
                               G[m][m] * E[j][k][l][m];
                  temp_PDF3 += ttt3Ds * ppp3f1 * pppp3f1 * ttt3f1rhop * t1f11420rhom3[m] *
                               G[m][m] * E[j][k][l][m];
                  temp_PDF4 += ttt4Ds * ppp4f1 * pppp4f1 * ttt4f1rhop * t1f11420rhom4[m] *
                               G[m][m] * E[j][k][l][m];
                }
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_Ds_f114201 * B1_f11420rhop1 * B1_f11420rhom1;
        temp_PDF2 = temp_PDF2 * B1_Ds_f114202 * B1_f11420rhop2 * B1_f11420rhom2;
        temp_PDF3 = temp_PDF3 * B1_Ds_f114203 * B1_f11420rhop3 * B1_f11420rhom3;
        temp_PDF4 = temp_PDF4 * B1_Ds_f114204 * B1_f11420rhop4 * B1_f11420rhom4;
      }
 
      if ( g0[i] == 1 )
      {
        propagatorRBW( mass1sq, mass1[i], width1[i], sf114201, sf11420rhop1, sf11420rhom1,
                       rRes2, g2[i], prof114201 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sf114202, sf11420rhop2, sf11420rhom2,
                       rRes2, g2[i], prof114202 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sf114203, sf11420rhop3, sf11420rhom3,
                       rRes2, g2[i], prof114203 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sf114204, sf11420rhop4, sf11420rhom4,
                       rRes2, g2[i], prof114204 );
 
        propagatorGS( mass2sq, mass2[i], width2[i], sf11420rhop1, sPip1, sPi01, rRes2,
                      prof11420rhop1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sf11420rhop2, sPip1, sPi02, rRes2,
                      prof11420rhop2 );
        propagatorGS( mass2sq, mass2[i], width2[i], sf11420rhop3, sPip2, sPi01, rRes2,
                      prof11420rhop3 );
        propagatorGS( mass2sq, mass2[i], width2[i], sf11420rhop4, sPip2, sPi02, rRes2,
                      prof11420rhop4 );
 
        Com_Multi( prof114201, prof11420rhop1, pro0_1 );
        Com_Multi( prof114202, prof11420rhop2, pro0_2 );
        Com_Multi( prof114203, prof11420rhop3, pro0_3 );
        Com_Multi( prof114204, prof11420rhop4, pro0_4 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_1[0] = 1;
        pro0_1[1] = 0;
        pro0_2[0] = 1;
        pro0_2[1] = 0;
        pro0_3[0] = 1;
        pro0_3[1] = 0;
        pro0_4[0] = 1;
        pro0_4[1] = 0;
      }
      if ( g1[i] == 1 )
      {
 
        propagatorGS( mass2sq, mass2[i], width2[i], sf11420rhom1, sPim, sPi02, rRes2, pro1_1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sf11420rhom2, sPim, sPi01, rRes2, pro1_2 );
        propagatorGS( mass2sq, mass2[i], width2[i], sf11420rhom3, sPim, sPi02, rRes2, pro1_3 );
        propagatorGS( mass2sq, mass2[i], width2[i], sf11420rhom4, sPim, sPi01, rRes2, pro1_4 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
        pro1_3[0] = 1;
        pro1_3[1] = 0;
        pro1_4[0] = 1;
        pro1_4[1] = 0;
      }
      Com_Multi( pro0_1, pro1_1, pro_1 );
      Com_Multi( pro0_2, pro1_2, pro_2 );
      Com_Multi( pro0_3, pro1_3, pro_3 );
      Com_Multi( pro0_4, pro1_4, pro_4 );
 
      amp_tmp1[0] = temp_PDF1 * pro_1[0];
      amp_tmp1[1] = temp_PDF1 * pro_1[1];
      amp_tmp2[0] = temp_PDF2 * pro_2[0];
      amp_tmp2[1] = temp_PDF2 * pro_2[1];
      amp_tmp3[0] = temp_PDF3 * pro_3[0];
      amp_tmp3[1] = temp_PDF3 * pro_3[1];
      amp_tmp4[0] = temp_PDF4 * pro_4[0];
      amp_tmp4[1] = temp_PDF4 * pro_4[1];
    }
 
    else if ( modetype[i] == 16 )
    {
      if ( g2[i] == 1020 )
      {
        if ( B1_r1a1rho01 == -1 )
        {
          B1_r1a1rho01 = BarrierN( 1, sr1a1rho01, sPip1, sPim, rRes2, mass2[i] );
          B1_r1a1rho02 = BarrierN( 1, sr1a1rho02, sPip1, sPim, rRes2, mass2[i] );
          B1_r1a1rho03 = BarrierN( 1, sr1a1rho03, sPip2, sPim, rRes2, mass2[i] );
          B1_r1a1rho04 = BarrierN( 1, sr1a1rho04, sPip2, sPim, rRes2, mass2[i] );
        }
        if ( B1_r1rhop1 == -1 )
        {
          B1_r1rhop1 = BarrierN( 1, sr1rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r1rhop2 = BarrierN( 1, sr1rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r1rhop3 = BarrierN( 1, sr1rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r1rhop4 = BarrierN( 1, sr1rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        calG2( pr1a1rho01, Pi01, p1r1a11 );
        calG2( pr1a1rho02, Pi02, p1r1a12 );
        calG2( pr1a1rho03, Pi01, p1r1a13 );
        calG2( pr1a1rho04, Pi02, p1r1a14 );
        calt1( Pip1, Pim, t1r1a1rho01 );
        calt1( Pip1, Pim, t1r1a1rho02 );
        calt1( Pip2, Pim, t1r1a1rho03 );
        calt1( Pip2, Pim, t1r1a1rho04 );
        calt1( Pip2, Pi02, t1r1rhop1 );
        calt1( Pip2, Pi01, t1r1rhop2 );
        calt1( Pip1, Pi02, t1r1rhop3 );
        calt1( Pip1, Pi01, t1r1rhop4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double ttt1rho0 = t1r1a1rho01[i] * G[i][i];
          double ttt2rho0 = t1r1a1rho02[i] * G[i][i];
          double ttt3rho0 = t1r1a1rho03[i] * G[i][i];
          double ttt4rho0 = t1r1a1rho04[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += ttt1rho0 * t1r1rhop1[j] * G[j][j] * p1r1a11[i][j];
            temp_PDF2 += ttt2rho0 * t1r1rhop2[j] * G[j][j] * p1r1a12[i][j];
            temp_PDF3 += ttt3rho0 * t1r1rhop3[j] * G[j][j] * p1r1a13[i][j];
            temp_PDF4 += ttt4rho0 * t1r1rhop4[j] * G[j][j] * p1r1a14[i][j];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r1a1rho01 * B1_r1rhop1;
        temp_PDF2 = temp_PDF2 * B1_r1a1rho02 * B1_r1rhop2;
        temp_PDF3 = temp_PDF3 * B1_r1a1rho03 * B1_r1rhop3;
        temp_PDF4 = temp_PDF4 * B1_r1a1rho04 * B1_r1rhop4;
      }
 
      else if ( g2[i] == 1022 )
      {
        if ( B1_r1a1rho01 == -1 )
        {
          B1_r1a1rho01 = BarrierN( 1, sr1a1rho01, sPip1, sPim, rRes2, mass2[i] );
          B1_r1a1rho02 = BarrierN( 1, sr1a1rho02, sPip1, sPim, rRes2, mass2[i] );
          B1_r1a1rho03 = BarrierN( 1, sr1a1rho03, sPip2, sPim, rRes2, mass2[i] );
          B1_r1a1rho04 = BarrierN( 1, sr1a1rho04, sPip2, sPim, rRes2, mass2[i] );
        }
        if ( B1_r1rhop1 == -1 )
        {
          B1_r1rhop1 = BarrierN( 1, sr1rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r1rhop2 = BarrierN( 1, sr1rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r1rhop3 = BarrierN( 1, sr1rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r1rhop4 = BarrierN( 1, sr1rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        if ( B2_r1a11 == -1 )
        {
          B2_r1a11 = BarrierN( 2, sr1a11, sr1a1rho01, sPi01, rRes2, mass1[i] );
          B2_r1a12 = BarrierN( 2, sr1a12, sr1a1rho02, sPi02, rRes2, mass1[i] );
          B2_r1a13 = BarrierN( 2, sr1a13, sr1a1rho03, sPi01, rRes2, mass1[i] );
          B2_r1a14 = BarrierN( 2, sr1a14, sr1a1rho04, sPi02, rRes2, mass1[i] );
        }
 
        calt1( Pip1, Pim, t1r1a1rho01 );
        calt1( Pip1, Pim, t1r1a1rho02 );
        calt1( Pip2, Pim, t1r1a1rho03 );
        calt1( Pip2, Pim, t1r1a1rho04 );
        calt1( Pip2, Pi02, t1r1rhop1 );
        calt1( Pip2, Pi01, t1r1rhop2 );
        calt1( Pip1, Pi02, t1r1rhop3 );
        calt1( Pip1, Pi01, t1r1rhop4 );
        calt2( pr1a1rho01, Pi01, t2r1a11 );
        calt2( pr1a1rho02, Pi02, t2r1a12 );
        calt2( pr1a1rho03, Pi01, t2r1a13 );
        calt2( pr1a1rho04, Pi02, t2r1a14 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r1rhop1[i] * G[i][i];
          double tttrhop2 = t1r1rhop2[i] * G[i][i];
          double tttrhop3 = t1r1rhop3[i] * G[i][i];
          double tttrhop4 = t1r1rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
 
            temp_PDF1 += tttrhop1 * t1r1a1rho01[j] * G[j][j] * t2r1a11[j][i];
            temp_PDF2 += tttrhop2 * t1r1a1rho02[j] * G[j][j] * t2r1a12[j][i];
            temp_PDF3 += tttrhop3 * t1r1a1rho03[j] * G[j][j] * t2r1a13[j][i];
            temp_PDF4 += tttrhop4 * t1r1a1rho04[j] * G[j][j] * t2r1a14[j][i];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r1a1rho01 * B1_r1rhop1 * B2_r1a11;
        temp_PDF2 = temp_PDF2 * B1_r1a1rho02 * B1_r1rhop2 * B2_r1a12;
        temp_PDF3 = temp_PDF3 * B1_r1a1rho03 * B1_r1rhop3 * B2_r1a13;
        temp_PDF4 = temp_PDF4 * B1_r1a1rho04 * B1_r1rhop4 * B2_r1a14;
      }
 
      else if ( g2[i] == 1120 )
      {
        if ( B1_r1a1rho01 == -1 )
        {
          B1_r1a1rho01 = BarrierN( 1, sr1a1rho01, sPip1, sPim, rRes2, mass2[i] );
          B1_r1a1rho02 = BarrierN( 1, sr1a1rho02, sPip1, sPim, rRes2, mass2[i] );
          B1_r1a1rho03 = BarrierN( 1, sr1a1rho03, sPip2, sPim, rRes2, mass2[i] );
          B1_r1a1rho04 = BarrierN( 1, sr1a1rho04, sPip2, sPim, rRes2, mass2[i] );
        }
        if ( B1_r1rhop1 == -1 )
        {
          B1_r1rhop1 = BarrierN( 1, sr1rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r1rhop2 = BarrierN( 1, sr1rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r1rhop3 = BarrierN( 1, sr1rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r1rhop4 = BarrierN( 1, sr1rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
        if ( B1_Ds_r1a1rhop1 == -1 )
        {
          B1_Ds_r1a1rhop1 = BarrierN( 1, sDs, sr1a11, sr1rhop1, rDs2, mDsM );
          B1_Ds_r1a1rhop2 = BarrierN( 1, sDs, sr1a12, sr1rhop2, rDs2, mDsM );
          B1_Ds_r1a1rhop3 = BarrierN( 1, sDs, sr1a13, sr1rhop3, rDs2, mDsM );
          B1_Ds_r1a1rhop4 = BarrierN( 1, sDs, sr1a14, sr1rhop4, rDs2, mDsM );
        }
 
        calG2( pr1a1rho01, Pi01, p1r1a11 );
        calG2( pr1a1rho02, Pi02, p1r1a12 );
        calG2( pr1a1rho03, Pi01, p1r1a13 );
        calG2( pr1a1rho04, Pi02, p1r1a14 );
        calt1( Pip1, Pim, t1r1a1rho01 );
        calt1( Pip1, Pim, t1r1a1rho02 );
        calt1( Pip2, Pim, t1r1a1rho03 );
        calt1( Pip2, Pim, t1r1a1rho04 );
        calt1( Pip2, Pi02, t1r1rhop1 );
        calt1( Pip2, Pi01, t1r1rhop2 );
        calt1( Pip1, Pi02, t1r1rhop3 );
        calt1( Pip1, Pi01, t1r1rhop4 );
        calt1( pr1a11, pr1rhop1, t1Ds_r1a1rhop1 );
        calt1( pr1a12, pr1rhop2, t1Ds_r1a1rhop2 );
        calt1( pr1a13, pr1rhop3, t1Ds_r1a1rhop3 );
        calt1( pr1a14, pr1rhop4, t1Ds_r1a1rhop4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r1rhop1[i] * G[i][i];
          double tttrhop2 = t1r1rhop2[i] * G[i][i];
          double tttrhop3 = t1r1rhop3[i] * G[i][i];
          double tttrhop4 = t1r1rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrho01 = t1r1a1rho01[j] * G[j][j];
            double tttrho02 = t1r1a1rho02[j] * G[j][j];
            double tttrho03 = t1r1a1rho03[j] * G[j][j];
            double tttrho04 = t1r1a1rho04[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double tttDs1 = t1Ds_r1a1rhop1[k] * G[k][k];
              double tttDs2 = t1Ds_r1a1rhop2[k] * G[k][k];
              double tttDs3 = t1Ds_r1a1rhop3[k] * G[k][k];
              double tttDs4 = t1Ds_r1a1rhop4[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double pppDs1 = pDs[l] * G[l][l];
                double pppDs2 = pDs[l] * G[l][l];
                double pppDs3 = pDs[l] * G[l][l];
                double pppDs4 = pDs[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += tttrhop1 * tttrho01 * tttDs1 * pppDs1 * p1r1a11[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF2 += tttrhop2 * tttrho02 * tttDs2 * pppDs2 * p1r1a12[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF3 += tttrhop3 * tttrho03 * tttDs3 * pppDs3 * p1r1a13[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF4 += tttrhop4 * tttrho04 * tttDs4 * pppDs4 * p1r1a14[m][j] *
                               G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r1a1rho01 * B1_r1rhop1 * B1_Ds_r1a1rhop1;
        temp_PDF2 = temp_PDF2 * B1_r1a1rho02 * B1_r1rhop2 * B1_Ds_r1a1rhop2;
        temp_PDF3 = temp_PDF3 * B1_r1a1rho03 * B1_r1rhop3 * B1_Ds_r1a1rhop3;
        temp_PDF4 = temp_PDF4 * B1_r1a1rho04 * B1_r1rhop4 * B1_Ds_r1a1rhop4;
      }
 
      else if ( g2[i] == 1122 )
      {
        if ( B1_r1a1rho01 == -1 )
        {
          B1_r1a1rho01 = BarrierN( 1, sr1a1rho01, sPip1, sPim, rRes2, mass2[i] );
          B1_r1a1rho02 = BarrierN( 1, sr1a1rho02, sPip1, sPim, rRes2, mass2[i] );
          B1_r1a1rho03 = BarrierN( 1, sr1a1rho03, sPip2, sPim, rRes2, mass2[i] );
          B1_r1a1rho04 = BarrierN( 1, sr1a1rho04, sPip2, sPim, rRes2, mass2[i] );
        }
        if ( B1_r1rhop1 == -1 )
        {
          B1_r1rhop1 = BarrierN( 1, sr1rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r1rhop2 = BarrierN( 1, sr1rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r1rhop3 = BarrierN( 1, sr1rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r1rhop4 = BarrierN( 1, sr1rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
        if ( B1_Ds_r1a1rhop1 == -1 )
        {
          B1_Ds_r1a1rhop1 = BarrierN( 1, sDs, sr1a11, sr1rhop1, rDs2, mDsM );
          B1_Ds_r1a1rhop2 = BarrierN( 1, sDs, sr1a12, sr1rhop2, rDs2, mDsM );
          B1_Ds_r1a1rhop3 = BarrierN( 1, sDs, sr1a13, sr1rhop3, rDs2, mDsM );
          B1_Ds_r1a1rhop4 = BarrierN( 1, sDs, sr1a14, sr1rhop4, rDs2, mDsM );
        }
        if ( B2_r1a11 == -1 )
        {
          B2_r1a11 = BarrierN( 2, sr1a11, sr1a1rho01, sPi01, rRes2, mass1[i] );
          B2_r1a12 = BarrierN( 2, sr1a12, sr1a1rho02, sPi02, rRes2, mass1[i] );
          B2_r1a13 = BarrierN( 2, sr1a13, sr1a1rho03, sPi01, rRes2, mass1[i] );
          B2_r1a14 = BarrierN( 2, sr1a14, sr1a1rho04, sPi02, rRes2, mass1[i] );
        }
 
        calt1( Pip1, Pim, t1r1a1rho01 );
        calt1( Pip1, Pim, t1r1a1rho02 );
        calt1( Pip2, Pim, t1r1a1rho03 );
        calt1( Pip2, Pim, t1r1a1rho04 );
        calt1( Pip2, Pi02, t1r1rhop1 );
        calt1( Pip2, Pi01, t1r1rhop2 );
        calt1( Pip1, Pi02, t1r1rhop3 );
        calt1( Pip1, Pi01, t1r1rhop4 );
        calt1( pr1a11, pr1rhop1, t1Ds_r1a1rhop1 );
        calt1( pr1a12, pr1rhop2, t1Ds_r1a1rhop2 );
        calt1( pr1a13, pr1rhop3, t1Ds_r1a1rhop3 );
        calt1( pr1a14, pr1rhop4, t1Ds_r1a1rhop4 );
        calt2( pr1a1rho01, Pi01, t2r1a11 );
        calt2( pr1a1rho02, Pi02, t2r1a12 );
        calt2( pr1a1rho03, Pi01, t2r1a13 );
        calt2( pr1a1rho04, Pi02, t2r1a14 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r1rhop1[i] * G[i][i];
          double tttrhop2 = t1r1rhop2[i] * G[i][i];
          double tttrhop3 = t1r1rhop3[i] * G[i][i];
          double tttrhop4 = t1r1rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrho01 = t1r1a1rho01[j] * G[j][j];
            double tttrho02 = t1r1a1rho02[j] * G[j][j];
            double tttrho03 = t1r1a1rho03[j] * G[j][j];
            double tttrho04 = t1r1a1rho04[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double tttDs1 = t1Ds_r1a1rhop1[k] * G[k][k];
              double tttDs2 = t1Ds_r1a1rhop2[k] * G[k][k];
              double tttDs3 = t1Ds_r1a1rhop3[k] * G[k][k];
              double tttDs4 = t1Ds_r1a1rhop4[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double ttta11 = t2r1a11[l][j] * G[l][l];
                double ttta12 = t2r1a12[l][j] * G[l][l];
                double ttta13 = t2r1a13[l][j] * G[l][l];
                double ttta14 = t2r1a14[l][j] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
 
                  temp_PDF1 +=
                      tttrhop1 * tttrho01 * tttDs1 * ttta11 * pDs[m] * G[m][m] * E[m][l][i][k];
                  temp_PDF2 +=
                      tttrhop2 * tttrho02 * tttDs2 * ttta12 * pDs[m] * G[m][m] * E[m][l][i][k];
                  temp_PDF3 +=
                      tttrhop3 * tttrho03 * tttDs3 * ttta13 * pDs[m] * G[m][m] * E[m][l][i][k];
                  temp_PDF4 +=
                      tttrhop4 * tttrho04 * tttDs4 * ttta14 * pDs[m] * G[m][m] * E[m][l][i][k];
                }
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r1a1rho01 * B1_r1rhop1 * B1_Ds_r1a1rhop1 * B2_r1a11;
        temp_PDF2 = temp_PDF2 * B1_r1a1rho02 * B1_r1rhop2 * B1_Ds_r1a1rhop2 * B2_r1a12;
        temp_PDF3 = temp_PDF3 * B1_r1a1rho03 * B1_r1rhop3 * B1_Ds_r1a1rhop3 * B2_r1a13;
        temp_PDF4 = temp_PDF4 * B1_r1a1rho04 * B1_r1rhop4 * B1_Ds_r1a1rhop4 * B2_r1a14;
      }
 
      else if ( g2[i] == 1220 )
      {
        if ( B1_r1a1rho01 == -1 )
        {
          B1_r1a1rho01 = BarrierN( 1, sr1a1rho01, sPip1, sPim, rRes2, mass2[i] );
          B1_r1a1rho02 = BarrierN( 1, sr1a1rho02, sPip1, sPim, rRes2, mass2[i] );
          B1_r1a1rho03 = BarrierN( 1, sr1a1rho03, sPip2, sPim, rRes2, mass2[i] );
          B1_r1a1rho04 = BarrierN( 1, sr1a1rho04, sPip2, sPim, rRes2, mass2[i] );
        }
        if ( B1_r1rhop1 == -1 )
        {
          B1_r1rhop1 = BarrierN( 1, sr1rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r1rhop2 = BarrierN( 1, sr1rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r1rhop3 = BarrierN( 1, sr1rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r1rhop4 = BarrierN( 1, sr1rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
        if ( B2_Ds_r1a1rhop1 == -1 )
        {
          B2_Ds_r1a1rhop1 = BarrierN( 2, sDs, sr1a11, sr1rhop1, rDs2, mDsM );
          B2_Ds_r1a1rhop2 = BarrierN( 2, sDs, sr1a12, sr1rhop2, rDs2, mDsM );
          B2_Ds_r1a1rhop3 = BarrierN( 2, sDs, sr1a13, sr1rhop3, rDs2, mDsM );
          B2_Ds_r1a1rhop4 = BarrierN( 2, sDs, sr1a14, sr1rhop4, rDs2, mDsM );
        }
 
        calG2( pr1a1rho01, Pi01, p1r1a11 );
        calG2( pr1a1rho02, Pi02, p1r1a12 );
        calG2( pr1a1rho03, Pi01, p1r1a13 );
        calG2( pr1a1rho04, Pi02, p1r1a14 );
        calt1( Pip1, Pim, t1r1a1rho01 );
        calt1( Pip1, Pim, t1r1a1rho02 );
        calt1( Pip2, Pim, t1r1a1rho03 );
        calt1( Pip2, Pim, t1r1a1rho04 );
        calt1( Pip2, Pi02, t1r1rhop1 );
        calt1( Pip2, Pi01, t1r1rhop2 );
        calt1( Pip1, Pi02, t1r1rhop3 );
        calt1( Pip1, Pi01, t1r1rhop4 );
        calt2( pr1a11, pr1rhop1, t2Ds_r1a1rhop1 );
        calt2( pr1a12, pr1rhop2, t2Ds_r1a1rhop2 );
        calt2( pr1a13, pr1rhop3, t2Ds_r1a1rhop3 );
        calt2( pr1a14, pr1rhop4, t2Ds_r1a1rhop4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r1rhop1[i] * G[i][i];
          double tttrhop2 = t1r1rhop2[i] * G[i][i];
          double tttrhop3 = t1r1rhop3[i] * G[i][i];
          double tttrhop4 = t1r1rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrho01 = t1r1a1rho01[j] * G[j][j];
            double tttrho02 = t1r1a1rho02[j] * G[j][j];
            double tttrho03 = t1r1a1rho03[j] * G[j][j];
            double tttrho04 = t1r1a1rho04[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              temp_PDF1 += tttrhop1 * tttrho01 * p1r1a11[k][j] * t2Ds_r1a1rhop1[k][i];
              temp_PDF2 += tttrhop2 * tttrho02 * p1r1a12[k][j] * t2Ds_r1a1rhop2[k][i];
              temp_PDF3 += tttrhop3 * tttrho03 * p1r1a13[k][j] * t2Ds_r1a1rhop3[k][i];
              temp_PDF4 += tttrhop4 * tttrho04 * p1r1a14[k][j] * t2Ds_r1a1rhop4[k][i];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r1a1rho01 * B1_r1rhop1 * B2_Ds_r1a1rhop1;
        temp_PDF2 = temp_PDF2 * B1_r1a1rho02 * B1_r1rhop2 * B2_Ds_r1a1rhop2;
        temp_PDF3 = temp_PDF3 * B1_r1a1rho03 * B1_r1rhop3 * B2_Ds_r1a1rhop3;
        temp_PDF4 = temp_PDF4 * B1_r1a1rho04 * B1_r1rhop4 * B2_Ds_r1a1rhop4;
      }
 
      else if ( g2[i] == 1222 )
      {
 
        if ( B1_r1a1rho01 == -1 )
        {
          B1_r1a1rho01 = BarrierN( 1, sr1a1rho01, sPip1, sPim, rRes2, mass2[i] );
          B1_r1a1rho02 = BarrierN( 1, sr1a1rho02, sPip1, sPim, rRes2, mass2[i] );
          B1_r1a1rho03 = BarrierN( 1, sr1a1rho03, sPip2, sPim, rRes2, mass2[i] );
          B1_r1a1rho04 = BarrierN( 1, sr1a1rho04, sPip2, sPim, rRes2, mass2[i] );
        }
        if ( B1_r1rhop1 == -1 )
        {
          B1_r1rhop1 = BarrierN( 1, sr1rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r1rhop2 = BarrierN( 1, sr1rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r1rhop3 = BarrierN( 1, sr1rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r1rhop4 = BarrierN( 1, sr1rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
        if ( B2_Ds_r1a1rhop1 == -1 )
        {
          B2_Ds_r1a1rhop1 = BarrierN( 2, sDs, sr1a11, sr1rhop1, rDs2, mDsM );
          B2_Ds_r1a1rhop2 = BarrierN( 2, sDs, sr1a12, sr1rhop2, rDs2, mDsM );
          B2_Ds_r1a1rhop3 = BarrierN( 2, sDs, sr1a13, sr1rhop3, rDs2, mDsM );
          B2_Ds_r1a1rhop4 = BarrierN( 2, sDs, sr1a14, sr1rhop4, rDs2, mDsM );
        }
        if ( B2_r1a11 == -1 )
        {
          B2_r1a11 = BarrierN( 2, sr1a11, sr1a1rho01, sPi01, rRes2, mass1[i] );
          B2_r1a12 = BarrierN( 2, sr1a12, sr1a1rho02, sPi02, rRes2, mass1[i] );
          B2_r1a13 = BarrierN( 2, sr1a13, sr1a1rho03, sPi01, rRes2, mass1[i] );
          B2_r1a14 = BarrierN( 2, sr1a14, sr1a1rho04, sPi02, rRes2, mass1[i] );
        }
 
        calt1( Pip1, Pim, t1r1a1rho01 );
        calt1( Pip1, Pim, t1r1a1rho02 );
        calt1( Pip2, Pim, t1r1a1rho03 );
        calt1( Pip2, Pim, t1r1a1rho04 );
        calt1( Pip2, Pi02, t1r1rhop1 );
        calt1( Pip2, Pi01, t1r1rhop2 );
        calt1( Pip1, Pi02, t1r1rhop3 );
        calt1( Pip1, Pi01, t1r1rhop4 );
        calt2( pr1a11, pr1rhop1, t2Ds_r1a1rhop1 );
        calt2( pr1a12, pr1rhop2, t2Ds_r1a1rhop2 );
        calt2( pr1a13, pr1rhop3, t2Ds_r1a1rhop3 );
        calt2( pr1a14, pr1rhop4, t2Ds_r1a1rhop4 );
        calt2( pr1a1rho01, Pi01, t2r1a11 );
        calt2( pr1a1rho02, Pi02, t2r1a12 );
        calt2( pr1a1rho03, Pi01, t2r1a13 );
        calt2( pr1a1rho04, Pi02, t2r1a14 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r1rhop1[i] * G[i][i];
          double tttrhop2 = t1r1rhop2[i] * G[i][i];
          double tttrhop3 = t1r1rhop3[i] * G[i][i];
          double tttrhop4 = t1r1rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrho01 = t1r1a1rho01[j] * G[j][j];
            double tttrho02 = t1r1a1rho02[j] * G[j][j];
            double tttrho03 = t1r1a1rho03[j] * G[j][j];
            double tttrho04 = t1r1a1rho04[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
 
              temp_PDF1 +=
                  tttrhop1 * tttrho01 * t2Ds_r1a1rhop1[k][i] * G[k][k] * t2r1a11[k][j];
              temp_PDF2 +=
                  tttrhop2 * tttrho02 * t2Ds_r1a1rhop2[k][i] * G[k][k] * t2r1a12[k][j];
              temp_PDF3 +=
                  tttrhop3 * tttrho03 * t2Ds_r1a1rhop3[k][i] * G[k][k] * t2r1a13[k][j];
              temp_PDF4 +=
                  tttrhop4 * tttrho04 * t2Ds_r1a1rhop4[k][i] * G[k][k] * t2r1a14[k][j];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r1a1rho01 * B1_r1rhop1 * B2_Ds_r1a1rhop1 * B2_r1a11;
        temp_PDF2 = temp_PDF2 * B1_r1a1rho02 * B1_r1rhop2 * B2_Ds_r1a1rhop2 * B2_r1a12;
        temp_PDF3 = temp_PDF3 * B1_r1a1rho03 * B1_r1rhop3 * B2_Ds_r1a1rhop3 * B2_r1a13;
        temp_PDF4 = temp_PDF4 * B1_r1a1rho04 * B1_r1rhop4 * B2_Ds_r1a1rhop4 * B2_r1a14;
      }
 
      if ( g0[i] == 1 )
      {
        if ( g2[i] == 1020 || g2[i] == 1120 || g2[i] == 1220 )
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr1a11, sr1a1rho01, sPi01, rRes2, 0,
                            pro00_1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr1a12, sr1a1rho02, sPi02, rRes2, 0,
                            pro00_2 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr1a13, sr1a1rho03, sPi01, rRes2, 0,
                            pro00_3 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr1a14, sr1a1rho04, sPi02, rRes2, 0,
                            pro00_4 );
        }
        else
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr1a11, sr1a1rho01, sPi01, rRes2, 2,
                            pro00_1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr1a12, sr1a1rho02, sPi02, rRes2, 2,
                            pro00_2 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr1a13, sr1a1rho03, sPi01, rRes2, 2,
                            pro00_3 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr1a14, sr1a1rho04, sPi02, rRes2, 2,
                            pro00_4 );
        }
 
        propagatorGS( mass2sq, mass2[i], width2[i], sr1a1rho01, sPip1, sPim, rRes2, pro01_1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr1a1rho02, sPip1, sPim, rRes2, pro01_2 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr1a1rho03, sPip2, sPim, rRes2, pro01_3 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr1a1rho04, sPip2, sPim, rRes2, pro01_4 );
 
        Com_Multi( pro00_1, pro01_1, pro0_1 );
        Com_Multi( pro00_2, pro01_2, pro0_2 );
        Com_Multi( pro00_3, pro01_3, pro0_3 );
        Com_Multi( pro00_4, pro01_4, pro0_4 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_1[0] = 1;
        pro0_1[1] = 0;
        pro0_2[0] = 1;
        pro0_2[1] = 0;
        pro0_3[0] = 1;
        pro0_3[1] = 0;
        pro0_4[0] = 1;
        pro0_4[1] = 0;
      }
 
      if ( g1[i] == 1 )
      {
 
        propagatorGS( mass2sq, mass2[i], width2[i], sr1rhop1, sPip2, sPi02, rRes2, pro1_1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr1rhop2, sPip2, sPi01, rRes2, pro1_2 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr1rhop3, sPip1, sPi02, rRes2, pro1_3 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr1rhop4, sPip1, sPi01, rRes2, pro1_4 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
        pro1_3[0] = 1;
        pro1_3[1] = 0;
        pro1_4[0] = 1;
        pro1_4[1] = 0;
      }
 
      Com_Multi( pro0_1, pro1_1, pro_1 );
      Com_Multi( pro0_2, pro1_2, pro_2 );
      Com_Multi( pro0_3, pro1_3, pro_3 );
      Com_Multi( pro0_4, pro1_4, pro_4 );
 
      amp_tmp1[0] = temp_PDF1 * pro_1[0];
      amp_tmp1[1] = temp_PDF1 * pro_1[1];
      amp_tmp2[0] = temp_PDF2 * pro_2[0];
      amp_tmp2[1] = temp_PDF2 * pro_2[1];
      amp_tmp3[0] = temp_PDF3 * pro_3[0];
      amp_tmp3[1] = temp_PDF3 * pro_3[1];
      amp_tmp4[0] = temp_PDF4 * pro_4[0];
      amp_tmp4[1] = temp_PDF4 * pro_4[1];
    }
 
    else if ( modetype[i] == 17 )
    {
      if ( g2[i] == 1020 )
      {
        if ( B1_r2a1rhop1 == -1 )
        {
          B1_r2a1rhop1 = BarrierN( 1, sr2a1rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_r2a1rhop2 = BarrierN( 1, sr2a1rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_r2a1rhop3 = BarrierN( 1, sr2a1rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_r2a1rhop4 = BarrierN( 1, sr2a1rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_r2rhop1 == -1 )
        {
          B1_r2rhop1 = BarrierN( 1, sr2rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r2rhop2 = BarrierN( 1, sr2rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r2rhop3 = BarrierN( 1, sr2rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r2rhop4 = BarrierN( 1, sr2rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        calG2( pr2a1rhop1, Pim, p1r2a11 );
        calG2( pr2a1rhop2, Pim, p1r2a12 );
        calG2( pr2a1rhop3, Pim, p1r2a13 );
        calG2( pr2a1rhop4, Pim, p1r2a14 );
        calt1( Pip1, Pi01, t1r2a1rhop1 );
        calt1( Pip1, Pi02, t1r2a1rhop2 );
        calt1( Pip2, Pi01, t1r2a1rhop3 );
        calt1( Pip2, Pi02, t1r2a1rhop4 );
        calt1( Pip2, Pi02, t1r2rhop1 );
        calt1( Pip2, Pi01, t1r2rhop2 );
        calt1( Pip1, Pi02, t1r2rhop3 );
        calt1( Pip1, Pi01, t1r2rhop4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double ttt1rho0 = t1r2a1rhop1[i] * G[i][i];
          double ttt2rho0 = t1r2a1rhop2[i] * G[i][i];
          double ttt3rho0 = t1r2a1rhop3[i] * G[i][i];
          double ttt4rho0 = t1r2a1rhop4[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += ttt1rho0 * t1r2rhop1[j] * G[j][j] * p1r2a11[i][j];
            temp_PDF2 += ttt2rho0 * t1r2rhop2[j] * G[j][j] * p1r2a12[i][j];
            temp_PDF3 += ttt3rho0 * t1r2rhop3[j] * G[j][j] * p1r2a13[i][j];
            temp_PDF4 += ttt4rho0 * t1r2rhop4[j] * G[j][j] * p1r2a14[i][j];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r2a1rhop1 * B1_r2rhop1;
        temp_PDF2 = temp_PDF2 * B1_r2a1rhop2 * B1_r2rhop2;
        temp_PDF3 = temp_PDF3 * B1_r2a1rhop3 * B1_r2rhop3;
        temp_PDF4 = temp_PDF4 * B1_r2a1rhop4 * B1_r2rhop4;
      }
 
      else if ( g2[i] == 1022 )
      {
        if ( B1_r2a1rhop1 == -1 )
        {
          B1_r2a1rhop1 = BarrierN( 1, sr2a1rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_r2a1rhop2 = BarrierN( 1, sr2a1rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_r2a1rhop3 = BarrierN( 1, sr2a1rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_r2a1rhop4 = BarrierN( 1, sr2a1rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_r2rhop1 == -1 )
        {
          B1_r2rhop1 = BarrierN( 1, sr2rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r2rhop2 = BarrierN( 1, sr2rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r2rhop3 = BarrierN( 1, sr2rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r2rhop4 = BarrierN( 1, sr2rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
        if ( B2_r2a11 == -1 )
        {
          B2_r2a11 = BarrierN( 2, sr2a11, sr2a1rhop1, sPim, rRes2, mass1[i] );
          B2_r2a12 = BarrierN( 2, sr2a12, sr2a1rhop2, sPim, rRes2, mass1[i] );
          B2_r2a13 = BarrierN( 2, sr2a13, sr2a1rhop3, sPim, rRes2, mass1[i] );
          B2_r2a14 = BarrierN( 2, sr2a14, sr2a1rhop4, sPim, rRes2, mass1[i] );
        }
 
        calt1( Pip1, Pi01, t1r2a1rhop1 );
        calt1( Pip1, Pi02, t1r2a1rhop2 );
        calt1( Pip2, Pi01, t1r2a1rhop3 );
        calt1( Pip2, Pi02, t1r2a1rhop4 );
        calt1( Pip2, Pi02, t1r2rhop1 );
        calt1( Pip2, Pi01, t1r2rhop2 );
        calt1( Pip1, Pi02, t1r2rhop3 );
        calt1( Pip1, Pi01, t1r2rhop4 );
        calt2( pr2a1rhop1, Pim, t2r2a11 );
        calt2( pr2a1rhop2, Pim, t2r2a12 );
        calt2( pr2a1rhop3, Pim, t2r2a13 );
        calt2( pr2a1rhop4, Pim, t2r2a14 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r2rhop1[i] * G[i][i];
          double tttrhop2 = t1r2rhop2[i] * G[i][i];
          double tttrhop3 = t1r2rhop3[i] * G[i][i];
          double tttrhop4 = t1r2rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
 
            temp_PDF1 += tttrhop1 * t1r2a1rhop1[j] * G[j][j] * t2r2a11[j][i];
            temp_PDF2 += tttrhop2 * t1r2a1rhop2[j] * G[j][j] * t2r2a12[j][i];
            temp_PDF3 += tttrhop3 * t1r2a1rhop3[j] * G[j][j] * t2r2a13[j][i];
            temp_PDF4 += tttrhop4 * t1r2a1rhop4[j] * G[j][j] * t2r2a14[j][i];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r2a1rhop1 * B1_r2rhop1 * B2_r2a11;
        temp_PDF2 = temp_PDF2 * B1_r2a1rhop2 * B1_r2rhop2 * B2_r2a12;
        temp_PDF3 = temp_PDF3 * B1_r2a1rhop3 * B1_r2rhop3 * B2_r2a13;
        temp_PDF4 = temp_PDF4 * B1_r2a1rhop4 * B1_r2rhop4 * B2_r2a14;
      }
 
      else if ( g2[i] == 1120 )
      {
        if ( B1_r2a1rhop1 == -1 )
        {
          B1_r2a1rhop1 = BarrierN( 1, sr2a1rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_r2a1rhop2 = BarrierN( 1, sr2a1rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_r2a1rhop3 = BarrierN( 1, sr2a1rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_r2a1rhop4 = BarrierN( 1, sr2a1rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_r2rhop1 == -1 )
        {
          B1_r2rhop1 = BarrierN( 1, sr2rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r2rhop2 = BarrierN( 1, sr2rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r2rhop3 = BarrierN( 1, sr2rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r2rhop4 = BarrierN( 1, sr2rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        if ( B1_Ds_r2a1rhop1 == -1 )
        {
          B1_Ds_r2a1rhop1 = BarrierN( 1, sDs, sr2a11, sr2rhop1, rDs2, mDsM );
          B1_Ds_r2a1rhop2 = BarrierN( 1, sDs, sr2a12, sr2rhop2, rDs2, mDsM );
          B1_Ds_r2a1rhop3 = BarrierN( 1, sDs, sr2a13, sr2rhop3, rDs2, mDsM );
          B1_Ds_r2a1rhop4 = BarrierN( 1, sDs, sr2a14, sr2rhop4, rDs2, mDsM );
        }
 
        calG2( pr2a1rhop1, Pim, p1r2a11 );
        calG2( pr2a1rhop2, Pim, p1r2a12 );
        calG2( pr2a1rhop3, Pim, p1r2a13 );
        calG2( pr2a1rhop4, Pim, p1r2a14 );
        calt1( Pip1, Pi01, t1r2a1rhop1 );
        calt1( Pip1, Pi02, t1r2a1rhop2 );
        calt1( Pip2, Pi01, t1r2a1rhop3 );
        calt1( Pip2, Pi02, t1r2a1rhop4 );
        calt1( Pip2, Pi02, t1r2rhop1 );
        calt1( Pip2, Pi01, t1r2rhop2 );
        calt1( Pip1, Pi02, t1r2rhop3 );
        calt1( Pip1, Pi01, t1r2rhop4 );
        calt1( pr2a11, pr2rhop1, t1Ds_r2a1rhop1 );
        calt1( pr2a12, pr2rhop2, t1Ds_r2a1rhop2 );
        calt1( pr2a13, pr2rhop3, t1Ds_r2a1rhop3 );
        calt1( pr2a14, pr2rhop4, t1Ds_r2a1rhop4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r2rhop1[i] * G[i][i];
          double tttrhop2 = t1r2rhop2[i] * G[i][i];
          double tttrhop3 = t1r2rhop3[i] * G[i][i];
          double tttrhop4 = t1r2rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrho01 = t1r2a1rhop1[j] * G[j][j];
            double tttrho02 = t1r2a1rhop2[j] * G[j][j];
            double tttrho03 = t1r2a1rhop3[j] * G[j][j];
            double tttrho04 = t1r2a1rhop4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double tttDs1 = t1Ds_r2a1rhop1[k] * G[k][k];
              double tttDs2 = t1Ds_r2a1rhop2[k] * G[k][k];
              double tttDs3 = t1Ds_r2a1rhop3[k] * G[k][k];
              double tttDs4 = t1Ds_r2a1rhop4[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double pppDs1 = pDs[l] * G[l][l];
                double pppDs2 = pDs[l] * G[l][l];
                double pppDs3 = pDs[l] * G[l][l];
                double pppDs4 = pDs[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += tttrhop1 * tttrho01 * tttDs1 * pppDs1 * p1r2a11[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF2 += tttrhop2 * tttrho02 * tttDs2 * pppDs2 * p1r2a12[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF3 += tttrhop3 * tttrho03 * tttDs3 * pppDs3 * p1r2a13[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF4 += tttrhop4 * tttrho04 * tttDs4 * pppDs4 * p1r2a14[m][j] *
                               G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r2a1rhop1 * B1_r2rhop1 * B1_Ds_r2a1rhop1;
        temp_PDF2 = temp_PDF2 * B1_r2a1rhop2 * B1_r2rhop2 * B1_Ds_r2a1rhop2;
        temp_PDF3 = temp_PDF3 * B1_r2a1rhop3 * B1_r2rhop3 * B1_Ds_r2a1rhop3;
        temp_PDF4 = temp_PDF4 * B1_r2a1rhop4 * B1_r2rhop4 * B1_Ds_r2a1rhop4;
      }
 
      else if ( g2[i] == 1122 )
      {
        if ( B1_r2a1rhop1 == -1 )
        {
          B1_r2a1rhop1 = BarrierN( 1, sr2a1rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_r2a1rhop2 = BarrierN( 1, sr2a1rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_r2a1rhop3 = BarrierN( 1, sr2a1rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_r2a1rhop4 = BarrierN( 1, sr2a1rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_r2rhop1 == -1 )
        {
          B1_r2rhop1 = BarrierN( 1, sr2rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r2rhop2 = BarrierN( 1, sr2rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r2rhop3 = BarrierN( 1, sr2rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r2rhop4 = BarrierN( 1, sr2rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        if ( B1_Ds_r2a1rhop1 == -1 )
        {
          B1_Ds_r2a1rhop1 = BarrierN( 1, sDs, sr2a11, sr2rhop1, rDs2, mDsM );
          B1_Ds_r2a1rhop2 = BarrierN( 1, sDs, sr2a12, sr2rhop2, rDs2, mDsM );
          B1_Ds_r2a1rhop3 = BarrierN( 1, sDs, sr2a13, sr2rhop3, rDs2, mDsM );
          B1_Ds_r2a1rhop4 = BarrierN( 1, sDs, sr2a14, sr2rhop4, rDs2, mDsM );
        }
        if ( B2_r2a11 == -1 )
        {
          B2_r2a11 = BarrierN( 2, sr2a11, sr2a1rhop1, sPim, rRes2, mass1[i] );
          B2_r2a12 = BarrierN( 2, sr2a12, sr2a1rhop2, sPim, rRes2, mass1[i] );
          B2_r2a13 = BarrierN( 2, sr2a13, sr2a1rhop3, sPim, rRes2, mass1[i] );
          B2_r2a14 = BarrierN( 2, sr2a14, sr2a1rhop4, sPim, rRes2, mass1[i] );
        }
 
        calt1( Pip1, Pi01, t1r2a1rhop1 );
        calt1( Pip1, Pi02, t1r2a1rhop2 );
        calt1( Pip2, Pi01, t1r2a1rhop3 );
        calt1( Pip2, Pi02, t1r2a1rhop4 );
        calt1( Pip2, Pi02, t1r2rhop1 );
        calt1( Pip2, Pi01, t1r2rhop2 );
        calt1( Pip1, Pi02, t1r2rhop3 );
        calt1( Pip1, Pi01, t1r2rhop4 );
        calt1( pr2a11, pr2rhop1, t1Ds_r2a1rhop1 );
        calt1( pr2a12, pr2rhop2, t1Ds_r2a1rhop2 );
        calt1( pr2a13, pr2rhop3, t1Ds_r2a1rhop3 );
        calt1( pr2a14, pr2rhop4, t1Ds_r2a1rhop4 );
        calt2( pr2a1rhop1, Pim, t2r2a11 );
        calt2( pr2a1rhop2, Pim, t2r2a12 );
        calt2( pr2a1rhop3, Pim, t2r2a13 );
        calt2( pr2a1rhop4, Pim, t2r2a14 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r2rhop1[i] * G[i][i];
          double tttrhop2 = t1r2rhop2[i] * G[i][i];
          double tttrhop3 = t1r2rhop3[i] * G[i][i];
          double tttrhop4 = t1r2rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrho01 = t1r2a1rhop1[j] * G[j][j];
            double tttrho02 = t1r2a1rhop2[j] * G[j][j];
            double tttrho03 = t1r2a1rhop3[j] * G[j][j];
            double tttrho04 = t1r2a1rhop4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double tttDs1 = t1Ds_r2a1rhop1[k] * G[k][k];
              double tttDs2 = t1Ds_r2a1rhop2[k] * G[k][k];
              double tttDs3 = t1Ds_r2a1rhop3[k] * G[k][k];
              double tttDs4 = t1Ds_r2a1rhop4[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double ttta11 = t2r2a11[l][j] * G[l][l];
                double ttta12 = t2r2a12[l][j] * G[l][l];
                double ttta13 = t2r2a13[l][j] * G[l][l];
                double ttta14 = t2r2a14[l][j] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
 
                  temp_PDF1 +=
                      tttrhop1 * tttrho01 * tttDs1 * ttta11 * pDs[m] * G[m][m] * E[m][l][i][k];
                  temp_PDF2 +=
                      tttrhop2 * tttrho02 * tttDs2 * ttta12 * pDs[m] * G[m][m] * E[m][l][i][k];
                  temp_PDF3 +=
                      tttrhop3 * tttrho03 * tttDs3 * ttta13 * pDs[m] * G[m][m] * E[m][l][i][k];
                  temp_PDF4 +=
                      tttrhop4 * tttrho04 * tttDs4 * ttta14 * pDs[m] * G[m][m] * E[m][l][i][k];
                }
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r2a1rhop1 * B1_r2rhop1 * B1_Ds_r2a1rhop1 * B2_r2a11;
        temp_PDF2 = temp_PDF2 * B1_r2a1rhop2 * B1_r2rhop2 * B1_Ds_r2a1rhop2 * B2_r2a12;
        temp_PDF3 = temp_PDF3 * B1_r2a1rhop3 * B1_r2rhop3 * B1_Ds_r2a1rhop3 * B2_r2a13;
        temp_PDF4 = temp_PDF4 * B1_r2a1rhop4 * B1_r2rhop4 * B1_Ds_r2a1rhop4 * B2_r2a14;
      }
 
      else if ( g2[i] == 1220 )
      {
        if ( B1_r2a1rhop1 == -1 )
        {
          B1_r2a1rhop1 = BarrierN( 1, sr2a1rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_r2a1rhop2 = BarrierN( 1, sr2a1rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_r2a1rhop3 = BarrierN( 1, sr2a1rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_r2a1rhop4 = BarrierN( 1, sr2a1rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_r2rhop1 == -1 )
        {
          B1_r2rhop1 = BarrierN( 1, sr2rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r2rhop2 = BarrierN( 1, sr2rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r2rhop3 = BarrierN( 1, sr2rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r2rhop4 = BarrierN( 1, sr2rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
        if ( B2_Ds_r2a1rhop1 == -1 )
        {
          B2_Ds_r2a1rhop1 = BarrierN( 2, sDs, sr2a11, sr2rhop1, rDs2, mDsM );
          B2_Ds_r2a1rhop2 = BarrierN( 2, sDs, sr2a12, sr2rhop2, rDs2, mDsM );
          B2_Ds_r2a1rhop3 = BarrierN( 2, sDs, sr2a13, sr2rhop3, rDs2, mDsM );
          B2_Ds_r2a1rhop4 = BarrierN( 2, sDs, sr2a14, sr2rhop4, rDs2, mDsM );
        }
 
        calG2( pr2a1rhop1, Pim, p1r2a11 );
        calG2( pr2a1rhop2, Pim, p1r2a12 );
        calG2( pr2a1rhop3, Pim, p1r2a13 );
        calG2( pr2a1rhop4, Pim, p1r2a14 );
        calt1( Pip1, Pi01, t1r2a1rhop1 );
        calt1( Pip1, Pi02, t1r2a1rhop2 );
        calt1( Pip2, Pi01, t1r2a1rhop3 );
        calt1( Pip2, Pi02, t1r2a1rhop4 );
        calt1( Pip2, Pi02, t1r2rhop1 );
        calt1( Pip2, Pi01, t1r2rhop2 );
        calt1( Pip1, Pi02, t1r2rhop3 );
        calt1( Pip1, Pi01, t1r2rhop4 );
        calt2( pr2a11, pr2rhop1, t2Ds_r2a1rhop1 );
        calt2( pr2a12, pr2rhop2, t2Ds_r2a1rhop2 );
        calt2( pr2a13, pr2rhop3, t2Ds_r2a1rhop3 );
        calt2( pr2a14, pr2rhop4, t2Ds_r2a1rhop4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r2rhop1[i] * G[i][i];
          double tttrhop2 = t1r2rhop2[i] * G[i][i];
          double tttrhop3 = t1r2rhop3[i] * G[i][i];
          double tttrhop4 = t1r2rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrho01 = t1r2a1rhop1[j] * G[j][j];
            double tttrho02 = t1r2a1rhop2[j] * G[j][j];
            double tttrho03 = t1r2a1rhop3[j] * G[j][j];
            double tttrho04 = t1r2a1rhop4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              temp_PDF1 += tttrhop1 * tttrho01 * p1r2a11[k][j] * t2Ds_r2a1rhop1[k][i];
              temp_PDF2 += tttrhop2 * tttrho02 * p1r2a12[k][j] * t2Ds_r2a1rhop2[k][i];
              temp_PDF3 += tttrhop3 * tttrho03 * p1r2a13[k][j] * t2Ds_r2a1rhop3[k][i];
              temp_PDF4 += tttrhop4 * tttrho04 * p1r2a14[k][j] * t2Ds_r2a1rhop4[k][i];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r2a1rhop1 * B1_r2rhop1 * B2_Ds_r2a1rhop1;
        temp_PDF2 = temp_PDF2 * B1_r2a1rhop2 * B1_r2rhop2 * B2_Ds_r2a1rhop2;
        temp_PDF3 = temp_PDF3 * B1_r2a1rhop3 * B1_r2rhop3 * B2_Ds_r2a1rhop3;
        temp_PDF4 = temp_PDF4 * B1_r2a1rhop4 * B1_r2rhop4 * B2_Ds_r2a1rhop4;
      }
 
      else if ( g2[i] == 1222 )
      {
 
        if ( B1_r2a1rhop1 == -1 )
        {
          B1_r2a1rhop1 = BarrierN( 1, sr2a1rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_r2a1rhop2 = BarrierN( 1, sr2a1rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_r2a1rhop3 = BarrierN( 1, sr2a1rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_r2a1rhop4 = BarrierN( 1, sr2a1rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_r2rhop1 == -1 )
        {
          B1_r2rhop1 = BarrierN( 1, sr2rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r2rhop2 = BarrierN( 1, sr2rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r2rhop3 = BarrierN( 1, sr2rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r2rhop4 = BarrierN( 1, sr2rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        if ( B2_Ds_r2a1rhop1 == -1 )
        {
          B2_Ds_r2a1rhop1 = BarrierN( 2, sDs, sr2a11, sr2rhop1, rDs2, mDsM );
          B2_Ds_r2a1rhop2 = BarrierN( 2, sDs, sr2a12, sr2rhop2, rDs2, mDsM );
          B2_Ds_r2a1rhop3 = BarrierN( 2, sDs, sr2a13, sr2rhop3, rDs2, mDsM );
          B2_Ds_r2a1rhop4 = BarrierN( 2, sDs, sr2a14, sr2rhop4, rDs2, mDsM );
        }
        if ( B2_r2a11 == -1 )
        {
          B2_r2a11 = BarrierN( 2, sr2a11, sr2a1rhop1, sPim, rRes2, mass1[i] );
          B2_r2a12 = BarrierN( 2, sr2a12, sr2a1rhop2, sPim, rRes2, mass1[i] );
          B2_r2a13 = BarrierN( 2, sr2a13, sr2a1rhop3, sPim, rRes2, mass1[i] );
          B2_r2a14 = BarrierN( 2, sr2a14, sr2a1rhop4, sPim, rRes2, mass1[i] );
        }
 
        calt1( Pip1, Pi01, t1r2a1rhop1 );
        calt1( Pip1, Pi02, t1r2a1rhop2 );
        calt1( Pip2, Pi01, t1r2a1rhop3 );
        calt1( Pip2, Pi02, t1r2a1rhop4 );
        calt1( Pip2, Pi02, t1r2rhop1 );
        calt1( Pip2, Pi01, t1r2rhop2 );
        calt1( Pip1, Pi02, t1r2rhop3 );
        calt1( Pip1, Pi01, t1r2rhop4 );
        calt2( pr2a11, pr2rhop1, t2Ds_r2a1rhop1 );
        calt2( pr2a12, pr2rhop2, t2Ds_r2a1rhop2 );
        calt2( pr2a13, pr2rhop3, t2Ds_r2a1rhop3 );
        calt2( pr2a14, pr2rhop4, t2Ds_r2a1rhop4 );
        calt2( pr2a1rhop1, Pim, t2r2a11 );
        calt2( pr2a1rhop2, Pim, t2r2a12 );
        calt2( pr2a1rhop3, Pim, t2r2a13 );
        calt2( pr2a1rhop4, Pim, t2r2a14 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r2rhop1[i] * G[i][i];
          double tttrhop2 = t1r2rhop2[i] * G[i][i];
          double tttrhop3 = t1r2rhop3[i] * G[i][i];
          double tttrhop4 = t1r2rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrho01 = t1r2a1rhop1[j] * G[j][j];
            double tttrho02 = t1r2a1rhop2[j] * G[j][j];
            double tttrho03 = t1r2a1rhop3[j] * G[j][j];
            double tttrho04 = t1r2a1rhop4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
 
              temp_PDF1 +=
                  tttrhop1 * tttrho01 * t2Ds_r2a1rhop1[k][i] * G[k][k] * t2r2a11[k][j];
              temp_PDF2 +=
                  tttrhop2 * tttrho02 * t2Ds_r2a1rhop2[k][i] * G[k][k] * t2r2a12[k][j];
              temp_PDF3 +=
                  tttrhop3 * tttrho03 * t2Ds_r2a1rhop3[k][i] * G[k][k] * t2r2a13[k][j];
              temp_PDF4 +=
                  tttrhop4 * tttrho04 * t2Ds_r2a1rhop4[k][i] * G[k][k] * t2r2a14[k][j];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r2a1rhop1 * B1_r2rhop1 * B2_Ds_r2a1rhop1 * B2_r2a11;
        temp_PDF2 = temp_PDF2 * B1_r2a1rhop2 * B1_r2rhop2 * B2_Ds_r2a1rhop2 * B2_r2a12;
        temp_PDF3 = temp_PDF3 * B1_r2a1rhop3 * B1_r2rhop3 * B2_Ds_r2a1rhop3 * B2_r2a13;
        temp_PDF4 = temp_PDF4 * B1_r2a1rhop4 * B1_r2rhop4 * B2_Ds_r2a1rhop4 * B2_r2a14;
      }
 
      if ( g0[i] == 1 )
      {
        if ( g2[i] == 1020 || g2[i] == 1120 || g2[i] == 1220 )
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr2a11, sr2a1rhop1, sPim, rRes2, 0,
                            pro00_1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr2a12, sr2a1rhop2, sPim, rRes2, 0,
                            pro00_2 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr2a13, sr2a1rhop3, sPim, rRes2, 0,
                            pro00_3 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr2a14, sr2a1rhop4, sPim, rRes2, 0,
                            pro00_4 );
        }
        else
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr2a11, sr2a1rhop1, sPim, rRes2, 2,
                            pro00_1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr2a12, sr2a1rhop2, sPim, rRes2, 2,
                            pro00_2 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr2a13, sr2a1rhop3, sPim, rRes2, 2,
                            pro00_3 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr2a14, sr2a1rhop4, sPim, rRes2, 2,
                            pro00_4 );
        }
 
        propagatorGS( mass2sq, mass2[i], width2[i], sr2a1rhop1, sPip1, sPi01, rRes2, pro01_1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr2a1rhop2, sPip1, sPi02, rRes2, pro01_2 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr2a1rhop3, sPip2, sPi01, rRes2, pro01_3 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr2a1rhop4, sPip2, sPi02, rRes2, pro01_4 );
 
        Com_Multi( pro00_1, pro01_1, pro0_1 );
        Com_Multi( pro00_2, pro01_2, pro0_2 );
        Com_Multi( pro00_3, pro01_3, pro0_3 );
        Com_Multi( pro00_4, pro01_4, pro0_4 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_1[0] = 1;
        pro0_1[1] = 0;
        pro0_2[0] = 1;
        pro0_2[1] = 0;
        pro0_3[0] = 1;
        pro0_3[1] = 0;
        pro0_4[0] = 1;
        pro0_4[1] = 0;
      }
 
      if ( g1[i] == 1 )
      {
 
        propagatorGS( mass2sq, mass2[i], width2[i], sr2rhop1, sPip2, sPi02, rRes2, pro1_1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr2rhop2, sPip2, sPi01, rRes2, pro1_2 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr2rhop3, sPip1, sPi02, rRes2, pro1_3 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr2rhop4, sPip1, sPi01, rRes2, pro1_4 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
        pro1_3[0] = 1;
        pro1_3[1] = 0;
        pro1_4[0] = 1;
        pro1_4[1] = 0;
      }
 
      Com_Multi( pro0_1, pro1_1, pro_1 );
      Com_Multi( pro0_2, pro1_2, pro_2 );
      Com_Multi( pro0_3, pro1_3, pro_3 );
      Com_Multi( pro0_4, pro1_4, pro_4 );
 
      amp_tmp1[0] = temp_PDF1 * pro_1[0];
      amp_tmp1[1] = temp_PDF1 * pro_1[1];
      amp_tmp2[0] = temp_PDF2 * pro_2[0];
      amp_tmp2[1] = temp_PDF2 * pro_2[1];
      amp_tmp3[0] = temp_PDF3 * pro_3[0];
      amp_tmp3[1] = temp_PDF3 * pro_3[1];
      amp_tmp4[0] = temp_PDF4 * pro_4[0];
      amp_tmp4[1] = temp_PDF4 * pro_4[1];
    }
 
    else if ( modetype[i] == 18 )
    {
      if ( g2[i] == 1020 )
      {
        if ( B1_r3a1rhop1 == -1 )
        {
          B1_r3a1rhop1 = BarrierN( 1, sr3a1rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_r3a1rhop2 = BarrierN( 1, sr3a1rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_r3a1rhop3 = BarrierN( 1, sr3a1rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_r3a1rhop4 = BarrierN( 1, sr3a1rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_r3rho01 == -1 )
        {
          B1_r3rho01 = BarrierN( 1, sr3rho01, sPip2, sPim, rRes2, mass2[i] );
          B1_r3rho02 = BarrierN( 1, sr3rho02, sPip2, sPim, rRes2, mass2[i] );
          B1_r3rho03 = BarrierN( 1, sr3rho03, sPip1, sPim, rRes2, mass2[i] );
          B1_r3rho04 = BarrierN( 1, sr3rho04, sPip1, sPim, rRes2, mass2[i] );
        }
 
        calG2( pr3a1rhop1, Pi02, p1r3a11 );
        calG2( pr3a1rhop2, Pi01, p1r3a12 );
        calG2( pr3a1rhop3, Pi02, p1r3a13 );
        calG2( pr3a1rhop4, Pi01, p1r3a14 );
        calt1( Pip1, Pi01, t1r3a1rhop1 );
        calt1( Pip1, Pi02, t1r3a1rhop2 );
        calt1( Pip2, Pi01, t1r3a1rhop3 );
        calt1( Pip2, Pi02, t1r3a1rhop4 );
        calt1( Pip2, Pim, t1r3rho01 );
        calt1( Pip2, Pim, t1r3rho02 );
        calt1( Pip1, Pim, t1r3rho03 );
        calt1( Pip1, Pim, t1r3rho04 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double ttt1rho0 = t1r3a1rhop1[i] * G[i][i];
          double ttt2rho0 = t1r3a1rhop2[i] * G[i][i];
          double ttt3rho0 = t1r3a1rhop3[i] * G[i][i];
          double ttt4rho0 = t1r3a1rhop4[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += ttt1rho0 * t1r3rho01[j] * G[j][j] * p1r3a11[i][j];
            temp_PDF2 += ttt2rho0 * t1r3rho02[j] * G[j][j] * p1r3a12[i][j];
            temp_PDF3 += ttt3rho0 * t1r3rho03[j] * G[j][j] * p1r3a13[i][j];
            temp_PDF4 += ttt4rho0 * t1r3rho04[j] * G[j][j] * p1r3a14[i][j];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r3a1rhop1 * B1_r3rho01;
        temp_PDF2 = temp_PDF2 * B1_r3a1rhop2 * B1_r3rho02;
        temp_PDF3 = temp_PDF3 * B1_r3a1rhop3 * B1_r3rho03;
        temp_PDF4 = temp_PDF4 * B1_r3a1rhop4 * B1_r3rho04;
      }
 
      else if ( g2[i] == 1022 )
      {
        if ( B1_r3a1rhop1 == -1 )
        {
          B1_r3a1rhop1 = BarrierN( 1, sr3a1rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_r3a1rhop2 = BarrierN( 1, sr3a1rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_r3a1rhop3 = BarrierN( 1, sr3a1rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_r3a1rhop4 = BarrierN( 1, sr3a1rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_r3rho01 == -1 )
        {
          B1_r3rho01 = BarrierN( 1, sr3rho01, sPip2, sPim, rRes2, mass2[i] );
          B1_r3rho02 = BarrierN( 1, sr3rho02, sPip2, sPim, rRes2, mass2[i] );
          B1_r3rho03 = BarrierN( 1, sr3rho03, sPip1, sPim, rRes2, mass2[i] );
          B1_r3rho04 = BarrierN( 1, sr3rho04, sPip1, sPim, rRes2, mass2[i] );
        }
 
        if ( B2_r3a11 == -1 )
        {
          B2_r3a11 = BarrierN( 2, sr3a11, sr3a1rhop1, sPi02, rRes2, mass1[i] );
          B2_r3a12 = BarrierN( 2, sr3a12, sr3a1rhop2, sPi01, rRes2, mass1[i] );
          B2_r3a13 = BarrierN( 2, sr3a13, sr3a1rhop3, sPi02, rRes2, mass1[i] );
          B2_r3a14 = BarrierN( 2, sr3a14, sr3a1rhop4, sPi01, rRes2, mass1[i] );
        }
 
        calG2( pr3a1rhop1, Pi02, p1r3a11 );
        calG2( pr3a1rhop2, Pi01, p1r3a12 );
        calG2( pr3a1rhop3, Pi02, p1r3a13 );
        calG2( pr3a1rhop4, Pi01, p1r3a14 );
        calt1( Pip1, Pi01, t1r3a1rhop1 );
        calt1( Pip1, Pi02, t1r3a1rhop2 );
        calt1( Pip2, Pi01, t1r3a1rhop3 );
        calt1( Pip2, Pi02, t1r3a1rhop4 );
        calt1( Pip2, Pim, t1r3rho01 );
        calt1( Pip2, Pim, t1r3rho02 );
        calt1( Pip1, Pim, t1r3rho03 );
        calt1( Pip1, Pim, t1r3rho04 );
        calt2( pr3a1rhop1, Pi02, t2r3a11 );
        calt2( pr3a1rhop2, Pi01, t2r3a12 );
        calt2( pr3a1rhop3, Pi02, t2r3a13 );
        calt2( pr3a1rhop4, Pi01, t2r3a14 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r3rho01[i] * G[i][i];
          double tttrhop2 = t1r3rho02[i] * G[i][i];
          double tttrhop3 = t1r3rho03[i] * G[i][i];
          double tttrhop4 = t1r3rho04[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += tttrhop1 * t1r3a1rhop1[j] * G[j][j] * t2r3a11[j][i];
            temp_PDF2 += tttrhop2 * t1r3a1rhop2[j] * G[j][j] * t2r3a12[j][i];
            temp_PDF3 += tttrhop3 * t1r3a1rhop3[j] * G[j][j] * t2r3a13[j][i];
            temp_PDF4 += tttrhop4 * t1r3a1rhop4[j] * G[j][j] * t2r3a14[j][i];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r3a1rhop1 * B1_r3rho01 * B2_r3a11;
        temp_PDF2 = temp_PDF2 * B1_r3a1rhop2 * B1_r3rho02 * B2_r3a12;
        temp_PDF3 = temp_PDF3 * B1_r3a1rhop3 * B1_r3rho03 * B2_r3a13;
        temp_PDF4 = temp_PDF4 * B1_r3a1rhop4 * B1_r3rho04 * B2_r3a14;
      }
 
      else if ( g2[i] == 1120 )
      {
        if ( B1_r3a1rhop1 == -1 )
        {
          B1_r3a1rhop1 = BarrierN( 1, sr3a1rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_r3a1rhop2 = BarrierN( 1, sr3a1rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_r3a1rhop3 = BarrierN( 1, sr3a1rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_r3a1rhop4 = BarrierN( 1, sr3a1rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_r3rho01 == -1 )
        {
          B1_r3rho01 = BarrierN( 1, sr3rho01, sPip2, sPim, rRes2, mass2[i] );
          B1_r3rho02 = BarrierN( 1, sr3rho02, sPip2, sPim, rRes2, mass2[i] );
          B1_r3rho03 = BarrierN( 1, sr3rho03, sPip1, sPim, rRes2, mass2[i] );
          B1_r3rho04 = BarrierN( 1, sr3rho04, sPip1, sPim, rRes2, mass2[i] );
        }
        if ( B1_Ds_r3a1rho01 == -1 )
        {
          B1_Ds_r3a1rho01 = BarrierN( 1, sDs, sr3a11, sr3rho01, rDs2, mDsM );
          B1_Ds_r3a1rho02 = BarrierN( 1, sDs, sr3a12, sr3rho02, rDs2, mDsM );
          B1_Ds_r3a1rho03 = BarrierN( 1, sDs, sr3a13, sr3rho03, rDs2, mDsM );
          B1_Ds_r3a1rho04 = BarrierN( 1, sDs, sr3a14, sr3rho04, rDs2, mDsM );
        }
 
        calG2( pr3a1rhop1, Pi02, p1r3a11 );
        calG2( pr3a1rhop2, Pi01, p1r3a12 );
        calG2( pr3a1rhop3, Pi02, p1r3a13 );
        calG2( pr3a1rhop4, Pi01, p1r3a14 );
        calt1( Pip1, Pi01, t1r3a1rhop1 );
        calt1( Pip1, Pi02, t1r3a1rhop2 );
        calt1( Pip2, Pi01, t1r3a1rhop3 );
        calt1( Pip2, Pi02, t1r3a1rhop4 );
        calt1( Pip2, Pim, t1r3rho01 );
        calt1( Pip2, Pim, t1r3rho02 );
        calt1( Pip1, Pim, t1r3rho03 );
        calt1( Pip1, Pim, t1r3rho04 );
        calt1( pr3a11, pr3rho01, t1Ds_r3a1rho01 );
        calt1( pr3a12, pr3rho02, t1Ds_r3a1rho02 );
        calt1( pr3a13, pr3rho03, t1Ds_r3a1rho03 );
        calt1( pr3a14, pr3rho04, t1Ds_r3a1rho04 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r3rho01[i] * G[i][i];
          double tttrhop2 = t1r3rho02[i] * G[i][i];
          double tttrhop3 = t1r3rho03[i] * G[i][i];
          double tttrhop4 = t1r3rho04[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrho01 = t1r3a1rhop1[j] * G[j][j];
            double tttrho02 = t1r3a1rhop2[j] * G[j][j];
            double tttrho03 = t1r3a1rhop3[j] * G[j][j];
            double tttrho04 = t1r3a1rhop4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double tttDs1 = t1Ds_r3a1rho01[k] * G[k][k];
              double tttDs2 = t1Ds_r3a1rho02[k] * G[k][k];
              double tttDs3 = t1Ds_r3a1rho03[k] * G[k][k];
              double tttDs4 = t1Ds_r3a1rho04[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double pppDs1 = pDs[l] * G[l][l];
                double pppDs2 = pDs[l] * G[l][l];
                double pppDs3 = pDs[l] * G[l][l];
                double pppDs4 = pDs[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += tttrhop1 * tttrho01 * tttDs1 * pppDs1 * p1r3a11[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF2 += tttrhop2 * tttrho02 * tttDs2 * pppDs2 * p1r3a12[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF3 += tttrhop3 * tttrho03 * tttDs3 * pppDs3 * p1r3a13[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF4 += tttrhop4 * tttrho04 * tttDs4 * pppDs4 * p1r3a14[m][j] *
                               G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r3a1rhop1 * B1_r3rho01 * B1_Ds_r3a1rho01;
        temp_PDF2 = temp_PDF2 * B1_r3a1rhop2 * B1_r3rho02 * B1_Ds_r3a1rho02;
        temp_PDF3 = temp_PDF3 * B1_r3a1rhop3 * B1_r3rho03 * B1_Ds_r3a1rho03;
        temp_PDF4 = temp_PDF4 * B1_r3a1rhop4 * B1_r3rho04 * B1_Ds_r3a1rho04;
      }
 
      else if ( g2[i] == 1122 )
      {
        if ( B1_r3a1rhop1 == -1 )
        {
          B1_r3a1rhop1 = BarrierN( 1, sr3a1rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_r3a1rhop2 = BarrierN( 1, sr3a1rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_r3a1rhop3 = BarrierN( 1, sr3a1rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_r3a1rhop4 = BarrierN( 1, sr3a1rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_r3rho01 == -1 )
        {
          B1_r3rho01 = BarrierN( 1, sr3rho01, sPip2, sPim, rRes2, mass2[i] );
          B1_r3rho02 = BarrierN( 1, sr3rho02, sPip2, sPim, rRes2, mass2[i] );
          B1_r3rho03 = BarrierN( 1, sr3rho03, sPip1, sPim, rRes2, mass2[i] );
          B1_r3rho04 = BarrierN( 1, sr3rho04, sPip1, sPim, rRes2, mass2[i] );
        }
 
        if ( B1_Ds_r3a1rho01 == -1 )
        {
          B1_Ds_r3a1rho01 = BarrierN( 1, sDs, sr3a11, sr3rho01, rDs2, mDsM );
          B1_Ds_r3a1rho02 = BarrierN( 1, sDs, sr3a12, sr3rho02, rDs2, mDsM );
          B1_Ds_r3a1rho03 = BarrierN( 1, sDs, sr3a13, sr3rho03, rDs2, mDsM );
          B1_Ds_r3a1rho04 = BarrierN( 1, sDs, sr3a14, sr3rho04, rDs2, mDsM );
        }
        if ( B2_r3a11 == -1 )
        {
          B2_r3a11 = BarrierN( 2, sr3a11, sr3a1rhop1, sPi02, rRes2, mass1[i] );
          B2_r3a12 = BarrierN( 2, sr3a12, sr3a1rhop2, sPi01, rRes2, mass1[i] );
          B2_r3a13 = BarrierN( 2, sr3a13, sr3a1rhop3, sPi02, rRes2, mass1[i] );
          B2_r3a14 = BarrierN( 2, sr3a14, sr3a1rhop4, sPi01, rRes2, mass1[i] );
        }
 
        calt1( Pip1, Pi01, t1r3a1rhop1 );
        calt1( Pip1, Pi02, t1r3a1rhop2 );
        calt1( Pip2, Pi01, t1r3a1rhop3 );
        calt1( Pip2, Pi02, t1r3a1rhop4 );
        calt1( Pip2, Pim, t1r3rho01 );
        calt1( Pip2, Pim, t1r3rho02 );
        calt1( Pip1, Pim, t1r3rho03 );
        calt1( Pip1, Pim, t1r3rho04 );
        calt2( pr3a1rhop1, Pi02, t2r3a11 );
        calt2( pr3a1rhop2, Pi01, t2r3a12 );
        calt2( pr3a1rhop3, Pi02, t2r3a13 );
        calt2( pr3a1rhop4, Pi01, t2r3a14 );
        calt1( pr3a11, pr3rho01, t1Ds_r3a1rho01 );
        calt1( pr3a12, pr3rho02, t1Ds_r3a1rho02 );
        calt1( pr3a13, pr3rho03, t1Ds_r3a1rho03 );
        calt1( pr3a14, pr3rho04, t1Ds_r3a1rho04 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r3rho01[i] * G[i][i];
          double tttrhop2 = t1r3rho02[i] * G[i][i];
          double tttrhop3 = t1r3rho03[i] * G[i][i];
          double tttrhop4 = t1r3rho04[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrho01 = t1r3a1rhop1[j] * G[j][j];
            double tttrho02 = t1r3a1rhop2[j] * G[j][j];
            double tttrho03 = t1r3a1rhop3[j] * G[j][j];
            double tttrho04 = t1r3a1rhop4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double tttDs1 = t1Ds_r3a1rho01[k] * G[k][k];
              double tttDs2 = t1Ds_r3a1rho02[k] * G[k][k];
              double tttDs3 = t1Ds_r3a1rho03[k] * G[k][k];
              double tttDs4 = t1Ds_r3a1rho04[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double ttta11 = t2r3a11[l][j] * G[l][l];
                double ttta12 = t2r3a12[l][j] * G[l][l];
                double ttta13 = t2r3a13[l][j] * G[l][l];
                double ttta14 = t2r3a14[l][j] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 +=
                      tttrhop1 * tttrho01 * tttDs1 * ttta11 * pDs[m] * G[m][m] * E[m][l][i][k];
                  temp_PDF2 +=
                      tttrhop2 * tttrho02 * tttDs2 * ttta12 * pDs[m] * G[m][m] * E[m][l][i][k];
                  temp_PDF3 +=
                      tttrhop3 * tttrho03 * tttDs3 * ttta13 * pDs[m] * G[m][m] * E[m][l][i][k];
                  temp_PDF4 +=
                      tttrhop4 * tttrho04 * tttDs4 * ttta14 * pDs[m] * G[m][m] * E[m][l][i][k];
                }
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r3a1rhop1 * B1_r3rho01 * B1_Ds_r3a1rho01 * B2_r3a11;
        temp_PDF2 = temp_PDF2 * B1_r3a1rhop2 * B1_r3rho02 * B1_Ds_r3a1rho02 * B2_r3a12;
        temp_PDF3 = temp_PDF3 * B1_r3a1rhop3 * B1_r3rho03 * B1_Ds_r3a1rho03 * B2_r3a13;
        temp_PDF4 = temp_PDF4 * B1_r3a1rhop4 * B1_r3rho04 * B1_Ds_r3a1rho04 * B2_r3a14;
      }
 
      else if ( g2[i] == 1220 )
      {
        if ( B1_r3a1rhop1 == -1 )
        {
          B1_r3a1rhop1 = BarrierN( 1, sr3a1rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_r3a1rhop2 = BarrierN( 1, sr3a1rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_r3a1rhop3 = BarrierN( 1, sr3a1rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_r3a1rhop4 = BarrierN( 1, sr3a1rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_r3rho01 == -1 )
        {
          B1_r3rho01 = BarrierN( 1, sr3rho01, sPip2, sPim, rRes2, mass2[i] );
          B1_r3rho02 = BarrierN( 1, sr3rho02, sPip2, sPim, rRes2, mass2[i] );
          B1_r3rho03 = BarrierN( 1, sr3rho03, sPip1, sPim, rRes2, mass2[i] );
          B1_r3rho04 = BarrierN( 1, sr3rho04, sPip1, sPim, rRes2, mass2[i] );
        }
 
        if ( B2_Ds_r3a1rho01 == -1 )
        {
          B2_Ds_r3a1rho01 = BarrierN( 2, sDs, sr3a11, sr3rho01, rDs2, mDsM );
          B2_Ds_r3a1rho02 = BarrierN( 2, sDs, sr3a12, sr3rho02, rDs2, mDsM );
          B2_Ds_r3a1rho03 = BarrierN( 2, sDs, sr3a13, sr3rho03, rDs2, mDsM );
          B2_Ds_r3a1rho04 = BarrierN( 2, sDs, sr3a14, sr3rho04, rDs2, mDsM );
        }
 
        calG2( pr3a1rhop1, Pi02, p1r3a11 );
        calG2( pr3a1rhop2, Pi01, p1r3a12 );
        calG2( pr3a1rhop3, Pi02, p1r3a13 );
        calG2( pr3a1rhop4, Pi01, p1r3a14 );
        calt1( Pip1, Pi01, t1r3a1rhop1 );
        calt1( Pip1, Pi02, t1r3a1rhop2 );
        calt1( Pip2, Pi01, t1r3a1rhop3 );
        calt1( Pip2, Pi02, t1r3a1rhop4 );
        calt1( Pip2, Pim, t1r3rho01 );
        calt1( Pip2, Pim, t1r3rho02 );
        calt1( Pip1, Pim, t1r3rho03 );
        calt1( Pip1, Pim, t1r3rho04 );
        calt2( pr3a11, pr3rho01, t2Ds_r3a1rho01 );
        calt2( pr3a12, pr3rho02, t2Ds_r3a1rho02 );
        calt2( pr3a13, pr3rho03, t2Ds_r3a1rho03 );
        calt2( pr3a14, pr3rho04, t2Ds_r3a1rho04 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r3rho01[i] * G[i][i];
          double tttrhop2 = t1r3rho02[i] * G[i][i];
          double tttrhop3 = t1r3rho03[i] * G[i][i];
          double tttrhop4 = t1r3rho04[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrho01 = t1r3a1rhop1[j] * G[j][j];
            double tttrho02 = t1r3a1rhop2[j] * G[j][j];
            double tttrho03 = t1r3a1rhop3[j] * G[j][j];
            double tttrho04 = t1r3a1rhop4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              temp_PDF1 += tttrhop1 * tttrho01 * p1r3a11[k][j] * t2Ds_r3a1rho01[k][i];
              temp_PDF2 += tttrhop2 * tttrho02 * p1r3a12[k][j] * t2Ds_r3a1rho02[k][i];
              temp_PDF3 += tttrhop3 * tttrho03 * p1r3a13[k][j] * t2Ds_r3a1rho03[k][i];
              temp_PDF4 += tttrhop4 * tttrho04 * p1r3a14[k][j] * t2Ds_r3a1rho04[k][i];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r3a1rhop1 * B1_r3rho01 * B2_Ds_r3a1rho01;
        temp_PDF2 = temp_PDF2 * B1_r3a1rhop2 * B1_r3rho02 * B2_Ds_r3a1rho02;
        temp_PDF3 = temp_PDF3 * B1_r3a1rhop3 * B1_r3rho03 * B2_Ds_r3a1rho03;
        temp_PDF4 = temp_PDF4 * B1_r3a1rhop4 * B1_r3rho04 * B2_Ds_r3a1rho04;
      }
 
      else if ( g2[i] == 1222 )
      {
 
        if ( B1_r3a1rhop1 == -1 )
        {
          B1_r3a1rhop1 = BarrierN( 1, sr3a1rhop1, sPip1, sPi01, rRes2, mass2[i] );
          B1_r3a1rhop2 = BarrierN( 1, sr3a1rhop2, sPip1, sPi02, rRes2, mass2[i] );
          B1_r3a1rhop3 = BarrierN( 1, sr3a1rhop3, sPip2, sPi01, rRes2, mass2[i] );
          B1_r3a1rhop4 = BarrierN( 1, sr3a1rhop4, sPip2, sPi02, rRes2, mass2[i] );
        }
        if ( B1_r3rho01 == -1 )
        {
          B1_r3rho01 = BarrierN( 1, sr3rho01, sPip2, sPim, rRes2, mass2[i] );
          B1_r3rho02 = BarrierN( 1, sr3rho02, sPip2, sPim, rRes2, mass2[i] );
          B1_r3rho03 = BarrierN( 1, sr3rho03, sPip1, sPim, rRes2, mass2[i] );
          B1_r3rho04 = BarrierN( 1, sr3rho04, sPip1, sPim, rRes2, mass2[i] );
        }
 
        if ( B2_r3a11 == -1 )
        {
          B2_r3a11 = BarrierN( 2, sr3a11, sr3a1rhop1, sPi02, rRes2, mass1[i] );
          B2_r3a12 = BarrierN( 2, sr3a12, sr3a1rhop2, sPi01, rRes2, mass1[i] );
          B2_r3a13 = BarrierN( 2, sr3a13, sr3a1rhop3, sPi02, rRes2, mass1[i] );
          B2_r3a14 = BarrierN( 2, sr3a14, sr3a1rhop4, sPi01, rRes2, mass1[i] );
        }
        if ( B2_Ds_r3a1rho01 == -1 )
        {
          B2_Ds_r3a1rho01 = BarrierN( 2, sDs, sr3a11, sr3rho01, rDs2, mDsM );
          B2_Ds_r3a1rho02 = BarrierN( 2, sDs, sr3a12, sr3rho02, rDs2, mDsM );
          B2_Ds_r3a1rho03 = BarrierN( 2, sDs, sr3a13, sr3rho03, rDs2, mDsM );
          B2_Ds_r3a1rho04 = BarrierN( 2, sDs, sr3a14, sr3rho04, rDs2, mDsM );
        }
 
        calt1( Pip1, Pi01, t1r3a1rhop1 );
        calt1( Pip1, Pi02, t1r3a1rhop2 );
        calt1( Pip2, Pi01, t1r3a1rhop3 );
        calt1( Pip2, Pi02, t1r3a1rhop4 );
        calt1( Pip2, Pim, t1r3rho01 );
        calt1( Pip2, Pim, t1r3rho02 );
        calt1( Pip1, Pim, t1r3rho03 );
        calt1( Pip1, Pim, t1r3rho04 );
        calt2( pr3a1rhop1, Pi02, t2r3a11 );
        calt2( pr3a1rhop2, Pi01, t2r3a12 );
        calt2( pr3a1rhop3, Pi02, t2r3a13 );
        calt2( pr3a1rhop4, Pi01, t2r3a14 );
        calt2( pr3a11, pr3rho01, t2Ds_r3a1rho01 );
        calt2( pr3a12, pr3rho02, t2Ds_r3a1rho02 );
        calt2( pr3a13, pr3rho03, t2Ds_r3a1rho03 );
        calt2( pr3a14, pr3rho04, t2Ds_r3a1rho04 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r3rho01[i] * G[i][i];
          double tttrhop2 = t1r3rho02[i] * G[i][i];
          double tttrhop3 = t1r3rho03[i] * G[i][i];
          double tttrhop4 = t1r3rho04[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrho01 = t1r3a1rhop1[j] * G[j][j];
            double tttrho02 = t1r3a1rhop2[j] * G[j][j];
            double tttrho03 = t1r3a1rhop3[j] * G[j][j];
            double tttrho04 = t1r3a1rhop4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              temp_PDF1 +=
                  tttrhop1 * tttrho01 * t2Ds_r3a1rho01[k][i] * G[k][k] * t2r3a11[k][j];
              temp_PDF2 +=
                  tttrhop2 * tttrho02 * t2Ds_r3a1rho02[k][i] * G[k][k] * t2r3a12[k][j];
              temp_PDF3 +=
                  tttrhop3 * tttrho03 * t2Ds_r3a1rho03[k][i] * G[k][k] * t2r3a13[k][j];
              temp_PDF4 +=
                  tttrhop4 * tttrho04 * t2Ds_r3a1rho04[k][i] * G[k][k] * t2r3a14[k][j];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r3a1rhop1 * B1_r3rho01 * B2_Ds_r3a1rho01 * B2_r3a11;
        temp_PDF2 = temp_PDF2 * B1_r3a1rhop2 * B1_r3rho02 * B2_Ds_r3a1rho02 * B2_r3a12;
        temp_PDF3 = temp_PDF3 * B1_r3a1rhop3 * B1_r3rho03 * B2_Ds_r3a1rho03 * B2_r3a13;
        temp_PDF4 = temp_PDF4 * B1_r3a1rhop4 * B1_r3rho04 * B2_Ds_r3a1rho04 * B2_r3a14;
      }
 
      if ( g0[i] == 1 )
      {
        if ( g2[i] == 1020 || g2[i] == 1120 || g2[i] == 1220 )
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr3a11, sr3a1rhop1, sPi02, rRes2, 0,
                            pro00_1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr3a12, sr3a1rhop2, sPi01, rRes2, 0,
                            pro00_2 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr3a13, sr3a1rhop3, sPi02, rRes2, 0,
                            pro00_3 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr3a14, sr3a1rhop4, sPi01, rRes2, 0,
                            pro00_4 );
        }
        else
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr3a11, sr3a1rhop1, sPi02, rRes2, 2,
                            pro00_1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr3a12, sr3a1rhop2, sPi01, rRes2, 2,
                            pro00_2 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr3a13, sr3a1rhop3, sPi02, rRes2, 2,
                            pro00_3 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr3a14, sr3a1rhop4, sPi01, rRes2, 2,
                            pro00_4 );
        }
 
        propagatorGS( mass2sq, mass2[i], width2[i], sr3a1rhop1, sPip1, sPi01, rRes2, pro01_1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr3a1rhop2, sPip1, sPi02, rRes2, pro01_2 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr3a1rhop3, sPip2, sPi01, rRes2, pro01_3 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr3a1rhop4, sPip2, sPi02, rRes2, pro01_4 );
 
        Com_Multi( pro00_1, pro01_1, pro0_1 );
        Com_Multi( pro00_2, pro01_2, pro0_2 );
        Com_Multi( pro00_3, pro01_3, pro0_3 );
        Com_Multi( pro00_4, pro01_4, pro0_4 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_1[0] = 1;
        pro0_1[1] = 0;
        pro0_2[0] = 1;
        pro0_2[1] = 0;
        pro0_3[0] = 1;
        pro0_3[1] = 0;
        pro0_4[0] = 1;
        pro0_4[1] = 0;
      }
 
      if ( g1[i] == 1 )
      {
 
        propagatorGS( mass2sq, mass2[i], width2[i], sr3rho01, sPip2, sPim, rRes2, pro1_1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr3rho02, sPip2, sPim, rRes2, pro1_2 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr3rho03, sPip1, sPim, rRes2, pro1_3 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr3rho04, sPip1, sPim, rRes2, pro1_4 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
        pro1_3[0] = 1;
        pro1_3[1] = 0;
        pro1_4[0] = 1;
        pro1_4[1] = 0;
      }
 
      Com_Multi( pro0_1, pro1_1, pro_1 );
      Com_Multi( pro0_2, pro1_2, pro_2 );
      Com_Multi( pro0_3, pro1_3, pro_3 );
      Com_Multi( pro0_4, pro1_4, pro_4 );
 
      amp_tmp1[0] = temp_PDF1 * pro_1[0];
      amp_tmp1[1] = temp_PDF1 * pro_1[1];
      amp_tmp2[0] = temp_PDF2 * pro_2[0];
      amp_tmp2[1] = temp_PDF2 * pro_2[1];
      amp_tmp3[0] = temp_PDF3 * pro_3[0];
      amp_tmp3[1] = temp_PDF3 * pro_3[1];
      amp_tmp4[0] = temp_PDF4 * pro_4[0];
      amp_tmp4[1] = temp_PDF4 * pro_4[1];
    }
 
    else if ( modetype[i] == 19 )
    {
      if ( g2[i] == 1020 )
      {
        if ( B1_r4a1rhom1 == -1 )
        {
          B1_r4a1rhom1 = BarrierN( 1, sr4a1rhom1, sPi01, sPim, rRes2, mass2[i] );
          B1_r4a1rhom2 = BarrierN( 1, sr4a1rhom2, sPi02, sPim, rRes2, mass2[i] );
          B1_r4a1rhom3 = BarrierN( 1, sr4a1rhom3, sPi01, sPim, rRes2, mass2[i] );
          B1_r4a1rhom4 = BarrierN( 1, sr4a1rhom4, sPi02, sPim, rRes2, mass2[i] );
        }
        if ( B1_r4rhop1 == -1 )
        {
          B1_r4rhop1 = BarrierN( 1, sr4rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r4rhop2 = BarrierN( 1, sr4rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r4rhop3 = BarrierN( 1, sr4rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r4rhop4 = BarrierN( 1, sr4rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        calG2( pr4a1rhom1, Pip1, p1r4a11 );
        calG2( pr4a1rhom2, Pip1, p1r4a12 );
        calG2( pr4a1rhom3, Pip2, p1r4a13 );
        calG2( pr4a1rhom4, Pip2, p1r4a14 );
        calt1( Pi01, Pim, t1r4a1rhom1 );
        calt1( Pi02, Pim, t1r4a1rhom2 );
        calt1( Pi01, Pim, t1r4a1rhom3 );
        calt1( Pi02, Pim, t1r4a1rhom4 );
        calt1( Pip2, Pi02, t1r4rhop1 );
        calt1( Pip2, Pi01, t1r4rhop2 );
        calt1( Pip1, Pi02, t1r4rhop3 );
        calt1( Pip1, Pi01, t1r4rhop4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double ttt1rhom = t1r4a1rhom1[i] * G[i][i];
          double ttt2rhom = t1r4a1rhom2[i] * G[i][i];
          double ttt3rhom = t1r4a1rhom3[i] * G[i][i];
          double ttt4rhom = t1r4a1rhom4[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += ttt1rhom * t1r4rhop1[j] * G[j][j] * p1r4a11[i][j];
            temp_PDF2 += ttt2rhom * t1r4rhop2[j] * G[j][j] * p1r4a12[i][j];
            temp_PDF3 += ttt3rhom * t1r4rhop3[j] * G[j][j] * p1r4a13[i][j];
            temp_PDF4 += ttt4rhom * t1r4rhop4[j] * G[j][j] * p1r4a14[i][j];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r4a1rhom1 * B1_r4rhop1;
        temp_PDF2 = temp_PDF2 * B1_r4a1rhom2 * B1_r4rhop2;
        temp_PDF3 = temp_PDF3 * B1_r4a1rhom3 * B1_r4rhop3;
        temp_PDF4 = temp_PDF4 * B1_r4a1rhom4 * B1_r4rhop4;
      }
 
      else if ( g2[i] == 1022 )
      {
        if ( B1_r4a1rhom1 == -1 )
        {
          B1_r4a1rhom1 = BarrierN( 1, sr4a1rhom1, sPi01, sPim, rRes2, mass2[i] );
          B1_r4a1rhom2 = BarrierN( 1, sr4a1rhom2, sPi02, sPim, rRes2, mass2[i] );
          B1_r4a1rhom3 = BarrierN( 1, sr4a1rhom3, sPi01, sPim, rRes2, mass2[i] );
          B1_r4a1rhom4 = BarrierN( 1, sr4a1rhom4, sPi02, sPim, rRes2, mass2[i] );
        }
        if ( B1_r4rhop1 == -1 )
        {
          B1_r4rhop1 = BarrierN( 1, sr4rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r4rhop2 = BarrierN( 1, sr4rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r4rhop3 = BarrierN( 1, sr4rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r4rhop4 = BarrierN( 1, sr4rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        if ( B2_r4a11 == -1 )
        {
          B2_r4a11 = BarrierN( 2, sr4a11, sr4a1rhom1, sPip1, rRes2, mass1[i] );
          B2_r4a12 = BarrierN( 2, sr4a12, sr4a1rhom2, sPip1, rRes2, mass1[i] );
          B2_r4a13 = BarrierN( 2, sr4a13, sr4a1rhom3, sPip2, rRes2, mass1[i] );
          B2_r4a14 = BarrierN( 2, sr4a14, sr4a1rhom4, sPip2, rRes2, mass1[i] );
        }
 
        calt1( Pi01, Pim, t1r4a1rhom1 );
        calt1( Pi02, Pim, t1r4a1rhom2 );
        calt1( Pi01, Pim, t1r4a1rhom3 );
        calt1( Pi02, Pim, t1r4a1rhom4 );
        calt1( Pip2, Pi02, t1r4rhop1 );
        calt1( Pip2, Pi01, t1r4rhop2 );
        calt1( Pip1, Pi02, t1r4rhop3 );
        calt1( Pip1, Pi01, t1r4rhop4 );
        calt2( pr4a1rhom1, Pip1, t2r4a11 );
        calt2( pr4a1rhom2, Pip1, t2r4a12 );
        calt2( pr4a1rhom3, Pip2, t2r4a13 );
        calt2( pr4a1rhom4, Pip2, t2r4a14 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r4rhop1[i] * G[i][i];
          double tttrhop2 = t1r4rhop2[i] * G[i][i];
          double tttrhop3 = t1r4rhop3[i] * G[i][i];
          double tttrhop4 = t1r4rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
 
            temp_PDF1 += tttrhop1 * t1r4a1rhom1[j] * G[j][j] * t2r4a11[j][i];
            temp_PDF2 += tttrhop2 * t1r4a1rhom2[j] * G[j][j] * t2r4a12[j][i];
            temp_PDF3 += tttrhop3 * t1r4a1rhom3[j] * G[j][j] * t2r4a13[j][i];
            temp_PDF4 += tttrhop4 * t1r4a1rhom4[j] * G[j][j] * t2r4a14[j][i];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r4a1rhom1 * B1_r4rhop1 * B2_r4a11;
        temp_PDF2 = temp_PDF2 * B1_r4a1rhom2 * B1_r4rhop2 * B2_r4a12;
        temp_PDF3 = temp_PDF3 * B1_r4a1rhom3 * B1_r4rhop3 * B2_r4a13;
        temp_PDF4 = temp_PDF4 * B1_r4a1rhom4 * B1_r4rhop4 * B2_r4a14;
      }
 
      else if ( g2[i] == 1120 )
      {
        if ( B1_r4a1rhom1 == -1 )
        {
          B1_r4a1rhom1 = BarrierN( 1, sr4a1rhom1, sPi01, sPim, rRes2, mass2[i] );
          B1_r4a1rhom2 = BarrierN( 1, sr4a1rhom2, sPi02, sPim, rRes2, mass2[i] );
          B1_r4a1rhom3 = BarrierN( 1, sr4a1rhom3, sPi01, sPim, rRes2, mass2[i] );
          B1_r4a1rhom4 = BarrierN( 1, sr4a1rhom4, sPi02, sPim, rRes2, mass2[i] );
        }
        if ( B1_r4rhop1 == -1 )
        {
          B1_r4rhop1 = BarrierN( 1, sr4rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r4rhop2 = BarrierN( 1, sr4rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r4rhop3 = BarrierN( 1, sr4rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r4rhop4 = BarrierN( 1, sr4rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        if ( B1_Ds_r4a1rhop1 == -1 )
        {
          B1_Ds_r4a1rhop1 = BarrierN( 1, sDs, sr4a11, sr4rhop1, rDs2, mDsM );
          B1_Ds_r4a1rhop2 = BarrierN( 1, sDs, sr4a12, sr4rhop2, rDs2, mDsM );
          B1_Ds_r4a1rhop3 = BarrierN( 1, sDs, sr4a13, sr4rhop3, rDs2, mDsM );
          B1_Ds_r4a1rhop4 = BarrierN( 1, sDs, sr4a14, sr4rhop4, rDs2, mDsM );
        }
 
        calG2( pr4a1rhom1, Pip1, p1r4a11 );
        calG2( pr4a1rhom2, Pip1, p1r4a12 );
        calG2( pr4a1rhom3, Pip2, p1r4a13 );
        calG2( pr4a1rhom4, Pip2, p1r4a14 );
        calt1( Pi01, Pim, t1r4a1rhom1 );
        calt1( Pi02, Pim, t1r4a1rhom2 );
        calt1( Pi01, Pim, t1r4a1rhom3 );
        calt1( Pi02, Pim, t1r4a1rhom4 );
        calt1( Pip2, Pi02, t1r4rhop1 );
        calt1( Pip2, Pi01, t1r4rhop2 );
        calt1( Pip1, Pi02, t1r4rhop3 );
        calt1( Pip1, Pi01, t1r4rhop4 );
        calt1( pr4a11, pr4rhop1, t1Ds_r4a1rhop1 );
        calt1( pr4a12, pr4rhop2, t1Ds_r4a1rhop2 );
        calt1( pr4a13, pr4rhop3, t1Ds_r4a1rhop3 );
        calt1( pr4a14, pr4rhop4, t1Ds_r4a1rhop4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r4rhop1[i] * G[i][i];
          double tttrhop2 = t1r4rhop2[i] * G[i][i];
          double tttrhop3 = t1r4rhop3[i] * G[i][i];
          double tttrhop4 = t1r4rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrhom1 = t1r4a1rhom1[j] * G[j][j];
            double tttrhom2 = t1r4a1rhom2[j] * G[j][j];
            double tttrhom3 = t1r4a1rhom3[j] * G[j][j];
            double tttrhom4 = t1r4a1rhom4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double tttDs1 = t1Ds_r4a1rhop1[k] * G[k][k];
              double tttDs2 = t1Ds_r4a1rhop2[k] * G[k][k];
              double tttDs3 = t1Ds_r4a1rhop3[k] * G[k][k];
              double tttDs4 = t1Ds_r4a1rhop4[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double pppDs1 = pDs[l] * G[l][l];
                double pppDs2 = pDs[l] * G[l][l];
                double pppDs3 = pDs[l] * G[l][l];
                double pppDs4 = pDs[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += tttrhop1 * tttrhom1 * tttDs1 * pppDs1 * p1r4a11[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF2 += tttrhop2 * tttrhom2 * tttDs2 * pppDs2 * p1r4a12[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF3 += tttrhop3 * tttrhom3 * tttDs3 * pppDs3 * p1r4a13[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF4 += tttrhop4 * tttrhom4 * tttDs4 * pppDs4 * p1r4a14[m][j] *
                               G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r4a1rhom1 * B1_r4rhop1 * B1_Ds_r4a1rhop1;
        temp_PDF2 = temp_PDF2 * B1_r4a1rhom2 * B1_r4rhop2 * B1_Ds_r4a1rhop2;
        temp_PDF3 = temp_PDF3 * B1_r4a1rhom3 * B1_r4rhop3 * B1_Ds_r4a1rhop3;
        temp_PDF4 = temp_PDF4 * B1_r4a1rhom4 * B1_r4rhop4 * B1_Ds_r4a1rhop4;
      }
 
      else if ( g2[i] == 1122 )
      {
        if ( B1_r4a1rhom1 == -1 )
        {
          B1_r4a1rhom1 = BarrierN( 1, sr4a1rhom1, sPi01, sPim, rRes2, mass2[i] );
          B1_r4a1rhom2 = BarrierN( 1, sr4a1rhom2, sPi02, sPim, rRes2, mass2[i] );
          B1_r4a1rhom3 = BarrierN( 1, sr4a1rhom3, sPi01, sPim, rRes2, mass2[i] );
          B1_r4a1rhom4 = BarrierN( 1, sr4a1rhom4, sPi02, sPim, rRes2, mass2[i] );
        }
        if ( B1_r4rhop1 == -1 )
        {
          B1_r4rhop1 = BarrierN( 1, sr4rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r4rhop2 = BarrierN( 1, sr4rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r4rhop3 = BarrierN( 1, sr4rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r4rhop4 = BarrierN( 1, sr4rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        if ( B2_r4a11 == -1 )
        {
          B2_r4a11 = BarrierN( 2, sr4a11, sr4a1rhom1, sPip1, rRes2, mass1[i] );
          B2_r4a12 = BarrierN( 2, sr4a12, sr4a1rhom2, sPip1, rRes2, mass1[i] );
          B2_r4a13 = BarrierN( 2, sr4a13, sr4a1rhom3, sPip2, rRes2, mass1[i] );
          B2_r4a14 = BarrierN( 2, sr4a14, sr4a1rhom4, sPip2, rRes2, mass1[i] );
        }
        if ( B1_Ds_r4a1rhop1 == -1 )
        {
          B1_Ds_r4a1rhop1 = BarrierN( 1, sDs, sr4a11, sr4rhop1, rDs2, mDsM );
          B1_Ds_r4a1rhop2 = BarrierN( 1, sDs, sr4a12, sr4rhop2, rDs2, mDsM );
          B1_Ds_r4a1rhop3 = BarrierN( 1, sDs, sr4a13, sr4rhop3, rDs2, mDsM );
          B1_Ds_r4a1rhop4 = BarrierN( 1, sDs, sr4a14, sr4rhop4, rDs2, mDsM );
        }
 
        calt1( Pi01, Pim, t1r4a1rhom1 );
        calt1( Pi02, Pim, t1r4a1rhom2 );
        calt1( Pi01, Pim, t1r4a1rhom3 );
        calt1( Pi02, Pim, t1r4a1rhom4 );
        calt1( Pip2, Pi02, t1r4rhop1 );
        calt1( Pip2, Pi01, t1r4rhop2 );
        calt1( Pip1, Pi02, t1r4rhop3 );
        calt1( Pip1, Pi01, t1r4rhop4 );
        calt2( pr4a1rhom1, Pip1, t2r4a11 );
        calt2( pr4a1rhom2, Pip1, t2r4a12 );
        calt2( pr4a1rhom3, Pip2, t2r4a13 );
        calt2( pr4a1rhom4, Pip2, t2r4a14 );
        calt1( pr4a11, pr4rhop1, t1Ds_r4a1rhop1 );
        calt1( pr4a12, pr4rhop2, t1Ds_r4a1rhop2 );
        calt1( pr4a13, pr4rhop3, t1Ds_r4a1rhop3 );
        calt1( pr4a14, pr4rhop4, t1Ds_r4a1rhop4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r4rhop1[i] * G[i][i];
          double tttrhop2 = t1r4rhop2[i] * G[i][i];
          double tttrhop3 = t1r4rhop3[i] * G[i][i];
          double tttrhop4 = t1r4rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrhom1 = t1r4a1rhom1[j] * G[j][j];
            double tttrhom2 = t1r4a1rhom2[j] * G[j][j];
            double tttrhom3 = t1r4a1rhom3[j] * G[j][j];
            double tttrhom4 = t1r4a1rhom4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double tttDs1 = t1Ds_r4a1rhop1[k] * G[k][k];
              double tttDs2 = t1Ds_r4a1rhop2[k] * G[k][k];
              double tttDs3 = t1Ds_r4a1rhop3[k] * G[k][k];
              double tttDs4 = t1Ds_r4a1rhop4[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double ttta11 = t2r4a11[l][j] * G[l][l];
                double ttta12 = t2r4a12[l][j] * G[l][l];
                double ttta13 = t2r4a13[l][j] * G[l][l];
                double ttta14 = t2r4a14[l][j] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
 
                  temp_PDF1 +=
                      tttrhop1 * tttrhom1 * tttDs1 * ttta11 * pDs[m] * G[m][m] * E[m][l][i][k];
                  temp_PDF2 +=
                      tttrhop2 * tttrhom2 * tttDs2 * ttta12 * pDs[m] * G[m][m] * E[m][l][i][k];
                  temp_PDF3 +=
                      tttrhop3 * tttrhom3 * tttDs3 * ttta13 * pDs[m] * G[m][m] * E[m][l][i][k];
                  temp_PDF4 +=
                      tttrhop4 * tttrhom4 * tttDs4 * ttta14 * pDs[m] * G[m][m] * E[m][l][i][k];
                }
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r4a1rhom1 * B1_r4rhop1 * B1_Ds_r4a1rhop1 * B2_r4a11;
        temp_PDF2 = temp_PDF2 * B1_r4a1rhom2 * B1_r4rhop2 * B1_Ds_r4a1rhop2 * B2_r4a12;
        temp_PDF3 = temp_PDF3 * B1_r4a1rhom3 * B1_r4rhop3 * B1_Ds_r4a1rhop3 * B2_r4a13;
        temp_PDF4 = temp_PDF4 * B1_r4a1rhom4 * B1_r4rhop4 * B1_Ds_r4a1rhop4 * B2_r4a14;
      }
 
      else if ( g2[i] == 1220 )
      {
        if ( B1_r4a1rhom1 == -1 )
        {
          B1_r4a1rhom1 = BarrierN( 1, sr4a1rhom1, sPi01, sPim, rRes2, mass2[i] );
          B1_r4a1rhom2 = BarrierN( 1, sr4a1rhom2, sPi02, sPim, rRes2, mass2[i] );
          B1_r4a1rhom3 = BarrierN( 1, sr4a1rhom3, sPi01, sPim, rRes2, mass2[i] );
          B1_r4a1rhom4 = BarrierN( 1, sr4a1rhom4, sPi02, sPim, rRes2, mass2[i] );
        }
        if ( B1_r4rhop1 == -1 )
        {
          B1_r4rhop1 = BarrierN( 1, sr4rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r4rhop2 = BarrierN( 1, sr4rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r4rhop3 = BarrierN( 1, sr4rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r4rhop4 = BarrierN( 1, sr4rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
        if ( B2_Ds_r4a1rhop1 == -1 )
        {
          B2_Ds_r4a1rhop1 = BarrierN( 2, sDs, sr4a11, sr4rhop1, rDs2, mDsM );
          B2_Ds_r4a1rhop2 = BarrierN( 2, sDs, sr4a12, sr4rhop2, rDs2, mDsM );
          B2_Ds_r4a1rhop3 = BarrierN( 2, sDs, sr4a13, sr4rhop3, rDs2, mDsM );
          B2_Ds_r4a1rhop4 = BarrierN( 2, sDs, sr4a14, sr4rhop4, rDs2, mDsM );
        }
 
        calG2( pr4a1rhom1, Pip1, p1r4a11 );
        calG2( pr4a1rhom2, Pip1, p1r4a12 );
        calG2( pr4a1rhom3, Pip2, p1r4a13 );
        calG2( pr4a1rhom4, Pip2, p1r4a14 );
        calt1( Pi01, Pim, t1r4a1rhom1 );
        calt1( Pi02, Pim, t1r4a1rhom2 );
        calt1( Pi01, Pim, t1r4a1rhom3 );
        calt1( Pi02, Pim, t1r4a1rhom4 );
        calt1( Pip2, Pi02, t1r4rhop1 );
        calt1( Pip2, Pi01, t1r4rhop2 );
        calt1( Pip1, Pi02, t1r4rhop3 );
        calt1( Pip1, Pi01, t1r4rhop4 );
        calt2( pr4a11, pr4rhop1, t2Ds_r4a1rhop1 );
        calt2( pr4a12, pr4rhop2, t2Ds_r4a1rhop2 );
        calt2( pr4a13, pr4rhop3, t2Ds_r4a1rhop3 );
        calt2( pr4a14, pr4rhop4, t2Ds_r4a1rhop4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r4rhop1[i] * G[i][i];
          double tttrhop2 = t1r4rhop2[i] * G[i][i];
          double tttrhop3 = t1r4rhop3[i] * G[i][i];
          double tttrhop4 = t1r4rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrhom1 = t1r4a1rhom1[j] * G[j][j];
            double tttrhom2 = t1r4a1rhom2[j] * G[j][j];
            double tttrhom3 = t1r4a1rhom3[j] * G[j][j];
            double tttrhom4 = t1r4a1rhom4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              temp_PDF1 += tttrhop1 * tttrhom1 * p1r4a11[k][j] * t2Ds_r4a1rhop1[k][i];
              temp_PDF2 += tttrhop2 * tttrhom2 * p1r4a12[k][j] * t2Ds_r4a1rhop2[k][i];
              temp_PDF3 += tttrhop3 * tttrhom3 * p1r4a13[k][j] * t2Ds_r4a1rhop3[k][i];
              temp_PDF4 += tttrhop4 * tttrhom4 * p1r4a14[k][j] * t2Ds_r4a1rhop4[k][i];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r4a1rhom1 * B1_r4rhop1 * B2_Ds_r4a1rhop1;
        temp_PDF2 = temp_PDF2 * B1_r4a1rhom2 * B1_r4rhop2 * B2_Ds_r4a1rhop2;
        temp_PDF3 = temp_PDF3 * B1_r4a1rhom3 * B1_r4rhop3 * B2_Ds_r4a1rhop3;
        temp_PDF4 = temp_PDF4 * B1_r4a1rhom4 * B1_r4rhop4 * B2_Ds_r4a1rhop4;
      }
 
      else if ( g2[i] == 1222 )
      {
        if ( B1_r4a1rhom1 == -1 )
        {
          B1_r4a1rhom1 = BarrierN( 1, sr4a1rhom1, sPi01, sPim, rRes2, mass2[i] );
          B1_r4a1rhom2 = BarrierN( 1, sr4a1rhom2, sPi02, sPim, rRes2, mass2[i] );
          B1_r4a1rhom3 = BarrierN( 1, sr4a1rhom3, sPi01, sPim, rRes2, mass2[i] );
          B1_r4a1rhom4 = BarrierN( 1, sr4a1rhom4, sPi02, sPim, rRes2, mass2[i] );
        }
        if ( B1_r4rhop1 == -1 )
        {
          B1_r4rhop1 = BarrierN( 1, sr4rhop1, sPip2, sPi02, rRes2, mass2[i] );
          B1_r4rhop2 = BarrierN( 1, sr4rhop2, sPip2, sPi01, rRes2, mass2[i] );
          B1_r4rhop3 = BarrierN( 1, sr4rhop3, sPip1, sPi02, rRes2, mass2[i] );
          B1_r4rhop4 = BarrierN( 1, sr4rhop4, sPip1, sPi01, rRes2, mass2[i] );
        }
 
        if ( B2_r4a11 == -1 )
        {
          B2_r4a11 = BarrierN( 2, sr4a11, sr4a1rhom1, sPip1, rRes2, mass1[i] );
          B2_r4a12 = BarrierN( 2, sr4a12, sr4a1rhom2, sPip1, rRes2, mass1[i] );
          B2_r4a13 = BarrierN( 2, sr4a13, sr4a1rhom3, sPip2, rRes2, mass1[i] );
          B2_r4a14 = BarrierN( 2, sr4a14, sr4a1rhom4, sPip2, rRes2, mass1[i] );
        }
        if ( B2_Ds_r4a1rhop1 == -1 )
        {
          B2_Ds_r4a1rhop1 = BarrierN( 2, sDs, sr4a11, sr4rhop1, rDs2, mDsM );
          B2_Ds_r4a1rhop2 = BarrierN( 2, sDs, sr4a12, sr4rhop2, rDs2, mDsM );
          B2_Ds_r4a1rhop3 = BarrierN( 2, sDs, sr4a13, sr4rhop3, rDs2, mDsM );
          B2_Ds_r4a1rhop4 = BarrierN( 2, sDs, sr4a14, sr4rhop4, rDs2, mDsM );
        }
 
        calt1( Pi01, Pim, t1r4a1rhom1 );
        calt1( Pi02, Pim, t1r4a1rhom2 );
        calt1( Pi01, Pim, t1r4a1rhom3 );
        calt1( Pi02, Pim, t1r4a1rhom4 );
        calt1( Pip2, Pi02, t1r4rhop1 );
        calt1( Pip2, Pi01, t1r4rhop2 );
        calt1( Pip1, Pi02, t1r4rhop3 );
        calt1( Pip1, Pi01, t1r4rhop4 );
        calt2( pr4a1rhom1, Pip1, t2r4a11 );
        calt2( pr4a1rhom2, Pip1, t2r4a12 );
        calt2( pr4a1rhom3, Pip2, t2r4a13 );
        calt2( pr4a1rhom4, Pip2, t2r4a14 );
        calt2( pr4a11, pr4rhop1, t2Ds_r4a1rhop1 );
        calt2( pr4a12, pr4rhop2, t2Ds_r4a1rhop2 );
        calt2( pr4a13, pr4rhop3, t2Ds_r4a1rhop3 );
        calt2( pr4a14, pr4rhop4, t2Ds_r4a1rhop4 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double tttrhop1 = t1r4rhop1[i] * G[i][i];
          double tttrhop2 = t1r4rhop2[i] * G[i][i];
          double tttrhop3 = t1r4rhop3[i] * G[i][i];
          double tttrhop4 = t1r4rhop4[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double tttrhom1 = t1r4a1rhom1[j] * G[j][j];
            double tttrhom2 = t1r4a1rhom2[j] * G[j][j];
            double tttrhom3 = t1r4a1rhom3[j] * G[j][j];
            double tttrhom4 = t1r4a1rhom4[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
 
              temp_PDF1 +=
                  tttrhop1 * tttrhom1 * t2Ds_r4a1rhop1[k][i] * G[k][k] * t2r4a11[k][j];
              temp_PDF2 +=
                  tttrhop2 * tttrhom2 * t2Ds_r4a1rhop2[k][i] * G[k][k] * t2r4a12[k][j];
              temp_PDF3 +=
                  tttrhop3 * tttrhom3 * t2Ds_r4a1rhop3[k][i] * G[k][k] * t2r4a13[k][j];
              temp_PDF4 +=
                  tttrhop4 * tttrhom4 * t2Ds_r4a1rhop4[k][i] * G[k][k] * t2r4a14[k][j];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_r4a1rhom1 * B1_r4rhop1 * B2_Ds_r4a1rhop1 * B2_r4a11;
        temp_PDF2 = temp_PDF2 * B1_r4a1rhom2 * B1_r4rhop2 * B2_Ds_r4a1rhop2 * B2_r4a12;
        temp_PDF3 = temp_PDF3 * B1_r4a1rhom3 * B1_r4rhop3 * B2_Ds_r4a1rhop3 * B2_r4a13;
        temp_PDF4 = temp_PDF4 * B1_r4a1rhom4 * B1_r4rhop4 * B2_Ds_r4a1rhop4 * B2_r4a14;
      }
 
      if ( g0[i] == 1 )
      {
        if ( g2[i] == 1020 || g2[i] == 1120 || g2[i] == 1220 )
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr4a11, sr4a1rhom1, sPip1, rRes2, 0,
                            pro00_1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr4a12, sr4a1rhom2, sPip1, rRes2, 0,
                            pro00_2 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr4a13, sr4a1rhom3, sPip2, rRes2, 0,
                            pro00_3 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr4a14, sr4a1rhom4, sPip2, rRes2, 0,
                            pro00_4 );
        }
        else
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr4a11, sr4a1rhom1, sPip1, rRes2, 2,
                            pro00_1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr4a12, sr4a1rhom2, sPip1, rRes2, 2,
                            pro00_2 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr4a13, sr4a1rhom3, sPip2, rRes2, 2,
                            pro00_3 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sr4a14, sr4a1rhom4, sPip2, rRes2, 2,
                            pro00_4 );
        }
 
        propagatorGS( mass2sq, mass2[i], width2[i], sr4a1rhom1, sPi01, sPim, rRes2, pro01_1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr4a1rhom2, sPi02, sPim, rRes2, pro01_2 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr4a1rhom3, sPi01, sPim, rRes2, pro01_3 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr4a1rhom4, sPi02, sPim, rRes2, pro01_4 );
 
        Com_Multi( pro00_1, pro01_1, pro0_1 );
        Com_Multi( pro00_2, pro01_2, pro0_2 );
        Com_Multi( pro00_3, pro01_3, pro0_3 );
        Com_Multi( pro00_4, pro01_4, pro0_4 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_1[0] = 1;
        pro0_1[1] = 0;
        pro0_2[0] = 1;
        pro0_2[1] = 0;
        pro0_3[0] = 1;
        pro0_3[1] = 0;
        pro0_4[0] = 1;
        pro0_4[1] = 0;
      }
 
      if ( g1[i] == 1 )
      {
 
        propagatorGS( mass2sq, mass2[i], width2[i], sr4rhop1, sPip2, sPi02, rRes2, pro1_1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr4rhop2, sPip2, sPi01, rRes2, pro1_2 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr4rhop3, sPip1, sPi02, rRes2, pro1_3 );
        propagatorGS( mass2sq, mass2[i], width2[i], sr4rhop4, sPip1, sPi01, rRes2, pro1_4 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
        pro1_3[0] = 1;
        pro1_3[1] = 0;
        pro1_4[0] = 1;
        pro1_4[1] = 0;
      }
 
      Com_Multi( pro0_1, pro1_1, pro_1 );
      Com_Multi( pro0_2, pro1_2, pro_2 );
      Com_Multi( pro0_3, pro1_3, pro_3 );
      Com_Multi( pro0_4, pro1_4, pro_4 );
 
      amp_tmp1[0] = -1.0 * ( temp_PDF1 * pro_1[0] );
      amp_tmp1[1] = -1.0 * ( temp_PDF1 * pro_1[1] );
      amp_tmp2[0] = -1.0 * ( temp_PDF2 * pro_2[0] );
      amp_tmp2[1] = -1.0 * ( temp_PDF2 * pro_2[1] );
      amp_tmp3[0] = -1.0 * ( temp_PDF3 * pro_3[0] );
      amp_tmp3[1] = -1.0 * ( temp_PDF3 * pro_3[1] );
      amp_tmp4[0] = -1.0 * ( temp_PDF4 * pro_4[0] );
      amp_tmp4[1] = -1.0 * ( temp_PDF4 * pro_4[1] );
    }
 
    else if ( modetype[i] == 100 )
    {
      amp_tmp1[0] = 1;
      amp_tmp2[0] = 1;
      amp_tmp3[0] = 1;
      amp_tmp4[0] = 1;
      amp_tmp1[1] = 0;
      amp_tmp2[1] = 0;
      amp_tmp3[1] = 0;
      amp_tmp4[1] = 0;
    }
    amp_tmp[0] = amp_tmp1[0] + amp_tmp2[0] + amp_tmp3[0] + amp_tmp4[0];
    amp_tmp[1] = amp_tmp1[1] + amp_tmp2[1] + amp_tmp3[1] + amp_tmp4[1];
 
    Com_Multi( amp_tmp, cof, amp_PDF );
    PDF[0] += amp_PDF[0];
    PDF[1] += amp_PDF[1];
  }
 
  double value = PDF[0] * PDF[0] + PDF[1] * PDF[1];
  if ( value <= 0 ) value = 1e-20;
 
  Result = value;
}