အီလတ်စတစ်ပုံပျက်မှုအတွက် ဆပ်ရူတင်း များ (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: စထရက်စ်