LALSimIMRSpinEOBFactorizedFluxPrec_v3opt.c

Go to the documentation of this file.

/**
 * \author Craig Robinson, Yi Pan, Prayush Kumar, Stas Babak, Andrea Taracchini
 */
 
#ifndef _LALSIMIMRSPINPRECEOBFACTORIZEDFLUX_V3OPT_C
#define _LALSIMIMRSPINPRECEOBFACTORIZEDFLUX_V3OPT_C
 
 
#include <complex.h>
#include <lal/LALSimInspiral.h>
#include <lal/LALSimIMR.h>
 
#include "LALSimIMREOBNRv2.h"
#include "LALSimIMRSpinEOB.h"
 
#include "LALSimIMRSpinEOBAuxFuncs.c"
#include "LALSimIMREOBNQCCorrection.c"
#include "LALSimIMRSpinEOBFactorizedWaveformPrec_v3opt.c"
 
 
/*------------------------------------------------------------------------------------------
 *
 *          Prototypes of functions defined in this code.
 *
 *------------------------------------------------------------------------------------------
 */
 
static REAL8
XLALInspiralPrecSpinFactorizedFlux_exact(
                                   REAL8Vector * polvalues,     /**< \f$(r,\phi,p_r,p_\phi)\f$ */
                                   REAL8Vector * values,        /**< dynamical variables */
                                   EOBNonQCCoeffs * nqcCoeffs,  /**< pre-computed NQC coefficients */
                                   const REAL8 omega,   /**< orbital frequency */
                                   SpinEOBParams * ak,  /**< physical parameters */
                                   const REAL8 H,       /**< real Hamiltonian */
                                   const INT4 lMax,     /**< upper limit of the summation over l */
                                   const UINT4 SpinAlignedEOBversion    /**< 1 for SEOBNRv1, 2 for SEOBNRv2 */
);
/*------------------------------------------------------------------------------------------
 *
 *          Defintions of functions.
 *
 *------------------------------------------------------------------------------------------
 */
/**
 * This function calculates the spin factorized-resummed GW energy flux
 * for given dynamical variables.
 * Eq. 12 of PRD 86, 024011 (2012)
 */
