ಬಳಕೆದಾರ-ನಿರ್ಧರಿತ ಬಾಹ್ಯ ಲೋಡ್‌ಗಳನ್ನು ಸಂಸ್ಕರಿಸುವ ಉಪಕ್ರಮ (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: ಒಟ್ಟು ಉಳಿಕೆ ಬಲ ವೆಕ್ಟರ್