Searched refs:lhsGP (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_extract.f | 35 type(r2d) :: lhsGP
121 & lhsGPcolm,lhsGProwp,lhsGP,4,
299 & + lhsGP%p(1,ki)*lhsGP%p(1,kj)*mflowDiag(k,1)**2
300 & + lhsGP%p(2,ki)*lhsGP%p(2,kj)*mflowDiag(k,2)**2
301 & + lhsGP%p(3,ki)*lhsGP%p(3,kj)*mflowDiag(k,3)**2
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)
342 deallocate(lhsGP%p)
350 & lhsGPcolm,lhsGProwp,lhsGP,1,
360 amg_A_lhs(1)%p = lhsGP%p
[all …]
|
| H A D | ramg_paratools.f | 9 & lhsGPcolm,lhsGProwp,lhsGP, argument
25 type(r2d),intent(inout) :: lhsGP local
57 allocate(lhsGP%p(redun,annz_tot),stat=ierr)
60 lhsGP%p(:,:) = alhsP(:,:)
378 allocate(lhsGP%p(redun,rownnz))
386 lhsGP%p(:,rownnz) = alhsP(:,j)
392 lhsGP%p(:,rownnz) = Pmtx%pp(i)%p(:,j)
410 swaptemp(:) = lhsGP%p(:,gi)
411 lhsGP%p(:,gi) = lhsGP%p(:,j)
412 lhsGP%p(:,j) = swaptemp(:)
|
| H A D | amgread.txt | 152 Now to parallel. lhsGP* is a sparse-communicated duplicate of lhsP
211 will be three arrays), and output lhsGP (summation of boundary-boundary
|