error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: <IDENTIFIER> %FILL

[Cathy039]

SUBROUTINE UEL(RHS,AMATRX,SVARS,ENERGY,NDOFEL,NRHS,NSVARS,PROPS,
1 NPROPS,COORDS,MCRD,NNODE,Uall,DUall,V,A,JTYPE,TIME,DTIME,KSTEP,
2 KINC,JELEM,PARAMS,NDLOAD,JDLTYP,ADLMAG,PREDEF,NPREDF,LFLAGS,
3 MLVARX,DDLMAG,MDLOAD,PNEWDT,JPROPS,NJPROP,PERIOD)

use global
IMPLICIT NONE
real*8 RHS,AMATRX,SVARS,
real*8 Uall,DUall

INTEGER :: NDOFEL,NRHS,NSVARS,NPROPS,MCRD,NNODE,JTYPE,KSTEP,KINC,
1 nDim

DIMENSION RHS(MLVARX,*),AMATRX(NDOFEL,NDOFEL),PROPS(*),SVARS(*)
DIMENSION Uall(NDOFEL),DUall(MLVARX,*)
! DIMENSION Vel(NDOFEL),Accn(NDOFEL),TIME(2),PARAMS(*),JDLTYP(MDLOAD,*)
! DIMENSION ADLMAG(MDLOAD,*),DDLMAG(MDLOAD,*),PREDEF(2,NPREDF,NNODE)
! DIMENSION LFLAGS(*),JPROPS(*)
real*8 u(nNode,2),du(nNode,2),thetaNew(nNode)
real*8 thetaOld(nNode),dtheta(nNode),muNew(nNode)
real*8 muOld(nNode),dMU(nNode),uNew(nNode,ndofel)
real*8 uOld(nNode,ndofel)
!,u_t(nNode,ndofel),v(nNode,2)
! real*8 coordsC(mcrd,nNode)

integer i,j,k,l,m,n

k = 0.d0
do i=1,nNode
do j=1,nDim
k = k + 1
u(i,j) = Uall(k)
du(i,j) = DUall(k,1)
uOld(i,j) = u(i,j) - du(i,j)
enddo
write(*,*) ' Uall(',k,')=',Uall(k)
write(*,*) ' DUall(',k,',1)=',DUall(k,1)
write(*,*) ' uOld(',i,j,')=,',uOld(i,j)
k = k + 1
muNew(i) = Uall(k)
dMU(i) = DUall(k,1)
muOld(i) = muNew(i) - dMU(i)
k = k + 1
thetaNew(i) = Uall(k)
dtheta(i) = DUall(k,1)
thetaOld(i) = thetaNew(i) - dtheta(i)
enddo

do i=1,nNode
do j=1,nDim
coordsC(j,i) = coords(j,i) + u(i,j)
enddo
enddo

RETURN
END

Error #5082: Syntax error, found END-OF-STATEMENT when expecting one of: <IDENTIFIER> happens in the bold line, Can somebody know why? Thank you very much.