Lines Matching refs:BCBtp
19 real*8, target, allocatable :: BCBtp(:,:) local
107 allocate (BCBtp(neltp,ndBCB))
143 BCBtp = zero
146 & c_loc(BCBtp),iBCBtpsiz,dataDbl,iotype)
153 where(.not.btest(iBCBtp(:,1),0)) BCBtp(:,1)=zero
154 where(.not.btest(iBCBtp(:,1),1)) BCBtp(:,2)=zero
155 where(.not.btest(iBCBtp(:,1),3)) BCBtp(:,6)=zero
158 where(.not.btest(iBCBtp(:,1),i-1)) BCBtp(:,i+1)=zero
162 BCBtp(:,3)=zero
163 BCBtp(:,4)=zero
164 BCBtp(:,5)=zero
196 & iBCBtp(n1:n2,:), BCBtp(n1:n2,:),
205 deallocate(BCBtp)