Searched refs:Rcos (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | solgmr.f | 4 & yBrg, Rcos, Rsin, iper,
49 & yBrg(*), Rcos(*),
271 tmp = Rcos(jK) * HBrg(jK, iKs) +
274 & Rcos(jK) * HBrg(jK+1,iKs)
279 Rcos(iKs) = HBrg(iKs, iKs) / tmp
286 tmp = Rcos(iKs) * eBrg(iKs) + Rsin(iKs) * eBrg(iKs+1)
287 eBrg(iKs+1) =-Rsin(iKs) * eBrg(iKs) + Rcos(iKs) * eBrg(iKs+1)
372 & yBrg, Rcos, Rsin, iper,
421 & yBrg(Kspace), Rcos(Kspace),
646 tmp = Rcos(jK) * HBrg(jK, iKs) +
[all …]
|
| H A D | solmfg.f | 5 & yBrg, Rcos, Rsin, iper, argument
48 & yBrg(Kspace), Rcos(Kspace),
294 tmp = Rcos(jK) * HBrg(jK, iKs) +
297 & Rcos(jK) * HBrg(jK+1,iKs)
302 Rcos(iKs) = HBrg(iKs, iKs) / tmp
309 tmp = Rcos(iKs) * eBrg(iKs) + Rsin(iKs) * eBrg(iKs+1)
310 eBrg(iKs+1) = -Rsin(iKs) * eBrg(iKs) + Rcos(iKs) * eBrg(iKs+1)
|
| H A D | itrdrv.f | 81 real*8, allocatable, dimension(:) :: Rcos, Rsin local
160 allocate(Rcos(Kspace))
483 & yBrg, Rcos, Rsin,
501 & yBrg, Rcos, Rsin,
520 & yBrg, Rcos, Rsin,
581 & yBrg, Rcos, Rsin,
|