Subroutine for Processing User-Defined External Loads (uload.f)

Provides interfaces for processing user-defined external loads.

To use a user-defined external load, first define the numerical structure tULoad for defining the external load, and use !ULOAD, FILE=ファイル名 in the input file to read the definition from the file specified by the filename. Then use the following interfaces to incorporate the external load.

(1) Subroutine for reading external load

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

• fname: External file name. The user defined external load is read from this file.

(2) Subroutine for incorporating the external load into the overall load vector

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

• cstep: Current number of analysis steps
• factor: Load factor of current step
• exForce: Overall load vector

(3) Subroutine for Calculating Residual Stress

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

• cstep: Current number of analysis steps
• factor: Load factor of current step
• residual: Overall residual force vector