s_of_r Function

public pure elemental function s_of_r(r) result(s)

Uses

  • proc~~s_of_r~~UsesGraph proc~s_of_r s_of_r module~mod_global_parameters mod_global_parameters proc~s_of_r->module~mod_global_parameters module~mod_basic_types mod_basic_types module~mod_global_parameters->module~mod_basic_types module~mod_connectivity mod_connectivity module~mod_global_parameters->module~mod_connectivity module~mod_constants mod_constants module~mod_global_parameters->module~mod_constants module~mod_physicaldata mod_physicaldata module~mod_global_parameters->module~mod_physicaldata module~mod_variables mod_variables module~mod_global_parameters->module~mod_variables mpi mpi module~mod_global_parameters->mpi module~mod_variables->module~mod_basic_types

Inverse of r_of_s. See there.

Arguments

Type IntentOptional Attributes Name
double precision, intent(in) :: r

Return Value double precision


Calls

proc~~s_of_r~~CallsGraph proc~s_of_r s_of_r dsign dsign proc~s_of_r->dsign

Source Code

  pure elemental function s_of_r(r) result(s)
    use mod_global_parameters
    double precision, intent(in) :: r
    double precision             :: s

    if (log_r0 > zero) then
      s = dsign(one,r)*dlog(one + dabs(r)/log_r0)
    else
      s = dlog(r)
    end if
  end function s_of_r