srcconv.c File Reference

#include "spice.h"
#include <stdio.h>
#include "misc.h"
#include "srcdefs.h"
#include "sperror.h"
#include "util.h"

Include dependency graph for srcconv.c:

Go to the source code of this file.

Functions
int	SRCconvTest (GENmodel *inModel, CKTcircuit *ckt)

Function Documentation

int SRCconvTest	(	GENmodel *	inModel,
		CKTcircuit *	ckt
	)

Definition at line 18 of file srcconv.c.

{
    SRCmodel *model = (SRCmodel *)inModel;
    SRCinstance *here;
    int i;
    double diff;
    double prev;
    double tol;
    double rhs;

    for ( ; model != NULL; model = model->SRCnextModel) {
        for (here = model->SRCinstances; here != NULL;
                here = here->SRCnextInstance) {

            if (!here->SRCtree || !here->SRCtree->numVars) continue;

            for (i = 0; i < here->SRCtree->numVars; i++) {
                here->SRCvalues[i] = *(ckt->CKTrhsOld + here->SRCeqns[i]);
            }

            if ((*(here->SRCtree->IFeval))
                (here->SRCtree, ckt->CKTgmin,&rhs,here->SRCvalues,
                here->SRCderivs,&ckt->CKTtime) == OK) {
                /* !! last arg bogus if ft_sim->specSigs changed !! */

                prev = here->SRCprev;
                diff = FABS(prev - rhs);
                if (here->SRCtype == SRC_V) {
                    tol = ckt->CKTreltol * 
                            MAX(FABS(rhs),FABS(prev)) + ckt->CKTvoltTol;
                }
                else {
                    tol = ckt->CKTreltol * 
                            MAX(FABS(rhs),FABS(prev)) + ckt->CKTabstol;
                }

                if (diff > tol) {
                    ckt->CKTnoncon++;
                    ckt->CKTtroubleElt = (GENinstance *) here;
                    return (OK);
                }
            }
            else {
                return (E_BADPARM);
            }
        }
    }
    return (OK);
}