Undirforrit fyrir fjaðurfræðilega aflögun (uelastic.f90)¶

Undirforrit eru veitt til að reikna fjaðurstífleikafylkið og uppfæra spennu í fjaðurfræðilegum og ofurfjaðurfræðilegum verkefnum. Til að nota notandaskilgreint fjaðurfræðilegt eða ofurfjaðurfræðilegt efnissamband skal fyrst setja !ELASTIC, TYPE=USER eða !HYPERELASTIC, TYPE=USER í inntaksskrána og færa inn nauðsynlega efnisfasta, og síðan útfæra undirforritin uElasticMatrix og uElasticUpdate.

(1) Undirforrit til að reikna fjaðurstífleikafylkið¶

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: Fylki sem geymir efnisfasta (hámark 100)
• strain: Green–Lagrange-formbreyting
• D: Fjaðurfylki

(2) Undirforrit til að reikna spennu¶

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: Fylki sem geymir efnisfasta (hámark 100)
• strain: Green–Lagrange-formbreyting
• stress: Spenna