core_dmdet.c

Go to the documentation of this file.

#include "../include/exageostatcore.h"


/***************************************************************************/
double core_dmdet (double *A, int m, int n, int m0, int n0) {

        int i;
        double res = 0.0;
        for (i = 0; i < m; i++) {
                res += log(A[i + i * m]);
        }

        return res;
}