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

code for SENSDEBUG fixed

This commit is contained in:
dwarning 2013-04-23 09:12:42 +02:00
parent 1a3b74e9e7
commit ef7794de2e
6 changed files with 23 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/spicelib/analysis/dctrcurv.c
View File

@ -451,7 +451,7 @@ resume:
} }
if (job->TRCVvType[i] == TEMP_CODE) { /* Temperature */ if (job->TRCVvType[i] == TEMP_CODE) { /* Temperature */
printf("Current Circuit Temperature : %.5e C\n", printf("Current Circuit Temperature : %.5e C\n",
ckt-CKTtemp - CONSTCtoK); ckt->CKTtemp - CONSTCtoK);
} }
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */

4
src/spicelib/devices/bjt/bjtsacl.c
View File

@ -540,11 +540,11 @@ load:
,cbe,icbe,cce,icce); ,cbe,icbe,cce,icce);
printf("cc = %.7e + j%.7e , ce = %.7e + j%.7e,", printf("cc = %.7e + j%.7e , ce = %.7e + j%.7e,",
,cc,icc,ce,ice); cc,icc,ce,ice);
printf("ccprm = %.7e + j%.7e , ceprm = %.7e + j%.7e", printf("ccprm = %.7e + j%.7e , ceprm = %.7e + j%.7e",
ccprm,iccprm,ceprm,iceprm); ccprm,iccprm,ceprm,iceprm);
printf("cb = %.7e + j%.7e , cbprm = %.7e + j%.7e , ", printf("cb = %.7e + j%.7e , cbprm = %.7e + j%.7e , ",
cb,icb,cbprm,icbprm) cb,icb,cbprm,icbprm);
printf("cs = %.7e + j%.7e\n", printf("cs = %.7e + j%.7e\n",
cs,ics); cs,ics);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */

22
src/spicelib/devices/dio/diosload.c
View File

