Потпрограми за еластична деформација (uelastic.f90)¶

Обезбедени се потпрограми за пресметување на еластичната матрица на крутост и за ажурирање на напрегањето кај еластични и хипереластични проблеми. За да користите кориснички дефинирана еластична или хипереластична конститутивна релација, најпрво поставете !ELASTIC, TYPE=USER или !HYPERELASTIC, TYPE=USER во влезната датотека и внесете ги потребните материјални константи, а потоа имплементирајте ги потпрограмите uElasticMatrix и uElasticUpdate.

(1) Потпрограма за пресметување на еластичната матрица на крутост¶

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: Низа во која се складираат материјалните константи (најмногу 100)
• strain: Грин-Лагранжова деформација
• D: Еластична матрица

(2) Потпрограма за пресметување на напрегањето¶

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: Низа во која се складираат материјалните константи (најмногу 100)
• strain: Грин-Лагранжова деформација
• stress: Напрегање