Sub-rotina para processamento de cargas externas definidas pelo utilizador (uload.f)

Disponibiliza interfaces para processar cargas externas definidas pelo utilizador.

Para utilizar uma carga externa definida pelo utilizador, defina primeiro a estrutura numérica tULoad para definir a carga externa e utilize !ULOAD, FILE=ファイル名 no ficheiro de entrada para ler a definição a partir do ficheiro especificado pelo nome do ficheiro. Em seguida, utilize as interfaces abaixo para incorporar a carga externa.

(1) Sub-rotina para leitura da carga externa

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

• fname: Nome do ficheiro externo. A carga externa definida pelo utilizador é lida a partir deste ficheiro.

(2) Sub-rotina para incorporar a carga externa no vetor global de cargas

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

• cstep: Número atual de passos de análise
• factor: Fator de carga do passo atual
• exForce: Vetor global de cargas

(3) Sub-rotina para cálculo da tensão residual

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

• cstep: Número atual de passos de análise
• factor: Fator de carga do passo atual
• residual: Vetor global de forças residuais