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: UCB CAD Group
5 1993 Stephen R. Whiteley
6 ****************************************************************************/
7
8 #include "spice.h"
9 #include <stdio.h>
10 #include "iferrmsg.h"
11 #include "cktdefs.h"
12 #include "sensdefs.h"
13
14
15 /* ARGSUSED */
16 int
SENSaskQuest(cktp,anal,which,value)17 SENSaskQuest(cktp,anal,which,value)
18
19 GENERIC *cktp;
20 GENERIC *anal;
21 int which;
22 IFvalue *value;
23 {
24 SENSAN *job = (SENSAN *) anal;
25
26 switch (which) {
27
28 case SENS_DEFTOL:
29 value->rValue = job->SENSdefTol;
30 break;
31
32 case SENS_DEFPERTURB:
33 value->rValue = job->SENSdefPert;
34 break;
35
36 case SENS_POS:
37 value->nValue = (IFnode)job->SENSoutPos;
38 break;
39
40 case SENS_NEG:
41 value->nValue = (IFnode)job->SENSoutNeg;
42 break;
43
44 case SENS_SRC:
45 value->uValue = job->SENSoutSrc;
46 break;
47
48 case SENS_NAME:
49 value->sValue = job->SENSoutName;
50 break;
51
52 default:
53 if (ACquery(&job->AC,which,value) == OK)
54 return (OK);
55 if (DCTquery(&job->DC,which,value) == OK)
56 return (OK);
57 return (E_BADPARM);
58 }
59 return (OK);
60 }
61
62