Searched refs:nsurf (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | genbc.f | 29 dimension iBC(nshg), nsurf(nshg),
75 call genwnm (iBC, BCtmp, x, ilwork, iper, nsurf)
79 call genotwn (x,BCtmp, iBC, nsurf)
161 subroutine genwnm (iBC, BCtmp, x, ilwork, iper, nsurf) argument
191 integer nsurf(nshg), ivec(nsd) local
222 nsurf(:) = 0
261 nsurf(nn)=nsurf(nn)+1
262 if(nsurf(nn).eq.1) BCtmp(nn,4:6)=zero
263 if(nsurf(nn).eq.2) BCtmp(nn,8:10)=zero
319 if(nsurf(nn).eq.1)
[all …]
|