Searched refs:redun (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_paratools.f | 10 & redun, argument
20 integer,intent(in) :: redun local
21 real(kind=8),intent(in),dimension(redun,annz_tot) :: alhsP
34 integer :: stat(MPI_STATUS_SIZE,redun*numpe),req(redun*numpe)
37 real(kind=8) :: swaptemp(redun)
47 real(kind=8),dimension(redun,nshg) :: tmp_rmtx
57 allocate(lhsGP%p(redun,annz_tot),stat=ierr)
184 allocate(sub_mtx%pp(i)%p(redun,sub_nnz%p(i)))
185 allocate(sub_mtx2%pp(i)%p(redun,sub_nnz2%p(i)))
197 do p=1,redun
[all …]
|
| H A D | ramg_ggb.f | 382 subroutine ramg_ggb_G2A(avec,gvec,asize,gsize,redun, argument
385 integer,intent(in) :: redun local
387 real(kind=8),intent(inout),dimension(asize,redun) :: avec
388 real(kind=8),intent(in),dimension(gsize,redun) :: gvec
399 subroutine ramg_ggb_A2G(avec,gvec,asize,gsize,redun, argument
402 integer,intent(in) :: redun local
404 real(kind=8),intent(in),dimension(asize,redun) :: avec
405 real(kind=8),intent(inout),dimension(gsize,redun) :: gvec
|
| H A D | ramg_tools.f | 483 subroutine ramg_dot_p(level,v,u,redun,norm) argument
489 integer :: redun,level local
490 real(kind=8),intent(in),dimension(amg_nshg(level),redun) ::v,u
496 do k=1,redun
885 subroutine ramg_dump_matlab_A(acolm,arowp,alhs,an,annz,redun, argument
893 integer :: an,annz,redun local
896 real(kind=8),dimension(redun,annz) :: alhs
912 write(mformat,'((A6)(I1)(A7))')'((2I)(',redun,'E14.4))'
920 write(264,mformat)i,j,(alhs(k,p),k=1,redun)
927 subroutine ramg_dump_matlab_map(acolm,arowp,alhs,an,annz,redun, argument
[all …]
|