uhardening.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	uhardening (amat, iel, iint, t1l, epini, ep, dtime, fiso, dfiso, fkin, dfkin)

Function/Subroutine Documentation

uhardening()

subroutine uhardening	(	character*80	amat,
		integer	iel,
		integer	iint,
		real*8	t1l,
		real*8	epini,
		real*8	ep,
		real*8	dtime,
		real*8	fiso,
		real*8	dfiso,
		real*8	fkin,
		real*8	dfkin
	)

!
!     hardening user subroutine
!
!     INPUT:
!
!     amat:    material name (maximum 20 characters)
!     iel:     element number
!     iint:    integration point number
!     t1l:     temperature at the end of the increment
!     epini:   equivalent irreversible strain at the start 
!              of the increment
!     ep:      present equivalent irreversible strain
!     dtime:   time increment
!
!     OUTPUT:
!
!     fiso:    present isotropic hardening Von Mises stress
!     dfiso:   present isotropic hardening tangent (derivative
!              of the Von Mises stress with respect to the
!              equivalent irreversible strain)
!     fkin:    present kinematic hardening Von Mises stress
!     dfkin:   present kinematic hardening tangent (derivative
!              of the Von Mises stress with respect to the
!              equivalent irreversible strain)
!
      implicit none
!
      character*80 amat
      integer iel,iint
      real*8 t1l,epini,ep,dtime,fiso,dfiso,fkin,dfkin
!
      return