The R Project SVN R

Rev

Rev 71137 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 71137 Rev 76639
Line 80... Line 80...
80 
c     dqrfit uses the linpack routines dqrdc and dqrsl.
 80 
c     dqrfit uses the linpack routines dqrdc and dqrsl.
81 
c
 81 
c
82 
      subroutine dqrls(x,n,p,y,ny,tol,b,rsd,qty,k,jpvt,qraux,work)
 82 
      subroutine dqrls(x,n,p,y,ny,tol,b,rsd,qty,k,jpvt,qraux,work)
83 
      integer n,p,ny,k,jpvt(p)
 83 
      integer n,p,ny,k,jpvt(p)
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(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,j,jj,kk
90 
c
 90 
c