Lietotāja definētu ārējo slodžu apstrādes apakšprogramma (uload.f)¶

Nodrošina saskarni lietotāja definētu ārējo slodžu apstrādei.

Lai izmantotu lietotāja definētu ārējo slodzi, vispirms definējiet skaitlisko struktūru tULoad, kas paredzēta ārējās slodzes definēšanai, un ievades failā izmantojiet !ULOAD, FILE=ファイル名, lai nolasītu definīciju no faila, kas norādīts ar faila nosaukumu. Pēc tam izmantojiet tālāk norādītās saskarnes, lai ārējo slodzi iekļautu aprēķinā.

(1) Ārējās slodzes nolasīšanas apakšprogramma¶

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

• fname: ārējā faila nosaukums. Lietotāja definētā ārējā slodze tiek nolasīta no šī faila.

(2) Ārējās slodzes iekļaušanas globālajā slodzes vektorā apakšprogramma¶

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

• cstep: pašreizējais analīzes soļa numurs
• factor: pašreizējā soļa slodzes koeficients
• exForce: globālais slodzes vektors

(3) Atlikuma spēka aprēķināšanas apakšprogramma¶

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

• cstep: pašreizējais analīzes soļa numurs
• factor: pašreizējā soļa slodzes koeficients
• residual: globālais atlikuma spēka vektors