შიგთავსზე გადასვლა

მომხმარებლის მიერ განსაზღვრული გარე დატვირთვების დამუშავების ქვეპროგრამა (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: საერთო ნაშთი ძალის ვექტორი