Sub-rotina para processamento de cargas externas definidas pelo usuário (uload.f)

Fornece interfaces para processar cargas externas definidas pelo usuário.

Para usar uma carga externa definida pelo usuário, primeiro defina a estrutura numérica tULoad para definir a carga externa e use !ULOAD, FILE=ファイル名 no arquivo de entrada para ler a definição a partir do arquivo especificado pelo nome do arquivo. Em seguida, use as interfaces a seguir 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 arquivo externo. A carga externa definida pelo usuário é lida deste arquivo.

(2) Sub-rotina para incorporação da carga externa ao 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 etapas de análise
• factor: Fator de carga da etapa 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 etapas de análise
• factor: Fator de carga da etapa atual
• residual: Vetor global de força residual