The R Project SVN R

Rev

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

Rev 42390 Rev 47016
Line 63... Line 63...
63 
c
 63 
c
64 
c        jpvt    jpvt(k) contains the index of the column of the
 64 
c        jpvt    jpvt(k) contains the index of the column of the
65 
c                original matrix that has been interchanged into
 65 
c                original matrix that has been interchanged into
66 
c                the k-th column.
 66 
c                the k-th column.
67 
c
 67 
c
- 
 
 68 
c     original (dqrdc.f) linpack version dated 08/14/78 .
- 
 
 69 
c     g.w. stewart, university of maryland, argonne national lab.
- 
 
 70 
c
68 
c     this version dated 22 august 1995
 71 
c     this version dated 22 august 1995
69 
c     ross ihaka
 72 
c     ross ihaka
70 
c
 73 
c
71 
c     bug fixes 29 September 1999 BDR (p > n case, inaccurate ranks)
 74 
c     bug fixes 29 September 1999 BDR (p > n case, inaccurate ranks)
72 
c
 75 
c
73 
c
 76 
c
74 
c     dqrdc uses the following functions and subprograms.
 77 
c     dqrdc2 uses the following functions and subprograms.
75 
c
 78 
c
76 
c     blas daxpy,ddot,dscal,dnrm2
 79 
c     blas daxpy,ddot,dscal,dnrm2
77 
c     fortran dabs,dmax1,min0,dsqrt
 80 
c     fortran dabs,dmax1,min0,dsqrt
78 
c
 81 
c
79 
      subroutine dqrdc2(x,ldx,n,p,tol,k,qraux,jpvt,work)
 82 
      subroutine dqrdc2(x,ldx,n,p,tol,k,qraux,jpvt,work)