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 #include "spice.h"
9 #include <stdio.h>
10 #include "cktdefs.h"
11 #include "trandefs.h"
12 #include "iferrmsg.h"
13 
14 
15 /* ARGSUSED */
16 int
TRANaskQuest(cktp,anal,which,value)17 TRANaskQuest(cktp,anal,which,value)
18 
19 GENERIC *cktp;
20 GENERIC *anal;
21 int which;
22 IFvalue *value;
23 {
24     TRANAN *job = (TRANAN *) anal;
25 
26     switch (which) {
27 
28         case TRAN_TSTOP:
29             value->rValue = job->TRANfinalTime;
30             break;
31 
32         case TRAN_TSTEP:
33             value->rValue = job->TRANstep;
34             break;
35 
36         case TRAN_TSTART:
37             value->rValue = job->TRANinitTime;
38             break;
39 
40         case TRAN_TMAX:
41             value->rValue = job->TRANmaxStep;
42             break;
43 
44         case TRAN_UIC:
45             if (job->TRANmode & MODEUIC) {
46                 value->iValue = 1;
47             }
48             else {
49                 value->iValue = 0;
50             }
51             break;
52 
53         default:
54             if (DCTquery(&job->DC,which,value) == OK)
55                 return (OK);
56             return (E_BADPARM);
57     }
58     return (OK);
59 }
60 
61