SUBROUTINE UVARM(UVAR,DIRECT,T,TIME,DTIME,CMNAME,ORNAME,
     1 NUVARM,NOEL,NPT,NLAYER,NSPT,KSTEP,KINC,NDI,NSHR,COORD,
     2 JMAC,JMATYP,MATLAYO,LACCFLG)
      INCLUDE 'ABA_PARAM.INC'

      CHARACTER*80 CMNAME, ORNAME
      CHARACTER*3  FLGRAY(15)
      DIMENSION UVAR(*),DIRECT(3,3),T(3,3),TIME(2),
     $          JMAC(*),COORD(*),JMATYP(*)
      DIMENSION ARRAY(15),JARRAY(15)
       
      CALL GETVRM('S',ARRAY,JARRAY,FLGRAY,JRCD,JMAC,JMATYP,MATLAYO,
     $     LACCFLG)
      UVAR(1)=ARRAY(1)
      RETURN
      END