sciblk2i.c File Reference

#include "machine.h"

Include dependency graph for sciblk2i.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 ()
int C2F()	mklist ()
void	sciblk2i (integer *flag, integer *nevprt,*t, residual, 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

(

)

void C2F() ltopadj

(

)

int C2F() mklist

(

)

void sciblk2i	(	integer *	flag,
		integer*	nevprt,
		*	t,
		residual	,
		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 18 of file sciblk2i.c.

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

{
    int k;
    double *y;
    double *u;
/*    int nev,ic;*/
    integer one=1,skip;
    integer nu,ny;
    integer mlhs=6,mrhs=9;
    integer ltop;
    /*
 
    [y,  x,  z,  tvec,xd]=func(flag,nevprt,t,xd,x,z,rpar,ipar,u)
    [y,  x,  z,  tvec,res]=func(flag,nevprt,t,xd,x,z,rpar,ipar,u)
    */
    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)(xd,nx,&one);
    if (C2F(scierr)()!=0) goto err;  
    C2F(dtosci)(x,nx,&one);
    if (C2F(scierr)()!=0) goto err;  
    C2F(vvtosci)(z,nz);
    if (C2F(scierr)()!=0) goto err; 
    C2F(vvtosci)(rpar,nrpar); 
    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  computation */
      {
        skip=4;
        C2F(skipvars)(&skip);
      }
      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 :
        /*  residual  computation */
      {
        C2F(scitod)(residual,nx,&one);
        skip=4;
        C2F(skipvars)(&skip);
        break;
      }
    case 2 : 
      /* continuous and discrete state jump */
      {
        C2F(scitod)(xd,nx,&one);
        skip=1;
        C2F(skipvars)(&skip);
        C2F(scitovv)(z,nz);
        C2F(scitod)(x,nx,&one);
        skip=1;
        C2F(skipvars)(&skip);
      }
      break;
    case 3 :
      /* output event */
        skip=1;
        C2F(skipvars)(&skip);
        C2F(scitod)(tvec,ntvec,&one);
        skip=3;
        C2F(skipvars)(&skip);
        break;
    case 4 :
        C2F(scitod)(xd,nx,&one);
        skip=1;C2F(skipvars)(&skip);
        C2F(scitovv)(z,nz);
        C2F(scitod)(x,nx,&one);
        skip=1;C2F(skipvars)(&skip);
        break;
    case 5 :
        C2F(scitod)(xd,nx,&one);
        skip=1;C2F(skipvars)(&skip);
        C2F(scitovv)(z,nz);
        C2F(scitod)(x,nx,&one);
        skip=1;
        C2F(skipvars)(&skip);
        break;
    case 6 :
        C2F(scitod)(xd,nx,&one);
        skip=1;
        C2F(skipvars)(&skip);
        C2F(scitovv)(z,nz);
        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:

integer C2F() scierr

(

)

void C2F() scifunc

(

)

void C2F() scitod

(

)

void C2F() scitovv

(

)

void C2F() skipvars

(

)

void C2F() vvtosci

(

)

---