Առաձգական դեֆորմացիային վերաբերող ենթածրագրեր (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: Green-Lagrange դեֆորմացիա
• 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: Green-Lagrange դեֆորմացիա
• stress: լարում