146 lines
4.6 KiB
C
146 lines
4.6 KiB
C
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 1987 Kanwar Jit Singh
|
|
**********/
|
|
|
|
#include "ngspice/ngspice.h"
|
|
#include "ngspice/cktdefs.h"
|
|
#include "asrcdefs.h"
|
|
#include "ngspice/sperror.h"
|
|
#include "ngspice/suffix.h"
|
|
|
|
|
|
#define TSTALLOC(ptr, first, second) \
|
|
do { \
|
|
if ((here->ptr = SMPmakeElt(matrix, first, second)) == NULL) \
|
|
return(E_NOMEM); \
|
|
} while(0)
|
|
|
|
|
|
/* load the voltage source structure with those
|
|
* pointers needed later for fast matrix loading
|
|
*/
|
|
|
|
int
|
|
ASRCsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *states)
|
|
{
|
|
ASRCinstance *here;
|
|
ASRCmodel *model = (ASRCmodel*) inModel;
|
|
int error, i, j;
|
|
CKTnode *tmp;
|
|
|
|
NG_IGNORE(states);
|
|
|
|
for (; model; model = model->ASRCnextModel) {
|
|
for (here = model->ASRCinstances; here; here=here->ASRCnextInstance) {
|
|
|
|
if (!here->ASRCtree)
|
|
return E_PARMVAL;
|
|
|
|
if (here->ASRCtype == ASRC_VOLTAGE)
|
|
if (here->ASRCposNode == here->ASRCnegNode) {
|
|
SPfrontEnd->IFerrorf(ERR_FATAL, "instance %s is a shorted ASRC", here->ASRCname);
|
|
return(E_UNSUPP);
|
|
}
|
|
|
|
if (!here->ASRCtc1Given)
|
|
here->ASRCtc1 = 0.0;
|
|
if (!here->ASRCtc2Given)
|
|
here->ASRCtc2 = 0.0;
|
|
if (!here->ASRCreciproctcGiven)
|
|
here->ASRCreciproctc = 0;
|
|
|
|
switch (here->ASRCtype) {
|
|
case ASRC_VOLTAGE:
|
|
j = 4 + here->ASRCtree->numVars;
|
|
break;
|
|
case ASRC_CURRENT:
|
|
j = 2 * here->ASRCtree->numVars;
|
|
break;
|
|
default:
|
|
return (E_BADPARM);
|
|
}
|
|
|
|
here->ASRCposPtr = TMALLOC(double *, j);
|
|
here->ASRCvars = TMALLOC(int, here->ASRCtree->numVars);
|
|
here->ASRCacValues = TMALLOC(double, here->ASRCtree->numVars + 1);
|
|
|
|
#ifdef KLU
|
|
here->ASRCposBinding = TMALLOC (BindElement *, j) ;
|
|
#endif
|
|
|
|
/* For each controlling variable set the entries
|
|
in the vector of the positions of the SMP */
|
|
|
|
j = 0;
|
|
|
|
if (here->ASRCtype == ASRC_VOLTAGE) {
|
|
|
|
if (here->ASRCbranch == 0) {
|
|
error = CKTmkCur(ckt, &tmp, here->ASRCname, "branch");
|
|
if (error)
|
|
return(error);
|
|
here->ASRCbranch = tmp->number;
|
|
}
|
|
|
|
TSTALLOC(ASRCposPtr[j++], here->ASRCposNode, here->ASRCbranch);
|
|
TSTALLOC(ASRCposPtr[j++], here->ASRCnegNode, here->ASRCbranch);
|
|
TSTALLOC(ASRCposPtr[j++], here->ASRCbranch, here->ASRCnegNode);
|
|
TSTALLOC(ASRCposPtr[j++], here->ASRCbranch, here->ASRCposNode);
|
|
}
|
|
|
|
for (i = 0; i < here->ASRCtree->numVars; i++) {
|
|
int column;
|
|
|
|
switch (here->ASRCtree->varTypes[i]) {
|
|
case IF_INSTANCE:
|
|
column = CKTfndBranch(ckt, here->ASRCtree->vars[i].uValue);
|
|
if (column == 0) {
|
|
SPfrontEnd->IFerrorf(ERR_FATAL, "%s: unknown controlling source %s",
|
|
here->ASRCname, here->ASRCtree->vars[i].uValue);
|
|
return(E_BADPARM);
|
|
}
|
|
break;
|
|
case IF_NODE:
|
|
column = here->ASRCtree->vars[i].nValue->number;
|
|
break;
|
|
default:
|
|
return (E_BADPARM);
|
|
}
|
|
|
|
here->ASRCvars[i] = column;
|
|
|
|
if (here->ASRCtype == ASRC_VOLTAGE) {
|
|
TSTALLOC(ASRCposPtr[j++], here->ASRCbranch, column);
|
|
} else {
|
|
TSTALLOC(ASRCposPtr[j++], here->ASRCposNode, column);
|
|
TSTALLOC(ASRCposPtr[j++], here->ASRCnegNode, column);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
return(OK);
|
|
}
|
|
|
|
|
|
int
|
|
ASRCunsetup(GENmodel *inModel, CKTcircuit *ckt)
|
|
{
|
|
ASRCmodel *model = (ASRCmodel *) inModel;
|
|
ASRCinstance *here;
|
|
|
|
for (; model; model = model->ASRCnextModel)
|
|
for (here = model->ASRCinstances; here; here = here->ASRCnextInstance) {
|
|
if (here->ASRCbranch) {
|
|
CKTdltNNum(ckt, here->ASRCbranch);
|
|
here->ASRCbranch = 0;
|
|
}
|
|
FREE(here->ASRCposPtr);
|
|
FREE(here->ASRCvars);
|
|
FREE(here->ASRCacValues);
|
|
}
|
|
|
|
return OK;
|
|
}
|