د کارن-ټاکلي بهرني بار د پروسس فرعي‌روټین (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: د ټولیز پاتې ځواک ویکتور