Агуулгыг алгасах

Хэрэглэгчийн тодорхойлсон гадаад ачааллыг боловсруулах дэд програм (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: Нийт үлдэгдэл хүчний вектор