      SUBROUTINE SIGINI(SIGMA,COORDS,NTENS,NCRDS,NOEL,NPT,LAYER,
     1KSPT,LREBAR,REBARN)
      INCLUDE 'ABA_PARAM.INC'
      DIMENSION SIGMA(NTENS),COORDS(NCRDS)
      CHARACTER*80 REBARN
      IF (LREBAR.EQ.1) THEN
       IF(REBARN.EQ.'REBAR_SET-1') THEN
       SIGMA(1)=10.0
       ENDIF
      ELSE
      ENDIF
      RETURN
      END

