Skip to content

लवचिक विकृतीशी संबंधित सबरूटीन (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: प्रतिबल