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