Subrutiner til elastisk deformation (uelastic.f90)¶

Der leveres subrutiner til beregning af den elastiske stivhedsmatrix og opdatering af spændinger i elastiske og hyperelastiske problemer. For at anvende en brugerdefineret elastisk eller hyperelastisk konstitutiv relation skal !ELASTIC, TYPE=USER eller !HYPERELASTIC, TYPE=USER først angives i inputfilen sammen med de nødvendige materialekonstanter, og derefter skal subrutinerne uElasticMatrix og uElasticUpdate implementeres.

(1) Subrutine til beregning af den elastiske stivhedsmatrix¶

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: Array, der lagrer materialekonstanter (maksimum 100)
• strain: Green-Lagrange-tøjning
• D: Elastisk matrix

(2) Subrutine til beregning af spænding¶

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: Array, der lagrer materialekonstanter (maksimum 100)
• strain: Green-Lagrange-tøjning
• stress: Spænding