/*
 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 * Copyright (C) INRIA -
 *
 * This file is released under the 3-clause BSD license. See COPYING-BSD.
 *
 */
#include "displ.h"
#include "sciprint.h"

void displ(double *a, int ma, int na, int *b, int mb, int nb, char *c, int  mc, int  nc)
{
    sciprint("First parameter (matrix) is %i x %i:\n", ma, na);
    sciprint("its (1,1) entry is %e (double).\n", a[0]);
    sciprint("Second parameter (matrix) is %i x %i:\n", mb, nb);
    sciprint("its (1,1) entry is %i (int).\n", b[0]);
    sciprint("Third parameter (string) is %i character long: it is the string \"%s\"\n", mc * nc, c);
}