Lines Matching defs:ramg_PPEAp
486 subroutine ramg_PPEAp(q,p, subroutine
493 real(kind=8),intent(in),dimension(nshg) :: p local
494 real(kind=8),intent(inout),dimension(nshg) :: q local
495 integer,intent(in),dimension(nshg+1) :: colm
496 integer,intent(in),dimension(nnz_tot) :: rowp
497 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK
498 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP
499 integer,intent(in),dimension(nlwork) :: ilwork
500 integer,intent(in),dimension(nshg) :: iBC,iper
501 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
503 real(kind=8),dimension(nshg,1) :: t1,t1a
504 real(kind=8),dimension(nshg,3) :: t2,t2a
505 real(kind=8),dimension(nshg,4) :: t2b
506 real(kind=8),dimension(nshg,4) :: diag