Lines Matching refs:ls
42 2 cS, face, ls, rowPtr, colPtr, Val, Ri) argument
51 TYPE(svLS_lsType), INTENT(INOUT) :: ls local
63 iB = ls%RI%mItr
78 ls%RI%iNorm = eps
79 ls%RI%fNorm = eps
80 ls%CG%callD = 0D0
81 ls%GM%callD = 0D0
82 ls%CG%itr = 0
83 ls%GM%itr = 0
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
96 2 ls%GM, rowPtr, colPtr, mK, Rm, U(:,:,i))
103 2 ls%CG, rowPtr, colPtr, Gt, mG, mL, P(:,i))
110 2 ls%GM, rowPtr, colPtr, mK, MU(:,:,iBB), U(:,:,i))
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
162 ls%Resc = NINT(1D2*(NORMS(mynNo, commu, Rc)/
163 2 ls%RI%fNorm)**2D0)
164 ls%Resm = 100 - ls%Resc
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
325 IF (ls%GM%suc) i = i + 10
326 IF (ls%CG%suc) i = i + 1
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)