Scilab [trunk]: scilab/modules/integer/src/c/genmcuprod.c File Reference

#define MCUPROD ( Type )

Value:

{\
Type *A;\
    A=(Type *)a;\
    if (*job == 0) {\
         C2F(gencuprod)(typ,&mn, A, &c__1);\
    }\
    else if (*job == 1) {\
        for (j = 0; j < *n; ++j) {\
            C2F(gencuprod)(typ,m, &A[j * (*na) ], &c__1);\
        }}\
    else if (*job == 2) {\
        for (i = 0; i < *m; ++i) {\
            C2F(gencuprod)(typ,n, &A[i], na);\
        }\
    }\
}

Definition at line 6 of file genmcuprod.c.

Referenced by genmcuprod().

typedef signed char integer1

Definition at line 2 of file genmcuprod.c.

typedef short integer2

Definition at line 3 of file genmcuprod.c.

int C2F() genmcuprod	(	integer *	typ,
		integer *	job,
		integer *	a,
		integer *	na,
		integer *	m,
		integer *	n
	)

Definition at line 23 of file genmcuprod.c.

References C2F, gencuprod(), i, j, MCUPROD, and typ.

00025 {
00026   extern integer  C2F(gencuprod)();
00027   static integer  i, j, mn;
00028 
00029   mn=(*m)*(*n);
00030 
00031   switch (*typ) {
00032   case 1:
00033     MCUPROD(integer1);
00034     break;
00035   case 2:
00036     MCUPROD(integer2);
00037     break;
00038   case 4:
00039     MCUPROD(integer);
00040     break;
00041   case 11:
00042     MCUPROD(unsigned char);
00043     break;
00044   case 12:
00045     MCUPROD(unsigned short);
00046     break;
00047   case 14:
00048     MCUPROD(unsigned int);
00049     break;
00050   }
00051   return 0;
00052 }

Here is the call graph for this function:

integer c__1 = 1 [static]

Definition at line 5 of file genmcuprod.c.

genmcuprod.c File Reference

Defines

Typedefs

Functions

Variables

Define Documentation

Typedef Documentation

Function Documentation

Variable Documentation


Defines
#define	MCUPROD(Type)
Typedefs
typedef signed char	integer1
typedef short	integer2
Functions
int C2F()	genmcuprod (integer typ, integer job, integer a, integer na, integer m, integer n)
Variables
static integer	c__1 = 1