EvtD0ToKSpipipi0pi0.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: EvtD0ToKSpipipi0pi0.cc
//
// Description:
// https://indico.ihep.ac.cn/event/16632/contributions/49342/attachments/23562/26699/meeting.pdf
//
// Modification history:
//
//    Liaoyuan Dong Sep 27, 2023 Module created
//
//------------------------------------------------------------------------
#include "EvtD0ToKSpipipi0pi0.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;
 
EvtD0ToKSpipipi0pi0::~EvtD0ToKSpipipi0pi0() {}
 
void EvtD0ToKSpipipi0pi0::getName( std::string& model_name ) {
  model_name = "D0ToKSpipipi0pi0";
}
 
EvtDecayBase* EvtD0ToKSpipipi0pi0::clone() { return new EvtD0ToKSpipipi0pi0; }
 
void EvtD0ToKSpipipi0pi0::init() {
  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.0;
  phi[1]  = 1.5612285999617681043;
  phi[2]  = -1.0015624327720500375;
  phi[3]  = -0.76621511153827803753;
  phi[4]  = -1.7149726868246268907;
  phi[5]  = -0.76621511153827803753;
  phi[6]  = -1.7149726868246268907;
  phi[7]  = 1.3433768070347928969;
  phi[8]  = -0.69920457434816896125;
  phi[9]  = 0.29332928559239412891;
  phi[10] = -0.11777754591498723613;
  phi[11] = 0.95414772564220218243;
  phi[12] = 1.7265019027073140734;
  phi[13] = 0.061783461047396848187;
  phi[14] = -1.8419695358887526737;
  phi[15] = 5.0888716346195170814;
  phi[16] = -2.4168727599993782285;
  phi[17] = -0.59691363426268839731;
  phi[18] = 2.2592819896596747498;
  phi[19] = 1.4782518327546174675;
 
  rho[0]  = 1.0;
  rho[1]  = 0.4670656486078839098;
  rho[2]  = 1.2052085503722942406;
  rho[3]  = 2.3308692263403596456;
  rho[4]  = 3.5452858240068554352;
  rho[5]  = 2.3308692263403596456;
  rho[6]  = 3.5452858240068554352;
  rho[7]  = 3.909705435313104438;
  rho[8]  = 6.0375678543742763438;
  rho[9]  = 6.1054348075021245279;
  rho[10] = 2.6074861273503890935;
  rho[11] = 5.1506130168844084238;
  rho[12] = 7.3338519702057851646;
  rho[13] = 8.2495540430632239293;
  rho[14] = 4.7408822820806992837;
  rho[15] = 19.078674398257916778;
  rho[16] = 5.8341821209677622306;
  rho[17] = 3.370421146056012951;
  rho[18] = 1.3283777517325123796;
  rho[19] = 5.2468133147457907128;
 
  modetype[0]  = 1;
  modetype[1]  = 1;
  modetype[2]  = 1;
  modetype[3]  = 20;
  modetype[4]  = 20;
  modetype[5]  = 33;
  modetype[6]  = 33;
  modetype[7]  = 18;
  modetype[8]  = 18;
  modetype[9]  = 18;
  modetype[10] = 4;
  modetype[11] = 4;
  modetype[12] = 23;
  modetype[13] = 45;
  modetype[14] = 45;
  modetype[15] = 45;
  modetype[16] = 46;
  modetype[17] = 31;
  modetype[18] = 31;
  modetype[19] = 42;
 
  width1[0]  = 0.00868;
  width1[1]  = 0.00868;
  width1[2]  = 0.00868;
  width1[3]  = 0.420;
  width1[4]  = 0.420;
  width1[5]  = 0.420;
  width1[6]  = 0.420;
  width1[7]  = 0.420;
  width1[8]  = 0.420;
  width1[9]  = 0.420;
  width1[10] = 0.142;
  width1[11] = 0.142;
  width1[12] = 0.0227;
  width1[13] = 0.116;
  width1[14] = 0.116;
  width1[15] = 0.116;
  width1[16] = 0.116;
  width1[17] = 0.174;
  width1[18] = 0.174;
  width1[19] = 0.174;
 
  width2[0]  = 0.0473;
  width2[1]  = 0.0473;
  width2[2]  = 0.0473;
  width2[3]  = 0.0473;
  width2[4]  = 0.0473;
  width2[5]  = 0.0473;
  width2[6]  = 0.0473;
  width2[7]  = 0.0467;
  width2[8]  = 0.0467;
  width2[9]  = 0.0467;
  width2[10] = 0.00868;
  width2[11] = 0.00868;
  width2[12] = 0.1478;
  width2[13] = 0.1478;
  width2[14] = 0.1478;
  width2[15] = 0.1478;
  width2[16] = 0.1478;
  width2[17] = 0.1478;
  width2[18] = 0.1478;
  width2[19] = 0.1478;
 
  mass1[0]  = 0.78265;
  mass1[1]  = 0.78265;
  mass1[2]  = 0.78265;
  mass1[3]  = 1.230;
  mass1[4]  = 1.230;
  mass1[5]  = 1.230;
  mass1[6]  = 1.230;
  mass1[7]  = 1.230;
  mass1[8]  = 1.230;
  mass1[9]  = 1.230;
  mass1[10] = 1.2295;
  mass1[11] = 1.2295;
  mass1[12] = 1.2819;
  mass1[13] = 1.289;
  mass1[14] = 1.289;
  mass1[15] = 1.289;
  mass1[16] = 1.289;
  mass1[17] = 1.403;
  mass1[18] = 1.403;
  mass1[19] = 1.403;
 
  mass2[0]  = 0.89555;
  mass2[1]  = 0.89555;
  mass2[2]  = 0.89555;
  mass2[3]  = 0.89555;
  mass2[4]  = 0.89555;
  mass2[5]  = 0.89555;
  mass2[6]  = 0.89555;
  mass2[7]  = 0.89166;
  mass2[8]  = 0.89166;
  mass2[9]  = 0.89166;
  mass2[10] = 0.78265;
  mass2[11] = 0.78265;
  mass2[12] = 0.77526;
  mass2[13] = 0.77526;
  mass2[14] = 0.77526;
  mass2[15] = 0.77526;
  mass2[16] = 0.77526;
  mass2[17] = 0.77526;
  mass2[18] = 0.77526;
  mass2[19] = 0.77526;
 
  mD0M       = 1.86486;
  mD         = 1.86486;
  metap      = 0.95778;
  mk0        = 0.497614;
  mass_Kaon  = 0.49368;
  mass_Pion  = 0.13957;
  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 EvtD0ToKSpipipi0pi0::initProbMax() { setProbMax( 21000000 ); }
 
void EvtD0ToKSpipipi0pi0::decay( EvtParticle* p ) {
  /*
   double maxprob = 0.0;
     for(int ir=0;ir<=60000000;ir++){
 
        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();
 
        double P1[4], P2[4], P3[4], P4[4], P5[4];
        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);
 
          double value;
     int g0[8]={1,1,1,0,1,1,1,1};
     int g1[8]={1,1,1,0,1,1,1,1};
     double r0[8]={1,1,1,0,1,1,1,1};
     double r1[8]={1,1,1,0,1,1,1,1};
     int spin[8]={0,1,2,0,1020,1020,0,1};
 
     int nstates=8;
     calEva(P1, P4, P2, P3, P5, mass1, mass2, width1, width2, rho, phi, r0, r1, g0, g1, spin,
   modetype, nstates, value);
 
        if (value<0) continue;
        if(value>maxprob) {
           maxprob=value;
           cout << "ir= " << ir << endl;
           cout << "double P1[4] = {" << P1[0] <<","<< P1[1] <<","<< P1[2] <<","<< P1[3]
   <<"};"<< endl; cout << "double P2[4] = {" << P2[0] <<","<< P2[1] <<","<< P2[2] <<","<< P2[3]
   <<"};"<< endl; cout << "double P3[4] = {" << P3[0] <<","<< P3[1] <<","<< P3[2] <<","<< P3[3]
   <<"};"<< endl; cout << "double P4[4] = {" << P4[0] <<","<< P4[1] <<","<< P4[2] <<","<< P4[3]
   <<"};"<< endl; cout << "double P5[4] = {" << P5[0] <<","<< P5[1] <<","<< P5[2] <<","<< P5[3]
   <<"};"<< endl; cout << "MAX====> " << maxprob << endl;
 
        }
     }
     printf("MAXprob = %.10f\n",maxprob);
  */
 
  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();
 
  double P1[4], P2[4], P3[4], P4[4], P5[4];
  if ( getParentId() == EvtPDL::getId( "D0" ) )
  {
    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
  {
    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 ) );
  }
 
  double value;
  int    g0[20]   = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 };
  int    g1[20]   = { 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1 };
  int    spin[20] = { 0, 1, 2, 1020, 1120, 1020, 1120, 1020, 1120, 1220,
                      0, 2, 1, 1020, 1120, 1220, 1,    1020, 1120, 1020 };
 
  int nstates = 20;
  calEva( P1, P2, P3, P4, P5, mass1, mass2, width1, width2, rho, phi, r0, r1, g0, g1, spin,
          modetype, nstates, value );
  setProb( value );
 
  return;
}
 
void EvtD0ToKSpipipi0pi0::Com_Multi( double a1[2], double a2[2],
                                     double res[2] ) //(a1+b1i)(a2+b2i)
{
  res[0] = a1[0] * a2[0] - a1[1] * a2[1];
  res[1] = a1[1] * a2[0] + a1[0] * a2[1];
}
void EvtD0ToKSpipipi0pi0::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 EvtD0ToKSpipipi0pi0::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 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 };
  double width_a1 = a1width[iii];
  a[0]            = 1;
  a[1]            = 0;
  b[0]            = mass2 - sa;
  b[1]            = -mass * width_a1;
  Com_Divide( a, b, prop );
}
 
//------------base---------------------------------
double EvtD0ToKSpipipi0pi0::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 EvtD0ToKSpipipi0pi0::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 = -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 EvtD0ToKSpipipi0pi0::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 = -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 = -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;
}
 
// double EvtD0ToKSpipipi0pi0::BarrierN(int l, double sa, double sb, double sc, double r2)
//{
//     double B;
//     double tmp = sa + sb -sc;
//     double Q2 = 0.25*tmp*tmp/sa - sb;
//     if (Q2 < 0) Q2 = 1e-16;
//     double Q02 = 0.197321*0.197321/r2;
//     if (l==1){
//  B = sqrt(2.0*Q2/(Q2 + Q02));
//     }
//     else if(l==2){
//  B = sqrt(13.0*Q2*Q2/(Q2*Q2+3.0*Q2*Q02+9.0*Q02*Q02));
//     }
//     else{
//  B = 1.0;
//     }
//     return B;
// }
 
//------------------spin-------------------------------------------
void EvtD0ToKSpipipi0pi0::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 EvtD0ToKSpipipi0pi0::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 EvtD0ToKSpipipi0pi0::calG2( double daug1[4], double daug2[4], double g2[4][4] ) {
  //      double p, r;
  double p;
  //      double pa[4], t1[4];
  double pa[4];
  //      calt1(daug1,daug2,t1);
  //      r = SCADot(t1,t1);
  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] - 1.0/3*r*(G[i][j]-pa[i]*pa[j]/p);
      g2[i][j] = G[i][j] - pa[i] * pa[j] / p;
    }
  }
}
//-------------------prop--------------------------------------------
void EvtD0ToKSpipipi0pi0::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 EvtD0ToKSpipipi0pi0::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 = -q;
  double tmp2 = mass2 + tmp;
  double q0   = 0.25 * tmp2 * tmp2 / mass2 - sb;
  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 EvtD0ToKSpipipi0pi0::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 = -q;
  double tmp2 = mass2 + tmp;
  double q0   = 0.25 * tmp2 * tmp2 / mass2 - sb;
  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 EvtD0ToKSpipipi0pi0::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 EvtD0ToKSpipipi0pi0::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 );
}
//------------GS---used by rho----------------------------
void EvtD0ToKSpipipi0pi0::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 = -q2;
 
  double tmp2 = mass2 + tmp;
  double q02  = 0.25 * tmp2 * tmp2 / mass2 - sb;
  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 EvtD0ToKSpipipi0pi0::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 EvtD0ToKSpipipi0pi0::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 EvtD0ToKSpipipi0pi0::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 EvtD0ToKSpipipi0pi0::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       g1 = 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 * ( g1 * rho1[1] + 0.0024 * rho2[1] );
  b[1] = -M * ( g1 * rho1[0] + 0.0024 * rho2[0] );
  Com_Divide( a, b, prop );
}
void EvtD0ToKSpipipi0pi0::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;
      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 += math_pi;
      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 += math_pi;
      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];
  */
  const double m1430 = 1.441;
  const double sa0   = 1.441 * 1.441; // m1430*m1430;
  const double w1430 = 0.193;
  const double Lass1 = 0.25 / sa0;
  double       tmp   = sb - sc;
  double       tmp1  = sa0 + tmp;
  double       q0    = Lass1 * tmp1 * tmp1 - sb;
  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 += math_pi;
  double deltaR = -1.915 + temp_R; // fiR=-109.7
  double temp_F =
      atan( 0.226 * q / ( 2.0 - 3.819 * qs ) ); // 2.0*0.113 = 0.226; 0.113*33.8 = 3.819
  if ( temp_F < 0 ) temp_F += math_pi;
  double deltaF = 0.002 + temp_F; // fiF=0.1
  double deltaS = deltaR + 2.0 * deltaF;
  double t1     = 0.96 * 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];
}
 
// 0-15: 4P*4;
// 16-23: non-resonance;
// 24:   pdf after calculating;
// 28: mass and width;
// 29-30: amp, phase;
// 31-34: g0: do/not cal prop about KaPi1; g1: do/not cal prop about Pi2Pim; modetype:
// 35-38: r0/1: centrifugal barrier; nstates: number of state;
// 39-40: use [first:last] amplitudes.
 
