Прескокнете до содржината

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