Lines Matching refs:lhsGP
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
361 deallocate(lhsGP%p)