Subrutin för behandling av användardefinierade externa laster (uload.f)

Tillhandahåller gränssnitt för behandling av användardefinierade externa laster.

För att använda en användardefinierad extern last, definiera först den numeriska strukturen tULoad för definition av den externa lasten och använd !ULOAD, FILE=ファイル名 i indatafilen för att läsa definitionen från filen som anges med filnamnet. Använd därefter följande gränssnitt för att införa den externa lasten.

(1) Subrutin för läsning av extern last

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

• fname: Externt filnamn. Den användardefinierade externa lasten läses från denna fil.

(2) Subrutin för att införa den externa lasten i den globala lastvektorn

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

• cstep: Aktuellt antal analyssteg
• factor: Lastfaktor för aktuellt steg
• exForce: Global lastvektor

(3) Subrutin för beräkning av residualspänning

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

• cstep: Aktuellt antal analyssteg
• factor: Lastfaktor för aktuellt steg
• residual: Global residualkraftvektor