روتين فرعي لمعالجة الأحمال الخارجية المعرّفة من المستخدم (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: متجه القوة المتبقية الكلي