Podrutina za obradu korisnički definiranih vanjskih opterećenja (uload.f)¶

Pruža sučelja za obradu korisnički definiranih vanjskih opterećenja.

Za uporabu korisnički definiranog vanjskog opterećenja najprije definirajte numeričku strukturu tULoad za definiranje vanjskog opterećenja i u ulaznoj datoteci uporabite !ULOAD, FILE=ファイル名 kako biste učitali definiciju iz datoteke navedene nazivom datoteke. Zatim uporabite sljedeća sučelja kako biste uključili vanjsko opterećenje.

(1) Podrutina za čitanje vanjskog opterećenja¶

integer function ureadload( fname )
    character(len=\*), intent(in) :: fname

• fname: Naziv vanjske datoteke. Korisnički definirano vanjsko opterećenje čita se iz te datoteke.

(2) Podrutina za uključivanje vanjskog opterećenja u ukupni vektor opterećenja¶

subroutine uloading( cstep, factor, exForce )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: exForce(:)

• cstep: Trenutačni broj koraka analize
• factor: Faktor opterećenja trenutačnog koraka
• exForce: Ukupni vektor opterećenja

(3) Podrutina za izračun rezidualnog naprezanja¶

subroutine uResidual( cstep, factor, residual )
    integer, INTENT(IN) :: cstep
    REAL(KIND=kreal), INTENT(IN) :: factor
    REAL(KIND=kreal), INTENT(INOUT) :: residual(:)

• cstep: Trenutačni broj koraka analize
• factor: Faktor opterećenja trenutačnog koraka
• residual: Ukupni vektor rezidualne sile