उपयोगकर्ता-परिभाषित सामग्रियों के लिए सबरूटीन (umat.f)

लोचदार, हाइपरइलास्टिक या इलास्टोप्लास्टिक होने से स्वतंत्र रूप से, सामान्य सामग्रियों के विरूपण विश्लेषण के लिए एक इंटरफ़ेस प्रदान करता है। उपयोगकर्ता-परिभाषित सामग्री का उपयोग करने के लिए, पहले इनपुट फ़ाइल में !USER_MATERIAL सेट करें और आवश्यक सामग्री नियतांक दर्ज करें, फिर uMatlMatrix और uUpdate सबरूटीन बनाएँ।

(1) कठोरता मैट्रिक्स की गणना के लिए सबरूटीन

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: सामग्री का नाम
• matl: सामग्री नियतांकों को संग्रहीत करने वाला ऐरे (अधिकतम 100)
• strain: Green-Lagrange विकृति
• stress: 2nd Piola-Kirchhoff तनाव
• fstat: अवस्था चर
• D: संघटक संबंध
• dtime: समय वृद्धि
• ttime: वर्तमान समय वृद्धि की शुरुआत पर कुल समय
• temperature: तापमान

(2) विकृति और तनाव को अद्यतन करने के लिए सबरूटीन

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: सामग्री का नाम
• matl: सामग्री नियतांकों को संग्रहीत करने वाला ऐरे (अधिकतम 100)
• strain: विकृति
• stress: 2nd Piola-Kirchhoff तनाव
• fstat: अवस्था चर
• dtime: समय वृद्धि
• ttime: वर्तमान समय वृद्धि की शुरुआत पर कुल समय
• temperature: तापमान