Tarkibga o'tish

Foydalanuvchi aniqlagan tashqi yuklamalarni qayta ishlash quyi dasturi (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=fayl_nomi 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 quyi dasturi

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 quyi dasturi

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 kuchlanishni hisoblash quyi dasturi

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