Code cleanup.
This commit is contained in:
parent
a03bd669f9
commit
7d91b8bbd2
|
|
@ -4,7 +4,6 @@ Author: 1987 Thomas L. Quarles
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
#include "devdefs.h"
|
#include "devdefs.h"
|
||||||
#include "ccvsdefs.h"
|
#include "ccvsdefs.h"
|
||||||
|
|
|
||||||
|
|
@ -9,7 +9,6 @@ Author: 1987 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "devdefs.h"
|
#include "devdefs.h"
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
|
|
@ -19,12 +18,7 @@ Author: 1987 Thomas L. Quarles
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
CCVSask(ckt,inst,which,value,select)
|
CCVSask(CKTcircuit *ckt, GENinstance *inst, int which, IFvalue *value, IFvalue *select)
|
||||||
CKTcircuit *ckt;
|
|
||||||
GENinstance *inst;
|
|
||||||
int which;
|
|
||||||
IFvalue *value;
|
|
||||||
IFvalue *select;
|
|
||||||
{
|
{
|
||||||
CCVSinstance *here = (CCVSinstance*)inst;
|
CCVSinstance *here = (CCVSinstance*)inst;
|
||||||
double vr;
|
double vr;
|
||||||
|
|
|
||||||
|
|
@ -6,18 +6,13 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "ccvsdefs.h"
|
#include "ccvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
CCVSdelete(inModel,name,kill)
|
CCVSdelete(GENmodel *inModel, IFuid name, GENinstance **kill)
|
||||||
GENmodel *inModel;
|
|
||||||
IFuid name;
|
|
||||||
GENinstance **kill;
|
|
||||||
|
|
||||||
{
|
{
|
||||||
CCVSmodel *model = (CCVSmodel*)inModel;
|
CCVSmodel *model = (CCVSmodel*)inModel;
|
||||||
CCVSinstance **fast = (CCVSinstance**)kill;
|
CCVSinstance **fast = (CCVSinstance**)kill;
|
||||||
|
|
|
||||||
|
|
@ -6,14 +6,12 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "ccvsdefs.h"
|
#include "ccvsdefs.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
void
|
void
|
||||||
CCVSdestroy(inModel)
|
CCVSdestroy(GENmodel **inModel)
|
||||||
GENmodel **inModel;
|
|
||||||
{
|
{
|
||||||
CCVSmodel **model = (CCVSmodel**)inModel;
|
CCVSmodel **model = (CCVSmodel**)inModel;
|
||||||
CCVSinstance *here;
|
CCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,6 @@ Copyright 1990 Regents of the University of California. All rights reserved.
|
||||||
Author: 1985 Thomas L. Quarles
|
Author: 1985 Thomas L. Quarles
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#ifdef __STDC__
|
|
||||||
extern int CCVSask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
|
extern int CCVSask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
|
||||||
extern int CCVSdelete(GENmodel*,IFuid,GENinstance**);
|
extern int CCVSdelete(GENmodel*,IFuid,GENinstance**);
|
||||||
extern void CCVSdestroy(GENmodel**);
|
extern void CCVSdestroy(GENmodel**);
|
||||||
|
|
@ -18,20 +17,3 @@ extern void CCVSsPrint(GENmodel*,CKTcircuit*);
|
||||||
extern int CCVSsSetup(SENstruct*,GENmodel*);
|
extern int CCVSsSetup(SENstruct*,GENmodel*);
|
||||||
extern int CCVSsetup(SMPmatrix*,GENmodel*,CKTcircuit*,int*);
|
extern int CCVSsetup(SMPmatrix*,GENmodel*,CKTcircuit*,int*);
|
||||||
extern int CCVSunsetup(GENmodel*,CKTcircuit*);
|
extern int CCVSunsetup(GENmodel*,CKTcircuit*);
|
||||||
#else /* stdc */
|
|
||||||
extern int CCVSask();
|
|
||||||
extern int CCVSdelete();
|
|
||||||
extern void CCVSdestroy();
|
|
||||||
extern int CCVSfindBr();
|
|
||||||
extern int CCVSload();
|
|
||||||
extern int CCVSmDelete();
|
|
||||||
extern int CCVSparam();
|
|
||||||
extern int CCVSpzLoad();
|
|
||||||
extern int CCVSsAcLoad();
|
|
||||||
extern int CCVSsLoad();
|
|
||||||
extern void CCVSsPrint();
|
|
||||||
extern int CCVSsSetup();
|
|
||||||
extern int CCVSsetup();
|
|
||||||
extern int CCVSunsetup();
|
|
||||||
#endif /* stdc */
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "ccvsdefs.h"
|
#include "ccvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -14,10 +13,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
CCVSfindBr(ckt,inModel,name)
|
CCVSfindBr(CKTcircuit *ckt, GENmodel *inModel, IFuid name)
|
||||||
CKTcircuit *ckt;
|
|
||||||
GENmodel *inModel;
|
|
||||||
IFuid name;
|
|
||||||
{
|
{
|
||||||
CCVSmodel *model = (CCVSmodel*)inModel;
|
CCVSmodel *model = (CCVSmodel*)inModel;
|
||||||
CCVSinstance *here;
|
CCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "ccvsdefs.h"
|
#include "ccvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -15,10 +14,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
int
|
int
|
||||||
CCVSload(inModel,ckt)
|
CCVSload(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
|
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
|
|
||||||
/* actually load the current voltage value into the
|
/* actually load the current voltage value into the
|
||||||
* sparse matrix previously provided
|
* sparse matrix previously provided
|
||||||
|
|
|
||||||
|
|
@ -6,17 +6,13 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "ccvsdefs.h"
|
#include "ccvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
CCVSmDelete(inModel,modname,kill)
|
CCVSmDelete(GENmodel **inModel, IFuid modname, GENmodel *kill)
|
||||||
GENmodel **inModel;
|
|
||||||
IFuid modname;
|
|
||||||
GENmodel *kill;
|
|
||||||
{
|
{
|
||||||
CCVSmodel **model = (CCVSmodel**)inModel;
|
CCVSmodel **model = (CCVSmodel**)inModel;
|
||||||
CCVSmodel *modfast = (CCVSmodel*)kill;
|
CCVSmodel *modfast = (CCVSmodel*)kill;
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
#include "ccvsdefs.h"
|
#include "ccvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -15,11 +14,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
CCVSparam(param,value,inst,select)
|
CCVSparam(int param, IFvalue *value, GENinstance *inst, IFvalue *select)
|
||||||
int param;
|
|
||||||
IFvalue *value;
|
|
||||||
GENinstance *inst;
|
|
||||||
IFvalue *select;
|
|
||||||
{
|
{
|
||||||
CCVSinstance *here = (CCVSinstance*)inst;
|
CCVSinstance *here = (CCVSinstance*)inst;
|
||||||
switch(param) {
|
switch(param) {
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "complex.h"
|
#include "complex.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -16,11 +15,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
int
|
int
|
||||||
CCVSpzLoad(inModel,ckt,s)
|
CCVSpzLoad(GENmodel *inModel, CKTcircuit *ckt, SPcomplex *s)
|
||||||
|
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
SPcomplex *s;
|
|
||||||
|
|
||||||
/* actually load the current voltage value into the
|
/* actually load the current voltage value into the
|
||||||
* sparse matrix previously provided
|
* sparse matrix previously provided
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "ccvsdefs.h"
|
#include "ccvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -18,10 +17,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
CCVSsAcLoad(inModel,ckt)
|
CCVSsAcLoad(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
|
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
{
|
{
|
||||||
CCVSmodel *model = (CCVSmodel*)inModel;
|
CCVSmodel *model = (CCVSmodel*)inModel;
|
||||||
CCVSinstance *here;
|
CCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -8,7 +8,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "ccvsdefs.h"
|
#include "ccvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -16,11 +15,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
int
|
int
|
||||||
CCVSsetup(matrix,inModel,ckt,states)
|
CCVSsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
|
||||||
SMPmatrix *matrix;
|
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
int *states;
|
|
||||||
{
|
{
|
||||||
CCVSmodel *model = (CCVSmodel*)inModel;
|
CCVSmodel *model = (CCVSmodel*)inModel;
|
||||||
CCVSinstance *here;
|
CCVSinstance *here;
|
||||||
|
|
@ -66,9 +61,7 @@ if((here->ptr = SMPmakeElt(matrix,here->first,here->second))==(double *)NULL){\
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
int
|
||||||
CCVSunsetup(inModel,ckt)
|
CCVSunsetup(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
{
|
{
|
||||||
CCVSmodel *model;
|
CCVSmodel *model;
|
||||||
CCVSinstance *here;
|
CCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "ccvsdefs.h"
|
#include "ccvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -18,9 +17,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
CCVSsLoad(inModel,ckt)
|
CCVSsLoad(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
{
|
{
|
||||||
CCVSmodel *model = (CCVSmodel*)inModel;
|
CCVSmodel *model = (CCVSmodel*)inModel;
|
||||||
CCVSinstance *here;
|
CCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "ccvsdefs.h"
|
#include "ccvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -18,9 +17,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
void
|
void
|
||||||
CCVSsPrint(inModel,ckt)
|
CCVSsPrint(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
{
|
{
|
||||||
CCVSmodel *model = (CCVSmodel*)inModel;
|
CCVSmodel *model = (CCVSmodel*)inModel;
|
||||||
CCVSinstance *here;
|
CCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "ccvsdefs.h"
|
#include "ccvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -18,10 +17,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
CCVSsSetup(info,inModel)
|
CCVSsSetup(SENstruct *info, GENmodel *inModel)
|
||||||
SENstruct *info;
|
|
||||||
GENmodel *inModel;
|
|
||||||
|
|
||||||
{
|
{
|
||||||
CCVSmodel *model = (CCVSmodel*)inModel;
|
CCVSmodel *model = (CCVSmodel*)inModel;
|
||||||
CCVSinstance *here;
|
CCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,6 @@ Author: 1987 Thomas L. Quarles
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
#include "devdefs.h"
|
#include "devdefs.h"
|
||||||
#include "cswdefs.h"
|
#include "cswdefs.h"
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "cswdefs.h"
|
#include "cswdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -14,10 +13,7 @@ Author: 1985 Gordon Jacobs
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
CSWacLoad(inModel,ckt)
|
CSWacLoad(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
|
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
|
|
||||||
/* load the current values into the
|
/* load the current values into the
|
||||||
* sparse matrix previously provided
|
* sparse matrix previously provided
|
||||||
|
|
|
||||||
|
|
@ -11,7 +11,6 @@ Author: 1987 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "devdefs.h"
|
#include "devdefs.h"
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
|
|
@ -22,12 +21,7 @@ Author: 1987 Thomas L. Quarles
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
CSWask(ckt,inst,which,value,select)
|
CSWask(CKTcircuit *ckt, GENinstance *inst, int which, IFvalue *value, IFvalue *select)
|
||||||
CKTcircuit *ckt;
|
|
||||||
GENinstance *inst;
|
|
||||||
int which;
|
|
||||||
IFvalue *value;
|
|
||||||
IFvalue *select;
|
|
||||||
{
|
{
|
||||||
CSWinstance *here = (CSWinstance*)inst;
|
CSWinstance *here = (CSWinstance*)inst;
|
||||||
static char *msg = "Current and power not available in ac analysis";
|
static char *msg = "Current and power not available in ac analysis";
|
||||||
|
|
|
||||||
|
|
@ -6,17 +6,13 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cswdefs.h"
|
#include "cswdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
CSWdelete(inModel,name,inst)
|
CSWdelete(GENmodel *inModel, IFuid name, GENinstance **inst)
|
||||||
GENmodel *inModel;
|
|
||||||
IFuid name;
|
|
||||||
GENinstance **inst;
|
|
||||||
|
|
||||||
{
|
{
|
||||||
CSWmodel *model = (CSWmodel*)inModel;
|
CSWmodel *model = (CSWmodel*)inModel;
|
||||||
|
|
|
||||||
|
|
@ -6,14 +6,12 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cswdefs.h"
|
#include "cswdefs.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
void
|
void
|
||||||
CSWdestroy(inModel)
|
CSWdestroy(GENmodel **inModel)
|
||||||
GENmodel **inModel;
|
|
||||||
{
|
{
|
||||||
CSWmodel **model = (CSWmodel**)inModel;
|
CSWmodel **model = (CSWmodel**)inModel;
|
||||||
CSWinstance *here;
|
CSWinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,6 @@ Author: 1985 Gordon M. Jacobs
|
||||||
Modified: 2000 AlansFixes
|
Modified: 2000 AlansFixes
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#ifdef __STDC__
|
|
||||||
extern int CSWask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
|
extern int CSWask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
|
||||||
extern int CSWacLoad(GENmodel*,CKTcircuit*);
|
extern int CSWacLoad(GENmodel*,CKTcircuit*);
|
||||||
extern int CSWdelete(GENmodel*,IFuid,GENinstance**);
|
extern int CSWdelete(GENmodel*,IFuid,GENinstance**);
|
||||||
|
|
@ -17,22 +16,4 @@ extern int CSWparam(int,IFvalue*,GENinstance*,IFvalue*);
|
||||||
extern int CSWpzLoad(GENmodel*,CKTcircuit*,SPcomplex*);
|
extern int CSWpzLoad(GENmodel*,CKTcircuit*,SPcomplex*);
|
||||||
extern int CSWsetup(SMPmatrix*,GENmodel*,CKTcircuit*,int*);
|
extern int CSWsetup(SMPmatrix*,GENmodel*,CKTcircuit*,int*);
|
||||||
extern int CSWnoise(int,int,GENmodel*,CKTcircuit*,Ndata*,double*);
|
extern int CSWnoise(int,int,GENmodel*,CKTcircuit*,Ndata*,double*);
|
||||||
|
|
||||||
extern int CSWtrunc(GENmodel*,CKTcircuit*,double*);
|
extern int CSWtrunc(GENmodel*,CKTcircuit*,double*);
|
||||||
|
|
||||||
#else /* stdc */
|
|
||||||
extern int CSWask();
|
|
||||||
extern int CSWacLoad();
|
|
||||||
extern int CSWdelete();
|
|
||||||
extern void CSWdestroy();
|
|
||||||
extern int CSWload();
|
|
||||||
extern int CSWmAsk();
|
|
||||||
extern int CSWmDelete();
|
|
||||||
extern int CSWmParam();
|
|
||||||
extern int CSWparam();
|
|
||||||
extern int CSWpzLoad();
|
|
||||||
extern int CSWsetup();
|
|
||||||
extern int CSWnoise();
|
|
||||||
extern int CSWtrunc();
|
|
||||||
#endif /* stdc */
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,6 @@ Modified: 2001 Jon Engelbert
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "cswdefs.h"
|
#include "cswdefs.h"
|
||||||
#include "trandefs.h"
|
#include "trandefs.h"
|
||||||
|
|
@ -13,9 +12,7 @@ Modified: 2001 Jon Engelbert
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
int
|
int
|
||||||
CSWload(inModel,ckt)
|
CSWload(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
|
|
||||||
/* actually load the current values into the
|
/* actually load the current values into the
|
||||||
* sparse matrix previously provided
|
* sparse matrix previously provided
|
||||||
|
|
|
||||||
|
|
@ -11,7 +11,6 @@ Author: 1987 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "devdefs.h"
|
#include "devdefs.h"
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
|
|
@ -22,11 +21,7 @@ Author: 1987 Thomas L. Quarles
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
CSWmAsk(ckt,inst,which,value)
|
CSWmAsk(CKTcircuit *ckt, GENmodel *inst, int which, IFvalue *value)
|
||||||
CKTcircuit *ckt;
|
|
||||||
GENmodel *inst;
|
|
||||||
int which;
|
|
||||||
IFvalue *value;
|
|
||||||
{
|
{
|
||||||
CSWmodel *here = (CSWmodel*)inst;
|
CSWmodel *here = (CSWmodel*)inst;
|
||||||
switch(which) {
|
switch(which) {
|
||||||
|
|
|
||||||
|
|
@ -6,17 +6,13 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cswdefs.h"
|
#include "cswdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
CSWmDelete(inModel,modname,kill)
|
CSWmDelete(GENmodel **inModel, IFuid modname, GENmodel *kill)
|
||||||
GENmodel **inModel;
|
|
||||||
IFuid modname;
|
|
||||||
GENmodel *kill;
|
|
||||||
{
|
{
|
||||||
CSWmodel **model = (CSWmodel**)inModel;
|
CSWmodel **model = (CSWmodel**)inModel;
|
||||||
CSWmodel *modfast = (CSWmodel*)kill;
|
CSWmodel *modfast = (CSWmodel*)kill;
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,6 @@ Modified: 2001 Jon Englebert
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
#include "cswdefs.h"
|
#include "cswdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -15,10 +14,7 @@ Modified: 2001 Jon Englebert
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
CSWmParam(param,value,inModel)
|
CSWmParam(int param, IFvalue *value, GENmodel *inModel)
|
||||||
int param;
|
|
||||||
IFvalue *value;
|
|
||||||
GENmodel *inModel;
|
|
||||||
{
|
{
|
||||||
CSWmodel *model = (CSWmodel*)inModel;
|
CSWmodel *model = (CSWmodel*)inModel;
|
||||||
switch(param) {
|
switch(param) {
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,6 @@ Author: 1987 Gary W. Ng
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cswdefs.h"
|
#include "cswdefs.h"
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "iferrmsg.h"
|
#include "iferrmsg.h"
|
||||||
|
|
@ -25,13 +24,7 @@ extern void NevalSrc();
|
||||||
extern double Nintegrate();
|
extern double Nintegrate();
|
||||||
|
|
||||||
int
|
int
|
||||||
CSWnoise (mode, operation, genmodel, ckt, data, OnDens)
|
CSWnoise (int mode, int operation, GENmodel *genmodel, CKTcircuit *ckt, Ndata *data, double *OnDens)
|
||||||
int mode;
|
|
||||||
int operation;
|
|
||||||
GENmodel *genmodel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
Ndata *data;
|
|
||||||
double *OnDens;
|
|
||||||
{
|
{
|
||||||
CSWmodel *firstModel = (CSWmodel *) genmodel;
|
CSWmodel *firstModel = (CSWmodel *) genmodel;
|
||||||
CSWmodel *model;
|
CSWmodel *model;
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cswdefs.h"
|
#include "cswdefs.h"
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -15,11 +14,7 @@ Author: 1985 Gordon Jacobs
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
CSWparam(param,value,inst,select)
|
CSWparam(int param, IFvalue *value, GENinstance *inst, IFvalue *select)
|
||||||
int param;
|
|
||||||
IFvalue *value;
|
|
||||||
GENinstance *inst;
|
|
||||||
IFvalue *select;
|
|
||||||
{
|
{
|
||||||
CSWinstance *here = (CSWinstance*)inst;
|
CSWinstance *here = (CSWinstance*)inst;
|
||||||
switch(param) {
|
switch(param) {
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "cswdefs.h"
|
#include "cswdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -16,10 +15,7 @@ Author: 1985 Gordon Jacobs
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
CSWpzLoad(inModel,ckt,s)
|
CSWpzLoad(GENmodel *inModel, CKTcircuit *ckt, SPcomplex *s)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
SPcomplex *s;
|
|
||||||
|
|
||||||
/* load the current values into the
|
/* load the current values into the
|
||||||
* sparse matrix previously provided
|
* sparse matrix previously provided
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "cswdefs.h"
|
#include "cswdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -14,11 +13,7 @@ Author: 1985 Gordon Jacobs
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
CSWsetup(matrix,inModel,ckt,states)
|
CSWsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
|
||||||
SMPmatrix *matrix;
|
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
int *states;
|
|
||||||
/* load the switch conductance with those pointers needed later
|
/* load the switch conductance with those pointers needed later
|
||||||
* for fast matrix loading
|
* for fast matrix loading
|
||||||
*/
|
*/
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,6 @@ Modified: 2000 AlansFixes
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,6 @@ Author: 1987
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "devdefs.h"
|
#include "devdefs.h"
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
#include "swdefs.h"
|
#include "swdefs.h"
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "swdefs.h"
|
#include "swdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -14,9 +13,7 @@ Author: 1985 Gordon Jacobs
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
SWacLoad(inModel,ckt)
|
SWacLoad(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
/* load the current values into the
|
/* load the current values into the
|
||||||
* sparse matrix previously provided
|
* sparse matrix previously provided
|
||||||
* during AC analysis.
|
* during AC analysis.
|
||||||
|
|
|
||||||
|
|
@ -11,7 +11,6 @@ Author: 1987 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "devdefs.h"
|
#include "devdefs.h"
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
|
|
@ -22,12 +21,7 @@ Author: 1987 Thomas L. Quarles
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
SWask(ckt,inst,which,value,select)
|
SWask(CKTcircuit *ckt, GENinstance *inst, int which, IFvalue *value, IFvalue *select)
|
||||||
CKTcircuit *ckt;
|
|
||||||
GENinstance *inst;
|
|
||||||
int which;
|
|
||||||
IFvalue *value;
|
|
||||||
IFvalue *select;
|
|
||||||
{
|
{
|
||||||
SWinstance *here = (SWinstance *)inst;
|
SWinstance *here = (SWinstance *)inst;
|
||||||
static char *msg = "Current and power not available in ac analysis";
|
static char *msg = "Current and power not available in ac analysis";
|
||||||
|
|
|
||||||
|
|
@ -6,17 +6,13 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "swdefs.h"
|
#include "swdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
SWdelete(inModel,name,inst)
|
SWdelete(GENmodel *inModel, IFuid name, GENinstance **inst)
|
||||||
GENmodel *inModel;
|
|
||||||
IFuid name;
|
|
||||||
GENinstance **inst;
|
|
||||||
{
|
{
|
||||||
SWmodel *model = (SWmodel *)inModel;
|
SWmodel *model = (SWmodel *)inModel;
|
||||||
SWinstance **fast = (SWinstance **)inst;
|
SWinstance **fast = (SWinstance **)inst;
|
||||||
|
|
|
||||||
|
|
@ -6,14 +6,12 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "swdefs.h"
|
#include "swdefs.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
void
|
void
|
||||||
SWdestroy(inModel)
|
SWdestroy(GENmodel **inModel)
|
||||||
GENmodel **inModel;
|
|
||||||
{
|
{
|
||||||
SWmodel **model = (SWmodel**)inModel;
|
SWmodel **model = (SWmodel**)inModel;
|
||||||
SWinstance *here;
|
SWinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,6 @@ Author: 1985 Gordon M. Jacobs
|
||||||
Modified: 2000 AlansFixes
|
Modified: 2000 AlansFixes
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#ifdef __STDC__
|
|
||||||
extern int SWacLoad(GENmodel*,CKTcircuit*);
|
extern int SWacLoad(GENmodel*,CKTcircuit*);
|
||||||
extern int SWask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
|
extern int SWask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
|
||||||
extern int SWdelete(GENmodel*,IFuid,GENinstance**);
|
extern int SWdelete(GENmodel*,IFuid,GENinstance**);
|
||||||
|
|
@ -18,19 +17,3 @@ extern int SWpzLoad(GENmodel*,CKTcircuit*,SPcomplex*);
|
||||||
extern int SWsetup(SMPmatrix*,GENmodel*,CKTcircuit*,int*);
|
extern int SWsetup(SMPmatrix*,GENmodel*,CKTcircuit*,int*);
|
||||||
extern int SWnoise(int,int,GENmodel*,CKTcircuit*,Ndata*,double*);
|
extern int SWnoise(int,int,GENmodel*,CKTcircuit*,Ndata*,double*);
|
||||||
extern int SWtrunc(GENmodel*,CKTcircuit*,double*);
|
extern int SWtrunc(GENmodel*,CKTcircuit*,double*);
|
||||||
#else /* stdc */
|
|
||||||
extern int SWacLoad();
|
|
||||||
extern int SWask();
|
|
||||||
extern int SWdelete();
|
|
||||||
extern void SWdestroy();
|
|
||||||
extern int SWload();
|
|
||||||
extern int SWmAsk();
|
|
||||||
extern int SWmDelete();
|
|
||||||
extern int SWmParam();
|
|
||||||
extern int SWparam();
|
|
||||||
extern int SWpzLoad();
|
|
||||||
extern int SWsetup();
|
|
||||||
extern int SWnoise();
|
|
||||||
extern int SWtrunc();
|
|
||||||
#endif /* stdc */
|
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,6 @@ Modified: 2001 Jon Engelbert
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "swdefs.h"
|
#include "swdefs.h"
|
||||||
#include "trandefs.h"
|
#include "trandefs.h"
|
||||||
|
|
@ -13,9 +12,7 @@ Modified: 2001 Jon Engelbert
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
int
|
int
|
||||||
SWload(inModel,ckt)
|
SWload(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
/* actually load the current values into the
|
/* actually load the current values into the
|
||||||
* sparse matrix previously provided
|
* sparse matrix previously provided
|
||||||
*/
|
*/
|
||||||
|
|
|
||||||
|
|
@ -11,7 +11,6 @@ Author: 1987 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "devdefs.h"
|
#include "devdefs.h"
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
|
|
@ -22,11 +21,7 @@ Author: 1987 Thomas L. Quarles
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
SWmAsk(ckt,inModel,which,value)
|
SWmAsk(CKTcircuit *ckt, GENmodel *inModel, int which, IFvalue *value)
|
||||||
CKTcircuit *ckt;
|
|
||||||
GENmodel *inModel;
|
|
||||||
int which;
|
|
||||||
IFvalue *value;
|
|
||||||
{
|
{
|
||||||
SWmodel *model = (SWmodel *)inModel;
|
SWmodel *model = (SWmodel *)inModel;
|
||||||
switch(which) {
|
switch(which) {
|
||||||
|
|
|
||||||
|
|
@ -6,17 +6,13 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "swdefs.h"
|
#include "swdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
SWmDelete(inModel,modname,kill)
|
SWmDelete(GENmodel **inModel, IFuid modname, GENmodel *kill)
|
||||||
GENmodel **inModel;
|
|
||||||
IFuid modname;
|
|
||||||
GENmodel *kill;
|
|
||||||
{
|
{
|
||||||
SWmodel **model = (SWmodel **)inModel;
|
SWmodel **model = (SWmodel **)inModel;
|
||||||
SWmodel *modfast = (SWmodel *)kill;
|
SWmodel *modfast = (SWmodel *)kill;
|
||||||
|
|
|
||||||
|
|
@ -7,7 +7,6 @@ Modified: 2001 Jon Engelbert
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "swdefs.h"
|
#include "swdefs.h"
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -15,10 +14,7 @@ Modified: 2001 Jon Engelbert
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
SWmParam(param,value,inModel)
|
SWmParam(int param, IFvalue *value, GENmodel *inModel)
|
||||||
int param;
|
|
||||||
IFvalue *value;
|
|
||||||
GENmodel *inModel;
|
|
||||||
{
|
{
|
||||||
SWmodel *model = (SWmodel *)inModel;
|
SWmodel *model = (SWmodel *)inModel;
|
||||||
switch(param) {
|
switch(param) {
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,6 @@ Author: 1987 Gary W. Ng
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "swdefs.h"
|
#include "swdefs.h"
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "iferrmsg.h"
|
#include "iferrmsg.h"
|
||||||
|
|
@ -25,13 +24,7 @@ extern void NevalSrc();
|
||||||
extern double Nintegrate();
|
extern double Nintegrate();
|
||||||
|
|
||||||
int
|
int
|
||||||
SWnoise (mode, operation, genmodel, ckt, data, OnDens)
|
SWnoise (int mode, int operation, GENmodel *genmodel, CKTcircuit *ckt, Ndata *data, double *OnDens)
|
||||||
int mode;
|
|
||||||
int operation;
|
|
||||||
GENmodel *genmodel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
Ndata *data;
|
|
||||||
double *OnDens;
|
|
||||||
{
|
{
|
||||||
SWmodel *firstModel = (SWmodel *) genmodel;
|
SWmodel *firstModel = (SWmodel *) genmodel;
|
||||||
SWmodel *model;
|
SWmodel *model;
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "swdefs.h"
|
#include "swdefs.h"
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -15,11 +14,7 @@ Author: 1985 Gordon Jacobs
|
||||||
|
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
int
|
int
|
||||||
SWparam(param,value,inst,select)
|
SWparam(int param, IFvalue *value, GENinstance *inst, IFvalue *select)
|
||||||
int param;
|
|
||||||
IFvalue *value;
|
|
||||||
GENinstance *inst;
|
|
||||||
IFvalue *select;
|
|
||||||
{
|
{
|
||||||
SWinstance *here = (SWinstance *)inst;
|
SWinstance *here = (SWinstance *)inst;
|
||||||
switch(param) {
|
switch(param) {
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "swdefs.h"
|
#include "swdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -16,10 +15,7 @@ Author: 1985 Gordon Jacobs
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
SWpzLoad(inModel,ckt,s)
|
SWpzLoad(GENmodel *inModel, CKTcircuit *ckt, SPcomplex *s)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
SPcomplex *s;
|
|
||||||
/* load the current values into the
|
/* load the current values into the
|
||||||
* sparse matrix previously provided
|
* sparse matrix previously provided
|
||||||
* during AC analysis.
|
* during AC analysis.
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Gordon Jacobs
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "smpdefs.h"
|
#include "smpdefs.h"
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "swdefs.h"
|
#include "swdefs.h"
|
||||||
|
|
@ -15,11 +14,7 @@ Author: 1985 Gordon Jacobs
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
SWsetup(matrix,inModel,ckt,states)
|
SWsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
|
||||||
SMPmatrix *matrix;
|
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
int *states;
|
|
||||||
/* load the switch conductance with those pointers needed later
|
/* load the switch conductance with those pointers needed later
|
||||||
* for fast matrix loading
|
* for fast matrix loading
|
||||||
*/
|
*/
|
||||||
|
|
|
||||||
|
|
@ -7,22 +7,16 @@ Modified: 2000 AlansFixes
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
#include "swdefs.h"
|
#include "swdefs.h"
|
||||||
|
|
||||||
int
|
int
|
||||||
SWtrunc(inModel,ckt,timeStep)
|
SWtrunc(GENmodel *inModel, CKTcircuit *ckt, double *timeStep)
|
||||||
GENmodel *inModel;
|
|
||||||
register CKTcircuit *ckt;
|
|
||||||
register double *timeStep;
|
|
||||||
{
|
{
|
||||||
register SWmodel *model = (SWmodel*)inModel;
|
SWmodel *model = (SWmodel*)inModel;
|
||||||
register SWinstance *here;
|
SWinstance *here;
|
||||||
|
|
||||||
double lastChange, maxChange, maxStep, ref;
|
double lastChange, maxChange, maxStep, ref;
|
||||||
|
|
||||||
for( ; model!= NULL; model = model->SWnextModel) {
|
for( ; model!= NULL; model = model->SWnextModel) {
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,6 @@ Author: 1987 Thomas L. Quarles
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "devdefs.h"
|
#include "devdefs.h"
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
#include "vccsdefs.h"
|
#include "vccsdefs.h"
|
||||||
|
|
|
||||||
|
|
@ -9,7 +9,6 @@ Author: 1987 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "devdefs.h"
|
#include "devdefs.h"
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
|
|
@ -19,12 +18,7 @@ Author: 1987 Thomas L. Quarles
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
VCCSask(ckt,inst,which,value,select)
|
VCCSask(CKTcircuit *ckt, GENinstance *inst, int which, IFvalue *value, IFvalue *select)
|
||||||
CKTcircuit *ckt;
|
|
||||||
GENinstance *inst;
|
|
||||||
int which;
|
|
||||||
IFvalue *value;
|
|
||||||
IFvalue *select;
|
|
||||||
{
|
{
|
||||||
VCCSinstance *here = (VCCSinstance*)inst;
|
VCCSinstance *here = (VCCSinstance*)inst;
|
||||||
double vr;
|
double vr;
|
||||||
|
|
|
||||||
|
|
@ -6,17 +6,13 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "vccsdefs.h"
|
#include "vccsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
VCCSdelete(inModel,name,inst)
|
VCCSdelete(GENmodel *inModel, IFuid name, GENinstance **inst)
|
||||||
GENmodel *inModel;
|
|
||||||
IFuid name;
|
|
||||||
GENinstance **inst;
|
|
||||||
{
|
{
|
||||||
VCCSmodel *model = (VCCSmodel *)inModel;
|
VCCSmodel *model = (VCCSmodel *)inModel;
|
||||||
VCCSinstance **fast = (VCCSinstance**)inst;
|
VCCSinstance **fast = (VCCSinstance**)inst;
|
||||||
|
|
|
||||||
|
|
@ -6,14 +6,12 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "vccsdefs.h"
|
#include "vccsdefs.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
void
|
void
|
||||||
VCCSdestroy(inModel)
|
VCCSdestroy(GENmodel **inModel)
|
||||||
GENmodel **inModel;
|
|
||||||
{
|
{
|
||||||
VCCSmodel **model = (VCCSmodel**)inModel;
|
VCCSmodel **model = (VCCSmodel**)inModel;
|
||||||
VCCSinstance *here;
|
VCCSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,6 @@ Copyright 1990 Regents of the University of California. All rights reserved.
|
||||||
Author: 1985 Thomas L. Quarles
|
Author: 1985 Thomas L. Quarles
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#ifdef __STDC__
|
|
||||||
extern int VCCSask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
|
extern int VCCSask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
|
||||||
extern int VCCSdelete(GENmodel*,IFuid,GENinstance**);
|
extern int VCCSdelete(GENmodel*,IFuid,GENinstance**);
|
||||||
extern void VCCSdestroy(GENmodel**);
|
extern void VCCSdestroy(GENmodel**);
|
||||||
|
|
@ -16,17 +15,3 @@ extern int VCCSsLoad(GENmodel*,CKTcircuit*);
|
||||||
extern int VCCSsSetup(SENstruct*,GENmodel*);
|
extern int VCCSsSetup(SENstruct*,GENmodel*);
|
||||||
extern void VCCSsPrint(GENmodel*,CKTcircuit*);
|
extern void VCCSsPrint(GENmodel*,CKTcircuit*);
|
||||||
extern int VCCSsetup(SMPmatrix*,GENmodel*,CKTcircuit*,int*);
|
extern int VCCSsetup(SMPmatrix*,GENmodel*,CKTcircuit*,int*);
|
||||||
#else /* stdc */
|
|
||||||
extern int VCCSask();
|
|
||||||
extern int VCCSdelete();
|
|
||||||
extern void VCCSdestroy();
|
|
||||||
extern int VCCSload();
|
|
||||||
extern int VCCSmDelete();
|
|
||||||
extern int VCCSparam();
|
|
||||||
extern int VCCSpzLoad();
|
|
||||||
extern int VCCSsAcLoad();
|
|
||||||
extern int VCCSsLoad();
|
|
||||||
extern int VCCSsSetup();
|
|
||||||
extern void VCCSsPrint();
|
|
||||||
extern int VCCSsetup();
|
|
||||||
#endif /* stdc */
|
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vccsdefs.h"
|
#include "vccsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -15,9 +14,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
int
|
int
|
||||||
VCCSload(inModel,ckt)
|
VCCSload(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
/* actually load the current values into the
|
/* actually load the current values into the
|
||||||
* sparse matrix previously provided
|
* sparse matrix previously provided
|
||||||
*/
|
*/
|
||||||
|
|
|
||||||
|
|
@ -6,17 +6,13 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "vccsdefs.h"
|
#include "vccsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
VCCSmDelete(inModel,modname,kill)
|
VCCSmDelete(GENmodel **inModel, IFuid modname, GENmodel *kill)
|
||||||
GENmodel **inModel;
|
|
||||||
IFuid modname;
|
|
||||||
GENmodel *kill;
|
|
||||||
{
|
{
|
||||||
VCCSmodel **model = (VCCSmodel **)inModel;
|
VCCSmodel **model = (VCCSmodel **)inModel;
|
||||||
VCCSmodel *modfast = (VCCSmodel *)kill;
|
VCCSmodel *modfast = (VCCSmodel *)kill;
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
#include "vccsdefs.h"
|
#include "vccsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -15,11 +14,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
VCCSparam(param,value,inst,select)
|
VCCSparam(int param, IFvalue *value, GENinstance *inst, IFvalue *select)
|
||||||
int param;
|
|
||||||
IFvalue *value;
|
|
||||||
GENinstance *inst;
|
|
||||||
IFvalue *select;
|
|
||||||
{
|
{
|
||||||
VCCSinstance *here = (VCCSinstance *)inst;
|
VCCSinstance *here = (VCCSinstance *)inst;
|
||||||
switch(param) {
|
switch(param) {
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "complex.h"
|
#include "complex.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -16,10 +15,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
int
|
int
|
||||||
VCCSpzLoad(inModel,ckt,s)
|
VCCSpzLoad(GENmodel *inModel, CKTcircuit *ckt, SPcomplex *s)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
SPcomplex *s;
|
|
||||||
/* actually load the current values into the
|
/* actually load the current values into the
|
||||||
* sparse matrix previously provided
|
* sparse matrix previously provided
|
||||||
*/
|
*/
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "smpdefs.h"
|
#include "smpdefs.h"
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vccsdefs.h"
|
#include "vccsdefs.h"
|
||||||
|
|
@ -19,9 +18,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
VCCSsAcLoad(inModel,ckt)
|
VCCSsAcLoad(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
{
|
{
|
||||||
VCCSmodel *model = (VCCSmodel *)inModel;
|
VCCSmodel *model = (VCCSmodel *)inModel;
|
||||||
VCCSinstance *here;
|
VCCSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "smpdefs.h"
|
#include "smpdefs.h"
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vccsdefs.h"
|
#include "vccsdefs.h"
|
||||||
|
|
@ -20,11 +19,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
int
|
int
|
||||||
VCCSsetup(matrix,inModel,ckt,states)
|
VCCSsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
|
||||||
SMPmatrix *matrix;
|
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
int *states;
|
|
||||||
{
|
{
|
||||||
VCCSmodel *model = (VCCSmodel *)inModel;
|
VCCSmodel *model = (VCCSmodel *)inModel;
|
||||||
VCCSinstance *here;
|
VCCSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "smpdefs.h"
|
#include "smpdefs.h"
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vccsdefs.h"
|
#include "vccsdefs.h"
|
||||||
|
|
@ -19,9 +18,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
VCCSsLoad(inModel,ckt)
|
VCCSsLoad(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
{
|
{
|
||||||
VCCSmodel *model = (VCCSmodel *)inModel;
|
VCCSmodel *model = (VCCSmodel *)inModel;
|
||||||
VCCSinstance *here;
|
VCCSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "smpdefs.h"
|
#include "smpdefs.h"
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vccsdefs.h"
|
#include "vccsdefs.h"
|
||||||
|
|
@ -19,9 +18,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
void
|
void
|
||||||
VCCSsPrint(inModel,ckt)
|
VCCSsPrint(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
{
|
{
|
||||||
VCCSmodel *model = (VCCSmodel *)inModel;
|
VCCSmodel *model = (VCCSmodel *)inModel;
|
||||||
VCCSinstance *here;
|
VCCSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "smpdefs.h"
|
#include "smpdefs.h"
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vccsdefs.h"
|
#include "vccsdefs.h"
|
||||||
|
|
@ -19,9 +18,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
VCCSsSetup(info,inModel)
|
VCCSsSetup(SENstruct *info, GENmodel *inModel)
|
||||||
SENstruct *info;
|
|
||||||
GENmodel *inModel;
|
|
||||||
{
|
{
|
||||||
VCCSmodel *model = (VCCSmodel *)inModel;
|
VCCSmodel *model = (VCCSmodel *)inModel;
|
||||||
VCCSinstance *here;
|
VCCSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -4,7 +4,6 @@ Author: 1987 Thomas L. Quarles
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
#include "devdefs.h"
|
#include "devdefs.h"
|
||||||
#include "vcvsdefs.h"
|
#include "vcvsdefs.h"
|
||||||
|
|
|
||||||
|
|
@ -9,7 +9,6 @@ Author: 1987 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "devdefs.h"
|
#include "devdefs.h"
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
|
|
@ -19,12 +18,7 @@ Author: 1987 Thomas L. Quarles
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
VCVSask(ckt,inst,which,value,select)
|
VCVSask(CKTcircuit *ckt, GENinstance *inst, int which, IFvalue *value, IFvalue *select)
|
||||||
CKTcircuit *ckt;
|
|
||||||
GENinstance *inst;
|
|
||||||
int which;
|
|
||||||
IFvalue *value;
|
|
||||||
IFvalue *select;
|
|
||||||
{
|
{
|
||||||
VCVSinstance *here = (VCVSinstance *)inst;
|
VCVSinstance *here = (VCVSinstance *)inst;
|
||||||
double vr;
|
double vr;
|
||||||
|
|
|
||||||
|
|
@ -6,17 +6,13 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "vcvsdefs.h"
|
#include "vcvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
VCVSdelete(inModel,name,inst)
|
VCVSdelete(GENmodel *inModel, IFuid name, GENinstance **inst)
|
||||||
GENmodel *inModel;
|
|
||||||
IFuid name;
|
|
||||||
GENinstance **inst;
|
|
||||||
{
|
{
|
||||||
VCVSmodel *model = (VCVSmodel *)inModel;
|
VCVSmodel *model = (VCVSmodel *)inModel;
|
||||||
VCVSinstance **fast = (VCVSinstance**)inst;
|
VCVSinstance **fast = (VCVSinstance**)inst;
|
||||||
|
|
|
||||||
|
|
@ -6,14 +6,12 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "vcvsdefs.h"
|
#include "vcvsdefs.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
void
|
void
|
||||||
VCVSdestroy(inModel)
|
VCVSdestroy(GENmodel **inModel)
|
||||||
GENmodel **inModel;
|
|
||||||
{
|
{
|
||||||
VCVSmodel **model = (VCVSmodel **)inModel;
|
VCVSmodel **model = (VCVSmodel **)inModel;
|
||||||
VCVSinstance *here;
|
VCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -3,7 +3,6 @@ Copyright 1990 Regents of the University of California. All rights reserved.
|
||||||
Author: 1985 Thomas L. Quarles
|
Author: 1985 Thomas L. Quarles
|
||||||
**********/
|
**********/
|
||||||
|
|
||||||
#ifdef __STDC__
|
|
||||||
extern int VCVSask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
|
extern int VCVSask(CKTcircuit*,GENinstance*,int,IFvalue*,IFvalue*);
|
||||||
extern int VCVSdelete(GENmodel*,IFuid,GENinstance**);
|
extern int VCVSdelete(GENmodel*,IFuid,GENinstance**);
|
||||||
extern void VCVSdestroy(GENmodel**);
|
extern void VCVSdestroy(GENmodel**);
|
||||||
|
|
@ -18,19 +17,4 @@ extern int VCVSsSetup(SENstruct*,GENmodel*);
|
||||||
extern void VCVSsPrint(GENmodel*,CKTcircuit*);
|
extern void VCVSsPrint(GENmodel*,CKTcircuit*);
|
||||||
extern int VCVSsetup(SMPmatrix*,GENmodel*,CKTcircuit*,int*);
|
extern int VCVSsetup(SMPmatrix*,GENmodel*,CKTcircuit*,int*);
|
||||||
extern int VCVSunsetup(GENmodel*,CKTcircuit*);
|
extern int VCVSunsetup(GENmodel*,CKTcircuit*);
|
||||||
#else /* stdc */
|
|
||||||
extern int VCVSask();
|
|
||||||
extern int VCVSdelete();
|
|
||||||
extern void VCVSdestroy();
|
|
||||||
extern int VCVSfindBr();
|
|
||||||
extern int VCVSload();
|
|
||||||
extern int VCVSmDelete();
|
|
||||||
extern int VCVSparam();
|
|
||||||
extern int VCVSpzLoad();
|
|
||||||
extern int VCVSsAcLoad();
|
|
||||||
extern int VCVSsLoad();
|
|
||||||
extern int VCVSsSetup();
|
|
||||||
extern void VCVSsPrint();
|
|
||||||
extern int VCVSsetup();
|
|
||||||
extern int VCVSunsetup();
|
|
||||||
#endif /* stdc */
|
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vcvsdefs.h"
|
#include "vcvsdefs.h"
|
||||||
#include "trandefs.h"
|
#include "trandefs.h"
|
||||||
|
|
@ -15,10 +14,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
VCVSfindBr(ckt,inModel,name)
|
VCVSfindBr(CKTcircuit *ckt, GENmodel *inModel, IFuid name)
|
||||||
CKTcircuit *ckt;
|
|
||||||
GENmodel *inModel;
|
|
||||||
IFuid name;
|
|
||||||
{
|
{
|
||||||
VCVSmodel *model = (VCVSmodel *)inModel;
|
VCVSmodel *model = (VCVSmodel *)inModel;
|
||||||
VCVSinstance *here;
|
VCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vcvsdefs.h"
|
#include "vcvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -15,9 +14,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
int
|
int
|
||||||
VCVSload(inModel,ckt)
|
VCVSload(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
/* actually load the current voltage value into the
|
/* actually load the current voltage value into the
|
||||||
* sparse matrix previously provided
|
* sparse matrix previously provided
|
||||||
*/
|
*/
|
||||||
|
|
|
||||||
|
|
@ -6,17 +6,13 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "vcvsdefs.h"
|
#include "vcvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
#include "suffix.h"
|
#include "suffix.h"
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
VCVSmDelete(inModel,modname,kill)
|
VCVSmDelete(GENmodel **inModel, IFuid modname, GENmodel *kill)
|
||||||
GENmodel **inModel;
|
|
||||||
IFuid modname;
|
|
||||||
GENmodel *kill;
|
|
||||||
{
|
{
|
||||||
VCVSmodel **model = (VCVSmodel**)inModel;
|
VCVSmodel **model = (VCVSmodel**)inModel;
|
||||||
VCVSmodel *modfast = (VCVSmodel *)kill;
|
VCVSmodel *modfast = (VCVSmodel *)kill;
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "ifsim.h"
|
#include "ifsim.h"
|
||||||
#include "vcvsdefs.h"
|
#include "vcvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -15,11 +14,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
/* ARGSUSED */
|
/* ARGSUSED */
|
||||||
int
|
int
|
||||||
VCVSparam(param,value,inst,select)
|
VCVSparam(int param, IFvalue *value, GENinstance *inst, IFvalue *select)
|
||||||
int param;
|
|
||||||
IFvalue *value;
|
|
||||||
GENinstance *inst;
|
|
||||||
IFvalue *select;
|
|
||||||
{
|
{
|
||||||
VCVSinstance *here = (VCVSinstance *)inst;
|
VCVSinstance *here = (VCVSinstance *)inst;
|
||||||
switch(param) {
|
switch(param) {
|
||||||
|
|
|
||||||
|
|
@ -6,7 +6,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "complex.h"
|
#include "complex.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -16,10 +15,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
int
|
int
|
||||||
VCVSpzLoad(inModel,ckt,s)
|
VCVSpzLoad(GENmodel *inModel, CKTcircuit *ckt, SPcomplex *s)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
SPcomplex *s;
|
|
||||||
/* actually load the current voltage value into the
|
/* actually load the current voltage value into the
|
||||||
* sparse matrix previously provided
|
* sparse matrix previously provided
|
||||||
*/
|
*/
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vcvsdefs.h"
|
#include "vcvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -18,9 +17,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
VCVSsAcLoad(inModel,ckt)
|
VCVSsAcLoad(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
{
|
{
|
||||||
VCVSmodel *model = (VCVSmodel *)inModel;
|
VCVSmodel *model = (VCVSmodel *)inModel;
|
||||||
VCVSinstance *here;
|
VCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -8,7 +8,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "smpdefs.h"
|
#include "smpdefs.h"
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vcvsdefs.h"
|
#include "vcvsdefs.h"
|
||||||
|
|
@ -17,11 +16,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
/*ARGSUSED*/
|
/*ARGSUSED*/
|
||||||
int
|
int
|
||||||
VCVSsetup(matrix,inModel,ckt,states)
|
VCVSsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
|
||||||
SMPmatrix *matrix;
|
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
int *states;
|
|
||||||
{
|
{
|
||||||
VCVSmodel *model = (VCVSmodel *)inModel;
|
VCVSmodel *model = (VCVSmodel *)inModel;
|
||||||
VCVSinstance *here;
|
VCVSinstance *here;
|
||||||
|
|
@ -59,9 +54,7 @@ if((here->ptr = SMPmakeElt(matrix,here->first,here->second))==(double *)NULL){\
|
||||||
}
|
}
|
||||||
|
|
||||||
int
|
int
|
||||||
VCVSunsetup(inModel,ckt)
|
VCVSunsetup(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
{
|
{
|
||||||
VCVSmodel *model;
|
VCVSmodel *model;
|
||||||
VCVSinstance *here;
|
VCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vcvsdefs.h"
|
#include "vcvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -18,9 +17,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
VCVSsLoad(inModel,ckt)
|
VCVSsLoad(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
{
|
{
|
||||||
VCVSmodel *model = (VCVSmodel *)inModel;
|
VCVSmodel *model = (VCVSmodel *)inModel;
|
||||||
VCVSinstance *here;
|
VCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vcvsdefs.h"
|
#include "vcvsdefs.h"
|
||||||
#include "sperror.h"
|
#include "sperror.h"
|
||||||
|
|
@ -18,9 +17,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
void
|
void
|
||||||
VCVSsPrint(inModel,ckt)
|
VCVSsPrint(GENmodel *inModel, CKTcircuit *ckt)
|
||||||
GENmodel *inModel;
|
|
||||||
CKTcircuit *ckt;
|
|
||||||
{
|
{
|
||||||
VCVSmodel *model = (VCVSmodel *)inModel;
|
VCVSmodel *model = (VCVSmodel *)inModel;
|
||||||
VCVSinstance *here;
|
VCVSinstance *here;
|
||||||
|
|
|
||||||
|
|
@ -10,7 +10,6 @@ Author: 1985 Thomas L. Quarles
|
||||||
*/
|
*/
|
||||||
|
|
||||||
#include "ngspice.h"
|
#include "ngspice.h"
|
||||||
#include <stdio.h>
|
|
||||||
#include "smpdefs.h"
|
#include "smpdefs.h"
|
||||||
#include "cktdefs.h"
|
#include "cktdefs.h"
|
||||||
#include "vcvsdefs.h"
|
#include "vcvsdefs.h"
|
||||||
|
|
@ -19,9 +18,7 @@ Author: 1985 Thomas L. Quarles
|
||||||
|
|
||||||
|
|
||||||
int
|
int
|
||||||
VCVSsSetup(info,inModel)
|
VCVSsSetup(SENstruct *info, GENmodel *inModel)
|
||||||
SENstruct *info;
|
|
||||||
GENmodel *inModel;
|
|
||||||
{
|
{
|
||||||
VCVSmodel *model = (VCVSmodel *)inModel;
|
VCVSmodel *model = (VCVSmodel *)inModel;
|
||||||
VCVSinstance *here;
|
VCVSinstance *here;
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue