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