/*
* Copyright (C) 2001-2008, CompHEP Collaboration
* Copyright (C) Alexander Pukhov 
* changes by V.Ilyin for #-mdl, 2000
* ------------------------------------------------------
* $Id: q_kin.c,v 1.6 2004/05/10 12:48:15 kryukov Exp $
*
* $Log: q_kin.c,v $
* Revision 1.6  2004/05/10 12:48:15  kryukov
* This version is equal to 4.4.1
*
* Revision 1.5.4.1  2004/04/30 15:09:37  sherstnv
* Block q_kin.c has been replaced. I took it from old CompHEP_41.10.
*
* Revision 1.5  2003/06/25 18:46:41  kryukov
* *** empty log message ***
*
* Revision 1.4  2003/04/22 09:01:19  kryukov
* Apply indent to improve readability of files
*
* Revision 1.3  2003/04/21 11:09:32  kryukov
* Just reformat a little bit
*
* Revision 1.2  2003/04/20 17:55:02  kryukov
* Clean up warnings during make
*/

#include <math.h>

#include "service2/include/chep_limits.h"
#include "service2/include/4_vector.h"

#include "out_ext.h"

#include "decay.h"
#include "cut.h"
#include "kinaux.h"
#include "regul.h"
#include "strfun_par.h"
#include "regfunal.h"
#include "subproc.h"
#include "const.h"
#include "tools.h"
#include "q_kin.h"

static int nstep = 0;

#define DEPTH 10

static double sqrt_S, ssmin, ssmax, stop, sbot, pcm;

static double tfact0;
static int nout1;

static double pm[PLISTLEN];

static int nvpos0, nvposx, nvposy;

static int nvout[DEPTH][2], nvin[DEPTH];
static int lnkbab[DEPTH], lnkleg[DEPTH];
static double summas[DEPTH][2];
static int nmsreg[DEPTH][2], nmscut[DEPTH][2], nss;
static int nsph[DEPTH];

static double beta[2];

typedef struct {
  int ncsreg[2];
  int ncscut[2];
  char lvpole[PLISTLEN];
  int itypep;
  double sph_we;
} sphereStr;

static sphereStr sph_inf[DEPTH][10];

static double cmfun (double E, double PM1, double PM2) {
  double e2, s, d;
  e2 = E * E;
  s = PM1 + PM2;
  d = PM1 - PM2;
  return sqrt ((e2 - s * s) * (e2 - d * d)) / (2 * E);
}

