Foydalanuvchi aniqlagan tashqi yuklamalarni qayta ishlash subrutinasi (uload.f)¶

Foydalanuvchi aniqlagan tashqi yuklamalarni qayta ishlash uchun interfeyslarni taqdim etadi.

Foydalanuvchi aniqlagan tashqi yuklamadan foydalanish uchun avval tashqi yuklamani aniqlovchi tULoad sonli tuzilmasini belgilang va kirish faylidagi !ULOAD, FILE=ファイル名 orqali fayl nomi bilan ko‘rsatilgan fayldan ta’rifni o‘qing. Shundan so‘ng tashqi yuklamani kiritish uchun quyidagi interfeyslardan foydalaning.

(1) Tashqi yuklamani o‘qish subrutinasi¶

integer function ureadload( fname )
    character(len=\*), intent(in) :: fname

• fname: Tashqi fayl nomi. Foydalanuvchi aniqlagan tashqi yuklama shu fayldan o‘qiladi.

(2) Tashqi yuklamani umumiy yuklama vektoriga kiritish subrutinasi¶

subroutine uloading( cstep, factor, exForce )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: exForce(:)

• cstep: Joriy tahlil qadamlari soni
• factor: Joriy qadamning yuklama koeffitsiyenti
• exForce: Umumiy yuklama vektori

(3) Qoldiq kuchni hisoblash subrutinasi¶

subroutine uResidual( cstep, factor, residual )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: residual(:)

• cstep: Joriy tahlil qadamlari soni
• factor: Joriy qadamning yuklama koeffitsiyenti
• residual: Umumiy qoldiq kuch vektori