Home
last modified time | relevance | path

Searched refs:iterNum (Results 1 – 1 of 1) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_driver.f107 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper,iterNum) argument
126 integer,intent(inout) :: iterNum local
146 iterNum = 1
148 do while ( (norm_c .gt. norm_e).and.(iterNum.lt.500) )
162 iterNum = iterNum + 1
194 integer :: iterNum variable
232 iterNum = 1
237 do while ( (norm_c.gt.norm_e).and.(iterNum.lt.maxiters))
247 if (iterNum.eq.1) rconv(1) = norm_p/norm_c
265 iterNum = iterNum + 1
[all …]