İstifadəçi tərəfindən təyin olunan xarici yüklərin emalı altproqramı (uload.f)¶

İstifadəçi tərəfindən təyin olunan xarici yükləri emal etmək üçün interfeys təqdim edir.

İstifadəçi tərəfindən təyin olunan xarici yükdən istifadə etmək üçün əvvəlcə xarici yükü təyin edən tULoad ədədi strukturunu təyin edin və giriş faylındakı !ULOAD, FILE=ファイル名 vasitəsilə fayl adı ilə göstərilən fayldan həmin tərifi oxuyun. Daha sonra xarici yükü daxil etmək üçün aşağıdakı interfeyslərdən istifadə edin.

(1) Xarici yükün oxunması altproqramı¶

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

• fname: Xarici fayl adı. İstifadəçi tərəfindən təyin olunan xarici yük bu fayldan oxunur.

(2) Xarici yükün qlobal yük vektoruna daxil edilməsi altproqramı¶

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

• cstep: Cari analiz addımının nömrəsi
• factor: Cari addımın yük əmsalı
• exForce: Qlobal yük vektoru

(3) Qalıq gərginliyin hesablanması altproqramı¶

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

• cstep: Cari analiz addımının nömrəsi
• factor: Cari addımın yük əmsalı
• residual: Qlobal qalıq qüvvə vektoru