Home
last modified time | relevance | path

Searched refs:rowp (Results 1 – 24 of 24) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_driver.f17 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper argument
30 integer,intent(in),dimension(nnz_tot) :: rowp local
52 & colm,rowp,lhsK,lhsP,
64 & colm,rowp,lhsK,lhsP,
68 call ramg_calcAv_g(clevel,myvF,ramg_sol,colm,rowp,lhsK,lhsP,
75 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
83 & colm,rowp,lhsK,lhsP,
107 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper,iterNum) argument
118 integer,intent(in),dimension(nnz_tot) :: rowp local
149 call ramg_calcAv_g(level,cgQ,cgP,colm,rowp,lhsK,lhsP,
[all …]
H A Dramg_mls.f9 & colm,rowp,lhsK,lhsP, argument
21 integer,intent(in),dimension(nnz_tot) :: rowp local
136 call ramg_calcAv_g(level,twork2,twork1,colm,rowp,lhsK,lhsP,
140 & colm,rowp,lhsK,lhsP,
189 & colm,rowp,lhsK,lhsP, argument
201 integer,intent(in),dimension(nnz_tot) :: rowp local
316 call ramg_calcAv_g(level,twork2,twork1,colm,rowp,lhsK,lhsP,
320 & colm,rowp,lhsK,lhsP,
371 subroutine ramg_mls_setup(colm,rowp,lhsK,lhsP, argument
379 integer,intent(in),dimension(nnz_tot) :: rowp local
[all …]
H A Dramg_cheby.f9 subroutine ramg_cheby_apply(u,v,r,level,colm,rowp,lhsK,lhsP, argument
20 integer,intent(in),dimension(nnz_tot) :: rowp local
53 call ramg_calcAv_g(level,pAux,v,colm,rowp,lhsK,lhsP,
58 call ramg_calcAv_g(level,pAux,cy1,colm,rowp,lhsK,lhsP,
82 call ramg_calcAv_g(level,pAux,v,colm,rowp,lhsK,lhsP,
90 call ramg_calcAv_g(level,pAux,epx,colm,rowp,lhsK,lhsP,
106 subroutine ramg_cheby_setup(colm,rowp,lhsK,lhsP, argument
114 integer,intent(in),dimension(nnz_tot) :: rowp local
129 call ramg_mls_eigen(mlsCf(lvl,1),lvl,1,colm,rowp,lhsK,lhsP,
H A Dramg_smoother.f5 subroutine ramg_calcPPEv(colm,rowp,lhsK,lhsP, argument
13 integer,intent(in),dimension(nnz_tot) :: rowp local
28 call fLesSparseApG(colm,rowp,lhsP,v,utmp,nshg,nnz_tot)
42 call fLesSparseApNGtC(colm,rowp,lhsP,utmp4,u,nshg,nnz_tot)
325 & colm,rowp,lhsK,lhsP, argument
336 integer,intent(in),dimension(nnz_tot) :: rowp local
362 & colm,rowp,lhsK,lhsP,
365 & colm,rowp,lhsK,lhsP,
372 & colm,rowp,lhsK,lhsP,
375 & colm,rowp,lhsK,lhsP,
[all …]
H A Dramg_ggb.f1 subroutine ramg_ggb_setup(colm,rowp,lhsK,lhsP, argument
11 integer,intent(in),dimension(nnz_tot) :: rowp local
112 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
152 & colm,rowp,lhsK,lhsP,
270 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper argument
285 integer,intent(in),dimension(nnz_tot) :: rowp local
300 call ramg_calcAv_g(clevel,vF,ramg_rhs,colm,rowp,lhsK,lhsP,
304 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
316 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper argument
328 integer,intent(in),dimension(nnz_tot) :: rowp local
[all …]
H A Dramg_control.f7 subroutine ramg_control(colm,rowp,lhsK,lhsP, argument
13 integer,intent(in),dimension(nnz_tot) :: rowp local
35 call ramg_extract_ppe(colm,rowp,lhsK,lhsP,
42 call ramg_cheby_setup(colm,rowp,lhsK,lhsP,
45 call ramg_mls_setup(colm,rowp,lhsK,lhsP,
57 call ramg_ggb_setup(colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
H A Dramg_extract.f13 & colm,rowp,lhsK,lhsP,
29 integer,intent(in),dimension(nnz_tot) :: rowp
87 & rowp,colm,lhsK,lhsP)
120 call ramg_global_lhs(colm,rowp,lhsP,nnz_tot,
H A Dramg_paratools.f487 & colm,rowp,lhsK,lhsP, argument
496 integer,intent(in),dimension(nnz_tot) :: rowp local
516 call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot)
527 call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot)
543 & colm,rowp,lhsK,lhsP, argument
553 integer,intent(in),dimension(nnz_tot) :: rowp local
570 call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot)
581 call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot)
594 & colm,rowp,lhsK,lhsP, argument
604 integer,intent(in),dimension(nnz_tot) :: rowp local
[all …]
H A Dramg_tools.f137 subroutine ramg_calcAv_g(level,u,v,colm,rowp,lhsK,lhsP, argument
148 integer,intent(in),dimension(nnz_tot) :: rowp local
164 call ramg_PPEAp(u,v,colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
442 subroutine ramg_check_diag(colm,rowp,lhs,nshg,nnz_tot) argument
446 integer,intent(in),dimension(nnz_tot) :: rowp local
457 if (rowp(p).ne.i) then
467 p = rowp(j)
H A Damgread.txt142 seperatedly: calculate nonzeros; form colm; form rowp and A. Yes there
186 loop. Use three loops, calculate nnz, create colm, then create rowp and
/phasta/phSolver/incompressible/
H A Dsolfar.f6 & shpb, shglb, rowp, argument
97 & rowp(nshg*nnz), colm(nshg+1), local
149 & rowp, colm, lhsK,
188 k = rowp(j)
190 IF (rowp(l) .EQ. i) THEN
225 call ramg_control(colm,rowp,lhsK,lhsP,
251 & nTmpDims, rowp, colm,
277 & nTmpDims, rowp, colm,
346 & shpb, shglb, rowp, argument
405 & rowp(nshg*nnz), colm(nshg+1), local
[all …]
H A Dgenlmass.f173 & rowp, colm, argument
180 integer rowp(nnz*nshg), colm(nshg+1) local
193 k = sparseloc( rowp(colm(n)), colm(n+1)-colm(n), n )
215 & rowp, colm, argument
222 integer rowp(nnz*nshg), colm(nshg+1) local
235 k = sparseloc( rowp(colm(n)), colm(n+1)-colm(n), n )
H A DelmStats.f81 & iper, ilwork, rowp, colm, argument
96 & ilwork(nlwork), rowp(nshg,nnz), local
111 & rowp, colm, lhsK,
H A Dlestools.c13 double *BC, int *iper, int *rowp,
29 double *BC, int *iper, int *rowp,
90 void FLESSPARSEAPFULL(int *colm, int *rowp, double *lhsK,
94 void FLESSPARSEAPSCLR(int *colm, int *rowp,
105 void FLESSPARSEAPG ( int *colm, int *rowp,
109 void FLESSPARSEAPNGT ( int *colm, int *rowp,
113 void FLESSPARSEAPNGTC ( int *colm, int *rowp,
117 void FLESSPARSEAPKG ( int *colm, int *rowp, double *lhsK,
120 void RAMG_INTERFACE ( int *colm, int *rowp, double *lhsK,double *lhsP,
141 usrHd->rowp, usrHd->colm, in lesPrepDiag()
[all …]
H A Delmgmr.f5 & rowp, colm, lhsK, argument
46 integer rowp(nshg*nnz), colm(nshg+1) local
186 & rowp, colm)
216 call lmassadd(ac,res,rowp,colm,lhsK,gmass)
312 & rowp, colm)
372 & rowp, colm, lhsS ) argument
400 integer ilwork(nlwork), rowp(nshg*nnz), colm(nshg+1) local
496 & rowp, colm)
509 call lmassaddSclr(ac(:,isclr), res,rowp,colm,lhsS,gmass)
H A DlesSparse.f15 & rowp, colm,
29 integer rowp(nnz_tot), colm(nshg+1)
39 k = sparseloc( rowp(colm(n)), colm(n+1)-colm(n), n )
149 & rowp, colm, lhsS )
156 & rowp(nnz_tot), colm(nshg+1)
163 k = sparseloc( rowp(colm(n)), colm(n+1)-colm(n), n )
H A Ditrdrv.f70 integer rowp(nshg,nnz), colm(nshg+1), local
214 call initEQS(iBC, rowp, colm,svLS_nFaces,
341 & iper, ilwork, rowp, colm,
395 & shpb, shglb, rowp,
448 & shpb, shglb, rowp,
501 & rowp, colm, lhsK, lhsP )
850 & iper, ilwork, rowp, colm, argument
863 integer rowp(nshg,nnz), colm(nshg+1), local
955 & iBC, BC, rowp, colm,
984 & rowp, colm,
[all …]
H A Dusr.h38 int* rowp ; /* row of p for nonzero's of A */ member
128 int* rowp,
H A Dusr.c59 int* rowp, in usrNew() argument
92 usrHd->rowp = rowp ; in usrNew()
H A Dsoldir.f55 & rowp, colm, lhsK,
H A Dstats.f191 & rowp, colm, lhsK, lhsP ) argument
207 & ilwork(nlwork), rowp(nshg*nnz), local
235 & iper, ilwork, rowp, colm,
H A DadvLES.f493 & rowp, colm, argument
528 integer rowp(nshg*nnz), colm(nshg+1) local
594 & rowp, colm)
661 & rowp, colm, iper, ilwork,
1608 & iBC, BC, rowp, colm, argument
1648 integer rowp(nshg*nnz), colm(nshg+1) local
1707 & rowp, colm)
/phasta/phSolver/common/
H A Dgenadj.f1 subroutine genadj (colm, rowp, icnt ) argument
7 integer rowp(nshg*nnz), colm(nshg+1) local
62 rowp(icnt)=imin
/phasta/phSolver/compressible/
H A Ditrdrv.f85 integer, allocatable, dimension(:,:) :: rowp local
167 allocate (rowp(nshg,nnz))
169 call genadj(colm, rowp, icnt ) ! preprocess the adjacency list
465 & colm, rowp, lhsk,
480 & colm, rowp, lhsk,
565 & colm, rowp,