Potprogrami za elastičnu deformaciju (uelastic.f90)¶

Dostupni su potprogrami za izračun elastične matrice krutosti i ažuriranje naprezanja u elastičnim i hiperelastičnim problemima. Za uporabu korisnički definiranog elastičnog ili hiperelastičnog konstitutivnog odnosa najprije postavite !ELASTIC, TYPE=USER ili !HYPERELASTIC, TYPE=USER u ulaznoj datoteci i unesite potrebne konstante materijala, a zatim implementirajte potprograme uElasticMatrix i uElasticUpdate.

(1) Potprogram za izračun elastične matrice krutosti¶

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: Polje koje pohranjuje konstante materijala (maksimalno 100)
• strain: Green-Lagrangeova deformacija
• D: Elastična matrica

(2) Potprogram za izračun naprezanja¶

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: Polje koje pohranjuje konstante materijala (maksimalno 100)
• strain: Green-Lagrangeova deformacija
• stress: Naprezanje