1 /********** 2 Copyright 1990 Regents of the University of California. All rights reserved. 3 Author: 1985 Thomas L. Quarles 4 **********/ 5 /* 6 */ 7 8 /* 9 *CKTnodName(ckt) 10 * output information on all circuit nodes/equations 11 * 12 */ 13 14 #include "ngspice/ngspice.h" 15 #include "ngspice/cktdefs.h" 16 17 18 IFuid CKTnodName(CKTcircuit * ckt,int nodenum)19CKTnodName(CKTcircuit *ckt, int nodenum) 20 { 21 CKTnode *here; 22 23 for(here = ckt->CKTnodes;here; here = here->next) { 24 if(here->number == nodenum) { 25 /* found it */ 26 return(here->name); 27 } 28 } 29 /* doesn't exist - do something */ 30 return("UNKNOWN NODE"); 31 } 32