Searched refs:itype (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/common/ |
| H A D | dtn.f | 26 itype=ifeature(i)
31 call Dirichlet2Neumann(nsclr, itype, tmp)
46 subroutine Dirichlet2Neumann_faux(nscalar, itype, tmp) argument
63 integer itype, nscalar local
92 if(itype.eq.2) tmp(i) = tmp(i) / 2.0d+00
141 subroutine Dirichlet2Neumann(nscalar, itype, tmp) argument
142 integer nscalar, itype local
151 call Dirichlet2Neumann_1(nscalar,itype,tmp)
155 call Dirichlet2Neumann_2(nscalar,itype,tmp)
164 subroutine Dirichlet2Neumann_2(nscalar, itype, tmp) argument
[all …]
|