p_solid_vonMises Subroutine

public pure subroutine p_solid_vonMises(divrho, k, n, p)

固体力学 von Mises 模型

Arguments

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

Contents

Source Code

p_solid_vonMises

Source Code

    pure subroutine p_solid_vonMises(divrho, k, n, p)
        real(rk), intent(in) :: divrho, k, n
        real(rk), intent(out) :: p

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

    end subroutine p_solid_vonMises