Subrutină pentru procesarea sarcinilor externe definite de utilizator (uload.f)

Furnizează interfețe pentru procesarea sarcinilor externe definite de utilizator.

Pentru a utiliza o sarcină externă definită de utilizator, definiți mai întâi structura numerică tULoad pentru definirea sarcinii externe și utilizați !ULOAD, FILE=ファイル名 în fișierul de intrare pentru a citi definiția din fișierul specificat prin numele de fișier. Apoi utilizați interfețele următoare pentru a încorpora sarcina externă.

(1) Subrutină pentru citirea sarcinii externe

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

• fname: Numele fișierului extern. Sarcina externă definită de utilizator este citită din acest fișier.

(2) Subrutină pentru încorporarea sarcinii externe în vectorul global de sarcină

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

• cstep: Numărul curent al pasului de analiză
• factor: Factorul de sarcină al pasului curent
• exForce: Vectorul global de sarcină

(3) Subrutină pentru calculul forței reziduale

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

• cstep: Numărul curent al pasului de analiză
• factor: Factorul de sarcină al pasului curent
• residual: Vectorul global al forței reziduale