Undirforrit til að vinna með notandaskilgreint ytra álag (uload.f)¶

Veitir viðmót til að vinna með notandaskilgreint ytra álag.

Til að nota notandaskilgreint ytra álag skal fyrst skilgreina talnagerðina tULoad fyrir ytra álagið og nota !ULOAD, FILE=skráarheiti í inntaksskránni til að lesa skilgreininguna úr skránni sem skráarheitið tilgreinir. Notið síðan eftirfarandi viðmót til að fella ytra álagið inn.

(1) Undirforrit til að lesa ytra álag¶

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

• fname: Heiti ytri skrár. Notandaskilgreinda ytra álagið er lesið úr þessari skrá.

(2) Undirforrit til að fella ytra álagið inn í heildarálagsvigurinn¶

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

• cstep: Núverandi númer greiningarskrefs
• factor: Álagsstuðull núverandi skrefs
• exForce: Heildarálagsvigur

(3) Undirforrit til að reikna leifspennu¶

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

• cstep: Núverandi númer greiningarskrefs
• factor: Álagsstuðull núverandi skrefs
• residual: Heildarvigur leifkrafts