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
934       integer :: an,annz,redun  local
937       real(kind=8),dimension(redun,annz) :: alhs
949           call ramg_dump_matlab_A(acolm,arowp,alhs,an,annz,redun,
961       write(mformat,'((A6)(I1)(A7))')'((2I)(',redun,'E14.4))'
969             write(264,mformat)ii,jj,(alhs(k,p),k=1,redun)