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)19 CKTnodName(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