వినియోగదారు నిర్వచించిన బాహ్య లోడ్‌ను ప్రాసెస్ చేసే సబ్‌రూటీన్ (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: మొత్తం అవశేష బల వెక్టర్