SUBROUTINE dbcsr_csr_create_from_dbcsr(dbcsr_mat, csr_mat, dist_format, csr_sparsity, numnodes)
TYPE(dbcsr_type), INTENT(IN) :: dbcsr_mat
TYPE(dbcsr_csr_type), INTENT(OUT) :: csr_mat
INTEGER :: dist_format
TYPE(dbcsr_type), INTENT(IN), OPTIONAL :: csr_sparsity
INTEGER, INTENT(IN), OPTIONAL :: numnodes
IF (PRESENT(csr_sparsity)) THEN
CALL csr_create_from_dbcsr_prv(dbcsr_mat%prv, csr_mat, dist_format, csr_sparsity%prv, numnodes)
ELSE
CALL csr_create_from_dbcsr_prv(dbcsr_mat%prv, csr_mat, dist_format, numnodes=numnodes)
END IF
END SUBROUTINE dbcsr_csr_create_from_dbcsr