head 1.26;
access;
symbols;
locks; strict;
comment @# @;
1.26
date 99.06.07.15.02.39; author ryu; state Exp;
branches;
next 1.25;
1.25
date 99.01.20.13.34.06; author ryu; state Exp;
branches;
next 1.24;
1.24
date 99.01.20.07.44.59; author ryu; state Exp;
branches;
next 1.23;
1.23
date 99.01.14.10.19.02; author ryu; state Exp;
branches;
next 1.22;
1.22
date 99.01.13.07.18.42; author ryu; state Exp;
branches;
next 1.21;
1.21
date 98.09.12.19.54.02; author ryu; state Exp;
branches;
next 1.20;
1.20
date 98.09.08.13.16.49; author ryu; state Exp;
branches;
next 1.19;
1.19
date 98.09.06.20.43.23; author ryu; state Exp;
branches;
next 1.18;
1.18
date 98.09.05.22.10.32; author ryu; state Exp;
branches;
next 1.17;
1.17
date 98.09.01.04.49.20; author ryu; state Exp;
branches;
next 1.16;
1.16
date 98.08.30.19.24.00; author ryu; state Exp;
branches;
next 1.15;
1.15
date 98.08.26.09.35.38; author ryu; state Exp;
branches;
next 1.14;
1.14
date 98.08.23.22.11.24; author ryu; state Exp;
branches;
next 1.13;
1.13
date 98.08.23.21.59.07; author ryu; state Exp;
branches;
next 1.12;
1.12
date 98.08.23.21.16.02; author ryu; state Exp;
branches;
next 1.11;
1.11
date 98.08.23.12.03.44; author ryu; state Exp;
branches;
next 1.10;
1.10
date 98.08.23.10.07.56; author ryu; state Exp;
branches;
next 1.9;
1.9
date 98.08.23.06.56.57; author ryu; state Exp;
branches;
next 1.8;
1.8
date 98.08.18.09.33.00; author ryu; state Exp;
branches;
next 1.7;
1.7
date 98.08.17.02.41.17; author ryu; state Exp;
branches;
next 1.6;
1.6
date 98.08.16.13.37.40; author ryu; state Exp;
branches;
next 1.5;
1.5
date 98.08.15.11.14.39; author ryu; state Exp;
branches;
next 1.4;
1.4
date 98.08.15.11.09.28; author ryu; state Exp;
branches;
next 1.3;
1.3
date 98.08.15.10.53.55; author ryu; state Exp;
branches;
next 1.2;
1.2
date 98.08.15.10.17.14; author ryu; state Exp;
branches;
next 1.1;
1.1
date 98.08.15.10.11.04; author ryu; state Exp;
branches;
next ;
desc
@#! /usr/local/bin/perl
@
1.26
log
@Optional space in measure results
@
text
@# $Id: input_cap.pl,v 1.25 1999/01/20 13:34:06 ryu Exp ryu $
# Copyright (C) 1999 Robert K. Yu
# email: robert@@yu.org
# This file is part of Autochar.
# Autochar is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2, or (at your option)
# any later version.
# Autochar is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with Autochar; see the file COPYING. If not, write to the
# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
# ic_run --
# Top-level function to input cap characterization.
# Generate the spice netlists, run hspice, and extract
# data.
#
sub ic_run {
local($inexp, $tie, @@tie_list) = @@_;
local($term, $termname, $termtype);
printf OUT "### INPUT CAP ##############################################################\n\n";
printf OUT "Cellname:\t\"$cellname\"\n";
printf OUT "\n";
printf OUT " Input\tCeff\t\tCeff\t\tTerror\n";
printf OUT " \t\t[F]\t\t[scaled]\t[s]\n";
printf OUT " ----------\t----------\t----------\t----------\n";
foreach $term (@@termlist) {
($termname, $termtype) = split(':', $term);
if (($termtype eq 'i') && ($termname =~ /$inexp/)) {
&ic_char($termname, $tie, @@tie_list);
}
}
printf OUT "\n\n";
}
sub ic_char {
my($in, $tie, @@tie_list) = @@_;
my($run_name);
local($optmod, $optparam, $optmeasure);
# give names to these puppies
$optmod = 'optmod';
$optparam = 'optcap';
$optmeasure = 'opterror';
$run_name = &run_file_name($cellname, $in, 'ic');
open(SPICEIN,">$run_name") || die "ERROR: Cannot open file '$run_name'.";
# Create the hspice netlist(s)
&print_header(SPICEIN, '*');
printf SPICEIN "* Char: Input Capacitance Characterization\n";
printf SPICEIN "* Input: \"$in\"\n";
&ic_print_setup (SPICEIN);
&ic_print_source (SPICEIN);
&ic_print_dut (SPICEIN, $in, $tie, @@tie_list);
&ic_print_measure (SPICEIN);
&ic_print_trans (SPICEIN);
printf SPICEIN ".end\n";
close(SPICEIN);
&run_spice($run_name);
&ic_report_spice($in, $run_name);
}
sub ic_print_setup {
my ($fp) = @@_;
printf $fp "\n*--- SETUP ---------------------------------------------------\n";
printf $fp ".include '$techpath/$spice_corner'\n";
printf $fp ".include '$spice_netlist'\n";
if ($spice_include ne 'none') {
printf $fp "$spice_include\n";
}
if ($spice_type eq 'smartspice') {
printf $fp ".param ceq = '$cstart'\n" ;
} else {
printf $fp "$optim_options\n";
printf $fp ".model $optmod opt\n";
printf $fp ".param ceq = $optparam('$cstart', '$cmin', '$cmax')\n" ;
}
}
sub ic_print_source {
my ($fp) = @@_;
printf $fp "\n*--- INPUTS --------------------------------------------------\n";
printf $fp "vin0 in0 $low_value pulse (
+ '$low_value'
+ '$high_value'
+ '$trans_delay'
+ '$trans_risetime'
+ '$trans_falltime'
+ '$trans_pulse_width'
+ '$trans_period')\n";
# put two of them, in the future, integrate
# the current going out of the source to
# figure the charge, if no buffers are used.
printf $fp "vin1 in1 $low_value pulse (
+ '$low_value'
+ '$high_value'
+ '$trans_delay'
+ '$trans_risetime'
+ '$trans_falltime'
+ '$trans_pulse_width'
+ '$trans_period')\n";
}
sub ic_print_dut {
my($fp, $in, $tie, $tie_list) = @@_;
my($term, $termname, $termtype);
my($buf, $outload);
my($vcvs, @@inlist, @@reflist);
local($term_no, @@vcvs_list, @@output_loads);
$term_no = 0;
if ($buffer{$in} ne '') {
$buf = $buffer{$in};
} else {
$buf = $buffer{'default'};
}
printf $fp "\n*--- TEST CIRCUIT --------------------------------------------\n";
@@inlist = ($in);
@@reflist = ('input0');
if ($buf eq 'none') {
die "ERROR: You must specify a buffer type to characterize input capacitance.\n";
} else {
printf $fp "xbuf0 in0 input0 $buf\n";
printf $fp "xbuf1 in1 input1 $buf\n";
}
printf $fp "xdut0\n";
foreach $term (@@termlist) {
($termname, $termtype) = split(':', $term);
if ($termname eq $in) {
printf $fp "+\tinput0\t\$ $term\n";
next;
}
if ($termtype eq 'i') {
printf $fp "+\t%s\t\$ $term\n",
&lookup_input($termname, \@@inlist, \@@reflist, $tie, @@tie_list);
next;
}
if ($termtype eq 'o') {
printf $fp "+\t%s\t\$ $term\n", &lookup_output_load($termname);
next;
}
}
printf $fp "+\t$cellname\n";
# if any
foreach $vcvs (@@vcvs_list) {
printf $fp "$vcvs\n";
}
printf $fp "\n*--- LOADS ---------------------------------------------------\n";
# if any
foreach $outload (@@output_loads) {
printf $fp "$outload\n";
}
# print the matching cap
printf $fp "ceff input1 $low_value ceq\n";
}
sub ic_print_measure {
my($fp) = @@_;
printf $fp "\n*--- MEASURE -------------------------------------------------\n";
printf $fp ".option autostop\n";
if ($spice_type eq 'smartspice') {
printf $fp ".measure tran dut_r delay v(in0) val='$midpoint_value' rise=1\n";
} else {
printf $fp ".measure tran dut_r trig=v(in0) val='$midpoint_value' rise=1\n";
}
printf $fp "+\ttarg=v(input0) val='$midpoint_value' rise=1\n";
if ($spice_type eq 'smartspice') {
printf $fp ".measure tran dut_f delay v(in0) val='$midpoint_value' fall=1\n";
} else {
printf $fp ".measure tran dut_f trig=v(in0) val='$midpoint_value' fall=1\n";
}
printf $fp "+\ttarg=v(input0) val='$midpoint_value' fall=1\n";
printf $fp ".measure tran dut_delay param='(dut_r + dut_f)/2.0'\n";
if ($spice_type eq 'smartspice') {
printf $fp ".measure tran cap_r delay v(in1) val='$midpoint_value' rise=1\n";
} else {
printf $fp ".measure tran cap_r trig=v(in1) val='$midpoint_value' rise=1\n";
}
printf $fp "+\ttarg=v(input1) val='$midpoint_value' rise=1\n";
if ($spice_type eq 'smartspice') {
printf $fp ".measure tran cap_f delay v(in1) val='$midpoint_value' fall=1\n";
} else {
printf $fp ".measure tran cap_f trig=v(in1) val='$midpoint_value' fall=1\n";
}
printf $fp "+\ttarg=v(input1) val='$midpoint_value' fall=1\n";
printf $fp ".measure tran cap_delay param='(cap_r + cap_f)/2.0'\n";
if ($spice_type eq 'smartspice') {
printf $fp ".measure tran $optmeasure param='abs(dut_delay - cap_delay)'\n";
} else {
printf $fp ".measure tran $optmeasure param='abs(dut_delay - cap_delay)' goal=0\n";
}
}
sub ic_print_trans {
my($fp) = @@_;
printf $fp "\n*--- TRANSIENT -----------------------------------------------\n";
if ($spice_type eq 'smartspice') {
printf $fp ".trans $trans_timestep '$trans_timestop'\n";
printf $fp ".modif proff prtbl
+ optimize ceq=opt('$cmin' '$cmax' '$cstart')
+ targets opterror=1e-15
+ options avg=0.001\n";
} else {
printf $fp ".trans $trans_timestep '$trans_timestop' sweep
+ optimize=$optparam
+ results=$optmeasure
+ model=$optmod\n";
printf $fp "\n\n* Final value:\n";
printf $fp ".alter\n";
printf $fp ".trans $trans_timestep '$trans_timestop'\n";
printf $fp ".measure tran ceff param='ceq'\n";
}
}
sub ic_report_spice {
my($in, $run_name) = @@_;
my($base,$dir,$ext,$spiceout);
my($ceq, $cscaled, $cerror);
($base,$dir,$ext) = fileparse($run_name, '\.sp');
$spiceout = $base . '.out';
printf STDERR "Extracting results from '$spiceout' ...\n";
open(SPICEOUT, $spiceout) || die "ERROR: Cannot find '$spiceout'.\n";
if ($spice_type eq 'smartspice') {
while (<SPICEOUT>) {
if (($name, $value) = /^(ceq) *=\s+([0-9\+\-eE\.]+)/) {
$ceq = $value;
}
if (($name, $value) = /^(opterror) *=\s+([0-9\+\-eE\.]+)/) {
$cerror = $value;
}
}
} else {
while (<SPICEOUT>) {
if (($name, $value) = /^ +(ceff) *= +([0-9\+\-eE\.]+)/) {
$ceq = $value;
}
if (($name, $value) = /^ +($optmeasure) *= +([0-9\+\-eE\.]+)/) {
$cerror = $value;
}
}
}
$cscaled = $ceq / $scale_cload;
printf OUT " %10s\t%.4e\t%.4e\t%.4e\n",
$in, $ceq, $cscaled, $cerror;
&ic_save_data($cellname, $in, $cscaled);
close SPICEOUT;
}
1;
@
1.25
log
@works with smartspice
@
text
@d1 1
a1 1
# $Id: input_cap.pl,v 1.24 1999/01/20 07:44:59 ryu Exp ryu $
d285 1
a285 1
if (($name, $value) = /^(ceq)\s+=\s+([0-9\+\-eE\.]+)/) {
d288 1
a288 1
if (($name, $value) = /^(opterror)\s+=\s+([0-9\+\-eE\.]+)/) {
d294 1
a294 1
if (($name, $value) = /^ +(ceff) += +([0-9\+\-eE\.]+)/) {
d297 1
a297 1
if (($name, $value) = /^ +($optmeasure) += +([0-9\+\-eE\.]+)/) {
@
1.24
log
@No perl header
@
text
@d1 1
a1 1
# $Id: input_cap.pl,v 1.23 1999/01/14 10:19:02 ryu Exp ryu $
d95 8
a102 3
printf $fp "$optim_options\n";
printf $fp ".model $optmod opt\n";
printf $fp ".param ceq = $optparam('$cstart', '$cmin', '$cmax')\n" ;
d206 5
a210 1
printf $fp ".measure tran dut_r trig=v(in0) val='$midpoint_value' rise=1\n";
d212 6
a217 1
printf $fp ".measure tran dut_f trig=v(in0) val='$midpoint_value' fall=1\n";
d221 5
a225 1
printf $fp ".measure tran cap_r trig=v(in1) val='$midpoint_value' rise=1\n";
d227 6
a232 1
printf $fp ".measure tran cap_f trig=v(in1) val='$midpoint_value' fall=1\n";
d236 5
a240 1
printf $fp ".measure tran $optmeasure param='dut_delay - cap_delay' goal=0\n";
d249 9
a257 1
printf $fp ".trans $trans_timestep '$trans_timestop' sweep
d262 5
a266 4
printf $fp "\n\n* Final value:\n";
printf $fp ".alter\n";
printf $fp ".trans $trans_timestep '$trans_timestop'\n";
printf $fp ".measure tran ceff param='ceq'\n";
d282 9
a290 3
while (<SPICEOUT>) {
if (($name, $value) = /^ +(ceff) += +([0-9\+\-eE\.]+)/) {
$ceq = $value;
d292 8
a299 2
if (($name, $value) = /^ +($optmeasure) += +([0-9\+\-eE\.]+)/) {
$cerror = $value;
@
1.23
log
@Using /usr/bin/perl
@
text
@d1 1
a1 3
#! /usr/bin/perl
# $Id: input_cap.pl,v 1.22 1999/01/13 07:18:42 ryu Exp ryu $
@
1.22
log
@GPL
@
text
@d1 1
a1 1
#! /usr/local/bin/perl
d3 1
a3 1
# $Id$
@
1.21
log
@Added slew-rate to setup and hold; support for non-linear models for clock-q
@
text
@d3 1
a3 5
# Copyright (c) 1998-2001, Robert K. Yu. All Rights Reserved.
#
# No part of this program may be used, reproduced, stored in a
# retrieval system, or transmitted in any form or by any
# means without the prior permission of the author.
d5 19
a23 3
# $Id: input_cap.pl,v 1.20 1998/09/08 13:16:49 ryu Exp ryu $
# Input Capacitance Characterization Functions
# Author: Robert K. Yu
@
1.20
log
@slew rate at the clock input of setup_hold (wip)
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.19 1998/09/06 20:43:23 ryu Exp ryu $
d24 1
d80 1
a80 1
printf $fp ".include '$init{'techpath'}/$init{'corner'}'\n";
d82 2
a83 2
if ($init{'include'} ne 'none') {
printf $fp "$init{'include'}\n";
d85 1
a85 1
printf $fp "$optim{'options'}\n";
d96 8
a103 8
printf $fp "vin0 in0 $init{'low'} pulse (
+ '$init{'low'}'
+ '$init{'high'}'
+ '$trans{'delay'}'
+ '$trans{'risetime'}'
+ '$trans{'falltime'}'
+ '$trans{'pulse_width'}'
+ '$trans{'period'}')\n";
d108 8
a115 8
printf $fp "vin1 in1 $init{'low'} pulse (
+ '$init{'low'}'
+ '$init{'high'}'
+ '$trans{'delay'}'
+ '$trans{'risetime'}'
+ '$trans{'falltime'}'
+ '$trans{'pulse_width'}'
+ '$trans{'period'}')\n";
d179 1
a179 1
printf $fp "ceff input1 $init{'low'} ceq\n";
d191 4
a194 4
printf $fp ".measure tran dut_r trig=v(in0) val='$init{'midpoint'}' rise=1\n";
printf $fp "+\ttarg=v(input0) val='$init{'midpoint'}' rise=1\n";
printf $fp ".measure tran dut_f trig=v(in0) val='$init{'midpoint'}' fall=1\n";
printf $fp "+\ttarg=v(input0) val='$init{'midpoint'}' fall=1\n";
d197 4
a200 4
printf $fp ".measure tran cap_r trig=v(in1) val='$init{'midpoint'}' rise=1\n";
printf $fp "+\ttarg=v(input1) val='$init{'midpoint'}' rise=1\n";
printf $fp ".measure tran cap_f trig=v(in1) val='$init{'midpoint'}' fall=1\n";
printf $fp "+\ttarg=v(input1) val='$init{'midpoint'}' fall=1\n";
d212 1
a212 1
printf $fp ".trans $trans{'timestep'} '$trans{'timestop'}' sweep
d219 1
a219 1
printf $fp ".trans $trans{'timestep'} '$trans{'timestop'}'\n";
d245 1
a245 1
$cscaled = $ceq / $init{'scale_cload'};
@
1.19
log
@clock enable
@
text
@d3 1
a3 1
# Copyright (c) 1998, Robert K. Yu. All Rights Reserved.
d9 1
a9 1
# $Id: input_cap.pl,v 1.18 1998/09/05 22:10:32 ryu Exp ryu $
d68 1
a68 1
&ic_run_spice($run_name);
a219 18
}
sub ic_run_spice {
my($run_name) = @@_;
my($base,$dir,$type,$spiceout);
($base,$dir,$type) = fileparse($run_name, '\.sp');
$spiceout = $base . '.out';
# Run hspice
if ($skip && (-e $spiceout)) {
printf STDERR "Found \"%s\", skipping run.\n", $spiceout;
} else {
printf STDERR "Running %s on \"%s\" ...\n", $init{'spice_cmd'}, $run_name;
`$init{'spice_cmd'} $run_name`;
}
@
1.18
log
@Consolidate lookup_input functions into one, using list of names and refnames.
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.17 1998/09/01 04:49:20 ryu Exp ryu $
d151 1
a151 1
printf $fp "+\tinput0\n";
d155 1
a155 1
printf $fp "+\t%s\n",
d160 1
a160 1
printf $fp "+\t%s\n", &lookup_output_load($termname);
d190 1
a190 1
printf $fp ".meas tran dut_r trig=v(in0) val='$init{'midpoint'}' rise=1\n";
d192 1
a192 1
printf $fp ".meas tran dut_f trig=v(in0) val='$init{'midpoint'}' fall=1\n";
d194 1
a194 1
printf $fp ".meas tran dut_delay param='(dut_r + dut_f)/2.0'\n";
d196 1
a196 1
printf $fp ".meas tran cap_r trig=v(in1) val='$init{'midpoint'}' rise=1\n";
d198 1
a198 1
printf $fp ".meas tran cap_f trig=v(in1) val='$init{'midpoint'}' fall=1\n";
d200 1
a200 1
printf $fp ".meas tran cap_delay param='(cap_r + cap_f)/2.0'\n";
d202 1
a202 1
printf $fp ".meas tran $optmeasure param='dut_delay - cap_delay' goal=0\n";
d219 1
a219 1
printf $fp ".meas tran ceff param='ceq'\n";
@
1.17
log
@Consistent quotes
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.16 1998/08/30 19:24:00 ryu Exp ryu $
d124 1
a124 1
my($vcvs, $refname);
d137 2
a138 1
$refname = 'input0';
d156 1
a156 1
&lookup_input($termname, $in, $refname, $tie, @@tie_list);
@
1.16
log
@Using term instead of port; extract all cell and terminal properties into synopsys model.
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.15 1998/08/26 09:35:38 ryu Exp ryu $
d52 1
a52 1
open(SPICEIN,">$run_name") || die "ERROR: Cannot open file \"$run_name\".";
d251 1
a251 1
open(SPICEOUT, $spiceout) || die "ERROR: Cannot find \"$spiceout\".\n";
@
1.15
log
@added slewrate modelling.
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.14 1998/08/23 22:11:24 ryu Exp $
d22 1
a22 1
local($port, $portname, $porttype);
d30 4
a33 4
foreach $port (@@portlist) {
($portname, $porttype) = split(':', $port);
if (($porttype eq 'i') && ($portname =~ /$inexp/)) {
&ic_char($portname, $tie, @@tie_list);
d122 1
a122 1
my($port, $portname, $porttype);
d125 1
a125 1
local($port_no, @@vcvs_list, @@output_loads);
d127 1
a127 1
$port_no = 0;
d147 3
a149 3
foreach $port (@@portlist) {
($portname, $porttype) = split(':', $port);
if ($portname eq $in) {
d153 1
a153 1
if ($porttype eq 'i') {
d155 1
a155 1
&lookup_input($portname, $in, $refname, $tie, @@tie_list);
d158 2
a159 2
if ($porttype eq 'o') {
printf $fp "+\t%s\n", &lookup_output_load($portname);
@
1.14
log
@Robert K. Yu
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.13 1998/08/23 21:59:07 ryu Exp ryu $
d44 1
a44 1
my($optmod, $optparam, $optmeasure);
d242 1
a242 1
($in, $run_name) = @@_;
@
1.13
log
@save_data functions moved into model.pl; pass lists by reference
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.12 1998/08/23 21:16:02 ryu Exp ryu $
d11 1
a11 1
# Author: Robert Yu
@
1.12
log
@Write out synopsys lib.
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.11 1998/08/23 12:03:44 ryu Exp ryu $
d265 1
a265 1
$celldata{"$cellname:input_cap:$in"} = $cscaled;
@
1.11
log
@celldata
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.10 1998/08/23 10:07:56 ryu Exp ryu $
d264 1
@
1.10
log
@Added writing of data fle
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.9 1998/08/23 06:56:57 ryu Exp ryu $
d264 1
a264 1
printf DATA "\$data{'$cellname:input_cap:$in'} = %.4e;\n", $cscaled;
@
1.9
log
@Using my and use instead of local and require.
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.8 1998/08/18 09:33:00 ryu Exp ryu $
d264 2
@
1.8
log
@Debugged clock to q module; changed generated file convention
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.7 1998/08/17 02:41:17 ryu Exp ryu $
d42 3
a44 3
local($in, $tie, @@tie_list) = @@_;
local($run_name);
local($optmod, $optparam, $optmeasure);
d76 1
a76 1
local ($fp) = @@_;
d92 1
a92 1
local ($fp) = @@_;
d121 5
a125 4
local($fp, $in, $tie, $tie_list) = @@_;
local($port, $portname, $porttype);
local($buf, $port_no, $outload, @@output_loads);
local($vcvs, @@vcvs_list, $refname);
d184 1
a184 1
local($fp) = @@_;
d207 1
a207 1
local($fp) = @@_;
d224 2
a225 2
local($run_name) = @@_;
local($base,$dir,$type,$spiceout);
d243 2
a244 2
local($base,$dir,$ext,$spiceout);
local($ceq, $cscaled, $cerror);
@
1.7
log
@Debuggin
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.6 1998/08/16 13:37:40 ryu Exp ryu $
d36 1
d51 1
a51 1
$run_name = &run_file_name($cellname, $in);
d231 1
a231 1
printf STDERR "\"%s\" found, skipping run.\n", $spiceout;
d248 2
a262 1
@
1.6
log
@checking in
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.5 1998/08/15 11:14:39 ryu Exp ryu $
d26 3
a28 3
printf OUT " Input\tCeff\t\tTerror\n";
printf OUT " \t\t[F]\t\t[s]\n";
printf OUT " ----------\t----------\t----------\n";
a60 1
&ic_print_load (SPICEIN);
d122 1
a122 1
local($buf, $port_no, @@output_loads);
a167 10
# print the matching cap
printf $fp "ceff input1 $init{'low'} ceq\n";
}
sub ic_print_load {
local($fp) = @@_;
local($outload);
d173 4
d230 1
a230 1
printf STDERR "\"%s\" found.\n", $spiceout;
a231 1
printf STDERR "\"%s\" not found.\n", $spiceout;
d242 1
a242 1
local($ceq,$cerror);
d257 3
a259 1
printf OUT " %10s\t%.4e\t%.4e\n", $in, $ceq, $cerror;
@
1.5
log
@removed fail check, since matching filters it out
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.4 1998/08/15 11:09:28 ryu Exp ryu $
d42 1
a42 1
local($devices, $run_name);
d123 1
a123 1
local($buf, $port_no, $outload, @@output_loads);
d177 1
@
1.4
log
@check for failed simulation
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.3 1998/08/15 10:53:55 ryu Exp ryu $
a256 4
# check
if ($value eq 'failed') {
die "ERROR: failed measurement finding input cap to '$in'\n";
}
@
1.3
log
@wip
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.2 1998/08/15 10:17:14 ryu Exp ryu $
d20 1
d24 6
d249 1
a249 1
local(@@ceq);
d256 9
a264 2
if (($name, $value) = /^ +(ceq) += +([0-9\+\-eE\.]+)/) {
push(@@ceq, $value);
d267 3
@
1.2
log
@work in progress
@
text
@d9 1
a9 1
# $Id: input_cap.pl,v 1.1 1998/08/15 10:11:04 ryu Exp ryu $
a12 1
d20 13
d41 1
a41 1
$optmeasure = 'optmeas';
d88 1
a88 1
printf $fp "vin0 vin0 $init{'low'} pulse (
d100 1
a100 1
printf $fp "vin1 vin1 $init{'low'} pulse (
d134 2
a135 2
printf $fp "xbuf0 vin0 input0 $buf\n";
printf $fp "xbuf1 vin1 input1 $buf\n";
d207 1
a207 1
printf $fp ".trans $trans{'timestep'} '$trans{'timestop'}'
d212 1
a212 1
printf $fp "\n* Final value:\n";
@
1.1
log
@entered into RCS
@
text
@d9 1
a9 1
# $Id: load_delay.pl,v 1.3 1998/08/13 09:08:03 ryu Exp ryu $
a83 1
}
d96 1
a96 1
}
d202 1
a202 1
printf $fp ".trans $trans{'timestep'} '$trans{'timestop'}'
@