ext14c.c File Reference

#include "stack-c.h"

Include dependency graph for ext14c.c:

Go to the source code of this file.

Functions
int	ext14cI (char *fname)
int	ext14c (int *n, double *a, double *b, double *c)

---

Function Documentation

int ext14c	(	int *	n,
		double *	a,
		double *	b,
		double *	c
	)

Definition at line 38 of file ext14c.c.

Referenced by ext14cI().

{   
  int k;
  for (k = 0; k < *n; ++k) 
    {
      c[k] = a[k] + b[k];
    }
  return(0);
}

Here is the caller graph for this function:

int ext14cI

(

char *

fname

)

Definition at line 14 of file ext14c.c.

References CheckLhs, CheckRhs, CreateVar, Error, ext14c(), GetRhsVar, LhsVar, m1, m2, n, n1, n2, Nbvars, PutLhsVar, sciprint(), and stk.

{ 
  int m1,n1,l1,m2,n2,l2,m3,n3,l3,n,l4;
  int minlhs=1, minrhs=3, maxlhs=1, maxrhs=3;
  Nbvars = 0;
  CheckRhs(minrhs,maxrhs) ;
  CheckLhs(minlhs,maxlhs) ;
  GetRhsVar( 1, "c", &m1, &n1, &l1);
  GetRhsVar( 2, "d", &m2, &n2, &l2);
  GetRhsVar( 3, "d", &m3, &n3, &l3);
  if ( m3*n3 != m2*n2) 
    {
      sciprint("%s :Incompatible dimensions\r\n",fname);
      Error(999); return(0);
    }
  CreateVar( 4, "d", &m2, &n2, &l4);
  n=m3*n3;
  ext14c(&n,stk(l2),stk(l3),stk(l4));
  LhsVar(1) = 4;
  PutLhsVar();
  return(0);
}

Here is the call graph for this function:

---