Home
last modified time | relevance | path

Searched refs:lhsK (Results 1 – 25 of 27) sorted by relevance

12

/phasta/phSolver/compressible/
H A Dspsi3pre.f1 subroutine Spsi3pre (BDiag, lhsK, col, row) argument
26 real*8 lhsK(nflow*nflow,nnz_tot) local
50 lhsK(2,k) = lhsK(2,k)
51 & - BDiag(i,2,1) * lhsK(1,k)
52 lhsK(7,k) = lhsK(7,k)
53 & - BDiag(i,2,1) * lhsK(6,k)
54 lhsK(12,k) = lhsK(12,k)
55 & - BDiag(i,2,1) * lhsK(11,k)
56 lhsK(17,k) = lhsK(17,k)
57 & - BDiag(i,2,1) * lhsK(16,k)
[all …]
H A Dsparseap.f1 subroutine SparseAp(iper, ilwork, iBC, col, row, lhsK, p) argument
20 real*8 lhsK(nflow*nflow,nnz_tot) local
59 tmp1 = tmp1 + lhsK(1 ,k)*p(j,1)
60 1 + lhsK(6 ,k)*p(j,2)
61 2 + lhsK(11,k)*p(j,3)
62 3 + lhsK(16,k)*p(j,4)
63 4 + lhsK(21,k)*p(j,5)
64 tmp2 = tmp2 + lhsK(2 ,k)*p(j,1)
65 1 + lhsK(7 ,k)*p(j,2)
66 2 + lhsK(12,k)*p(j,3)
[all …]
H A Dsolgmr.f411 real*8 lhsK(nflow*nflow,nnz_tot)
454 & ilwork, lhsK, col,
495 if(lhs.eq.1) call Spsi3pre (BDiag, lhsK, col, row)
540 call SparseAp (iper,ilwork,iBC, col, row, lhsK, temp)
585 & col, row, lhsK,
H A Delmgmr.f284 & iper, ilwork, lhsK, argument
304 real*8 lhsK(nflow*nflow,nnz_tot) local
401 if (lhs. eq. 1) lhsK = zero
460 1 lhsK, row, col)
/phasta/phSolver/common/
H A Dfillsparse.f1 subroutine fillsparseI( iens, xKebe, lhsK, argument
10 real*8 lhsK(9,nnz_tot), lhsP(4,nnz_tot) local
44 lhsK(1,k) = lhsK(1,k) + xKebe(e,1,aa,b)
45 lhsK(2,k) = lhsK(2,k) + xKebe(e,2,aa,b)
46 lhsK(3,k) = lhsK(3,k) + xKebe(e,3,aa,b)
47 lhsK(4,k) = lhsK(4,k) + xKebe(e,4,aa,b)
48 lhsK(5,k) = lhsK(5,k) + xKebe(e,5,aa,b)
49 lhsK(6,k) = lhsK(6,k) + xKebe(e,6,aa,b)
50 lhsK(7,k) = lhsK(7,k) + xKebe(e,7,aa,b)
51 lhsK(8,k) = lhsK(8,k) + xKebe(e,8,aa,b)
[all …]
/phasta/phSolver/AMG/
H A Dramg_driver.f17 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper argument
31 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 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
120 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK local
149 call ramg_calcAv_g(level,cgQ,cgP,colm,rowp,lhsK,lhsP,
[all …]
H A Dramg_mls.f9 & colm,rowp,lhsK,lhsP, argument
23 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK local
136 call ramg_calcAv_g(level,twork2,twork1,colm,rowp,lhsK,lhsP,
140 & colm,rowp,lhsK,lhsP,
189 & colm,rowp,lhsK,lhsP, argument
203 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 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
380 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK local
[all …]
H A Dramg_cheby.f9 subroutine ramg_cheby_apply(u,v,r,level,colm,rowp,lhsK,lhsP, argument
22 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 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
115 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 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
14 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK local
325 & colm,rowp,lhsK,lhsP, argument
337 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK local
362 & colm,rowp,lhsK,lhsP,
365 & colm,rowp,lhsK,lhsP,
372 & colm,rowp,lhsK,lhsP,
375 & colm,rowp,lhsK,lhsP,
377 call ramg_calcAv_g(cl,myV,Asol,colm,rowp,lhsK,lhsP,
385 & colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper,titer)
[all …]
H A Dramg_ggb.f1 subroutine ramg_ggb_setup(colm,rowp,lhsK,lhsP, argument
13 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 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
286 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 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
329 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK local
[all …]
H A Dramg_control.f7 subroutine ramg_control(colm,rowp,lhsK,lhsP, argument
14 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 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,
30 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK
87 & rowp,colm,lhsK,lhsP)
H A Dramg_paratools.f487 & colm,rowp,lhsK,lhsP, argument
497 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK local
543 & colm,rowp,lhsK,lhsP, argument
554 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK local
594 & colm,rowp,lhsK,lhsP, argument
605 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK local
H A Dramg_tools.f137 subroutine ramg_calcAv_g(level,u,v,colm,rowp,lhsK,lhsP, argument
150 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK local
164 call ramg_PPEAp(u,v,colm,rowp,lhsK,lhsP,ilwork,BC,iBC,iper)
/phasta/phSolver/incompressible/
H A Dgenlmass.f174 & lhsK, gmass) argument
179 real*8 lhsK(9,nnz_tot), gmass(nshg), rho(nshg) local
196 lhsK(1,k) = lhsK(1,k) + tmp
197 lhsK(5,k) = lhsK(5,k) + tmp
198 lhsK(9,k) = lhsK(9,k) + tmp
H A Dsolvedata.f5 real*8, allocatable :: lhsP(:,:), lhsK(:,:), lhsS(:,:) variable
18 allocate (lhsK(9,nnz_tot))
43 deallocate (lhsK)
H A DelmStats.f82 & lhsK, lhsP ) argument
92 & BC(nshg,ndofBC), lhsK(9,nnz_tot), local
111 & rowp, colm, lhsK,
H A Dsolfar.f149 & rowp, colm, lhsK,
178 Val4(1:3,i) = lhsK(1:3,i)
179 Val4(5:7,i) = lhsK(4:6,i)
180 Val4(9:11,i) = lhsK(7:9,i)
225 call ramg_control(colm,rowp,lhsK,lhsP,
252 & lhsK, lhsP, rdtmp,
278 & lhsK, lhsP, rdtmp,
H A DlesSparse.f16 & lhsK, lhsP)
28 real*8 lhsK(9,nnz_tot), lhsP(4,nnz_tot)
42 flowdiag(n,1) = lhsK(1,k)
43 flowdiag(n,2) = lhsK(5,k)
44 flowdiag(n,3) = lhsK(9,k)
54 flowdiag(n,1) = flowdiag(n,1) + abs(lhsK(1,k))
56 flowdiag(n,2) = flowdiag(n,2) + abs(lhsK(5,k))
58 flowdiag(n,3) = flowdiag(n,3) + abs(lhsK(9,k))
H A Dusr.h40 double* lhsK ; /* sparse K matrix (9,nnzeros) */ member
130 double* lhsK,
H A Delmgmr.f5 & rowp, colm, lhsK, argument
48 real*8 lhsK(9,nnz_tot), lhsP(4,nnz_tot) local
184 & xKebe, lhsK,
216 call lmassadd(ac,res,rowp,colm,lhsK,gmass)
310 & xKebe, lhsK,
H A Dlestools.c30 int *colm, double *lhsK, double *lhsP) ;
90 void FLESSPARSEAPFULL(int *colm, int *rowp, double *lhsK,
117 void FLESSPARSEAPKG ( int *colm, int *rowp, double *lhsK,
120 void RAMG_INTERFACE ( int *colm, int *rowp, double *lhsK,double *lhsP,
142 usrHd->lhsK, usrHd->lhsP) ; in lesPrepDiag()
999 fLesSparseApKG( usrHd->colm, usrHd->rowp, usrHd->lhsK, in lesApKG()
1212 fLesSparseApFull( usrHd->colm, usrHd->rowp, usrHd->lhsK, in lesApFull()
1345 usrHd->rowp,usrHd->lhsK,usrHd->lhsP,usrHd->flowDiag, in lesPrecPPE()
H A Dusr.c61 double* lhsK, in usrNew() argument
94 usrHd->lhsK = lhsK ; in usrNew()
H A Dsoldir.f55 & rowp, colm, lhsK,
H A Dstats.f191 & rowp, colm, lhsK, lhsP ) argument
203 & BC(nshg,ndofBC), lhsK(9,nnz_tot), local
236 & lhsK, lhsP )

12