From 7c9b90c9eab8c8cd28c915ace2e3f02722125b00 Mon Sep 17 00:00:00 2001 From: h_vogt Date: Tue, 11 Sep 2012 21:29:16 +0200 Subject: [PATCH] XSPICE lcouple: remove unused cm_analog_integrate --- src/xspice/icm/xtradev/lcouple/cfunc.mod | 37 +++++++----------------- 1 file changed, 10 insertions(+), 27 deletions(-) diff --git a/src/xspice/icm/xtradev/lcouple/cfunc.mod b/src/xspice/icm/xtradev/lcouple/cfunc.mod index ab111d632..847466da7 100644 --- a/src/xspice/icm/xtradev/lcouple/cfunc.mod +++ b/src/xspice/icm/xtradev/lcouple/cfunc.mod @@ -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; - } }