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

#define RDIV ( Type )

Definition at line 7 of file genrdiv.c.

Referenced by genrdiv().

typedef signed char integer1

Definition at line 3 of file genrdiv.c.

typedef short integer2

Definition at line 4 of file genrdiv.c.

int C2F() genrdiv	(	integer *	typ,
		int *	a,
		integer *	ia,
		int *	b,
		integer *	ib,
		int *	r,
		integer *	ir,
		integer *	n,
		integer *	ierr
	)

Definition at line 42 of file genrdiv.c.

References i1, n, RDIV, and typ.

00043 {
00044   integer i1;
00045   static integer k, jb, ja, jr;
00046 
00047   i1 = *n;
00048   switch (*typ) {
00049   case 1:
00050     RDIV(integer1);
00051     break;
00052   case 2:
00053     RDIV(integer2);
00054     break;
00055   case 4:
00056     RDIV(integer);
00057     break;
00058   case 11:
00059     RDIV(unsigned char);
00060     break;
00061   case 12:
00062     RDIV(unsigned short);
00063     break;
00064   case 14:
00065     RDIV(unsigned int);
00066     break;
00067   }
00068   return 0;
00069 }

genrdiv.c File Reference

Defines

Typedefs

Functions

Define Documentation

Typedef Documentation

Function Documentation


Defines
#define	RDIV(Type)
Typedefs
typedef signed char	integer1
typedef short	integer2
Functions
int C2F()	genrdiv (integer typ, int a, integer ia, int b, integer ib, int r, integer ir, integer n, integer *ierr)