The R Project SVN R

Rev

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

Rev 13602 Rev 76639
Line 78... Line 78...
78 
c     blas daxpy,ddot,dscal,dswap,dnrm2
 78 
c     blas daxpy,ddot,dscal,dswap,dnrm2
79 
c     fortran dabs,dmax1,min0,dsqrt
 79 
c     fortran dabs,dmax1,min0,dsqrt
80 
c
 80 
c
81 
      subroutine dqrdc(x,ldx,n,p,qraux,jpvt,work,job)
 81 
      subroutine dqrdc(x,ldx,n,p,qraux,jpvt,work,job)
82 
      integer ldx,n,p,job
 82 
      integer ldx,n,p,job
83 
      integer jpvt(*)
 83 
      integer jpvt(p)
84 
      double precision x(ldx,*),qraux(*),work(*)
 84 
      double precision x(ldx,p),qraux(p),work(p)
85 
c
 85 
c
86 
c     internal variables
 86 
c     internal variables
87 
c
 87 
c
88 
      integer j,jp,jj, l,lp1,lup,maxj,pl,pu
 88 
      integer j,jp,jj, l,lp1,lup,maxj,pl,pu
89 
      double precision maxnrm,dnrm2,tt
 89 
      double precision maxnrm,dnrm2,tt