Kasutaja määratud väliskoormuste töötlemise alamprogramm (uload.f)¶

Pakub liideseid kasutaja määratud väliskoormuste töötlemiseks.

Kasutaja määratud väliskoormuse kasutamiseks määratlege esmalt väliskoormuse kirjeldamiseks arvstruktuur tULoad ning kasutage sisendfailis !ULOAD, FILE=ファイル名, et lugeda määratlus failinimega määratud failist. Seejärel kasutage väliskoormuse kaasamiseks järgmisi liideseid.

(1) Väliskoormuse lugemise alamprogramm¶

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

• fname: välise faili nimi. Kasutaja määratud väliskoormus loetakse sellest failist.

(2) Väliskoormuse kogu koormusvektorisse kaasamise alamprogramm¶

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

• cstep: analüüsisammude praegune arv
• factor: praeguse sammu koormustegur
• exForce: kogu koormusvektor

(3) Jääkpinge arvutamise alamprogramm¶

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

• cstep: analüüsisammude praegune arv
• factor: praeguse sammu koormustegur
• residual: kogu jääkjõuvektor