SUBROUTINE UVARM(UVAR,DIRECT,T,TIME,DTIME,CMNAME,ORNAME, 1 NUVARM,NOEL,NPT,NLAYER,NSPT,KSTEP,KINC, 2 NDI,NSHR,COORD,JMAC,JMATYP,MATLAYO, LACCFLG) 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('TEMP',ARRAY,JARRAY,FLGRAY,JRCD, $ JMAC,JMATYP,MATLAYO, LACCFLG) UVAR(1)=ARRAY(1) CALL GETVRM('HFL',ARRAY,JARRAY,FLGRAY,JRCD, $ JMAC,JMATYP,MATLAYO, LACCFLG) UVAR(2)=ARRAY(1) UVAR(3)=ARRAY(2) CALL GETVRM('FV',ARRAY,JARRAY,FLGRAY,JRCD, $ JMAC,JMATYP,MATLAYO, LACCFLG) UVAR(4)=ARRAY(1) UVAR(5)=ARRAY(2) C RETURN END