Erabiltzaileak definitutako kanpo-kargak prozesatzeko azpirrutina (uload.f)¶

Erabiltzaileak definitutako kanpo-kargak prozesatzeko interfazeak eskaintzen ditu.

Erabiltzaileak definitutako kanpo-karga bat erabiltzeko, lehenik tULoad zenbakizko egitura definitu kanpo-karga definitzeko, eta sarrera-fitxategiko !ULOAD, FILE=ファイル名 erabili fitxategi-izenak zehaztutako fitxategitik definizioa irakurtzeko. Ondoren, erabili beheko interfazeak kanpo-karga txertatzeko.

(1) Kanpo-karga irakurtzeko azpirrutina¶

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

• fname: Kanpo-fitxategiaren izena. Fitxategi honetatik irakurtzen da erabiltzaileak definitutako kanpo-karga.

(2) Kanpo-karga karga-bektore orokorrean txertatzeko azpirrutina¶

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

• cstep: Uneko analisi-urratsaren zenbakia
• factor: Uneko urratsaren karga-faktorea
• exForce: Karga-bektore orokorra

(3) Hondar-tentsioa kalkulatzeko azpirrutina¶

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

• cstep: Uneko analisi-urratsaren zenbakia
• factor: Uneko urratsaren karga-faktorea
• residual: Hondar-indarren bektore orokorra