Podprogram pro zpracování uživatelsky definovaných vnějších zatížení (uload.f)

Poskytuje rozhraní pro zpracování uživatelsky definovaných vnějších zatížení.

Chcete-li použít uživatelsky definované vnější zatížení, nejprve definujte numerickou strukturu tULoad pro definici vnějšího zatížení a v souboru vstupu použijte !ULOAD, FILE=ファイル名 k načtení definice ze souboru určeného názvem souboru. Poté použijte následující rozhraní pro zahrnutí vnějšího zatížení.

(1) Podprogram pro načtení vnějšího zatížení

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

• fname: Název externího souboru. Z tohoto souboru se načte uživatelsky definované vnější zatížení.

(2) Podprogram pro zahrnutí vnějšího zatížení do celkového vektoru zatížení

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

• cstep: Aktuální číslo kroku analýzy
• factor: Součinitel zatížení aktuálního kroku
• exForce: Celkový vektor zatížení

(3) Podprogram pro výpočet reziduální síly

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

• cstep: Aktuální číslo kroku analýzy
• factor: Součinitel zatížení aktuálního kroku
• residual: Celkový vektor reziduální síly