សាប់រូទីនសម្រាប់ការខូចទ្រង់ទ្រាយអេលាស្ទិក (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: ស្ត្រេស