We are hiring ! See our job offers.
Revision 948ad5967298b4dc174f4d96511af60f38e9279e authored by Roger Koenker on 27 July 2019, 09:38:23 UTC, committed by cran-robot on 27 July 2019, 09:38:23 UTC
1 parent 2b3a85a
Raw File
rqs.f
C Output from Public domain Ratfor, version 1.0
      subroutine rqs(m,n,k,m5,n2,a,b,tau,toler,ift,x,e,s,wa,wb)
      double precision b(m,k),a(m,n),x(n,k),e(m),wa(m5,n2),wb(m)
      double precision tau,toler
      integer s(m),m,n,k,m5,n2,ift(k)
      do23000 i=1,k
      call rq0(m,n,m5,n2,a,b(1,i),tau,toler,ift(i),x(1,i),e,s,wa,wb)
23000 continue
23001 continue
      return
      end
back to top