Subroetines vir elastiese vervorming (uelastic.f90)¶

Subroetines word verskaf om die elastiese styfheidsmatriks te bereken en spanning in elastiese en hiperelastiese probleme by te werk. Om 'n gebruiker-gedefinieerde elastiese of hiperelastiese konstitutiewe verband te gebruik, stel eers !ELASTIC, TYPE=USER of !HYPERELASTIC, TYPE=USER in die invoerlêer en voer die vereiste materiaalkonstantes in, en skep daarna die subroetines uElasticMatrix en uElasticUpdate.

(1) Subroetine vir die berekening van die elastiese styfheidsmatriks¶

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: skikking wat materiaalkonstantes stoor (maksimum 100)
• strain: Green-Lagrange-vervorming
• D: elastiese matriks

(2) Subroetine vir die berekening van spanning¶

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: skikking wat materiaalkonstantes stoor (maksimum 100)
• strain: Green-Lagrange-vervorming
• stress: spanning