Podprogrami za elastično deformacijo (uelastic.f90)¶

Na voljo so podprogrami za izračun elastične togostne matrike in posodabljanje napetosti pri elastičnih in hiperelastičnih problemih. Za uporabo uporabniško definirane elastične ali hiperelastične konstitutivne zveze najprej v vhodni datoteki nastavite !ELASTIC, TYPE=USER ali !HYPERELASTIC, TYPE=USER in vnesite zahtevane materialne konstante, nato pa implementirajte podprograma uElasticMatrix in uElasticUpdate.

(1) Podprogram za izračun elastične togostne matrike¶

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: Polje, v katerem so shranjene materialne konstante (največ 100)
• strain: Green-Lagrangeev raztezek
• D: Elastična matrika

(2) Podprogram za izračun napetosti¶

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: Polje, v katerem so shranjene materialne konstante (največ 100)
• strain: Green-Lagrangeev raztezek
• stress: Napetost