Searched refs:yBrg (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | solgmr.f | 4 & yBrg, Rcos, Rsin, iper,
49 & yBrg(*), Rcos(*),
307 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
309 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)
316 Dy = Dy + yBrg(jK) * uBrg(:,:,jK)
372 & yBrg, Rcos, Rsin, iper,
421 & yBrg(Kspace), Rcos(Kspace),
682 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
684 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)
691 Dy = Dy + yBrg(jK) * uBrg(:,:,jK)
[all …]
|
| H A D | solmfg.f | 5 & yBrg, Rcos, Rsin, iper, argument
48 & yBrg(Kspace), Rcos(Kspace),
330 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
332 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)
339 Dy = Dy + yBrg(jK) * uBrg(:,:,jK)
|
| H A D | itrdrv.f | 80 real*8, allocatable, dimension(:) :: yBrg local
159 allocate(yBrg(Kspace))
483 & yBrg, Rcos, Rsin,
501 & yBrg, Rcos, Rsin,
520 & yBrg, Rcos, Rsin,
581 & yBrg, Rcos, Rsin,
|