file frontends/CaptnGeneral_2_1.cpp

[No description available] More…

Functions

Name
captn_init(solarmodel [0], rho0 , vsun , v0 , vesc )
captn_init_oper()
for()

Attributes

Name
BE_INI_FUNCTION
doublev0
doublevsun
doublevesc
const intclen
char[clen]solarmodel

Detailed Description

Frontend for Capt’n General 1.0 backend


Authors (add name and date if you modify):

Aaron Vincent 25/09/2017 Neal Avis Kozar 13/03/2021


Functions Documentation

function captn_init

captn_init(
    solarmodel [0],
    rho0 ,
    vsun ,
    v0 ,
    vesc 
)

function captn_init_oper

captn_init_oper()

function for

for()

Attributes Documentation

variable BE_INI_FUNCTION

BE_INI_FUNCTION {
  double rho0  = *Param["rho0"]*(*Dep::RD_fraction);

variable v0

double v0 = *Param["v0"];

variable vsun

double vsun = *Param["vrot"];

variable vesc

double vesc = *Param["vesc"];

variable clen

const int clen = 300;

variable solarmodel

char[clen] solarmodel;

Source code

//   GAMBIT: Global and Modular BSM Inference Tool
//   *********************************************
///  \file
///
///  Frontend for Capt'n General 1.0 backend
///
///  *********************************************
///
///  Authors (add name and date if you modify):
///
///  Aaron Vincent
///  25/09/2017
///  Neal Avis Kozar
///  13/03/2021
///  *********************************************

#include "gambit/Backends/frontend_macros.hpp"
#include "gambit/Backends/frontends/CaptnGeneral_2_1.hpp"


// Capgen Initialisation function (definition)
BE_INI_FUNCTION
{
  double rho0  = *Param["rho0"]*(*Dep::RD_fraction);
  double v0    = *Param["v0"];
  double vsun  = *Param["vrot"];
  double vesc  = *Param["vesc"];

  const int clen = 300;
  char solarmodel[clen];
  Utils::strcpy2f(solarmodel, clen, runOptions->getValueOrDef<str>(backendDir +
    "/solarmodels/struct_b16_agss09_reduce10_nohead.dat", "solarmodel"));
  //Capgen checks whether the arrays are already allocated, so it's fine to do this at point-level
  captn_init(solarmodel[0],rho0,vsun,v0,vesc);
  captn_init_oper();

  for(int i=0; i<2; i++)
  {
    for(int j=1; j<16; j++)
    {
      if (j != 2) // 2 is not an allowed coupling constant
      {
        populate_array(0.0, j, i);
      }
    }
  }

}
END_BE_INI_FUNCTION

Updated on 2023-06-26 at 21:36:57 +0000