SUBROUTINE UVARM(UVAR,DIRECT,T,TIME,DTIME,CMNAME,ORNAME,
     1                 NUVARM,NOEL,NPT,NLAYER,NSPT,KSTEP,KINC,
     2                 NDI,NSHR,COORD,JMAC,JMATYP,MATLAYO, LACCFLA)
C
      INCLUDE 'ABA_PARAM.INC'
C
      CHARACTER*80 CMNAME,ORNAME
      DIMENSION UVAR(*),TIME(2),DIRECT(3,3),T(3,3),COORD(*),
     $     JMAC(*),JMATYP(*) 
C     USER DEFINED DIMENSION STATEMENTS
      CHARACTER*3 FLGRAY(15)
      DIMENSION ARRAY(15),JARRAY(15)
C
C     The dimensions of the variables ARRAY and JARRAY
C     must be set equal to or greater than 15
C
      CALL GETVRM('E',ARRAY,JARRAY,FLGRAY,JRCD,
     $     JMAC,JMATYP,MATLAYO, LACCFLA)
      UVAR(1)=ARRAY(1)
      UVAR(2)=ARRAY(2)
      UVAR(3)=ARRAY(3)
      UVAR(4)=ARRAY(4)
      CALL GETVRM('EP',ARRAY,JARRAY,FLGRAY,JRCD,
     $     JMAC,JMATYP,MATLAYO, LACCFLA)
      UVAR(5)=ARRAY(1)
      UVAR(6)=ARRAY(2)
      UVAR(7)=ARRAY(3)
      CALL GETVRM('PE',ARRAY,JARRAY,FLGRAY,JRCD,
     $     JMAC,JMATYP,MATLAYO, LACCFLA)
      UVAR(8)=ARRAY(1)
      UVAR(9)=ARRAY(2)
      UVAR(10)=ARRAY(3)
      UVAR(11)=ARRAY(4)
      UVAR(12)=ARRAY(7)
      UVAR(13)=ARRAY(8)
      CALL GETVRM('PEP',ARRAY,JARRAY,FLGRAY,JRCD,
     $     JMAC,JMATYP,MATLAYO, LACCFLA)
      UVAR(14)=ARRAY(1)
      UVAR(15)=ARRAY(2)
      UVAR(16)=ARRAY(3)
      CALL GETVRM('NE',ARRAY,JARRAY,FLGRAY,JRCD,
     $     JMAC,JMATYP,MATLAYO, LACCFLA)
      UVAR(17)=ARRAY(1)
      UVAR(18)=ARRAY(2)
      UVAR(19)=ARRAY(3)
      UVAR(20)=ARRAY(4)
      CALL GETVRM('NEP',ARRAY,JARRAY,FLGRAY,JRCD,
     $     JMAC,JMATYP,MATLAYO, LACCFLA)
      UVAR(21)=ARRAY(1)
      UVAR(22)=ARRAY(2)
      UVAR(23)=ARRAY(3)
      CALL GETVRM('LE',ARRAY,JARRAY,FLGRAY,JRCD,
     $     JMAC,JMATYP,MATLAYO, LACCFLA)
      UVAR(24)=ARRAY(1)
      UVAR(25)=ARRAY(2)
      UVAR(26)=ARRAY(3)
      UVAR(27)=ARRAY(4)
      CALL GETVRM('LEP',ARRAY,JARRAY,FLGRAY,JRCD,
     $     JMAC,JMATYP,MATLAYO, LACCFLA)
      UVAR(28)=ARRAY(1)
      UVAR(29)=ARRAY(2)
      UVAR(30)=ARRAY(3)
C
      RETURN
      END