Потпрограми за еластичну деформацију (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: Напон