void EvtD0ToKSpipipi0pi0::calEva( double* PKs, double* Pip, double* Pim, double* Pi01,
                                  double* Pi02, double* mass1, double* mass2, double* width1,
                                  double* width2, double* amp, double* phase, double* r0,
                                  double* r1, int* g0, int* g1, int* g2, int* modetype,
                                  double nstates, double& Result ) {
 
  double cof[2], amp_tmp[2], amp_tmp1[2], amp_tmp2[2], amp_PDF[2], PDF[2];
 
  double pomega1[4], pomega2[4], pkst1[4], pkst2[4], pD0[4], prho0[4], prhom1[4], prhom2[4],
      prhop1[4], prhop2[4], pb101[4], pb102[4], pa101[4], pa102[4], pf01[4], Pf02[4],
      pk1400[4], pf1285[4], prho01[4], prho02[4], pkstm[4], pkpi01SW[4], pkpi02SW[4],
      p1omega1[4], p1omega2[4], prho1450[4], pa1p[4], pkstm1[4], pkstm2[4], pk127p1[4],
      pk127p2[4], prhom11[4], prhom12[4], prhom111[4], prhom112[4], pk11[4], pk12[4], pa1p1[4],
      pa1p2[4], pb1omega1[4], pb1omega2[4], pb1rho01[4], pb1rho02[4], pb1rhom1[4], pb1rhom2[4],
      pb1rhop1[4], pb1rhop2[4], pa101_rhop[4], pa102_rhop[4], pa1rhop1[4], pa1rhop2[4],
      pkst1_20[4], pkst2_20[4], pa101_rhom[4], pa102_rhom[4], pa1rhom1[4], pa1rhom2[4],
      pkst1_33[4], pkst2_33[4], pk127rhop1[4], pk127rhop2[4], pk140kstm1[4], pk140kstm2[4],
      pk140rhop1[4], pk140rhop2[4], pf1285rho0[4], pa1prhop1[4], pa1prhop2[4], pb1rho0[4],
      pphi1[4], pphi2[4], pkst1_2[4], pkst2_2[4], pk127mrhom1[4], pk127mrhom2[4],
      pk127mrhop1[4], pk127mrhop2[4], pk127m1[4], pk127m2[4], pk1270[4], pk1270rho0[4],
      pk01[4], pk140mrhop1[4], pk140mrhop2[4], pk140mkstm1[4], pk140mkstm2[4], pk140m1[4],
      pk140m2[4], pk1400rho01[4], pk1400rho02[4], pk1400kst01[4], pk1400kst02[4], pk14001[4],
      pk14002[4];
 
  for ( int i = 0; i != 4; i++ )
  {
    pomega1[i]    = Pi01[i] + Pip[i] + Pim[i]; // 1
    pkst2[i]      = PKs[i] + Pi02[i];
    pomega2[i]    = Pip[i] + Pim[i] + Pi02[i];
    pkst1_2[i]    = PKs[i] + Pi01[i];
    pphi1[i]      = Pi01[i] + Pip[i] + Pim[i]; // 1
    pkst2_2[i]    = PKs[i] + Pi02[i];
    pphi2[i]      = Pip[i] + Pim[i] + Pi02[i];
    pkst1[i]      = PKs[i] + Pi01[i];
    pD0[i]        = PKs[i] + Pi01[i] + Pip[i] + Pim[i] + Pi02[i];
    prho0[i]      = Pip[i] + Pim[i];
    prho01[i]     = Pip[i] + Pim[i];
    prho02[i]     = Pip[i] + Pim[i];
    prhom1[i]     = Pi01[i] + Pim[i];
    prhom2[i]     = Pim[i] + Pi02[i];
    prhop1[i]     = Pi01[i] + Pip[i];
    prhop2[i]     = Pip[i] + Pi02[i];
    pb101[i]      = Pi01[i] + Pip[i] + Pim[i] + Pi02[i]; // 4
    pb102[i]      = Pi01[i] + Pip[i] + Pim[i] + Pi02[i];
    pb1omega1[i]  = Pi01[i] + Pip[i] + Pim[i];
    pb1omega2[i]  = Pip[i] + Pim[i] + Pi02[i];
    pb1rho01[i]   = Pip[i] + Pim[i];
    pb1rho02[i]   = Pip[i] + Pim[i];
    pb1rhom1[i]   = Pi01[i] + Pim[i];
    pb1rhom2[i]   = Pim[i] + Pi02[i];
    pb1rhop1[i]   = Pi01[i] + Pip[i];
    pb1rhop2[i]   = Pip[i] + Pi02[i];
    pa1p[i]       = Pi01[i] + Pip[i] + Pi02[i]; // 18
    pa1p1[i]      = Pi01[i] + Pip[i] + Pi02[i];
    pa1p2[i]      = Pi01[i] + Pip[i] + Pi02[i];
    pa1prhop1[i]  = Pi01[i] + Pip[i];
    pa1prhop2[i]  = Pip[i] + Pi02[i];
    pkstm1[i]     = PKs[i] + Pim[i];
    pkstm2[i]     = PKs[i] + Pim[i];
    pkstm[i]      = PKs[i] + Pim[i];
    pa101_rhop[i] = Pi01[i] + Pip[i] + Pim[i]; // 20
    pa102_rhop[i] = Pip[i] + Pim[i] + Pi02[i];
    pa1rhop1[i]   = Pi01[i] + Pip[i];
    pa1rhop2[i]   = Pip[i] + Pi02[i];
    pkst1_20[i]   = PKs[i] + Pi01[i];
    pkst2_20[i]   = PKs[i] + Pi02[i];
    pa101_rhom[i] = Pi01[i] + Pip[i] + Pim[i]; // 33
    pa102_rhom[i] = Pip[i] + Pim[i] + Pi02[i];
    pa1rhom1[i]   = Pi01[i] + Pim[i];
    ;
    pa1rhom2[i] = Pim[i] + Pi02[i];
    pkst1_33[i] = PKs[i] + Pi01[i];
    pkst2_33[i] = PKs[i] + Pi02[i];
 
    pf1285[i]     = Pi01[i] + Pip[i] + Pim[i] + Pi02[i]; // 23
    pf01[i]       = Pi01[i] + Pi02[i];
    pf1285rho0[i] = Pip[i] + Pim[i];
 
    pk127mrhom1[i] = Pi01[i] + Pim[i]; // 45
    pk127mrhom2[i] = Pim[i] + Pi02[i];
    pk127mrhop1[i] = Pi01[i] + Pip[i];
    pk127mrhop2[i] = Pip[i] + Pi02[i];
    pk127m1[i]     = PKs[i] + Pi01[i] + Pim[i];
    pk127m2[i]     = PKs[i] + Pim[i] + Pi02[i];
 
    pk1270[i]     = PKs[i] + Pip[i] + Pim[i]; // 46
    pk1270rho0[i] = Pip[i] + Pim[i];
    pk01[i]       = Pi01[i] + Pi02[i];
 
    pk140mrhop1[i] = Pi01[i] + Pip[i]; // 31
    pk140mrhop2[i] = Pip[i] + Pi02[i];
    pk140mkstm1[i] = PKs[i] + Pim[i];
    pk140mkstm2[i] = PKs[i] + Pim[i];
    pk140m1[i]     = PKs[i] + Pi01[i] + Pim[i];
    pk140m2[i]     = PKs[i] + Pim[i] + Pi02[i];
 
    pk1400rho01[i] = Pip[i] + Pim[i]; // 42
    pk1400rho02[i] = Pip[i] + Pim[i];
    pk1400kst01[i] = PKs[i] + Pi01[i];
    pk1400kst02[i] = PKs[i] + Pi02[i];
    pk14001[i]     = PKs[i] + Pi01[i] + Pi02[i];
    pk14002[i]     = PKs[i] + Pi01[i] + Pi02[i];
 
    prho1450[i] = Pi01[i] + Pip[i] + Pim[i] + Pi02[i]; /// 39
  }
 
  double sKs, sPi01, skstm, sPim, sPip, sPi02, somega1, sk1270, somega2, skst1, skst2, sD0,
      srho0, srhop1, srhop2, srhom1, srhom2, sb101, sb102, skstm1, skstm2, sa1p, sa101, sa102,
      sf01, sf02, sk14001, sk14002, sk1400, sf1285, srho01, srho02, s1omega1, s1omega2,
      skpi01SW, skpi02SW, srho1450, sk127p1, sk127p2, sk127m1, sk127m2, srhom11, srhom12,
      srhom111, srhom112, sk11, sk12, sa1p1, sa1p2, sb1omega1, sb1omega2, sb1rho01, sb1rho02,
      sb1rhop1, sb1rhop2, sb1rhom1, sb1rhom2, sb1rho0, sa101_rhop, sa102_rhop, sa1rhop1,
      sa1rhop2, skst1_20, skst2_20, sa101_rhom, sa102_rhom, sa1rhom1, sa1rhom2, skst1_33,
      skst2_33, sk127mrhop1, sk127mrhop2, sk140m1, sk140m2, sk140mkstm1, sk140mkstm2,
      sk140mrhop1, sk140mrhop2, sf1285rho0, sa1prhop1, sa1prhop2, sphi1, sphi2, skst1_2,
      skst2_2, sk127mrhom1, sk127mrhom2, sk1270rho0, sk01, sk1400rho01, sk1400rho02,
      sk1400kst01, sk1400kst02;
 
  sKs        = SCADot( PKs, PKs );
  sPi01      = SCADot( Pi01, Pi01 );
  sPip       = SCADot( Pip, Pip );
  sPim       = SCADot( Pim, Pim );
  sPi02      = SCADot( Pi02, Pi02 );
  somega1    = SCADot( pomega1, pomega1 );
  somega2    = SCADot( pomega2, pomega2 );
  sphi1      = SCADot( pphi1, pphi1 );
  sphi2      = SCADot( pphi2, pphi2 );
  skst1      = SCADot( pkst1, pkst1 );
  skst2      = SCADot( pkst2, pkst2 );
  skst1_2    = SCADot( pkst1_2, pkst1_2 );
  skst2_2    = SCADot( pkst2_2, pkst2_2 );
  sD0        = SCADot( pD0, pD0 );
  srhop1     = SCADot( prhop1, prhop1 );
  srhop2     = SCADot( prhop2, prhop2 );
  srhom1     = SCADot( prhom1, prhom1 );
  srhom2     = SCADot( prhom2, prhom2 );
  srho0      = SCADot( prho0, prho0 );
  srho01     = SCADot( prho01, prho01 );
  srho02     = SCADot( prho02, prho02 );
  sb101      = SCADot( pb101, pb101 ); // 4
  sb102      = SCADot( pb102, pb102 );
  sb1omega1  = SCADot( pb1omega1, pb1omega1 );
  sb1omega2  = SCADot( pb1omega2, pb1omega2 );
  sb1rho01   = SCADot( pb1rho01, pb1rho01 );
  sb1rho02   = SCADot( pb1rho02, pb1rho02 );
  sb1rhop1   = SCADot( pb1rhop1, pb1rhop1 );
  sb1rhop2   = SCADot( pb1rhop2, pb1rhop2 );
  sb1rhom1   = SCADot( pb1rhom1, pb1rhom1 );
  sb1rhom2   = SCADot( pb1rhom2, pb1rhom2 );
  sb1rho0    = SCADot( pb1rho0, pb1rho0 );
  sa1p       = SCADot( pa1p, pa1p ); // 18
  sa1p1      = SCADot( pa1p1, pa1p1 );
  sa1p2      = SCADot( pa1p2, pa1p2 );
  skstm1     = SCADot( pkstm1, pkstm1 );
  skstm2     = SCADot( pkstm2, pkstm2 );
  skstm      = SCADot( pkstm, pkstm );
  sa1prhop1  = SCADot( pa1prhop1, pa1prhop1 );
  sa1prhop2  = SCADot( pa1prhop2, pa1prhop2 );
  sa101_rhop = SCADot( pa101_rhop, pa101_rhop ); // 20
  sa102_rhop = SCADot( pa102_rhop, pa102_rhop );
  sa1rhop1   = SCADot( pa1rhop1, pa1rhop1 );
  sa1rhop2   = SCADot( pa1rhop2, pa1rhop2 );
  skst1_20   = SCADot( pkst1_20, pkst1_20 );
  skst2_20   = SCADot( pkst2_20, pkst2_20 );
  sa101_rhom = SCADot( pa101_rhom, pa101_rhom ); // 33
  sa102_rhom = SCADot( pa102_rhom, pa102_rhom );
  sa1rhom1   = SCADot( pa1rhom1, pa1rhom1 );
  sa1rhom2   = SCADot( pa1rhom2, pa1rhom2 );
  skst1_33   = SCADot( pkst1_33, pkst1_33 );
  skst2_33   = SCADot( pkst2_33, pkst2_33 );
 
  sf1285     = SCADot( pf1285, pf1285 ); // 23
  sf01       = SCADot( pf01, pf01 );
  sf1285rho0 = SCADot( pf1285rho0, pf1285rho0 );
 
  sk127mrhom1 = SCADot( pk127mrhom1, pk127mrhom1 ); // 45
  sk127mrhom2 = SCADot( pk127mrhom2, pk127mrhom2 );
  sk127mrhop1 = SCADot( pk127mrhop1, pk127mrhop1 );
  sk127mrhop2 = SCADot( pk127mrhop2, pk127mrhop2 );
  sk127m1     = SCADot( pk127m1, pk127m1 );
  sk127m2     = SCADot( pk127m2, pk127m2 );
 
  sk1270     = SCADot( pk1270, pk1270 ); // 46
  sk1270rho0 = SCADot( pk1270rho0, pk1270rho0 );
  sk01       = SCADot( pk01, pk01 );
 
  sk140mrhop1 = SCADot( pk140mrhop1, pk140mrhop1 ); // 31
  sk140mrhop2 = SCADot( pk140mrhop2, pk140mrhop2 );
  sk140mkstm1 = SCADot( pk140mkstm1, pk140mkstm1 );
  sk140mkstm2 = SCADot( pk140mkstm2, pk140mkstm2 );
  sk140m1     = SCADot( pk140m1, pk140m1 );
  sk140m2     = SCADot( pk140m2, pk140m2 );
 
  sk1400rho01 = SCADot( pk1400rho01, pk1400rho01 ); // 42
  sk1400rho02 = SCADot( pk1400rho02, pk1400rho02 );
  sk1400kst01 = SCADot( pk1400kst01, pk1400kst01 );
  sk1400kst02 = SCADot( pk1400kst02, pk1400kst02 );
  sk14001     = SCADot( pk14001, pk14001 );
  sk14002     = SCADot( pk14002, pk14002 );
 
  srho1450 = SCADot( prho1450, prho1450 ); //////39
 
  ////////////////////////////////////////////////////////////////
  double t1rho01[4], t1rho02[4], t1rhop1[4], t1rhop2[4], t1rhom1[4], t1rhom2[4], t1omega01[4],
      t1omega02[4], t1omegap1[4], t1omegap2[4], t1omegam1[4], t1omegam2[4], t1kst1[4],
      t1kst2[4], t1D0_b1[4], t1D0_b2[4], t1D0_k14001[4], t1D0_k14002[4], t1D0[4],
      t1D0KPi01SW[4], t1D0KPi02SW[4], t1rho0[4], t1D0_rho1450ks0[4], t1rho14501[4],
      t1rho14502[4], t1D0_f1285[4], t1f1285[4], t1rhom11[4], t1rhom12[4], t1rhom111[4],
      t1rhom112[4], t1D0_k1[4], t1D0_k11[4], t1D0_k12[4], t1k1400rho01[4], t1k1400rho02[4],
      t1D0_k1400rho01[4], t1D0_k1400rho02[4], t1k1270rho0[4];
  double t1phi01[4], t1phi02[4], t1phip1[4], t1phip2[4], t1phim1[4], t1phim2[4];
  double p1omega01[4][4], p1omega02[4][4], p1omegap1[4][4], p1omegap2[4][4], p1omegam1[4][4],
      p1omegam2[4][4], p2k1400[4][4];
  double p1phi01[4][4], p1phi02[4][4], p1phip1[4][4], p1phip2[4][4], p1phim1[4][4],
      p1phim2[4][4], t1D0_k101[4], p2_k101[4][4], t1D0_k102[4], p2_k102[4][4];
  double p1b1_1[4][4], p1b1_2[4][4], pk1400_1[4][4], pk1400_2[4][4], p2a1270[4][4],
      p1rho14501[4][4], p1rho14502[4][4], p1a1m_1[4][4], p1a1m_2[4][4], t2_a102[4][4],
      p2f1285[4][4], p2_k11[4][4], p2_k12[4][4], pm_k11[4][4], pm_k12[4][4], p1k1m_1[4][4],
      p1k1m_2[4][4], t2D0_k11[4][4], t2D0_k12[4][4], t2f1285[4][4], p2k1270[4][4],
      t1D0_k1270[4], t1kst01[4], t1kst02[4], t1rhop11[4], t1rhop12[4], t1k140mrhop1[4],
      t1k140mrhop2[4], t1k140mkstm1[4], t1k140mkstm2[4];
  double t1b1rho01[4], t1b1rho02[4], t1b1rhop1[4], t1b1rhop2[4], t1b1rhom1[4], t1b1rhom2[4],
      t1b1omega01[4], t1b1omegap1[4], t1b1omegap2[4], t1b1omegam1[4], t1b1omegam2[4],
      p1b1omega01[4][4], p1b1omega02[4][4], p1b1omegap1[4][4], p1b1omegap2[4][4],
      p1b1omegam1[4][4], p1b1omegam2[4][4], t1a1prhop1[4], t1a1prhop2[4], t1a10rhop1[4],
      t1a10rhop2[4], t1a10kst1[4], t1a10kst2[4], t1a10rhom1[4], t1a10rhom2[4], t1k1400kst01[4],
      t1k1400kst02[4], t1b1omega02[4], t1f1rho0[4];
 
  // Sn---L(i)
  //        calt1(Pip,Pim,t1rho01); calt1(Pip,Pim,t1rho02);calt1(Pip,Pim,t1rho0);
  //                calt1(Pip,Pi01,t1rhop1); calt1(Pip,Pi02,t1rhop2);
  //                calt1(Pi01,Pim,t1rhom1);calt1(Pi02,Pim,t1rhom2);
  //        calt1(prho0,Pi01,t1omega01);calt1(prho0,Pi02,t1omega02);
  //                calt1(prhop1,Pim,t1omegap1);calt1(prhop2,Pim,t1omegap2);
  //                calt1(prhom1,Pip,t1omegam1);calt1(prhom2,Pip,t1omegam2);
  //        calt1(PKs,Pi01,t1kst1); calt1(PKs,Pi02,t1kst2);
  //                calt1(p1omega1,pkpi02SW,t1D0KPi02SW);
  //                calt1(p1omega2,pkpi01SW,t1D0KPi01SW);
  //        calt1(pb10,PKs,t1D0_b1);
  //                calt1(pk14001,Pi02,t1D0_k14001);
  //                calt1(pk14002,Pi01,t1D0_k14002);
  //
  //        //Sn---P(ij)
  //        calG2(prho0,Pi01,p1omega01);calG2(prho0,Pi02,p1omega02);calG2(prhop1,Pim,p1omegap1);
  //        calG2(prhop2,Pim,p1omegap2);calG2(prhom1,Pip,p1omegam1);calG2(prhom2,Pip,p1omegam2);
  //
  //        calG2(pomega1,Pi02,p1b1_1); calG2(pomega2,Pi01,p1b1_2);
  //                calG2(pomega1,PKs,pk1400_1); calG2(pomega2,PKs,pk1400_2);
  //      calG2(pkst1,Pi02,p2k1400_1); calG2(pkst2,Pi01,p2k1400_2);
 
  PDF[0] = 0.0;
  PDF[1] = 0.0;
 
  ////
  double t1D0_omega1kst2[4], t1D0_omega2kst1[4];
  double t1D0_phi1kst2[4], t1D0_phi2kst1[4];
  //        calt1(pomega1,pkst2,t1D0_omega1kst2); calt1(pomega2,pkst1,t1D0_omega2kst1);
 
  // Sn(l=2)
  double t2D0_omega1kst2[4][4], t2D0_omega2kst1[4][4], t2b1_1[4][4], t2b1_2[4][4],
      t2k1400_1[4][4], t2k1400_2[4][4], t2k1270[4][4];
  double t2D0_phi1kst2[4][4], t2D0_phi2kst1[4][4];
  //        calt2(pomega1,pkst2,t2D0_omega1kst2); calt2(pomega2,pkst1,t2D0_omega2kst1);
  //        calt2(pomega1,Pi02,t2b1_1); calt2(pomega2,Pi01,t2b1_2);
  //                calt2(pomega1,PKs,t2k1400_1); calt2(pomega2,PKs,t2k1400_2);
 
  // rho from omega
  double pro1V0[2], pro1Vm2[2], pro1Vp1[2], pro1Vp2[2], pro1Vm1[2], pro1V01[2], pro1V02[2],
      pro11Vp1[2], pro11Vp2[2], pro11Vm1[2], pro11Vm2[2], pro111Vm1[2], pro111Vm2[2], pf0_2[2],
      pro4V01[2], pro4V02[2], pro4Vp1[2], pro4Vp2[2], pro4Vm1[2], pro4Vm2[2];
 
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho0, sPip, sPim, rRes2, pro1V0 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho01, sPip, sPim, rRes2, pro1V01 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srho02, sPip, sPim, rRes2, pro1V02 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srhop1, sPip, sPi01, rRes2, pro1Vp1 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srhop2, sPip, sPi02, rRes2, pro1Vp2 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srhom1, sPi01, sPim, rRes2, pro1Vm1 );
  propagatorGS( 0.60102807, 0.77526, 0.1478, srhom2, sPi02, sPim, rRes2, pro1Vm2 );
 
  double B1_V01( -1 ), B1_V02( -1 ), B1_Vp1( -1 ), B1_Vp2( -1 ), B1_Vm1( -1 ), B1_Vm2( -1 ),
      B1_V0( -1 ), B1_Vm111( -1 ), B1_Vm112( -1 ), B1_Vm11( -1 ), B1_Vm12( -1 );
  // rho from omega  Blatt-We
  B1_V01 = BarrierN( 1, srho01, sPip, sPim, rRes2, 0.77526 );
  B1_V02 = BarrierN( 1, srho02, sPip, sPim, rRes2, 0.77526 );
  B1_V0  = BarrierN( 1, srho0, sPip, sPim, rRes2, 0.77526 );
  B1_Vp1 = BarrierN( 1, srhop1, sPip, sPi01, rRes2, 0.77526 );
  B1_Vp2 = BarrierN( 1, srhop2, sPip, sPi02, rRes2, 0.77526 );
  B1_Vm1 = BarrierN( 1, srhom1, sPi01, sPim, rRes2, 0.77526 );
  B1_Vm2 = BarrierN( 1, srhom2, sPi02, sPim, rRes2, 0.77526 );
 
  double B1_omega10( -1 ), B1_omega1p( -1 ), B1_omega1m( -1 ), B1_omega20( -1 ),
      B1_omega2p( -1 ), B1_omega2m( -1 ), B1_D0_k1400( -1 ), B1_D0_k14001( -1 ),
      B1_D0_k14002( -1 ), B2_k1400_1( -1 ), B2_k1400( -1 ), B2_k1400_2( -1 ),
      B1_D0_k1270( -1 ), B2_k1270( -1 ), B1_D0_f1( -1 ), B1_D0_a1pkpim1( -1 ),
      B1_D0_a1pkpim2( -1 ), B1_f1285( -1 ), B1_D0_k1( -1 ), B2_k1( -1 );
  double B1_phi10( -1 ), B1_phi1p( -1 ), B1_phi1m( -1 ), B1_phi20( -1 ), B1_phi2p( -1 ),
      B1_phi2m( -1 );
  double B1_D0_omega1( -1 ), B1_D0_omega2( -1 ), B1_kst1( -1 ), B1_kst2( -1 ), B1_D0_b1( -1 ),
      B1_D0_b2( -1 ), B1_a11p( -1 ), B1_a11m( -1 ), B2_a12p( -1 ), B2_a12m( -1 ),
      B1_kstm1( -1 ), B1_kstm2( -1 ), B1_D0_rho1450( -1 ), B1_kst1_2( -1 ), B1_kst2_2( -1 );
  double B1_D0_phi1( -1 ), B1_D0_phi2( -1 );
  double B1_rho10( -1 ), B1_rho1p( -1 ), B1_rho1m( -1 ), B1_rho20( -1 ), B1_rho2p( -1 ),
      B1_rho2m( -1 ), B1_b1_rho( -1 ), B1_b1_rho10( -1 ), B1_b1_rho1p( -1 ), B1_b1_rho1m( -1 ),
      B1_b1_rho20( -1 ), B1_b1_rho2p( -1 ), B1_b1_rho2m( -1 );
  double B1_a1prhop1( -1 ), B1_a1prhop2( -1 ), B1_a10rhop1( -1 ), B1_a10rhop2( -1 );
  double B1_a10rhom1( -1 ), B1_a10rhom2( -1 );
 
  double B2_D0_omega1( -1 ), B2_D0_omega2( -1 ), B2_b1_1( -1 ), B2_b1_2( -1 ), B2_D0_k1( -1 ),
      B2_D0_k11( -1 ), B2_D0_k12( -1 );
  double B2_D0_phi1( -1 ), B2_D0_phi2( -1 );
  double B1_f1285_rho0( -1 ), B1_k127_rhop( -1 ), B1_k127_rhop1( -1 ), B1_k127_rhop2( -1 ),
      B1_k140_kstm( -1 ), B1_k140_kstm1( -1 ), B1_k140_kstm2( -1 ), B1_k140_rhop( -1 ),
      B1_k140_rhop1( -1 ), B1_k140_rhop2( -1 ), B1_k127_rhom( -1 ), B1_k127_rhom1( -1 ),
      B1_k127_rhom2( -1 ), B1_D0_k101( -1 ), B1_D0_k102( -1 );
 
  double temp_PDF11, temp_PDF12, temp_PDF13, temp_PDF21, temp_PDF22, temp_PDF23;
  double pro0_01[2], pro0_p1[2], pro0_m1[2], pro0_02[2], pro0_p2[2], pro0_m2[2];
  double pro2_01[2], pro2_p1[2], pro2_m1[2], pro2_02[2], pro2_p2[2], pro2_m2[2];
 
  double proa_p1[2], proa_p2[2];
  double pro1_1[2], pro1_2[2], pro1_3[2], pro1_4[2], pf0_1[2], pro00_01[2], pro00_02[2];
  double pro2_1[2], pro2_2[2];
  double pro1_21[2], pro1_22[2], pro1_23[2], pro1_11[2], pro1_12[2], pro1_13[2], pro3_p1[2],
      pro3_p2[2], pro3_1[2], pro3_2[2], pro3_11[2], pro3_12[2], pro4_p2[2], pro4_1[2],
      pro4_p1[2], pro4_2[2], pro4_12[2], pro4_22[2], pro5_m1[2], pro5_m2[2], pro5_1[2],
      pro5_2[2], pro5_12[2], pro5_22[2], pro6_f1[2], pro6_f11[2], pro6_11[2], pro8_p1[2],
      pro8_1[2];
  double pro3_p11[2], pro3_p12[2], pro3_111[2], pro3_112[2];
  double pro4_11[2], pro4_111[2], pro4_112[2], pro5_11[2], pro5_112[2], pro5_111[2],
      pro5_222[2];
 
  // double pro0_1[2],pro0_2[2],pro0_3[2],pro0_4[2];
  double pro1_01[2], pro1_p1[2], pro1_m1[2], pro1_02[2], pro1_p2[2], pro1_m2[2];
  double prob1_1[2], prob1_2[2];
  double pro9_01[2], pro9_p1[2], pro9_m1[2], pro9_02[2], pro9_p2[2], pro9_m2[2], pro9_2[2],
      pro9_1[2], pro9_21[2], pro9_22[2], pro9_23[2], pro9_11[2], pro9_13[2], pro9_12[2],
      pro1_p20[2], pro10_42[2], pro11_42[2], pro42_21[2], pro42_22[2];
 
  double tpro_01[2], tpro_p1[2], tpro_m1[2], tpro_02[2], tpro_p2[2], tpro_m2[2], tpro11_p1[2],
      tpro11_p2[2], pro11_p1[2], pro11_p2[2], tpro10_42[2], tpro11_42[2];
  double tpro2_01[2], tpro2_p1[2], tpro2_m1[2], tpro2_02[2], tpro2_p2[2], tpro2_m2[2];
  double tpro1_01[2], tpro1_p1[2], tpro1_m1[2], tpro1_02[2], tpro1_p2[2], tpro1_m2[2];
  double tpro3_p1[2], tpro3_p2[2];
  double tpro4_p1[2], tpro4_p2[2];
  double tpro5_m1[2], tpro5_m2[2];
  double tpro9_01[2], tpro9_p1[2], tpro9_m1[2], tpro9_02[2], tpro9_p2[2], tpro9_m2[2];
 
  double pro_11[2], pro_12[2], pro_13[2], pro_21[2], pro_22[2], pro_23[2], pro_a1p[2],
      pro_a101[2], pro_a102[2], pfo_a1p[2], pfo_a101[2], pfo_a102[2], pro11_12[2], pro11_22[2];
  double pro2_11[2], pro2_12[2], pro2_13[2], pro2_21[2], pro2_22[2], pro2_23[2];
  double mass1sq, mass2sq;
  double pro10_p1[2], pro10_p2[2], pro10_1[2], pro10_2[2], pro10_12[2], pro10_22[2],
      tpro10_p1[2], tpro10_p2[2], pro10_Vp1[2], pro10_Vp2[2], pro45_m1[2], pro45_m2[2],
      tpro45_m1[2], pro45_10[2], tpro45_m2[2], pro45_11[2], pro0_20[2], pro1_20[2],
      pro0_p20[2], pro_20[2], pro10_21[2], pro10_23[2], pro10_24[2], pro10_25[2], pro10_26[2];
  double pro4_1112[2], pro4_2222[2], pro5_1112[2], pro5_2222[2];
 
  double B2_a1p_rhop1( -1 ), B1_D0_a1pkstm( -1 ), B1_D0_a1pkstm1( -1 ), B1_D0_a1pkstm2( -1 ),
      B2_a1p_rhop2( -1 ), B2_D0_a1pkstm1( -1 ), B2_D0_a1pkstm2( -1 ), B2_D0_a1pkstm( -1 ),
      B1_kst( -1 ), B1_kstm( -1 ), B1_kst01( -1 ), B1_kst02( -1 ), B1_rho14501( -1 ),
      B1_rho14502( -1 ), B1_D0_k11( -1 ), B1_D0_k12( -1 ), B1_k1270_rho0( -1 ),
      B1_f1270_rho0( -1 ), B1_k1400_rho0( -1 ), B1_k1400_rho01( -1 ), B1_k1400_rho02( -1 ),
      B1_k1400_kst0( -1 ), B1_k1400_kst01( -1 ), B1_k1400_kst02( -1 ), B1_D0_K1400rho0( -1 ),
      B1_D0_K1400rho01( -1 ), B1_D0_K1400rho02( -2 );
  double B1_a10_f0( -1 ), B1_a101( -1 ), B1_a102( -1 ), B1_D0_a1kst( -1 );
  double B1_a10_kst0( -1 ), B1_a10_kst( -1 ), B2_a10_rho( -1 ), B1_D0_a10kst0( -1 ),
      B2_D0_a10kst0( -1 ), B1_D0_a10kst01( -1 ), B1_D0_a10kst02( -1 ), B2_D0_a10kst01( -1 ),
      B2_D0_a10kst02( -1 );
  double p1a1p_1[4][4], p1a1p_2[4][4], t2_a1p1[4][4], t2_a1p2[4][4], t2D0_a1p2[4][4],
      t2D0_a1p[4][4], t2D0_a1p1[4][4], p1_a102[4][4], p1_a103[4][4], p2_a102[4][4],
      p2_a103[4][4], p1_k127p1[4][4], p1_k127p2[4][4], p1_k127m1[4][4], p1_k127m2[4][4];
  double t2D0_a101[4][4], t2D0_a102[4][4];
  double t1_a102[4][4], t1_a103[4][4], t2_a103[4][4];
  double t1kstm1[4], t1kstm2[4], t1kstm[4], t1D0_a1p[4], t1D0_a1p1[4], t1D0_a1p2[4],
      t2D0a101[4][4];
  double t1a1p[4], t1a101[1], t1a102[1], t1D0_kpimSW1[4], t1D0_kpimSW2[4];
  double t1D0_a101[4], t1D0_a102[4], t2D0a102[4][4], t1D0a101[4], t1D0a102[4];
  double temp_PDF1, temp_PDF2;
 
  //---------------------------------------------------------------------------
 
  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_PDF1  = 0;
    temp_PDF2  = 0;
 
    // D to V1V2, V1--PKsPi01, V2--V3Pip, V4--PimPi02
    if ( modetype[i] == 1 )
    {
      if ( g2[i] == 0 ) // spin=0  D to rho omega
      {
        if ( B1_omega10 == -1 )
        {
 
          B1_omega10 = BarrierN( 1, somega1, srho01, sPi01, rRes2, mass1[i] );
          B1_omega1p = BarrierN( 1, somega1, srhop1, sPim, rRes2, mass1[i] );
          B1_omega1m = BarrierN( 1, somega1, srhom1, sPip, rRes2, mass1[i] );
 
          B1_omega20 = BarrierN( 1, somega2, srho02, sPi02, rRes2, mass1[i] );
          B1_omega2p = BarrierN( 1, somega2, srhop2, sPim, rRes2, mass1[i] );
          B1_omega2m = BarrierN( 1, somega2, srhom2, sPip, rRes2, mass1[i] );
        }
        if ( B1_kst1 == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2, sKs, sPi02, rRes2, mass2[i] );
        }
 
        if ( B1_rho10 == -1 )
        {
          B1_rho10 = BarrierN( 1, srho01, sPip, sPim, rRes2, 0.77526 );
          B1_rho1p = BarrierN( 1, srhop1, sPip, sPi01, rRes2, 0.77526 );
          B1_rho1m = BarrierN( 1, srhom1, sPi01, sPim, rRes2, 0.77526 );
 
          B1_rho20 = BarrierN( 1, srho02, sPip, sPim, rRes2, 0.77526 );
          B1_rho2p = BarrierN( 1, srhop2, sPip, sPi01, rRes2, 0.77526 );
          B1_rho2m = BarrierN( 1, srhom2, sPi02, sPim, rRes2, 0.77526 );
        }
 
        calt1( Pip, Pim, t1rho01 );
        calt1( Pip, Pim, t1rho02 );
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
        calt1( Pi01, Pim, t1rhom1 );
        calt1( Pi02, Pim, t1rhom2 );
        calt1( prho01, Pi01, t1omega01 );
        calt1( prho02, Pi02, t1omega02 );
        calt1( prhop1, Pim, t1omegap1 );
        calt1( prhop2, Pim, t1omegap2 );
        calt1( prhom1, Pip, t1omegam1 );
        calt1( prhom2, Pip, t1omegam2 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
        calG2( prho01, Pi01, p1omega01 );
        calG2( prho02, Pi02, p1omega02 );
        calG2( prhop1, Pim, p1omegap1 );
        calG2( prhop2, Pim, p1omegap2 );
        calG2( prhom1, Pip, p1omegam1 );
        calG2( prhom2, Pip, p1omegam2 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempomega1 = pomega1[j] * G[j][j] * G[i][i]; // p(omega)
            double tempomega2 = pomega2[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega01 = t1omega01[k] * G[k][k]; // Sn(ome)
              double temt1omega02 = t1omega02[k] * G[k][k];
              double temt1omegap1 = t1omegap1[k] * G[k][k];
              double temt1omegap2 = t1omegap2[k] * G[k][k];
              double temt1omegam1 = t1omegam1[k] * G[k][k];
              double temt1omegam2 = t1omegam2[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 temt1rho01 = t1rho01[l] * G[l][l] * E[i][j][k][l];
                double temt1rho02 = t1rho02[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop1 = t1rhop1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop2 = t1rhop2[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom1 = t1rhom1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom2 = t1rhom2[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF11 += G[m][m] * t1kst1[m] * p1omega02[m][i] * tempomega2 *
                                temt1omega02 * temt1rho02;
                  temp_PDF12 += G[m][m] * t1kst1[m] * p1omegap2[m][i] * tempomega2 *
                                temt1omegap2 * temt1rhop2;
                  temp_PDF13 += G[m][m] * t1kst1[m] * p1omegam2[m][i] * tempomega2 *
                                temt1omegam2 * temt1rhom2;
 
                  temp_PDF21 += G[m][m] * t1kst2[m] * p1omega01[m][i] * tempomega1 *
                                temt1omega01 * temt1rho01;
                  temp_PDF22 += G[m][m] * t1kst2[m] * p1omegap1[m][i] * tempomega1 *
                                temt1omegap1 * temt1rhop1;
                  temp_PDF23 += G[m][m] * t1kst2[m] * p1omegam1[m][i] * tempomega1 *
                                temt1omegam1 * temt1rhom1;
                }
              }
            }
          }
        }
 
        temp_PDF11 = temp_PDF11 * B1_omega20 * B1_kst1 * B1_rho20;
        temp_PDF12 = temp_PDF12 * B1_omega2p * B1_kst1 * B1_rho2p;
        temp_PDF13 = temp_PDF13 * B1_omega2m * B1_kst1 * B1_rho2m;
        temp_PDF21 = temp_PDF21 * B1_omega10 * B1_kst2 * B1_rho10;
        temp_PDF22 = temp_PDF22 * B1_omega1p * B1_kst2 * B1_rho1p;
        temp_PDF23 = temp_PDF23 * B1_omega1m * B1_kst2 * B1_rho1m;
      }
      else if ( g2[i] == 1 )
      {
 
        if ( B1_omega10 == -1 )
        {
 
          B1_omega10 = BarrierN( 1, somega1, srho01, sPi01, rRes2, mass1[i] );
          B1_omega1p = BarrierN( 1, somega1, srhop1, sPim, rRes2, mass1[i] );
          B1_omega1m = BarrierN( 1, somega1, srhom1, sPip, rRes2, mass1[i] );
 
          B1_omega20 = BarrierN( 1, somega2, srho02, sPi02, rRes2, mass1[i] );
          B1_omega2p = BarrierN( 1, somega2, srhop2, sPim, rRes2, mass1[i] );
          B1_omega2m = BarrierN( 1, somega2, srhom2, sPip, rRes2, mass1[i] );
        }
 
        if ( B1_kst1 == -1 )
        {
 
          B1_kst1 = BarrierN( 1, skst1, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2, sKs, sPi02, rRes2, mass2[i] );
        }
 
        if ( B1_D0_omega1 == -1 )
        {
 
          B1_D0_omega1 = BarrierN( 1, sD0, somega1, skst2, rDs2, mD0M );
          B1_D0_omega2 = BarrierN( 1, sD0, somega2, skst1, rDs2, mD0M );
        }
 
        if ( B1_rho10 == -1 )
        {
          B1_rho10 = BarrierN( 1, srho01, sPip, sPim, rRes2, 0.77526 );
          B1_rho1p = BarrierN( 1, srhop1, sPip, sPi01, rRes2, 0.77526 );
          B1_rho1m = BarrierN( 1, srhom1, sPi01, sPim, rRes2, 0.77526 );
 
          B1_rho20 = BarrierN( 1, srho02, sPip, sPim, rRes2, 0.77526 );
          B1_rho2p = BarrierN( 1, srhop2, sPip, sPi01, rRes2, 0.77526 );
          B1_rho2m = BarrierN( 1, srhom2, sPi02, sPim, rRes2, 0.77526 );
        }
 
        calt1( Pip, Pim, t1rho01 );
        calt1( Pip, Pim, t1rho02 );
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
        calt1( Pi01, Pim, t1rhom1 );
        calt1( Pi02, Pim, t1rhom2 );
        calt1( prho01, Pi01, t1omega01 );
        calt1( prho02, Pi02, t1omega02 );
        calt1( prhop1, Pim, t1omegap1 );
        calt1( prhop2, Pim, t1omegap2 );
        calt1( prhom1, Pip, t1omegam1 );
        calt1( prhom2, Pip, t1omegam2 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
        calG2( prho01, Pi01, p1omega01 );
        calG2( prho02, Pi02, p1omega02 );
        calG2( prhop1, Pim, p1omegap1 );
        calG2( prhop2, Pim, p1omegap2 );
        calG2( prhom1, Pip, p1omegam1 );
        calG2( prhom2, Pip, p1omegam2 );
        calt1( pomega1, pkst2, t1D0_omega1kst2 );
        calt1( pomega2, pkst1, t1D0_omega2kst1 );
        for ( int i = 0; i < 4; i++ )
        {
          double tempD0 = pD0[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double temt1kst1 = t1kst1[j] * G[j][j];
            double temt1kst2 = t1kst2[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1D0_omega1kst2 = t1D0_omega1kst2[k] * G[k][k];
              double temt1D0_omega2kst1 = t1D0_omega2kst1[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                for ( int m = 0; m < 4; m++ )
                {
                  double temp1omega01 = p1omega01[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omega02 = p1omega02[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omegap1 = p1omegap1[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omegap2 = p1omegap2[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omegam1 = p1omegam1[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1omegam2 = p1omegam2[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];
 
                    for ( int p = 0; p < 4; p++ )
                    {
                      double temt1omega01 = t1omega01[p] * G[p][p];
                      double temt1omega02 = t1omega02[p] * G[p][p];
                      double temt1omegap1 = t1omegap1[p] * G[p][p];
                      double temt1omegap2 = t1omegap2[p] * G[p][p];
                      double temt1omegam1 = t1omegam1[p] * G[p][p];
                      double temt1omegam2 = t1omegam2[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 += tempD0 * temt1kst1 * temt1D0_omega2kst1 * temp1omega02 *
                                      E[m][n][p][q] * tempomega2 * temt1omega02 * t1rho02[q] *
                                      G[q][q];
                        temp_PDF12 += tempD0 * temt1kst1 * temt1D0_omega2kst1 * temp1omegap2 *
                                      E[m][n][p][q] * tempomega2 * temt1omegap2 * t1rhop2[q] *
                                      G[q][q];
                        temp_PDF13 += tempD0 * temt1kst1 * temt1D0_omega2kst1 * temp1omegam2 *
                                      E[m][n][p][q] * tempomega2 * temt1omegam2 * t1rhom2[q] *
                                      G[q][q];
                        temp_PDF21 += tempD0 * temt1kst2 * temt1D0_omega1kst2 * temp1omega01 *
                                      E[m][n][p][q] * tempomega1 * temt1omega01 * t1rho01[q] *
                                      G[q][q];
                        temp_PDF22 += tempD0 * temt1kst2 * temt1D0_omega1kst2 * temp1omegap1 *
                                      E[m][n][p][q] * tempomega1 * temt1omegap1 * t1rhop1[q] *
                                      G[q][q];
                        temp_PDF23 += tempD0 * temt1kst2 * temt1D0_omega1kst2 * temp1omegam1 *
                                      E[m][n][p][q] * tempomega1 * temt1omegam1 * t1rhom1[q] *
                                      G[q][q];
                      }
                    }
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_D0_omega2 * B1_omega20 * B1_kst1 * B1_rho20;
        temp_PDF12 = temp_PDF12 * B1_D0_omega2 * B1_omega2p * B1_kst1 * B1_rho2p;
        temp_PDF13 = temp_PDF13 * B1_D0_omega2 * B1_omega2m * B1_kst1 * B1_rho2m;
        temp_PDF21 = temp_PDF21 * B1_D0_omega1 * B1_omega10 * B1_kst2 * B1_rho10;
        temp_PDF22 = temp_PDF22 * B1_D0_omega1 * B1_omega1p * B1_kst2 * B1_rho1p;
        temp_PDF23 = temp_PDF23 * B1_D0_omega1 * B1_omega1m * B1_kst2 * B1_rho1m;
      }
      else if ( g2[i] == 2 )
      {
        if ( B1_omega10 == -1 )
        {
          B1_omega10 = BarrierN( 1, somega1, srho01, sPi01, rRes2, mass1[i] );
          B1_omega1p = BarrierN( 1, somega1, srhop1, sPim, rRes2, mass1[i] );
          B1_omega1m = BarrierN( 1, somega1, srhom1, sPip, rRes2, mass1[i] );
 
          B1_omega20 = BarrierN( 1, somega2, srho02, sPi02, rRes2, mass1[i] );
          B1_omega2p = BarrierN( 1, somega2, srhop2, sPim, rRes2, mass1[i] );
          B1_omega2m = BarrierN( 1, somega2, srhom2, sPip, rRes2, mass1[i] );
        }
 
        if ( B1_kst1 == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2, sKs, sPi02, rRes2, mass2[i] );
        }
 
        if ( B2_D0_omega1 == -1 )
        {
          B2_D0_omega1 = BarrierN( 2, sD0, somega1, skst2, rDs2, mD0M );
          B2_D0_omega2 = BarrierN( 2, sD0, somega2, skst1, rDs2, mD0M );
        }
 
        if ( B1_rho10 == -1 )
        {
          B1_rho10 = BarrierN( 1, srho01, sPip, sPim, rRes2, 0.77526 );
          B1_rho1p = BarrierN( 1, srhop1, sPip, sPi01, rRes2, 0.77526 );
          B1_rho1m = BarrierN( 1, srhom1, sPi01, sPim, rRes2, 0.77526 );
 
          B1_rho20 = BarrierN( 1, srho02, sPip, sPim, rRes2, 0.77526 );
          B1_rho2p = BarrierN( 1, srhop2, sPip, sPi01, rRes2, 0.77526 );
          B1_rho2m = BarrierN( 1, srhom2, sPi02, sPim, rRes2, 0.77526 );
        }
 
        calt1( Pip, Pim, t1rho01 );
        calt1( Pip, Pim, t1rho02 );
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
        calt1( Pi01, Pim, t1rhom1 );
        calt1( Pi02, Pim, t1rhom2 );
        calt1( prho01, Pi01, t1omega01 );
        calt1( prho02, Pi02, t1omega02 );
        calt1( prhop1, Pim, t1omegap1 );
        calt1( prhop2, Pim, t1omegap2 );
        calt1( prhom1, Pip, t1omegam1 );
        calt1( prhom2, Pip, t1omegam2 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
        calG2( prho01, Pi01, p1omega01 );
        calG2( prho02, Pi02, p1omega02 );
        calG2( prhop1, Pim, p1omegap1 );
        calG2( prhop2, Pim, p1omegap2 );
        calG2( prhom1, Pip, p1omegam1 );
        calG2( prhom2, Pip, p1omegam2 );
        calt2( pomega1, pkst2, t2D0_omega1kst2 );
        calt2( pomega2, pkst1, t2D0_omega2kst1 );
 
        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];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega01 = t1omega01[k] * G[k][k];
              double temt1omega02 = t1omega02[k] * G[k][k];
              double temt1omegap1 = t1omegap1[k] * G[k][k];
              double temt1omegap2 = t1omegap2[k] * G[k][k];
              double temt1omegam1 = t1omegam1[k] * G[k][k];
              double temt1omegam2 = t1omegam2[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho01 = t1rho01[l] * G[l][l] * E[i][j][k][l];
                double temt1rho02 = t1rho02[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop1 = t1rhop1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop2 = t1rhop2[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom1 = t1rhom1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom2 = t1rhom2[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temt1kst1 = t1kst1[m] * G[m][m];
                  double temt1kst2 = t1kst2[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 += t2D0_omega2kst1[m][n] * temt1kst1 * p1omega02[n][i] *
                                  tempomega2 * temt1omega02 * temt1rho02 * G[n][n];
                    temp_PDF12 += t2D0_omega2kst1[m][n] * temt1kst1 * p1omegap2[n][i] *
                                  tempomega2 * temt1omegap2 * temt1rhop2 * G[n][n];
                    temp_PDF13 += t2D0_omega2kst1[m][n] * temt1kst1 * p1omegam2[n][i] *
                                  tempomega2 * temt1omegam2 * temt1rhom2 * G[n][n];
                    temp_PDF21 += t2D0_omega1kst2[m][n] * temt1kst2 * p1omega01[n][i] *
                                  tempomega1 * temt1omega01 * temt1rho01 * G[n][n];
                    temp_PDF22 += t2D0_omega1kst2[m][n] * temt1kst2 * p1omegap1[n][i] *
                                  tempomega1 * temt1omegap1 * temt1rhop1 * G[n][n];
                    temp_PDF23 += t2D0_omega1kst2[m][n] * temt1kst2 * p1omegam1[n][i] *
                                  tempomega1 * temt1omegam1 * temt1rhom1 * G[n][n];
                  }
                }
              }
            }
          }
        }
 
        temp_PDF11 = temp_PDF11 * B2_D0_omega2 * B1_omega20 * B1_kst1 * B1_rho20;
        temp_PDF12 = temp_PDF12 * B2_D0_omega2 * B1_omega2p * B1_kst1 * B1_rho2p;
        temp_PDF13 = temp_PDF13 * B2_D0_omega2 * B1_omega2m * B1_kst1 * B1_rho2m;
        temp_PDF21 = temp_PDF21 * B2_D0_omega1 * B1_omega10 * B1_kst2 * B1_rho10;
        temp_PDF22 = temp_PDF22 * B2_D0_omega1 * B1_omega1p * B1_kst2 * B1_rho1p;
        temp_PDF23 = temp_PDF23 * B2_D0_omega1 * B1_omega1m * B1_kst2 * B1_rho1m;
      }
 
      // omega
      if ( g0[i] == 1 )
      {
        propagator( mass1sq, mass1[i], width1[i], somega1, pro0_01 ); // ome1--rho0 pi01
        propagator( mass1sq, mass1[i], width1[i], somega1, pro0_p1 ); // ome1--rhop (pi01)
        propagator( mass1sq, mass1[i], width1[i], somega1, pro0_m1 ); // ome1--rhom (pi01)
        propagator( mass1sq, mass1[i], width1[i], somega2, pro0_02 ); // ome2--rho0 pi02
        propagator( mass1sq, mass1[i], width1[i], somega2, pro0_p2 ); // ome2--rhop  (pi02)
        propagator( mass1sq, mass1[i], width1[i], somega2, pro0_m2 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_01[0] = 1;
        pro0_01[1] = 0;
        pro0_p1[0] = 1;
        pro0_p1[1] = 0;
        pro0_m1[0] = 1;
        pro0_m1[1] = 0;
        pro0_02[0] = 1;
        pro0_02[1] = 0;
        pro0_p2[0] = 1;
        pro0_p2[1] = 0;
        pro0_m2[0] = 1;
        pro0_m2[1] = 0;
      }
      propagatorGS( 0.60102807, 0.77526, 0.1478, srho01, sPip, sPim, rRes2, pro1V01 );
      propagatorGS( 0.60102807, 0.77526, 0.1478, srho02, sPip, sPim, rRes2, pro1V02 );
      propagatorGS( 0.60102807, 0.77526, 0.1478, srhop1, sPip, sPi01, rRes2, pro1Vp1 );
      propagatorGS( 0.60102807, 0.77526, 0.1478, srhop2, sPip, sPi02, rRes2, pro1Vp2 );
      propagatorGS( 0.60102807, 0.77526, 0.1478, srhom1, sPi01, sPim, rRes2, pro1Vm1 );
      propagatorGS( 0.60102807, 0.77526, 0.1478, srhom2, sPi02, sPim, rRes2, pro1Vm2 );
 
      Com_Multi( pro0_01, pro1V01, tpro_01 );
      Com_Multi( pro0_p1, pro1Vp1, tpro_p1 );
      Com_Multi( pro0_m1, pro1Vm1, tpro_m1 );
 
      Com_Multi( pro0_02, pro1V02, tpro_02 );
      Com_Multi( pro0_p2, pro1Vp2, tpro_p2 );
      Com_Multi( pro0_m2, pro1Vm2, tpro_m2 );
 
      // kst
      if ( g1[i] == 1 )
      {
        propagatorRBW( mass2sq, mass2[i], width2[i], skst1, sKs, sPi01, rRes2, 1,
                       pro1_1 ); // kst1
        propagatorRBW( mass2sq, mass2[i], width2[i], skst2, sKs, sPi02, rRes2, 1,
                       pro1_2 ); // kst2
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
      }
 
      Com_Multi( tpro_01, pro1_2, pro_21 );
      Com_Multi( tpro_p1, pro1_2, pro_22 );
      Com_Multi( tpro_m1, pro1_2, pro_23 );
 
      Com_Multi( tpro_02, pro1_1, pro_11 );
      Com_Multi( tpro_p2, pro1_1, pro_12 );
      Com_Multi( tpro_m2, pro1_1, pro_13 );
 
      amp_tmp1[0] =
          -1 * ( temp_PDF11 * pro_11[0] ) + temp_PDF12 * pro_12[0] + temp_PDF13 * pro_13[0];
      amp_tmp1[1] =
          -1 * ( temp_PDF11 * pro_11[1] ) + temp_PDF12 * pro_12[1] + temp_PDF13 * pro_13[1];
      amp_tmp2[0] =
          -1 * ( temp_PDF21 * pro_21[0] ) + temp_PDF22 * pro_22[0] + temp_PDF23 * pro_23[0];
      amp_tmp2[1] =
          -1 * ( temp_PDF21 * pro_21[1] ) + temp_PDF22 * pro_22[1] + temp_PDF23 * pro_23[1];
      //  printf("shuchu1: %.20f,%lf,%.20f, %.20f\n",
      //  amp_tmp1[1],amp_tmp2[1],amp_tmp1[0],amp_tmp2[0]);
    }
    if ( modetype[i] == 2 )
    {
      if ( g2[i] == 0 ) // spin=0  D to rho omega
      {
        if ( B1_phi10 == -1 )
        {
 
          B1_phi10 = BarrierN( 1, sphi1, srho01, sPi01, rRes2, mass1[i] );
          B1_phi1p = BarrierN( 1, sphi1, srhop1, sPim, rRes2, mass1[i] );
          B1_phi1m = BarrierN( 1, sphi1, srhom1, sPip, rRes2, mass1[i] );
 
          B1_phi20 = BarrierN( 1, sphi2, srho02, sPi02, rRes2, mass1[i] );
          B1_phi2p = BarrierN( 1, sphi2, srhop2, sPim, rRes2, mass1[i] );
          B1_phi2m = BarrierN( 1, sphi2, srhom2, sPip, rRes2, mass1[i] );
        }
        if ( B1_kst1_2 == -1 )
        {
          B1_kst1_2 = BarrierN( 1, skst1_2, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2_2 = BarrierN( 1, skst2_2, sKs, sPi02, rRes2, mass2[i] );
        }
        calt1( Pip, Pim, t1rho01 );
        calt1( Pip, Pim, t1rho02 );
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
        calt1( Pi01, Pim, t1rhom1 );
        calt1( Pi02, Pim, t1rhom2 );
        calt1( prho01, Pi01, t1phi01 );
        calt1( prho02, Pi02, t1phi02 );
        calt1( prhop1, Pim, t1phip1 );
        calt1( prhop2, Pim, t1phip2 );
        calt1( prhom1, Pip, t1phim1 );
        calt1( prhom2, Pip, t1phim2 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
        calG2( prho01, Pi01, p1phi01 );
        calG2( prho02, Pi02, p1phi02 );
        calG2( prhop1, Pim, p1phip1 );
        calG2( prhop2, Pim, p1phip2 );
        calG2( prhom1, Pip, p1phim1 );
        calG2( prhom2, Pip, p1phim2 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempphi1 = pphi1[j] * G[j][j] * G[i][i]; // p(omega)
            double tempphi2 = pphi2[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1phi01 = t1phi01[k] * G[k][k]; // Sn(ome)
              double temt1phi02 = t1phi02[k] * G[k][k];
              double temt1phip1 = t1phip1[k] * G[k][k];
              double temt1phip2 = t1phip2[k] * G[k][k];
              double temt1phim1 = t1phim1[k] * G[k][k];
              double temt1phim2 = t1phim2[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 temt1rho01 = t1rho01[l] * G[l][l] * E[i][j][k][l];
                double temt1rho02 = t1rho02[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop1 = t1rhop1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop2 = t1rhop2[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom1 = t1rhom1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom2 = t1rhom2[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF11 +=
                      G[m][m] * t1kst1[m] * p1phi02[m][i] * tempphi2 * temt1phi02 * temt1rho02;
                  temp_PDF12 +=
                      G[m][m] * t1kst1[m] * p1phip2[m][i] * tempphi2 * temt1phip2 * temt1rhop2;
                  temp_PDF13 +=
                      G[m][m] * t1kst1[m] * p1phim2[m][i] * tempphi2 * temt1phim2 * temt1rhom2;
 
                  temp_PDF21 +=
                      G[m][m] * t1kst2[m] * p1phi01[m][i] * tempphi1 * temt1phi01 * temt1rho01;
                  temp_PDF22 +=
                      G[m][m] * t1kst2[m] * p1phip1[m][i] * tempphi1 * temt1phip1 * temt1rhop1;
                  temp_PDF23 +=
                      G[m][m] * t1kst2[m] * p1phim1[m][i] * tempphi1 * temt1phim1 * temt1rhom1;
                }
              }
            }
          }
        }
 
        temp_PDF11 = temp_PDF11 * B1_phi20 * B1_kst1_2 * B1_V02;
        temp_PDF12 = temp_PDF12 * B1_phi2p * B1_kst1_2 * B1_Vp2;
        temp_PDF13 = temp_PDF13 * B1_phi2m * B1_kst1_2 * B1_Vm2;
        temp_PDF21 = temp_PDF21 * B1_phi10 * B1_kst2_2 * B1_V01;
        temp_PDF22 = temp_PDF22 * B1_phi1p * B1_kst2_2 * B1_Vp1;
        temp_PDF23 = temp_PDF23 * B1_phi1m * B1_kst2_2 * B1_Vm1;
      }
      else if ( g2[i] == 1 )
      {
 
        if ( B1_phi10 == -1 )
        {
 
          B1_phi10 = BarrierN( 1, sphi1, srho01, sPi01, rRes2, mass1[i] );
          B1_phi1p = BarrierN( 1, sphi1, srhop1, sPim, rRes2, mass1[i] );
          B1_phi1m = BarrierN( 1, sphi1, srhom1, sPip, rRes2, mass1[i] );
 
          B1_phi20 = BarrierN( 1, sphi2, srho02, sPi02, rRes2, mass1[i] );
          B1_phi2p = BarrierN( 1, sphi2, srhop2, sPim, rRes2, mass1[i] );
          B1_phi2m = BarrierN( 1, sphi2, srhom2, sPip, rRes2, mass1[i] );
        }
 
        if ( B1_kst1_2 == -1 )
        {
 
          B1_kst1_2 = BarrierN( 1, skst1_2, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2_2 = BarrierN( 1, skst2_2, sKs, sPi02, rRes2, mass2[i] );
        }
 
        if ( B1_D0_phi1 == -1 )
        {
 
          B1_D0_phi1 = BarrierN( 1, sD0, sphi1, skst2, rDs2, mD0M );
          B1_D0_phi2 = BarrierN( 1, sD0, sphi2, skst1, rDs2, mD0M );
        }
 
        calt1( Pip, Pim, t1rho01 );
        calt1( Pip, Pim, t1rho02 );
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
        calt1( Pi01, Pim, t1rhom1 );
        calt1( Pi02, Pim, t1rhom2 );
        calt1( prho01, Pi01, t1phi01 );
        calt1( prho02, Pi02, t1phi02 );
        calt1( prhop1, Pim, t1phip1 );
        calt1( prhop2, Pim, t1phip2 );
        calt1( prhom1, Pip, t1phim1 );
        calt1( prhom2, Pip, t1phim2 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
        calG2( prho01, Pi01, p1phi01 );
        calG2( prho02, Pi02, p1phi02 );
        calG2( prhop1, Pim, p1phip1 );
        calG2( prhop2, Pim, p1phip2 );
        calG2( prhom1, Pip, p1phim1 );
        calG2( prhom2, Pip, p1phim2 );
        calt1( pphi1, pkst2_2, t1D0_phi1kst2 );
        calt1( pphi2, pkst1_2, t1D0_phi2kst1 );
        for ( int i = 0; i < 4; i++ )
        {
          double tempD0 = pD0[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double temt1kst1 = t1kst1[j] * G[j][j];
            double temt1kst2 = t1kst2[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1D0_phi1kst2 = t1D0_phi1kst2[k] * G[k][k];
              double temt1D0_phi2kst1 = t1D0_phi2kst1[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                for ( int m = 0; m < 4; m++ )
                {
                  double temp1phi01 = p1phi01[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phi02 = p1phi02[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phip1 = p1phip1[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phip2 = p1phip2[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phim1 = p1phim1[l][m] * G[l][l] * G[m][m] * E[i][j][k][l];
                  double temp1phim2 = p1phim2[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];
 
                    for ( int p = 0; p < 4; p++ )
                    {
                      double temt1phi01 = t1phi01[p] * G[p][p];
                      double temt1phi02 = t1phi02[p] * G[p][p];
                      double temt1phip1 = t1phip1[p] * G[p][p];
                      double temt1phip2 = t1phip2[p] * G[p][p];
                      double temt1phim1 = t1phim1[p] * G[p][p];
                      double temt1phim2 = t1phim2[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 += tempD0 * temt1kst1 * temt1D0_phi2kst1 * temp1phi02 *
                                      E[m][n][p][q] * tempphi2 * temt1phi02 * t1rho02[q] *
                                      G[q][q];
                        temp_PDF12 += tempD0 * temt1kst1 * temt1D0_phi2kst1 * temp1phip2 *
                                      E[m][n][p][q] * tempphi2 * temt1phip2 * t1rhop2[q] *
                                      G[q][q];
                        temp_PDF13 += tempD0 * temt1kst1 * temt1D0_phi2kst1 * temp1phim2 *
                                      E[m][n][p][q] * tempphi2 * temt1phim2 * t1rhom2[q] *
                                      G[q][q];
                        temp_PDF21 += tempD0 * temt1kst2 * temt1D0_phi1kst2 * temp1phi01 *
                                      E[m][n][p][q] * tempphi1 * temt1phi01 * t1rho01[q] *
                                      G[q][q];
                        temp_PDF22 += tempD0 * temt1kst2 * temt1D0_phi1kst2 * temp1phip1 *
                                      E[m][n][p][q] * tempphi1 * temt1phip1 * t1rhop1[q] *
                                      G[q][q];
                        temp_PDF23 += tempD0 * temt1kst2 * temt1D0_phi1kst2 * temp1phim1 *
                                      E[m][n][p][q] * tempphi1 * temt1phim1 * t1rhom1[q] *
                                      G[q][q];
                      }
                    }
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_D0_phi2 * B1_phi20 * B1_kst1_2 * B1_V02;
        temp_PDF12 = temp_PDF12 * B1_D0_phi2 * B1_phi2p * B1_kst1_2 * B1_Vp2;
        temp_PDF13 = temp_PDF13 * B1_D0_phi2 * B1_phi2m * B1_kst1_2 * B1_Vm2;
        temp_PDF21 = temp_PDF21 * B1_D0_phi1 * B1_phi10 * B1_kst2_2 * B1_V01;
        temp_PDF22 = temp_PDF22 * B1_D0_phi1 * B1_phi1p * B1_kst2_2 * B1_Vp1;
        temp_PDF23 = temp_PDF23 * B1_D0_phi1 * B1_phi1m * B1_kst2_2 * B1_Vm1;
      }
      else if ( g2[i] == 2 )
      {
        if ( B1_phi10 == -1 )
        {
          B1_phi10 = BarrierN( 1, sphi1, srho01, sPi01, rRes2, mass1[i] );
          B1_phi1p = BarrierN( 1, sphi1, srhop1, sPim, rRes2, mass1[i] );
          B1_phi1m = BarrierN( 1, sphi1, srhom1, sPip, rRes2, mass1[i] );
 
          B1_phi20 = BarrierN( 1, sphi2, srho02, sPi02, rRes2, mass1[i] );
          B1_phi2p = BarrierN( 1, sphi2, srhop2, sPim, rRes2, mass1[i] );
          B1_phi2m = BarrierN( 1, sphi2, srhom2, sPip, rRes2, mass1[i] );
        }
 
        if ( B1_kst1_2 == -1 )
        {
          B1_kst1_2 = BarrierN( 1, skst1_2, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2_2 = BarrierN( 1, skst2_2, sKs, sPi02, rRes2, mass2[i] );
        }
 
        if ( B2_D0_phi1 == -1 )
        {
          B2_D0_phi1 = BarrierN( 2, sD0, sphi1, skst2_2, rDs2, mD0M );
          B2_D0_phi2 = BarrierN( 2, sD0, sphi2, skst1_2, rDs2, mD0M );
        }
 
        calt1( Pip, Pim, t1rho01 );
        calt1( Pip, Pim, t1rho02 );
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
        calt1( Pi01, Pim, t1rhom1 );
        calt1( Pi02, Pim, t1rhom2 );
        calt1( prho01, Pi01, t1phi01 );
        calt1( prho02, Pi02, t1phi02 );
        calt1( prhop1, Pim, t1phip1 );
        calt1( prhop2, Pim, t1phip2 );
        calt1( prhom1, Pip, t1phim1 );
        calt1( prhom2, Pip, t1phim2 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
        calG2( prho01, Pi01, p1phi01 );
        calG2( prho02, Pi02, p1phi02 );
        calG2( prhop1, Pim, p1phip1 );
        calG2( prhop2, Pim, p1phip2 );
        calG2( prhom1, Pip, p1phim1 );
        calG2( prhom2, Pip, p1phim2 );
        calt2( pphi1, pkst2_2, t2D0_phi1kst2 );
        calt2( pphi2, pkst1_2, t2D0_phi2kst1 );
 
        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];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1phi01 = t1phi01[k] * G[k][k];
              double temt1phi02 = t1phi02[k] * G[k][k];
              double temt1phip1 = t1phip1[k] * G[k][k];
              double temt1phip2 = t1phip2[k] * G[k][k];
              double temt1phim1 = t1phim1[k] * G[k][k];
              double temt1phim2 = t1phim2[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho01 = t1rho01[l] * G[l][l] * E[i][j][k][l];
                double temt1rho02 = t1rho02[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop1 = t1rhop1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop2 = t1rhop2[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom1 = t1rhom1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom2 = t1rhom2[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temt1kst1 = t1kst1[m] * G[m][m];
                  double temt1kst2 = t1kst2[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 += t2D0_phi2kst1[m][n] * temt1kst1 * p1phi02[n][i] * tempphi2 *
                                  temt1phi02 * temt1rho02 * G[n][n];
                    temp_PDF12 += t2D0_phi2kst1[m][n] * temt1kst1 * p1phip2[n][i] * tempphi2 *
                                  temt1phip2 * temt1rhop2 * G[n][n];
                    temp_PDF13 += t2D0_phi2kst1[m][n] * temt1kst1 * p1phim2[n][i] * tempphi2 *
                                  temt1phim2 * temt1rhom2 * G[n][n];
                    temp_PDF21 += t2D0_phi1kst2[m][n] * temt1kst2 * p1phi01[n][i] * tempphi1 *
                                  temt1phi01 * temt1rho01 * G[n][n];
                    temp_PDF22 += t2D0_phi1kst2[m][n] * temt1kst2 * p1phip1[n][i] * tempphi1 *
                                  temt1phip1 * temt1rhop1 * G[n][n];
                    temp_PDF23 += t2D0_phi1kst2[m][n] * temt1kst2 * p1phim1[n][i] * tempphi1 *
                                  temt1phim1 * temt1rhom1 * G[n][n];
                  }
                }
              }
            }
          }
        }
 
        temp_PDF11 = temp_PDF11 * B2_D0_phi2 * B1_phi20 * B1_kst1_2 * B1_V02;
        temp_PDF12 = temp_PDF12 * B2_D0_phi2 * B1_phi2p * B1_kst1_2 * B1_Vp2;
        temp_PDF13 = temp_PDF13 * B2_D0_phi2 * B1_phi2m * B1_kst1_2 * B1_Vm2;
        temp_PDF21 = temp_PDF21 * B2_D0_phi1 * B1_phi10 * B1_kst2_2 * B1_V01;
        temp_PDF22 = temp_PDF22 * B2_D0_phi1 * B1_phi1p * B1_kst2_2 * B1_Vp1;
        temp_PDF23 = temp_PDF23 * B2_D0_phi1 * B1_phi1m * B1_kst2_2 * B1_Vm1;
      }
      if ( g0[i] == 1 )
      {
 
        propagator( mass1sq, mass1[i], width1[i], sphi1, pro2_01 );
        propagator( mass1sq, mass1[i], width1[i], sphi1, pro2_p1 );
        propagator( mass1sq, mass1[i], width1[i], sphi1, pro2_m1 );
        propagator( mass1sq, mass1[i], width1[i], sphi2, pro2_02 );
        propagator( mass1sq, mass1[i], width1[i], sphi2, pro2_p2 );
        propagator( mass1sq, mass1[i], width1[i], sphi2, pro2_m2 );
      }
      else if ( g0[i] == 0 )
      {
        pro2_01[0] = 1;
        pro2_01[1] = 0;
        pro2_p1[0] = 1;
        pro2_p1[1] = 0;
        pro2_m1[0] = 1;
        pro2_m1[1] = 0;
        pro2_02[0] = 1;
        pro2_02[1] = 0;
        pro2_p2[0] = 1;
        pro2_p2[1] = 0;
        pro2_m2[0] = 1;
        pro2_m2[1] = 0;
      }
      if ( g1[i] == 1 )
      {
        propagatorRBW( mass2sq, mass2[i], width2[i], skst1_2, sKs, sPi01, rRes2, 1,
                       pro2_1 ); // kst1
        propagatorRBW( mass2sq, mass2[i], width2[i], skst2_2, sKs, sPi02, rRes2, 1,
                       pro2_2 ); // kst2
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
      }
      Com_Multi( pro2_01, pro1V01, tpro2_01 );
      Com_Multi( tpro2_01, pro2_2, pro2_21 );
      Com_Multi( pro2_p1, pro1Vp1, tpro2_p1 );
      Com_Multi( tpro2_p1, pro2_2, pro2_22 );
      Com_Multi( pro2_m1, pro1Vm1, tpro2_m1 );
      Com_Multi( tpro2_m1, pro2_2, pro2_23 );
 
      Com_Multi( pro2_02, pro1V02, tpro2_02 );
      Com_Multi( tpro2_02, pro2_1, pro2_11 );
      Com_Multi( pro2_p2, pro1Vp2, tpro2_p2 );
      Com_Multi( tpro2_p2, pro2_1, pro2_12 );
      Com_Multi( pro2_m2, pro1Vm2, tpro2_m2 );
      Com_Multi( tpro2_m2, pro2_1, pro2_13 );
 
      amp_tmp1[0] =
          -1 * ( temp_PDF11 * pro2_11[0] ) + temp_PDF12 * pro2_12[0] + temp_PDF13 * pro2_13[0];
      amp_tmp1[1] =
          -1 * ( temp_PDF11 * pro2_11[1] ) + temp_PDF12 * pro2_12[1] + temp_PDF13 * pro2_13[1];
      amp_tmp2[0] =
          -1 * ( temp_PDF21 * pro2_21[0] ) + temp_PDF22 * pro2_22[0] + temp_PDF23 * pro2_23[0];
      amp_tmp2[1] =
          -1 * ( temp_PDF21 * pro2_21[1] ) + temp_PDF22 * pro2_22[1] + temp_PDF23 * pro2_23[1];
    }
 
    else if ( modetype[i] == 40 )
    {
      if ( g2[i] == 0 ) // spin=0  D to rho omega
      {
        if ( B1_omega10 == -1 )
        {
 
          B1_omega10 = BarrierN( 1, somega1, srho01, sPi01, rRes2, mass1[i] );
          B1_omega1p = BarrierN( 1, somega1, srhop1, sPim, rRes2, mass1[i] );
          B1_omega1m = BarrierN( 1, somega1, srhom1, sPip, rRes2, mass1[i] );
 
          B1_omega20 = BarrierN( 1, somega2, srho02, sPi02, rRes2, mass1[i] );
          B1_omega2p = BarrierN( 1, somega2, srhop2, sPim, rRes2, mass1[i] );
          B1_omega2m = BarrierN( 1, somega2, srhom2, sPip, rRes2, mass1[i] );
        }
 
        if ( B1_D0_omega1 == -1 )
        {
          B1_D0_omega1 = BarrierN( 1, sD0, s1omega1, skpi02SW, rDs2, mD0M );
          B1_D0_omega2 = BarrierN( 1, sD0, s1omega2, skpi01SW, rDs2, mD0M );
        }
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempomega1 = pomega1[j] * G[j][j] * G[i][i]; // p(omega)
            double tempomega2 = pomega2[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega01 = t1omega01[k] * G[k][k]; // Sn(ome)
              double temt1omega02 = t1omega02[k] * G[k][k];
              double temt1omegap1 = t1omegap1[k] * G[k][k];
              double temt1omegap2 = t1omegap2[k] * G[k][k];
              double temt1omegam1 = t1omegam1[k] * G[k][k];
              double temt1omegam2 = t1omegam2[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 temt1rho01 = t1rho01[l] * G[l][l] * E[i][j][k][l];
                double temt1rho02 = t1rho02[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop1 = t1rhop1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop2 = t1rhop2[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom1 = t1rhom1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom2 = t1rhom2[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF11 += G[m][m] * t1D0KPi01SW[m] * p1omega02[m][i] * tempomega2 *
                                temt1omega02 * temt1rho02;
                  temp_PDF12 += G[m][m] * t1D0KPi01SW[m] * p1omegap2[m][i] * tempomega2 *
                                temt1omegap2 * temt1rhop2;
                  temp_PDF13 += G[m][m] * t1D0KPi01SW[m] * p1omegam2[m][i] * tempomega2 *
                                temt1omegam2 * temt1rhom2;
 
                  temp_PDF21 += G[m][m] * t1D0KPi02SW[m] * p1omega01[m][i] * tempomega1 *
                                temt1omega01 * temt1rho01;
                  temp_PDF22 += G[m][m] * t1D0KPi02SW[m] * p1omegap1[m][i] * tempomega1 *
                                temt1omegap1 * temt1rhop1;
                  temp_PDF23 += G[m][m] * t1D0KPi02SW[m] * p1omegam1[m][i] * tempomega1 *
                                temt1omegam1 * temt1rhom1;
                }
              }
            }
          }
        }
 
        temp_PDF11 = temp_PDF11 * B1_omega20 * B1_D0_omega2 * B1_V02;
        temp_PDF12 = temp_PDF12 * B1_omega2p * B1_D0_omega2 * B1_Vp2;
        temp_PDF13 = temp_PDF13 * B1_omega2m * B1_D0_omega2 * B1_Vm2;
        temp_PDF21 = temp_PDF21 * B1_omega10 * B1_D0_omega1 * B1_V01;
        temp_PDF22 = temp_PDF22 * B1_omega1p * B1_D0_omega1 * B1_Vp1;
        temp_PDF23 = temp_PDF23 * B1_omega1m * B1_D0_omega1 * B1_Vm1;
      }
 
      if ( g0[i] == 1 )
      {
        propagatorRBW( mass1sq, mass1[i], width1[i], somega1, srho01, sPi01, rRes2, 1,
                       pro0_01 ); // ome1--rho0 pi01
        propagatorRBW( mass1sq, mass1[i], width1[i], somega1, srhop1, sPim, rRes2, 1,
                       pro0_p1 ); // ome1--rhop (pi01)
        propagatorRBW( mass1sq, mass1[i], width1[i], somega1, srhom1, sPip, rRes2, 1,
                       pro0_m1 ); // ome1--rhom (pi01)
        propagatorRBW( mass1sq, mass1[i], width1[i], somega2, srho02, sPi02, rRes2, 1,
                       pro0_02 ); // ome2--rho0 pi02
        propagatorRBW( mass1sq, mass1[i], width1[i], somega2, srhop2, sPim, rRes2, 1,
                       pro0_p2 ); // ome2--rhop  (pi02)
        propagatorRBW( mass1sq, mass1[i], width1[i], somega2, srhom2, sPip, rRes2, 1,
                       pro0_m2 ); // ome2--rhom(pi02)
        /*          propagator(mass1sq,mass1[i],width1[i],somega1,pro0_01);//ome1--rho0 pi01
                  propagator(mass1sq,mass1[i],width1[i],somega1,pro0_p1);//ome1--rhop (pi01)
                  propagator(mass1sq,mass1[i],width1[i],somega1,pro0_m1);//ome1--rhom (pi01)
                  propagator(mass1sq,mass1[i],width1[i],somega2,pro0_02);//ome2--rho0 pi02
                  propagator(mass1sq,mass1[i],width1[i],somega2,pro0_p2);//ome2--rhop  (pi02)
                  propagator(mass1sq,mass1[i],width1[i],somega2,pro0_m2);
*/
      }
      else if ( g0[i] == 0 )
      {
        pro0_01[0] = 1;
        pro0_01[1] = 0;
        pro0_p1[0] = 1;
        pro0_p1[1] = 0;
        pro0_m1[0] = 1;
        pro0_m1[1] = 0;
        pro0_02[0] = 1;
        pro0_02[1] = 0;
        pro0_p2[0] = 1;
        pro0_p2[1] = 0;
        pro0_m2[0] = 1;
        pro0_m2[1] = 0;
      }
      // kst
      if ( g1[i] == 1 )
      {
        KPiSLASS( skpi01SW, sKs, sPi01, pro1_1 );
        KPiSLASS( skpi02SW, sKs, sPi02, pro1_2 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
      }
      // rho
      /*    if(r1[i]==1){
                  propagatorGS(0.60102807,0.77526,0.1478,srho01,sPip,sPim,rRes2,pro1V01);
                  propagatorGS(0.60102807,0.77526,0.1478,srho02,sPip,sPim,rRes2,pro1V02);
                  propagatorGS(0.60102807,0.77526,0.1478,srhop1,sPip,sPi01,rRes2,pro1Vp1);
                  propagatorGS(0.60102807,0.77526,0.1478,srhop2,sPip,sPi02,rRes2,pro1Vp2);
                  propagatorGS(0.60102807,0.77526,0.1478,srhom1,sPi01,sPim,rRes2,pro1Vm1);
                  propagatorGS(0.60102807,0.77526,0.1478,srhom2,sPi02,sPim,rRes2,pro1Vm2);
 
          }
          else if(r1[i]==0){
                  pro1V01[0] = 1; pro1V01[1] = 0;
                  pro1V02[0] = 1; pro1V02[1] = 0;
                  pro1Vp1[0] = 1; pro1Vp1[1] = 0;
                  pro1Vp2[0] = 1; pro1Vp2[1] = 0;
                  pro1Vm1[0] = 1; pro1Vm1[1] = 0;
                  pro1Vm2[0] = 1; pro1Vm2[1] = 0;
          }
          */
      Com_Multi( pro0_01, pro1V01, tpro_01 );
      Com_Multi( tpro_01, pro1_2, pro_21 );
      Com_Multi( pro0_p1, pro1Vp1, tpro_p1 );
      Com_Multi( tpro_p1, pro1_2, pro_22 );
      Com_Multi( pro0_m1, pro1Vm1, tpro_m1 );
      Com_Multi( tpro_m1, pro1_2, pro_23 );
 
      Com_Multi( pro0_02, pro1V02, tpro_02 );
      Com_Multi( tpro_02, pro1_1, pro_11 );
      Com_Multi( pro0_p2, pro1Vp2, tpro_p2 );
      Com_Multi( tpro_p2, pro1_1, pro_12 );
      Com_Multi( pro0_m2, pro1Vm2, tpro_m2 );
      Com_Multi( tpro_m2, pro1_1, pro_13 );
 
      amp_tmp1[0] =
          -1 * ( temp_PDF11 * pro_11[0] ) + temp_PDF12 * pro_12[0] + temp_PDF13 * pro_13[0];
      amp_tmp1[1] =
          -1 * ( temp_PDF11 * pro_11[1] ) + temp_PDF12 * pro_12[1] + temp_PDF13 * pro_13[1];
      amp_tmp2[0] =
          -1 * ( temp_PDF21 * pro_21[0] ) + temp_PDF22 * pro_22[0] + temp_PDF23 * pro_23[0];
      amp_tmp2[1] =
          -1 * ( temp_PDF21 * pro_21[1] ) + temp_PDF22 * pro_22[1] + temp_PDF23 * pro_23[1];
    }
 
    else if ( modetype[i] == 4 )
    {
      if ( g2[i] == 0 )
      {
        if ( B1_omega10 == -1 )
        {
          B1_omega10 = BarrierN( 1, sb1omega1, sb1rho01, sPi01, rRes2, mass2[i] );
          B1_omega1p = BarrierN( 1, sb1omega1, sb1rhop1, sPim, rRes2, mass2[i] );
          B1_omega1m = BarrierN( 1, sb1omega1, sb1rhom1, sPip, rRes2, mass2[i] );
 
          B1_omega20 = BarrierN( 1, sb1omega2, sb1rho02, sPi02, rRes2, mass2[i] );
          B1_omega2p = BarrierN( 1, sb1omega2, sb1rhop2, sPim, rRes2, mass2[i] );
          B1_omega2m = BarrierN( 1, sb1omega2, sb1rhom2, sPip, rRes2, mass2[i] );
        }
 
        if ( B1_D0_b1 == -1 )
        {
          B1_D0_b1 = BarrierN( 1, sD0, sb101, sKs, rDs2, mD0M );
          B1_D0_b2 = BarrierN( 1, sD0, sb102, sKs, rDs2, mD0M );
        }
 
        if ( B1_b1_rho == -1 )
        {
          B1_b1_rho10 = BarrierN( 1, sb1rho01, sPip, sPim, rRes2, 0.77526 );
          B1_b1_rho1p = BarrierN( 1, sb1rhop1, sPip, sPi01, rRes2, 0.77526 );
          B1_b1_rho1m = BarrierN( 1, sb1rhom1, sPi01, sPim, rRes2, 0.77526 );
 
          B1_b1_rho20 = BarrierN( 1, sb1rho02, sPip, sPim, rRes2, 0.77526 );
          B1_b1_rho2p = BarrierN( 1, sb1rhop2, sPip, sPi01, rRes2, 0.77526 );
          B1_b1_rho2m = BarrierN( 1, sb1rhom2, sPi02, sPim, rRes2, 0.77526 );
        }
 
        calt1( Pip, Pim, t1b1rho01 );
        calt1( Pip, Pim, t1b1rho02 );
        calt1( Pip, Pi01, t1b1rhop1 );
        calt1( Pip, Pi02, t1b1rhop2 );
        calt1( Pi01, Pim, t1b1rhom1 );
        calt1( Pi02, Pim, t1b1rhom2 );
        calt1( pb1rho01, Pi01, t1b1omega01 );
        calt1( pb1rho02, Pi02, t1b1omega02 );
        calt1( pb1rhop1, Pim, t1b1omegap1 );
        calt1( pb1rhop2, Pim, t1b1omegap2 );
        calt1( pb1rhom1, Pip, t1b1omegam1 );
        calt1( pb1rhom2, Pip, t1b1omegam2 );
        calt1( pb101, PKs, t1D0_b1 );
        calt1( pb102, PKs, t1D0_b2 );
        calG2( pb1omega1, Pi02, p1b1_1 );
        calG2( pb1omega2, Pi01, p1b1_2 );
        calG2( pb1rho01, Pi01, p1b1omega01 );
        calG2( pb1rho02, Pi02, p1b1omega02 );
        calG2( pb1rhop1, Pim, p1b1omegap1 );
        calG2( pb1rhop2, Pim, p1b1omegap2 );
        calG2( pb1rhom1, Pip, p1b1omegam1 );
        calG2( pb1rhom2, Pip, p1b1omegam2 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempomega1 = pb1omega1[j] * G[j][j] * G[i][i];
            double tempomega2 = pb1omega2[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega01 = t1b1omega01[k] * G[k][k];
              double temt1omega02 = t1b1omega02[k] * G[k][k];
              double temt1omegap1 = t1b1omegap1[k] * G[k][k];
              double temt1omegap2 = t1b1omegap2[k] * G[k][k];
              double temt1omegam1 = t1b1omegam1[k] * G[k][k];
              double temt1omegam2 = t1b1omegam2[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho01 = t1b1rho01[l] * G[l][l] * E[i][j][k][l];
                double temt1rho02 = t1b1rho02[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom2 = t1b1rhom2[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop1 = t1b1rhop1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop2 = t1b1rhop2[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom1 = t1b1rhom1[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temt1D0_b1 = t1D0_b1[m] * G[m][m];
                  double temt1D0_b2 = t1D0_b2[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 += temt1D0_b2 * p1b1_2[m][n] * p1b1omega02[n][i] * tempomega2 *
                                  temt1omega02 * temt1rho02 * G[n][n];
                    temp_PDF12 += temt1D0_b2 * p1b1_2[m][n] * p1b1omegap2[n][i] * tempomega2 *
                                  temt1omegap2 * temt1rhop2 * G[n][n];
                    temp_PDF13 += temt1D0_b2 * p1b1_2[m][n] * p1b1omegam2[n][i] * tempomega2 *
                                  temt1omegam2 * temt1rhom2 * G[n][n];
                    temp_PDF21 += temt1D0_b1 * p1b1_1[m][n] * p1b1omega01[n][i] * tempomega1 *
                                  temt1omega01 * temt1rho01 * G[n][n];
                    temp_PDF22 += temt1D0_b1 * p1b1_1[m][n] * p1b1omegap1[n][i] * tempomega1 *
                                  temt1omegap1 * temt1rhop1 * G[n][n];
                    temp_PDF23 += temt1D0_b1 * p1b1_1[m][n] * p1b1omegam1[n][i] * tempomega1 *
                                  temt1omegam1 * temt1rhom1 * G[n][n];
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_D0_b2 * B1_omega20 * B1_rho20;
        temp_PDF12 = temp_PDF12 * B1_D0_b2 * B1_omega2p * B1_rho2p;
        temp_PDF13 = temp_PDF13 * B1_D0_b2 * B1_omega2m * B1_rho2m;
        temp_PDF21 = temp_PDF21 * B1_D0_b1 * B1_omega10 * B1_rho10;
        temp_PDF22 = temp_PDF22 * B1_D0_b1 * B1_omega1p * B1_rho1p;
        temp_PDF23 = temp_PDF23 * B1_D0_b1 * B1_omega1m * B1_rho1m;
      }
      else if ( g2[i] == 2 )
      {
        if ( B1_omega10 == -1 )
        {
 
          B1_omega10 = BarrierN( 1, sb1omega1, sb1rho01, sPi01, rRes2, mass2[i] );
          B1_omega1p = BarrierN( 1, sb1omega1, sb1rhop1, sPim, rRes2, mass2[i] );
          B1_omega1m = BarrierN( 1, sb1omega1, sb1rhom1, sPip, rRes2, mass2[i] );
 
          B1_omega20 = BarrierN( 1, sb1omega2, sb1rho02, sPi02, rRes2, mass2[i] );
          B1_omega2p = BarrierN( 1, sb1omega2, sb1rhop2, sPim, rRes2, mass2[i] );
          B1_omega2m = BarrierN( 1, sb1omega2, sb1rhom2, sPip, rRes2, mass2[i] );
        }
 
        if ( B1_D0_b1 == -1 )
        {
          B1_D0_b1 = BarrierN( 1, sD0, sb101, sKs, rDs2, mD0M );
          B1_D0_b2 = BarrierN( 1, sD0, sb102, sKs, rDs2, mD0M );
        }
 
        if ( B2_b1_1 == -1 )
        {
          B2_b1_1 = BarrierN( 2, sb101, sb1omega1, sPi02, rRes2, mass1[i] );
          B2_b1_2 = BarrierN( 2, sb102, sb1omega2, sPi01, rRes2, mass1[i] );
        }
 
        if ( B1_b1_rho == -1 )
        {
          B1_b1_rho10 = BarrierN( 1, sb1rho01, sPip, sPim, rRes2, 0.77526 );
          B1_b1_rho1p = BarrierN( 1, sb1rhop1, sPip, sPi01, rRes2, 0.77526 );
          B1_b1_rho1m = BarrierN( 1, sb1rhom1, sPi01, sPim, rRes2, 0.77526 );
 
          B1_b1_rho20 = BarrierN( 1, sb1rho02, sPip, sPim, rRes2, 0.77526 );
          B1_b1_rho2p = BarrierN( 1, sb1rhop2, sPip, sPi01, rRes2, 0.77526 );
          B1_b1_rho2m = BarrierN( 1, sb1rhom2, sPi02, sPim, rRes2, 0.77526 );
        }
 
        calt1( Pip, Pi01, t1b1rhop1 );
        calt1( Pip, Pi02, t1b1rhop2 );
        calt1( Pi01, Pim, t1b1rhom1 );
        calt1( Pi02, Pim, t1b1rhom2 );
        calt1( Pip, Pim, t1b1rho01 );
        calt1( Pip, Pim, t1b1rho02 );
        calt1( pb1rho01, Pi01, t1b1omega01 );
        calt1( pb1rho02, Pi02, t1b1omega02 );
        calt1( pb1rhop1, Pim, t1b1omegap1 );
        calt1( pb1rhop2, Pim, t1b1omegap2 );
        calt1( pb1rhom1, Pip, t1b1omegam1 );
        calt1( pb1rhom2, Pip, t1b1omegam2 );
        calt1( pb101, PKs, t1D0_b1 );
        calt1( pb102, PKs, t1D0_b2 );
        calG2( pb1omega1, Pi02, p1b1_1 );
        calG2( pb1omega2, Pi01, p1b1_2 );
        calG2( pb1rho01, Pi01, p1b1omega01 );
        calG2( pb1rho02, Pi02, p1b1omega02 );
        calG2( pb1rhop1, Pim, p1b1omegap1 );
        calG2( pb1rhop2, Pim, p1b1omegap2 );
        calG2( pb1rhom1, Pip, p1b1omegam1 );
        calG2( pb1rhom2, Pip, p1b1omegam2 );
        calt2( pb1omega1, Pi02, t2b1_1 );
        calt2( pb1omega2, Pi01, t2b1_2 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempomega1 = pb1omega1[j] * G[j][j] * G[i][i];
            double tempomega2 = pb1omega2[j] * G[j][j] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega01 = t1b1omega01[k] * G[k][k];
              double temt1omega02 = t1b1omega02[k] * G[k][k];
              double temt1omegap1 = t1b1omegap1[k] * G[k][k];
              double temt1omegap2 = t1b1omegap2[k] * G[k][k];
              double temt1omegam1 = t1b1omegam1[k] * G[k][k];
              double temt1omegam2 = t1b1omegam2[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho01 = t1b1rho01[l] * G[l][l] * E[i][j][k][l];
                double temt1rho02 = t1b1rho02[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop1 = t1b1rhop1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop2 = t1b1rhop2[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom1 = t1b1rhom1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom2 = t1b1rhom2[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temt1D0_b1 = t1D0_b1[m] * G[m][m];
                  double temt1D0_b2 = t1D0_b2[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 += temt1D0_b2 * t2b1_2[m][n] * p1b1omega02[n][i] * tempomega2 *
                                  temt1omega02 * temt1rho02 * G[n][n];
                    temp_PDF12 += temt1D0_b2 * t2b1_2[m][n] * p1b1omegap2[n][i] * tempomega2 *
                                  temt1omegap2 * temt1rhop2 * G[n][n];
                    temp_PDF13 += temt1D0_b2 * t2b1_2[m][n] * p1b1omegam2[n][i] * tempomega2 *
                                  temt1omegam2 * temt1rhom2 * G[n][n];
                    temp_PDF21 += temt1D0_b1 * t2b1_1[m][n] * p1b1omega01[n][i] * tempomega1 *
                                  temt1omega01 * temt1rho01 * G[n][n];
                    temp_PDF22 += temt1D0_b1 * t2b1_1[m][n] * p1b1omegap1[n][i] * tempomega1 *
                                  temt1omegap1 * temt1rhop1 * G[n][n];
                    temp_PDF23 += temt1D0_b1 * t2b1_1[m][n] * p1b1omegam1[n][i] * tempomega1 *
                                  temt1omegam1 * temt1rhom1 * G[n][n];
                  }
                }
              }
            }
          }
        }
        /* temp_PDF11 = 0.5187*temp_PDF11*B1_D0_b1*B2_b1_2*B1_omega20*B1_V02;
         temp_PDF12 = 0.5187*temp_PDF12*B1_D0_b1*B2_b1_2*B1_omega2p*B1_Vp2;
         temp_PDF13 = 0.5187*temp_PDF13*B1_D0_b1*B2_b1_2*B1_omega2m*B1_Vm2;
 
         temp_PDF21 = 0.5187*temp_PDF21*B1_D0_b1*B2_b1_1*B1_omega10*B1_V01;
         temp_PDF22 = 0.5187*temp_PDF22*B1_D0_b1*B2_b1_1*B1_omega1p*B1_Vp1;
         temp_PDF23 = 0.5187*temp_PDF23*B1_D0_b1*B2_b1_1*B1_omega1m*B1_Vm1;
          */
 
        temp_PDF11 = temp_PDF11 * B1_D0_b2 * B2_b1_2 * B1_omega20 * B1_rho20;
        temp_PDF12 = temp_PDF12 * B1_D0_b2 * B2_b1_2 * B1_omega2p * B1_rho2p;
        temp_PDF13 = temp_PDF13 * B1_D0_b2 * B2_b1_2 * B1_omega2m * B1_rho2m;
 
        temp_PDF21 = temp_PDF21 * B1_D0_b1 * B2_b1_1 * B1_omega10 * B1_rho10;
        temp_PDF22 = temp_PDF22 * B1_D0_b1 * B2_b1_1 * B1_omega1p * B1_rho1p;
        temp_PDF23 = temp_PDF23 * B1_D0_b1 * B2_b1_1 * B1_omega1m * B1_rho1m;
      }
      if ( g0[i] == 1 )
      { // b1 omega
 
        propagatorRBW( mass1sq, mass1[i], width1[i], sb101, sb1omega1, sPi02, rRes2, g2[i],
                       prob1_1 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sb102, sb1omega2, sPi01, rRes2, g2[i],
                       prob1_2 );
      }
      else if ( g0[i] == 0 )
      {
        prob1_1[0] = 1;
        prob1_1[1] = 0;
        prob1_2[0] = 1;
        prob1_2[1] = 0;
      }
      if ( g1[i] == 1 )
      { // omega--rho
 
        propagator( mass2sq, mass2[i], width2[i], sb1omega1, pro1_01 ); // ome1--rho0 pi01
        propagator( mass2sq, mass2[i], width2[i], sb1omega1, pro1_p1 ); // ome1--rhop (pi01)
        propagator( mass2sq, mass2[i], width2[i], sb1omega1, pro1_m1 ); // ome1--rhom (pi01)
        propagator( mass2sq, mass2[i], width2[i], sb1omega2, pro1_02 ); // ome2--rho0 pi02
        propagator( mass2sq, mass2[i], width2[i], sb1omega2, pro1_p2 ); // ome2--rhop  (pi02)
        propagator( mass2sq, mass2[i], width2[i], sb1omega2, pro1_m2 );
      }
 
      else if ( g1[i] == 0 )
      {
 
        pro1_01[0] = 1;
        pro1_01[1] = 0;
        pro1_p1[0] = 1;
        pro1_p1[1] = 0;
        pro1_m1[0] = 1;
        pro1_m1[1] = 0;
        pro1_02[0] = 1;
        pro1_02[1] = 0;
        pro1_p2[0] = 1;
        pro1_p2[1] = 0;
        pro1_m2[0] = 1;
        pro1_m2[1] = 0;
      }
 
      Com_Multi( prob1_1, pro1_01, tpro1_01 ); // 10
      Com_Multi( prob1_1, pro1_p1, tpro1_p1 ); // 1p
      Com_Multi( prob1_1, pro1_m1, tpro1_m1 ); // 1m
 
      Com_Multi( prob1_2, pro1_02, tpro1_02 ); // 20
      Com_Multi( prob1_2, pro1_p2, tpro1_p2 ); // 2p
      Com_Multi( prob1_2, pro1_m2, tpro1_m2 ); // 2m
 
      propagatorGS( 0.60102807, 0.77526, 0.1478, sb1rho01, sPip, sPim, rRes2, pro4V01 );
      propagatorGS( 0.60102807, 0.77526, 0.1478, sb1rho02, sPip, sPim, rRes2, pro4V02 );
      propagatorGS( 0.60102807, 0.77526, 0.1478, sb1rhop1, sPip, sPi01, rRes2, pro4Vp1 );
      propagatorGS( 0.60102807, 0.77526, 0.1478, sb1rhop2, sPip, sPi02, rRes2, pro4Vp2 );
      propagatorGS( 0.60102807, 0.77526, 0.1478, sb1rhom1, sPi01, sPim, rRes2, pro4Vm1 );
      propagatorGS( 0.60102807, 0.77526, 0.1478, sb1rhom2, sPi02, sPim, rRes2, pro4Vm2 );
 
      Com_Multi( tpro1_01, pro4V01, pro1_21 ); // 10
      Com_Multi( tpro1_p1, pro4Vp1, pro1_22 ); // 1p
      Com_Multi( tpro1_m1, pro4Vm1, pro1_23 ); // 1m
 
      Com_Multi( tpro1_02, pro4V02, pro1_11 ); // 20
      Com_Multi( tpro1_p2, pro4Vp2, pro1_12 ); // 2p
      Com_Multi( tpro1_m2, pro4Vm2, pro1_13 ); // 2m
 
      amp_tmp1[0] = -1 * ( temp_PDF11 * pro1_11[0] ) + temp_PDF12 * pro1_12[0] +
                    temp_PDF13 * pro1_13[0]; // b1--omega2
      amp_tmp1[1] =
          -1 * ( temp_PDF11 * pro1_11[1] ) + temp_PDF12 * pro1_12[1] + temp_PDF13 * pro1_13[1];
      amp_tmp2[0] = -1 * ( temp_PDF21 * pro1_21[0] ) + temp_PDF22 * pro1_22[0] +
                    temp_PDF23 * pro1_23[0]; // b1--omega1
      amp_tmp2[1] =
          -1 * ( temp_PDF21 * pro1_21[1] ) + temp_PDF22 * pro1_22[1] + temp_PDF23 * pro1_23[1];
    }
 
    else if ( modetype[i] == 18 )
    {
      if ( g2[i] == 1020 )
      { // 0101---SS
 
        if ( B1_kstm1 == -1 )
        {
          B1_kstm1 = BarrierN( 1, skstm1, sKs, sPim, rRes2, mass2[i] ); // m2==kst Fn(kst)
          B1_kstm2 = BarrierN( 1, skstm2, sKs, sPim, rRes2, mass2[i] );
        }
        if ( B1_a1prhop1 == -1 )
        {
          B1_a1prhop1 =
              BarrierN( 1, sa1prhop1, sPip, sPi01, rRes2, 0.77526 ); // m2==kst Fn(kst)
          B1_a1prhop2 = BarrierN( 1, sa1prhop2, sPip, sPi02, rRes2, 0.77526 );
        }
        // P(a1)
        calG2( pa1prhop1, Pi02, p1a1p_1 );
        calG2( pa1prhop2, Pi01, p1a1p_2 );
        calt1( PKs, Pim, t1kstm1 );
        calt1( PKs, Pim, t1kstm2 );
        calt1( Pip, Pi01, t1a1prhop1 );
        calt1( Pip, Pi02, t1a1prhop2 );
        // t1rhop1 t1rhop2
 
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a1p_rhop1 = t1a1prhop1[i] * G[i][i];
          double t1_a1p_rhop2 = t1a1prhop2[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += t1_a1p_rhop1 * t1kstm1[j] * G[j][j] * p1a1p_1[i][j];
            temp_PDF2 += t1_a1p_rhop2 * t1kstm2[j] * G[j][j] * p1a1p_2[i][j];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_kstm1 * B1_a1prhop1;
        temp_PDF2 = temp_PDF2 * B1_kstm2 * B1_a1prhop2;
      }
      /////////////////////////////SD
      else if ( g2[i] == 1022 )
      {
        if ( B1_kstm == -1 )
        {
          B1_kstm1 = BarrierN( 1, skstm1, sKs, sPim, rRes2, mass2[i] ); // m2==kst Fn(kst)
          B1_kstm2 = BarrierN( 1, skstm2, sKs, sPim, rRes2, mass2[i] );
        }
        if ( B2_a1p_rhop1 == -1 )
        {
          B2_a1p_rhop1 = BarrierN( 2, sa1p, srhop1, sPi02, rRes2, mass1[i] );
          B2_a1p_rhop2 = BarrierN( 2, sa1p, srhop2, sPi01, rRes2, mass1[i] );
        }
 
        calt1( PKs, Pim, t1kstm1 );
        calt1( PKs, Pim, t1kstm2 );
        calt2( prhop1, Pi02, t2_a1p1 );
        calt2( prhop2, Pi01, t2_a1p2 );
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
        // t1rhop1 t1rhop2
 
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a1p_rhop1 = t1rhop1[i] * G[i][i];
          double t1_a1p_rhop2 = t1rhop2[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += t1_a1p_rhop1 * t1kstm1[j] * G[j][j] * t2_a1p1[j][i];
            temp_PDF2 += t1_a1p_rhop2 * t1kstm2[j] * G[j][j] * t2_a1p2[j][i];
          }
        }
        temp_PDF1 = temp_PDF1 * B1_kstm1 * B1_Vp1 * B2_a1p_rhop1;
        temp_PDF2 = temp_PDF2 * B1_kstm2 * B1_Vp2 * B2_a1p_rhop2;
      }
 
      else if ( g2[i] == 1120 )
      {
        if ( B1_D0_a1pkstm == -1 )
        {
          B1_D0_a1pkstm1 = BarrierN( 1, sD0, sa1p1, skstm1, rDs2, mD0M );
          B1_D0_a1pkstm2 = BarrierN( 1, sD0, sa1p2, skstm2, rDs2, mD0M );
        }
 
        if ( B1_kstm == -1 )
        {
          B1_kstm1 = BarrierN( 1, skstm1, sKs, sPim, rRes2, mass2[i] ); // m2==kst Fn(kst)
          B1_kstm2 = BarrierN( 1, skstm2, sKs, sPim, rRes2, mass2[i] );
        }
        if ( B1_a1prhop1 == -1 )
        {
          B1_a1prhop1 =
              BarrierN( 1, sa1prhop1, sPip, sPi01, rRes2, 0.77526 ); // m2==kst Fn(kst)
          B1_a1prhop2 = BarrierN( 1, sa1prhop2, sPip, sPi02, rRes2, 0.77526 );
        }
        // B1_Vp1 B1_Vp2--rho+
 
        // Sn
        calt1( PKs, Pim, t1kstm1 );
        calt1( PKs, Pim, t1kstm2 );
        // t1rhop1 t1rhop2
        calt1( pa1p1, pkstm1, t1D0_a1p1 );
        calt1( pa1p2, pkstm2, t1D0_a1p2 );
        calt1( Pip, Pi01, t1a1prhop1 );
        calt1( Pip, Pi02, t1a1prhop2 );
 
        // P
        calG2( pa1prhop1, Pi02, p1a1p_1 );
        calG2( pa1prhop2, Pi01, p1a1p_2 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a1p_kstm1 = t1kstm1[i] * G[i][i];
          double t1_a1p_kstm2 = t1kstm2[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            double t1_a1p_rhop1 = t1a1prhop1[j] * G[j][j];
            double t1_a1p_rhop2 = t1a1prhop2[i] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double t1_D0_a1pkstm1 = t1D0_a1p1[k] * G[k][k];
              double t1_D0_a1pkstm2 = t1D0_a1p2[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double pD0_a1pkstm1 = pD0[l] * G[l][l];
                double pD0_a1pkstm2 = pD0[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += t1_a1p_rhop1 * t1_a1p_kstm1 * t1_D0_a1pkstm1 * pD0_a1pkstm1 *
                               p1a1p_1[m][j] * G[m][m] * E[i][k][l][m];
                  temp_PDF2 += t1_a1p_rhop2 * t1_a1p_kstm2 * t1_D0_a1pkstm2 * pD0_a1pkstm2 *
                               p1a1p_2[m][j] * G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
        temp_PDF1 = temp_PDF1 * B1_D0_a1pkstm1 * B1_kstm1 * B1_a1prhop1;
        temp_PDF2 = temp_PDF2 * B1_D0_a1pkstm2 * B1_kstm2 * B1_a1prhop2;
      }
 
      else if ( g2[i] == 1122 )
      { // 1121
        if ( B1_D0_a1pkstm == -1 )
        { B1_D0_a1pkstm = BarrierN( 1, sD0, sa1p, skstm, rDs2, mD0M ); }
 
        if ( B1_kstm == -1 )
        {
          B1_kstm = BarrierN( 1, skstm, sKs, sPim, rRes2, mass2[i] ); // m2==kst Fn(kst)
        }
        // B1_Vp1 B1_Vp2--rho+
        if ( B2_a1p_rhop1 == -1 )
        {
          B2_a1p_rhop1 = BarrierN( 2, sa1p, srhop1, sPi02, rRes2, mass1[i] );
          B2_a1p_rhop2 = BarrierN( 2, sa1p, srhop2, sPi01, rRes2, mass1[i] );
        }
 
        calt1( PKs, Pim, t1kstm );
        calt1( pa1p, pkstm, t1D0_a1p );
        // t1rhop1 t1rhop2
        calt2( pa1prhop1, Pi02, t2_a1p1 );
        calt2( pa1prhop2, Pi01, t2_a1p2 );
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a1p_rhop1 = t1rhop1[i] * G[i][i];
          double t1_a1p_rhop2 = t1rhop2[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double t1_a1p_kstm = t1kstm[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double t1_D0_a1pkstm = t1D0_a1p[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double pD0_a1pkstm = pD0[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += t1_a1p_rhop1 * t1_a1p_kstm * t1_D0_a1pkstm * pD0_a1pkstm *
                               t2_a1p1[m][j] * G[m][m] * E[i][k][l][m];
                  temp_PDF2 += t1_a1p_rhop2 * t1_a1p_kstm * t1_D0_a1pkstm * pD0_a1pkstm *
                               t2_a1p2[m][j] * G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_D0_a1pkstm * B1_kstm * B1_Vp1 * B2_a1p_rhop1;
        temp_PDF2 = temp_PDF2 * B1_D0_a1pkstm * B1_kstm * B1_Vp2 * B2_a1p_rhop2;
      }
 
      else if ( g2[i] == 1220 )
      { // 2101
        if ( B2_D0_a1pkstm1 == -1 )
        {
          B2_D0_a1pkstm1 = BarrierN( 2, sD0, sa1p1, skstm1, rDs2, mD0M );
          B2_D0_a1pkstm2 = BarrierN( 2, sD0, sa1p2, skstm2, rDs2, mD0M );
        }
        if ( B1_kstm == -1 )
        {
          B1_kstm1 = BarrierN( 1, skstm1, sKs, sPim, rRes2, mass2[i] ); // m2==kst Fn(kst)
          B1_kstm2 = BarrierN( 1, skstm2, sKs, sPim, rRes2, mass2[i] );
        }
        if ( B1_a1prhop1 == -1 )
        {
          B1_a1prhop1 =
              BarrierN( 1, sa1prhop1, sPip, sPi01, rRes2, 0.77526 ); // m2==kst Fn(kst)
          B1_a1prhop2 = BarrierN( 1, sa1prhop2, sPip, sPi02, rRes2, 0.77526 );
        }
        // B1_Vp1 B1_Vp2--rho+
 
        calt1( PKs, Pim, t1kstm1 );
        calt1( PKs, Pim, t1kstm2 );
        // t1rhop1 t1rhop2
        calt2( pa1p1, pkstm1, t2D0_a1p1 );
        calt2( pa1p2, pkstm2, t2D0_a1p2 );
 
        calG2( pa1prhop1, Pi02, p1a1p_1 );
        calG2( pa1prhop2, Pi01, p1a1p_2 );
        calt1( Pip, Pi01, t1a1prhop1 );
        calt1( Pip, Pi02, t1a1prhop2 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a1p_rhop1 = t1a1prhop1[i] * G[i][i];
          double t1_a1p_rhop2 = t1a1prhop2[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double t1_a1p_kstm1 = t1kstm1[j] * G[j][j];
            double t1_a1p_kstm2 = t1kstm2[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              temp_PDF1 += t1_a1p_rhop1 * t1_a1p_kstm1 * t2D0_a1p1[k][i] * p1a1p_1[k][j];
              temp_PDF2 += t1_a1p_rhop2 * t1_a1p_kstm2 * t2D0_a1p2[k][i] * p1a1p_2[k][j];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B2_D0_a1pkstm1 * B1_kstm1 * B1_a1prhop1;
        temp_PDF2 = temp_PDF2 * B2_D0_a1pkstm2 * B1_kstm2 * B1_a1prhop2;
      }
 
      else if ( g2[i] == 1222 )
      { // 2121
        if ( B2_D0_a1pkstm == -1 )
        { B2_D0_a1pkstm = BarrierN( 2, sD0, sa1p, skstm, rDs2, mD0M ); }
        if ( B1_kstm == -1 )
        {
          B1_kstm = BarrierN( 1, skstm, sKs, sPim, rRes2, mass2[i] ); // m2==kst Fn(kst)
        }
        if ( B2_a1p_rhop1 == -1 )
        {
          B2_a1p_rhop1 = BarrierN( 2, sa1p, srhop1, sPi02, rRes2, mass1[i] );
          B2_a1p_rhop2 = BarrierN( 2, sa1p, srhop2, sPi01, rRes2, mass1[i] );
        }
        // B1_Vp1 B1_Vp2--rho+
 
        calt2( pa1p, pkstm, t2D0_a1p );
        calt1( PKs, Pim, t1kstm );
        calt2( prhop1, Pi02, t2_a1p1 );
        calt2( prhop2, Pi01, t2_a1p2 );
        // t1rhop1 t1rhop2
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a1p_rhop1 = t1rhop1[i] * G[i][i];
          double t1_a1p_rhop2 = t1rhop2[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double t1_a1p_kstm = t1kstm[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              temp_PDF1 +=
                  t1_a1p_rhop1 * t1_a1p_kstm * t2D0_a1p[k][i] * t2_a1p1[k][j] * G[k][k];
              temp_PDF2 +=
                  t1_a1p_rhop2 * t1_a1p_kstm * t2D0_a1p[k][i] * t2_a1p2[k][j] * G[k][k];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B2_D0_a1pkstm * B1_kstm * B1_Vp1 * B2_a1p_rhop1;
        temp_PDF2 = temp_PDF2 * B2_D0_a1pkstm * B1_kstm * B1_Vp2 * B2_a1p_rhop2;
      }
 
      if ( g0[i] == 1 )
      { // a1
        if ( g2[i] == 1020 || g2[i] == 1120 || g2[i] == 1220 )
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sa1p1, sa1prhop1, sPi02, rRes2, 0,
                            pro3_p1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sa1p2, sa1prhop2, sPi01, rRes2, 0,
                            pro3_p2 );
        }
        else
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sa1p1, sa1prhop1, sPi02, rRes2, 2,
                            pro3_p1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sa1p2, sa1prhop2, sPi01, rRes2, 2,
                            pro3_p2 );
        }
        propagatorGS( 0.60102807, 0.77526, 0.1478, sa1prhop1, sPip, sPi01, rRes2, pro3_p11 );
        propagatorGS( 0.60102807, 0.77526, 0.1478, sa1prhop2, sPip, sPi02, rRes2, pro3_p12 );
 
        Com_Multi( pro3_p1, pro3_p11, pro3_111 );
        Com_Multi( pro3_p2, pro3_p12, pro3_112 );
      }
      else if ( g0[i] == 0 )
      {
        pro3_p1[0] = 1;
        pro3_p1[1] = 0;
        pro3_p2[0] = 1;
        pro3_p2[1] = 0;
      }
 
      // kst
      if ( g1[i] == 1 )
      {
        propagatorRBW( mass2sq, mass2[i], width2[i], skstm1, sKs, sPim, rRes2, 1,
                       pro3_1 ); // kst1
        propagatorRBW( mass2sq, mass2[i], width2[i], skstm2, sKs, sPim, rRes2, 1,
                       pro3_2 ); // kst1
      }
      else if ( g1[i] == 0 )
      {
        pro3_1[0] = 1;
        pro3_1[1] = 0;
        pro3_2[0] = 1;
        pro3_2[1] = 0;
      }
 
      Com_Multi( pro3_111, pro3_1, pro3_11 );
      Com_Multi( pro3_112, pro3_2, pro3_12 );
 
      amp_tmp1[0] = temp_PDF1 * pro3_11[0];
      amp_tmp1[1] = temp_PDF1 * pro3_11[1];
      amp_tmp2[0] = temp_PDF2 * pro3_12[0];
      amp_tmp2[1] = temp_PDF2 * pro3_12[1];
    }
 
    else if ( modetype[i] == 20 )
    { // a1_0 K*0 a1_0 to rho_0 pi0 K*0 to KS0 pi0 rho_0 to pi+ pi-
      if ( g2[i] == 1020 )
      { // 0101---SS
        if ( B1_a10_kst0 == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1_20, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2_20, sKs, sPi02, rRes2, mass2[i] );
        }
        if ( B1_a10rhop1 == -1 )
        {
          B1_a10rhop1 =
              BarrierN( 1, sa1rhop1, sPip, sPi01, rRes2, 0.77526 ); // m2==kst Fn(kst)
          B1_a10rhop2 = BarrierN( 1, sa1rhop2, sPip, sPi02, rRes2, 0.77526 );
        }
        calt1( Pip, Pi01, t1a10rhop1 );
        calt1( Pip, Pi02, t1a10rhop2 );
        calt1( PKs, Pi01, t1a10kst1 );
        calt1( PKs, Pi02, t1a10kst2 );
        calG2( pa1rhop1, Pim, p1_a102 );
        calG2( pa1rhop2, Pim, p2_a102 );
        for ( int i = 0; i < 4; i++ )
        {
          double temt1rhop1 = t1a10rhop1[i] * G[i][i];
          double temt1rhop2 = t1a10rhop2[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += temt1rhop2 * t1a10kst1[j] * G[j][j] * p2_a102[i][j];
            temp_PDF2 += temt1rhop1 * t1a10kst2[j] * G[j][j] * p1_a102[i][j];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_kst1 * B1_a10rhop2;
        temp_PDF2 = temp_PDF2 * B1_kst2 * B1_a10rhop1;
      }
      /////////////////////////////SD
      else if ( g2[i] == 1022 )
      {
        if ( B1_a10_kst0 == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2, sKs, sPi02, rRes2, mass2[i] );
        }
        if ( B2_a10_rho == -1 )
        {
          B1_a11p = BarrierN( 2, sa101, srhop1, sPim, rRes2, mass1[i] );
          B2_a12p = BarrierN( 2, sa102, srhop2, sPim, rRes2, mass1[i] );
        }
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
 
        calt2( prhop1, Pim, t1_a102 );
        calt2( prhop2, Pim, t2_a102 );
        // t1rhop1 t1rhop2
 
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a10_rhop1 = t1rhop1[i] * G[i][i];
          double t1_a10_rhop2 = t1rhop2[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += t1_a10_rhop2 * t1kst1[j] * G[j][j] * t2_a102[j][i];
            temp_PDF2 += t1_a10_rhop1 * t1kst2[j] * G[j][j] * t1_a102[j][i];
          }
        }
        temp_PDF1 = temp_PDF1 * B1_kst1 * B1_Vp2 * B2_a12p;
        temp_PDF2 = temp_PDF2 * B1_kst2 * B1_Vp1 * B1_a11p;
      }
 
      else if ( g2[i] == 1120 )
      {
        if ( B1_D0_a10kst0 == -1 )
        {
          B1_D0_a10kst01 = BarrierN( 1, sD0, sa102_rhop, skst1_20, rDs2, mD0M );
          B1_D0_a10kst02 = BarrierN( 1, sD0, sa101_rhop, skst2_20, rDs2, mD0M );
        }
        if ( B1_a10_kst0 == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1_20, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2_20, sKs, sPi02, rRes2, mass2[i] );
        }
        if ( B1_a10rhop1 == -1 )
        {
          B1_a10rhop1 =
              BarrierN( 1, sa1rhop1, sPip, sPi01, rRes2, 0.77526 ); // m2==kst Fn(kst)
          B1_a10rhop2 = BarrierN( 1, sa1rhop2, sPip, sPi02, rRes2, 0.77526 );
        }
        // B1_Vp1 B1_Vp2--rho+
 
        // t1rhop1 t1rhop2
        calt1( Pip, Pi01, t1a10rhop1 );
        calt1( Pip, Pi02, t1a10rhop2 );
        calt1( PKs, Pi01, t1a10kst1 );
        calt1( PKs, Pi02, t1a10kst2 );
        calt1( pa101_rhop, pkst2_20, t1D0_a101 );
        calt1( pa102_rhop, pkst1_20, t1D0_a102 );
 
        // P
        calG2( pa1rhop1, Pim, p1a1p_1 );
        calG2( pa1rhop2, Pim, p1a1p_2 );
        for ( int i = 0; i < 4; i++ )
        {
 
          double t1_a10_kst01 = t1a10kst1[i] * G[i][i];
          double t1_a10_kst02 = t1a10kst2[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
 
            double t1_a10_rhop1 = t1rhop1[j] * G[j][j];
            double t1_a10_rhop2 = t1rhop2[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double t1_D0_a10kst01 = t1D0_a101[k] * G[k][k];
              double t1_D0_a10kst02 = t1D0_a102[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double pD0_a10kst1 = pD0[l] * G[l][l];
                double pD0_a10kst2 = pD0[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += t1_a10_rhop2 * t1_a10_kst01 * t1_D0_a10kst02 * pD0_a10kst2 *
                               p1a1p_2[m][j] * G[m][m] * E[i][k][l][m];
                  temp_PDF2 += t1_a10_rhop1 * t1_a10_kst02 * t1_D0_a10kst01 * pD0_a10kst1 *
                               p1a1p_1[m][j] * G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
        temp_PDF1 = temp_PDF1 * B1_D0_a10kst01 * B1_kst1 * B1_a10rhop2;
        temp_PDF2 = temp_PDF2 * B1_D0_a10kst02 * B1_kst2 * B1_a10rhop1;
      }
 
      else if ( g2[i] == 1122 )
      { // 1121
        if ( B1_D0_a10kst0 == -1 )
        {
          B1_D0_a10kst01 = BarrierN( 1, sD0, sa102, skst1, rDs2, mD0M );
          B1_D0_a10kst02 = BarrierN( 1, sD0, sa101, skst2, rDs2, mD0M );
        }
 
        if ( B1_a10_kst0 == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2, sKs, sPi02, rRes2, mass2[i] );
        }
        // B1_Vp1 B1_Vp2--rho+
        if ( B2_a10_rho == -1 )
        {
          B1_a11p = BarrierN( 2, sa101, srhop1, sPim, rRes2, mass1[i] );
 
          B2_a12p = BarrierN( 2, sa102, srhop2, sPim, rRes2, mass1[i] );
        }
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
        calt1( pa101, pkst2, t1D0_a101 );
        calt1( pa102, pkst1, t1D0_a102 );
        // t1rhop1 t1rhop2
        calt2( prhop1, Pim, t1_a102 );
        calt2( prhop2, Pim, t2_a102 );
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a10_rhop1 = t1rhop1[i] * G[i][i];
          double t1_a10_rhop2 = t1rhop2[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double t1_a10_kst01 = t1kst1[j] * G[j][j];
            double t1_a10_kst02 = t1kst2[j] * G[j][j];
            for ( int k = 0; k < 4; k++ )
            {
              double t1_D0_a101kst02 = t1D0_a101[k] * G[k][k];
              double t1_D0_a102kst01 = t1D0_a102[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double pD0_a10kst0 = pD0[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += t1_a10_rhop2 * t1_a10_kst01 * t1_D0_a101kst02 * pD0_a10kst0 *
                               t2_a102[m][j] * G[m][m] * E[i][k][l][m];
                  temp_PDF2 += t1_a10_rhop1 * t1_a10_kst02 * t1_D0_a102kst01 * pD0_a10kst0 *
                               t1_a102[m][j] * G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
        temp_PDF1 = temp_PDF1 * B1_D0_a10kst01 * B1_kst1 * B1_Vp2 * B2_a12p;
 
        temp_PDF2 = temp_PDF2 * B1_D0_a10kst02 * B1_kst2 * B1_Vp1 * B1_a11p;
      }
 
      else if ( g2[i] == 1220 )
      { // 2101
        if ( B2_D0_a10kst0 == -1 )
        {
          B2_D0_a10kst01 = BarrierN( 2, sD0, sa102_rhop, skst1_20, rDs2, mD0M );
          B2_D0_a10kst02 = BarrierN( 2, sD0, sa101_rhop, skst2_20, rDs2, mD0M );
        }
        if ( B1_a10_kst0 == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1_20, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2_20, sKs, sPi02, rRes2, mass2[i] );
        }
        // B1_Vp1 B1_Vp2--rho+
 
        // t1rhop1 t1rhop2
        calt2( pa101_rhop, pkst2_20, t2D0_a101 );
        calt2( pa102_rhop, pkst1_20, t2D0_a102 );
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
 
        calG2( pa1rhop1, Pim, p1a1p_1 );
        calG2( pa1rhop2, Pim, p1a1p_2 );
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a10_rhop1 = t1rhop1[i] * G[i][i];
          double t1_a10_rhop2 = t1rhop2[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double t1_a10_kst01 = t1kst1[j] * G[j][j];
            double t1_a10_kst02 = t1kst2[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              temp_PDF1 += t1_a10_rhop2 * t1_a10_kst01 * t2D0_a102[k][i] * p1a1p_2[k][i];
              temp_PDF2 += t1_a10_rhop1 * t1_a10_kst02 * t2D0_a101[k][i] * p1a1p_1[k][i];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B2_D0_a10kst01 * B1_kst1 * B1_Vp2;
        temp_PDF2 = temp_PDF2 * B2_D0_a10kst02 * B1_kst2 * B1_Vp1;
      }
 
      else if ( g2[i] == 1222 )
      { // 2121
        if ( B2_D0_a10kst0 == -1 )
        {
          B2_D0_a10kst01 = BarrierN( 2, sD0, sa102, skst1, rDs2, mD0M );
          B2_D0_a10kst02 = BarrierN( 2, sD0, sa101, skst2, rDs2, mD0M );
        }
        if ( B1_a10_kst0 == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2, sKs, sPi02, rRes2, mass2[i] );
        }
        if ( B2_a10_rho == -1 )
        {
          B1_a11p = BarrierN( 2, sa101, srhop1, sPim, rRes2, mass1[i] );
          B2_a12p = BarrierN( 2, sa102, srhop2, sPim, rRes2, mass1[i] );
        }
        // B1_Vp1 B1_Vp2--rho+
 
        calt2( pa101, pkst2, t2D0_a101 );
        calt2( pa102, pkst1, t2D0_a102 );
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
 
        calt2( prhop1, Pim, t1_a102 );
        calt2( prhop2, Pim, t2_a102 );
        // t1rhop1 t1rhop2
 
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a10_rhop1 = t1rhop1[i] * G[i][i];
          double t1_a10_rhop2 = t1rhop2[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            double t1_a10_kst01 = t1kst1[j] * G[j][j];
            double t1_a10_kst02 = t1kst2[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              temp_PDF1 +=
                  t1_a10_rhop2 * t1_a10_kst01 * t2D0_a102[k][i] * t2_a102[k][j] * G[k][k];
              temp_PDF2 +=
                  t1_a10_rhop1 * t1_a10_kst02 * t2D0_a101[k][i] * t1_a102[k][j] * G[k][k];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B2_D0_a10kst01 * B1_kst1 * B1_Vp2 * B2_a12p;
        temp_PDF2 = temp_PDF2 * B2_D0_a10kst02 * B1_kst2 * B1_Vp1 * B1_a11p;
      }
 
      if ( g0[i] == 1 )
      { // a1
        if ( g2[i] == 1020 || g2[i] == 1120 || g2[i] == 1220 )
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sa101_rhop, sa1rhop1, sPim, rRes2, 0,
                            pro4_p1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sa102_rhop, sa1rhop2, sPim, rRes2, 0,
                            pro4_p2 );
        }
        else
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sa101_rhop, sa1rhop1, sPim, rRes2, 2,
                            pro4_p1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sa102_rhop, sa1rhop2, sPim, rRes2, 2,
                            pro4_p2 );
        }
 
        propagatorGS( 0.60102807, 0.77526, 0.1478, sa1rhop1, sPip, sPi01, rRes2, pro4_11 );
        propagatorGS( 0.60102807, 0.77526, 0.1478, sa1rhop2, sPip, sPi02, rRes2, pro4_12 );
 
        Com_Multi( pro4_p1, pro4_11, pro4_111 );
        Com_Multi( pro4_p2, pro4_12, pro4_112 );
      }
      else if ( g0[i] == 0 )
      {
        pro4_p1[0] = 1;
        pro4_p1[1] = 0;
        pro4_p2[0] = 1;
        pro4_p2[1] = 0;
      }
 
      if ( g1[i] == 1 )
      {
        propagatorRBW( mass2sq, mass2[i], width2[i], skst1_20, sKs, sPi01, rRes2, 1,
                       pro4_1 ); // kst1
        propagatorRBW( mass2sq, mass2[i], width2[i], skst2_20, sKs, sPi02, rRes2, 1,
                       pro4_2 ); // kst2
      }
      else if ( g1[i] == 0 )
      {
        pro4_1[0] = 1;
        pro4_1[1] = 0;
        pro4_2[0] = 1;
        pro4_2[1] = 0;
      }
 
      Com_Multi( pro4_112, pro4_1, pro4_1112 );
      Com_Multi( pro4_111, pro4_2, pro4_2222 ); // 1p
 
      amp_tmp1[0] = temp_PDF1 * pro4_1112[0]; // b1--omega2
      amp_tmp1[1] = temp_PDF1 * pro4_1112[1];
      amp_tmp2[0] = temp_PDF2 * pro4_2222[0]; // b1--omega1
      amp_tmp2[1] = temp_PDF2 * pro4_2222[1];
    }
    else if ( modetype[i] == 33 )
    { // a1_0 K*0 a1_0 to rho_0 pi0 K*0 to KS0 pi0 rho_0 to pi+ pi-
      if ( g2[i] == 1020 )
      { // 0101---SS
        if ( B1_a10_kst == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1_33, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2_33, sKs, sPi02, rRes2, mass2[i] );
        }
        if ( B1_a10rhom1 == -1 )
        {
          B1_a10rhom1 =
              BarrierN( 1, sa1rhom1, sPi01, sPim, rRes2, 0.77526 ); // m2==kst Fn(kst)
          B1_a10rhom2 = BarrierN( 1, sa1rhom2, sPi02, sPim, rRes2, 0.77526 );
        }
        // P(a1)
        calt1( PKs, Pi01, t1a10kst1 );
        calt1( PKs, Pi02, t1a10kst2 );
        calt1( Pi01, Pim, t1a10rhom1 );
        calt1( Pi02, Pim, t1a10rhom2 );
        calG2( pa1rhom1, Pip, p1_a103 );
        calG2( pa1rhom2, Pip, p2_a103 );
        //      printf("shuchu1: %lf, %lf\n", t1kst1[0],p2_a102[0][0]);
        for ( int i = 0; i < 4; i++ )
        {
          double temt1rhom1 = t1a10rhom1[i] * G[i][i];
          double temt1rhom2 = t1a10rhom2[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += temt1rhom2 * t1a10kst1[j] * G[j][j] * p2_a103[i][j];
            temp_PDF2 += temt1rhom1 * t1a10kst2[j] * G[j][j] * p1_a103[i][j];
            //             printf("shuchu1: %lf, %lf\n", p2_a103[0][0],p1_a103[0][0]);
          }
        }
        //  printf("shuchu1: %lf, %lf\n", B1_kst1,B1_Vm2);
        temp_PDF1 = temp_PDF1 * B1_kst1 * B1_a10rhom2;
        temp_PDF2 = temp_PDF2 * B1_kst2 * B1_a10rhom1;
      }
      else if ( g2[i] == 1022 )
      {
        if ( B1_a10_kst == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2, sKs, sPi02, rRes2, mass2[i] );
        }
        if ( B2_a10_rho == -1 )
        {
          B1_a11m = BarrierN( 2, sa101, srhom1, sPip, rRes2, mass1[i] );
 
          B2_a12m = BarrierN( 2, sa102, srhom2, sPip, rRes2, mass1[i] );
        }
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
        calt1( Pi01, Pim, t1rhom1 );
        calt1( Pi02, Pim, t1rhom2 );
        calt2( prhom1, Pip, t1_a103 );
        calt2( prhom2, Pip, t2_a103 );
        // t1rhop1 t1rhop2
 
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a10_rhom1 = t1rhom1[i] * G[i][i];
          double t1_a10_rhom2 = t1rhom2[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += t1_a10_rhom2 * t1kst1[j] * G[j][j] * t2_a103[j][i];
 
            temp_PDF2 += t1_a10_rhom1 * t1kst2[j] * G[j][j] * t1_a103[j][i];
          }
        }
        temp_PDF1 = temp_PDF1 * B1_kst1 * B1_Vm2 * B2_a12m;
        temp_PDF2 = temp_PDF2 * B1_kst2 * B1_Vm1 * B1_a11m;
      }
      else if ( g2[i] == 1120 )
      {
        if ( B1_D0_a10kst0 == -1 )
        {
          B1_D0_a10kst01 = BarrierN( 1, sD0, sa102_rhom, skst1_33, rDs2, mD0M );
          B1_D0_a10kst02 = BarrierN( 1, sD0, sa101_rhom, skst2_33, rDs2, mD0M );
        }
        if ( B1_a10_kst == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1_33, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2_33, sKs, sPi02, rRes2, mass2[i] );
        }
        if ( B1_a10rhom1 == -1 )
        {
          B1_a10rhom1 =
              BarrierN( 1, sa1rhom1, sPi01, sPim, rRes2, 0.77526 ); // m2==kst Fn(kst)
          B1_a10rhom2 = BarrierN( 1, sa1rhom2, sPi02, sPim, rRes2, 0.77526 );
        }
        // B1_Vp1 B1_Vp2--rho+
 
        // t1rhop1 t1rhop2
        calt1( pa101_rhom, pkst2_33, t1D0_a101 );
        calt1( pa102_rhom, pkst1_33, t1D0_a102 );
        calt1( PKs, Pi01, t1a10kst1 );
        calt1( PKs, Pi02, t1a10kst2 );
        calt1( Pi01, Pim, t1a10rhom1 );
        calt1( Pi02, Pim, t1a10rhom2 );
 
        // P
        calG2( pa1rhom1, Pip, p1a1m_1 );
        calG2( pa1rhom2, Pip, p1a1m_2 );
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a10_kst01 = t1a10kst1[i] * G[i][i];
          double t1_a10_kst02 = t1a10kst2[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            double t1_a10_rhom1 = t1a10rhom1[j] * G[j][j];
            double t1_a10_rhom2 = t1a10rhom2[j] * G[j][j];
            for ( int k = 0; k < 4; k++ )
            {
              double t1_D0_a10kst01 = t1D0_a101[k] * G[k][k];
              double t1_D0_a10kst02 = t1D0_a102[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double pD0_a10kst1 = pD0[l] * G[l][l];
                double pD0_a10kst2 = pD0[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += t1_a10_rhom2 * t1_a10_kst01 * t1_D0_a10kst02 * pD0_a10kst2 *
                               p1a1m_2[m][j] * G[m][m] * E[i][k][l][m];
                  temp_PDF2 += t1_a10_rhom1 * t1_a10_kst02 * t1_D0_a10kst01 * pD0_a10kst1 *
                               p1a1m_1[m][j] * G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
        temp_PDF1 = temp_PDF1 * B1_D0_a10kst01 * B1_kst1 * B1_a10rhom2;
        temp_PDF2 = temp_PDF2 * B1_D0_a10kst02 * B1_kst2 * B1_a10rhom1;
      }
      else if ( g2[i] == 1122 )
      { // 1121
        if ( B1_D0_a10kst0 == -1 )
        {
          B1_D0_a10kst01 = BarrierN( 1, sD0, sa102, skst1, rDs2, mD0M );
          B1_D0_a10kst02 = BarrierN( 1, sD0, sa101, skst2, rDs2, mD0M );
        }
 
        if ( B1_a10_kst == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2, sKs, sPi02, rRes2, mass2[i] );
        }
        // B1_Vp1 B1_Vp2--rho+
        if ( B2_a10_rho == -1 )
        {
          B1_a11m = BarrierN( 2, sa101, srhom1, sPip, rRes2, mass1[i] );
 
          B2_a12m = BarrierN( 2, sa102, srhom2, sPip, rRes2, mass1[i] );
        }
 
        calt1( pa101, pkst2, t1D0_a101 );
        calt1( pa102, pkst1, t1D0_a102 );
        // t1rhop1 t1rhop2
        calt2( prhom1, Pip, t1_a102 );
        calt2( prhom2, Pip, t2_a102 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
        calt1( Pi01, Pim, t1rhom1 );
        calt1( Pi02, Pim, t1rhom2 );
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a10_rhom1 = t1rhom1[i] * G[i][i];
          double t1_a10_rhom2 = t1rhom2[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double t1_a10_kst01 = t1kst1[j] * G[j][j];
            double t1_a10_kst02 = t1kst2[j] * G[j][j];
            for ( int k = 0; k < 4; k++ )
            {
              double t1_D0_a101kst02 = t1D0_a101[k] * G[k][k];
              double t1_D0_a102kst01 = t1D0_a102[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double pD0_a10kst0 = pD0[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += t1_a10_rhom2 * t1_a10_kst01 * t1_D0_a101kst02 * pD0_a10kst0 *
                               t2_a102[m][j] * G[m][m] * E[i][k][l][m];
                  temp_PDF2 += t1_a10_rhom1 * t1_a10_kst02 * t1_D0_a102kst01 * pD0_a10kst0 *
                               t1_a102[m][j] * G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
        temp_PDF1 = temp_PDF1 * B1_D0_a10kst01 * B1_kst1 * B1_Vm2 * B2_a12m;
 
        temp_PDF2 = temp_PDF2 * B1_D0_a10kst02 * B1_kst2 * B1_Vm1 * B1_a11m;
      }
      else if ( g2[i] == 1220 )
      { // 2101
        if ( B2_D0_a10kst0 == -1 )
        {
          B2_D0_a10kst01 = BarrierN( 2, sD0, sa102_rhom, skst1_20, rDs2, mD0M );
          B2_D0_a10kst02 = BarrierN( 2, sD0, sa101_rhom, skst2_20, rDs2, mD0M );
        }
        if ( B1_a10_kst == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1_20, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2_20, sKs, sPi02, rRes2, mass2[i] );
        }
        // B1_Vp1 B1_Vp2--rho+
 
        // t1rhop1 t1rhop2
        calt2( pa101_rhom, pkst2_33, t2D0_a101 );
        calt2( pa102_rhom, pkst1_33, t2D0_a102 );
 
        calt1( Pi01, Pim, t1rhom1 );
        calt1( Pi02, Pim, t1rhom2 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
 
        calG2( pa1rhom1, Pip, p1a1m_1 );
        calG2( pa1rhom2, Pip, p1a1m_2 );
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a10_rhom1 = t1rhom1[i] * G[i][i];
          double t1_a10_rhom2 = t1rhom2[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double t1_a10_kst01 = t1kst1[j] * G[j][j];
            double t1_a10_kst02 = t1kst2[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              temp_PDF1 += t1_a10_rhom2 * t1_a10_kst01 * t2D0_a102[k][i] * p1a1m_2[k][i];
              temp_PDF2 += t1_a10_rhom1 * t1_a10_kst02 * t2D0_a101[k][i] * p1a1m_1[k][i];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B2_D0_a10kst01 * B1_kst1 * B1_Vm2;
        temp_PDF2 = temp_PDF2 * B2_D0_a10kst02 * B1_kst2 * B1_Vm1;
      }
      else if ( g2[i] == 1222 )
      { // 2121
        if ( B2_D0_a10kst0 == -1 )
        {
          B2_D0_a10kst01 = BarrierN( 2, sD0, sa102, skst1, rDs2, mD0M );
          B2_D0_a10kst02 = BarrierN( 2, sD0, sa101, skst2, rDs2, mD0M );
        }
        if ( B1_a10_kst == -1 )
        {
          B1_kst1 = BarrierN( 1, skst1, sKs, sPi01, rRes2, mass2[i] );
          B1_kst2 = BarrierN( 1, skst2, sKs, sPi02, rRes2, mass2[i] );
        }
        if ( B2_a10_rho == -1 )
        {
          B1_a11m = BarrierN( 2, sa101, srhom1, sPip, rRes2, mass1[i] );
 
          B2_a12m = BarrierN( 2, sa102, srhom2, sPip, rRes2, mass1[i] );
        }
        // B1_Vp1 B1_Vp2--rho+
 
        calt2( pa101, pkst2, t2D0_a101 );
        calt2( pa102, pkst1, t2D0_a102 );
 
        calt2( prhom1, Pip, t1_a103 );
        calt2( prhom2, Pip, t2_a103 );
        calt1( PKs, Pi01, t1kst1 );
        calt1( PKs, Pi02, t1kst2 );
        calt1( Pi01, Pim, t1rhom1 );
        calt1( Pi02, Pim, t1rhom2 );
        // t1rhop1 t1rhop2
 
        for ( int i = 0; i < 4; i++ )
        {
          double t1_a10_rhom1 = t1rhom1[i] * G[i][i];
          double t1_a10_rhom2 = t1rhom2[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            double t1_a10_kst01 = t1kst1[j] * G[j][j];
            double t1_a10_kst02 = t1kst2[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              temp_PDF1 +=
                  t1_a10_rhom2 * t1_a10_kst01 * t2D0_a102[k][i] * t2_a103[k][j] * G[k][k];
              temp_PDF2 +=
                  t1_a10_rhom1 * t1_a10_kst02 * t2D0_a101[k][i] * t1_a103[k][j] * G[k][k];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B2_D0_a10kst01 * B1_kst1 * B1_Vm2 * B2_a12m;
        temp_PDF2 = temp_PDF2 * B2_D0_a10kst02 * B1_kst2 * B1_Vm1 * B1_a11m;
      }
 
      if ( g0[i] == 1 )
      { // a1
        if ( g2[i] == 1020 || g2[i] == 1120 || g2[i] == 1220 )
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sa101_rhom, sa1rhom1, sPip, rRes2, 0,
                            pro5_m1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sa102_rhom, sa1rhom2, sPip, rRes2, 0,
                            pro5_m2 );
        }
        else
        {
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sa101_rhom, sa1rhom1, sPip, rRes2, 2,
                            pro5_m1 );
          propagatorRBW_a1( mass1sq, mass1[i], width1[i], sa102_rhom, sa1rhom2, sPip, rRes2, 2,
                            pro5_m2 );
        }
 
        propagatorGS( 0.60102807, 0.77526, 0.1478, sa1rhom1, sPi01, sPim, rRes2, pro5_11 );
        propagatorGS( 0.60102807, 0.77526, 0.1478, sa1rhom2, sPi02, sPim, rRes2, pro5_12 );
 
        Com_Multi( pro5_m1, pro5_11, pro5_111 );
        Com_Multi( pro5_m2, pro5_12, pro5_222 );
      }
      else if ( g0[i] == 0 )
      {
        pro5_m1[0] = 1;
        pro5_m1[1] = 0;
        pro5_m2[0] = 1;
        pro5_m2[1] = 0;
      }
 
      // kst
      if ( g1[i] == 1 )
      {
        propagatorRBW( mass2sq, mass2[i], width2[i], skst1_33, sKs, sPi01, rRes2, 1,
                       pro5_1 ); // kst1
        propagatorRBW( mass2sq, mass2[i], width2[i], skst2_33, sKs, sPi02, rRes2, 1,
                       pro5_2 ); // kst2
      }
      else if ( g1[i] == 0 )
      {
        pro5_1[0] = 1;
        pro5_1[1] = 0;
        pro5_2[0] = 1;
        pro5_2[1] = 0;
      }
 
      Com_Multi( pro5_222, pro5_1, pro5_1112 );
      Com_Multi( pro5_111, pro5_2, pro5_2222 ); // 1p
 
      amp_tmp1[0] = -1 * ( temp_PDF1 * pro5_1112[0] );
      amp_tmp1[1] = -1 * ( temp_PDF1 * pro5_1112[1] );
      amp_tmp2[0] = -1 * ( temp_PDF2 * pro5_2222[0] );
      amp_tmp2[1] = -1 * ( temp_PDF2 * pro5_2222[1] );
    }
 
    else if ( modetype[i] == 21 )
    {
      if ( g2[i] == 0 )
      { // 0101---SS
        /*    if(B1_a1p_kstm_rhop1==-1){
                    B1_a1p_kstm_rhop1 = BarrierN(1,srhop1,sPip,sPi01,rRes2,mass2[i]);
                    B1_a1p_kstm_rhop2 = BarrierN(1,srhop2,sPip,sPi02,rRes2,mass2[i]);
            }*/
 
        if ( B1_kst == -1 )
        {
          B1_kst01 = BarrierN( 1, skst1, sKs, sPi01, rRes2, mass2[i] );
          B1_kst02 = BarrierN( 1, skst2, sKs, sPi02, rRes2, mass2[i] );
        }
 
        if ( B1_a10_f0 == -1 )
        {
          B1_a101 = BarrierN( 1, sa101, sf02, sPi01, rRes2, mass1[i] ); // 1or2  sf01-->pip pim
          B1_a102 = BarrierN( 1, sa102, sf02, sPi02, rRes2, mass1[i] );
        }
        // t(a1)
        calt1( Pf02, Pi01, t1a101 );
        calt1( Pf02, Pi02, t1a102 ); // Pf02-->pip  pim
 
        for ( int m = 0; m < 4; m++ )
        {
          double t1_a101 = t1a101[m] * G[m][m];
          double t1_a102 = t1a102[m] * G[m][m];
 
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += t1kst1[j] * G[j][j] * t1_a102;
            temp_PDF2 += t1kst2[j] * G[j][j] * t1_a101;
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_kst01 * B1_a102;
        temp_PDF2 = temp_PDF2 * B1_kst02 * B1_a101;
      }
      else if ( g2[i] == 1 )
      {
        if ( B1_D0_a1kst == -1 )
        {
          B1_D0_a10kst01 = BarrierN( 1, sD0, sa101, skst2, rDs2, mD0M );
          B1_D0_a10kst02 = BarrierN( 1, sD0, sa102, skst1, rDs2, mD0M );
        }
        if ( B1_kst == -1 )
        {
          B1_kst01 = BarrierN( 1, skst1, sKs, sPi01, rRes2, mass2[i] );
          B1_kst02 = BarrierN( 1, skst2, sKs, sPi02, rRes2, mass2[i] );
        }
        if ( B1_a10_f0 == -1 )
        {
          B1_a101 = BarrierN( 1, sa101, sf02, sPi01, rRes2, mass1[i] ); // 1or2  sf01-->pip pim
          B1_a102 = BarrierN( 1, sa102, sf02, sPi02, rRes2, mass1[i] );
        }
        // B1_Vp1 B1_Vp2--rho+
 
        // Sn
        calt1( Pf02, Pi01, t1a101 );
        calt1( Pf02, Pi02, t1a102 ); // Pf02-->pip  pim
 
        calt1( pa101, pkst2, t1D0a101 );
        calt1( pa102, pkst1, t1D0a102 );
 
        for ( int j = 0; j < 4; j++ )
        {
          double t1_kst1 = t1kst1[j] * G[j][j];
          double t1_kst2 = t1kst2[j] * G[j][j];
 
          for ( int k = 0; k < 4; k++ )
          {
            double t1_D0_a101 = t1D0a101[k] * G[k][k];
            double t1_D0_a102 = t1D0a102[k] * G[k][k];
 
            for ( int l = 0; l < 4; l++ )
            {
              double pD0_a1pkstm = pD0[l] * G[l][l];
 
              for ( int m = 0; m < 4; m++ )
              {
                temp_PDF1 +=
                    t1_kst1 * t1_D0_a102 * pD0_a1pkstm * t1a102[m] * G[m][m] * E[j][k][l][m];
                temp_PDF2 +=
                    t1_kst2 * t1_D0_a101 * pD0_a1pkstm * t1a101[m] * G[m][m] * E[j][k][l][m];
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_D0_a10kst02 * B1_kst1 * B1_a102;
        temp_PDF2 = temp_PDF2 * B1_D0_a10kst01 * B1_kst2 * B1_a101;
      }
      else if ( g2[i] == 2 )
      { // 2101
        if ( B1_D0_a1kst == -1 )
        {
          B1_D0_a10kst01 = BarrierN( 2, sD0, sa101, skst2, rDs2, mD0M );
          B1_D0_a10kst02 = BarrierN( 2, sD0, sa102, skst1, rDs2, mD0M );
        }
        if ( B1_kst == -1 )
        {
          B1_kst01 = BarrierN( 1, skst1, sKs, sPi01, rRes2, mass2[i] );
          B1_kst02 = BarrierN( 1, skst2, sKs, sPi02, rRes2, mass2[i] );
        }
        if ( B1_a10_f0 == -1 )
        {
          B1_a101 = BarrierN( 1, sa101, sf02, sPi01, rRes2, mass1[i] ); // 1or2  sf01-->pip pim
          B1_a102 = BarrierN( 1, sa102, sf02, sPi02, rRes2, mass1[i] );
        }
        // B1_Vp1 B1_Vp2--rho+
 
        // Sn
        calt1( Pf02, Pi01, t1a101 );
        calt1( Pf02, Pi02, t1a102 ); // Pf02-->pip  pim
 
        calt2( pa101, pkst2, t2D0a101 );
        calt2( pa102, pkst1, t2D0a102 );
 
        for ( int j = 0; j < 4; j++ )
        {
          double t1_kst1 = t1kst1[j] * G[j][j];
          double t1_kst2 = t1kst2[j] * G[j][j];
          for ( int m = 0; m < 4; m++ )
          {
            temp_PDF1 += t1_kst1 * t2D0a102[m][j] * t1a102[m] * G[m][m];
            temp_PDF2 += t1_kst2 * t2D0a101[m][j] * t1a101[m] * G[m][m];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_D0_a10kst02 * B1_kst1 * B1_a102;
        temp_PDF2 = temp_PDF2 * B1_D0_a10kst01 * B1_kst2 * B1_a101;
      }
 
      if ( g0[i] == 1 )
      { // a1
        propagatorRBW( mass1sq, mass1[i], width1[i], sa101, sf02, sPi01, rRes2, 1,
                       pro00_01 ); // sf01-->pi+ pi-
        propagatorRBW( mass1sq, mass1[i], width1[i], sa102, sf02, sPi02, rRes2, 1, pro00_02 );
      }
      else if ( g0[i] == 0 )
      {
        pro00_01[0] = 1;
        pro00_01[1] = 0;
        pro00_02[0] = 1;
        pro00_02[1] = 0;
      }
 
      // kst
      if ( g1[i] == 1 )
      {
        propagatorRBW( mass2sq, mass2[i], width2[i], skst1, sKs, sPi01, rRes2, 1, pro1_3 );
        propagatorRBW( mass2sq, mass2[i], width2[i], skst2, sKs, sPi02, rRes2, 1, pro1_4 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_3[0] = 1;
        pro1_3[1] = 0;
        pro1_4[0] = 1;
        pro1_4[1] = 0;
      }
 
      Com_Multi( pro00_01, pro1_4, pfo_a101 );
      Com_Multi( pfo_a101, pf0_2, pro_a101 );
      Com_Multi( pro00_02, pro1_3, pfo_a102 );
      Com_Multi( pfo_a102, pf0_2, pro_a102 );
 
      amp_tmp1[0] = temp_PDF1 * pro_a102[0];
      amp_tmp1[1] = temp_PDF1 * pro_a102[1];
      amp_tmp2[0] = temp_PDF2 * pro_a101[0];
      amp_tmp2[1] = temp_PDF2 * pro_a101[1];
    }
    else if ( modetype[i] == 34 )
    {
      if ( g2[i] == 0 )
      {
        /*   if(B1_D0_a1pkpiSW==-1){
                  B1_D0_a1pkpiSW = BarrierN(1,sD0,sa1p,skstm2,rDs2,mD0M);
          }*/
        if ( B1_kstm == -1 ) { B1_kstm = BarrierN( 1, skst1, sKs, sPim, rRes2, mass2[i] ); }
        if ( B1_a10_f0 == -1 )
        { B1_a10_f0 = BarrierN( 1, sa1p, sf01, sPip, rRes2, mass1[i] ); }
        // t(a1)
        calt1( pf01, Pip, t1a1p ); // pi01  pi02
 
        //     calt1(pa1p,pkstm2,t1D0_a1pkpimSW);
        calt1( PKs, Pim, t1kstm );
        for ( int m = 0; m < 4; m++ )
        {
          double t1_a1p = t1a1p[m] * G[m][m];
 
          for ( int j = 0; j < 4; j++ ) { temp_PDF1 += t1kstm[j] * G[j][j] * t1_a1p; }
        }
        temp_PDF1 = temp_PDF1 * B1_kstm * B1_a10_f0;
      }
 
      if ( g0[i] == 1 )
      { // a1
        propagatorRBW( mass1sq, mass1[i], width1[i], sa1p, sf01, sPip, rRes2, 1, pro0_p1 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_p1[0] = 1;
        pro0_p1[1] = 0;
      }
      if ( r1[i] == 1 )
      { // a1
        propagatorsigma500( sf01, sPi01, sPi02, pf0_1 );
      }
      else if ( r1[i] == 0 )
      {
        pf0_1[0] = 1;
        pf0_1[1] = 0;
      }
      // kst
      if ( g1[i] == 1 )
      {
        //            KPiSLASS(skstm,sKs,sPim,pro1_1);
        propagatorRBW( mass2sq, mass2[i], width2[i], skstm, sKs, sPim, rRes2, 1, pro1_1 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
      }
 
      Com_Multi( pro0_p1, pro1_1, pfo_a1p );
      Com_Multi( pfo_a1p, pf0_1, pro_a1p );
 
      amp_tmp1[0] = temp_PDF1 * pro_a1p[0];
      amp_tmp1[1] = temp_PDF1 * pro_a1p[1];
      amp_tmp2[0] = 0;
      amp_tmp2[1] = 0;
    }
    else if ( modetype[i] == 23 )
    {
      if ( g2[i] == 1 ) // spin=0  D to rho omega
      {
        if ( B1_D0_f1 == -1 )
        {
          B1_D0_f1 = BarrierN( 1, sD0, sf1285, sKs, rDs2, mD0M ); // m2==kst Fn(kst)
        }
        if ( B1_f1285 == -1 )
        { B1_f1285 = BarrierN( 1, sf1285, sf1285rho0, sf01, rRes2, mass1[i] ); }
        if ( B1_f1285_rho0 == -1 )
        { B1_f1285_rho0 = BarrierN( 1, sf1285rho0, sPip, sPim, rRes2, mass2[i] ); }
        calt2( pf1285rho0, pf01, t2f1285 );
        calt1( pf1285, PKs, t1D0_f1285 );
        calt1( Pip, Pim, t1f1rho0 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempD0 = pD0[j] * G[j][j] * G[i][i]; // p(omega)
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1D0f1 = t1D0_f1285[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temtrho0 = t1f1rho0[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_PDF1 += temt1D0f1 * t2f1285[m][l] * tempD0 * temtrho0 * G[m][m];
                }
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_D0_f1 * B1_f1285 * B1_f1285_rho0;
      }
 
      if ( g0[i] == 1 )
      { // a1
        propagatorRBW( mass1sq, mass1[i], width1[i], sf1285, sf1285rho0, sf01, rRes2, 1,
                       pro6_f1 );
      }
      else if ( g0[i] == 0 )
      {
        pro6_f1[0] = 1;
        pro6_f1[1] = 0;
      }
 
      if ( g1[i] == 1 )
      {
        propagatorGS( mass2sq, mass2[i], width2[i], sf1285rho0, sPip, sPim, rRes2, pro6_f11 );
      }
      else if ( g1[i] == 0 )
      {
        pro6_f11[0] = 1;
        pro6_f11[1] = 0;
      }
 
      Com_Multi( pro6_f1, pro6_f11, pro6_11 );
 
      amp_tmp1[0] = temp_PDF1 * pro6_11[0];
      amp_tmp1[1] = temp_PDF1 * pro6_11[1];
      amp_tmp2[0] = 0;
      amp_tmp2[1] = 0;
    }
    else if ( modetype[i] == 25 )
    {
      if ( g2[i] == 0 )
      {
        if ( B1_omega10 == -1 )
        {
 
          B1_omega10 = BarrierN( 1, somega1, srho01, sPi01, rRes2, mass2[i] );
          B1_omega1p = BarrierN( 1, somega1, srhop1, sPim, rRes2, mass2[i] );
          B1_omega1m = BarrierN( 1, somega1, srhom1, sPip, rRes2, mass2[i] );
 
          B1_omega20 = BarrierN( 1, somega2, srho02, sPi02, rRes2, mass2[i] );
          B1_omega2p = BarrierN( 1, somega2, srhop2, sPim, rRes2, mass2[i] );
          B1_omega2m = BarrierN( 1, somega2, srhom2, sPip, rRes2, mass2[i] );
        }
 
        if ( B1_D0_k1400 == -1 )
        {
 
          B1_D0_k14001 = BarrierN( 1, sD0, sk14001, sPi02, rDs2, mD0M );
          B1_D0_k14002 = BarrierN( 1, sD0, sk14002, sPi01, rDs2, mD0M );
        }
 
        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];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega01 = t1omega01[k] * G[k][k];
              double temt1omega02 = t1omega02[k] * G[k][k];
              double temt1omegap1 = t1omegap1[k] * G[k][k];
              double temt1omegap2 = t1omegap2[k] * G[k][k];
              double temt1omegam1 = t1omegam1[k] * G[k][k];
              double temt1omegam2 = t1omegam2[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho0  = t1rho0[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom2 = t1rhom2[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop1 = t1rhop1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop2 = t1rhop2[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom1 = t1rhom1[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temt1D0_k14001 = t1D0_k14001[m] * G[m][m];
                  double temt1D0_k14002 = t1D0_k14002[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 += temt1D0_k14002 * pk1400_2[m][n] * p1omega02[n][i] *
                                  tempomega2 * temt1omega02 * temt1rho0 * G[n][n];
                    temp_PDF12 += temt1D0_k14002 * pk1400_2[m][n] * p1omegap2[n][i] *
                                  tempomega2 * temt1omegap2 * temt1rhop2 * G[n][n];
                    temp_PDF13 += temt1D0_k14002 * pk1400_2[m][n] * p1omegam2[n][i] *
                                  tempomega2 * temt1omegam2 * temt1rhom2 * G[n][n];
                    temp_PDF21 += temt1D0_k14001 * pk1400_1[m][n] * p1omega01[n][i] *
                                  tempomega1 * temt1omega01 * temt1rho0 * G[n][n];
                    temp_PDF22 += temt1D0_k14001 * pk1400_1[m][n] * p1omegap1[n][i] *
                                  tempomega1 * temt1omegap1 * temt1rhop1 * G[n][n];
                    temp_PDF23 += temt1D0_k14001 * pk1400_1[m][n] * p1omegam1[n][i] *
                                  tempomega1 * temt1omegam1 * temt1rhom1 * G[n][n];
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_D0_k14002 * B1_omega20 * B1_V02;
        temp_PDF12 = temp_PDF12 * B1_D0_k14002 * B1_omega2p * B1_Vp2;
        temp_PDF13 = temp_PDF13 * B1_D0_k14002 * B1_omega2m * B1_Vm2;
        temp_PDF21 = temp_PDF21 * B1_D0_k14001 * B1_omega10 * B1_V01;
        temp_PDF22 = temp_PDF22 * B1_D0_k14001 * B1_omega1p * B1_Vp1;
        temp_PDF23 = temp_PDF23 * B1_D0_k14001 * B1_omega1m * B1_Vm1;
      }
      else if ( g2[i] == 2 )
      {
        if ( B1_omega10 == -1 )
        {
 
          B1_omega10 = BarrierN( 1, somega1, srho01, sPi01, rRes2, mass2[i] );
          B1_omega1p = BarrierN( 1, somega1, srhop1, sPim, rRes2, mass2[i] );
          B1_omega1m = BarrierN( 1, somega1, srhom1, sPip, rRes2, mass2[i] );
 
          B1_omega20 = BarrierN( 1, somega2, srho02, sPi02, rRes2, mass2[i] );
          B1_omega2p = BarrierN( 1, somega2, srhop2, sPim, rRes2, mass2[i] );
          B1_omega2m = BarrierN( 1, somega2, srhom2, sPip, rRes2, mass2[i] );
        }
 
        if ( B1_D0_k1400 == -1 )
        {
 
          B1_D0_k14001 = BarrierN( 1, sD0, sk14001, sPi02, rDs2, mD0M );
          B1_D0_k14002 = BarrierN( 1, sD0, sk14002, sPi01, rDs2, mD0M );
        }
        if ( B2_k1400 == -1 )
        {
          B2_k1400_1 = BarrierN( 2, sk14001, somega1, sKs, rRes2, mass1[i] );
          B2_k1400_2 = BarrierN( 2, sk14002, somega2, sKs, rRes2, mass1[i] );
        }
        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];
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1omega01 = t1omega01[k] * G[k][k];
              double temt1omega02 = t1omega02[k] * G[k][k];
              double temt1omegap1 = t1omegap1[k] * G[k][k];
              double temt1omegap2 = t1omegap2[k] * G[k][k];
              double temt1omegam1 = t1omegam1[k] * G[k][k];
              double temt1omegam2 = t1omegam2[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1rho0  = t1rho0[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop1 = t1rhop1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhop2 = t1rhop2[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom1 = t1rhom1[l] * G[l][l] * E[i][j][k][l];
                double temt1rhom2 = t1rhom2[l] * G[l][l] * E[i][j][k][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temt1D0_k14001 = t1D0_k14001[m] * G[m][m];
                  double temt1D0_k14002 = t1D0_k14002[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 += temt1D0_k14002 * t2k1400_2[m][n] * p1omega02[n][i] *
                                  tempomega2 * temt1omega02 * temt1rho0 * G[n][n];
                    temp_PDF12 += temt1D0_k14002 * t2k1400_2[m][n] * p1omegap2[n][i] *
                                  tempomega2 * temt1omegap2 * temt1rhop2 * G[n][n];
                    temp_PDF13 += temt1D0_k14002 * t2k1400_2[m][n] * p1omegam2[n][i] *
                                  tempomega2 * temt1omegam2 * temt1rhom2 * G[n][n];
                    temp_PDF21 += temt1D0_k14001 * t2k1400_1[m][n] * p1omega01[n][i] *
                                  tempomega1 * temt1omega01 * temt1rho0 * G[n][n];
                    temp_PDF22 += temt1D0_k14001 * t2k1400_1[m][n] * p1omegap1[n][i] *
                                  tempomega1 * temt1omegap1 * temt1rhop1 * G[n][n];
                    temp_PDF23 += temt1D0_k14001 * t2k1400_1[m][n] * p1omegam1[n][i] *
                                  tempomega1 * temt1omegam1 * temt1rhom1 * G[n][n];
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_D0_k14002 * B2_k1400_2 * B1_omega20 * B1_V02;
        temp_PDF12 = temp_PDF12 * B1_D0_k14002 * B2_k1400_2 * B1_omega2p * B1_Vp2;
        temp_PDF13 = temp_PDF13 * B1_D0_k14002 * B2_k1400_2 * B1_omega2m * B1_Vm2;
 
        temp_PDF21 = temp_PDF21 * B1_D0_k14001 * B2_k1400_1 * B1_omega10 * B1_V01;
        temp_PDF22 = temp_PDF22 * B1_D0_k14001 * B2_k1400_1 * B1_omega1p * B1_Vp1;
        temp_PDF23 = temp_PDF23 * B1_D0_k14001 * B2_k1400_1 * B1_omega1m * B1_Vm1;
      }
      if ( g0[i] == 1 )
      { // b1 omega
 
        propagatorRBW( mass1sq, mass1[i], width1[i], sk14001, somega1, sKs, rRes2, g2[i],
                       prob1_1 );
        propagatorRBW( mass1sq, mass1[i], width1[i], sk14002, somega2, sKs, rRes2, g2[i],
                       prob1_2 );
      }
      else if ( g0[i] == 0 )
      {
        prob1_1[0] = 1;
        prob1_1[1] = 0;
        prob1_2[0] = 1;
        prob1_2[1] = 0;
      }
      if ( g1[i] == 1 )
      { // omega--rho
 
        propagatorRBW( mass2sq, mass2[i], width2[i], somega1, srho01, sPi01, rRes2, 1,
                       pro1_01 ); // 01
        propagatorRBW( mass2sq, mass2[i], width2[i], somega1, srhop1, sPim, rRes2, 1,
                       pro1_p1 ); // p1
        propagatorRBW( mass2sq, mass2[i], width2[i], somega1, srhom1, sPip, rRes2, 1,
                       pro1_m1 ); // m1
        propagatorRBW( mass2sq, mass2[i], width2[i], somega2, srho02, sPi02, rRes2, 1,
                       pro1_02 ); // 02
        propagatorRBW( mass2sq, mass2[i], width2[i], somega2, srhop2, sPim, rRes2, 1,
                       pro1_p2 ); // p2
        propagatorRBW( mass2sq, mass2[i], width2[i], somega2, srhom2, sPip, rRes2, 1,
                       pro1_m2 ); // m2
      }
      else if ( g1[i] == 0 )
      {
 
        pro1_01[0] = 1;
        pro1_01[1] = 0;
        pro1_p1[0] = 1;
        pro1_p1[1] = 0;
        pro1_m1[0] = 1;
        pro1_m1[1] = 0;
        pro1_02[0] = 1;
        pro1_02[1] = 0;
        pro1_p2[0] = 1;
        pro1_p2[1] = 0;
        pro1_m2[0] = 1;
        pro1_m2[1] = 0;
      }
 
      // rho--pipi
      /*       if(r1[i]==1){
                     propagatorGS(0.60102807,0.77526,0.1478,srho01,sPip,sPim,rRes2,pro1V01);
                     propagatorGS(0.60102807,0.77526,0.1478,srho02,sPip,sPim,rRes2,pro1V02);
                     propagatorGS(0.60102807,0.77526,0.1478,srhop1,sPip,sPi01,rRes2,pro1Vp1);
                     propagatorGS(0.60102807,0.77526,0.1478,srhop2,sPip,sPi02,rRes2,pro1Vp2);
                     propagatorGS(0.60102807,0.77526,0.1478,srhom1,sPi01,sPim,rRes2,pro1Vm1);
                     propagatorGS(0.60102807,0.77526,0.1478,srhom2,sPi02,sPim,rRes2,pro1Vm2);
 
             }
             else if(r1[i]==0){
                     pro1V01[0] = 1; pro1V01[1] = 0;
                     pro1V02[0] = 1; pro1V02[1] = 0;
                     pro1Vp1[0] = 1; pro1Vp1[1] = 0;
                     pro1Vp2[0] = 1; pro1Vp2[1] = 0;
                     pro1Vm1[0] = 1; pro1Vm1[1] = 0;
                     pro1Vm2[0] = 1; pro1Vm2[1] = 0;
             }
          */
      Com_Multi( prob1_1, pro1_01, tpro_01 );
      Com_Multi( tpro_01, pro1V01, pro_21 ); // 10
      Com_Multi( prob1_1, pro1_p1, tpro_p1 );
      Com_Multi( tpro_p1, pro1Vp1, pro_22 ); // 1p
      Com_Multi( prob1_1, pro1_m1, tpro_m1 );
      Com_Multi( tpro_m1, pro1Vm1, pro_23 ); // 1m
 
      Com_Multi( prob1_2, pro1_02, tpro_02 );
      Com_Multi( tpro_02, pro1V02, pro_11 ); // 20
      Com_Multi( prob1_2, pro1_p2, tpro_p2 );
      Com_Multi( tpro_p2, pro1Vp2, pro_12 ); // 2p
      Com_Multi( prob1_2, pro1_m2, tpro_m2 );
      Com_Multi( tpro_m2, pro1Vm2, pro_13 ); // 2m
 
      amp_tmp1[0] = temp_PDF11 * pro_11[0] + temp_PDF12 * pro_12[0] +
                    temp_PDF13 * pro_13[0]; // b1--omega2
      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]; // b1--omega1
      amp_tmp2[1] = temp_PDF21 * pro_21[1] + temp_PDF22 * pro_22[1] + temp_PDF23 * pro_23[1];
    }
 
    else if ( modetype[i] == 45 )
    { // K1270- to ks rho-
      if ( g2[i] == 1020 )
      { // 0101---SS
        if ( B1_k127_rhop == -1 )
        {
          B1_k127_rhop1 = BarrierN( 1, sk127mrhop1, sPip, sPi01, rRes2, mass2[i] );
          B1_k127_rhop2 = BarrierN( 1, sk127mrhop2, sPip, sPi02, rRes2, mass2[i] );
        }
        if ( B1_k127_rhom == -1 )
        {
          B1_k127_rhom1 = BarrierN( 1, sk127mrhom1, sPim, sPi01, rRes2, 0.77526 );
          B1_k127_rhom2 = BarrierN( 1, sk127mrhom2, sPim, sPi02, rRes2, 0.77526 );
        }
        calG2( pk127mrhom1, PKs, p1k1m_1 );
        calG2( pk127mrhom2, PKs, p1k1m_2 );
        calt1( Pim, Pi01, t1rhom11 );
        calt1( Pim, Pi02, t1rhom12 );
        calt1( Pip, Pi01, t1rhop11 );
        calt1( Pip, Pi02, t1rhop12 );
        for ( int i = 0; i < 4; i++ )
        {
          double temt1rhom11 = t1rhom11[i] * G[i][i];
          double temt1rhom12 = t1rhom12[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += t1rhop12[j] * G[j][j] * temt1rhom11 * p1k1m_1[i][j];
            temp_PDF2 += t1rhop11[j] * G[j][j] * temt1rhom12 * p1k1m_2[i][j];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_k127_rhop2 * B1_k127_rhom1;
        temp_PDF2 = temp_PDF2 * B1_k127_rhop1 * B1_k127_rhom2;
      }
      else if ( g2[i] == 1120 )
      {
        if ( B1_D0_k1 == -1 )
        {
          B1_D0_k11 = BarrierN( 1, sD0, sk127m1, sk127mrhop2, rDs2, mD0M );
          B1_D0_k12 = BarrierN( 1, sD0, sk127m2, sk127mrhop1, rDs2, mD0M );
        }
        if ( B1_k127_rhop == -1 )
        {
          B1_k127_rhop1 = BarrierN( 1, sk127mrhop1, sPip, sPi01, rRes2, mass2[i] );
          B1_k127_rhop2 = BarrierN( 1, sk127mrhop2, sPip, sPi02, rRes2, mass2[i] );
        }
        if ( B1_k127_rhom == -1 )
        {
          B1_k127_rhom1 = BarrierN( 1, sk127mrhom1, sPim, sPi01, rRes2, 0.77526 );
          B1_k127_rhom2 = BarrierN( 1, sk127mrhom2, sPim, sPi02, rRes2, 0.77526 );
        }
        calt1( pk127m1, pk127mrhop2, t1D0_k11 );
        calt1( pk127m2, pk127mrhop1, t1D0_k12 );
        calt1( Pim, Pi01, t1rhom11 );
        calt1( Pim, Pi02, t1rhom12 );
        calG2( pk127mrhom1, PKs, p1k1m_1 );
        calG2( pk127mrhom2, PKs, p1k1m_2 );
        calt1( Pip, Pi01, t1rhop11 );
        calt1( Pip, Pi02, t1rhop12 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double t1_k1_rhop1 = t1rhop11[i] * G[i][i];
          double t1_k1_rhop2 = t1rhop12[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double t1_k1_rhom1 = t1rhom11[j] * G[j][j];
            double t1_k1_rhom2 = t1rhom12[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double t1_D0_k11 = t1D0_k11[k] * G[k][k];
              double t1_D0_k12 = t1D0_k12[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double pD0_k11 = pD0[l] * G[l][l];
                double pD0_k12 = pD0[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += t1_k1_rhop2 * t1_k1_rhom1 * t1_D0_k11 * pD0_k11 *
                               p1k1m_1[m][j] * G[m][m] * E[i][k][l][m];
                  temp_PDF2 += t1_k1_rhop1 * t1_k1_rhom2 * t1_D0_k12 * pD0_k12 *
                               p1k1m_2[m][j] * G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
        temp_PDF1 = temp_PDF1 * B1_D0_k11 * B1_k127_rhom1 * B1_k127_rhop2;
        temp_PDF2 = temp_PDF2 * B1_D0_k12 * B1_k127_rhom2 * B1_k127_rhop1;
      }
 
      else if ( g2[i] == 1220 )
      { // 2101
        if ( B2_D0_k1 == -1 )
        {
          B2_D0_k11 = BarrierN( 2, sD0, sk127m1, sk127mrhop2, rDs2, mD0M );
          B2_D0_k12 = BarrierN( 2, sD0, sk127m2, sk127mrhop1, rDs2, mD0M );
        }
        if ( B1_k127_rhop == -1 )
        {
          B1_k127_rhop1 = BarrierN( 1, sk127mrhop1, sPip, sPi01, rRes2, mass2[i] );
          B1_k127_rhop2 = BarrierN( 1, sk127mrhop2, sPip, sPi02, rRes2, mass2[i] );
        }
        if ( B1_k127_rhom == -1 )
        {
          B1_k127_rhom1 = BarrierN( 1, sk127mrhom1, sPim, sPi01, rRes2, 0.77526 );
          B1_k127_rhom2 = BarrierN( 1, sk127mrhom2, sPim, sPi02, rRes2, 0.77526 );
        }
        calt2( pk127m1, pk127mrhop2, t2D0_k11 );
        calt2( pk127m2, pk127mrhop1, t2D0_k12 );
        calt1( Pim, Pi01, t1rhom11 );
        calt1( Pim, Pi02, t1rhom12 );
 
        calG2( pk127mrhom1, PKs, p1k1m_1 );
        calG2( pk127mrhom2, PKs, p1k1m_2 );
        calt1( Pip, Pi01, t1rhop11 );
        calt1( Pip, Pi02, t1rhop12 );
        for ( int i = 0; i < 4; i++ )
        {
          double t1_k1_rhop1 = t1rhop11[i] * G[i][i];
          double t1_k1_rhop2 = t1rhop12[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double t1_k1_rhom1 = t1rhom11[j] * G[j][j];
            double t1_k1_rhom2 = t1rhom12[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              temp_PDF1 += t1_k1_rhop2 * t1_k1_rhom1 * t2D0_k11[k][i] * p1k1m_1[k][j];
              temp_PDF2 += t1_k1_rhop1 * t1_k1_rhom2 * t2D0_k12[k][i] * p1k1m_2[k][j];
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B2_D0_k11 * B1_k127_rhom1 * B1_k127_rhop2;
        temp_PDF2 = temp_PDF2 * B2_D0_k12 * B1_k127_rhom2 * B1_k127_rhop1;
      }
 
      if ( g0[i] == 1 )
      { // a1
        if ( g2[i] == 1020 || g2[i] == 1120 || g2[i] == 1220 )
        {
          propagatorRBW( mass1sq, mass1[i], width1[i], sk127m1, sk127mrhom1, sKs, rRes2, 0,
                         pro45_m1 );
          propagatorRBW( mass1sq, mass1[i], width1[i], sk127m2, sk127mrhom2, sKs, rRes2, 0,
                         pro45_m2 );
        }
        else
        {
          propagatorRBW( mass1sq, mass1[i], width1[i], sk127m1, sk127mrhom1, sKs, rRes2, 2,
                         pro45_m1 );
          propagatorRBW( mass1sq, mass1[i], width1[i], sk127m2, sk127mrhom2, sKs, rRes2, 2,
                         pro45_m2 );
        }
        propagatorGS( 0.60102807, 0.77526, 0.1478, sk127mrhom1, sPim, sPi01, rRes2, pro11Vm1 );
        propagatorGS( 0.60102807, 0.77526, 0.1478, sk127mrhom2, sPim, sPi02, rRes2, pro11Vm2 );
      }
      else if ( g0[i] == 0 )
      {
        pro45_m1[0] = 1;
        pro45_m1[1] = 0;
        pro45_m2[0] = 1;
        pro45_m2[1] = 0;
      }
 
      Com_Multi( pro45_m1, pro11Vm1, tpro45_m1 );
      Com_Multi( pro45_m2, pro11Vm2, tpro45_m2 );
 
      if ( g1[i] == 1 )
      {
        propagatorGS( mass2sq, mass2[i], width2[i], sk127mrhop1, sPip, sPi01, rRes2,
                      pro11Vp1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sk127mrhop2, sPip, sPi02, rRes2,
                      pro11Vp2 );
      }
      else if ( g1[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
      }
 
      Com_Multi( tpro45_m1, pro11Vp2, pro45_10 ); // 1p
      Com_Multi( tpro45_m2, pro11Vp1, pro45_11 ); // 2p
 
      amp_tmp1[0] = temp_PDF1 * pro45_10[0]; // b1--omega2
      amp_tmp1[1] = temp_PDF1 * pro45_10[1];
      amp_tmp2[0] = temp_PDF2 * pro45_11[0]; // b1--omega1
      amp_tmp2[1] = temp_PDF2 * pro45_11[1];
    }
 
    else if ( modetype[i] == 46 )
    { // K12700 to ks rho0
      if ( g2[i] == 1 )
      {
 
        if ( B1_D0_k1270 == -1 )
        {
          B1_D0_k1270 = BarrierN( 1, sD0, sk1270, sk01, rDs2, mD0M ); // m2==kst Fn(kst)
        }
 
        if ( B1_k1270_rho0 == -1 )
        { B1_k1270_rho0 = BarrierN( 1, sk1270rho0, sPip, sPim, rRes2, mass2[i] ); }
 
        calG2( pk1270rho0, PKs, p2k1270 );
        calt1( pk1270, pk01, t1D0_k1270 );
        calt1( Pip, Pim, t1k1270rho0 );
 
        for ( int i = 0; i < 4; i++ )
        {
          for ( int j = 0; j < 4; j++ )
          {
            double tempD0 = pD0[j] * G[j][j] * G[i][i]; // p(omega)
 
            for ( int k = 0; k < 4; k++ )
            {
              double temt1D0k1 = t1D0_k1270[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double tem2t1rho0 = t1k1270rho0[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_PDF1 += temt1D0k1 * p2k1270[m][l] * tempD0 * tem2t1rho0 * G[m][m];
                }
              }
            }
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_D0_k1270 * B1_k1270_rho0;
      }
 
      if ( g0[i] == 1 )
      { // a1
        propagatorRBW( mass1sq, mass1[i], width1[i], sk1270, sk1270rho0, sKs, rRes2, 0,
                       pro0_20 );
      }
      else if ( g0[i] == 0 )
      {
        pro0_20[0] = 1;
        pro0_20[1] = 0;
      }
      if ( g1[i] == 1 )
      { propagatorGS( mass2sq, mass2[i], width2[i], sk1270rho0, sPip, sPim, rRes2, pro1_20 ); }
      else if ( g1[i] == 0 )
      {
        pro1_20[0] = 1;
        pro1_20[1] = 0;
      }
 
      Com_Multi( pro0_20, pro1_20, pro_20 );
      amp_tmp1[0] = temp_PDF1 * pro_20[0];
      amp_tmp1[1] = temp_PDF1 * pro_20[1];
      amp_tmp2[0] = 0;
      amp_tmp2[1] = 0;
    }
 
    else if ( modetype[i] == 31 )
    { // k140m to kstm pi0
      if ( g2[i] == 1020 )
      { // 0101---SS
 
        if ( B1_k140_rhop == -1 )
        {
          B1_k140_rhop1 = BarrierN( 1, sk140mrhop1, sPip, sPi01, rRes2, mass2[i] );
          B1_k140_rhop2 = BarrierN( 1, sk140mrhop2, sPip, sPi02, rRes2, mass2[i] );
        }
        if ( B1_k140_kstm == -1 )
        {
          B1_k140_kstm1 = BarrierN( 1, sk140mkstm1, sKs, sPim, rRes2, 0.89166 );
          B1_k140_kstm2 = BarrierN( 1, sk140mkstm2, sKs, sPim, rRes2, 0.89166 );
        }
        calt1( Pip, Pi01, t1k140mrhop1 );
        calt1( Pip, Pi02, t1k140mrhop2 );
        calt1( PKs, Pim, t1k140mkstm1 );
        calt1( PKs, Pim, t1k140mkstm2 );
        calG2( pk140mkstm1, Pi01, pm_k11 );
        calG2( pk140mkstm2, Pi02, pm_k12 );
        for ( int i = 0; i < 4; i++ )
        {
          double temt1kstm1 = t1k140mkstm1[i] * G[i][i];
          double temt1kstm2 = t1k140mkstm2[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += t1k140mrhop2[j] * G[j][j] * temt1kstm1 * pm_k11[i][j];
            temp_PDF2 += t1k140mrhop1[j] * G[j][j] * temt1kstm2 * pm_k12[i][j];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_k140_rhop2 * B1_k140_kstm1;
        temp_PDF2 = temp_PDF2 * B1_k140_rhop1 * B1_k140_kstm2;
      }
 
      else if ( g2[i] == 1120 )
      {
        if ( B1_D0_k101 == -1 )
        {
          B1_D0_k101 = BarrierN( 1, sD0, sk140m1, sk140mrhop2, rDs2, mD0M );
          B1_D0_k102 = BarrierN( 1, sD0, sk140m2, sk140mrhop1, rDs2, mD0M );
        }
        if ( B1_k140_kstm == -1 )
        {
          B1_k140_kstm1 = BarrierN( 1, sk140mkstm1, sKs, sPim, rRes2, 0.89166 );
          B1_k140_kstm2 = BarrierN( 1, sk140mkstm2, sKs, sPim, rRes2, 0.89166 );
        }
        if ( B1_k140_rhop == -1 )
        {
          B1_k140_rhop1 = BarrierN( 1, sk140mrhop1, sPip, sPi01, rRes2, mass2[i] );
          B1_k140_rhop2 = BarrierN( 1, sk140mrhop2, sPip, sPi02, rRes2, mass2[i] );
        }
        // B1_Vp1 B1_Vp2--rho+
 
        // t1rhop1 t1rhop2
        calt1( Pip, Pi01, t1k140mrhop1 );
        calt1( Pip, Pi02, t1k140mrhop2 );
        calt1( PKs, Pim, t1k140mkstm1 );
        calt1( PKs, Pim, t1k140mkstm2 );
        calt1( pk140m1, pk140mrhop2, t1D0_k101 );
        calt1( pk140m2, pk140mrhop1, t1D0_k102 );
 
        // P
        calG2( pk140mkstm1, Pi01, p2_k101 );
        calG2( pk140mkstm2, Pi02, p2_k102 );
        for ( int i = 0; i < 4; i++ )
        {
          double t1_rhop1 = t1k140mrhop1[i] * G[i][i];
          double t1_rhop2 = t1k140mrhop2[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double t1_kstm1 = t1k140mkstm1[j] * G[j][j];
            double t1_kstm2 = t1k140mkstm2[j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
              double t1_D0_k101 = t1D0_k101[k] * G[k][k];
              double t1_D0_k102 = t1D0_k102[k] * G[k][k];
 
              for ( int l = 0; l < 4; l++ )
              {
                double pD0_k11 = pD0[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += t1_rhop2 * t1_kstm1 * t1_D0_k101 * pD0_k11 * p2_k101[m][j] *
                               G[m][m] * E[i][k][l][m];
                  temp_PDF2 += t1_rhop1 * t1_kstm2 * t1_D0_k102 * pD0_k11 * p2_k102[m][j] *
                               G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
        temp_PDF1 = temp_PDF1 * B1_D0_k101 * B1_k140_kstm1 * B1_k140_rhop2;
        temp_PDF2 = temp_PDF2 * B1_D0_k102 * B1_k140_kstm2 * B1_k140_rhop1;
      }
      if ( g0[i] == 1 )
      { // a1
        if ( g2[i] == 1020 || g2[i] == 1120 )
        {
          propagatorRBW( mass1sq, mass1[i], width1[i], sk140m1, sk140mkstm1, sPi01, rRes2, 0,
                         pro10_p1 );
          propagatorRBW( mass1sq, mass1[i], width1[i], sk140m2, sk140mkstm2, sPi02, rRes2, 0,
                         pro10_p2 );
        }
        else
        {
          propagatorRBW( mass1sq, mass1[i], width1[i], sk140m1, sk140mkstm1, sPi01, rRes2, 2,
                         pro10_p1 );
          propagatorRBW( mass1sq, mass1[i], width1[i], sk140m2, sk140mkstm2, sPi02, rRes2, 2,
                         pro10_p2 );
        }
        propagatorRBW( 0.7950575556, 0.89166, 0.0467, sk140mkstm1, sKs, sPim, rRes2, 1,
                       pro10_1 ); // kst1
        propagatorRBW( 0.7950575556, 0.89166, 0.0467, sk140mkstm2, sKs, sPim, rRes2, 1,
                       pro10_2 ); // kst1a
      }
      else if ( g0[i] == 0 )
      {
        pro10_p1[0] = 1;
        pro10_p1[1] = 0;
        pro10_p2[0] = 1;
        pro10_p2[1] = 0;
      }
      Com_Multi( pro10_p1, pro10_1, tpro10_p1 );
      Com_Multi( pro10_p2, pro10_2, tpro10_p2 );
 
      if ( g1[i] == 1 )
      {
        propagatorGS( mass2sq, mass2[i], width2[i], sk140mrhop1, sPip, sPi01, rRes2,
                      pro10_Vp1 );
        propagatorGS( mass2sq, mass2[i], width2[i], sk140mrhop2, sPip, sPi02, rRes2,
                      pro10_Vp2 );
      }
 
      else if ( g1[i] == 0 )
      {
        pro10_Vp1[0] = 1;
        pro10_Vp1[1] = 0;
        pro10_Vp2[0] = 1;
        pro10_Vp2[1] = 0;
      }
 
      Com_Multi( tpro10_p1, pro10_Vp2, pro10_12 );
      Com_Multi( tpro10_p2, pro10_Vp1, pro10_22 );
 
      amp_tmp1[0] = temp_PDF1 * pro10_12[0];
      amp_tmp1[1] = temp_PDF1 * pro10_12[1];
      amp_tmp2[0] = temp_PDF2 * pro10_22[0];
      amp_tmp2[1] = temp_PDF2 * pro10_22[1];
    }
 
    else if ( modetype[i] == 42 )
    { // k1400 to kst0 pi0
      if ( g2[i] == 1020 )
      { // 0101---SS
 
        if ( B1_k1400_rho0 == -1 )
        {
          B1_k1400_rho01 = BarrierN( 1, sk1400rho01, sPip, sPim, rRes2, mass2[i] );
          B1_k1400_rho02 = BarrierN( 1, sk1400rho02, sPip, sPim, rRes2, mass2[i] );
        }
 
        if ( B1_k1400_kst0 == -1 )
        {
          B1_k1400_kst01 = BarrierN( 1, sk1400kst01, sKs, sPi01, rRes2, 0.89555 );
          B1_k1400_kst02 = BarrierN( 1, sk1400kst02, sKs, sPi02, rRes2, 0.89555 );
        }
 
        calt1( Pip, Pim, t1k1400rho01 );
        calt1( Pip, Pim, t1k1400rho02 );
        calt1( PKs, Pi01, t1k1400kst01 );
        calt1( PKs, Pi02, t1k1400kst02 );
        calG2( pk1400kst01, Pi02, p2_k11 );
        calG2( pk1400kst02, Pi01, p2_k12 );
        for ( int i = 0; i < 4; i++ )
        {
          double temt1t1kst01 = t1k1400kst01[i] * G[i][i];
          double temt1t1kst02 = t1k1400kst02[i] * G[i][i];
          for ( int j = 0; j < 4; j++ )
          {
            temp_PDF1 += t1k1400rho01[j] * G[j][j] * temt1t1kst01 * p2_k11[i][j];
            temp_PDF2 += t1k1400rho02[j] * G[j][j] * temt1t1kst02 * p2_k12[i][j];
          }
        }
 
        temp_PDF1 = temp_PDF1 * B1_k1400_rho01 * B1_k1400_kst01;
        temp_PDF2 = temp_PDF2 * B1_k1400_rho02 * B1_k1400_kst02;
      }
 
      if ( g2[i] == 1120 )
      { // 0101---SS
        if ( B1_D0_K1400rho0 == -1 )
        {
          B1_D0_K1400rho01 = BarrierN( 1, sD0, sk14001, sk1400rho01, rRes2, mD0M );
          B1_D0_K1400rho02 = BarrierN( 1, sD0, sk14002, sk1400rho02, rRes2, mD0M );
        }
        if ( B1_k1400_rho0 == -1 )
        {
          B1_k1400_rho01 = BarrierN( 1, sk1400rho01, sPip, sPim, rRes2, mass2[i] );
          B1_k1400_rho02 = BarrierN( 1, sk1400rho02, sPip, sPim, rRes2, mass2[i] );
        }
        if ( B1_k1400_kst0 == -1 )
        {
          B1_k1400_kst01 = BarrierN( 1, sk1400kst01, sKs, sPi01, rRes2, 0.89555 );
          B1_k1400_kst02 = BarrierN( 1, sk1400kst02, sKs, sPi02, rRes2, 0.89555 );
        }
 
        calt1( Pip, Pim, t1k1400rho01 );
        calt1( Pip, Pim, t1k1400rho02 );
        calt1( PKs, Pi01, t1k1400kst01 );
        calt1( PKs, Pi02, t1k1400kst02 );
        calt1( pk14001, pk1400rho01, t1D0_k1400rho01 );
        calt1( pk14002, pk1400rho02, t1D0_k1400rho02 );
        calG2( pk1400kst01, Pi02, p2_k11 );
        calG2( pk1400kst02, Pi01, p2_k12 );
        for ( int i = 0; i < 4; i++ )
        {
          double temt1t1rho01 = t1k1400rho01[i] * G[i][i];
          double temt1t1rho02 = t1k1400rho02[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double temt1t1kst01 = t1k1400kst01[i] * G[i][i];
            double temt1t1kst02 = t1k1400kst02[i] * G[i][i];
 
            for ( int k = 0; k < 4; k++ )
            {
              double t1_D0_k1400rho01 = t1D0_k1400rho01[k] * G[k][k];
              double t1_D0_k1400rho02 = t1D0_k1400rho02[k] * G[k][k];
              for ( int l = 0; l < 4; j++ )
              {
                double pD0_k1400rho01 = pD0[l] * G[l][l];
                double pD0_k1400rho02 = pD0[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  temp_PDF1 += temt1t1kst01 * temt1t1rho01 * t1_D0_k1400rho01 *
                               pD0_k1400rho01 * p2_k11[m][j] * G[m][m] * E[i][k][l][m];
                  temp_PDF2 += temt1t1kst02 * temt1t1rho02 * t1_D0_k1400rho02 *
                               pD0_k1400rho02 * p2_k12[m][j] * G[m][m] * E[i][k][l][m];
                }
              }
            }
          }
        }
        temp_PDF1 = temp_PDF1 * B1_k1400_rho01 * B1_k1400_kst01 * B1_D0_K1400rho01;
        temp_PDF2 = temp_PDF2 * B1_k1400_rho02 * B1_k1400_kst02 * B1_D0_K1400rho02;
      }
 
      if ( g0[i] == 1 )
      { // a1
        if ( g2[i] == 1020 || g2[i] == 1120 )
        {
          propagatorRBW( mass1sq, mass1[i], width1[i], sk14001, sk1400kst01, sPi02, rRes2, 0,
                         pro42_21 );
          propagatorRBW( mass1sq, mass1[i], width1[i], sk14002, sk1400kst02, sPi01, rRes2, 0,
                         pro42_22 );
        }
        else
        {
          propagatorRBW( mass1sq, mass1[i], width1[i], sk14001, sk1400kst01, sPi02, rRes2, 2,
                         pro42_21 );
          propagatorRBW( mass1sq, mass1[i], width1[i], sk14002, sk1400kst02, sPi01, rRes2, 2,
                         pro42_22 );
        }
        propagatorRBW( 0.79834225, 0.89555, 0.0473, sk1400kst01, sKs, sPi01, rRes2, 1,
                       pro10_25 ); // kst1
        propagatorRBW( 0.79834225, 0.89555, 0.0473, sk1400kst02, sKs, sPi02, rRes2, 1,
                       pro10_26 ); // kst1a
      }
      else if ( g0[i] == 0 )
      {
        pro42_21[0] = 1;
        pro42_21[1] = 0;
        pro42_22[0] = 1;
        pro42_22[1] = 0;
      }
 
      Com_Multi( pro42_21, pro10_25, tpro10_42 );
      Com_Multi( pro42_22, pro10_26, tpro11_42 );
 
      if ( g1[i] == 1 )
      {
        propagatorGS( mass2sq, mass2[i], width2[i], sk1400rho01, sPip, sPim, rRes2, pro10_23 );
        propagatorGS( mass2sq, mass2[i], width2[i], sk1400rho02, sPip, sPim, rRes2, pro10_24 );
      }
 
      else if ( g1[i] == 0 )
      {
        pro10_23[0] = 1;
        pro10_23[1] = 0;
        pro10_24[0] = 1;
        pro10_24[1] = 0;
      }
 
      Com_Multi( tpro10_42, pro10_23, pro10_42 ); // 1p
      Com_Multi( tpro11_42, pro10_24, pro11_42 ); // 2p
 
      amp_tmp1[0] = temp_PDF1 * pro10_42[0];
      amp_tmp1[1] = temp_PDF1 * pro10_42[1];
      amp_tmp2[0] = temp_PDF2 * pro11_42[0];
      amp_tmp2[1] = temp_PDF2 * pro11_42[1];
    }
 
    else if ( modetype[i] == 39 )
    {
      if ( g2[i] == 1 )
      {
        if ( B1_omega10 == -1 )
        {
 
          B1_omega10 = BarrierN( 1, somega1, srho01, sPi01, rRes2, mass2[i] );
          B1_omega1p = BarrierN( 1, somega1, srhop1, sPim, rRes2, mass2[i] );
          B1_omega1m = BarrierN( 1, somega1, srhom1, sPip, rRes2, mass2[i] );
 
          B1_omega20 = BarrierN( 1, somega2, srho02, sPi02, rRes2, mass2[i] );
          B1_omega2p = BarrierN( 1, somega2, srhop2, sPim, rRes2, mass2[i] );
          B1_omega2m = BarrierN( 1, somega2, srhom2, sPip, rRes2, mass2[i] );
        }
 
        if ( B1_rho14501 == -1 )
        {
 
          B1_rho14501 = BarrierN( 1, srho1450, somega1, sPi02, rRes2, mass1[i] );
          B1_rho14502 = BarrierN( 1, srho1450, somega2, sPi01, rRes2, mass1[i] );
        }
 
        if ( B1_D0_rho1450 == -1 )
        { B1_D0_rho1450 = BarrierN( 1, sD0, srho1450, sKs, rDs2, mD0M ); }
 
        calt1( prho1450, PKs, t1D0_rho1450ks0 );
        calG2( pomega1, Pi02, p1rho14501 );
        calG2( pomega2, Pi01, p1rho14502 );
        calt1( pomega1, Pi02, t1rho14501 );
        calt1( pomega2, Pi01, t1rho14502 );
        calG2( prho01, Pi01, p1omega01 );
        calG2( prho02, Pi02, p1omega02 );
        calG2( prhop1, Pim, p1omegap1 );
        calG2( prhop2, Pim, p1omegap2 );
        calG2( prhom1, Pip, p1omegam1 );
        calG2( prhom2, Pip, p1omegam2 );
        calt1( prho01, Pi01, t1omega01 );
        calt1( prho02, Pi02, t1omega02 );
        calt1( prhop1, Pim, t1omegap1 );
        calt1( prhop2, Pim, t1omegap2 );
        calt1( prhom1, Pip, t1omegam1 );
        calt1( prhom2, Pip, t1omegam2 );
        calt1( Pip, Pim, t1rho01 );
        calt1( Pip, Pim, t1rho02 );
        calt1( Pip, Pi01, t1rhop1 );
        calt1( Pip, Pi02, t1rhop2 );
        calt1( Pi01, Pim, t1rhom1 );
        calt1( Pi02, Pim, t1rhom2 );
 
        for ( int i = 0; i < 4; i++ )
        {
          double temt1D0_rho1450ks0 = t1D0_rho1450ks0[i] * G[i][i];
 
          for ( int j = 0; j < 4; j++ )
          {
            double temp1rho14501 = p1rho14501[i][j] * G[j][j];
            double temp1rho14502 = p1rho14502[i][j] * G[j][j];
 
            for ( int k = 0; k < 4; k++ )
            {
 
              for ( int l = 0; l < 4; l++ )
              {
                double temt1t1rho14501 = t1rho14501[l] * G[l][l];
                double temt1t1rho14502 = t1rho14502[l] * G[l][l];
 
                for ( int m = 0; m < 4; m++ )
                {
                  double temprho1450 = prho1450[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];
 
                    for ( int o = 0; o < 4; o++ )
                    {
 
                      double temp1omega01 = p1omega01[k][o] * G[k][k] * G[o][o];
                      double temp1omega02 = p1omega02[k][o] * G[k][k] * G[o][o];
                      double temp1omegap1 = p1omegap1[k][o] * G[k][k] * G[o][o];
                      double temp1omegap2 = p1omegap2[k][o] * G[k][k] * G[o][o];
                      double temp1omegam1 = p1omegam1[k][o] * G[k][k] * G[o][o];
                      double temp1omegam2 = p1omegam2[k][o] * G[k][k] * G[o][o];
                      for ( int p = 0; p < 4; p++ )
                      {
 
                        double temt1omega01 = t1omega01[p] * G[p][p];
                        double temt1omega02 = t1omega02[p] * G[p][p];
                        double temt1omegap1 = t1omegap1[p] * G[p][p];
                        double temt1omegap2 = t1omegap2[p] * G[p][p];
                        double temt1omegam1 = t1omegam1[p] * G[p][p];
                        double temt1omegam2 = t1omegam2[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 += temprho1450 * temt1D0_rho1450ks0 * temt1t1rho14502 *
                                        temp1rho14502 * temp1omega02 * E[n][o][p][q] *
                                        tempomega2 * temt1omega02 * t1rho02[q] * G[q][q];
                          temp_PDF12 += temprho1450 * temt1D0_rho1450ks0 * temt1t1rho14502 *
                                        temp1rho14502 * temp1omegap2 * E[n][o][p][q] *
                                        tempomega2 * temt1omegap2 * t1rhop2[q] * G[q][q];
                          temp_PDF13 += temprho1450 * temt1D0_rho1450ks0 * temt1t1rho14502 *
                                        temp1rho14502 * temp1omegam2 * E[n][o][p][q] *
                                        tempomega2 * temt1omegam2 * t1rhom2[q] * G[q][q];
                          temp_PDF21 += temprho1450 * temt1D0_rho1450ks0 * temt1t1rho14501 *
                                        temp1rho14501 * temp1omega01 * E[n][o][p][q] *
                                        tempomega1 * temt1omega01 * t1rho01[q] * G[q][q];
                          temp_PDF22 += temprho1450 * temt1D0_rho1450ks0 * temt1t1rho14501 *
                                        temp1rho14501 * temp1omegap1 * E[n][o][p][q] *
                                        tempomega1 * temt1omegap1 * t1rhop1[q] * G[q][q];
                          temp_PDF23 += temprho1450 * temt1D0_rho1450ks0 * temt1t1rho14501 *
                                        temp1rho14501 * temp1omegam1 * E[n][o][p][q] *
                                        tempomega1 * temt1omegam1 * t1rhom1[q] * G[q][q];
                        }
                      }
                    }
                  }
                }
              }
            }
          }
        }
        temp_PDF11 = temp_PDF11 * B1_D0_rho1450 * B1_omega20 * B1_rho14502 * B1_V02;
        temp_PDF12 = temp_PDF12 * B1_D0_rho1450 * B1_omega2p * B1_rho14502 * B1_Vp2;
        temp_PDF13 = temp_PDF13 * B1_D0_rho1450 * B1_omega2m * B1_rho14502 * B1_Vm2;
        temp_PDF21 = temp_PDF21 * B1_D0_rho1450 * B1_omega10 * B1_rho14501 * B1_V01;
        temp_PDF22 = temp_PDF22 * B1_D0_rho1450 * B1_omega1p * B1_rho14501 * B1_Vp1;
        temp_PDF23 = temp_PDF23 * B1_D0_rho1450 * B1_omega1m * B1_rho14501 * B1_Vm1;
      }
      if ( g0[i] == 1 )
      {
        propagatorGS( mass1sq, mass1[i], width1[i], srho1450, somega1, sPi02, rRes2,
                      pro9_1 ); // kst1
        propagatorGS( mass1sq, mass1[i], width1[i], srho1450, somega2, sPi01, rRes2,
                      pro9_2 ); // kst2
      }
      else if ( g0[i] == 0 )
      {
        pro1_1[0] = 1;
        pro1_1[1] = 0;
        pro1_2[0] = 1;
        pro1_2[1] = 0;
      }
      // kst
      if ( g1[i] == 1 )
      {
        propagator( mass2sq, mass2[i], width2[i], somega1, pro9_01 ); // ome1--rho0 pi01
        propagator( mass2sq, mass2[i], width2[i], somega1, pro9_p1 ); // ome1--rhop (pi01)
        propagator( mass2sq, mass2[i], width2[i], somega1, pro9_m1 ); // ome1--rhom (pi01)
        propagator( mass2sq, mass2[i], width2[i], somega2, pro9_02 ); // ome2--rho0 pi02
        propagator( mass2sq, mass2[i], width2[i], somega2, pro9_p2 ); // ome2--rhop  (pi02)
        propagator( mass2sq, mass2[i], width2[i], somega2, pro9_m2 ); // ome2--rhom(pi02)
      }
      else if ( g1[i] == 0 )
      {
        pro9_01[0] = 1;
        pro9_01[1] = 0;
        pro9_p1[0] = 1;
        pro9_p1[1] = 0;
        pro9_m1[0] = 1;
        pro9_m1[1] = 0;
        pro9_02[0] = 1;
        pro9_02[1] = 0;
        pro9_p2[0] = 1;
        pro9_p2[1] = 0;
        pro9_m2[0] = 1;
        pro9_m2[1] = 0;
      }
      Com_Multi( pro9_01, pro1V01, tpro9_01 );
      Com_Multi( tpro9_01, pro9_1, pro9_21 );
      Com_Multi( pro9_p1, pro1Vp1, tpro9_p1 );
      Com_Multi( tpro9_p1, pro9_1, pro9_22 );
      Com_Multi( pro9_m1, pro1Vm1, tpro9_m1 );
      Com_Multi( tpro9_m1, pro9_1, pro9_23 );
 
      Com_Multi( pro9_02, pro1V02, tpro9_02 );
      Com_Multi( tpro9_02, pro9_2, pro9_11 );
      Com_Multi( pro9_p2, pro1Vp2, tpro9_p2 );
      Com_Multi( tpro9_p2, pro9_2, pro9_12 );
      Com_Multi( pro9_m2, pro1Vm2, tpro9_m2 );
      Com_Multi( tpro9_m2, pro9_2, pro9_13 );
 
      amp_tmp1[0] =
          -1 * ( temp_PDF11 * pro9_11[0] ) + temp_PDF12 * pro9_12[0] + temp_PDF13 * pro9_13[0];
      amp_tmp1[1] =
          -1 * ( temp_PDF11 * pro9_11[1] ) + temp_PDF12 * pro9_12[1] + temp_PDF13 * pro9_13[1];
      amp_tmp2[0] =
          -1 * ( temp_PDF21 * pro9_21[0] ) + temp_PDF22 * pro9_22[0] + temp_PDF23 * pro9_23[0];
      amp_tmp2[1] =
          -1 * ( temp_PDF21 * pro9_21[1] ) + temp_PDF22 * pro9_22[1] + temp_PDF23 * pro9_23[1];
 
      //        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];
    }
 
    else if ( modetype[i] == 41 )
    {
      amp_tmp1[0] = 1.;
      amp_tmp1[1] = 0.;
      amp_tmp2[0] = 1.;
      amp_tmp2[1] = 0.;
    }
 
    //////////////////////////////////////////////
    amp_tmp[0] = amp_tmp1[0] + amp_tmp2[0];
    amp_tmp[1] = amp_tmp1[1] + amp_tmp2[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;
}