Searched refs:mpslpw (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | findslpw.f | 19 allocate(mpslpw(nshg,2))
25 mpslpw=0
45 if(.not.btest(mpslpw(nn,2),islpw))then
46 mpslpw(nn,1)=mpslpw(nn,1)+1
47 mpslpw(nn,2)=mpslpw(nn,2)+2**islpw
78 nslpw=mpslpw(nn,1)
79 ihis=mpslpw(nn,2)
113 mpslpw(nn,1)=nslpw
114 mpslpw(nn,2)=ihis
|
| H A D | mod_slpw.f | 7 integer, allocatable :: mpslpw(:,:) variable
|
| H A D | genbc.f | 106 call slpwBC(mpslpw(nn,1),mpslpw(nn,2),iBCg(nn),
116 deallocate(mpslpw)
|