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