Subroutine za Nyenzo Zinazofafanuliwa na Mtumiaji (umat.f)¶

Hutoa interface ya uchanganuzi wa ugeukaji wa nyenzo za jumla, bila kujali kama ni elastiki, hyperelastic au elastoplastic. Ili kutumia nyenzo inayofafanuliwa na mtumiaji, kwanza weka !USER_MATERIAL katika faili ya ingizo na uingize konstanti za nyenzo zinazohitajika, kisha unda subroutine uMatlMatrix na uUpdate.

(1) Subroutine ya Kukokotoa Matriki ya Ugumu¶

subroutine uMatlMatrix( mname, matl, strain, stress, fstat, D, dtime, ttime, temperature )
        character(len=*), intent(in)  :: mname
        real(kind=kreal), intent(in)  :: matl(:)
        real(kind=kreal), intent(in)  :: strain(6)
        real(kind=kreal), intent(in)  :: stress(6)
        real(kind=kreal), intent(in)  :: fstat(:)
        real(kind=kreal), intent(out) :: D(:,:)
        real(kind=kreal), intent(in)  :: dtime
        real(kind=kreal), intent(in)  :: ttime
        real(kind=kreal), optional    :: temperature

• mname: Jina la nyenzo
• matl: Array inayohifadhi konstanti za nyenzo (kiwango cha juu 100)
• strain: Strain ya Green-Lagrange
• stress: Stress ya 2nd Piola-Kirchhoff
• fstat: Vigezo vya hali
• D: Uhusiano wa kikatiba
• dtime: Increment ya muda
• ttime: Muda jumla katika mwanzo wa increment ya sasa ya muda
• temperature: Halijoto

(2) Subroutine ya Kukokotoa Usasishaji wa Strain na Stress¶

subroutine uUpdate(  mname, matl, strain, stress, fstat, dtime, ttime, temperature )
        character(len=\*), intent(in)    :: mname
        real(kind=kreal), intent(in)    :: matl(:)
        real(kind=kreal), intent(in)    :: strain(6)
        real(kind=kreal), intent(inout) :: stress(6)
        real(kind=kreal), intent(inout) :: fstat(:)
        real(kind=kreal), intent(in)    :: dtime
        real(kind=kreal), intent(in)    :: ttime
        real(kind=kreal), optional      :: temperature

• mname: Jina la nyenzo
• matl: Array inayohifadhi konstanti za nyenzo (kiwango cha juu 100)
• strain: Strain
• stress: Stress ya 2nd Piola-Kirchhoff
• fstat: Vigezo vya hali
• dtime: Increment ya muda
• ttime: Muda jumla katika mwanzo wa increment ya sasa ya muda
• temperature: Halijoto