Podprogram na spracovanie používateľom definovaných vonkajších zaťažení (uload.f)¶

Poskytuje rozhrania na spracovanie používateľom definovaných vonkajších zaťažení.

Ak chcete použiť používateľom definované vonkajšie zaťaženie, najprv definujte numerickú štruktúru tULoad na definovanie vonkajšieho zaťaženia a vo vstupnom súbore použite !ULOAD, FILE=ファイル名, aby sa definícia načítala zo súboru určeného názvom súboru. Potom použite nasledujúce rozhrania na zahrnutie vonkajšieho zaťaženia.

(1) Podprogram na čítanie vonkajšieho zaťaženia¶

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

• fname: Názov externého súboru. Z tohto súboru sa načíta používateľom definované vonkajšie zaťaženie.

(2) Podprogram na zahrnutie vonkajšieho zaťaženia do celkového vektora zaťaženia¶

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

• cstep: Aktuálne číslo kroku analýzy
• factor: Faktor zaťaženia aktuálneho kroku
• exForce: Celkový vektor zaťaženia

(3) Podprogram na výpočet zvyškového napätia¶

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

• cstep: Aktuálne číslo kroku analýzy
• factor: Faktor zaťaženia aktuálneho kroku
• residual: Celkový vektor zvyškovej sily