Օգտատիրոջ կողմից սահմանվող նյութերին վերաբերող ենթածրագրեր (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: 2nd 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: 2nd Piola-Kirchhoff լարումfstat: վիճակի փոփոխականներdtime: ժամանակային քայլttime: ընդհանուր ժամանակը ընթացիկ ժամանակային քայլի սկզբումtemperature: ջերմաստիճան