From 73aa8d97d02558265c3edf23680adb07059f7599 Mon Sep 17 00:00:00 2001 From: dwarning Date: Mon, 13 May 2019 17:09:57 +0200 Subject: [PATCH] Remove unused development directories --- .../devices/adms/badcode1/admsva/my.mak | 42 ----------- .../devices/adms/badcode1/admsva/r2_cmc.va | 26 ------- .../devices/adms/ex-1/admsva/r2_cmc.va | 72 ------------------- 3 files changed, 140 deletions(-) delete mode 100644 src/spicelib/devices/adms/badcode1/admsva/my.mak delete mode 100755 src/spicelib/devices/adms/badcode1/admsva/r2_cmc.va delete mode 100644 src/spicelib/devices/adms/ex-1/admsva/r2_cmc.va diff --git a/src/spicelib/devices/adms/badcode1/admsva/my.mak b/src/spicelib/devices/adms/badcode1/admsva/my.mak deleted file mode 100644 index 916175c0a..000000000 --- a/src/spicelib/devices/adms/badcode1/admsva/my.mak +++ /dev/null @@ -1,42 +0,0 @@ -# -*- makefile -*- -# (compile "make -i -f my.mak to") - -CFLAGS=-I ../../../../../include -I ../../../../../../../w32/src/include - -SRCS = \ -r2_cmcacld.c r2_cmc.analogfunction.c r2_cmcask.c r2_cmc.c r2_cmcdel.c r2_cmcdest.c r2_cmcguesstopology.c r2_cmcinit.c r2_cmcload.c r2_cmcmask.c r2_cmcmdel.c r2_cmcmpar.c r2_cmcnoise.c r2_cmcpar.c r2_cmcpzld.c r2_cmcsetup.c r2_cmctemp.c r2_cmctrunc.c - -to : $(SRCS:%.c=%.o) - -scripts = \ - -x \ - -e ../../admst/adms.implicit.xml \ - -e ../../admst/ngspiceVersion.xml \ - -e ../../admst/analogfunction.xml \ - -e ../../admst/ngspiceMODULEitf.h.xml \ - -e ../../admst/ngspiceMODULEinit.c.xml \ - -e ../../admst/ngspiceMODULEinit.h.xml \ - -e ../../admst/ngspiceMODULEext.h.xml \ - -e ../../admst/ngspiceMODULEdefs.h.xml \ - -e ../../admst/ngspiceMODULEask.c.xml \ - -e ../../admst/ngspiceMODULEmask.c.xml \ - -e ../../admst/ngspiceMODULEpar.c.xml \ - -e ../../admst/ngspiceMODULEmpar.c.xml \ - -e ../../admst/ngspiceMODULEload.c.xml \ - -e ../../admst/ngspiceMODULEacld.c.xml \ - -e ../../admst/ngspiceMODULEpzld.c.xml \ - -e ../../admst/ngspiceMODULEtemp.c.xml \ - -e ../../admst/ngspiceMODULEtrunc.c.xml \ - -e ../../admst/ngspiceMODULEsetup.c.xml \ - -e ../../admst/ngspiceMODULEdel.c.xml \ - -e ../../admst/ngspiceMODULEmdel.c.xml \ - -e ../../admst/ngspiceMODULEdest.c.xml \ - -e ../../admst/ngspiceMODULEnoise.c.xml \ - -e ../../admst/ngspiceMODULEguesstopology.c.xml \ - -e ../../admst/ngspiceMODULE.hxx.xml \ - -e ../../admst/ngspiceMODULE.c.xml - -$(SRCS) : do - -do : r2_cmc.va - ../../../../../../adms/ADMS/admsXml/admsXml $(scripts) $< diff --git a/src/spicelib/devices/adms/badcode1/admsva/r2_cmc.va b/src/spicelib/devices/adms/badcode1/admsva/r2_cmc.va deleted file mode 100755 index 3cf3311a2..000000000 --- a/src/spicelib/devices/adms/badcode1/admsva/r2_cmc.va +++ /dev/null @@ -1,26 +0,0 @@ -`include "constants.vams" -`include "disciplines.vams" - -module r2_cmc(d, s); - inout d, s; - - electrical d, s; - - real Taa, Txx; - - analog begin - - Taa = 0; - - // Txx = 0; - Txx = Taa; - - Taa = V(d,s); - - Taa = Txx; - Taa = 0; - - I(d,s) <+ Taa; - end - -endmodule diff --git a/src/spicelib/devices/adms/ex-1/admsva/r2_cmc.va b/src/spicelib/devices/adms/ex-1/admsva/r2_cmc.va deleted file mode 100644 index 6ef800311..000000000 --- a/src/spicelib/devices/adms/ex-1/admsva/r2_cmc.va +++ /dev/null @@ -1,72 +0,0 @@ -// -// simple capacitor model -// t R i C b -// o——/\/\/——o——| |——o -// - -`include "constants.h" -`include "discipline.h" - -`define P_CELCIUS0 273.15 -`define TNOM (`P_CELCIUS0 + 27.0) - -module r2_cmc(t, b); - inout t, b; - electrical t, b; - electrical i; - branch (t, i) R; - branch (i, b) C; - parameter real w = 1u from (0.1u : +inf); - parameter real l = 1u from (0.1u : +inf); - parameter real nc = 1 from [1:2]; - parameter real rsh = 1 from (0 : +inf); - parameter real ca = 1f from (0 : +inf); - parameter real tcr = 0; - parameter real vc1 = 0; - parameter real vc2 = 0; - parameter real type = 0; // 0=n, 1=p - real dT, rsh_t, c, r, Ir, Qc, Ceff, pwrR; - analog begin : L - if ($port_connected(b) == 0) - $finish(113); - if ($param_given(tcr)) - $finish(4); - if ($param_given(tcr)) - $finish(4); - if (nc > 2) - $finish(0); - begin : initializeModel - dT = $temperature - `TNOM; - rsh_t = rsh*(1.0+tcr*dT); - end - begin : initializeInstance - c = w*l*ca*1e12; // unit conversion - if (nc > 1.5) - r = rsh_t*(w/l)/12; - else - r = rsh_t*(w/l)/3; - end - begin : evaluateStatic - Ir = V(R)/r; - end - begin : evaluateDynamic - if (type > 0.5) // inelegant - Qc = c*V(C)*(1-V(C)*(vc1/2-V(C)*vc2/3)); - else - Qc = c*V(C)*(1+V(C)*(vc1/2+V(C)*vc2/3)); - end - begin : loadStatic - I(R) <+ Ir; - end - begin : loadDynamic - I(C) <+ ddt(Qc); - end - begin : postProcess - if (type > 0.5) - Ceff = c*(1.0-V(C)*(vc1/2-V(C)/3));//error! - else - Ceff = c*(1.0+V(C)*(vc1/2+V(C)/3));//error! - pwrR = V(R)*Ir; - end - end // analog -endmodule