Elastik deformasiyaya aid altproqramlar (uelastic.f90)¶

Elastik və hiperelastik məsələlər üçün elastik sərtlik matrisinin hesablanması və gərginliyin yenilənməsi üçün altproqramlar təqdim olunur. İstifadəçi tərəfindən təyin olunan elastik və ya hiperelastik konstitutiv tənlikdən istifadə edərkən əvvəlcə giriş faylında !ELASTIC, TYPE=USER və ya !HYPERELASTIC, TYPE=USER təyin edilməli və tələb olunan material sabitləri daxil edilməli, sonra uElasticMatrix və uElasticUpdate altproqramları hazırlanmalıdır.

(1) Elastik sərtlik matrisinin hesablanması altproqramı¶

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: material sabitlərini saxlayan massiv (ən çox 100)
• strain: Green-Lagrange deformasiyası
• D: elastiklik matrisi

(2) Gərginliyin hesablanması altproqramı¶

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: material sabitlərini saxlayan massiv (ən çox 100)
• strain: Green-Lagrange deformasiyası
• stress: gərginlik