@ -56,10 +56,10 @@ DIOsLoad(GENmodel *inModel, CKTcircuit *ckt)
#ifdef SENSDEBUG #ifdef SENSDEBUG
printf("DIOsenload\n"); printf("DIOsenload\n");
fprintf(file,"DIOsenload\n"); fprintf(stdout,"DIOsenload\n");
fprintf(file,"CKTtime = %.5e\n",ckt->CKTtime); fprintf(stdout,"CKTtime = %.5e\n",ckt->CKTtime);
fprintf(file,"CKTorder = %.5e\n",ckt->CKTorder); fprintf(stdout,"CKTorder = %.5e\n",ckt->CKTorder);
fprintf(file,"tag0 = %.5e tag1 = %.5e\n",tag0,tag1); fprintf(stdout,"tag0 = %.5e tag1 = %.5e\n",tag0,tag1);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */
/* loop through all the diode models */ /* loop through all the diode models */
@ -70,7 +70,7 @@ DIOsLoad(GENmodel *inModel, CKTcircuit *ckt)
here=here->DIOnextInstance) { here=here->DIOnextInstance) {
#ifdef SENSDEBUG #ifdef SENSDEBUG
fprintf(file,"pos = %d , posprm = %d ,neg = %d, senparmno = %d\n", fprintf(stdout,"pos = %d , posprm = %d ,neg = %d, senparmno = %d\n",
here->DIOposNode ,here->DIOposPrimeNode,here->DIOnegNode, here->DIOposNode ,here->DIOposPrimeNode,here->DIOnegNode,
here->DIOsenParmNo); here->DIOsenParmNo);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */
@ -94,7 +94,7 @@ DIOsLoad(GENmodel *inModel, CKTcircuit *ckt)
#ifdef SENSDEBUG #ifdef SENSDEBUG
fprintf(file,"cd0 = %.7e \n",cd0); fprintf(stdout,"cd0 = %.7e \n",cd0);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */
A0 = here->DIOarea; A0 = here->DIOarea;
@ -120,9 +120,9 @@ DIOsLoad(GENmodel *inModel, CKTcircuit *ckt)
*(here->DIOdphidp) = DqdDp; *(here->DIOdphidp) = DqdDp;
#ifdef SENSDEBUG #ifdef SENSDEBUG
fprintf(file,"cd0 = %.7e ,cd = %.7e,DcdDp=%.7e\n", cd0,cd,DcdDp); fprintf(stdout,"cd0 = %.7e ,cd = %.7e,DcdDp=%.7e\n", cd0,cd,DcdDp);
fprintf(file,"cspr0 = %.7e ,DcsprDp=%.7e\n", cspr0,DcsprDp); fprintf(stdout,"cspr0 = %.7e ,DcsprDp=%.7e\n", cspr0,DcsprDp);
fprintf(file,"qd0 = %.7e ,qd = %.7e,DqdDp=%.7e\n", qd0,qd,DqdDp); fprintf(stdout,"qd0 = %.7e ,qd = %.7e,DqdDp=%.7e\n", qd0,qd,DqdDp);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */
if((info->SENmode == TRANSEN) && if((info->SENmode == TRANSEN) &&
@ -152,12 +152,12 @@ next:
2*(iparmno - 1) + 1); 2*(iparmno - 1) + 1);
#ifdef SENSDEBUG #ifdef SENSDEBUG
fprintf(file,"\n iparmno=%d,Osxp=%.7e\n",iparmno,Osxp); fprintf(stdout,"\n iparmno=%d,Osxp=%.7e\n",iparmno,Osxp);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */
if(iparmno == here->DIOsenParmNo) Osxp = Osxp - tag0 * DqdDp; if(iparmno == here->DIOsenParmNo) Osxp = Osxp - tag0 * DqdDp;
#ifdef SENSDEBUG #ifdef SENSDEBUG
fprintf(file,"Osxp=%.7e\n",Osxp); fprintf(stdout,"Osxp=%.7e\n",Osxp);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */
*(info->SEN_RHS[here->DIOposPrimeNode] + iparmno) += Osxp; *(info->SEN_RHS[here->DIOposPrimeNode] + iparmno) += Osxp;

6
src/spicelib/devices/ind/indsacl.c
View File

@ -150,9 +150,9 @@ INDsAcLoad(GENmodel *inModel, CKTcircuit *ckt)
ival = cind * ckt->CKTomega ; ival = cind * ckt->CKTomega ;
#ifdef SENSDEBUG #ifdef SENSDEBUG
fprintf(file,"cind = %.5e,icind = %.5e\n",cind,icind); fprintf(stdout,"cind = %.5e,icind = %.5e\n",cind,icind);
fprintf(file,"val = %.5e,ival = %.5e\n",val,ival); fprintf(stdout,"val = %.5e,ival = %.5e\n",val,ival);
fprintf(file,"brEq = %.5e,senparmno = %.5e\n", fprintf(stdout,"brEq = %.5e,senparmno = %.5e\n",
here->INDbrEq,here->INDsenParmNo); here->INDbrEq,here->INDsenParmNo);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */

12
src/spicelib/devices/ind/indsload.c
View File

@ -47,8 +47,8 @@ INDsLoad(GENmodel *inModel, CKTcircuit *ckt)
if((info->SENmode == TRANSEN) && (ckt->CKTmode & MODEINITTRAN)) return(OK); if((info->SENmode == TRANSEN) && (ckt->CKTmode & MODEINITTRAN)) return(OK);
#ifdef SENSDEBUG #ifdef SENSDEBUG
fprintf(file,"INDsenLoad\n"); fprintf(stdout,"INDsenLoad\n");
fprintf(file,"time = %.5e\n",ckt->CKTtime); fprintf(stdout,"time = %.5e\n",ckt->CKTtime);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */
@ -109,7 +109,7 @@ INDsLoad(GENmodel *inModel, CKTcircuit *ckt)
} }
#ifdef SENSDEBUG #ifdef SENSDEBUG
fprintf(file,"cind1 = %.5e,cind2 = %.5e\n",cind1,cind2); fprintf(stdout,"cind1 = %.5e,cind2 = %.5e\n",cind1,cind2);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */
} }
@ -125,8 +125,8 @@ INDsLoad(GENmodel *inModel, CKTcircuit *ckt)
#endif /* MUTUAL */ #endif /* MUTUAL */
cind = *(ckt->CKTrhsOld + here->INDbrEq); cind = *(ckt->CKTrhsOld + here->INDbrEq);
#ifdef SENSDEBUG #ifdef SENSDEBUG
fprintf(file,"\n cind=%.5e\n",cind); fprintf(stdout,"\n cind=%.5e\n",cind);
fprintf(file,"\n tag0=%.5e,tag1=%.5e\n",tag0,tag1); fprintf(stdout,"\n tag0=%.5e,tag1=%.5e\n",tag0,tag1);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */
for(iparmno = 1;iparmno<=info->SENparms;iparmno++){ for(iparmno = 1;iparmno<=info->SENparms;iparmno++){
Osxp = tag0 * *(ckt->CKTstate1 + here->INDsensxp Osxp = tag0 * *(ckt->CKTstate1 + here->INDsensxp
@ -135,7 +135,7 @@ INDsLoad(GENmodel *inModel, CKTcircuit *ckt)
+ 2*(iparmno - 1) + 1); + 2*(iparmno - 1) + 1);
if(iparmno == here->INDsenParmNo) Osxp = Osxp - tag0 * cind; if(iparmno == here->INDsenParmNo) Osxp = Osxp - tag0 * cind;
#ifdef SENSDEBUG #ifdef SENSDEBUG
fprintf(file,"\n Osxp=%.5e\n",Osxp); fprintf(stdout,"\n Osxp=%.5e\n",Osxp);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */
*(info->SEN_RHS[here->INDbrEq] + iparmno) -= Osxp; *(info->SEN_RHS[here->INDbrEq] + iparmno) -= Osxp;

1
src/spicelib/devices/vbic/vbicload.c
View File

@ -873,7 +873,6 @@ next1:
printf("gpi = %.7e\n", Ibe_Vbei); printf("gpi = %.7e\n", Ibe_Vbei);
printf("gmu = %.7e, gm = %.7e\n", Ibc_Vbci, Itzf_Vbei); printf("gmu = %.7e, gm = %.7e\n", Ibc_Vbci, Itzf_Vbei);
printf("go = %.7e, gx = %.7e\n", Itzf_Vbci, Irbi_Vrbi); printf("go = %.7e, gx = %.7e\n", Itzf_Vbci, Irbi_Vrbi);
printf("geqcb = %.7e, geqbx = %.7e\n", geqcb, geqbx);
printf("cc = %.7e, cb = %.7e\n", Ibe+Itzf, Ibe); printf("cc = %.7e, cb = %.7e\n", Ibe+Itzf, Ibe);
#endif /* SENSDEBUG */ #endif /* SENSDEBUG */
continue; /* go to 1000 */ continue; /* go to 1000 */