swh:1:snp:16c54c84bc54885e783d4424d714e5cc82f479a1
Tip revision: 0a68d14c3f6b78fc846532d7376f94f4500958cc authored by Roger Koenker on 05 February 2022, 11:10:02 UTC
version 5.88
version 5.88
Tip revision: 0a68d14
rqs.f
C Output from Public domain Ratfor, version 1.05
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