Lines Matching refs:RI

63       iB = ls%RI%mItr
78       ls%RI%iNorm = eps
79       ls%RI%fNorm = eps
84       ls%RI%callD = CPUT()
85       ls%RI%suc   = .FALSE.
86       eps         = MAX(ls%RI%absTol,ls%RI%relTol*eps)
91       DO i=1, ls%RI%mItr
94          ls%RI%dB = ls%RI%fNorm
139          ls%RI%fNorm = SQRT(ls%RI%iNorm**2D0 - SUM(xB(1:iBB)*B(1:iBB)))
140          IF(ls%RI%fNorm .LT. eps) THEN
141             ls%RI%suc = .TRUE.
152       IF (i .GT. ls%RI%mItr) THEN
153          ls%RI%itr = ls%RI%mItr
155          ls%RI%itr = i
163      2   ls%RI%fNorm)**2D0)
168       DO i=2, ls%RI%itr
176       ls%RI%callD = CPUT() - ls%RI%callD
177       ls%RI%dB    = 1D1*LOG(ls%RI%fNorm/ls%RI%dB)
324       IF (ls%RI%suc) i = i + 100
329      2   i, ls%RI%itr, ls%GM%itr, ls%CG%itr, 
330      3   NINT((ls%RI%CallD-ls%GM%CallD-ls%CG%CallD)/ls%RI%CallD*1D2),
331      4   NINT(ls%GM%callD/ls%RI%CallD*1D2),
332      5   NINT(ls%CG%callD/ls%RI%CallD*1D2),
333      6   ls%RI%iNorm, ls%RI%fNorm/ls%RI%iNorm, ls%RI%CallD,
334      7   ls%Resm, ls%Resc, NINT(ls%RI%dB)