10 integer,
parameter,
private :: kreal = kind(0.0d0)
15 subroutine umatlmatrix( mname, matl, strain, stress, fstat, D &
16 , dtime, ttime, temperature )
17 character(len=*),
intent(in) :: mname
18 real(kind=kreal),
intent(in) :: matl(:)
19 real(kind=kreal),
intent(in) :: strain(6)
20 real(kind=kreal),
intent(in) :: stress(6)
21 real(kind=kreal),
intent(in) :: fstat(:)
22 real(kind=kreal),
intent(out) :: d(:,:)
23 real(kind=kreal),
intent(in) :: dtime
24 real(kind=kreal),
intent(in) :: ttime
25 real(kind=kreal),
optional :: temperature
30 subroutine uupdate( mname, matl, strain, stress, fstat, dtime, ttime, temperature )
31 character(len=*),
intent(in) :: mname
32 real(kind=kreal),
intent(in) :: matl(:)
33 real(kind=kreal),
intent(in) :: strain(6)
34 real(kind=kreal),
intent(inout) :: stress(6)
35 real(kind=kreal),
intent(inout) :: fstat(:)
36 real(kind=kreal),
intent(in) :: dtime
37 real(kind=kreal),
intent(in) :: ttime
38 real(kind=kreal),
optional :: temperature
This subroutine read in used-defined material properties tangent.
subroutine uupdate(mname, matl, strain, stress, fstat, dtime, ttime, temperature)
This subroutine calculate strain and stress increment.
subroutine umatlmatrix(mname, matl, strain, stress, fstat, D, dtime, ttime, temperature)
This subroutine calculates constitutive matrix.