Subrutini ya Kuchakata Mizigo ya Nje Iliyofafanuliwa na Mtumiaji (uload.f)¶

Hutoa kiolesura cha kuchakata mizigo ya nje iliyofafanuliwa na mtumiaji.

Ili kutumia mzigo wa nje uliofafanuliwa na mtumiaji, kwanza fafanua muundo wa nambari tULoad wa kufafanua mzigo wa nje, kisha tumia !ULOAD, FILE=jina_la_faili katika faili ya ingizo ili kusoma ufafanuzi huo kutoka kwenye faili iliyobainishwa kwa jina la faili. Baada ya hapo, tumia violesura vifuatavyo kuingiza mzigo wa nje.

(1) Subrutini ya kusoma mzigo wa nje¶

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

• fname: Jina la faili ya nje. Mzigo wa nje uliofafanuliwa na mtumiaji husomwa kutoka kwenye faili hii.

(2) Subrutini ya kuingiza mzigo wa nje katika vekta ya jumla ya mzigo¶

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

• cstep: Idadi ya sasa ya hatua za uchanganuzi
• factor: Mgawo wa mzigo wa hatua ya sasa
• exForce: Vekta ya jumla ya mzigo

(3) Subrutini ya kukokotoa mkazo wa salio¶

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

• cstep: Idadi ya sasa ya hatua za uchanganuzi
• factor: Mgawo wa mzigo wa hatua ya sasa
• residual: Vekta ya jumla ya nguvu ya salio