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)22CKTnewEq(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