SUBROUTINE SIGINI(SIGMA,COORDS,NTENS,NCRDS,NOEL,NPT,LAYER,
	1KSPT,LREBAR,REBARN)
C
	INCLUDE 'ABA_PARAM.INC'
C
	DIMENSION SIGMA(NTENS),COORDS(NCRDS)
	CHARACTER NAMES(2)*80
C
        open(101,FILE='wertetabelle.txt',status='new')
	write(101,*)'  Ergebnisfile  '
	close(101)
C
	SIGMA (1) = -179.9165
	SIGMA (2) = 0
	SIGMA (3) = 0
C
	RETURN
	END