You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
57 lines
1.4 KiB
57 lines
1.4 KiB
/**********
|
|
Copyright 1990 Regents of the University of California. All rights reserved.
|
|
Author: 1985 Thomas L. Quarles
|
|
**********/
|
|
|
|
#include "ngspice.h"
|
|
#include <stdio.h>
|
|
#include "cktdefs.h"
|
|
#include "smpdefs.h"
|
|
#include "sperror.h"
|
|
#include "devdefs.h"
|
|
|
|
|
|
|
|
extern SPICEdev *DEVices[];
|
|
|
|
int
|
|
CKTic(CKTcircuit *ckt)
|
|
{
|
|
int error;
|
|
int size;
|
|
int i;
|
|
CKTnode *node;
|
|
|
|
size = SMPmatSize(ckt->CKTmatrix);
|
|
for (i=0;i<=size;i++) {
|
|
*(ckt->CKTrhs+i)=0;
|
|
}
|
|
|
|
for(node = ckt->CKTnodes;node != NULL; node = node->next) {
|
|
if(node->nsGiven) {
|
|
node->ptr = SMPmakeElt(ckt->CKTmatrix,node->number,node->number);
|
|
if(node->ptr == (double *)NULL) return(E_NOMEM);
|
|
ckt->CKThadNodeset = 1;
|
|
*(ckt->CKTrhs+node->number) = node->nodeset;
|
|
}
|
|
if(node->icGiven) {
|
|
if(! ( node->ptr)) {
|
|
node->ptr = SMPmakeElt(ckt->CKTmatrix,node->number,
|
|
node->number);
|
|
if(node->ptr == (double *)NULL) return(E_NOMEM);
|
|
}
|
|
*(ckt->CKTrhs+node->number) = node->ic;
|
|
}
|
|
}
|
|
|
|
if(ckt->CKTmode & MODEUIC) {
|
|
for (i=0;i<DEVmaxnum;i++) {
|
|
if( ((*DEVices[i]).DEVsetic != NULL) && (ckt->CKThead[i] != NULL) ){
|
|
error = (*((*DEVices[i]).DEVsetic))(ckt->CKThead[i],ckt);
|
|
if(error) return(error);
|
|
}
|
|
}
|
|
}
|
|
|
|
return(OK);
|
|
}
|