Lines Matching defs:ramg_mls_setup
371 subroutine ramg_mls_setup(colm,rowp,lhsK,lhsP, subroutine
378 integer,intent(in),dimension(nshg+1) :: colm
379 integer,intent(in),dimension(nnz_tot) :: rowp
380 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK
381 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP
382 integer,intent(in),dimension(nlwork) :: ilwork
383 integer,intent(in),dimension(nshg) :: iBC,iper
384 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
387 real(kind=8) :: evmax,ddeg,aux1,aux0,auxom,rho,rho2
388 real(kind=8),dimension(10) :: omloc
389 real(kind=8) :: mlsOver ! magic number!
390 integer :: i,j,k,lvl,ideg
391 integer :: nSample,nGrid
392 real(kind=8) :: gridStep,coord,samplej