স্থিতিস্থাপক বিকৃতির সঙ্গে সম্পর্কিত সাবরুটিন (uelastic.f90)¶

স্থিতিস্থাপক ও অতিস্থাপক সমস্যার জন্য স্থিতিস্থাপক দৃঢ়তা ম্যাট্রিক্স এবং পীড়ন হালনাগাদের গণনা করতে সাবরুটিন সরবরাহ করা হয়েছে। ব্যবহারকারী-সংজ্ঞায়িত স্থিতিস্থাপক বা অতিস্থাপক গঠন-সমীকরণ ব্যবহার করতে হলে প্রথমে ইনপুট ফাইলে !ELASTIC, TYPE=USER অথবা !HYPERELASTIC, TYPE=USER সেট করে প্রয়োজনীয় পদার্থ ধ্রুবক ইনপুট করতে হবে, তারপর uElasticMatrix ও uElasticUpdate সাবরুটিন তৈরি করতে হবে।

(1) স্থিতিস্থাপক দৃঢ়তা ম্যাট্রিক্স গণনার সাবরুটিন¶

subroutine uElasticMatrix( matl, strain, D )
    REAL(KIND=kreal), INTENT(IN) :: matl(:)
    REAL(KIND=kreal), INTENT(IN) :: strain(6)
    REAL(KIND=kreal), INTENT(OUT) :: D(6,6)

• matl: পদার্থ ধ্রুবক সংরক্ষণের অ্যারে (সর্বাধিক 100)
• strain: Green-Lagrange স্ট্রেন
• D: স্থিতিস্থাপক ম্যাট্রিক্স

(2) পীড়ন গণনার সাবরুটিন¶

subroutine uElasticUpdate ( matl, strain, stress )
    REAL(KIND=kreal), INTENT(IN) :: matl(:)
    REAL(KIND=kreal), INTENT(IN) :: strain(6)
    REAL(KIND=kreal), INTENT(OUT) :: stress(6)

• matl: পদার্থ ধ্রুবক সংরক্ষণের অ্যারে (সর্বাধিক 100)
• strain: Green-Lagrange স্ট্রেন
• stress: পীড়ন