Apakšprogrammas elastīgajai deformācijai (uelastic.f90)¶

Tiek nodrošinātas apakšprogrammas elastīgās stinguma matricas aprēķināšanai un sprieguma atjaunināšanai elastības un hiperelastības uzdevumos. Lai izmantotu lietotāja definētu elastīgu vai hiperelastīgu konstitutīvo sakarību, vispirms ievades failā iestatiet !ELASTIC, TYPE=USER vai !HYPERELASTIC, TYPE=USER un ievadiet nepieciešamās materiāla konstantes, pēc tam izveidojiet apakšprogrammas uElasticMatrix un uElasticUpdate.

(1) Apakšprogramma elastīgās stinguma matricas aprēķināšanai¶

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: masīvs materiāla konstantēm (maksimums 100)
• strain: Green-Lagrange deformācija
• D: elastības matrica

(2) Apakšprogramma sprieguma aprēķināšanai¶

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: masīvs materiāla konstantēm (maksimums 100)
• strain: Green-Lagrange deformācija
• stress: spriegums