Searched refs:ihis (Results 1 – 2 of 2) 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
31 if(btest(ihis,islpw))exit
55 if(btest(ihis,islpw))exit
58 if(btest(ihis,jslpw))exit
106 if(btest(ihis,islpw))exit
154 if(btest(ihis,islpw))exit
157 if(btest(ihis,jslpw))exit
186 if(btest(ihis,islpw))exit
207 if(btest(ihis,islpw))exit
[all …]
|
| H A D | findslpw.f | 79 ihis=mpslpw(nn,2)
86 if(btest(ihis,islpw))exit
100 ihis=ihis-2**IDslpw(j)
114 mpslpw(nn,2)=ihis
|