Nënrutinat për përpunimin e ngarkesave të jashtme të përcaktuara nga përdoruesi (uload.f)¶

Ofron ndërfaqe për përpunimin e ngarkesave të jashtme të përcaktuara nga përdoruesi.

Për të përdorur ngarkesa të jashtme të përcaktuara nga përdoruesi, fillimisht përcaktoni strukturën numerike tULoad për përkufizimin e ngarkesës së jashtme dhe, duke përdorur !ULOAD, FILE=ファイル名 në skedarin e hyrjes, lexoni përkufizimin nga skedari i specifikuar me atë emër. Më pas, përdorni ndërfaqet e mëposhtme për të përfshirë ngarkesën e jashtme.

(1) Nënrutina për leximin e ngarkesës së jashtme¶

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

• fname: emri i skedarit të jashtëm. Nga ky skedar lexohet ngarkesa e jashtme e përcaktuar nga përdoruesi.

(2) Nënrutina për përfshirjen e ngarkesës së jashtme në vektorin global të ngarkesës¶

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

• cstep: numri i hapit aktual të analizës
• factor: faktori i ngarkesës në hapin aktual
• exForce: vektori global i ngarkesës

(3) Nënrutina për llogaritjen e forcës së mbetjes¶

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

• cstep: numri i hapit aktual të analizës
• factor: faktori i ngarkesës në hapin aktual
• residual: vektori global i forcës së mbetjes