R/dsmatrix/dsmatrix_misc.r

In pbdDMAT: 'pbdR' Distributed Matrix Methods

setMethod("print", signature(x="dsmatrix"),
  function(x, ..., all=FALSE, fmt="default")
  {
    if (all)
    {
      pbdSBASE::petsc_matprinter(dim=x@dim, ldim=x@ldim, data=x@Data, x@row_ptr, x@col_ind, fmt=fmt)
    } 
    else 
    {
      if (comm.rank()==0)
      {
        cat(sprintf("\nSPARSE DISTRIBUTED MATRIX\n---------------------------\n@Data:\t\t\tLocally CSR, split globally by row\nGlobal dimension:\t%dx%d\n(max) Local dimension:\t%dx%d\n\n",
          x@dim[1], x@dim[2], x@ldim[1], x@ldim[2]))
      }
    }
    
    pbdMPI::barrier()
    
    invisible(0)
  }
)



setMethod("show", signature(object="dsmatrix"),
  function(object) print(object)
)