Lines Matching refs:temp
55 & temp(nshg,nflow),
124 temp = res**2
126 call sumgat (temp, nflow, summed, ilwork)
156 temp = Dy
162 call Au1GMR (EGmass, temp, ilwork, iBC,iper)
166 call bc3per (iBC, temp, iper, ilwork, nflow)
174 temp = res - temp
175 uBrg(:,:,1) = temp
179 temp = temp**2
180 call sumgat (temp, nflow, summed, ilwork)
228 temp = uBrg(:,:,iKs+1) * uBrg(:,:,1) ! {u_{i+1}*u_1} vector
229 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_1)
237 temp = uBrg(:,:,iKs+1) * uBrg(:,:,jK) !{u_{i+1}*u_j} vector
238 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_j)
426 & temp(nshg,nflow),
503 temp = res**2
505 call sumgat (temp, nflow, summed, ilwork)
535 temp = Dy
540 call SparseAp (iper,ilwork,iBC, col, row, lhsK, temp)
546 call bc3per (iBC, temp, iper, ilwork, nflow)
551 temp = res - temp
552 uBrg(:,:,1) = temp
556 temp = temp**2
557 call sumgat (temp, nflow, summed, ilwork)
602 temp = uBrg(:,:,iKs+1) * uBrg(:,:,1) ! {u_{i+1}*u_1} vector
603 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_1)
611 temp = uBrg(:,:,iKs+1) * uBrg(:,:,jK) !{u_{i+1}*u_j} vector
612 call sumgat (temp, nflow, beta, ilwork) ! sum vector=(u_{i+1},u_j)