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