genprod.c File Reference

#include "machine.h"
#include "genprod.h"

Include dependency graph for genprod.c:

Go to the source code of this file.

Defines
#define	PROD(Type)
Typedefs
typedef signed char	integer1
typedef short	integer2
Functions
integer C2F()	genprod (integer *typ, integer *n, integer *dx, integer *incx)

---

Define Documentation

#define PROD

(

Type

)

Value:

{\
Type *DX;\
 DX=(Type *)dx;\
 --DX;\
 if (*incx == 1) {\
   for (i = 1; i <= *n; ++i) dtemp *= (integer)DX[i];\
 }\
 else {\
   i1 = *n * *incx;i2 = *incx;\
   for (i = 1; i2 < 0 ? i >= i1 : i <= i1; i += i2) dtemp *= (integer)DX[i];\
 }\
}

Definition at line 7 of file genprod.c.

Referenced by genprod().

---

Typedef Documentation

typedef signed char integer1

Definition at line 3 of file genprod.c.

typedef short integer2

Definition at line 4 of file genprod.c.

---

Function Documentation

integer C2F() genprod	(	integer *	typ,
		integer *	n,
		integer *	dx,
		integer *	incx
	)

Definition at line 20 of file genprod.c.

References i, i1, i2, n, PROD, and typ.

Referenced by genmprod().

{
    integer  i1, i2;
    static integer i, dtemp;


    dtemp = 1;
    if (*n <= 0) return dtemp;

    switch (*typ) {
    case 1:
      PROD(integer1);
      break;
    case 2:
      PROD(integer2);
      break;
    case 4:
      PROD(integer);
      break;
    case 11:
      PROD(unsigned char);
      break;
    case 12:
      PROD(unsigned short);
      break;
    case 14:
      PROD(unsigned int);
      break;
    }
    return dtemp;
}

Here is the caller graph for this function:

---