Deformazio elastikorako azpierrutinak (uelastic.f90)¶

Arazo elastiko eta hiperelastikoetan zurruntasun-matrize elastikoa kalkulatzeko eta tentsioa eguneratzeko azpierrutinak eskaintzen dira. Erabiltzaileak definitutako erlazio konstitutibo elastiko edo hiperelastiko bat erabiltzeko, lehenik ezarri !ELASTIC, TYPE=USER edo !HYPERELASTIC, TYPE=USER sarrera-fitxategian eta sartu behar diren material-konstanteak; ondoren, sortu uElasticMatrix eta uElasticUpdate azpierrutinak.

(1) Zurruntasun-matrize elastikoa kalkulatzeko azpierrutina¶

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-konstanteak gordetzeko array-a (gehienez 100)
• strain: Green-Lagrange deformazioa
• D: matrize elastikoa

(2) Tentsioa kalkulatzeko azpierrutina¶

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-konstanteak gordetzeko array-a (gehienez 100)
• strain: Green-Lagrange deformazioa
• stress: tentsioa