Subrutine til behandling af brugerdefinerede eksterne laster (uload.f)¶

Tilbyder grænseflader til behandling af brugerdefinerede eksterne laster.

For at anvende en brugerdefineret ekstern last skal den numeriske struktur tULoad, der definerer den eksterne last, først defineres, og !ULOAD, FILE=ファイル名 i inputfilen bruges til at indlæse definitionen fra den fil, der er angivet med filnavnet. Derefter bruges følgende grænseflader til at indarbejde den eksterne last.

(1) Subrutine til indlæsning af ekstern last¶

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

• fname: Navn på ekstern fil. Den brugerdefinerede eksterne last indlæses fra denne fil.

(2) Subrutine til indarbejdelse af den eksterne last i den globale lastvektor¶

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

• cstep: Aktuelt antal analysetrin
• factor: Lastfaktor for det aktuelle trin
• exForce: Global lastvektor

(3) Subrutine til beregning af residualspænding¶

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

• cstep: Aktuelt antal analysetrin
• factor: Lastfaktor for det aktuelle trin
• residual: Global residualkraftvektor