#include "machine.h"Include dependency graph for genmsum.c:
Go to the source code of this file.
Defines | |
| #define | MSUM(Type) |
Typedefs | |
| typedef signed char | integer1 |
| typedef short | integer2 |
Functions | |
| int C2F() | genmsum (integer *typ, integer *job, integer *a, integer *na, integer *m, integer *n, integer *v, integer *nv) |
Variables | |
| static integer | c__1 = 1 |
| #define MSUM | ( | Type | ) |
Value:
{\
Type *A;\
Type *V;\
A=(Type *)a;\
V=(Type *)v;\
iv = 0;\
if (*job == 0) {\
t = 0;\
for (j = 0; j < *n; ++j) \
t += C2F(gensum)(typ,m, &A[j * (*na)], &c__1);\
V[0] = (Type)t;}\
else if (*job == 1) {\
for (j = 0; j < *n; ++j) {\
t = C2F(gensum)(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(gensum)(typ,n, &A[i], m);\
V[iv] = (Type)t;iv += *nv;\
}\
}\
}
Definition at line 6 of file genmsum.c.
Referenced by genmsum().
| int C2F() genmsum | ( | integer * | typ, | |
| integer * | job, | |||
| integer * | a, | |||
| integer * | na, | |||
| integer * | m, | |||
| integer * | n, | |||
| integer * | v, | |||
| integer * | nv | |||
| ) |
Definition at line 30 of file genmsum.c.
References C2F, gensum(), i, iv, j, MSUM, t, and typ.
00032 { 00033 extern integer C2F(gensum)(); 00034 static integer i, j, t, iv; 00035 00036 switch (*typ) { 00037 case 1: 00038 MSUM(integer1); 00039 break; 00040 case 2: 00041 MSUM(integer2); 00042 break; 00043 case 4: 00044 MSUM(integer); 00045 break; 00046 case 11: 00047 MSUM(unsigned char); 00048 break; 00049 case 12: 00050 MSUM(unsigned short); 00051 break; 00052 case 14: 00053 MSUM(unsigned int); 00054 break; 00055 } 00056 return 0; 00057 }
Here is the call graph for this function:
1.5.1