زیرروال پردازش بار خارجی تعریف‌شده توسط کاربر (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: بردار نیروی باقیماندهٔ کلی