summaryrefslogtreecommitdiff
path: root/modules/dynamic_link/examples/gateway/displ.c
blob: 96b8f334fbbd41f51bffc2d8cc21fbe732fbde0b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
/*
 * 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);
}