Searched refs:Rsin (Results 1 – 3 of 3) sorted by relevance
| /phasta/phSolver/compressible/ |
| H A D | solgmr.f | 4 & yBrg, Rcos, Rsin, iper,
50 & Rsin(*), ilwork(nlwork),
272 & Rsin(jK) * HBrg(jK+1,iKs)
273 HBrg(jK+1,iKs) = -Rsin(jK) * HBrg(jK, iKs) +
280 Rsin(iKs) = HBrg(iKs+1,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,
422 & Rsin(Kspace), ilwork(nlwork),
647 & Rsin(jK) * HBrg(jK+1,iKs)
[all …]
|
| H A D | solmfg.f | 5 & yBrg, Rcos, Rsin, iper, argument
49 & Rsin(Kspace), ilwork(nlwork),
295 & Rsin(jK) * HBrg(jK+1,iKs)
296 HBrg(jK+1,iKs) = -Rsin(jK) * HBrg(jK, iKs) +
303 Rsin(iKs) = HBrg(iKs+1,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
161 allocate(Rsin(Kspace))
483 & yBrg, Rcos, Rsin,
501 & yBrg, Rcos, Rsin,
520 & yBrg, Rcos, Rsin,
581 & yBrg, Rcos, Rsin,
|