#include "machine.h"Include dependency graph for prod.c:

Go to the source code of this file.
Functions | |
| void | prod (integer *flag, integer *nevprt,*t, xd, x, integer *nx, z, integer *nz, tvec, integer *ntvec, rpar, integer *nrpar, ipar, integer *nipar, inptr, insz, integer *nin, outptr, outsz, integer *nout) |
| void prod | ( | integer * | flag, | |
| integer* | nevprt, | |||
| * | t, | |||
| xd | , | |||
| x | , | |||
| integer* | nx, | |||
| z | , | |||
| integer* | nz, | |||
| tvec | , | |||
| integer* | ntvec, | |||
| rpar | , | |||
| integer* | nrpar, | |||
| ipar | , | |||
| integer* | nipar, | |||
| inptr | , | |||
| insz | , | |||
| integer * | nin, | |||
| outptr | , | |||
| outsz | , | |||
| integer* | nout | |||
| ) |
Definition at line 7 of file prod.c.
Referenced by suboffset().
00014 { 00015 int k,i,n; 00016 double *y; 00017 double *u; 00018 00019 n=outsz[0]; /* insz[0]==insz[1] .. ==insz[*nin]== outsz[0] */ 00020 00021 y=(double *)outptr[0]; 00022 00023 for (i=0;i<n;i++) { 00024 y[i]=1.0; 00025 for (k=0;k<*nin;k++) { 00026 u=(double *)inptr[k]; 00027 y[i]=y[i]*u[i]; 00028 } 00029 } 00030 }
Here is the caller graph for this function:

1.5.1