لچک دار تبدیلیِ شکل سے متعلق سب روٹینز (uelastic.f90)¶

لچک دار اور فوق لچک دار مسائل کے لیے لچک دار سختی میٹرکس اور تناؤ کی تازہ کاری کا حساب کرنے کی سب روٹینز فراہم کی گئی ہیں۔ صارف کی تعریف کردہ لچک دار یا فوق لچک دار تشکیلی تعلق استعمال کرنے کے لیے پہلے ان پٹ فائل میں !ELASTIC, TYPE=USER یا !HYPERELASTIC, TYPE=USER متعین کر کے درکار مادی مستقلات درج کریں، پھر سب روٹینز uElasticMatrix اور uElasticUpdate تیار کرنا ضروری ہے۔

(1) لچک دار سختی میٹرکس کے حساب کی سب روٹین¶

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: مادی مستقلات محفوظ کرنے والی صف (زیادہ سے زیادہ 100)
• strain: Green-Lagrange کرنش
• D: لچک دار میٹرکس

(2) تناؤ کے حساب کی سب روٹین¶

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: مادی مستقلات محفوظ کرنے والی صف (زیادہ سے زیادہ 100)
• strain: Green-Lagrange کرنش
• stress: تناؤ