The R Project SVN R

Rev

Rev 76639 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 76639 Rev 84713
Line 84... Line 84...
84 
      double precision x(n,p),y(n,ny),tol,b(p,ny),rsd(n,ny),
 84 
      double precision x(n,p),y(n,ny),tol,b(p,ny),rsd(n,ny),
85 
     .                 qty(n,ny),qraux(p),work(2*p)
 85 
     .                 qty(n,ny),qraux(p),work(2*p)
86 
c
 86 
c
87 
c     internal variables.
 87 
c     internal variables.
88 
c
 88 
c
89 
      integer info,j,jj,kk
 89 
      integer info,i,j,jj,kk
90 
c
 90 
c
91 
c     reduce x.
 91 
c     reduce x.
92 
c
 92 
c
93 
      call dqrdc2(x,n,n,p,tol,k,qraux,jpvt,work)
 93 
      call dqrdc2(x,n,n,p,tol,k,qraux,jpvt,work)
94 
c
 94 
c