acc_r Function

function acc_r(omega, mass, r)

Arguments

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

Return Value real(kind=wp)


Called by

proc~~acc_r~~CalledByGraph proc~acc_r acc_r proc~co_save_globals_1 co_save_globals_1 proc~co_save_globals_1->proc~acc_r interface~co_save_globals_1 co_save_globals_1 interface~co_save_globals_1->proc~co_save_globals_1

Contents

Source Code


Source Code

  function acc_r ( omega, mass, r )
    real(wp), intent(in) :: omega, mass, r
    real(wp) :: acc_r

    acc_r = (r - 2.0_wp*mass)*(mass - r**3*omega**2) &
            /(r**2*(r - 2.0_wp*mass - r**3*omega**2))
  end function acc_r