Lines Matching refs:noded
22 & noded,ncsnodes,rcscg,rcs0cg,zcscg,zcs0cg,nrcg,nzcg,jcs,lcs, argument
42 & nr(*),nz(*),noded,nodei,ikmpc(*),ilmpc(*),kontri(3,*), local
64 xap=co(1,noded)-csab(1)
65 yap=co(2,noded)-csab(2)
66 zap=co(3,noded)-csab(3)
77 if(nodei.eq.noded) then
185 vold(i,nodei)=vold(i,noded)
197 & nodei,ifacetet,inodface,noded,xn,yn,
213 call transformatrix(csab,co(1,noded),al)
233 idof=8*(noded-1)+number
239 write(*,*) ' ',noded,' and direction ',ndir
273 nodempc(1,mpcfree)=noded
327 idof=8*(noded-1)
332 write(*,*) ' in node',noded,'is already used'
346 nodempc(1,mpcfree)=noded
397 idof=8*(noded-1)+i
403 write(*,*) ' in node',noded,'is already used'
409 write(*,*) ' in node',noded,'is already used'
424 nodempc(1,mpcfree)=noded