sciblk2.c File Reference

#include "machine.h"

Include dependency graph for sciblk2.c:

Go to the source code of this file.

Functions
integer C2F()	scierr ()
void C2F()	itosci ()
void C2F()	dtosci ()
void C2F()	vvtosci ()
void C2F()	scitovv ()
void C2F()	skipvars ()
void C2F()	scitod ()
void C2F()	list2vars ()
void C2F()	ltopadj ()
void C2F()	scifunc ()
void C2F()	mklist ()
void	sciblk2 (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 C2F() dtosci

(

)

void C2F() itosci

(

)

void C2F() list2vars

(

)

Referenced by sciblk2(), and sciblk2i().

Here is the caller graph for this function:

void C2F() ltopadj

(

)

Referenced by sciblk2(), and sciblk2i().

Here is the caller graph for this function:

void C2F() mklist

(

)

void sciblk2	(	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 17 of file sciblk2.c.

References C2F, dtosci(), err, itosci(), list2vars(), ltopadj(), mklist(), mlhs, mrhs, nu, scierr(), scifunc(), scitod(), scitovv(), skip, skipvars(), vvtosci(), and y.

Referenced by scicos().

{
    int k;
    double *y;
    double *u;
    /*int nev,ic;*/
    integer one=1,skip;
    integer nu,ny;
    integer mlhs=5,mrhs=8;
    integer ltop;


    C2F(itosci)(flag,&one,&one);
    if (C2F(scierr)()!=0) goto err;
    C2F(itosci)(nevprt,&one,&one);
    if (C2F(scierr)()!=0) goto err;  
    C2F(dtosci)(t,&one,&one);
    if (C2F(scierr)()!=0) goto err;  
    C2F(dtosci)(x,nx,&one);
    if (C2F(scierr)()!=0) goto err;  
/*    C2F(dtosci)(z,nz,&one);*/
    C2F(vvtosci)(z,nz);
    if (C2F(scierr)()!=0) goto err; 
    C2F(vvtosci)(rpar,nrpar); 
/*    C2F(dtosci)(rpar,nrpar,&one);*/
    if (C2F(scierr)()!=0) goto err;  
    C2F(itosci)(ipar,nipar,&one);
    if (C2F(scierr)()!=0) goto err;
    for (k=0;k<*nin;k++) {
        u=(double *)inptr[k];
        nu=insz[k];
        C2F(dtosci)(u,&nu,&one);
        if (C2F(scierr)()!=0) goto err;
    }
    C2F(mklist)(nin);


    C2F(scifunc)(&mlhs,&mrhs);
    if (C2F(scierr)()!=0) goto err;
    
    switch (*flag) {
    case 1 :
        /* y or z computation */
      {
        skip=2;
        C2F(skipvars)(&skip);
        C2F(scitovv)(z,nz);
        /*C2F(scitod)(z,nz,&one);*/
        C2F(scitod)(x,nx,&one);
      }
      if (*nout==0) {
        skip=1;
        C2F(skipvars)(&skip);
      }
      else {
        C2F(list2vars)(nout,&ltop);
        if (C2F(scierr)()!=0) goto err; 
        for (k=*nout-1;k>=0;k--) {
          y=(double *)outptr[k];
          ny=outsz[k];
          C2F(scitod)(y,&ny,&one);
          if (C2F(scierr)()!=0) goto err;
        }
        /* list2vars has changed the Lstk(top+1) value. 
           reset the correct value */
        C2F(ltopadj)(&ltop);  
      }
      break;
    case 0 :
        /*  x'  computation */
      {
        /*skip=4;
          C2F(skipvars)(&skip);*/
        C2F(scitod)(xd,nx,&one);
        skip=4;
        C2F(skipvars)(&skip);
        break;
      }
    case 2 :
      {
        skip=2;
        C2F(skipvars)(&skip);
        C2F(scitovv)(z,nz);
        /*C2F(scitod)(z,nz,&one);*/
        C2F(scitod)(x,nx,&one);
        skip=1;
        C2F(skipvars)(&skip);
      }
      break;
    case 3 :
        skip=1;
        C2F(skipvars)(&skip);
        C2F(scitod)(tvec,ntvec,&one);
        skip=3;
        C2F(skipvars)(&skip);
        break;
    case 4 :
        skip=2;
        C2F(skipvars)(&skip);
        C2F(scitovv)(z,nz);
        /*C2F(scitod)(z,nz,&one);*/
        C2F(scitod)(x,nx,&one);
        skip=1;
        C2F(skipvars)(&skip);
        break;
    case 5 :
        skip=2;
        C2F(skipvars)(&skip);
        C2F(scitovv)(z,nz);
        /*C2F(scitod)(z,nz,&one);*/
        C2F(scitod)(x,nx,&one);
        skip=1;
        C2F(skipvars)(&skip);
        break;
    case 6 :
        skip=2;
        C2F(skipvars)(&skip);
        C2F(scitovv)(z,nz);
        /*C2F(scitod)(z,nz,&one);*/
        C2F(scitod)(x,nx,&one);
        if (*nout==0) {
            skip=1;
            C2F(skipvars)(&skip);
        }
        else {
            C2F(list2vars)(nout,&ltop); 
            if (C2F(scierr)()!=0) goto err;
            for (k=*nout-1;k>=0;k--) {
                y=(double *)outptr[k];
                ny=outsz[k];
                C2F(scitod)(y,&ny,&one);
                if (C2F(scierr)()!=0) goto err;
            }
            /* list2vars has changed the Lstk(top+1) value. 
               reset the correct value */
           C2F(ltopadj)(&ltop);  
        }
        break;
    }
    return;
 err: 
    *flag=-1;
}

Here is the call graph for this function:

Here is the caller graph for this function:

integer C2F() scierr

(

)

void C2F() scifunc

(

)

Referenced by sciblk2(), sciblk2i(), and sciblk4().

Here is the caller graph for this function:

void C2F() scitod

(

)

Referenced by sciblk2(), and sciblk2i().

Here is the caller graph for this function:

void C2F() scitovv

(

)

Referenced by sciblk2(), and sciblk2i().

Here is the caller graph for this function:

void C2F() skipvars

(

)

Referenced by sciblk2(), and sciblk2i().

Here is the caller graph for this function:

void C2F() vvtosci

(

)

---