Searched refs:iedof (Results 1 – 3 of 3) sorted by relevance
/dports/cad/feappv/feappv-4.1i/program/ |
H A D | plocal.f | 2 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 D | pmatin.f | 2 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 D | meshck.f | 2 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
|