صارف کی تعریف کردہ بیرونی بوجھ کی پروسیسنگ سب روٹین (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: مجموعی باقی ماندہ قوت ویکٹر