Searched refs:norm_c (Results 1 – 1 of 1) sorted by relevance
131 real(kind=8) :: tmp,norm_0,norm_1,norm_e,norm_c local136 norm_c = norm_0148 do while ( (norm_c .gt. norm_e).and.(iterNum.lt.500) )156 norm_c = tmp191 real(kind=8) :: tmp,norm_0,norm_p,norm_e,norm_c variable205 norm_c = norm_0234 norm_p=norm_c237 do while ( (norm_c.gt.norm_e).and.(iterNum.lt.maxiters))246 norm_c = tmp247 if (iterNum.eq.1) rconv(1) = norm_p/norm_c[all …]