Subrutiner for elastisk deformasjon (uelastic.f90)¶

Det tilbys subrutiner for å beregne den elastiske stivhetsmatrisen og oppdatere spenning i elastiske og hyperelastiske problemer. For å bruke en brukerdefinert elastisk eller hyperelastisk konstitutiv relasjon må du først angi !ELASTIC, TYPE=USER eller !HYPERELASTIC, TYPE=USER i inndatafilen og legge inn nødvendige materialkonstanter, og deretter implementere subrutinene uElasticMatrix og uElasticUpdate.

(1) Subrutine for beregning av elastisk stivhetsmatrise¶

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 som lagrer materialkonstanter (maksimalt 100)
• strain: Green-Lagrange-tøyning
• D: Elastisk matrise

(2) Subrutine for beregning av spenning¶

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 som lagrer materialkonstanter (maksimalt 100)
• strain: Green-Lagrange-tøyning
• stress: Spenning