Subrutina per processar càrregues externes definides per l'usuari (uload.f)¶

Proporciona una interfície per processar càrregues externes definides per l'usuari.

Per utilitzar una càrrega externa definida per l'usuari, primer cal definir l'estructura numèrica tULoad per definir la càrrega externa i utilitzar !ULOAD, FILE=ファイル名 al fitxer d'entrada per llegir la definició des del fitxer especificat pel nom de fitxer. A continuació, utilitzeu les interfícies següents per incorporar la càrrega externa.

(1) Subrutina per llegir la càrrega externa¶

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

• fname: Nom del fitxer extern. La càrrega externa definida per l'usuari es llegeix d'aquest fitxer.

(2) Subrutina per incorporar la càrrega externa al vector global de càrrega¶

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

• cstep: Nombre actual de passos d'anàlisi
• factor: Factor de càrrega del pas actual
• exForce: Vector global de càrrega

(3) Subrutina per calcular la tensió residual¶

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

• cstep: Nombre actual de passos d'anàlisi
• factor: Factor de càrrega del pas actual
• residual: Vector global de força residual