Lines Matching refs:rm2
2 x rm1,rm2,rv1,rv2,rv3,rv4) argument
5 x rm1(m,m),rm2(m,*),rv1(n),rv2(n),rv3(m),rv4(m) local
203 rm2(ii,1) = s
205 rm2(ii,1) = rm2(ii,1) + wi(l+1) * rv2(i)
215 rm2(ii,2) = s
222 call dqrsm(rm1,m,mr,mr1,rm2,m,nc,rm2,m,ir,jpvt,
228 rv1(i) = rm2(ii,1)
229 if (complx) rv2(i) = rm2(ii,2)
324 rm2(ii,1) = a(i,l)
327 call dqrsm(rm1,m,m1,m,rm2,m,1,g(1,l),ng,ir,jpvt,rv3,rv4)
355 rm2(ii,1) = p
358 rm2(ii,2) = q
361 call dqrsm(rm1,m,m1,m,rm2,m,2,rm2,m,ir,jpvt,rv3,rv4)
368 g(i,j) = rm2(i,jj)
407 if (ii .lt. jj) rm2(ii,jj) = 0.0d+0
408 if (ii .gt. jj) rm2(ii,jj) = a(i,j)
417 rm2(ii,ii) = a(i,i) - wr(i)
421 420 rm2(ii,ii) = a(i,i) - wr(i)
422 rm2(ii,ii+1) = a(i,i+1) - wi(i)
423 rm2(ii+1,ii) = a(i+1,i) - wi(i+1)
424 rm2(ii+1,ii+1) = a(i+1,i+1) - wr(i+1)
427 430 call dqrsm(rm1,m,mr,m,rm2,m,m,rm2,m,ir,jpvt,rv3,rv4)
434 g(i,j) = rm2(i,jj)