Next: Concentrated flux (cflux.f) Up: User-defined loading Previous: User-defined loading Contents

###
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
    !