CalcScalarSources(EV, taustart)
EvolutionVars :: EV
real(dl) :: taustart
CalcScalCls(CTrans)
ClTransferData :: CTrans
CalcScalCls2(CTrans)
Calculate C_ll' for non-isotropic models
Run with l_sample_boost=50 to get every l
not used in normal CAMB
ClTransferData :: CTrans
CalcTensCls(CTrans, GetInitPowers)
ClTransferData :: CTrans
external :: GetInitPowers
CalcTensorSources(EV, taustart)
EvolutionVars :: EV
real(dl) :: taustart
CalcVecCls(CTrans, GetInitPowers)
ClTransferData :: CTrans
external :: GetInitPowers
CalcVectorSources(EV, taustart)
EvolutionVars :: EV
real(dl) :: taustart
ClTransferToCl(State)
CAMBdata :: State
DoFlatIntegration(IV, ThisCT, llmax)
IntegrationVars :: IV
ClTransferData :: ThisCT
integer :: llmax
DoRangeInt(IV, l, nstart, nend, nu, dtau, chi, chiDisp, y1, y2, out)
Non-flat version
returns chi at end of integral (where integral stops, not neccessarily end)
This subroutine integrates the source*ujl for steps nstart to nend
It calculates ujl by integrating a second order
differential equation from initial values.
dtau is the spacing of the timesteps (they must be equally spaced)
IntegrationVars :: IV
integer :: l
integer :: nstart
integer :: nend
real(dl) :: nu
real(dl) :: dtau
real(dl) :: chi
real(dl) :: chiDisp
real(dl) :: y1
real(dl) :: y2
real(dl) :: out(ThisSources%SourceNum)
DoRangeIntTensor(IV, l, nstart, nend, nu, dtau, chi, chiDisp, y1, y2, out)
It calculates ujl by integrating a second order
differential equation from initial values for calculating ujl.
nstart and nend are the starting and finishing values of the
integration.
dtau is the spacing of the timesteps (they must be equally spaced)
IntegrationVars target :: IV
integer :: l
integer :: nstart
integer :: nend
real(dl) :: nu
real(dl) :: dtau
real(dl) :: chi
real(dl) :: chiDisp
real(dl) :: y1
real(dl) :: y2
real(dl) :: out(ThisSources%SourceNum)
DoSourceIntegration(IV, ThisCT)
for particular wave number q
IntegrationVars :: IV
ClTransferData :: ThisCT
DoSourcek(q_ix, EV)
integer :: q_ix
EvolutionVars :: EV
GetInitPowerArrayTens(numks, pows, ks)
integer intent(in) :: numks
real(dl) :: pows(numks)
real(dl) :: ks(numks)
GetInitPowerArrayVec(numks, pows, ks)
integer intent(in) :: numks
real(dl) :: pows(numks)
real(dl) :: ks(numks)
GetLimberTransfers(ThisCT)
ClTransferData target :: ThisCT
GetTransfer(EV, tau)
EvolutionVars :: EV
real(dl) :: tau
InitVars(state)
CAMBdata :: state
IntegrateSourcesBessels(IV, ThisCT, l, j, nu)
IntegrationVars :: IV
ClTransferData :: ThisCT
integer :: l
integer :: j
real(dl) :: nu
IntegrationVars_Init(IV)
IntegrationVars intent(INOUT) :: IV
InterpolateCls()
InterpolateSources(IV)
IntegrationVars :: IV
SetClosedkValuesFromArr(R, forInt)
TRanges intent(inout) :: R
logical intent(in) :: forInt
SetkValuesForInt(ThisCT)
ClTransferData :: ThisCT
SourceToTransfers(ThisCT, q_ix)
ClTransferData target :: ThisCT
integer :: q_ix
TimeSourcesToCl(ThisCT)
ClTransferData :: ThisCT