The R Project SVN R

Rev

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

Rev 5457 Rev 12778
Line 132... Line 132...
132 
c     linpack. this version dated 08/14/78 .
 132 
c     linpack. this version dated 08/14/78 .
133 
c     g.w. stewart, university of maryland, argonne national lab.
 133 
c     g.w. stewart, university of maryland, argonne national lab.
134 
c
 134 
c
135 
c     dqrsl uses the following functions and subprograms.
 135 
c     dqrsl uses the following functions and subprograms.
136 
c
 136 
c
137 
c     BLAS	daxpy,dcopy,ddot
 137 
c     BLAS      daxpy,dcopy,ddot
138 
c     Fortran	dabs,min0,mod
 138 
c     Fortran   dabs,min0,mod
139 
c
 139 
c
140 
      subroutine dqrsl(x,ldx,n,k,qraux,y,qy,qty,b,rsd,xb,job,info)
 140 
      subroutine dqrsl(x,ldx,n,k,qraux,y,qy,qty,b,rsd,xb,job,info)
141 
      implicit none
 - 
 
142 
      integer ldx,n,k,job,info
 141 
      integer ldx,n,k,job,info
143 
      double precision x(ldx,*),qraux(*),y(*),qy(*),qty(*),b(*),rsd(*),
 142 
      double precision x(ldx,*),qraux(*),y(*),qy(*),qty(*),b(*),rsd(*),
144 
     *                 xb(*)
 143 
     *                 xb(*)
145 
c
 144 
c
146 
c     internal variables
 145 
c     internal variables