static REAL8
XLALInspiralPrecSpinFactorizedFlux_exact(
                                   REAL8Vector * polvalues,     /**< \f$(r,\phi,p_r,p_\phi)\f$ */
                                   REAL8Vector * values,        /**< dynamical variables */
                                   EOBNonQCCoeffs * nqcCoeffs,  /**< pre-computed NQC coefficients */
                                   const REAL8 omega,   /**< orbital frequency */
                                   SpinEOBParams * ak,  /**< physical parameters */
                                   const REAL8 H,       /**< real Hamiltonian */
                                   const INT4 lMax,     /**< upper limit of the summation over l */
                                   const UINT4 SpinAlignedEOBversion    /**< 1 for SEOBNRv1, 2 for SEOBNRv2 */
)
{
        int             debugPK = 0;
  int i = 0;
    double radius = sqrt(values->data[0]*values->data[0] + values->data[1] *values->data[1]  + values->data[2] *values->data[2]  );
    if (radius < 1.) {
        return 0.;
    }
  if (1){
    for( i =0; i < 4; i++)
      if( isnan(polvalues->data[i]) ) {
          XLAL_PRINT_INFO("XLALInspiralPrecSpinFactorizedFlux (from input)::polvalues %3.10f %3.10f %3.10f %3.10f\n", polvalues->data[0], polvalues->data[1], polvalues->data[2], polvalues->data[3]);
          XLALPrintError( "XLAL Error - %s: nan polvalues:  %3.10f %3.10f %3.10f %3.10f  \n", __func__, polvalues->data[0], polvalues->data[1], polvalues->data[2], polvalues->data[3] );
          XLAL_ERROR( XLAL_EINVAL );
      }
 
    for( i =0; i < 12; i++)
      if( isnan(values->data[i]) ) {
        XLAL_PRINT_INFO("XLALInspiralPrecSpinFactorizedFlux (from input)::values %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f\n", values->data[0], values->data[1], values->data[2], values->data[3], values->data[4], values->data[5], values->data[6], values->data[7], values->data[8], values->data[9], values->data[10], values->data[11]);
          XLALPrintError( "XLAL Error - %s: nan  in input values:  %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f  \n", __func__,  values->data[0], values->data[1], values->data[2], values->data[3], values->data[4], values->data[5], values->data[6], values->data[7], values->data[8], values->data[9], values->data[10], values->data[11] );
          XLAL_ERROR( XLAL_EINVAL );
      }
  }
 
        REAL8           flux = 0.0;
        REAL8           v;
        REAL8           omegaSq;
        COMPLEX16       hLM;
        INT4            l        , m;
 
        //EOBNonQCCoeffs nqcCoeffs;
 
        if (!values || !ak) {
                XLAL_ERROR_REAL8(XLAL_EFAULT);
        }
 
        if (lMax < 2) {
                XLAL_ERROR_REAL8(XLAL_EINVAL);
        }
        /* Omega is the derivative of phi */
        omegaSq = omega * omega;
 
        v = cbrt(omega);
 
        /* Update the factorized multipole coefficients, w.r.t. new spins */
        if (0) {                /* {{{ */
                XLAL_PRINT_INFO("\nValues inside Flux:\n");
                for (i = 0; i < 11; i++)
                        XLAL_PRINT_INFO("values[%d] = %.12e\n", i, values->data[i]);
                /*
                 * Assume that initial conditions are available at this
                 * point, to compute the chiS and chiA parameters. Calculate
                 * the values of chiS and chiA, as given in Eq.16 of
                 * Precessing EOB paper Pan et.al. arXiv:1307.6232 (or PRD 89, 084006 (2014)). Assuming \vec{L} to be pointing in
                 * the direction of \vec{r}\times\vec{p}
                 */
                REAL8           rcrossp  [3], rcrosspMag, s1dotL, s2dotL;
                REAL8           chiS    , chiA, tplspin;
 
                rcrossp[0] = values->data[1] * values->data[5] - values->data[2] * values->data[4];
                rcrossp[1] = values->data[2] * values->data[3] - values->data[0] * values->data[5];
                rcrossp[2] = values->data[0] * values->data[4] - values->data[1] * values->data[3];
                rcrosspMag = sqrt(rcrossp[0] * rcrossp[0] + rcrossp[1] * rcrossp[1] +
                                  rcrossp[2] * rcrossp[2]);
 
                rcrossp[0] /= rcrosspMag;
                rcrossp[1] /= rcrosspMag;
                rcrossp[2] /= rcrosspMag;
 
                s1dotL = values->data[6] * rcrossp[0] + values->data[7] * rcrossp[1]
                        + values->data[8] * rcrossp[2];
                s2dotL = values->data[9] * rcrossp[0] + values->data[10] * rcrossp[1]
                        + values->data[11] * rcrossp[2];
 
                chiS = 0.5 * (s1dotL + s2dotL);
                chiA = 0.5 * (s1dotL - s2dotL);
 
                /*
                 * Compute the test-particle limit spin of the deformed-Kerr
                 * background
                 */
                switch (SpinAlignedEOBversion) {
                case 1:
                        tplspin = 0.0;
                        break;
                case 2:
                        tplspin = (1. - 2. * ak->eobParams->eta) * chiS + (ak->eobParams->m1
                                                                           - ak->eobParams->m2) / (ak->eobParams->m1 + ak->eobParams->m2) * chiA;
                        break;
                default:
                        XLALPrintError("XLAL Error - %s: Unknown SEOBNR version!\nAt present only v1 and v2 are available.\n", __func__);
                        XLAL_ERROR(XLAL_EINVAL);
                        break;
                }
 
                /* ************************************************* */
                /* Re-Populate the Waveform structures               */
                /* ************************************************* */
 
                /* Re-compute the spinning coefficients for hLM */
                //debugPK
                        XLAL_PRINT_INFO("Re-calculating waveform coefficients in the Flux function with chiS, chiA = %e, %e!\n", chiS, chiA);
                chiS = 0.3039435650957116;
                chiA = -0.2959424290852973;
                XLAL_PRINT_INFO("Changed them to the correct values = %e, %e!\n", chiS, chiA);
 
        if (ak->alignedSpins==1) {
                if (XLALSimIMREOBCalcSpinPrecFacWaveformCoefficients(ak->eobParams->hCoeffs,
                   ak->eobParams->m1, ak->eobParams->m2, ak->eobParams->eta,
                                                                 tplspin, chiS, chiA, SpinAlignedEOBversion) == XLAL_FAILURE) {
                        XLALDestroyREAL8Vector(values);
                        XLAL_ERROR(XLAL_EFUNC);
                }
        }
        else {
            if (XLALSimIMREOBCalcSpinPrecFacWaveformCoefficients(ak->eobParams->hCoeffs,
                                                             ak->eobParams->m1, ak->eobParams->m2, ak->eobParams->eta,
                                                             tplspin, chiS, chiA, 3) == XLAL_FAILURE) {
                XLALDestroyREAL8Vector(values);
                XLAL_ERROR(XLAL_EFUNC);
            }
        }
        }                       /* }}} */
        //XLAL_PRINT_INFO("v = %.16e\n", v);
        COMPLEX16 hLMTab[lMax+1][lMax+1];
        if (XLALSimIMRSpinEOBFluxGetPrecSpinFactorizedWaveform_exact(&hLMTab[0][0], polvalues, values, v, H,
                                lMax, ak) == XLAL_FAILURE) {
                XLAL_ERROR_REAL8(XLAL_EFUNC);
        }
        for (l = 2; l <= lMax; l++) {
 
                for (m = 1; m <= l; m++) {
 
                        if (debugPK)
                                XLAL_PRINT_INFO("\nGetting (%d, %d) mode for flux!\n", l, m);
                        //XLAL_PRINT_INFO("Stas, computing the waveform l = %d, m =%d\n", l, m);
                        hLM = hLMTab[l][m];
                        //XLAL_PRINT_INFO("Stas: done\n");
                        /*
                         * For the 2,2 mode, we apply NQC correction to the
                         * flux
                         */
                        if (l == 2 && m == 2) {
                                COMPLEX16       hNQC;
                                /*
                                 * switch ( SpinAlignedEOBversion ) { case 1:
                                 * XLALSimIMRGetEOBCalibratedSpinNQC(
                                 * &nqcCoeffs, l, m, ak->eobParams->eta,
                                 * ak->a ); break; case 2: //
                                 * XLALSimIMRGetEOBCalibratedSpinNQCv2(
                                 * &nqcCoeffs, l, m, ak->eobParams->eta,
                                 * ak->a );
                                 * XLALSimIMRGetEOBCalibratedSpinNQC3D(
                                 * &nqcCoeffs, l, m, ak->eobParams->eta,
                                 * ak->a, (ak->chi1 - ak->chi2)/2. ); break;
                                 * default: XLALPrintError( "XLAL Error - %s:
                                 * Unknown SEOBNR version!\nAt present only
                                 * v1 and v2 are available.\n", __func__);
                                 * XLAL_ERROR( XLAL_EINVAL ); break; }
                                 */
                                if (debugPK)
                                        XLAL_PRINT_INFO("\tl = %d, m = %d, NQC: a1 = %.16e, a2 = %.16e, a3 = %.16e, a3S = %.16e, a4 = %.16e, a5 = %.16e\n\tb1 = %.16e, b2 = %.16e, b3 = %.16e, b4 = %.16e\n",
                                               2, 2, nqcCoeffs->a1, nqcCoeffs->a2, nqcCoeffs->a3, nqcCoeffs->a3S, nqcCoeffs->a4, nqcCoeffs->a5,
                                               nqcCoeffs->b1, nqcCoeffs->b2, nqcCoeffs->b3, nqcCoeffs->b4);
                                XLALSimIMREOBNonQCCorrection(&hNQC, polvalues, omega, nqcCoeffs);
                                if (debugPK)
                                        XLAL_PRINT_INFO("\tl = %d, m = %d, hNQC = %.16e + i%.16e, |hNQC| = %.16e\n", l, m,
                                               creal(hNQC), cimag(hNQC), sqrt(creal(hNQC) * creal(hNQC) + cimag(hLM) * cimag(hLM)));
 
      if((m * m) * omegaSq * (creal(hLM) * creal(hLM) + cimag(hLM) * cimag(hLM)) > 5.) {
 
                XLAL_PRINT_INFO("\tl = %d, m = %d, mag(hLM) = %.17e, mag(hNQC) = %.17e, omega = %.16e\n",
          l, m, sqrt(creal(hLM) * creal(hLM) + cimag(hLM) * cimag(hLM)),
          sqrt(creal(hNQC) * creal(hNQC) + cimag(hNQC) * cimag(hNQC)), omega);
 
      XLAL_PRINT_INFO("XLALInspiralPrecSpinFactorizedFlux (from input)::values %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f %3.10f\n", values->data[0], values->data[1], values->data[2], values->data[3], values->data[4], values->data[5], values->data[6], values->data[7], values->data[8], values->data[9], values->data[10], values->data[11]);
    }
 
                                /* Eq. 16 */
                                //FIXME
                                        hLM *= hNQC;
                        }
                        if (debugPK)
                                XLAL_PRINT_INFO("\tl = %d, m = %d, mag(hLM) = %.17e, omega = %.16e\n", l, m, sqrt(creal(hLM) * creal(hLM) + cimag(hLM) * cimag(hLM)), omega);
 
                        /* Eq. 13 */
                        flux += (REAL8) (m * m) * omegaSq * (creal(hLM) * creal(hLM) + cimag(hLM) * cimag(hLM));
                }
        }
    if( (omegaSq > 1 || flux > 5) ) {
        if(debugPK) {
            XLAL_PRINT_INFO("In XLALInspiralPrecSpinFactorizedFlux: omegaSq = %3.12f, FLUX = %3.12f, r = %3.12f\n",
                   omegaSq, flux,radius);
        }
        flux = 0.;
    }
 
        if (debugPK)
                XLAL_PRINT_INFO("\tStas, FLUX = %.16e\n", flux * LAL_1_PI / 8.0);
        return flux * LAL_1_PI / 8.0;
}
#endif                          /* _LALSIMIMRSPINPRECEOBFACTORIZEDFLUX_C */