Searched refs:gsize (Results 1 – 2 of 2) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_ggb.f | 42 integer :: p,q,nsize,step,asize,gsize local
58 call MPI_AllReduce(nsize,gsize,1,MPI_INTEGER,MPI_MAX,
63 allocate(resid(gsize))
64 allocate(workd(3*gsize))
382 subroutine ramg_ggb_G2A(avec,gvec,asize,gsize,redun, argument
384 integer,intent(in) :: asize, gsize local
388 real(kind=8),intent(in),dimension(gsize,redun) :: gvec
392 do i=1,gsize
399 subroutine ramg_ggb_A2G(avec,gvec,asize,gsize,redun, argument
401 integer,intent(in) :: asize, gsize local
[all …]
|
| H A D | ramg_mls.f | 59 integer :: p,q,nsize,step,asize,gsize local
70 call MPI_AllReduce(nsize,gsize,1,MPI_INTEGER,MPI_MAX,
73 ncv = min(maxncv,gsize)
88 allocate(resid(gsize))
89 allocate(workd(3*gsize))
239 integer :: p,q,nsize,step,asize,gsize local
250 call MPI_AllReduce(nsize,gsize,1,MPI_INTEGER,MPI_MAX,
253 ncv = min(maxncv,gsize)
268 allocate(resid(gsize))
269 allocate(workd(3*gsize))
|