plusblk.c File Reference

#include "machine.h"

Include dependency graph for plusblk.c:

Go to the source code of this file.

Functions
void	plusblk (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)

---

Function Documentation

void plusblk	(	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 plusblk.c.

References i, n, and y.

{
    int k,i,n;
    double *y;
    double *u;

    n=outsz[0]; /* insz[0]==insz[1] .. ==insz[*nin]== outsz[0] */

    y=(double *)outptr[0];

    for (i=0;i<n;i++) {
      y[i]=0.0;
      for (k=0;k<*nin;k++) {
        u=(double *)inptr[k];
        y[i]=y[i]+u[i];
      }
    }
}

---