CALL GETVRM('THE',ARRAY,JARRAY,FLGRAY,JRCD,JMAC,JMATYP,      

     1 MATLAYO,LACCFLA)

      STATEV(1)= ARRAY(1)

C

C    Reading instantaneous elastic x axial strain

C    Storing the thermal strain in state variable

C    NOTE: ARRAY(1)--X AXIAL

C          ARRAY(2)--Y AXIAL

C          ARRAY(3)--Z AXIAL

C

        CALL GETVRM('EE',ARRAY,JARRAY,FLGRAY,JRCD,JMAC,JMATYP,

     1 MATLAYO,LACCFLG)

          EPS = ARRAY(1)

          FIELD(1) = EPS

          STATEV(2) = FIELD(1)

      IF (LGT(CMNAME,"MAT-SLAB")) THEN  

          STATEV(22)= ARRAY(1)

      END IF

C

      CALL GETVRM('SDV',ARRAY,JARRAY,FLGRAY,JRCD,JMAC,JMATYP,      

     1     MATLAYO,LACCFLA)

      STATEV(3)= ARRAY(3)

      STATEV(4)= ARRAY(4)