Subroetine vir die Verwerking van Gebruikergedefinieerde Eksterne Laste (uload.f)¶

Verskaf koppelvlakke vir die verwerking van gebruikergedefinieerde eksterne laste.

Om 'n gebruikergedefinieerde eksterne las te gebruik, definieer eers die numeriese struktuur tULoad om die eksterne las te definieer, en gebruik !ULOAD, FILE=ファイル名 in die invoerlêer om die definisie uit die lêer wat deur die lêernaam gespesifiseer word, te lees. Gebruik daarna die volgende koppelvlakke om die eksterne las in te sluit.

(1) Subroetine vir die lees van die eksterne las¶

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

• fname: Naam van eksterne lêer. Die gebruikergedefinieerde eksterne las word uit hierdie lêer gelees.

(2) Subroetine vir die insluiting van die eksterne las in die totale lasvektor¶

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

• cstep: Huidige analise-stapnommer
• factor: Lasfaktor van die huidige stap
• exForce: Totale lasvektor

(3) Subroetine vir die Berekening van Residuele Spanning¶

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

• cstep: Huidige analise-stapnommer
• factor: Lasfaktor van die huidige stap
• residual: Totale residuele kragvektor