Lines Matching refs:iBC
1 subroutine qpbc( rmass, qres, iBC, iper, ilwork ) argument
16 & iBC(nshg), iper(nshg),uv(nshg,2),
25 call rotabc(uv, iBC, 'in ')
47 if ((btest(iBC(j),10))) then
56 if ((btest(iBC(j),10))) then
102 call rotabc(uv, iBC, 'out')
117 subroutine qpbcSclr( rmass, qres, iBC, iper, ilwork ) argument
132 & iBC(nshg), iper(nshg)
135 & call rotabc(qres, iBC, 'in ')
149 if (btest(iBC(j),10)) then
157 if (btest(iBC(j),10)) then
177 & call rotabc(qres, iBC, 'out')