Jspice3
resacld.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  1992 Stephen R. Whiteley
6 ****************************************************************************/
7 
8 
9 #include "spice.h"
10 #include <stdio.h>
11 #include "resdefs.h"
12 #include "sperror.h"
13 
14 
15 /*ARGSUSED*/
16 int
17 RESacLoad(inModel,ckt)
18 
19 /* actually load the current resistance value into the
20  * sparse matrix previously provided
21  */
22 GENmodel *inModel;
23 CKTcircuit *ckt;
24 {
25  RESmodel *model = (RESmodel *)inModel;
26  RESinstance *here;
27 
28  /* loop through all the resistor models */
29  for ( ; model != NULL; model = model->RESnextModel) {
30 
31  /* loop through all the instances of the model */
32  for (here = model->RESinstances; here != NULL;
33  here = here->RESnextInstance) {
34 
35  if (!here->RESnegNode)
36  *(here->RESposPosptr) += here->RESconduct;
37  else if (!here->RESposNode)
38  *(here->RESnegNegptr) += here->RESconduct;
39  else {
40  *(here->RESposPosptr) += here->RESconduct;
41  *(here->RESnegNegptr) += here->RESconduct;
42  *(here->RESposNegptr) -= here->RESconduct;
43  *(here->RESnegPosptr) -= here->RESconduct;
44  }
45  }
46  }
47  return (OK);
48 }
int RESnegNode
Definition: resdefs.h:26
struct sRESmodel * RESnextModel
Definition: resdefs.h:56
if(TDesc==NULL)
Definition: cd.c:1326
double * RESnegPosptr
Definition: resdefs.h:39
double * RESposPosptr
Definition: resdefs.h:33
int RESposNode
Definition: resdefs.h:25
#define OK
Definition: iferrmsg.h:17
double RESconduct
Definition: resdefs.h:29
#define NULL
Definition: spdefs.h:121
int RESacLoad(GENmodel *inModel, CKTcircuit *ckt)
Definition: resacld.c:17
static char model[32]
Definition: subckt.c:76
double * RESposNegptr
Definition: resdefs.h:37
RESinstance * RESinstances
Definition: resdefs.h:58
struct sRESinstance * RESnextInstance
Definition: resdefs.h:20
double * RESnegNegptr
Definition: resdefs.h:35