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)17TRANaskQuest(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