118 lines
3.5 KiB
C
118 lines
3.5 KiB
C
#include <config.h>
|
|
#include "ngspice.h"
|
|
#include "cktdefs.h"
|
|
#include "ftedefs.h"
|
|
#include <bool.h>
|
|
#include "circuits.h"
|
|
#include <wordlist.h>
|
|
#include "variable.h"
|
|
|
|
|
|
/* The option command. Syntax is option [opt ...] [opt = val ...].
|
|
* Val may be a string, an int, a float, or a list of the
|
|
* form (elt1 elt2 ...). */
|
|
void
|
|
com_option(wordlist *wl)
|
|
{
|
|
|
|
struct variable *vars;
|
|
char *s;
|
|
|
|
CKTcircuit *circuit = NULL;
|
|
|
|
if (!ft_curckt) {
|
|
fprintf(cp_err, "Error: no circuit loaded\n");
|
|
return;
|
|
}
|
|
|
|
circuit = (CKTcircuit *)(ft_curckt->ci_ckt);
|
|
|
|
|
|
if (wl == NULL) {
|
|
printf("******************************\n");
|
|
printf("* Current simulation options *\n");
|
|
printf("******************************\n\n");
|
|
printf("Temperatures:\n");
|
|
printf("temp = %f\n",circuit->CKTtemp);
|
|
printf("tnom = %f\n",circuit->CKTnomTemp);
|
|
|
|
printf("\nIntegration method summary:\n");
|
|
switch (circuit->CKTintegrateMethod)
|
|
{
|
|
case TRAPEZOIDAL:
|
|
printf("Integration Method = TRAPEZOIDAL\n");
|
|
break;
|
|
case GEAR:
|
|
printf("Integration Method = GEAR\n");
|
|
break;
|
|
default:
|
|
printf("Unknown integration method\n");
|
|
}
|
|
printf("MaxOrder = %d\n", circuit->CKTmaxOrder);
|
|
|
|
printf("\nTolerances (absolute):\n");
|
|
printf("abstol (current) = %f\n", circuit->CKTabstol);
|
|
printf("chgtol (charge) = %f\n", circuit->CKTchgtol);
|
|
printf("volttol (voltage) = %f\n", circuit->CKTvoltTol);
|
|
printf("pivotabstol (pivot) = %f\n", circuit->CKTpivotAbsTol);
|
|
|
|
printf("\nTolerances (relative):\n");
|
|
printf("reltol (current) = %f\n", circuit->CKTreltol);
|
|
printf("pivotreltol (pivot) = %f\n", circuit->CKTpivotRelTol);
|
|
|
|
printf("\nTruncation error:\n");
|
|
printf("trtol = %f\n", circuit->CKTtrtol);
|
|
#ifdef NEWTRUNC
|
|
printf("ltereltol = %f\n", circuit->CKTlteReltol);
|
|
printf("lteabstol = %f\n", circuit->CKTlteAbstol);
|
|
#endif /* NEWTRUNC */
|
|
|
|
printf("\nConductances:\n");
|
|
printf("gmin (devices) = %f\n", circuit->CKTgmin);
|
|
printf("diaggmin (stepping) = %f\n", circuit->CKTdiagGmin);
|
|
printf("gshunt = %f\n", circuit->CKTgshunt);
|
|
|
|
|
|
printf("delmin = %f\n", circuit->CKTdelmin);
|
|
|
|
printf("\nDefault parameters for MOS devices\n");
|
|
printf("Default M: %f\n", circuit->CKTdefaultMosM);
|
|
printf("Default L: %f\n", circuit->CKTdefaultMosL);
|
|
printf("Default W: %f\n", circuit->CKTdefaultMosW);
|
|
printf("Default AD: %f\n", circuit->CKTdefaultMosAD);
|
|
printf("Default AS: %f\n", circuit->CKTdefaultMosAS);
|
|
|
|
return;
|
|
}
|
|
vars = cp_setparse(wl);
|
|
|
|
/* This is sort of a hassle... */
|
|
while (vars) {
|
|
switch (vars->va_type) {
|
|
case VT_BOOL:
|
|
s = (char *) &vars->va_bool;
|
|
break;
|
|
case VT_NUM:
|
|
s = (char *) &vars->va_num;
|
|
break;
|
|
case VT_REAL:
|
|
s = (char *) &vars->va_real;
|
|
break;
|
|
case VT_STRING:
|
|
s = vars->va_string;
|
|
break;
|
|
case VT_LIST:
|
|
s = (char *) vars->va_vlist;
|
|
break;
|
|
default:
|
|
s = (char *) NULL;
|
|
}
|
|
|
|
/* qui deve settare le opzioni di simulazione */
|
|
cp_vset(vars->va_name, vars->va_type, s);
|
|
vars = vars->va_next;
|
|
}
|
|
return;
|
|
}
|
|
|