Home
last modified time | relevance | path

Searched refs:amg_nshg (Results 1 – 12 of 12) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_ITAI.f123 integer,dimension(amg_nshg(level1)) :: itemp
124 integer,dimension(amg_nshg(level2)) :: itemp2
127 integer,dimension(amg_nshg(level2)+1) :: ITA_colm
145 & ITA_colm,amg_nshg(level2),amg_nshg(level1),
146 & amg_nshg(level1))
147 mnnz = ITA_colm(amg_nshg(level2)+1)-1
156 & amg_nshg(level2),amg_nshg(level1),
157 & amg_nshg(level1),.false.)
166 & amg_nshg(level2),amg_nshg(level1),
167 & amg_nshg(level1))
[all …]
H A Dramg_coarse.f31 integer,dimension(amg_nshg(level1)) :: amg_F,aLoc
32 real(kind=8),dimension(amg_nshg(level1)) :: amg_la
33 integer,dimension(amg_nshg(level1)) :: amg_Fn,amg_Fp
104 call ramg_CFsplit(amg_F,amg_S,amg_nshg(level1),amg_nnz(level1),
127 do i = 1,amg_nshg(level1)
146 allocate(CF_map(level1)%p(amg_nshg(level1)))
147 allocate(CF_revmap(level1)%p(amg_nshg(level1)))
150 do i=1,amg_nshg(level1)
157 do i=1,amg_nshg(level1)
166 do i=1,amg_nshg(level1)
[all …]
H A Dramg_control.f52 & amg_A_lhs(ramg_levelx)%p,amg_nshg(ramg_levelx),
84 if (amg_nshg(i+1).ne.0) then
92 write(*,*)'COARSEN: level:',i+1,' nshg:',amg_nshg(i+1),
97 maxstopsign = (amg_nshg(i).eq.amg_nshg(i-1))
124 allocate(CF_map(ramg_levelx)%p(amg_nshg(ramg_levelx)))
125 allocate(CF_revmap(ramg_levelx)%p(amg_nshg(ramg_levelx)))
126 do i=1,amg_nshg(ramg_levelx)
203 do i = 1,amg_nshg(level1)
250 do i=1,amg_nshg(level1)
H A Dramg_tools.f29 real(kind=8),intent(inout),dimension(amg_nshg(level1)) :: vf
30 real(kind=8),intent(in),dimension(amg_nshg(level2)) :: VC
43 do i=1,amg_nshg(level1)
69 real(kind=8),intent(in),dimension(amg_nshg(level1)) :: vf
70 real(kind=8),intent(inout),dimension(amg_nshg(level2)) :: VC
79 do i=1,amg_nshg(level2)
153 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v
154 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
170 do i=1,amg_nshg(level)
211 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v
[all …]
H A Dramg_mls.f55 real(kind=8),dimension(amg_nshg(level)) :: twork1,twork2
64 asize = amg_nshg(level)
235 real(kind=8),dimension(amg_nshg(level)) :: twork1,twork2
244 asize = amg_nshg(level)
512 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: v
513 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
515 real(kind=8),dimension(amg_nshg(level)) :: aux,aux2,r0
580 real(kind=8),intent(in),dimension(amg_nshg(level)) :: v,r
581 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
584 real(kind=8),dimension(amg_nshg(level)) :: aux
[all …]
H A Dramg_cheby.f26 real(kind=8),intent(in),dimension(amg_nshg(level)) :: v,r
27 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: u
31 real(kind=8),dimension(amg_nshg(level)) :: pAux
32 real(kind=8),dimension(amg_nshg(level)) :: epdk,epx
34 real(kind=8),dimension(amg_nshg(level)) :: cy1,cz1
H A Dramg_smoother.f331 real(kind=8),intent(in),dimension(amg_nshg(ramg_levelx))
333 real(kind=8),intent(inout),dimension(amg_nshg(ramg_levelx))
345 real(kind=8),dimension(amg_nshg(ramg_levelx)) :: myV
380 mres_n=sqrt(flesDot1(myV,amg_nshg(cl),1))
389 call lubksb(cmtxA,amg_nshg(cl),amg_nshg(cl),cindx,Asol)
404 real(kind=8),dimension(amg_nshg(level)),intent(in) ::xrhs,xold
405 real(kind=8),dimension(amg_nshg(level)),intent(inout) :: xnew
434 & amg_A_lhs(level)%p,amg_nshg(level),
445 & amg_nshg(level),amg_nnz(level),
H A Dramg_driver.f26 real(kind=8),intent(inout),dimension(amg_nshg(clevel))
39 real(kind=8),dimension(amg_nshg(clevel)) :: myvF,myvE
58 allocate(myvC(amg_nshg(clevel+1)))
59 allocate(myvCS(amg_nshg(clevel+1)))
114 real(kind=8),intent(in),dimension(amg_nshg(level)) :: rhs
115 real(kind=8),intent(inout),dimension(amg_nshg(level)) :: sol
129 real(kind=8),dimension(amg_nshg(level)) :: cgP,cgQ,cgZ,cgR
189 real(kind=8),dimension(amg_nshg(1)) :: cgP,cgQ,cgZ,cgR
H A Dramg_ggb.f52 asize = amg_nshg(1)
293 real(kind=8),dimension(amg_nshg(clevel)) :: vF
324 real(kind=8),intent(inout),dimension(amg_nshg(clevel))
337 real(kind=8),dimension(amg_nshg(clevel)) :: ggberr
353 do j=1,amg_nshg(clevel)
373 do j=1,amg_nshg(clevel)
H A Dramg_extract.f67 if ( amg_nshg(1) .gt.0 ) then
354 amg_nnz(1) = lhsGPcolm%p(amg_nshg(1)+1)-1
371 & amg_nshg(1),amg_nnz(1),1,
383 do i=1,amg_nshg(1)
431 & amg_nshg(1),amg_nnz(1),1,
H A Dramg_data.f60 integer,dimension(MAXAMGLVL) :: amg_nshg variable
H A Dramg_paratools.f901 real(kind=8),intent(inout),dimension(amg_nshg(level),redun)
997 real(kind=8),intent(inout),dimension(amg_nshg(level),redun)
1087 real(kind=8),intent(in),dimension(amg_nshg(level)) :: carray
1090 integer,dimension(amg_nshg(level)) :: revmap
1111 real(kind=8),intent(inout),dimension(amg_nshg(level)) ::carray