Lines Matching refs:nshg
18 integer,intent(in),dimension(nshg+1) :: acolm
28 integer,intent(in),dimension(nshg) :: iBC,iper
29 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
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
59 allocate(lhsGPcolm%p(nshg+1))
100 allocate(sub_revmap%pp(i)%p(nshg))
267 allocate(Prowp%pp(nshg))
268 allocate(Pmtx%pp(nshg))
359 allocate(lhsGPcolm%p(nshg+1))
364 do i=1,nshg
381 do i=1,nshg
400 loop_i: do i=1,nshg
421 do i=1,nshg
441 do i=1,nshg
493 real(kind=8),intent(in),dimension(nshg) :: p
494 real(kind=8),intent(inout),dimension(nshg) :: q
495 integer,intent(in),dimension(nshg+1) :: colm
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
511 call fMtxVdimVecMult(p,amg_ppeDiag(1)%p,t1a,1,1,1,1,nshg)
512 call fMtxVdimVecMult(t1a,diag(:,4),t1,1,1,1,1,nshg)
516 call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot)
519 call fMtxVdimVecMult(t2,diag,t2a,3,4,3,3,nshg)
520 call fMtxVdimVecMult(t2a,diag,t2,3,4,3,3,nshg)
527 call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot)
531 call fMtxVdimVecMult(t1,diag(:,4),t1a,1,1,1,1,nshg)
532 call fMtxVdimVecMult(t1a,amg_ppeDiag(1)%p,q,1,1,1,1,nshg)
549 real(kind=8),intent(in),dimension(nshg) :: p
550 real(kind=8),intent(inout),dimension(nshg) :: q
551 real(kind=8),intent(in),dimension(nshg,4) :: diag
552 integer,intent(in),dimension(nshg+1) :: colm
557 integer,intent(in),dimension(nshg) :: iBC,iper
558 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
560 real(kind=8),dimension(nshg,1) :: t1,t1a
561 real(kind=8),dimension(nshg,3) :: t2,t2a
562 real(kind=8),dimension(nshg,4) :: t2b
565 call fMtxVdimVecMult(p,amg_ppeDiag(1)%p,t1a,1,1,1,1,nshg)
566 call fMtxVdimVecMult(t1a,diag(:,4),t1,1,1,1,1,nshg)
570 call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot)
573 call fMtxVdimVecMult(t2,diag,t2a,3,4,3,3,nshg)
574 call fMtxVdimVecMult(t2a,diag,t2,3,4,3,3,nshg)
581 call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot)
584 call fMtxVdimVecMult(t1,diag(:,4),t1a,1,1,1,1,nshg)
585 call fMtxVdimVecMult(t1a,amg_ppeDiag(1)%p,q,1,1,1,1,nshg)
600 real(kind=8),intent(inout),dimension(nshg) :: rhsp
601 real(kind=8),intent(in),dimension(nshg,4) :: rhsg
602 real(kind=8),intent(in),dimension(nshg,4) :: diag
603 integer,intent(in),dimension(nshg+1) :: colm
608 integer,intent(in),dimension(nshg) :: iBC,iper
609 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
611 real(kind=8),dimension(nshg,1) :: t1
612 real(kind=8),dimension(nshg,3) :: t2,t2a
625 call fMtxVdimVecMult(t2,diag,t2a,3,4,3,3,nshg)
626 call fMtxVdimVecMult(t2a,diag,t2,3,4,3,3,nshg)
628 call fLesSparseApNGt(colm,rowp,lhsP,t2,rhsp,nshg,nnz_tot)
635 call fMtxVdimVecMult(rhsp,diag(:,4),t1,1,1,1,1,nshg)
652 integer, intent(in),dimension(nshg) :: iBC,iper
653 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
661 integer,dimension(nshg) :: lvlmap
681 do i=1,nshg
750 integer,intent(inout),dimension(nshg) :: flag
753 integer, intent(in),dimension(nshg) :: iBC,iper
754 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
822 call ramg_dump_i(flag,nshg,1,'initflagbc')
871 integer global(nshg,n)
872 real*8 BC(nshg,ndofBC)
873 integer ilwork(nlwork),iper(nshg),iBC(nshg)
875 real(kind=8) aglobal(nshg,n)
877 do i=1,nshg
883 do i=1,nshg
904 integer,intent(in),dimension(nshg) :: iBC,iper
905 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
1000 integer,intent(in),dimension(nshg) :: iBC,iper
1001 real(kind=8),intent(in),dimension(nshg,ndofBC) :: BC
1086 real(kind=8),intent(inout),dimension(nshg) :: garray
1094 do i=1,nshg
1110 real(kind=8),intent(in),dimension(nshg) :: garray
1115 do i=1,nshg