subroutine uel(rhs,amatrx,svars,energy,ndofel,nrhs,nsvars,props        
     1 		,nprops,coords,mcrd,nnode,u,du,v,a,jtype,time,dtime,kstep,
     2 		kinc,jelem,params,ndload,jdltyp,adlmag,predef,npredf,lflags
     3 		,mlvarx,ddlmag,mdload,pnewdt,jprops,njprop,period)
c
		include 'aba_param.inc'
c
		dimension rhs(mlvarx,*),amatrx(ndofel,ndofel),svars(nsvars),
     1 		energy(8),props(*),coords(mcrd,nnode),
     2 		u(ndofel),du(mlvarx,*),v(ndofel),a(ndofel),time(2),
     3 		params(3),jdltyp(mdload,*),adlmag(mdload,*),
     4 		ddlmag(mdload,*),predef(2,npredf,nnode),lflags(*),jprops(*)
c
		dimension gpx(9),gwei(9),phi(8),phix(8),phic(8),stiffk(2,2)
		dimension stiffm(2,2)
c
c		print *,u(1),u(2),du(1,nhrs),du(2,nhrs),time(1),lflags(3)
c     	material property definition
		rho   = 1.
		spec  = 1.
		conduc = 1.
c     	initialization  (nrhs=1)                                                         
		do k1=1,ndofel                      
			rhs(k1,nrhs)=0.
			do k2=1,ndofel
				amatrx(k2,k1)=0.
				stiffk(k2,k1)=0.
				stiffm(k2,k1)=0.
			enddo                                    
		enddo                                      
		if (lflags(3).eq.4) return
c     	transient analysis
		if (lflags(1).eq.33) then
c     		determine gauss point locations
			  gpx(1)=-1./sqrt(3.)
			  gpx(2)=1./sqrt(3.)  
			  gwei(1)=1.
			  gwei(2)=1.
c     		assemble amatrx and rhs
			do k=1,2
c    			loop through gauss pts
				c=gpx(k)
c				get shape functions and derivatives			
				phi(1)=(1.-c)/2.
				phi(2)=(1.+c)/2.
				phic(1)=-0.5
				phic(2)=0.5				
				dxdc=abs(coords(1,2)-coords(1,1))/2.
				ajacob=dxdc
				phix(1)=phic(1)*(1./ajacob)
				phix(2)=phic(2)*(1./ajacob)																		
c				interpolate temperatures to int points
				dtdx=u(1)*phix(1)+u(2)*phix(2)				
				t=u(1)*phi(1)+u(2)*phi(2)
				told=(u(1)-du(1,nrhs))*phi(1)+(u(2)-du(2,nrhs))*phi(2)
c				other housekeeping
				cond=conduc				
				dtdt=(t-told)/dtime				
				we=gwei(k)*ajacob
c				Assemble Element Stiffness Matrix and Add to Global
				do ki=1,2
c       			loop over nodes
					rhs(ki,nrhs)=rhs(ki,nrhs)-we*(phi(ki)*rho*spec*dtdt 
     1  				+ cond*(phix(ki)*dtdx))
					do kj=1,2
						stiffk(ki,kj)=stiffk(ki,kj)+
     1						we*cond*(phix(ki)*phix(kj))
						stiffm(ki,kj)=stiffm(ki,kj)+
     1						we*(phi(ki)*phi(kj)*rho*spec)/dtime	       													
					end do
				end do
				do i=1,2
					do j=1,2
						amatrx(i,j)=stiffk(i,j)+stiffm(i,j)
					enddo
				enddo
			enddo
		end if
		return
		end