Saltar a contenido

Subrutina para procesar cargas externas definidas por el usuario (uload.f)

Proporciona interfaces para procesar cargas externas definidas por el usuario.

Para utilizar una carga externa definida por el usuario, primero se define la estructura numérica tULoad para describir la carga externa y se utiliza !ULOAD, FILE=ファイル名 en el archivo de entrada para leer la definición desde el archivo especificado por el nombre de archivo. A continuación, utilice las siguientes interfaces para incorporar la carga externa.

(1) Subrutina para leer la carga externa

integer function ureadload( fname )
    character(len=\*), intent(in) :: fname
  • fname: Nombre del archivo externo. La carga externa definida por el usuario se lee desde este archivo.

(2) Subrutina para incorporar la carga externa al vector 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 actual de pasos de análisis
  • factor: Factor de carga del paso actual
  • exForce: Vector global de cargas

(3) Subrutina para calcular la tensión 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 actual de pasos de análisis
  • factor: Factor de carga del paso actual
  • residual: Vector global de fuerzas residuales