C     USER INPUT FOR ADAPTIVE MESH CONSTRAINT
C
      SUBROUTINE UMESHMOTION(UREF,ULOCAL,NODE,NNDOF,
     $     LNODETYPE,ALOCAL,NDIM,TIME,DTIME,PNEWDT,
     $     KSTEP,KINC,KMESHSWEEP,JMATYP,JGVBLOCK,LSMOOTH)
C
      include 'ABA_PARAM.INC'
C
C     USER DEFINED DIMENSION STATEMENTS
C
      CHARACTER*80 PARTNAME
      DIMENSION ARRAY(1000)
      DIMENSION ULOCAL(NDIM)
      DIMENSION JGVBLOCK(*),JMATYP(*)
      DIMENSION ALOCAL(NDIM,*)
      DIMENSION UTEMP(3)
      DIMENSION TIME(2)
C
C     The dimensions of the variables ARRAY and JARRAY
C     must be set equal to or greater than 15
C
      UTEMP(1)=0.0D0
      UTEMP(2)=-UREF
      UTEMP(3)=0.0D0

      do kdim = 1, ndim
        do jdim = 1, ndim
          ULOCAL(kdim) = ULOCAL(kdim) -  ALOCAL(jdim,kdim)*utemp(jdim)
        enddo
      enddo
C
      RETURN
      END