Searched refs:nslpw (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | findslpw.f | 78 nslpw=mpslpw(nn,1)
80 nslpwg=nslpw
82 allocate(IDslpw(nslpw))
84 do ni=1,nslpw
99 nslpw=nslpw-1
113 mpslpw(nn,1)=nslpw
|
| H A D | slpwBC.f | 1 subroutine slpwBC(nslpw,ihis,iBCg,BCg,BCtmpg,iBC,BC,wlnorm) argument
5 integer nslpw,ihis,iBCg,iBC local
29 if(nslpw.eq.1.and.icd.eq.0)then
53 elseif(nslpw.eq.2.and.icd.eq.0)then
104 elseif(nslpw.eq.1.and.(icd.eq.1.or.icd.eq.2.or.icd.eq.4))then
147 elseif(nslpw.eq.2.and.(icd.eq.1.or.icd.eq.2.or.icd.eq.4))then
175 elseif(nslpw.eq.1.and.(icd.eq.3.or.icd.eq.5.or.icd.eq.6))then
201 elseif(nslpw.eq.1.and.icd.eq.7)then
220 elseif(nslpw.eq.2.and.icd.eq.7)then
262 elseif(nslpw.ge.3)then
|