sigini.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	sigini (sigma, coords, ntens, ncrds, noel, npt, layer, kspt, lrebar, rebarn)

Function/Subroutine Documentation

sigini()

subroutine sigini	(	real*8, dimension(*)	sigma,
		real*8, dimension(*)	coords,
		integer	ntens,
		integer	ncrds,
		integer	noel,
		integer	npt,
		integer	layer,
		integer	kspt,
		integer	lrebar,
		character*80	rebarn
	)

!
!     user subroutine sigini
!
!     INPUT:
!
!     coords             coordinates of the integration point
!     ntens              number of stresses to be defined
!     ncrds              number of coordinates
!     noel               element number
!     npt                integration point number
!     layer              currently not used
!     kspt               currently not used 
!     lrebar             currently not used (value: 0)
!     rebarn             currently not used
!
!     OUTPUT:
!
!     sigma(1..ntens)    residual stress values in the integration
!                        point. If ntens=6 the order of the 
!                        components is 11,22,33,12,13,23
!           
      implicit none
!
      character*80 rebarn
      integer ntens,ncrds,noel,npt,layer,kspt,lrebar
      real*8 sigma(*),coords(*)
!
      sigma(1)=-100.d0*coords(2)
      sigma(2)=-100.d0*coords(2)
      sigma(3)=-100.d0*coords(2)
      sigma(4)=0.d0
      sigma(5)=0.d0
      sigma(6)=0.d0
!
      return