Chương trình con xử lý tải ngoài do người dùng định nghĩa (uload.f)

Cung cấp các giao diện để xử lý tải ngoài do người dùng định nghĩa.

Để sử dụng tải ngoài do người dùng định nghĩa, trước tiên hãy định nghĩa cấu trúc số tULoad để mô tả tải ngoài, và dùng !ULOAD, FILE=ファイル名 trong tệp đầu vào để đọc định nghĩa từ tệp được chỉ định bởi tên tệp. Sau đó sử dụng các giao diện sau để đưa tải ngoài vào.

(1) Chương trình con đọc tải ngoài

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

• fname: Tên tệp ngoài. Tải ngoài do người dùng định nghĩa được đọc từ tệp này.

(2) Chương trình con đưa tải ngoài vào vectơ tải tổng thể

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

• cstep: Số bước phân tích hiện tại
• factor: Hệ số tải của bước hiện tại
• exForce: Vectơ tải tổng thể

(3) Chương trình con tính ứng suất dư

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

• cstep: Số bước phân tích hiện tại
• factor: Hệ số tải của bước hiện tại
• residual: Vectơ lực dư tổng thể