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

XSPICE lcouple: remove unused cm_analog_integrate

This commit is contained in:
h_vogt 2012-09-11 21:29:16 +02:00
parent cb220b2d6f
commit 7c9b90c9ea
1 changed files with 10 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
src/xspice/icm/xtradev/lcouple/cfunc.mod
View File

@ -147,18 +147,11 @@ void cm_lcouple(ARGS) /* structure holding parms,
Mif_Complex_t ac_gain; /* AC gain */
/** Retrieve frequently used parameters... **/
num_turns = PARAM(num_turns);
if (ANALYSIS != MIF_AC) { /**** DC & Transient Analyses ****/
/** Test for INIT; if so, allocate storage, otherwise, retrieve
@ -174,19 +167,15 @@ void cm_lcouple(ARGS) /* structure holding parms,
}
/* Allocation not necessary...retrieve previous values */
in_flux = (double *) cm_analog_get_ptr(1,0); /* Set out pointer to current
in_flux = (double *) cm_analog_get_ptr(1,0); /* Set out pointer to current
time storage */
in_flux_old = (double *) cm_analog_get_ptr(1,1); /* Set old-output-state pointer
to previous time storage */
/* retrieve fake input and output values for truncation
error checking */
in_flux_fake = (double *) cm_analog_get_ptr(2,0);
output_voltage_fake = (double *) cm_analog_get_ptr(3,0);
in_flux_old = (double *) cm_analog_get_ptr(1,1); /* Set old-output-state pointer
to previous time storage */
/* retrieve fake input and output values for truncation
error checking */
in_flux_fake = (double *) cm_analog_get_ptr(2,0);
output_voltage_fake = (double *) cm_analog_get_ptr(3,0);
/** Retrieve inputs... **/
@ -202,14 +191,10 @@ void cm_lcouple(ARGS) /* structure holding parms,
/** Calculate output value for mmf... **/
output_mmf = num_turns * input_current;
output_mmf = num_turns * input_current;
OUTPUT(mmf_out) = output_mmf;
PARTIAL(mmf_out,l) = num_turns;
/** Calculate output value for output_voltage... **/
@ -230,10 +215,9 @@ void cm_lcouple(ARGS) /* structure holding parms,
PARTIAL(l,mmf_out) = -num_turns / delta;
/* add fake cm_analog_integrate for truncation error checks */
cm_analog_integrate(*output_voltage_fake,in_flux_fake,&pout_pin_fake);
/* not initialized, not used */
/*cm_analog_integrate(*output_voltage_fake,in_flux_fake,&pout_pin_fake); */
}
}
else { /**** AC Analysis...****/
@ -244,7 +228,6 @@ void cm_lcouple(ARGS) /* structure holding parms,
ac_gain.real= num_turns;
ac_gain.imag= 0.0;
AC_GAIN(mmf_out,l) = ac_gain;
}
}