Undirforrit fyrir notandaskilgreind efni (umat.f)¶
Veitir viðmót fyrir formbreytingargreiningu almennra efna, hvort sem þau eru fjaðurkennd, ofurfjaðurkennd eða teygjuplastísk. Til að nota notandaskilgreint efni skal fyrst setja !USER_MATERIAL í inntaksskrána og færa inn nauðsynlega efnisfasta og síðan búa til undirforritin uMatlMatrix og uUpdate.
(1) Undirforrit til að reikna stífleikafylkið¶
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: Efnisheitimatl: Fylki sem geymir efnisfasta (að hámarki 100)strain: Green–Lagrange-formbreytingstress: Annað Piola–Kirchhoff-spennugildifstat: ÁstandsbreyturD: Efnislögmáldtime: Tímaaukningttime: Heildartími við upphaf núverandi tímaaukningartemperature: Hitastig
(2) Undirforrit til að uppfæra formbreytingu og spennu¶
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: Efnisheitimatl: Fylki sem geymir efnisfasta (að hámarki 100)strain: Formbreytingstress: Annað Piola–Kirchhoff-spennugildifstat: Ástandsbreyturdtime: Tímaaukningttime: Heildartími við upphaf núverandi tímaaukningartemperature: Hitastig