/* fichero mat1n1m.c */
double **crear_matriz(int m, int n)
{
    int    i;
    double **matriz;
    matriz = calloc(m, sizeof(double *));
    --matriz;
    for (i=1; i<=m; i++) {
        matriz[i] = calloc(n, sizeof(double));
        --matriz[i];
    }
    return matriz;
}