Home
last modified time | relevance | path

Searched refs:iedof (Results 1 – 3 of 3) sorted by relevance

/dports/cad/feappv/feappv-4.1i/program/
H A Dplocal.f2 subroutine plocal(ld,eq,id,ix,ie,iedof,xl,ul,tl,ub, x,f,u,ud, argument
134 if(iedof(j,i).gt.0) then
138 ul(j,i,1) = u(iedof(j,i),ix(i))
139 ul(j,i,2) = u(iedof(j,i),ix(i)+numnp)
140 ul(j,i,3) = u(iedof(j,i),ix(i)+numnp*2)
145 k = iid+iedof(j,i)
151 ul(j,i,1) = u(iedof(j,i),ix(i))
172 if( id(iedof(j,i),ix(i)).gt.0) then
173 ub(j+ild) = f(iedof(j,i),ix(i)) - ubl(iedof(j,i))
183 k = iid + iedof(j,i)
[all …]
H A Dpmatin.f2 subroutine pmatin(tx,d,ul,xl,tl,s,p,idl,ie,iedof,lie,prt,prth) argument
52 integer lie(ndf,*),ie(nie,*),iedof(ndf,nen,*),idl(*) local
237 iedof(i,j,ma) = idl(i)
239 iedof(i,j,ma) = 0
247 iedof(i,j,ma) = idl(i)
251 iedof(i,j,ma) = 0
H A Dmeshck.f2 subroutine meshck(ip,ie,iedof,id,nty,ix,nie,nen,nen1,ndf, argument
44 integer ip(ndf,*), id(ndf,*), ie(nie,*), iedof(ndf,nen,*)
94 if(iedof(j,i,ma).gt.0) then
95 ip(iedof(j,i,ma),ii) = 1