ユーザー定義外部荷重の処理サブルーチン (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: 全体残差力ベクトル