Lines Matching refs:BCBtp
19 real*8, target, allocatable :: BCBtp(:,:) local
101 allocate (BCBtp(neltp,ndBCB))
129 BCBtp = zero
132 & c_loc(BCBtp),iBCBtpsiz,dataDbl,iotype)
139 where(.not.btest(iBCBtp(:,1),0)) BCBtp(:,1)=zero
140 where(.not.btest(iBCBtp(:,1),1)) BCBtp(:,2)=zero
141 where(.not.btest(iBCBtp(:,1),3)) BCBtp(:,6)=zero
144 where(.not.btest(iBCBtp(:,1),i-1)) BCBtp(:,i+1)=zero
148 BCBtp(:,3)=zero
149 BCBtp(:,4)=zero
150 BCBtp(:,5)=zero
182 & iBCBtp(n1:n2,:), BCBtp(n1:n2,:),
191 deallocate(BCBtp)