Jspice3
jjask.c
Go to the documentation of this file.
1 /***************************************************************************
2 JSPICE3 adaptation of Spice3e2 - Copyright (c) Stephen R. Whiteley 1992
3 Author: 1992 Stephen R. Whiteley
4 ****************************************************************************/
5 
6 #include "spice.h"
7 #include <stdio.h>
8 #include <math.h>
9 #include "jjdefs.h"
10 #include "sperror.h"
11 #include "const.h"
12 #include "util.h"
13 
14 
15 /* ARGSUSED */
16 int
17 JJask(ckt,inst,which,value,select)
18 
19 CKTcircuit *ckt;
20 GENinstance *inst;
21 int which;
22 IFvalue *value;
23 IFvalue *select;
24 {
25  JJinstance *here = (JJinstance*)inst;
26 
27  switch (which) {
28  case JJ_AREA:
29  value->rValue = here->JJarea;
30  break;
31  case JJ_IC:
32  value->v.vec.rVec = here->JJinitCnd;
33  value->v.numValue = 2;
34  break;
35  case JJ_ICP:
36  value->rValue = here->JJinitPhase;
37  break;
38  case JJ_ICV:
39  value->rValue = here->JJinitVoltage;
40  break;
41  case JJ_CON:
42  value->uValue = here->JJcontrol;
43  break;
44  case JJ_QUEST_CRT:
45  value->rValue = here->JJcriti;
46  break;
47  case JJ_QUEST_CAP:
48  value->rValue = here->JJcap;
49  break;
50  case JJ_QUEST_G0:
51  value->rValue = here->JJg0;
52  break;
53  case JJ_QUEST_GN:
54  value->rValue = here->JJgn;
55  break;
56  case JJ_QUEST_GS:
57  value->rValue = here->JJgs;
58  break;
59  case JJ_QUEST_G1:
60  value->rValue = here->JJg1;
61  break;
62  case JJ_QUEST_G2:
63  value->rValue = here->JJg2;
64  break;
65  default:
66  return (E_BADPARM);
67  }
68  return (OK);
69 }
70 
71 
double JJg1
Definition: jjdefs.h:44
double JJarea
Definition: jjdefs.h:28
int numValue
Definition: ifsim.h:240
#define JJ_QUEST_G1
Definition: jjdefs.h:135
IFuid JJcontrol
Definition: jjdefs.h:27
double JJcap
Definition: jjdefs.h:40
union uIFvalue::@13::@14 vec
#define JJ_ICP
Definition: jjdefs.h:124
#define E_BADPARM
Definition: iferrmsg.h:26
#define JJ_AREA
Definition: jjdefs.h:122
double rValue
Definition: ifsim.h:233
#define JJ_QUEST_CAP
Definition: jjdefs.h:131
#define OK
Definition: iferrmsg.h:17
double JJg0
Definition: jjdefs.h:41
int JJask(CKTcircuit *ckt, GENinstance *inst, int which, IFvalue *value, IFvalue *select)
Definition: jjask.c:17
#define JJ_QUEST_GS
Definition: jjdefs.h:134
double JJcriti
Definition: jjdefs.h:39
double JJg2
Definition: jjdefs.h:45
#define JJ_QUEST_G0
Definition: jjdefs.h:132
double JJgs
Definition: jjdefs.h:43
#define JJ_ICV
Definition: jjdefs.h:125
#define JJ_QUEST_CRT
Definition: jjdefs.h:130
#define JJ_QUEST_G2
Definition: jjdefs.h:136
#define JJ_IC
Definition: jjdefs.h:123
struct uIFvalue::@13 v
#define JJ_QUEST_GN
Definition: jjdefs.h:133
#define JJ_CON
Definition: jjdefs.h:126
double JJgn
Definition: jjdefs.h:42
double JJinitCnd[2]
Definition: jjdefs.h:30
IFuid uValue
Definition: ifsim.h:236