double mkmom (double *x, double *ytilda) {
  int i, k, l;
  int nx;
  int iabc;
  int ns;
  int nvpole;
  int nvpos;
  int nsing;
  double pIn[2][4] = { {0, 0, 0, 0}, {0, 0, 0, 0} };
  double pXY[2][4] = { {0, 1, 0, 0}, {0, 0, 1, 0} };
  double xcos, cosmin, cosmax, parcos, xfi, parfi;
  double fct0, fct1, fct2;
  double dabc;
  double ff, al;
  double xx, bes, fct;
  double stilda, rstilda, pcmtilda, xtilda;
  double psy1, psy2, x1, x2;
  double smin, smax;
  double amass[DEPTH][2];
  double hsum[2], hdif;
  double fct_1__;
  double final_factor = tfact0;

  nx = 0;
  sing_struct singar[200];

  ++nstep;
/* **   MOMENTS */
  if (nin_ == 2)
    {
      double y1, y2;
      if (get_sf_num(0) || get_sf_num(1)) {
          nsing = 0;
          getreg_ (&nsing, singar, 0., 1., nss);
          bes = beta[0] + beta[1];
          if (bes >= 1.)
            al = 1.;
          else if (nsing)
            al = 0.5;
          else
            al = 0.;

          xx = x[nx++];
          if (xx < al) {
            xx /= al;
            regfun_ (2, nsing, singar, ssmin, ssmax, xx, &stilda, &fct1);
          } else {
            if (xx == al) {
              xx = 1;
            } else {
              xx = (1 - xx) / (1 - al);
            }
            stilda = stop - pow (xx * pow (stop - ssmin, bes) + (1 - xx) * pow (stop - ssmax, bes), 1 / bes);
            regfct_ (2, nsing, singar, ssmin, ssmax, stilda, &fct1);
          }
          fct1 /= stop - sbot;
          if (bes < 1.) {
            ff = pow (1. - ssmin / stop, bes) - pow (1. - ssmax / stop, bes);
            fct2 = ff / bes * pow (1 - stilda / stop, 1 - bes);
            final_factor *= ff / (al * fct2 / fct1 + (1 - al));
          } else {
            final_factor *= fct1;
          }

          xtilda = (stilda - sbot) / (stop - sbot);

          if (get_sf_num(0) && get_sf_num(1))  {
            double yy = log (1 / xtilda);
            xx = x[nx++];
            if (beta[0] < 1. && beta[1] < 1.) {
              al = beta[1] / (beta[0] + beta[1]);
              if (xx < al) {
                xx /= al;
                psy1 = pow (xx, 1 / beta[0]);
                psy2 = 1 - psy1;
              } else {
                if (xx == al) {
                  xx = 1;
                } else {
                  xx = (1 - xx) / (1 - al);
                }
                psy2 = pow (xx, 1 / beta[1]);
                psy1 = 1 - psy2;
              }
              y1 = yy * psy1;
              y2 = yy * psy2;

              final_factor *= pow (divy_ (y1), beta[0] - 1) * 
                        pow (divy_ (y2), beta[1] - 1) / (pow (psy1, 1 - beta[0]) 
                      + pow (psy2, 1 - beta[1]));

              if (bes < 1.) {
                final_factor *= pow (divy_ (yy), 1 - bes);
              } else {
                final_factor *= bes * pow (yy, bes - 1);
              }
            } else if (beta[0] < 1.) {
                psy1 = pow (xx, 1 / beta[0]);
                y1 = yy * psy1;
                y2 = yy * (1 - psy1);
                final_factor *= pow (yy, *beta) * pow (divy_ (y1), beta[0] - 1);
              }
            else if (beta[1] < 1.) {
              psy2 = pow (xx, 1 / beta[1]);
              y2 = yy * psy2;
              y1 = yy * (1 - psy2);
              final_factor *= pow (yy, beta[1]) * pow (divy_ (y2), beta[1] - 1);
            } else {
              y1 = yy * xx;
              y2 = yy - y1;
              final_factor *= yy;
            }
            x1 = exp (-y1);
            x2 = exp (-y2);
            *ytilda = (y2 - y1) / 2;
          }
          else if (get_sf_num(0))
            {
              double e2 = sqrt (pm[1] * pm[1] + pcm * pcm);
              x1 = xtilda;
              x2 = 1.;
              *ytilda = 0.5 * log ((e2 + (2 * x1 - 1) * pcm) / (e2 + pcm));
            }
          else
            {
              double e1 = sqrt (pm[0] * pm[0] + pcm * pcm);
              x1 = 1.;
              x2 = xtilda;
              *ytilda = -0.5 * log ((e1 + (2 * x2 - 1) * pcm) / (e1 + pcm));
            }
        } else {
          x1 = 1.;
          x2 = 1.;
          stilda = sqrt_S * sqrt_S;
          *ytilda = 0;
        }
      rstilda = sqrt (stilda);
      pcmtilda = cmfun (rstilda, pm[0], pm[1]);
      pIn[0][3] = pcmtilda;
      pIn[1][3] = -pcmtilda;

      xbjo[0] = x1;             /*  #-mdl  */
      xbjo[1] = x2;             /*  #-mdl  */
    }
/* *  FILLING ZERO COMPONENTS FOR in-PARTICLES */

  for (k = 0; k < nin_; ++k) {
    pvFill (pm[k], pIn[k], k + 1);
  }

  if (nin_ == 2) {
    final_factor /= 4 * pcmtilda * rstilda;
  } else {
    rstilda = pm[0];
    final_factor /= rstilda * 2;
    *ytilda = 0;
  }

/* *    X & Y AXISES */

  pvFill (0, pXY[0], nvposx);
  pvFill (0, pXY[1], nvposy);

  nvpos = nvpos0;
  nvpole = nvpos++;

/* *    MASS INTEGRATION */

  for (i = 0; i < nout1; ++i) {
    double sval = i ? amass[lnkbab[i]][lnkleg[i]] : rstilda;

    for (k = 0; k < 2; ++k) {
      if (kinmtc_1[i].lvout[k][1]) {
        double sqmass, xx = x[nx++];
        dabc = k ? sval - amass[i][0] : sval - summas[i][1];

        smax = dabc * dabc;
        dabc = summas[i][k];
        smin = dabc * dabc;
        if (nmscut[i][k])
          rancor_ (&smin, &smax, 0., 1., nmscut[i][k]);

        if (smin >= smax){
          return 0.;
        }

        if (nmsreg[i][k]){
          nsing = 0;
          getreg_ (&nsing, singar, 0., 1., nmsreg[i][k]);
          regfun_ (2, nsing, singar, smin, smax, xx, &sqmass, &fct);
        } else {
          sqmass = xx * smax + (1 - xx) * smin;
          fct = smax - smin;
        }
        amass[i][k] = sqrt (sqmass);
        final_factor *= fct;
      } else {
        amass[i][k] = summas[i][k];
      }
    }
  }

  lvtonv (kinmtc_1[0].lvin, 0, nvin[0]);        /*very stupid */


  for (i = 0; i < nout1; ++i)   /*  MAIN CYCLE */
    {
      int ns___ = nsph[i] - 1;
      if (i == 0 && nin_ == 1)
        xcos = 0.1 /* not 0.5 */ ;
      else
        xcos = x[nx++];
      al = 0.;
      l = 0;
      if (i == 0 || (i == 1 && nin_ == 1))
        {
          xfi = 0.1;            /*not 0.5 */
          for (; l <= ns___; l++)
            {
              al += sph_inf[i][l].sph_we;
              if (xcos <= al)
                ns___ = l;
            }
          xcos = (al - xcos) / sph_inf[i][ns___].sph_we;
        }
      else
        {
          xfi = x[nx++];
          for (; l <= ns___; l++)
            {
              al += sph_inf[i][l].sph_we;
              if (xfi <= al)
                ns___ = l;
            }
          xfi = (al - xfi) / sph_inf[i][ns___].sph_we;
        }
      lvtonv (sph_inf[i][ns___].lvpole, nin_, nvpole);

      decay0 (nvin[i], amass[i][0], amass[i][1], &fct0);
      if (fct0 == 0.)
        {
          return 0.;
        }
      decay1 (nvpole, hsum, &hdif);

      cosmin = -1.;
      cosmax = 1.;
      nsing = 0;
      for (k = 0; k < 2; ++k)
        {
          dabc = ((k << 1) - 1) / hdif;
          getreg_ (&nsing, singar, hsum[k], dabc,
                   sph_inf[i][ns___].ncsreg[k]);
          rancor_ (&cosmin, &cosmax, hsum[k], dabc,
                   sph_inf[i][ns___].ncscut[k]);
          if (cosmin >= cosmax)
            {
              return 0.;
            }
        }
      regfun_ (sph_inf[i][ns___].itypep, nsing, singar, cosmin, cosmax, xcos,
               &parcos, &fct);
      fct_1__ = sph_inf[i][ns___].sph_we / fct;
      parfi = (xfi * 2 - 1) * M_PI;
      decay3 (nvposy, parcos, parfi, nvout[i][0], nvout[i][1]);


      iabc = nsph[i];
      for (ns = 0; ns < iabc; ++ns)
        if (ns != ns___)
          {
            lvtonv (sph_inf[i][ns].lvpole, nin_, nvpole);
            decay1 (nvpole, hsum, &hdif);
            decay2 (nvout[i][1], &parcos);
            cosmin = -1.;
            cosmax = 1.;
            nsing = 0;
            for (k = 0; k < 2; ++k)
              {
                dabc = ((k << 1) - 1) / hdif;
                getreg_ (&nsing, singar, hsum[k], dabc,
                         sph_inf[i][ns].ncsreg[k]);
                rancor_ (&cosmin, &cosmax, hsum[k], dabc,
                         sph_inf[i][ns].ncscut[k]);
                if (cosmin >= parcos || parcos >= cosmax)
                  {
                    return 0.;
                  }
              }
            regfct_ (sph_inf[i][ns].itypep, nsing, singar, cosmin, cosmax,
                     parcos, &fct);
            fct_1__ += sph_inf[i][ns].sph_we / fct;
          }
      final_factor *= fct0 / fct_1__;
    }
  if (nin_ == 2)
    {
      if (get_sf_num(0))
        x[0] = x1;
      if (get_sf_num(1))
        x[1] = x2;
    }

  if (!finite (final_factor))
    {
      final_factor = 0;
      fprintf (stderr, "mkmom: infinite factor\n");
    }
  return final_factor;
}

