rstar_of_r Function

  1. module_numerics.f90
  2. numerics
  3. rstar_of_r

public function rstar_of_r(r, mass)

Function to calculate the tortoise radius, , as function of the Schwarzschild radius, .

Arguments

Type IntentOptional AttributesName
real(kind=wp), intent(in) :: r

The schwarzschild radius, .
real(kind=wp), intent(in) :: mass

The mass of the black hole, .

Return Value real(kind=wp)

The return value is .


Called by

proc~~rstar_of_r~~CalledByGraph proc~rstar_of_r rstar_of_r proc~convert_rschw_to_rstar convert_rschw_to_rstar proc~convert_rschw_to_rstar->proc~rstar_of_r proc~init_grid_coordinates init_grid_coordinates proc~init_grid_coordinates->proc~rstar_of_r proc~tdc_set_coefficients tdc_set_coefficients proc~tdc_set_coefficients->proc~convert_rschw_to_rstar interface~init_grid_coordinates init_grid_coordinates interface~init_grid_coordinates->proc~init_grid_coordinates interface~tdc_set_coefficients tdc_set_coefficients interface~tdc_set_coefficients->proc~tdc_set_coefficients program~test test program~test->interface~init_grid_coordinates

Contents

Source Code

rstar_of_r

Source Code

  function rstar_of_r ( r, mass )
  !! Function to calculate the tortoise radius, \(r_*\), as function of the
  !! Schwarzschild radius, \(r_{\mathrm{schw}}\).

    implicit none

    real(wp), intent(in) :: r
    !! The schwarzschild radius, \(r_{\mathrm{schw}}\).
    real(wp), intent(in) :: mass
    !! The mass of the black hole, \(M\).
    real(wp) :: rstar_of_r
    !! The return value is \(r_* = r_{\mathrm{schw}}+2 M\log\left (
    !! \frac{r_{\mathrm{schw}}}{2 M} - 1\right )\).

    rstar_of_r = r+2.0_wp*mass*log(r/(2.0_wp*mass)-1.0_wp)
  end function rstar_of_r