ຊັບຣູທີນປະມວນຜົນແຮງກະທຳພາຍນອກທີ່ຜູ້ໃຊ້ກຳນົດ (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: ເວັກເຕີແຮງຕົກຄ້າງລວມ