R/suvC.R

In softImpute: Matrix Completion via Iterative Soft-Thresholded SVD

suvC <-
function(u,v,irow,pcol){
  dd=dim(u)
  nnrow=as.integer(dd[1])
  nncol=as.integer(nrow(v))
  nrank=dd[2]
  storage.mode(u)="double"
  storage.mode(v)="double"
  storage.mode(irow)="integer"
  storage.mode(pcol)="integer"
  nomega=as.integer(length(irow))
  .Fortran("suvC",
           nnrow,nncol,nrank,u,v,irow,pcol,nomega,
           r=double(nomega),
           PACKAGE="softImpute"
           )$r
}