Home
last modified time | relevance | path

Searched refs:colm (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
29 integer,intent(in),dimension(nshg+1) :: colm 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
117 integer,intent(in),dimension(nshg+1) :: colm local
149 call ramg_calcAv_g(level,cgQ,cgP,colm,rowp,lhsK,lhsP,
[all …]
H A Dramg_mls.f9 & colm,rowp,lhsK,lhsP, argument
20 integer,intent(in),dimension(nshg+1) :: colm local
136 call ramg_calcAv_g(level,twork2,twork1,colm,rowp,lhsK,lhsP,
140 & colm,rowp,lhsK,lhsP,
189 & colm,rowp,lhsK,lhsP, argument
200 integer,intent(in),dimension(nshg+1) :: colm 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
378 integer,intent(in),dimension(nshg+1) :: colm local
[all …]
H A Dramg_cheby.f9 subroutine ramg_cheby_apply(u,v,r,level,colm,rowp,lhsK,lhsP, argument
19 integer,intent(in),dimension(nshg+1) :: colm 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
113 integer,intent(in),dimension(nshg+1) :: colm 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
12 integer,intent(in),dimension(nshg+1) :: colm 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
335 integer,intent(in),dimension(nshg+1) :: colm 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
10 integer,intent(in),dimension(nshg+1) :: colm 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
284 integer,intent(in),dimension(nshg+1) :: colm 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
327 integer,intent(in),dimension(nshg+1) :: colm local
[all …]
H A Dramg_control.f7 subroutine ramg_control(colm,rowp,lhsK,lhsP, argument
12 integer,intent(in),dimension(nshg+1) :: colm 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,
28 integer,intent(in),dimension(nshg+1) :: colm
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
495 integer,intent(in),dimension(nshg+1) :: colm 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
552 integer,intent(in),dimension(nshg+1) :: colm 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
603 integer,intent(in),dimension(nshg+1) :: colm local
[all …]
H A Dramg_tools.f137 subroutine ramg_calcAv_g(level,u,v,colm,rowp,lhsK,lhsP, argument
147 integer,intent(in),dimension(nshg+1) :: colm 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
445 integer,intent(in),dimension(nshg+1) :: colm local
456 p = colm(i)
466 do j = colm(i)+1,colm(i+1)-1
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 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 )
194 & + colm(n)-1
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 )
236 & + colm(n)-1
H A Dsolfar.f7 & colm, argument
97 & rowp(nshg*nnz), colm(nshg+1), local
149 & rowp, colm, lhsK,
187 Do j=colm(i), colm(i+1) - 1
189 DO l=colm(k), colm(k+1) - 1
225 call ramg_control(colm,rowp,lhsK,lhsP,
251 & nTmpDims, rowp, colm,
277 & nTmpDims, rowp, colm,
347 & colm, solinc, argument
405 & rowp(nshg*nnz), colm(nshg+1), local
[all …]
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 )
40 & + colm(n)-1
51 do k=colm(n),colm(n+1)-1
149 & rowp, colm, lhsS )
156 & rowp(nnz_tot), colm(nshg+1)
163 k = sparseloc( rowp(colm(n)), colm(n+1)-colm(n), n )
164 & + colm(n)-1
H A DelmStats.f81 & iper, ilwork, rowp, colm, argument
97 & colm(nshg+1) local
111 & rowp, colm, lhsK,
H A Dlestools.c14 int *colm, double *lhsS);
30 int *colm, double *lhsK, double *lhsP) ;
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 Ditrdrv.f70 integer rowp(nshg,nnz), colm(nshg+1), local
214 call initEQS(iBC, rowp, colm,svLS_nFaces,
341 & iper, ilwork, rowp, colm,
396 & colm,
449 & colm,
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.h39 int* colm ; /* start index for rowp vector */ member
129 int* colm,
H A Dusr.c60 int* colm, in usrNew() argument
93 usrHd->colm = colm ; in usrNew()
H A Dsoldir.f55 & rowp, colm, lhsK,
H A Dstats.f191 & rowp, colm, lhsK, lhsP ) argument
208 & colm(nshg+1) 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
44 colm(1)=1
46 colm(i+1)=colm(i)+adjcnt(i)
/phasta/phSolver/compressible/
H A Ditrdrv.f86 integer, allocatable, dimension(:) :: colm local
168 allocate (colm(nshg+1))
169 call genadj(colm, rowp, icnt ) ! preprocess the adjacency list
465 & colm, rowp, lhsk,
480 & colm, rowp, lhsk,
565 & colm, rowp,