Käyttäjän määrittämien ulkoisten kuormien käsittelyaliohjelma (uload.f)

Tarjoaa rajapinnat käyttäjän määrittämien ulkoisten kuormien käsittelyyn.

Käyttäjän määrittämän ulkoisen kuorman käyttämiseksi määritä ensin ulkoisen kuorman määrittävä tietorakenne tULoad ja lue määrittely syöttötiedoston !ULOAD, FILE=ファイル名-määrityksellä tiedostonimen osoittamasta tiedostosta. Tämän jälkeen ulkoinen kuorma liitetään seuraavien rajapintojen avulla.

(1) Ulkoisen kuorman lukemisen aliohjelma

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

• fname: Ulkoisen tiedoston nimi. Käyttäjän määrittämä ulkoinen kuorma luetaan tästä tiedostosta.

(2) Ulkoisen kuorman liittäminen kokonaiskuormavektoriin

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

• cstep: Nykyinen analyysivaiheiden määrä
• factor: Nykyisen vaiheen kuormakerroin
• exForce: Kokonaiskuormavektori

(3) Jäännösjännityksen laskennan aliohjelma

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

• cstep: Nykyinen analyysivaiheiden määrä
• factor: Nykyisen vaiheen kuormakerroin
• residual: Kokonaisjäännösvoimavektori