ഇലാസ്റ്റിക് രൂപവ്യതിയാനവുമായി ബന്ധപ്പെട്ട സബ്‌റൂട്ടീനുകൾ (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: സ്ട്രെസ്