	SUBROUTINE UVARM(UVAR,DIRECT,T,TIME,DTIME,
     +CMNAME,ORNAME,NUVARM,NOEL,NPT,LAYER,KSPT,
     +KSTEP,KINC,NDI,NSHR,COORD,JMAC,JMATYP,
     +MATLAYO,LACCFLA)
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME,ORNAME
      CHARACTER*3 FLGRAY(15)
      DIMENSION UVAR(NUVARM),DIRECT(3,3),
     +T(3,3),TIME(2)
      DIMENSION ARRAY(15),JARRAY(15),
     +JMAC(*),JMATYP(*),COORD(*)
C
	CALL GETVRM('E',ARRAY,JARRAY,FLGRAY,JRCD,
     +JMAC,JMATYP,MATLAYO,LACCFLA)
C
C
C	
      E11 = ARRAY(1)
      E22 = ARRAY(2)
      E33 = ARRAY(3)
C
      UVAR(1)=E11
      UVAR(2)=E22
      UVAR(3)=E33
      UVAR(4)=E11+E22+E33
C
	RETURN
	END
