Searched refs:pflag (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_smoother.f | 97 & r,u,v,clevel,pflag, argument
114 logical,dimension(anshg),intent(inout) :: pflag local
147 pflag(i) = .true.
193 logical,dimension(anshg) :: pflag
210 pflag = .false.
214 & r,u,v,clevel,pflag,ilwork,BC,iBC,iper)
220 p2 = .not.(pflag(ki)) ! nodes that have not been treated
228 if ((postsmooth).or.(pflag(j))) then
234 pflag(ki) = .true.
243 & r,u,u2,clevel,pflag,ilwork,BC,iBC,iper)
|