Subroutine para sa Pagproseso ng User-Defined External Load (uload.f)¶

Nagbibigay ng mga interface para sa pagproseso ng user-defined external load.

Upang gumamit ng user-defined external load, tukuyin muna ang numerikal na istrukturang tULoad para sa pagtakda ng external load, at gamitin ang !ULOAD, FILE=ファイル名 sa input file upang basahin ang kahulugan mula sa file na tinukoy ng pangalan ng file. Pagkatapos, gamitin ang mga sumusunod na interface upang isama ang external load.

(1) Subroutine para sa pagbasa ng external load¶

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

• fname: Pangalan ng panlabas na file. Binabasa mula sa file na ito ang user-defined external load.

(2) Subroutine para sa pagsasama ng external load sa kabuuang load vector¶

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

• cstep: Kasalukuyang numero ng analysis step
• factor: Load factor ng kasalukuyang step
• exForce: Kabuuang load vector

(3) Subroutine para sa Pagkalkula ng Residual Stress¶

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

• cstep: Kasalukuyang numero ng analysis step
• factor: Load factor ng kasalukuyang step
• residual: Kabuuang residual force vector