| /phasta/phSolver/compressible/ |
| H A D | i3lu.f | 1 subroutine i3LU (Diag, r, code) argument
34 dimension Diag(nshg,nflow,nflow), r(nshg,nflow)
43 Diag(:,1,1) = one / Diag(:,1,1)
45 Diag(:,2,1) = Diag(:,1,1) * Diag(:,2,1)
46 Diag(:,3,1) = Diag(:,1,1) * Diag(:,3,1)
47 Diag(:,4,1) = Diag(:,1,1) * Diag(:,4,1)
48 Diag(:,5,1) = Diag(:,1,1) * Diag(:,5,1)
50 Diag(:,2,2) = Diag(:,2,2) - Diag(:,2,1) * Diag(:,1,2)
51 Diag(:,2,3) = Diag(:,2,3) - Diag(:,2,1) * Diag(:,1,3)
52 Diag(:,2,4) = Diag(:,2,4) - Diag(:,2,1) * Diag(:,1,4)
[all …]
|
| H A D | i3ldu.f | 1 subroutine i3LDU (Diag, r, code) argument
44 dimension Diag(nshg,nsymdf), r(nshg,nflow)
52 Diag(:, 1) = one / sqrt (Diag(:, 1))
54 Diag(:, 2) = Diag(:, 1) * Diag(:, 2)
55 Diag(:, 3) = Diag(:, 3) - Diag(:, 2) * Diag(:, 2)
56 Diag(:, 3) = one / sqrt (Diag(:, 3))
58 Diag(:, 4) = Diag(:, 1) * Diag(:, 4)
59 Diag(:, 5) = Diag(:, 3) * (Diag(:, 5)
60 & - Diag(:, 4) * Diag(:, 2))
61 Diag(:, 6) = Diag(:, 6) - Diag(:, 4) * Diag(:, 4)
[all …]
|
| H A D | bc3bdg.f | 394 subroutine bc3BDgSclr (iBC, Diag, iper, ilwork) argument
418 & Diag(nshg), ilwork(nlwork),
427 Diag(:) = one
435 Diag(i) = Diag(i) + Diag(j)
443 Diag(i) = Diag(iper(i))
463 Diag(isgbeg:isgend) = one
|
| H A D | asigmr.f | 127 & qrest, EGmasst, Diag) argument
146 & rmest(nshg), Diag(nshg),
199 call local(Diag, Diagl, ien, 1, 'scatter ')
|
| H A D | i3pre.f | 150 subroutine i3preSclr (Diag, Dinv, EGmassT, ilwork ) argument
175 dimension Dinvl(numel,nshape), Diag(nshg)
177 Dinv = one/Diag
|
| H A D | elmgmr.f | 621 & rest, rmest, Diag, argument
643 & rest(nshg), Diag(nshg),
745 if (iprec. ne. 0) Diag = zero
784 & Diag )
861 if(iprec .ne. 0) call commu (Diag, ilwork, 1, 'in ')
873 call bc3BDgSclr (iBC, Diag, iper, ilwork)
|
| H A D | elmgmrpetsc.f | 327 & rest(nshg), Diag(1),
409 & Diag )
|
| H A D | solgmr.f | 796 & Diag(nshg),
823 & rmest, Diag, iper,
840 call i3preSclr(Diag, Dinv, EGmassT, ilwork)
|