Subroutine per l’elaborazione di carichi esterni definiti dall’utente (uload.f)

Fornisce interfacce per l'elaborazione di carichi esterni definiti dall'utente.

Per utilizzare un carico esterno definito dall'utente, definire innanzitutto la struttura numerica tULoad per la definizione del carico esterno e utilizzare !ULOAD, FILE=ファイル名 nel file di input per leggere la definizione dal file specificato dal nome del file. Utilizzare quindi le seguenti interfacce per incorporare il carico esterno.

(1) Subroutine per la lettura del carico esterno

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

• fname: Nome del file esterno. Il carico esterno definito dall'utente viene letto da questo file.

(2) Subroutine per incorporare il carico esterno nel vettore globale dei carichi

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

• cstep: Numero corrente di step di analisi
• factor: Fattore di carico dello step corrente
• exForce: Vettore globale dei carichi

(3) Subroutine per il calcolo della tensione residua

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

• cstep: Numero corrente di step di analisi
• factor: Fattore di carico dello step corrente
• residual: Vettore globale delle forze residue