İstifadəçi tərəfindən təyin olunan materiallarla bağlı altproqramlar (umat.f)¶
Elastik, hiperelastik və ya elastoplastik olmasından asılı olmayaraq ümumi materialların deformasiya analizi üçün interfeys təqdim edir. İstifadəçi tərəfindən təyin olunan materialdan istifadə etmək üçün əvvəlcə giriş faylında !USER_MATERIAL təyin edib tələb olunan material sabitlərini daxil etmək, sonra isə uMatlMatrix və uUpdate altproqramlarını yaratmaq lazımdır.
(1) Sərtlik matrisinin hesablanması altproqramı¶
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: Materialın adımatl: Material sabitlərini saxlayan massiv (maksimum 100)strain: Green-Lagrange deformasiyasıstress: 2nd Piola-Kirchhoff gərginliyifstat: Vəziyyət dəyişənləriD: Konstitutiv münasibətdtime: Zaman artımıttime: Cari zaman artımının başlanğıcındakı ümumi vaxttemperature: Temperatur
(2) Deformasiya və gərginliyin yenilənməsinin hesablanması altproqramı¶
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: Materialın adımatl: Material sabitlərini saxlayan massiv (maksimum 100)strain: Deformasiyastress: 2nd Piola-Kirchhoff gərginliyifstat: Vəziyyət dəyişənləridtime: Zaman artımıttime: Cari zaman artımının başlanğıcındakı ümumi vaxttemperature: Temperatur