Gå til innhold

Subrutine for behandling av brukerdefinerte eksterne laster (uload.f)

Tilbyr grensesnitt for behandling av brukerdefinerte eksterne laster.

For å bruke en brukerdefinert ekstern last defineres først den numeriske strukturen tULoad for å beskrive den eksterne lasten, og !ULOAD, FILE=filnavn i inndatafilen brukes til å lese definisjonen fra filen som er angitt med filnavnet. Deretter brukes følgende grensesnitt til å innarbeide den eksterne lasten.

(1) Subrutine for innlesing av ekstern last

integer function ureadload( fname )
    character(len=\*), intent(in) :: fname
  • fname: Eksternt filnavn. Den brukerdefinerte eksterne lasten leses fra denne filen.

(2) Subrutine for innarbeiding av ekstern last i den globale lastvektoren

subroutine uloading( cstep, factor, exForce )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: exForce(:)
  • cstep: Gjeldende antall analysetrinn
  • factor: Lastfaktor for gjeldende trinn
  • exForce: Global lastvektor

(3) Subrutine for beregning av restspenning

subroutine uResidual( cstep, factor, residual )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: residual(:)
  • cstep: Gjeldende antall analysetrinn
  • factor: Lastfaktor for gjeldende trinn
  • residual: Global restkraftvektor