mspelm.c File Reference

#include "stack-c.h"
#include "../../elementaries_functions/includes/elementaries_functions.h"

Include dependency graph for mspelm.c:

Go to the source code of this file.

Defines
#define	CHAR(x)   (cstk(x))
#define	INT(x)   (istk(x))
#define	DOUBLE(x)   ( stk(x))
#define	CMPLX(x)   (zstk(x))
Functions
int C2F()	intmfull (integer *id)
int C2F() C2F()	intmspget (integer *id)
int C2F()	basout ()
int C2F() C2F()	intmsparse (integer *id)
static int	wmspful (integer *ma, integer *na, double *ar, double *ai, integer *nela, integer *inda, double *rr, double *ri)
static int	dmspful (integer *ma, integer *na, double *a, integer *nela, integer *inda, double *r__)
int C2F()	dspt ()
int C2F()	wspt ()
int C2F()	unsfdcopy ()
int C2F()	icopy ()
int C2F()	error ()
int C2F()	dset ()
int C2F()	int2db ()
int	empty (void)
Variables
static integer	c1 = 1
static integer	c41 = 41
static integer	c39 = 39
static integer	c17 = 17
static integer	c44 = 44
static integer	c_n1 = -1
static double	c_b46 = 0.

---

Define Documentation

#define CHAR

(

x

)

(cstk(x))

Definition at line 4 of file mspelm.c.

#define CMPLX

(

x

)

(zstk(x))

Definition at line 7 of file mspelm.c.

#define DOUBLE

(

x

)

( stk(x))

Definition at line 6 of file mspelm.c.

#define INT

(

x

)

(istk(x))

Definition at line 5 of file mspelm.c.

---

Function Documentation

int C2F() basout

(

)

static int dmspful	(	integer *	ma,
		integer *	na,
		double *	a,
		integer *	nela,
		integer *	inda,
		double *	r__
	)			[static]

Definition at line 382 of file mspelm.c.

References C2F, c_b46, and dset().

{
    integer I1, I2;
    static integer I, j, k, ii, nj;

    I1 = *ma * *na;
    C2F(dset)(&I1, &c_b46,rr, &c1);
    k = 0;
    I1 = *na;
    for (j = 1; j <= I1; ++j) {
        nj = inda[j] - inda[j-1];
        if (nj > 0) {
            I2 = nj;
            for (ii = 1; ii <= I2; ++ii) {
                I = inda[*na  + k + ii];
                rr[I + (j - 1) * *ma -1 ] = a[k + ii -1];
            }
            k += nj;
        }
    }
    return 0;
} 

Here is the call graph for this function:

int C2F() dset

(

)

int C2F() dspt

(

)

int empty

(

void

)

Definition at line 129 of file mspelm.c.

References CreateData, GetData(), GetRhsVar, int, ir, LhsVar, m1, m2, n1, n2, PutLhsVar, stk, and value.

{
  int m,n;int k;
  int m1,n1,p1;
  int m2,n2,p2;
  int NZMAX=1;int jc=5;int ir;
  int *header;double *value;
  GetRhsVar(1,"d",&m1,&n1,&p1);
  GetRhsVar(2,"d",&m2,&n2,&p2);
  m= (int) *stk(p1);
  n= (int) *stk(p2);
  CreateData(3, (6+n+1)*sizeof(int)+sizeof(double));
  header = (int *) GetData(3); value= (double *) header;
  header[0]=7;
  header[1]=m;header[2]=n;header[3]=0;
  header[4]=NZMAX;header[jc]=0;
  ir=jc+n+1;
    for (k=0; k<n; ++k) header[jc+k+1]=0;
  header[ir]=0;
  value[(5+header[2]+header[4])/2 + 1] = 0.0;
  LhsVar(1)=3;
  PutLhsVar();
  return 1;
}

Here is the call graph for this function:

int C2F() error

(

)

int C2F() icopy

(

)

Referenced by C2F(), copysmat(), cre_sparse_from_ptr_i(), creadbmat(), createlistvarfrom(), createvarfrom(), createvarfromptr(), crebmatvar(), cresmati(), cwritebmat(), mvfromto(), pmatj(), run(), smatj(), and stcreate().

Here is the caller graph for this function:

int C2F() int2db

(

)

Referenced by ConvertData(), createcvarfrom(), createlistcvarfrom(), createlistvarfrom(), and createvarfrom().

Here is the caller graph for this function:

int C2F() intmfull

(

integer *

id

)

Referenced by C2F().

Here is the caller graph for this function:

int C2F() C2F() intmsparse

(

integer *

id

)

Referenced by C2F().

Here is the caller graph for this function:

int C2F() C2F() intmspget

(

integer *

id

)

Referenced by C2F().

Here is the caller graph for this function:

int C2F() unsfdcopy

(

)

Referenced by copyobj(), CopyVarFromlistentry(), copyvarfromsciptr(), crematvar(), intcpass2(), mvfromto(), sci2var(), sciblk4(), and vcopyobj().

Here is the caller graph for this function:

static int wmspful	(	integer *	ma,
		integer *	na,
		double *	ar,
		double *	ai,
		integer *	nela,
		integer *	inda,
		double *	rr,
		double *	ri
	)			[static]

Definition at line 405 of file mspelm.c.

References C2F, c_b46, and dset().

{
  integer I1, I2;
  static integer I, j, k, ii, nj;

  I1 = *ma * *na;
  C2F(dset)(&I1, &c_b46, rr, &c1);
  I1 = *ma * *na;
  C2F(dset)(&I1, &c_b46, ri, &c1);
  k = 0;
  I1 = *na;
  for (j = 1; j <= I1; ++j) {
    nj = inda[j] - inda[j-1];
    if (nj > 0) {
      I2 = nj;
      for (ii = 1; ii <= I2; ++ii) {
        I = inda[*na + k + ii];
        rr[I + (j - 1) * *ma -1] = ar[k + ii -1];
        ri[I + (j - 1) * *ma -1] = ai[k + ii -1];
      }
      k += nj;
    }
  }
  return 0;
}

Here is the call graph for this function:

int C2F() wspt

(

)

---

Variable Documentation

integer c1 = 1 [static]

Definition at line 22 of file mspelm.c.

integer c17 = 17 [static]

Definition at line 25 of file mspelm.c.

integer c39 = 39 [static]

Definition at line 24 of file mspelm.c.

integer c41 = 41 [static]

Definition at line 23 of file mspelm.c.

integer c44 = 44 [static]

Definition at line 26 of file mspelm.c.

double c_b46 = 0. [static]

Definition at line 28 of file mspelm.c.

Referenced by dmspful(), and wmspful().

integer c_n1 = -1 [static]

Definition at line 27 of file mspelm.c.

---