p_solid_tait Subroutine

public pure subroutine p_solid_tait(divrho, b, n, p)

固体力学 Tait 方程

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: divrho
real(kind=rk), intent(in) :: b
real(kind=rk), intent(in) :: n
real(kind=rk), intent(out) :: p

Contents

Source Code

p_solid_tait

Source Code

    pure subroutine p_solid_tait(divrho, b, n, p)
        real(rk), intent(in) :: divrho, b, n
        real(rk), intent(out) :: p

        p = b*(divrho**n - 1.0_rk)

    end subroutine p_solid_tait