વપરાશકર્તા-વ્યાખ્યાયિત બાહ્ય ભાર પ્રક્રિયા સબરૂટિન (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: સમગ્ર અવશેષ-બળ સદિશ