You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
157 lines
4.2 KiB
157 lines
4.2 KiB
/**********
|
|
Copyright 1992 Regents of the University of California. All rights reserved.
|
|
Author: 1987 Kartikeya Mayaram, U. C. Berkeley CAD Group
|
|
Author: 1991 David A. Gates, U. C. Berkeley CAD Group
|
|
**********/
|
|
|
|
/*
|
|
* This is a simple routine to dump the internal device states. It produces
|
|
* states for .OP, .DC, & .TRAN simulations.
|
|
*/
|
|
|
|
#include "ngspice/ngspice.h"
|
|
#include "ngspice/cktdefs.h"
|
|
#include "numd2def.h"
|
|
#include "../../../ciderlib/twod/twoddefs.h"
|
|
#include "../../../ciderlib/twod/twodext.h"
|
|
#include "ngspice/cidersupt.h"
|
|
#include "ngspice/suffix.h"
|
|
|
|
|
|
/* Forward Declarations */
|
|
static void NUMD2putHeader(FILE *, CKTcircuit *, NUMD2instance *);
|
|
|
|
/* State Counter */
|
|
static int state_numOP = 0;
|
|
static int state_numDC = 0;
|
|
static int state_numTR = 0;
|
|
|
|
void
|
|
NUMD2dump(GENmodel *inModel, CKTcircuit *ckt)
|
|
{
|
|
register NUMD2model *model = (NUMD2model *) inModel;
|
|
register NUMD2instance *inst;
|
|
OUTPcard *output;
|
|
FILE *fpState;
|
|
char fileName[BSIZE_SP];
|
|
char description[BSIZE_SP];
|
|
char *prefix;
|
|
int *state_num;
|
|
int anyOutput = 0;
|
|
|
|
if (ckt->CKTmode & MODEDCOP) {
|
|
prefix = "OP";
|
|
state_num = &state_numOP;
|
|
sprintf(description, "...");
|
|
} else if (ckt->CKTmode & MODEDCTRANCURVE) {
|
|
prefix = "DC";
|
|
state_num = &state_numDC;
|
|
sprintf(description, "sweep = % e", ckt->CKTtime);
|
|
} else if (ckt->CKTmode & MODETRAN) {
|
|
prefix = "TR";
|
|
state_num = &state_numTR;
|
|
sprintf(description, "time = % e", ckt->CKTtime);
|
|
} else {
|
|
/* Not a recognized CKT mode. */
|
|
return;
|
|
}
|
|
|
|
for (; model != NULL; model = model->NUMD2nextModel) {
|
|
output = model->NUMD2outputs;
|
|
for (inst = model->NUMD2instances; inst != NULL;
|
|
inst = inst->NUMD2nextInstance) {
|
|
|
|
if (inst->NUMD2printGiven) {
|
|
if ((ckt->CKTmode & MODETRAN) &&
|
|
((ckt->CKTstat->STATaccepted - 1) % inst->NUMD2print != 0)) {
|
|
continue;
|
|
}
|
|
anyOutput = 1;
|
|
sprintf(fileName, "%s%s.%d.%s", output->OUTProotFile, prefix,
|
|
*state_num, inst->NUMD2name);
|
|
if ((fpState = fopen(fileName, "wb")) == NULL) {
|
|
perror(fileName);
|
|
} else {
|
|
NUMD2putHeader(fpState, ckt, inst);
|
|
TWOprnSolution(fpState, inst->NUMD2pDevice,
|
|
model->NUMD2outputs);
|
|
fclose(fpState);
|
|
LOGmakeEntry(fileName, description);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if (anyOutput) {
|
|
(*state_num)++;
|
|
}
|
|
}
|
|
|
|
#define NUMD2numOutputs 4
|
|
|
|
static
|
|
void
|
|
NUMD2putHeader(FILE *file, CKTcircuit *ckt, NUMD2instance *inst)
|
|
{
|
|
char *reference;
|
|
double refVal = 0.0;
|
|
int numVars = NUMD2numOutputs;
|
|
|
|
if (ckt->CKTmode & MODEDCOP) {
|
|
reference = NULL;
|
|
} else if (ckt->CKTmode & MODEDCTRANCURVE) {
|
|
reference = "sweep";
|
|
refVal = ckt->CKTtime;
|
|
numVars++;
|
|
} else if (ckt->CKTmode & MODETRAN) {
|
|
reference = "time";
|
|
refVal = ckt->CKTtime;
|
|
numVars++;
|
|
} else {
|
|
reference = NULL;
|
|
}
|
|
fprintf(file, "Title: Device %s external state\n", inst->NUMD2name);
|
|
fprintf(file, "Plotname: Device Operating Point\n");
|
|
fprintf(file, "Command: deftype v conductance S\n");
|
|
fprintf(file, "Flags: real\n");
|
|
fprintf(file, "No. Variables: %d\n", numVars);
|
|
fprintf(file, "No. Points: 1\n");
|
|
numVars = 0;
|
|
fprintf(file, "Variables:\n");
|
|
if (reference) {
|
|
fprintf(file, "\t%d %s unknown\n", numVars++, reference);
|
|
}
|
|
fprintf(file, "\t%d v12 voltage\n", numVars++);
|
|
fprintf(file, "\t%d i1 current\n", numVars++);
|
|
fprintf(file, "\t%d i2 current\n", numVars++);
|
|
fprintf(file, "\t%d g11 conductance\n", numVars++);
|
|
fprintf(file, "Values:\n0");
|
|
if (reference) {
|
|
fprintf(file, "\t% e\n", refVal);
|
|
}
|
|
fprintf(file, "\t% e\n", *(ckt->CKTstate0 + inst->NUMD2voltage));
|
|
fprintf(file, "\t% e\n", *(ckt->CKTstate0 + inst->NUMD2id));
|
|
fprintf(file, "\t% e\n", - *(ckt->CKTstate0 + inst->NUMD2id));
|
|
fprintf(file, "\t% e\n", *(ckt->CKTstate0 + inst->NUMD2conduct));
|
|
}
|
|
|
|
void
|
|
NUMD2acct(GENmodel *inModel, CKTcircuit *ckt, FILE *file)
|
|
{
|
|
register NUMD2model *model = (NUMD2model *) inModel;
|
|
register NUMD2instance *inst;
|
|
OUTPcard *output;
|
|
|
|
NG_IGNORE(ckt);
|
|
|
|
for (; model != NULL; model = model->NUMD2nextModel) {
|
|
output = model->NUMD2outputs;
|
|
for (inst = model->NUMD2instances; inst != NULL;
|
|
inst = inst->NUMD2nextInstance) {
|
|
|
|
if (output->OUTPstats) {
|
|
TWOmemStats(file, inst->NUMD2pDevice);
|
|
TWOcpuStats(file, inst->NUMD2pDevice);
|
|
}
|
|
}
|
|
}
|
|
}
|