Lines Matching refs:ls
42 2 ls, rowPtr, colPtr, Val, R, X) argument
50 TYPE(svLS_subLsType), INTENT(INOUT) :: ls local
61 ALLOCATE(h(ls%sD+1,ls%sD), u(dof,nNo,ls%sD+1), unCondU(dof,nNo),
62 2 y(ls%sD), c(ls%sD), s(ls%sD), err(ls%sD+1))
65 ls%suc = .FALSE.
68 DO l=1, ls%mItr
72 ls%itr = ls%itr + 1
90 IF (eps .LE. ls%absTol) THEN
91 ls%callD = 0D0
92 ls%dB = 0D0
95 ls%iNorm = eps
96 ls%fNorm = eps
97 eps = MAX(ls%absTol,ls%relTol*eps)
99 ls%dB = ls%fNorm
101 DO i=1, ls%sD
102 ls%itr = ls%itr + 1
134 ls%suc = .TRUE.
138 IF (i .GT. ls%sD) i = ls%sD
151 ls%fNorm = ABS(err(i+1))
152 IF (ls%suc) EXIT
155 ls%callD = CPUT() - time + ls%callD
156 ls%dB = 1D1*LOG(ls%fNorm/ls%dB)
164 2 ls, rowPtr, colPtr, Val, R) argument
172 TYPE(svLS_subLsType), INTENT(INOUT) :: ls local
183 ALLOCATE(h(ls%sD+1,ls%sD), u(dof,nNo,ls%sD+1), X(dof,nNo),
184 2 y(ls%sD), c(ls%sD), s(ls%sD), err(ls%sD+1))
186 ls%callD = CPUT()
187 ls%suc = .FALSE.
189 ls%iNorm = eps
190 ls%fNorm = eps
191 eps = MAX(ls%absTol,ls%relTol*eps)
192 ls%itr = 0
195 IF (ls%iNorm .LE. ls%absTol) THEN
196 ls%callD = 0D0
197 ls%dB = 0D0
200 DO l=1, ls%mItr
201 ls%dB = ls%fNorm
202 ls%itr = ls%itr + 1
211 DO i=1, ls%sD
212 ls%itr = ls%itr + 1
237 ls%suc = .TRUE.
241 IF (i .GT. ls%sD) i = ls%sD
254 ls%fNorm = ABS(err(i+1))
255 IF (ls%suc) EXIT
258 ls%callD = CPUT() - ls%callD
259 ls%dB = 1D1*LOG(ls%fNorm/ls%dB)