| /phasta/phSolver/compressible/ |
| H A D | bc3bdg.f | 1 subroutine bc3BDg (y, iBC, BC, BDiag, iper, ilwork) argument
28 & BDiag(nshg,nflow,nflow), ilwork(nlwork),
43 BDiag(:,5,5) = BDiag(:,5,5) + a5 * a5 * BDiag(:,1,1) +
44 & a5 * BDiag(:,1,5) +
45 & a5 * BDiag(:,5,1)
46 BDiag(:,4,5) = BDiag(:,4,5) + a5 * BDiag(:,4,1)
47 BDiag(:,3,5) = BDiag(:,3,5) + a5 * BDiag(:,3,1)
48 BDiag(:,2,5) = BDiag(:,2,5) + a5 * BDiag(:,2,1)
49 BDiag(:,5,4) = BDiag(:,5,4) + a5 * BDiag(:,1,4)
50 BDiag(:,5,3) = BDiag(:,5,3) + a5 * BDiag(:,1,3)
[all …]
|
| H A D | spsi3pre.f | 1 subroutine Spsi3pre (BDiag, lhsK, col, row) argument
30 dimension BDiag(nshg,nflow,nflow)
51 & - BDiag(i,2,1) * lhsK(1,k)
53 & - BDiag(i,2,1) * lhsK(6,k)
55 & - BDiag(i,2,1) * lhsK(11,k)
57 & - BDiag(i,2,1) * lhsK(16,k)
59 & - BDiag(i,2,1) * lhsK(21,k)
62 & - BDiag(i,3,1) * lhsK(1,k)
63 & - BDiag(i,3,2) * lhsK(2,k)
65 & - BDiag(i,3,1) * lhsK(6,k)
[all …]
|
| H A D | solmfg.f | 4 & BDiag, HBrg, eBrg, argument
46 & BDiag(nshg,nflow,nflow),
76 & BDiag, iper, ilwork,
93 & call i3LU (BDiag, res, 'LU_Fact ')
98 call i3LU (BDiag, res, 'forward ')
112 call i3LU (BDiag, rmes, 'forward ')
130 call i3LU (BDiag, ypre, 'product ')
168 & res, BDiag, iBC,
189 & BDiag, iBC, BC,
230 & res, temp, BDiag,
[all …]
|
| H A D | itrfdi.f | 2 & rmes, uBrg, BDiag,
42 & uBrg(nshg,nflow), BDiag(nshg,nflow,nflow),
63 call i3LU (BDiag, ytmp, 'backward')
79 call i3LU (BDiag, rtmp, 'forward ')
99 call i3LU (BDiag, ytmp, 'backward')
117 call i3LU (BDiag, ytmp, 'backward')
128 call i3LU (BDiag, rtmp, 'forward ')
152 & rmes, uBrg, BDiag,
192 & uBrg(nshg,nflow), BDiag(nshg,nflow,nflow),
|
| H A D | au2mfg.f | 3 & uBrg, BDiag, iBC, BC,
38 & uBrg(nshg,nflow), BDiag(nshg,nflow,nflow),
67 call i3LU (BDiag, uBrg, 'backward')
81 call i3LU (BDiag, uBtmp1, 'forward ')
91 call i3LU (BDiag, uBrg, 'backward')
104 call i3LU (BDiag, uBtmp2, 'forward ')
|
| H A D | au1mfg.f | 3 & BDiag, iBC, BC,
43 & BDiag(nshg,nflow,nflow), iBC(nshg),
66 call i3LU (BDiag, uBrg, 'backward')
79 call i3LU (BDiag, uBtmp, 'forward ')
|
| H A D | solgmr.f | 3 & res, BDiag, HBrg, eBrg,
47 & BDiag(nshg,nflow,nflow),
81 & rmes, BDiag, iper,
95 & call i3LU (BDiag, res, 'LU_Fact ')
100 call i3LU (BDiag, res, 'forward ')
112 call i3pre (BDiag, Binv, EGmass, ilwork)
347 call i3LU (BDiag, Dy, 'backward')
371 & res, BDiag, HBrg, eBrg,
419 & BDiag(nshg,nflow,nflow),
453 & rmes, BDiag, iper,
[all …]
|
| H A D | elmmfg.f | 4 & res, rmes, BDiag, argument
26 & rmes(nshg,nflow), BDiag(nshg,nflow,nflow),
121 if (iprec .ne. 0) BDiag = zero
156 & rmes, BDiag,
230 if(iprec.ne.0) call commu(BDiag,ilwork, nflow*nflow, 'in ')
245 call bc3BDg (y, iBC, BC, BDiag, iper, ilwork)
|
| H A D | elmgmr.f | 4 & res, rmes, BDiag, argument
28 & rmes(nshg,nflow), BDiag(nshg,nflow,nflow),
120 if (iprec .ne. 0) BDiag = zero
159 & rmes, BDiag,
254 if(iprec .ne. 0) call commu (BDiag, ilwork, nflow*nflow, 'in ')
267 call bc3BDg (y, iBC, BC, BDiag, iper, ilwork)
283 & res, rmes, BDiag, argument
311 & rmes(nshg,nflow), BDiag(nshg,nflow,nflow),
402 if (iprec .ne. 0) BDiag = zero
446 & rmes, BDiag,
[all …]
|
| H A D | asimfg.f | 3 & res, rmes, BDiag, qres, rerr) argument
23 & rmes(nshg,nflow), BDiag(nshg,nflow,nflow),
99 & call local (BDiag, BDiagl, ien, nflow*nflow, 'scatter ')
|
| H A D | itrdrv.f | 63 real*8, allocatable, dimension(:,:,:) :: BDiag local
174 allocate (BDiag(1,1,1))
176 allocate (BDiag(nshg,nflow,nflow))
184 allocate (BDiag(nshg,nflow,nflow))
192 allocate (BDiag(nshg,nflow,nflow))
467 & BDiag,
482 & BDiag, hBrg, eBrg,
500 & BDiag, HBrg, eBrg,
519 & BDiag, HBrg, eBrg,
|
| H A D | i3pre.f | 30 & BDiag(nshg,nflow,nflow)
32 BDiag = BDtmp
35 call commu (BDiag , ilwork, nflow*nflow , 'out')
53 call local (BDiag, BDiagl(iel:inum,:,:,:), abs(mien(iblk)%p),
|
| H A D | asigmr.f | 4 & BDiag, qres, EGmass, rerr) argument
25 & rmes(nshg,nflow), BDiag(nshg,nflow,nflow),
102 call local (BDiag, BDiagl, ien, nflow*nflow, 'scatter ')
|
| H A D | elmgmrpetsc.f | 31 real*8 BDiag(1,1,1) local
180 & rmes, BDiag,
|
| H A D | solgmrpetsc.c | 62 double* res, double* BDiag, in SolGMRp() argument
|