Podprogram za obdelavo uporabniško definiranih zunanjih obremenitev (uload.f)¶

Zagotavlja vmesnike za obdelavo uporabniško definiranih zunanjih obremenitev.

Za uporabo uporabniško definirane zunanje obremenitve najprej definirajte numerično strukturo tULoad za definicijo zunanje obremenitve in v vhodni datoteki uporabite !ULOAD, FILE=ファイル名, da definicijo preberete iz datoteke, določene z imenom datoteke. Nato z naslednjimi vmesniki vključite zunanjo obremenitev.

(1) Podprogram za branje zunanje obremenitve¶

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

• fname: Ime zunanje datoteke. Uporabniško definirana zunanja obremenitev se prebere iz te datoteke.

(2) Podprogram za vključitev zunanje obremenitve v globalni vektor obremenitve¶

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

• cstep: Trenutno število analitičnih korakov
• factor: Faktor obremenitve trenutnega koraka
• exForce: Globalni vektor obremenitve

(3) Podprogram za izračun rezidualne napetosti¶

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

• cstep: Trenutno število analitičnih korakov
• factor: Faktor obremenitve trenutnega koraka
• residual: Globalni vektor rezidualnih sil