Серпімді деформацияға арналған ішкі бағдарламалар (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: Кернеу