Ana içeriğe geç

Kullanıcı Tanımlı Malzemeler için Alt Programlar (umat.f)

Elastik, hiperelastik veya elastoplastik olup olmadığına bakılmaksızın genel malzemelerin deformasyon analizi için bir arayüz sağlar. Kullanıcı tanımlı bir malzeme kullanmak için önce giriş dosyasında !USER_MATERIAL ayarlanıp gerekli malzeme sabitleri girilir, ardından uMatlMatrix ve uUpdate alt programları oluşturulur.

(1) Rijitlik Matrisini Hesaplayan Alt Program

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: Malzeme adı
  • matl: Malzeme sabitlerini saklayan dizi (en fazla 100)
  • strain: Green-Lagrange gerinimi
  • stress: 2. Piola-Kirchhoff gerilmesi
  • fstat: Durum değişkenleri
  • D: Bünye bağıntısı
  • dtime: Zaman artımı
  • ttime: Geçerli zaman artımının başlangıcındaki toplam zaman
  • temperature: Sıcaklık

(2) Gerinim ve Gerilmeyi Güncelleyen Alt Program

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: Malzeme adı
  • matl: Malzeme sabitlerini saklayan dizi (en fazla 100)
  • strain: Gerinim
  • stress: 2. Piola-Kirchhoff gerilmesi
  • fstat: Durum değişkenleri
  • dtime: Zaman artımı
  • ttime: Geçerli zaman artımının başlangıcındaki toplam zaman
  • temperature: Sıcaklık