Initial stress field (sigini.f)

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 !