ladel_debug_print.c

Go to the documentation of this file.

#include "ladel_global.h"
#include "ladel_types.h"
#include "ladel_debug_print.h"
#include <stdio.h>
 
/* Print a sparse matrix so the output can be entered into matlab */
void ladel_print_sparse_matrix_matlab(ladel_sparse_matrix *M) {
    ladel_print("M = sparse(%" LADEL_PRIi ", %" LADEL_PRIi ");", M->nrow, M->ncol);
    ladel_int col, index = 0;
    ladel_double *Mx = M->x;
    ladel_int *Mi = M->i;
 
    for (col = 1; col <= M->ncol; col++) {
        LADEL_FOR(index, M, col-1)
            ladel_print("M(%" LADEL_PRIi ", %" LADEL_PRIi ") = %.16le;", Mi[index]+1, col, Mx[index]);
    }    
    ladel_print("\n");
}
 
/* Print the entries of a sparse matrix column by column */
void ladel_print_sparse_matrix_entries(ladel_sparse_matrix *M) {
    ladel_print("Printing entries: \n");
    ladel_int col, index;
    ladel_double *Mx = M->x;
    ladel_int *Mi = M->i;
    ladel_int *Mp = M->p;
 
    for (col = 0; col < M->ncol; col++) {
        for(index = Mp[col]; index < Mp[col+1]; index++)
            ladel_print("M(%" LADEL_PRIi ", %" LADEL_PRIi ") = %.16le;", Mi[index], col, Mx[index]);
    }    
    ladel_print("\n");
}
 
void ladel_print_factor_matlab(ladel_factor *LD) {
    ladel_print("L = sparse(%" LADEL_PRIi ", %" LADEL_PRIi ");", LD->L->nrow, LD->L->ncol);
    ladel_int col, index = 0;
    ladel_double *Lx = LD->L->x;
    ladel_int *Li = LD->L->i;
 
    for (col = 1; col <= LD->L->ncol; col++) 
        LADEL_FOR(index, LD->L, col-1)
            ladel_print("L(%" LADEL_PRIi ", %" LADEL_PRIi ") = %.16le;", Li[index]+1, col, Lx[index]);
 
    ladel_print_dense_vector_matlab(LD->Dinv, LD->ncol);
}
 
void ladel_print_dense_vector_matlab(ladel_double* x, size_t len) {
    size_t k;
    ladel_print("x = zeros(%lu, 1);", len);
    for (k = 0; k < len; k++) {
        ladel_print("x(%lu) = %.16le;", k+1, x[k]);
    }
    ladel_print("\n");
}
 
void ladel_print_dense_int_vector_matlab(ladel_int* x, size_t len) {
    size_t k;
    ladel_print("x = zeros(%lu, 1);", len);
    for (k = 0; k < len; k++) {
        ladel_print("x(%lu) = %" LADEL_PRIi ";", k+1, x[k]);
    }
    ladel_print("\n");
}
 
void ladel_print_set(ladel_set *set)
{
    ladel_print("Size set %" LADEL_PRIi " (max %" LADEL_PRIi ")\n", set->size_set, set->max_size_set);
    ladel_print("Elements: ");
    ladel_int index;
    for (index = 0; index < set->size_set; index++) ladel_print("%" LADEL_PRIi " ", set->set[index]);
    ladel_print("\n");
}