Подпрограма за обработка на потребителски външни натоварвания (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: Общ вектор на остатъчните сили