Felhasználó által definiált külső terhelést feldolgozó szubrutin (uload.f)

Interfészt biztosít a felhasználó által definiált külső terhelések feldolgozásához.

Felhasználó által definiált külső terhelés használatához először definiálja a külső terhelést leíró tULoad numerikus struktúrát, majd a bemeneti fájlban található !ULOAD, FILE=ファイル名 használatával olvassa be a definíciót a fájlnévvel megadott fájlból. Ezután az alábbi interfészekkel építse be a külső terhelést.

(1) A külső terhelést beolvasó szubrutin

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

• fname: Külső fájl neve. Ebből a fájlból olvassa be a felhasználó által definiált külső terhelést.

(2) A külső terhelést a globális terhelésvektorba beépítő szubrutin

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

• cstep: Az aktuális analízislépés száma
• factor: Az aktuális lépés terhelési tényezője
• exForce: Globális terhelésvektor

(3) A maradó feszültséget számító szubrutin

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

• cstep: Az aktuális analízislépés száma
• factor: Az aktuális lépés terhelési tényezője
• residual: Globális maradékerő-vektor