Пайдаланушы анықтайтын сыртқы жүктемені өңдеу ішкі бағдарламасы (uload.f)¶

Пайдаланушы анықтайтын сыртқы жүктемелерді өңдеуге арналған интерфейс береді.

Пайдаланушы анықтайтын сыртқы жүктемені пайдалану үшін алдымен сыртқы жүктемені анықтайтын сандық құрылым tULoad анықталып, енгізу файлындағы !ULOAD, FILE=ファイル名 арқылы көрсетілген файлдан анықтама оқылады. Одан кейін төмендегі интерфейстер арқылы сыртқы жүктеме енгізіледі.

(1) Сыртқы жүктемені оқу ішкі бағдарламасы¶

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

• fname: сыртқы файл атауы. Пайдаланушы анықтайтын сыртқы жүктеме осы файлдан оқылады.

(2) Сыртқы жүктемені жалпы жүктеме векторына енгізу ішкі бағдарламасы¶

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

• cstep: ағымдағы талдау қадамының нөмірі
• factor: ағымдағы қадамның жүктеме коэффициенті
• exForce: жалпы жүктеме векторы

(3) Қалдық кернеуді есептеу ішкі бағдарламасы¶

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

• cstep: ағымдағы талдау қадамының нөмірі
• factor: ағымдағы қадамның жүктеме коэффициенті
• residual: жалпы қалдық күш векторы