Searched refs:iBCg (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | slpwBC.f | 1 subroutine slpwBC(nslpw,ihis,iBCg,BCg,BCtmpg,iBC,BC,wlnorm) argument
5 integer nslpw,ihis,iBCg,iBC local
18 icd = ibits(iBCg,3,3)
19 ixset = ibits(iBCg,3,1)
20 iyset = ibits(iBCg,4,1)
21 izset = ibits(iBCg,5,1)
25 iBC = iBCg-(ixset*8+iyset*16+izset*32)
|
| H A D | mod_slpw.f | 2 integer, allocatable :: iBCg(:) variable
|
| H A D | genbc.f | 94 allocate(iBCg(nshg))
96 iBCg=iBC
106 call slpwBC(mpslpw(nn,1),mpslpw(nn,2),iBCg(nn),
114 deallocate(iBCg)
|