Searched refs:normt (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_tools.f | 493 real(kind=8) :: normt local
494 normt = 0
497 normt = normt + v(i,k)*u(i,k)
501 call MPI_AllReduce(normt,norm,1,MPI_DOUBLE_PRECISION,MPI_SUM,
504 norm=normt
535 real(kind=8) :: normt local
536 normt = 0
539 normt = normt + v(i,k)*v(i,k)
543 call MPI_AllReduce(normt,norm,1,MPI_DOUBLE_PRECISION,MPI_SUM,
546 norm = normt
|