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

using a controlled_exit

This commit is contained in:
dwarning 2010-01-19 21:49:29 +00:00
parent 9f97f8701c
commit b0b8624bfc
3 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/spicelib/devices/cpl/cplload.c
View File

@ -25,6 +25,8 @@ static int divC(double, double, double, double, double*, double*);
static void update_cnv_a(TMS*, float, double, double, double, double, double, double);
static void copy_cp(CPLine*, CPLine*);
void controlled_exit(int);
/*ARGSUSED*/
int
CPLload(GENmodel *inModel, CKTcircuit *ckt)
@ -759,7 +761,7 @@ get_pvs_vi(t1, t2, cp, v1_i, v2_i, i1_i, i2_i, v1_o, v2_o, i1_o, i2_o)
errordetect:
fprintf(stderr, "your maximum time step is too large for tau.\n");
fprintf(stderr, "decrease max time step in .tran card and try again\n");
exit(0);
controlled_exit(0);
}

16
src/spicelib/devices/cpl/cplsetup.c
View File

@ -128,6 +128,8 @@ static int rotate(int, int, int);
#define epsi 1.0e-16
static char *message = "tau of coupled lines is larger than max time step";
void controlled_exit(int);
/* ARGSUSED */
int
CPLsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit *ckt, int *state)
@ -541,7 +543,7 @@ static double
if (!v) {
fprintf(stderr, "Memory Allocation Error by tmalloc in vector().\n");
fprintf(stderr, "...now exiting to system ...\n");
exit(0);
controlled_exit(0);
}
return v-nl;
}
@ -585,7 +587,7 @@ polint(double *xa, double *ya, int n, double x, double *y, double *dy)
if ((den=ho-hp) == 0.0) {
fprintf(stderr, "(Error) in routine POLINT\n");
fprintf(stderr, "...now exiting to system ...\n");
exit(0);
controlled_exit(0);
}
den = w/den;
d[i] = hp * den;
@ -729,7 +731,7 @@ Gaussian_Elimination2(int dims, int type)
}
if (max < epsilon) {
fprintf(stderr, " can not choose a pivot (misc)\n");
exit(0);
controlled_exit(0);
}
if (imax != i)
for (k = i; k <= dim; k++) {
@ -932,7 +934,7 @@ static void
loop_ZY(int dim, double y)
{
int i, j, k;
double fmin, fmin1;
double fmin, fmin1=0.0;
for (i = 0; i < dim; i++)
for (j = 0; j < dim; j++)
@ -948,7 +950,7 @@ loop_ZY(int dim, double y)
fmin = D[i];
if (fmin < 0) {
fprintf(stderr, "(Error) The capacitance matrix of the multiconductor system is not positive definite.\n");
exit(0);
controlled_exit(0);
} else {
fmin = sqrt(fmin);
fmin1 = 1 / fmin;
@ -1099,7 +1101,7 @@ eval_frequency(int dim, int deg_o)
if (min <= 0) {
fprintf(stderr, "A mode frequency is not positive. Abort!\n");
exit(0);
controlled_exit(0);
}
Scaling_F2 = 1.0 / min;
@ -1658,7 +1660,7 @@ Gaussian_Elimination(int dims)
}
if (max < epsi_mult) {
fprintf(stderr, " can not choose a pivot (mult)\n");
exit(0);
controlled_exit(0);
}
if (imax != i)
for (k = i; k <= dim; k++) {

8
src/spicelib/devices/txl/txlsetup.c
View File

@ -71,6 +71,8 @@ static double AA[3][4];
#define epsi 1.0e-16
#define epsi2 1.0e-28
void controlled_exit(int);
/* ARGSUSED */
int
TXLsetup(SMPmatrix *matrix, GENmodel *inModel, CKTcircuit*ckt, int *state)
@ -237,7 +239,7 @@ ReadTxL(TXLinstance *tx, CKTcircuit *ckt)
if (l == 0.0) {
fprintf(stderr, "(Error) transmission line of zero length\n");
exit(0);
controlled_exit(0);
}
else {
if (R / L < 5.0e+5) {
@ -514,7 +516,7 @@ Gaussian_Elimination1(int dims)
}
if (max < epsi) {
fprintf(stderr, " can not choose a pivot \n");
exit(0);
controlled_exit(0);
}
if (imax != i)
for (k = i; k <= dim; k++) {
@ -874,7 +876,7 @@ Gaussian_Elimination2(int dims)
}
if (max < epsi2) {
fprintf(stderr, " can not choose a pivot \n");
exit(0);
controlled_exit(0);
}
if (imax != i)
for (k = i; k <= dim; k++) {