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),JPOS(15)
      DIMENSION ULOCAL(*)
      DIMENSION JGVBLOCK(*),JMATYP(*)
      DIMENSION NODELIST(100)
      DIMENSION ALOCAL(NDIM,*)
      DIMENSION UTEMP(2)
      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
      do kdim = 1, ndim
        do jdim = 1, ndim
          ULOCAL(kdim) = ULOCAL(kdim) -  ALOCAL(jdim,kdim)*UTEMP(jdim)
        enddo
      enddo
C
      RETURN
      END