תת־שגרה לעיבוד עומסים חיצוניים המוגדרים על ידי המשתמש (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: וקטור הכוח השיורי הכולל