int imkmom (void) {
  int i, j, k, l, ns;
  char lvbuf[PLISTLEN];
  int ndim;
  beta[0] = get_sf_be(0);
  beta[1] = get_sf_be(1);

  if (nin_ == 2) {
    ndim = nout_ * 3 - 5;
    if (get_sf_num(0))
      ndim++;
    if (get_sf_num(1))
      ndim++;
    tfact0 = 2 * M_PI * 389379660.0;
  } else {
    tfact0 = 2 * M_PI;
    if (nout_ == 2)
      ndim = 1;
    else
      ndim = nout_ * 3 - 7;
  }

  for (i = 0; i < nin_ + nout_; i++) {
    pinf_ (proces_1.nsub, i + 1, NULL, pm + i);
  }

  nout1 = nout_ - 1;
  if (nout1 > DEPTH) {
    return 0;
  }
  nvposx = nin_ + nout_ + 1;
  nvposy = nvposx + 1;
  nvpos0 = nvposy + 1;

/* *  NVOUT( , ) FILLING */
  for (i = 0; i < nout1; ++i) {
    for (k = 0; k < 2; ++k) {
      if (kinmtc_1[i].lvout[k][1]) {
        nvout[i][k] = nvpos0++;
      } else {
        nvout[i][k] = kinmtc_1[i].lvout[k][0];
      }
    }
  }

  nvin[0] = nvpos0++;
  for (i = 1; i < nout1; ++i) {
    nvin[i] = 0;
    for (j = 0; j < i; ++j) {
      for (k = 0; k < 2; ++k) {
        if (eqvect_ (kinmtc_1[i].lvin, kinmtc_1[j].lvout[k])) {
          nvin[i] = nvout[j][k];
          lnkbab[i] = j;
          lnkleg[i] = k;
        }
      }
    }
    if (!nvin[i]) {
      fprintf (stderr, "Error in kinematics \n");
      exit (0);
    }
  }

  for (i = 0; i < nout1; ++i) {
    for (k = 0; k < 2; ++k) {
      double ss = 0.;
      int pn;
      for (j = 0; (pn = kinmtc_1[i].lvout[k][j]); j++) {
        ss += pm[pn - 1];
      }
      summas[i][k] = ss;
    }
  }

  if (nin_ == 2) {
    double m0 = get_sf_num(0) ? get_sf_mass(0) : pm[0];
    double m1 = get_sf_num(1) ? get_sf_mass(1) : pm[1];

    vinf_ (0, NULL, &sqrt_S);
    if (sqrt_S <= m0 + m1) {
      return 0;
    }
    pcm = cmfun (sqrt_S, m0, m1);

    ssmin = pm[0] + pm[1];
    if (ssmin < summas[0][0] + summas[0][1]) {
      ssmin = summas[0][0] + summas[0][1];
    }
    ssmin *= ssmin;

    if (get_sf_num(0) && get_sf_num(1)){
        sbot = 0;
        stop = 4 * pcm * pcm;
      } else if (get_sf_num(0)) {
        sbot = m1 * m1;
        stop = sbot + 2 * pcm * (pcm + sqrt (pcm * pcm + sbot));
      } else if (get_sf_num(1)) {
        sbot = m0 * m0;
        stop = sbot + 2 * pcm * (pcm + sqrt (pcm * pcm + sbot));
      } else {
        stop = sqrt_S * sqrt_S;
      }
    ssmax = stop;
  }

  for (i = 0; i < nout1; ++i)
    {
      nsph[i] = 0;
      for (k = 0; k < 2; k++)
        {
          for (ns = 0; ns < 10; ns++)
            {
              sph_inf[i][ns].ncsreg[k] = 0;
              sph_inf[i][ns].ncscut[k] = 0;
            }
          nmsreg[i][k] = 0;
          nmscut[i][k] = 0;
        }
    }

  nss = 0;
  for (l = 0; invreg_1[l].lvinvr[0]; l++) {
    int orig = 1, ll = 0;
    for (; ll < l; ll++) {
      if (invreg_1[ll].nextrg == l + 1) {
        orig = 0;
        break;
      }
    }
    if (orig) {
      sngpos_ (invreg_1[l].lvinvr, &i, &k, lvbuf);
      if (i == 0) {
        nss = l + 1;
      } else {
        i--;
        k--;
        if (lvbuf[0] == 0) {
          nmsreg[i][k] = l + 1;
        } else {
          for (ns = 0; ns < nsph[i]; ++ns) {
            if (eqvect_ (lvbuf, sph_inf[i][ns].lvpole)) {
              sph_inf[i][ns].ncsreg[k] = l + 1;
              break;
            }
          }
          if (ns == nsph[i] && ns < 10) {
            nsph[i]++;
            strcpy (sph_inf[i][ns].lvpole, lvbuf);
            if (spole_ (invreg_1[l].lvinvr))
              sph_inf[i][ns].itypep = -2;
            else
              sph_inf[i][ns].itypep = -1;

            sph_inf[i][ns].ncsreg[k] = l + 1;
          }
        }
      }
    }
  }

  for (l = 0; invcut_1[l].key; l++) {
    if (invcut_1[l].key == 'S') {
      sngpos_ (invcut_1[l].lvinvc, &i, &k, lvbuf);
      if (i == 0) {
        rancor_ (&ssmin, &ssmax, 0., 1., l + 1);
      } else if (lvbuf[0] == 0) {
        nmscut[i - 1][k - 1] = l + 1;
      } else {
        i--;
        k--;
        for (ns = 0; ns < nsph[i]; ++ns) {
          if (eqvect_ (lvbuf, sph_inf[i][ns].lvpole)) {
              sph_inf[i][ns].ncscut[k] = l + 1;
              break;
            }
        }
        if (ns == nsph[i] && ns < 10) {
          nsph[i]++;
          strcpy (sph_inf[i][ns].lvpole, lvbuf);
          if (spole_ (invcut_1[l].lvinvc)) {
            sph_inf[i][ns].itypep = 2;
          } else {
            sph_inf[i][ns].itypep = 1;
          }
          sph_inf[i][ns].ncscut[k] = l + 1;
        }
      }
    }
  }

  if (nin_ == 2 && ssmin >= ssmax)
    return 0;

  for (i = 0; i < nout1; ++i) {
    if (nsph[i] == 0) {
      nsph[i] = 1;
      sph_inf[i][0].lvpole[0] = (i == 0 && nin_ == 1) ? nvposx : 1;
      sph_inf[i][0].lvpole[1] = 0;
      sph_inf[i][0].itypep = 1;
    } else {
      ns = nsph[i] - 1;
      if (sph_inf[i][ns].ncsreg[0] || sph_inf[i][ns].ncsreg[1])
        sph_inf[i][0].itypep *= -1;
    }
  }

  for (i = 0; i < nout1; ++i) {
    double wesum = 0.;
     for (ns = 0; ns < nsph[i]; ++ns) {
       int nwe = 0;
       for (k = 0; k < 2; ++k) {
         for (l = sph_inf[i][ns].ncsreg[k]; l; l = invreg_1[l - 1].nextrg) {
           ++nwe;
         }
       }

       if (sph_inf[i][ns].itypep >= 0)
         ++nwe;
       sph_inf[i][ns].sph_we = nwe;
       wesum += nwe;
     }
     for (ns = 0; ns < nsph[i]; ++ns) {
       sph_inf[i][ns].sph_we /= wesum;
     }
   }

#ifdef DEBUG
  for (i = 0; i < nout1; ++i) {
    int l, c;
    printf ("Decay number %d     nmscut= (%d,%d) nmsreg = (%d,%d)\n",
            i, nmscut[i][0], nmscut[i][1], nmsreg[i][0], nmsreg[i][1]);

    printf ("kinematics= (");
    for (l = 0; c = kinmtc_1[i].lvin[l]; l++)
      printf ("%d", c);
    printf (")->(");
    for (l = 0; c = kinmtc_1[i].lvout[0][l]; l++)
      printf ("%d", c);
    printf (")+(");
    for (l = 0; c = kinmtc_1[i].lvout[1][l]; l++)
      printf ("%d", c);
    printf (")\n");
    printf (" summas=(%f,%f)\n", summas[i][0], summas[i][1]);
    for (ns = 0; ns < nsph[i]; ++ns) {
      int c;
      printf ("   Sphere number = %d  weight=%f type=%d \n",
              ns, sph_inf[i][ns].sph_we, sph_inf[i][ns].itypep);
      printf ("     pole vector(");
      for (k = 0; c = sph_inf[i][ns].lvpole[k]; k++)
        printf ("%d", c);
      printf (")\n");
      printf ("    ncsreg=(%d,%d) ncscut=(%d,%d) \n",
              sph_inf[i][ns].ncsreg[0], sph_inf[i][ns].ncsreg[1],
              sph_inf[i][ns].ncscut[0], sph_inf[i][ns].ncscut[1]);
    }
  }
#endif
  return ndim;
}
