This subroutine is used for user-defined initial stresses, characterized by the parameter USER on the *INITIAL CONDITIONS,TYPE=STRESS card. The header and variable description is as follows:
subroutine sigini(sigma,coords,ntens,ncrds,noel,npt,layer,
& kspt,lrebar,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) initial stress values in the integration
! point. If ntens=6 the order of the
! components is 11,22,33,12,13,23
!