Перейти до змісту

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