csr_fromGraph.f90

Go to the documentation of this file.

module csr_fromgraph

  use real_type
  use basic_tools
  use csr_mod, only: csr, valid, clear
  use graph_mod, only: graph, valid
 
  implicit none
  private

  public :: csr

  interface csr
     module procedure csr_create_fromgraph
  end interface csr

contains

  function csr_create_fromgraph(g) result(m)
    type(csr)                   :: m
    type(graph) , intent(in)    :: g


    if (valid(g)<0) call quit(&
         & 'csr_fromGraph: csr_create_fromGraph')

    call clear(m)
    m%nl    = g%nl
    m%nnz   = g%nnz
    m%width = g%width

    call allocmem(m%row, m%nl+1)
    m%row = g%row

    call allocmem(m%col, m%nnz)
    m%col = g%col

    call allocmem(m%a, m%nnz)
    m%a = 0._rp

    if (.NOT.valid(m)) call quit( &
         & 'csr_fromGraph: csr_create_fromGraph')

  end function csr_create_fromgraph

end module csr_fromgraph