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