Home
last modified time | relevance | path

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

/phasta/phSolver/common/
H A DgenbkbPosix.f19 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
[all …]
H A DgenbkbSyncIO.f19 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
[all …]
H A Dgenbkb.f19 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
[all …]