Lines Matching defs:ramg_global_lhs
7 subroutine ramg_global_lhs( subroutine
17 integer,intent(in) :: annz_tot
18 integer,intent(in),dimension(nshg+1) :: acolm
19 integer,intent(in),dimension(annz_tot) :: arowp
20 integer,intent(in) :: redun
21 real(kind=8),intent(in),dimension(redun,annz_tot) :: alhsP
25 type(r2d),intent(inout) :: lhsGP
26 type(i1d),intent(inout) :: lhsGProwp,lhsGPcolm
27 integer,intent(in),dimension(nlwork) :: ilwork
28 integer,intent(in),dimension(nshg) :: iBC,iper
29 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
31 integer :: numtask,i,j,k,m,p,ki,kj,krowp,ierr
32 integer :: gi,gj,gk
33 integer :: itag,iacc,iother,numseg,isgbeg,itkbeg
34 integer :: stat(MPI_STATUS_SIZE,redun*numpe),req(redun*numpe)
35 integer :: mcheck
37 real(kind=8) :: swaptemp(redun)
39 character fname*10
46 integer,dimension(nshg) :: tmp_rowmap,tmp_revrmap
47 real(kind=8),dimension(redun,nshg) :: tmp_rmtx
49 integer,dimension(nshg) :: Pflag
50 integer,dimension(nshg+1) :: Pcolm
51 type(i2dd) :: Prowp
52 type(r12dd) :: Pmtx
53 integer :: rownnz