gensum.c File Reference

#include "machine.h"

Include dependency graph for gensum.c:

Go to the source code of this file.

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

---

Define Documentation

#define SUM

(

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 6 of file gensum.c.

Referenced by gensum().

---

Typedef Documentation

typedef signed char integer1

Definition at line 2 of file gensum.c.

typedef short integer2

Definition at line 3 of file gensum.c.

---

Function Documentation

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

Definition at line 19 of file gensum.c.

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

Referenced by genmsum().

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


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

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

Here is the caller graph for this function:

---