Lines Matching refs:BCBtp
19 real*8, target, allocatable :: BCBtp(:,:) local
60 allocate (BCBtp(neltp,ndBCB))
84 BCBtp = zero
87 & c_loc(BCBtp),iBCBtpsiz,dataDbl,iotype)
94 where(.not.btest(iBCBtp(:,1),0)) BCBtp(:,1)=zero
95 where(.not.btest(iBCBtp(:,1),1)) BCBtp(:,2)=zero
96 where(.not.btest(iBCBtp(:,1),3)) BCBtp(:,6)=zero
99 where(.not.btest(iBCBtp(:,1),i-1)) BCBtp(:,i+1)=zero
103 BCBtp(:,3)=zero
104 BCBtp(:,4)=zero
105 BCBtp(:,5)=zero
141 & iBCBtp(n1:n2,:), BCBtp(n1:n2,:),
150 deallocate(BCBtp)