Lines Matching refs:ivec
191 integer nsurf(nshg), ivec(nsd) local
401 ivec(:)=0 ! initialize
404 ivec(idom)=1
407 ivec(idom)=0
410 ivec(i)=1
420 ivec(idom)=2
423 if(ivec(i).eq.1) cycle
424 ivec(idom)=0
427 ivec(i)=2
434 if(ivec(1).ne.0) ixset=1
435 if(ivec(2).ne.0) iyset=1
436 if(ivec(3).ne.0) izset=1
442 BCtmp(nn,4:6)=BCvecs(ivec(1),1:3)
443 BCtmp(nn,8:10)=BCvecs(ivec(2),1:3)
445 BCtmp(nn,4:6)=BCvecs(ivec(1),1:3)
446 BCtmp(nn,8:10)=BCvecs(ivec(3),1:3)
448 BCtmp(nn,4:6)=BCvecs(ivec(2),1:3)
449 BCtmp(nn,8:10)=BCvecs(ivec(3),1:3)