በተጠቃሚ የተገለጹ ውጫዊ ጭነቶችን የሚያስኬድ ንዑስ ፕሮግራም (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: አጠቃላይ የቀሪ ኃይል ቬክተር