Jspice3
cktacdum.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  /* CKTacDump(ckt,freq,file)
9  * this is a simple program to dump the complex rhs vector
10  * into the rawfile.
11  */
12 
13 #include "spice.h"
14 #include <stdio.h>
15 #include "cktdefs.h"
16 #include "iferrmsg.h"
17 #include "util.h"
18 #include "cktext.h"
19 
20 
21 int
22 CKTacDump(ckt,freq,plot)
23 
24 CKTcircuit *ckt;
25 double freq;
26 GENERIC *plot;
27 {
28  double *rhsold;
29  double *irhsold;
30  int i;
31  IFcomplex *data;
32  IFvalue freqData;
33  IFvalue valueData;
34 
35  rhsold = ckt->CKTrhsOld;
36  irhsold = ckt->CKTirhsOld;
37  freqData.rValue = freq;
38  valueData.v.numValue = ckt->CKTmaxEqNum-1;
39  data = (IFcomplex *) MALLOC((ckt->CKTmaxEqNum-1)*sizeof(IFcomplex));
40  valueData.v.vec.cVec = data;
41  for (i = 0; i < ckt->CKTmaxEqNum-1; i++) {
42  data[i].real = rhsold[i+1];
43  data[i].imag = irhsold[i+1];
44  }
45  (*(SPfrontEnd->OUTdata))(plot,&freqData,&valueData);
46  FREE(data);
47  return (OK);
48 }
int numValue
Definition: ifsim.h:240
union uIFvalue::@13::@14 vec
IFfrontEnd * SPfrontEnd
Definition: main.c:917
Definition: ftedata.h:61
int CKTacDump(CKTcircuit *ckt, double freq, GENERIC *plot)
Definition: cktacdum.c:22
#define FREE(ptr)
Definition: spdefs.h:436
double rValue
Definition: ifsim.h:233
#define OK
Definition: iferrmsg.h:17
#define MALLOC(x)
Definition: util.h:9
struct sIFcomplex IFcomplex
struct uIFvalue::@13 v
double imag
Definition: ifsim.h:227
double real
Definition: ifsim.h:226
char GENERIC
Definition: ifsim.h:27