Lines Matching refs:beta
229 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_1)
235 uBrg(:,:,iKs+1) = uBrg(:,:,iKs+1) - beta * uBrg(:,:,jK-1)
238 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_j)
242 HBrg(jK,iKs) = beta ! put this in the Hessenberg Matrix
251 unorm = sqrt(beta)
603 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_1)
609 uBrg(:,:,iKs+1)=uBrg(:,:,iKs+1)-beta * uBrg(:,:,jK-1)
612 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_j)
616 HBrg(jK,iKs) = beta ! put this in the Hessenberg Matrix
625 if(beta.le.0) write(*,*) 'beta in solgmr non-positive'
626 unorm = sqrt(beta)
943 call sumgat (tempt, 1, beta, ilwork) ! sum vector=(u_{i+1},u_1)
949 uBrgt(:,iKss+1) = uBrgt(:,iKss+1) - beta * uBrgt(:,jK-1)
952 call sumgat (tempt, 1, beta, ilwork) ! sum vector=(u_{i+1},u_j)
956 HBrg(jK,iKss) = beta ! put this in the Hessenberg Matrix
965 unorm = sqrt(beta)