Subroutine voor het verwerken van door de gebruiker gedefinieerde externe belastingen (uload.f)

Biedt interfaces voor het verwerken van door de gebruiker gedefinieerde externe belastingen.

Om een door de gebruiker gedefinieerde externe belasting te gebruiken, definieert u eerst de numerieke structuur tULoad voor het definiëren van de externe belasting en gebruikt u !ULOAD, FILE=ファイル名 in het invoerbestand om de definitie te lezen uit het bestand dat met de bestandsnaam is opgegeven. Gebruik vervolgens de volgende interfaces om de externe belasting op te nemen.

(1) Subroutine voor het lezen van een externe belasting

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

• fname: Naam van het externe bestand. De door de gebruiker gedefinieerde externe belasting wordt uit dit bestand gelezen.

(2) Subroutine voor het opnemen van de externe belasting in de globale belastingsvector

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

• cstep: Huidig aantal analysestappen
• factor: Belastingsfactor van de huidige stap
• exForce: Globale belastingsvector

(3) Subroutine voor het berekenen van restspanning

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

• cstep: Huidig aantal analysestappen
• factor: Belastingsfactor van de huidige stap
• residual: Globale restkrachtvector