د کارن-تعریف شوو موادو اړوند فرعي پروګرامونه (umat.f)¶
د الاستیک، هایپرالاستیک او الاستوپلاستیک موادو له ډول څخه پرته، د عمومي موادو د بدلون تحلیل لپاره انترفېس برابروي. د کارن-تعریف شوې مادې د کارولو لپاره، لومړی په ننوتۍ فایل کې !USER_MATERIAL وټاکئ او اړین مادي ثابتونه دننه کړئ، بیا د uMatlMatrix او uUpdate فرعي پروګرامونه جوړ کړئ.
(1) د سختۍ ماتریس د محاسبې فرعي پروګرام¶
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: د مادې نومmatl: هغه ارایه چې مادي ثابتونه پکې ساتل کېږي (تر ډېره 100)strain: Green-Lagrange کرنشstress: دویم Piola-Kirchhoff تنشfstat: د حالت متغیرونهD: جوړښتي معادلهdtime: د وخت زیاتوالیttime: د اوسني وخت زیاتوالي د پیل پر مهال ټول وختtemperature: تودوخه
(2) د کرنش او تنش د تازه کولو د محاسبې فرعي پروګرام¶
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: د مادې نومmatl: هغه ارایه چې مادي ثابتونه پکې ساتل کېږي (تر ډېره 100)strain: کرنشstress: دویم Piola-Kirchhoff تنشfstat: د حالت متغیرونهdtime: د وخت زیاتوالیttime: د اوسني وخت زیاتوالي د پیل پر مهال ټول وختtemperature: تودوخه