Օգտատիրոջ կողմից սահմանված արտաքին բեռների մշակման ենթածրագիր (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: ընդհանուր մնացորդային ուժերի վեկտորը