genmprod.c File Reference

#include "machine.h"
#include "genmprod.h"

Include dependency graph for genmprod.c:

Go to the source code of this file.

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

---

Define Documentation

#define MPROD

(

Type

)

Value:

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

Definition at line 7 of file genmprod.c.

Referenced by genmprod().

---

Typedef Documentation

typedef signed char integer1

Definition at line 3 of file genmprod.c.

typedef short integer2

Definition at line 4 of file genmprod.c.

---

Function Documentation

int C2F() genmprod	(	integer *	typ,
		integer *	job,
		integer *	a,
		integer *	na,
		integer *	m,
		integer *	n,
		integer *	v,
		integer *	nv
	)

Definition at line 31 of file genmprod.c.

References C2F, genprod(), i, iv, j, MPROD, t, and typ.

{
  extern integer  C2F(genprod)();
  static integer  i, j, t, iv;

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

Here is the call graph for this function:

---

Variable Documentation

integer c__1 = 1 [static]

Definition at line 6 of file genmprod.c.

---