用户定义外部载荷处理子程序 (uload.f)

提供用于处理用户定义外部载荷的接口。

要使用用户定义外部载荷，首先定义用于描述外部载荷的数值结构 tULoad，并使用输入文件中的 !ULOAD, FILE=ファイル名，从文件名所指定的文件中读取其定义。 随后，使用以下接口将外部载荷组装进去。

(1) 读取外部载荷的子程序

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

• fname: 外部文件名。从该文件读取用户定义外部载荷。

(2) 将外部载荷组装到整体载荷向量中的子程序

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

• cstep: 当前分析步数
• factor: 当前步的载荷系数
• exForce: 整体载荷向量

(3) 计算残余应力的子程序

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

• cstep: 当前分析步数
• factor: 当前步的载荷系数
• residual: 整体残差力向量