Naudotojo apibrėžtų išorinių apkrovų apdorojimo paprogramė (uload.f)¶

Pateikiamos sąsajos naudotojo apibrėžtoms išorinėms apkrovoms apdoroti.

Norėdami naudoti naudotojo apibrėžtą išorinę apkrovą, pirmiausia apibrėžkite skaitinę struktūrą tULoad, skirtą išorinei apkrovai aprašyti, o įvesties faile naudokite !ULOAD, FILE=ファイル名, kad apibrėžimas būtų nuskaitytas iš failo, nurodyto failo pavadinimu. Tada naudokite toliau nurodytas sąsajas išorinei apkrovai įtraukti.

(1) Išorinės apkrovos nuskaitymo paprogramė¶

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

• fname: Išorinio failo pavadinimas. Iš šio failo nuskaitoma naudotojo apibrėžta išorinė apkrova.

(2) Išorinės apkrovos įtraukimo į bendrą apkrovos vektorių paprogramė¶

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

• cstep: Dabartinis analizės žingsnio numeris
• factor: Dabartinio žingsnio apkrovos daugiklis
• exForce: Bendras apkrovos vektorius

(3) Liekamojo įtempio skaičiavimo paprogramė¶

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

• cstep: Dabartinis analizės žingsnio numeris
• factor: Dabartinio žingsnio apkrovos daugiklis
• residual: Bendras liekamųjų jėgų vektorius