Elastse deformatsiooni alamprogrammid (uelastic.f90)¶

Elastse ja hüperelastse probleemi jaoks on olemas alamprogrammid elastse jäikusmaatriksi arvutamiseks ning pinge uuendamiseks. Kasutaja määratletud elastse või hüperelastse konstitutiivse seose kasutamiseks määrake sisendfailis esmalt !ELASTIC, TYPE=USER või !HYPERELASTIC, TYPE=USER ning sisestage vajalikud materjalikonstandid, seejärel teostage alamprogrammid uElasticMatrix ja uElasticUpdate.

(1) Elastse jäikusmaatriksi arvutamise alamprogramm¶

subroutine uElasticMatrix( matl, strain, D )
    REAL(KIND=kreal), INTENT(IN) :: matl(:)
    REAL(KIND=kreal), INTENT(IN) :: strain(6)
    REAL(KIND=kreal), INTENT(OUT) :: D(6,6)

• matl: Materjalikonstante salvestav massiiv (maksimaalselt 100)
• strain: Green-Lagrange'i deformatsioon
• D: Elastne maatriks

(2) Pinge arvutamise alamprogramm¶

subroutine uElasticUpdate ( matl, strain, stress )
    REAL(KIND=kreal), INTENT(IN) :: matl(:)
    REAL(KIND=kreal), INTENT(IN) :: strain(6)
    REAL(KIND=kreal), INTENT(OUT) :: stress(6)

• matl: Materjalikonstante salvestav massiiv (maksimaalselt 100)
• strain: Green-Lagrange'i deformatsioon
• stress: Pinge