1 /**********
2 Copyright 1990 Regents of the University of California.  All rights reserved.
3 Author: 1985 Thomas L. Quarles
4 **********/
5 
6     /*
7      *CKTnewEq(ckt,node,name)
8      *  Allocate a new circuit equation number (returned) in the specified
9      *  circuit to contain a new equation or node
10      * returns -1 for failure to allocate a node number
11      *
12      */
13 
14 #include "ngspice/ngspice.h"
15 #include "ngspice/ifsim.h"
16 #include "ngspice/iferrmsg.h"
17 #include "ngspice/smpdefs.h"
18 #include "ngspice/cktdefs.h"
19 
20 
21 int
CKTnewEq(CKTcircuit * ckt,CKTnode ** node,IFuid name)22 CKTnewEq(CKTcircuit *ckt, CKTnode **node, IFuid name)
23 {
24     CKTnode *mynode;
25     int error;
26 
27     error = CKTmkNode(ckt,&mynode);
28     if(error) return(error);
29 
30     if(node) *node = mynode;
31     mynode->name = name;
32 
33     error = CKTlinkEq(ckt,mynode);
34 
35     return(error);
36 }
37