Subrutin untuk ubah bentuk elastik (uelastic.f90)¶

Subrutin disediakan untuk mengira matriks kekakuan elastik dan mengemas kini tegasan bagi masalah elastik dan hiperelastik. Untuk menggunakan hubungan konstitutif elastik atau hiperelastik yang ditakrifkan pengguna, mula-mula tetapkan !ELASTIC, TYPE=USER atau !HYPERELASTIC, TYPE=USER dalam fail input dan masukkan pemalar bahan yang diperlukan, kemudian bina subrutin uElasticMatrix dan uElasticUpdate.

(1) Subrutin untuk mengira matriks kekakuan elastik¶

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: tatasusunan untuk menyimpan pemalar bahan (maksimum 100)
• strain: terikan Green-Lagrange
• D: matriks elastik

(2) Subrutin untuk mengira tegasan¶

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: tatasusunan untuk menyimpan pemalar bahan (maksimum 100)
• strain: terikan Green-Lagrange
• stress: tegasan