အသုံးပြုသူသတ်မှတ် ပြင်ပဝန်ကို လုပ်ဆောင်သည့် ဆပ်ရူတင်း (uload.f)¶

အသုံးပြုသူသတ်မှတ် ပြင်ပဝန်ကို လုပ်ဆောင်ရန် အင်တာဖေ့စ် ကို ပေးသည်။

အသုံးပြုသူသတ်မှတ် ပြင်ပဝန်ကို အသုံးပြုရန် ပထမဦးစွာ ပြင်ပဝန်ကို သတ်မှတ်သည့် ကိန်းဂဏန်းဆိုင်ရာ ဖွဲ့စည်းပုံ tULoad ကို သတ်မှတ်ပြီး ထည့်သွင်းဖိုင် ရှိ !ULOAD, FILE=ဖိုင်အမည် ကို အသုံးပြုကာ ဖိုင်အမည်ဖြင့် သတ်မှတ်ထားသော ဖိုင်မှ ထိုသတ်မှတ်ချက်ကို ဖတ်သွင်းသည်။ ထို့နောက် အောက်ပါ အင်တာဖေ့စ် များကို အသုံးပြု၍ ပြင်ပဝန်ကို ထည့်သွင်းသည်။

(1) ပြင်ပဝန် ဖတ်သွင်းသည့် ဆပ်ရူတင်း¶

integer function ureadload( fname )
    character(len=\*), intent(in) :: fname

• fname: ပြင်ပဖိုင်အမည်။ ဤဖိုင်မှ အသုံးပြုသူသတ်မှတ် ပြင်ပဝန်ကို ဖတ်သွင်းသည်။

(2) ပြင်ပဝန်ကို စုစုပေါင်း ဝန် ဗက်တာ သို့ ထည့်သွင်းသည့် ဆပ်ရူတင်း¶

subroutine uloading( cstep, factor, exForce )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: exForce(:)

• cstep: လက်ရှိခွဲခြမ်းစိတ်ဖြာမှု အဆင့် နံပါတ်
• factor: လက်ရှိ အဆင့် ၏ ဝန် ကိန်း
• exForce: စုစုပေါင်း ဝန် ဗက်တာ

(3) ကျန်ရှိချက် စထရက်စ် တွက်ချက်သည့် ဆပ်ရူတင်း¶

subroutine uResidual( cstep, factor, residual )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: residual(:)

• cstep: လက်ရှိခွဲခြမ်းစိတ်ဖြာမှု အဆင့် နံပါတ်
• factor: လက်ရှိ အဆင့် ၏ ဝန် ကိန်း
• residual: စုစုပေါင်း ကျန်အားဗက်တာ