Lines Matching defs:ramg_G_cycle
313 subroutine ramg_G_cycle( subroutine
323 integer, intent(in) :: clevel
325 & :: ramg_sol,ramg_rhs
327 integer,intent(in),dimension(nshg+1) :: colm
328 integer,intent(in),dimension(nnz_tot) :: rowp
329 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK
330 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP
331 integer,intent(in),dimension(nlwork) :: ilwork
332 integer,intent(in),dimension(nshg) :: iBC,iper
333 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
336 real(kind=8),dimension(maxnev) :: vR,rtemp
337 real(kind=8),dimension(amg_nshg(clevel)) :: ggberr
338 real(kind=8),dimension(maxnev,maxnev) :: mtxggbA
339 integer,dimension(maxnev) :: indx
340 real(kind=8) :: d local
341 integer :: i,j