प्रत्यास्थ विरूपण से संबंधित सबरूटीन (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: प्रतिबल