Lines Matching defs:ramg_driver
350 subroutine ramg_driver( subroutine
364 integer,intent(in) :: nshg
365 integer,intent(in) :: nnz_tot
366 integer,intent(in) :: nflow
368 integer,intent(in),dimension(nshg+1) :: colm
369 integer,intent(in),dimension(nnz_tot) :: rowp
370 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK
371 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP
373 real(kind=8),intent(in),dimension(nshg) :: pperhs
375 integer, intent(in) :: nlwork
376 integer, intent(in), dimension(nlwork) :: ilwork
377 integer, intent(in) :: ndofBC
378 integer, intent(in),dimension(nshg) :: iBC,iper
379 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
381 integer, intent(in) :: n_sol
382 real(kind=8),intent(inout),dimension(nshg,n_sol) :: ramg_sol
385 real(kind=8),intent(in) :: amg_eps
387 integer,intent(inout) :: amg_mode
414 end subroutine ramg_driver argument