ব্যবহারকারী-সংজ্ঞায়িত বাহ্যিক লোড প্রক্রিয়াকরণ সাবরুটিন (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: সামগ্রিক অবশিষ্ট বল ভেক্টর