使用者定義外部負載處理副程式 (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: 全域殘差力向量