Skip to main content

Browse the archive

https://github.com/cran/quantreg
05 April 2024, 23:45:33 UTC
Revision eb7100cbd8f9894b8f14637f3cf3bcde3cadf338 authored by Roger Koenker on 25 October 2017, 15:48:44 UTC, committed by cran-robot on 25 October 2017, 15:48:44 UTC 
version 5.34
1 parent e155e99
Raw File
Tip revision: eb7100cbd8f9894b8f14637f3cf3bcde3cadf338 authored by Roger Koenker on 25 October 2017, 15:48:44 UTC
version 5.34
Tip revision: eb7100c
extract.f 
c
c Extract: Subroutine to extract the non-diagonal structure and
c   entries from A stored in CSR format
c 
      subroutine extract(d,jd,id,dsub,jdsub,m,nnzd,nnzds,ierr)
      integer jd(nnzd),jdsub(nnzds),id(*),m,mp1,ierr,nnzd,nnzds
      double precision d(nnzd),dsub(nnzds)
c
c Call csrmsr in SPARSKIT2 to transform the storage format in d
c   from csr to msr
c
      call csrmsr(m,d,jd,id,dsub,jdsub,dsub,jdsub,nnzds,ierr)
      mp1 = m + 1
      do i=1,mp1
         jdsub(i) = jdsub(i) - mp1
      enddo
      return
      end
back to top