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