उपयोगकर्ता-परिभाषित बाह्य भार संसाधित करने की उपप्रक्रिया (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: समग्र अवशिष्ट बल सदिश