I was trying to use UMESH subroutine for wear simulation. I don't have much idea about it. It always shows compilation error. Can u help me to write UMESH sub routine. I am attaching my code
SUBROUTINE UMESHMOTION(UREF,ULOCAL,NODE,NNDOF,
* LNODETYPE,ALOCAL,NDIM,TIME,DTIME,PNEWDT,
* KSTEP,KINC,KMESHSWEEP,JMATYP,JGVBLOCK,LSMOOTH)
C
INCLUDE 'ABA_PARAM.INC'
C
DIMENSION ULOCAL(NDIM),JELEMLIST(*)
DIMENSION ALOCAL(NDIM,*),TIME(2)
DIMENSION JMATYP(*),JGVBLOCK(*)
CHARACTER*80 bottom
DIMENSION ARRAY(3)
DIMENSION VEL(6)
CPRESS=0.0D0
VELOCITY=0.0D0
if (NODE.EQ.8)then
ULOCAL(NDIM)=0
call GETVRN(NODE,'V',VEL,JRCD,JGVBLOCK,LTRN)
else
call GETPARTINFO(NODE,0,bottom,LOCNUM,JRCD)
call GETNODETOELEMCONN(NODE,NELEMS,JELEMLIST,JELEMTYPE,JRCD,
$ JGVBLOCK)
call GETVRMAVGATNODE(NODE,'CSTRESS',ARRAY,JRCD,JELEMLIST,NELEMS,
$ JMATYP,JGVBLOCK)
CPRESS = ARRAY(1)
VELOCITY = VEL(1)
WEARRATE=0.000035377*VELOCITY*CPRESS
ULOCAL(NDIM)=ULOCAL(NDIM)-WEARRATE
RETURN
END