ซับรูทีนประมวลผลโหลดภายนอกที่ผู้ใช้กำหนด (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: เวกเตอร์แรงคงเหลือรวม