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