Subrutin berkaitan bahan takrifan pengguna (umat.f)¶

Menyediakan antara muka untuk analisis ubah bentuk bahan umum tanpa mengira sama ada bahan tersebut elastik, hiperelastik atau elastoplastik. Untuk menggunakan bahan takrifan pengguna, mula-mula tetapkan !USER_MATERIAL dalam fail input dan masukkan pemalar bahan yang diperlukan, kemudian cipta subrutin uMatlMatrix dan uUpdate.

(1) Subrutin pengiraan matriks kekakuan¶

subroutine uMatlMatrix( mname, matl, strain, stress, fstat, D, dtime, ttime, temperature )
        character(len=*), intent(in)  :: mname
        real(kind=kreal), intent(in)  :: matl(:)
        real(kind=kreal), intent(in)  :: strain(6)
        real(kind=kreal), intent(in)  :: stress(6)
        real(kind=kreal), intent(in)  :: fstat(:)
        real(kind=kreal), intent(out) :: D(:,:)
        real(kind=kreal), intent(in)  :: dtime
        real(kind=kreal), intent(in)  :: ttime
        real(kind=kreal), optional    :: temperature

• mname: Nama bahan
• matl: Tatasusunan yang menyimpan pemalar bahan (maksimum 100)
• strain: Terikan Green-Lagrange
• stress: Tegasan Piola-Kirchhoff ke-2
• fstat: Pemboleh ubah keadaan
• D: Hubungan konstitutif
• dtime: Kenaikan masa
• ttime: Masa keseluruhan pada permulaan kenaikan masa semasa
• temperature: Suhu

(2) Subrutin pengiraan kemas kini terikan dan tegasan¶

subroutine uUpdate(  mname, matl, strain, stress, fstat, dtime, ttime, temperature )
        character(len=\*), intent(in)    :: mname
        real(kind=kreal), intent(in)    :: matl(:)
        real(kind=kreal), intent(in)    :: strain(6)
        real(kind=kreal), intent(inout) :: stress(6)
        real(kind=kreal), intent(inout) :: fstat(:)
        real(kind=kreal), intent(in)    :: dtime
        real(kind=kreal), intent(in)    :: ttime
        real(kind=kreal), optional      :: temperature

• mname: Nama bahan
• matl: Tatasusunan yang menyimpan pemalar bahan (maksimum 100)
• strain: Terikan
• stress: Tegasan Piola-Kirchhoff ke-2
• fstat: Pemboleh ubah keadaan
• dtime: Kenaikan masa
• ttime: Masa keseluruhan pada permulaan kenaikan masa semasa
• temperature: Suhu