Jspice3
cktsetnp.c
Go to the documentation of this file.
1 /***************************************************************************
2 JSPICE3 adaptation of Spice3f2 - Copyright (c) Stephen R. Whiteley 1992
3 Copyright 1990 Regents of the University of California. All rights reserved.
4 Authors: 1985 Thomas L. Quarles
5  1993 Stephen R. Whiteley
6 ****************************************************************************/
7 
8  /*
9  * CKTsetNodPm
10  *
11  * set a parameter on a node.
12  */
13 
14 #include "spice.h"
15 #include <stdio.h>
16 #include "cktdefs.h"
17 #include "iferrmsg.h"
18 #include "util.h"
19 #include "cktext.h"
20 
21 
22 /* ARGSUSED */
23 int
24 CKTsetNodPm(ckt,node,parm,value,selector)
25 
26 GENERIC *ckt;
27 GENERIC *node;
28 int parm;
29 IFvalue *value;
30 IFvalue *selector;
31 {
32  if (!node) return (E_BADPARM);
33 
34  switch (parm) {
35 
36  case PARM_NS:
37  ((CKTnode *)node)->nodeset = value->rValue;
38  ((CKTnode *)node)->nsGiven = 1;
39  break;
40 
41  case PARM_IC:
42  ((CKTnode *)node)->ic = value->rValue;
43  ((CKTnode *)node)->icGiven = 1;
44  break;
45 
46  case PARM_NODETYPE:
47  ((CKTnode *)node)->type = value->iValue;
48  break;
49 
50  default:
51  return (E_BADPARM);
52  }
53  return (OK);
54 }
#define E_BADPARM
Definition: iferrmsg.h:26
int iValue
Definition: ifsim.h:232
double rValue
Definition: ifsim.h:233
#define OK
Definition: iferrmsg.h:17
#define PARM_NODETYPE
Definition: cktdefs.h:51
int CKTsetNodPm(GENERIC *ckt, GENERIC *node, int parm, IFvalue *value, IFvalue *selector)
Definition: cktsetnp.c:24
#define PARM_IC
Definition: cktdefs.h:50
#define PARM_NS
Definition: cktdefs.h:49
char GENERIC
Definition: ifsim.h:27