Home
last modified time | relevance | path

Searched refs:iBCBtp (Results 1 – 3 of 3) sorted by relevance

/phasta/phSolver/common/
H A DgenbkbPosix.f18 integer, target, allocatable :: ientp(:,:),iBCBtp(:,:) local
59 allocate (iBCBtp(neltp,ndiBCB))
76 & c_loc(iBCBtp),iiBCBtpsiz,dataInt,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
102 where(.not.btest(iBCBtp(:,1),2))
141 & iBCBtp(n1:n2,:), BCBtp(n1:n2,:),
149 deallocate(iBCBtp)
H A DgenbkbSyncIO.f18 integer, target, allocatable :: ientp(:,:),iBCBtp(:,:) local
100 allocate (iBCBtp(neltp,ndiBCB))
120 & c_loc(iBCBtp),iiBCBtpsiz,dataInt,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
147 where(.not.btest(iBCBtp(:,1),2))
182 & iBCBtp(n1:n2,:), BCBtp(n1:n2,:),
190 deallocate(iBCBtp)
H A Dgenbkb.f18 integer, target, allocatable :: ientp(:,:),iBCBtp(:,:) local
106 allocate (iBCBtp(neltp,ndiBCB))
130 & c_loc(iBCBtp),iiBCBtpsiz,dataInt,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
161 where(.not.btest(iBCBtp(:,1),2))
196 & iBCBtp(n1:n2,:), BCBtp(n1:n2,:),
204 deallocate(iBCBtp)