Lines Matching refs:norm_c
131 real(kind=8) :: tmp,norm_0,norm_1,norm_e,norm_c local
136 norm_c = norm_0
148 do while ( (norm_c .gt. norm_e).and.(iterNum.lt.500) )
156 norm_c = tmp
191 real(kind=8) :: tmp,norm_0,norm_p,norm_e,norm_c variable
205 norm_c = norm_0
234 norm_p=norm_c
237 do while ( (norm_c.gt.norm_e).and.(iterNum.lt.maxiters))
246 norm_c = tmp
247 if (iterNum.eq.1) rconv(1) = norm_p/norm_c
266 rconv(iterNum) = norm_p/norm_c
267 norm_p = norm_c
275 & iterNum,norm_c/norm_0,rconv(iterNum),cflagv,cflagg