Foydalanuvchi materiali bilan bog‘liq subrutinlar (umat.f)¶
Elastik, giperelastik yoki elastoplastik material bo‘lishidan qat’i nazar, umumiy materiallarning deformatsiya tahlili uchun interfeys taqdim etadi. Foydalanuvchi tomonidan aniqlangan materialdan foydalanish uchun avval kirish faylida !USER_MATERIAL ni o‘rnating va kerakli material konstantalarini kiriting, so‘ng uMatlMatrix va uUpdate subrutinlarini yarating.
(1) Qattiqlik matritsasini hisoblash subrutini¶
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 nomimatl: Material konstantalarini saqlovchi massiv (ko‘pi bilan 100)strain: Green-Lagrange deformatsiyasistress: 2nd Piola-Kirchhoff kuchlanishifstat: Holat o‘zgaruvchilariD: Konstitutiv munosabatdtime: Vaqt orttirmasittime: Joriy vaqt orttirmasi boshlanishidagi umumiy vaqttemperature: Harorat
(2) Deformatsiya va kuchlanishni yangilash subrutini¶
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 nomimatl: Material konstantalarini saqlovchi massiv (ko‘pi bilan 100)strain: Deformatsiyastress: 2nd Piola-Kirchhoff kuchlanishifstat: Holat o‘zgaruvchilaridtime: Vaqt orttirmasittime: Joriy vaqt orttirmasi boshlanishidagi umumiy vaqttemperature: Harorat