Searched refs:HBrg (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(*),
242 HBrg(jK,iKs) = beta ! put this in the Hessenberg Matrix
252 HBrg(iKs+1,iKs) = unorm ! this fills the 1 sub diagonal band
271 tmp = Rcos(jK) * HBrg(jK, iKs) +
272 & Rsin(jK) * HBrg(jK+1,iKs)
273 HBrg(jK+1,iKs) = -Rsin(jK) * HBrg(jK, iKs) +
274 & Rcos(jK) * HBrg(jK+1,iKs)
275 HBrg(jK, iKs) = tmp
278 tmp = sqrt(HBrg(iKs,iKs)**2 + HBrg(iKs+1,iKs)**2)
[all …]
|
| H A D | solmfg.f | 4 & BDiag, HBrg, eBrg, argument
47 & HBrg(Kspace+1,Kspace), eBrg(Kspace+1),
265 HBrg(jK,iKs) = beta ! put this in the Hessenberg Matrix
275 HBrg(iKs+1,iKs) = unorm ! this fills the 1 sub diagonal band
294 tmp = Rcos(jK) * HBrg(jK, iKs) +
295 & Rsin(jK) * HBrg(jK+1,iKs)
296 HBrg(jK+1,iKs) = -Rsin(jK) * HBrg(jK, iKs) +
297 & Rcos(jK) * HBrg(jK+1,iKs)
298 HBrg(jK, iKs) = tmp
301 tmp = sqrt(HBrg(iKs,iKs)**2 + HBrg(iKs+1,iKs)**2)
[all …]
|
| H A D | itrdrv.f | 78 real*8, allocatable, dimension(:,:) :: HBrg local
157 allocate(HBrg(Kspace+1,Kspace))
500 & BDiag, HBrg, eBrg,
519 & BDiag, HBrg, eBrg,
580 & HBrg, eBrg,
|