පරිශීලක-අර්ථදක්වන බාහිර භාර සැකසීමේ උපරූටීනය (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: සමස්ත ශේෂ බල වෙක්ටරය