1 /**********
2 Copyright 1990 Regents of the University of California.  All rights reserved.
3 Author: 1985 Thomas L. Quarles
4 **********/
5 
6     /*
7      *CKTaskNodQst
8      *
9      *   ask about a parameter on a node.
10      */
11 
12 #include "ngspice/ngspice.h"
13 #include <stdio.h>
14 #include "ngspice/ifsim.h"
15 #include "ngspice/iferrmsg.h"
16 #include "ngspice/cktdefs.h"
17 
18 
19 
20 /* ARGSUSED */
21 int
CKTaskNodQst(CKTcircuit * ckt,CKTnode * node,int parm,IFvalue * value,IFvalue * selector)22 CKTaskNodQst(CKTcircuit *ckt, CKTnode *node, int parm, IFvalue *value, IFvalue *selector)
23 {
24     NG_IGNORE(ckt);
25     NG_IGNORE(selector);
26 
27     if(!node) return(E_BADPARM);
28     switch(parm) {
29 
30     case PARM_NS:
31         value->rValue = node->nodeset;
32         break;
33 
34     case PARM_IC:
35         value->rValue = node->ic;
36         break;
37 
38     case PARM_NODETYPE:
39         value->iValue = node->type;
40         break;
41 
42     default:
43         return(E_BADPARM);
44     }
45     return(OK);
46 }
47