Lines Matching refs:amg_A_lhs
308 amg_A_lhs(1)%p(m,1)=rtemp
320 amg_A_lhs(1)%p(amg_A_colm(1)%p(i),1) =
321 & + amg_A_lhs(1)%p(amg_A_colm(1)%p(i),1) + lhsGP%p(4,m)
334 amg_A_lhs(1)%p(ki,1) = amg_A_lhs(1)%p(ki,1) + lhsGP%p(4,m)
349 & amg_A_lhs(1)%p,amg_nnz(1),
356 deallocate(amg_A_lhs(1)%p)
358 allocate(amg_A_lhs(1)%p(amg_nnz(1),1))
360 amg_A_lhs(1)%p = lhsGP%p
370 & amg_A_lhs(1)%p,
385 rtemp=amg_A_lhs(1)%p(amg_A_colm(1)%p(i),1)
389 rtemp = rtemp + amg_A_lhs(1)%p(j,1)
390 rt = amg_A_lhs(1)%p(j,1)
398 rtp = rtp/ (amg_A_lhs(1)%p(amg_A_colm(1)%p(i),1))
399 rtn = rtn/amg_A_lhs(1)%p(amg_A_colm(1)%p(i),1)
409 & 1.0/sqrt(amg_A_lhs(1)%p(amg_A_colm(1)%p(i),1))
415 amg_A_lhs(1)%p(m,1) = amg_A_lhs(1)%p(m,1) *
430 & amg_A_lhs(1)%p,