Searched refs:eBrg (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | solgmr.f | 3 & res, BDiag, HBrg, eBrg,
48 & HBrg(Kspace+1,*), eBrg(*),
191 call clear (eBrg, Kspace+1)
192 eBrg(1) = unorm
286 tmp = Rcos(iKs) * eBrg(iKs) + Rsin(iKs) * eBrg(iKs+1)
287 eBrg(iKs+1) =-Rsin(iKs) * eBrg(iKs) + Rcos(iKs) * eBrg(iKs+1)
288 eBrg(iKs) = tmp
293 echeck=abs(eBrg(iKs+1))
307 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
309 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)
[all …]
|
| H A D | solmfg.f | 4 & BDiag, HBrg, eBrg, argument
47 & HBrg(Kspace+1,Kspace), eBrg(Kspace+1),
212 call clear (eBrg, Kspace+1)
213 eBrg(1) = unorm
309 tmp = Rcos(iKs) * eBrg(iKs) + Rsin(iKs) * eBrg(iKs+1)
310 eBrg(iKs+1) = -Rsin(iKs) * eBrg(iKs) + Rcos(iKs) * eBrg(iKs+1)
311 eBrg(iKs) = tmp
316 echeck=abs(eBrg(iKs+1))
330 yBrg(jK) = eBrg(jK) / HBrg(jK,jK)
332 eBrg(lK) = eBrg(lK) - yBrg(jK) * HBrg(lK,jK)
[all …]
|
| H A D | itrdrv.f | 79 real*8, allocatable, dimension(:) :: eBrg local
158 allocate(eBrg(Kspace+1))
482 & BDiag, hBrg, eBrg,
500 & BDiag, HBrg, eBrg,
519 & BDiag, HBrg, eBrg,
580 & HBrg, eBrg,
|