Потпрограм за обраду кориснички дефинисаних спољашњих оптерећења (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: Глобални вектор резидуалне силе