p_solid_le Subroutine

public pure subroutine p_solid_le(drho, k, p)

固体力学线性弹性模型

Arguments

Type IntentOptional Attributes Name
real(kind=rk), intent(in) :: drho
real(kind=rk), intent(in) :: k
real(kind=rk), intent(out) :: p

Contents

Source Code

p_solid_le

Source Code

    pure subroutine p_solid_le(drho, k, p)
        real(rk), intent(in) :: drho, k
        real(rk), intent(out) :: p

        p = k*drho

    end subroutine p_solid_le