ප්‍රත්‍යාස්ථ විරූපණයට අදාළ උපරූටීන (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: ආතතිය