5       subroutine ramg_calcPPEv(colm,rowp,lhsK,lhsP,  subroutine
12       integer,intent(in),dimension(nshg+1) :: colm
13       integer,intent(in),dimension(nnz_tot) :: rowp
14       real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK
15       real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP
16       integer,intent(in),dimension(nlwork)  :: ilwork
17       integer,intent(in),dimension(nshg)    :: iBC,iper
18       real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
20       real(kind=8),intent(in),dimension(nshg) :: v  local
21       real(kind=8),intent(inout),dimension(nshg) :: u  local
23       real(kind=8),dimension(nshg,3) :: utmp
47       end subroutine ! ramg_calcPPEv  argument