C23456789012345678901234567890123456789012345678901234567890123456789012
	SUBROUTINE HARDINI(ALPHA,EQPS,COORDS,NTENS,NCRDS,NOEL,NPT,LAYER,
     1   KSPT,LREBAR,REBARN)
C
	INCLUDE 'ABA_PARAM.INC'
C
	DIMENSION ALPHA(NTENS,*),COORDS(NCRDS)
	CHARACTER*80 REBARN
C
	I=1
	ALPHA(1,1)= 20.
	I=I+1
10	IF (I.LE.NTENS) THEN
	  ALPHA(I,1) = 0.
	  I=I+1
	  GOTO 10
	ENDIF
	EQPS = 0.2
	RETURN
	END