intex2c.c File Reference

#include <string.h>
#include <stdio.h>
#include "stack-c.h"

Include dependency graph for intex2c.c:

Go to the source code of this file.

Functions
int ex2c	__PARAMS ((double *, int *, int *, double *, int *, int *, int *))
int	intex2c (char *fname)
int	ex2c (double *a, int *ma, int *na, double *b, int *mb, int *nb, int *err)

---

Function Documentation

int ex2c __PARAMS

(

(double *, int *, int *, double *, int *, int *, int *)

)

external functions to be called through this interface

int ex2c	(	double *	a,
		int *	ma,
		int*	na,
		double*	b,
		int*	mb,
		int*	nb,
		int*	err
	)

Definition at line 64 of file intex2c.c.

References i.

Referenced by intex2c().

{
  int i;
  *err=0;
  for ( i= 0 ; i < (*ma)*(*na) ; i++) a[i] = 2*a[i] ;
  for ( i= 0 ; i < (*mb)*(*nb) ; i++) b[i] = 3*b[i] ;
  return(0);
}

Here is the caller graph for this function:

int intex2c

(

char*

fname

)

Definition at line 12 of file intex2c.c.

References CheckLhs, CheckRhs, CreateVar, ex2c(), get_optionals(), GetRhsVar, ierr, l, LhsVar, m, rhs_opts__::m, m1, n, rhs_opts__::n, n1, NULL, NumOpt, rhs_opts__::position, Rhs, stk, type, and rhs_opts__::type.

{ 
  int m1,n1,l1,ierr=0;
  static rhs_opts opts[]= { {-1,"v1","d",0,0,0},
                            {-1,"v2","d",0,0,0},
                            {-1,NULL,NULL,0,0}
  };
  int minrhs = 1,maxrhs = 1,minlhs=1,maxlhs=3,nopt,iopos;

  nopt = NumOpt();

  CheckRhs(minrhs,maxrhs+nopt) ;
  CheckLhs(minlhs,maxlhs) ;


  GetRhsVar( 1, "c", &m1, &n1, &l1);
  
  if ( get_optionals(fname,opts) == 0) return 0;

  iopos=Rhs ;
  if ( opts[0].position  == -1 ) {
    iopos++ ; opts[0].position = iopos;
    opts[0].m = opts[0].n = 1; opts[0].type = "d";
    CreateVar(opts[0].position,opts[0].type,&opts[0].m,&opts[0].n,&opts[0].l);
    *stk(opts[0].l)=99.0;
  }
  if ( opts[1].position  == -1 ) {
    iopos++ ; opts[1].position = iopos;
    opts[1].m = opts[1].n = 1; opts[1].type = "d";
    CreateVar(opts[1].position,opts[1].type,&opts[1].m,&opts[1].n,&opts[1].l);
    *stk(opts[1].l)= 3;
  }

  ex2c(stk(opts[0].l),&opts[0].m,&opts[0].n,
       stk(opts[1].l),&opts[1].m,&opts[1].n,&ierr);

  if (ierr > 0) 
    {
      Scierror(999,"%s: Internal error \r\n",fname);
      return 0;
    }
  LhsVar(1) = 1;
  LhsVar(2) = opts[0].position;
  LhsVar(3) = opts[1].position;
  return 0;
}

Here is the call graph for this function:

---