gensum.c

Go to the documentation of this file.

#include "machine.h"
typedef signed char integer1;
typedef short integer2;
/*     Copyright INRIA */

#define SUM(Type) {\
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];\
 }\
}

integer C2F(gensum)(typ, n, dx, incx)
integer *typ,*n, *dx, *incx;
{
    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;
}

---