luke
/
ngspice
mirror of https://git.code.sf.net/p/ngspice/ngspice
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

twoprint.c, swallow warnings

This commit is contained in:
rlar 2011-08-13 16:13:16 +00:00
parent f360d06d18
commit 0cf889d590
2 changed files with 10 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ChangeLog
View File

@ -1,3 +1,7 @@
2011-08-13 Robert Larice
* src/ciderlib/twod/twoprint.c :
twoprint.c, swallow warnings
2011-08-13 Robert Larice
* src/frontend/parse-bison.c ,
* src/frontend/parse-bison.h ,

15
src/ciderlib/twod/twoprint.c
View File

@ -27,7 +27,6 @@ TWOprnSolution(FILE *file, TWOdevice *pDevice, OUTPcard *output)
int numVars = 0;
TWOnode ***nodeArray = NULL;
TWOnode *pNode;
TWOelem *pElem;
TWOmaterial *info;
double data[50];
double ex, ey, refPsi = 0.0, eGap, dGap;
@ -36,7 +35,6 @@ TWOprnSolution(FILE *file, TWOdevice *pDevice, OUTPcard *output)
double jcy, jdy, jny, jpy, jty;
double *xScale = pDevice->xScale;
double *yScale = pDevice->yScale;
BOOLEAN foundElem;
if (output->OUTPnumVars == -1) {
/* First pass. Need to count number of variables in output. */
@ -109,12 +107,12 @@ TWOprnSolution(FILE *file, TWOdevice *pDevice, OUTPcard *output)
/* store the nodes in this work array and print out later */
for (xIndex = 1; xIndex < pDevice->numXNodes; xIndex++) {
for (yIndex = 1; yIndex < pDevice->numYNodes; yIndex++) {
pElem = pDevice->elemArray[xIndex][yIndex];
TWOelem *pElem = pDevice->elemArray[xIndex][yIndex];
if (pElem != NIL(TWOelem)) {
if (refPsi == 0.0 && pElem->matlInfo->type == SEMICON) {
refPsi = pElem->matlInfo->refPsi;
}
for (index = 0; index <= 3; index++) {
for (index = 0; index < 4; index++) {
if (pElem->evalNodes[index]) {
pNode = pElem->pNodes[index];
nodeArray[pNode->nodeI][pNode->nodeJ] = pNode;
@ -214,13 +212,12 @@ TWOprnSolution(FILE *file, TWOdevice *pDevice, OUTPcard *output)
for (yIndex = 1; yIndex <= pDevice->numYNodes; yIndex++) {
pNode = nodeArray[xIndex][yIndex];
if (pNode != NIL(TWOnode)) {
TWOelem *pElem = NULL;
/* Find the element to which this node belongs. */
foundElem = FALSE;
for (index = 0; (index <= 3) && (!foundElem); index++) {
for (index = 0; index < 4; index++) {
pElem = pNode->pElems[index];
if (pElem != NIL(TWOelem) && pElem->evalNodes[(index + 2) % 4]) {
foundElem = TRUE;
}
if (pElem != NIL(TWOelem) && pElem->evalNodes[(index + 2) % 4])
break;
}
nodeFields(pElem, pNode, &ex, &ey);
nodeCurrents(pElem, pNode, &mun, &mup,