| /phasta/phSolver/compressible/ |
| H A D | solmfg.f | 152 iKs = 0
222 iKs = iK
226 temp = uBrg(:,:,iKs)
236 uBrg(:,:,iKs+1) = temp ! u_{i+1}= J u_i In Johan Thesis p 15c
247 do jK = 1, iKs+1
251 temp = uBrg(:,:,iKs+1) * uBrg(:,:,1) ! {u_{i+1}*u_1} vector
258 uBrg(:,:,iKs+1) = uBrg(:,:,iKs+1) - beta * uBrg(:,:,jK-1)
260 temp = uBrg(:,:,iKs+1) * uBrg(:,:,jK) !{u_{i+1}*u_j} vector
265 HBrg(jK,iKs) = beta ! put this in the Hessenberg Matrix
275 HBrg(iKs+1,iKs) = unorm ! this fills the 1 sub diagonal band
[all …]
|
| H A D | solgmr.f | 131 iKs = 0
201 iKs = iK
203 uBrg(:,:,iKs+1) = uBrg(:,:,iKs)
211 call Au1GMR ( EGmass, uBrg(:,:,iKs+1), ilwork, iBC,iper)
215 call bc3per (iBC, uBrg(:,:,iKs+1), iper, ilwork, nflow)
224 do jK = 1, iKs+1
228 temp = uBrg(:,:,iKs+1) * uBrg(:,:,1) ! {u_{i+1}*u_1} vector
235 uBrg(:,:,iKs+1) = uBrg(:,:,iKs+1) - beta * uBrg(:,:,jK-1)
237 temp = uBrg(:,:,iKs+1) * uBrg(:,:,jK) !{u_{i+1}*u_j} vector
242 HBrg(jK,iKs) = beta ! put this in the Hessenberg Matrix
[all …]
|
| H A D | rstat.f | 127 & lGMRES, iKs, ntotGM
132 & lGMRES, iKs, ntotGM
137 & lGMRES, iKs, ntotGM
358 & lGMRES, iKs, ntotGM
362 & lGMRES, iKs, ntotGM
|
| H A D | solgmrpetsc.c | 382 itrpar.iKs=0; // see rstat() in SolGMRp()
385 itrpar.iKs = (int) its; in SolGMRp()
|
| /phasta/M2N/include/ |
| H A D | commonM2N_c.h | 371 int iKs; member
|
| H A D | commonM2N.h | 170 common /itrpar/ eGMRES, lGMRES, iKs, ntotGM
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat_c.h | 371 int iKs; member
|
| H A D | commonAcuStat.h | 170 common /itrpar/ eGMRES, lGMRES, iKs, ntotGM
|
| /phasta/M2NFixBnd/include/ |
| H A D | commonM2NFixBnd_c.h | 371 int iKs; member
|
| H A D | commonM2NFixBnd.h | 170 common /itrpar/ eGMRES, lGMRES, iKs, ntotGM
|
| /phasta/phSolver/common/ |
| H A D | input.f | 269 write (23,*) eGMRES, lGMRES, iKs, ntotGM
|
| H A D | common_c.h | 453 int iKs; member
|
| H A D | common.h | 217 common /itrpar/ eGMRES, lGMRES, lGMRESs, iKs, iKss, ntotGM, ntotGMs
|