head	1.14;
access;
symbols;
locks; strict;
comment	@# @;


1.14
date	99.06.07.15.02.39;	author ryu;	state Exp;
branches;
next	1.13;

1.13
date	99.01.29.07.32.46;	author ryu;	state Exp;
branches;
next	1.12;

1.12
date	99.01.20.07.44.59;	author ryu;	state Exp;
branches;
next	1.11;

1.11
date	99.01.14.10.19.02;	author ryu;	state Exp;
branches;
next	1.10;

1.10
date	99.01.13.07.18.42;	author ryu;	state Exp;
branches;
next	1.9;

1.9
date	98.09.13.11.09.15;	author ryu;	state Exp;
branches;
next	1.8;

1.8
date	98.09.13.04.14.38;	author ryu;	state Exp;
branches;
next	1.7;

1.7
date	98.09.12.19.54.02;	author ryu;	state Exp;
branches;
next	1.6;

1.6
date	98.09.08.13.16.49;	author ryu;	state Exp;
branches;
next	1.5;

1.5
date	98.09.07.11.17.15;	author ryu;	state Exp;
branches;
next	1.4;

1.4
date	98.09.06.20.43.23;	author ryu;	state Exp;
branches;
next	1.3;

1.3
date	98.09.06.04.18.47;	author ryu;	state Exp;
branches;
next	1.2;

1.2
date	98.09.05.22.10.32;	author ryu;	state Exp;
branches;
next	1.1;

1.1
date	98.09.03.09.08.10;	author ryu;	state Exp;
branches;
next	;


desc
@#! /usr/local/bin/perl
@


1.14
log
@Optional space in measure results
@
text
@#	$Id: clock_enable.pl,v 1.13 1999/01/29 07:32:46 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.

#   ce_run --
#	Top-level function setup/hold characterization.
#	Generate the spice netlists, run hspice, and extract
#	data.
#
sub ce_run {
    local($d, $cetype, $ce, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list) = @@_;

    printf OUT "### CLOCK ENABLE ###########################################################\n\n";
    printf OUT "Cellname:\t\"$cellname\"\n";
    printf OUT "D Input:\t\"$d\"\n";
    printf OUT "Clock Enable:\t\"$ce\"\t($cetype)\n";
    printf OUT "Clock Input:\t\"$clk\"\t($clktype)\n";
    printf OUT "Q Output:\t\"$q\"\t($qtype)\n";
    printf OUT "Critical Node:\t\"$c\"\t($ctype)\n\n";

    # enable setup
    &ces_run ('lh', $d, $cetype, $ce, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list);
    &ces_run ('hl', $d, $cetype, $ce, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list);

    # enable hold
    &ceh_run ('lh', $d, $cetype, $ce, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list);
    &ceh_run ('hl', $d, $cetype, $ce, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list);
}


#------ CLOCK ENABLE SETUP TIME CHARACTERIZATION -------------------------------

sub ces_run {

    my($out_trans, $d, $cetype, $ce, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list) = @@_;

    local($run_name, $dtrans);
    local($optmod, $optparam, $optmeasure);

    # check
    if (($cetype ne 'active_high') && ($cetype ne 'active_low')) {
	die "ERROR: clock enable type must be either 'active_high' or 'active_low'\n";
    }
    if (($clktype ne 'rising') && ($clktype ne 'falling')) {
	die "ERROR: clock type must be either 'rising' or 'falling'\n";
    }
    if (($qtype ne 'inverting') && ($qtype ne 'non_inverting')) {
	die "ERROR: q type must be either 'inverting' or 'non_inverting'\n";
    }

    # give names to these puppies
    $optmod = 'optmod';
    $optparam = 'optsetup';
    $optmeasure = 'optpass';

    $run_name = &run_file_name($cellname, $ce, $clk, $q, 'ces');
    open(SPICEIN,">$run_name") || die "ERROR:  Cannot open file '$run_name'.";

    # Create the hspice netlist(s)
    &print_header(SPICEIN, '*');
    printf SPICEIN "*	Char:	D-Flop Clock Enable Setup Time Characterization\n";
    printf SPICEIN "*	Data:	\"$d\"\n";
    printf SPICEIN "*	Enable:	\"$ce\"\n";
    printf SPICEIN "*	Clock:	\"$clk\"\n";
    printf SPICEIN "*	Q:	\"$q\"\n";
    printf SPICEIN "*	C:	\"$c\"\n";
    printf SPICEIN "*	Trans:	\"$out_trans\"\n";

    &ces_print_setup (SPICEIN);
    &ces_print_source (SPICEIN, $cetype, $clktype, $out_trans, $qtype);
    &ces_print_dut (SPICEIN, $d, $ce, $clk, $q, $tie, @@tie_list);
    &ces_print_measure (SPICEIN, $clktype, $out_trans, $ctype, $c);
    &ces_print_trans (SPICEIN, $clktype, $out_trans);

    printf SPICEIN ".end\n";
    close(SPICEIN);

    &run_spice($run_name);

    &ces_report_spice($run_name, $out_trans, $ce, $clktype, $clk, $qtype, $q, $ctype, $c);
}


sub ces_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 "$smartspice_options\n";
	printf $fp ".param isetup = 0\n" ;
	printf $fp ".param setup_hold_scale = '$setup_hold_scale'\n" ;
	printf $fp ".param setup = 'isetup*setup_hold_scale'\n" ;
    } else {
	printf $fp "$optim_options\n";
	printf $fp ".model $optmod opt method=bisection\n";
	printf $fp "+\trelin=$relin\n";
	printf $fp "+\trelout=$relout\n";
	printf $fp ".param setup = $optparam('$setup_range[0]', '$setup_range[0]', '$setup_range[1]')\n" ;
    }

    if ($#slewrate != -1) {
	printf $fp ".param slewrate = '$slewrate[0]'\n" ;
	printf $fp ".param slew_start = '$start_slew_percent'\n" ;
	printf $fp ".param slew_end = '$end_slew_percent'\n" ;
    }
}


#	Modifies dtrans
#
sub ces_print_source {

    my ($fp, $cetype, $clktype, $out_trans, $qtype) = @@_;

    printf $fp "\n*--- INPUTS --------------------------------------------------\n";

    if ($clktype eq 'rising') {
	if ($#slewrate != -1) {
	    printf $fp "vclk vclk $low_value pulse (
+	'$low_value'
+	'$high_value'
+	'$trans_delay+$trans_risetime/2'
+	'0'
+	'0'
+	'$trans_pulse_width+$trans_risetime/2+$trans_falltime/2'
+	'$trans_period')\n";
	} else {
	    printf $fp "vclk vclk $low_value pulse (
+	'$low_value'
+	'$high_value'
+	'$trans_delay'
+	'$trans_risetime'
+	'$trans_falltime'
+	'$trans_pulse_width'
+	'$trans_period')\n";
	}
    } elsif ($clktype eq 'falling') {
	if ($#slewrate != -1) {
	    printf $fp "vclk vclk $low_value pulse (
+	'$high_value'
+	'$low_value'
+	'$trans_delay+$trans_risetime/2'
+	'0'
+	'0'
+	'$trans_pulse_width+$trans_risetime/2+$trans_falltime/2'
+	'$trans_period')\n";
	} else {
	    printf $fp "vclk vclk $low_value pulse (
+	'$high_value'
+	'$low_value'
+	'$trans_delay'
+	'$trans_risetime'
+	'$trans_falltime'
+	'$trans_pulse_width'
+	'$trans_period')\n";
	}
    } else {
	die "ERROR: unknown clock transition type '$clktype'\n";
    }

    if ( (($out_trans eq 'lh') && ($qtype eq 'non_inverting')) ||
	 (($out_trans eq 'hl') && ($qtype eq 'inverting')) ) {
	$dtrans = 'rise';
	printf $fp "vd vd $low_value pulse (
+	'$low_value'
+	'$high_value'
+	'$trans_delay+$trans_risetime+$trans_pulse_width'
+	'$trans_risetime'
+	'$trans_falltime'
+	'3*$trans_period'
+	'4*$trans_period')\n";
    } elsif ( (($out_trans eq 'hl') && ($qtype eq 'non_inverting')) ||
	      (($out_trans eq 'lh') && ($qtype eq 'inverting')) ) {
	$dtrans = 'fall';
	printf $fp "vd vd $low_value pulse (
+	'$high_value'
+	'$low_value'
+	'$trans_delay+$trans_risetime+$trans_pulse_width'
+	'$trans_risetime'
+	'$trans_falltime'
+	'3*$trans_period'
+	'4*$trans_period')\n";
    } else {
	die "ERROR: unknown combination of '$out_trans' and '$qtype'\n";
    }

    if ($cetype eq 'active_high') {
	printf $fp "vce vce $low_value pulse (
+	'$high_value'
+	'$low_value'
+	'$trans_delay+$trans_risetime+$trans_pulse_width/2'
+	'$trans_risetime'
+	'$trans_falltime'
+	'$trans_period-$trans_risetime-$trans_pulse_width/2-setup'
+	'4*$trans_period')\n";
    } elsif ($cetype eq 'active_low') {
	printf $fp "vce vce $low_value pulse (
+	'$low_value'
+	'$high_value'
+	'$trans_delay+$trans_risetime+$trans_pulse_width/2'
+	'$trans_risetime'
+	'$trans_falltime'
+	'$trans_period-$trans_risetime-$trans_pulse_width/2-setup'
+	'4*$trans_period')\n";
    }
}


sub ces_print_dut {

    my($fp, $d, $ce, $clk, $q, $tie, $tie_list) = @@_;
    my($term, $termname, $termtype);
    my($dbuf, $clkbuf, $cebuf, $outload);
    my($vcvs);
    local($term_no, @@vcvs_list, @@output_loads);
    my(@@inlist, @@reflist);

    $term_no = 0;

    if ($buffer{$d} ne '') {
	$dbuf = $buffer{$d};
    } else {
	$dbuf = $buffer{'default'};
    }
    if ($buffer{$ce} ne '') {
	$cebuf = $buffer{$ce};
    } else {
	$cebuf = $buffer{'default'};
    }
    if ($buffer{$clk} ne '') {
	$clkbuf = $buffer{$clk};
    } else {
	$clkbuf = $buffer{'default'};
    }
    if ($#slewrate != -1) {
	$clkbuf = 'slewbuffer';
	printf STDERR "INFO: slewbuffer buffer used for slew rate setup_hold at clock input.\n";
    }


    printf $fp "\n*--- TEST CIRCUIT --------------------------------------------\n";

    @@inlist = ($d, $ce, $clk);
    @@reflist = ('d,', 'ce', 'clk');

    if ($dbuf eq 'none') {
	printf $fp "vshortd vd d DC 0\n";
    } else {
	printf $fp "xdbuf vd d $dbuf\n";
    }
    if ($cebuf eq 'none') {
	printf $fp "vshortce vce ce DC 0\n";
    } else {
	printf $fp "xcebuf vce ce $clkbuf\n";
    }
    if ($clkbuf eq 'none') {
	printf $fp "vshortclk vclk clk DC 0\n";
    } else {
	printf $fp "xclkbuf vclk clk $clkbuf\n";
    }

    printf $fp "xflop\n";
    foreach $term (@@termlist) {
	($termname, $termtype) = split(':', $term);
	if ($termname eq $d) {
	    printf $fp "+\td\t\$ $term\n";
	    next;
	}
	if ($termname eq $ce) {
	    printf $fp "+\tce\t\$ $term\n";
	    next;
	}
	if ($termname eq $clk) {
	    printf $fp "+\tclk\t\$ $term\n";
	    next;
	}
	if ($termname eq $q) {
	    printf $fp "+\t%s\t\$ $term\n", &lookup_output_load($termname, 'q');
	    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";
    }
}


sub ces_print_measure {

    my($fp, $clktype, $out_trans, $ctype, $c) = @@_;

    printf $fp "\n*--- MEASURE -------------------------------------------------\n";
    printf $fp ".option autostop\n";

    printf $fp "* Measure setup time:\n";

    if ($spice_type eq 'smartspice') {
	printf $fp ".measure tran isetup param='isetup'\n";
	printf $fp ".measure tran setup param='setup'\n";
    }

    printf $fp ".measure tran setup_${out_trans} %s v(ce) val='$midpoint_value' cross=2\n",
	&trig_word();
    if ($clktype eq 'rising') {
	printf $fp "+\ttarg=v(clk) val='$midpoint_value' rise=2\n";
    } else {
	printf $fp "+\ttarg=v(clk) val='$midpoint_value' fall=2\n";
    }

    printf $fp "* Measure clock slew rate:\n";
    if ($clktype eq 'rising') {
	printf $fp
	    ".measure tran clkslew %s v(clk) val='$slew_r1' rise=2\n";
	    &trig_word();
	printf $fp
	    "+\ttarg=v(clk) val='$slew_r2' rise=2\n";
    } else {
	printf $fp
	    ".measure tran clkslew %s v(clk) val='$slew_f1' fall=2\n";
	    &trig_word();
	printf $fp
	    "+\ttarg=v(clk) val='$slew_f2' fall=2\n";
    }

    printf $fp "\n* Measure internal criterion node:\n";
    printf $fp ".measure tran vcrit find v(xflop.${c})\n";
    if ($clktype eq 'rising') {
	printf $fp "+\twhen v(clk)='$clock_percent*$high_value' rise=2\n"; 
    } else {
	printf $fp "+\twhen v(clk)='(1-$clock_percent)*$high_value' fall=2\n"; 
    }

    # cnode:
    if ( (($dtrans eq 'rise') && ($ctype eq 'inverting')) ||
	 (($dtrans eq 'fall') && ($ctype eq 'non_inverting')) ) {
	printf $fp ".measure tran $optmeasure param='($high_value-vcrit)/$high_value'\n";
	if ($spice_type ne 'smartspice') {
	    printf $fp "+\tgoal='${criterion_percent}'\n";
	}
    } elsif ( (($dtrans eq 'fall') && ($ctype eq 'inverting')) ||
	      (($dtrans eq 'rise') && ($ctype eq 'non_inverting')) ) {
	printf $fp ".measure tran $optmeasure param='vcrit/$high_value'\n";
	if ($spice_type ne 'smartspice') {
	    printf $fp "+\tgoal='${criterion_percent}'\n";
	}
    }
}


sub ces_print_trans {

    my($fp, $clktype, $out_trans) = @@_;
    my($j);

    printf $fp "\n*--- TRANSIENT -----------------------------------------------\n";
    if ($spice_type eq 'smartspice') {

	printf $fp "* Measure final clock->q time:\n";
	if ($clktype eq 'rising') {
	    printf $fp ".measure tran clk_q delay v(clk) val='$midpoint_value' rise=2\n";
	} else {
	    printf $fp ".measure tran clk_q delay v(clk) val='$midpoint_value' fall=2\n";
	}
	if ($out_trans eq 'lh') {
	    printf $fp "+\ttarg=v(q) val='$midpoint_value' rise=1\n";
	} elsif ($out_trans eq 'hl') {
	    printf $fp "+\ttarg=v(q) val='$midpoint_value' fall=1\n";
	} else {
	    die "ERROR: unknown output transition '$out_trans'\n";
	}
	printf $fp ".trans $trans_timestep '$trans_timestop'\n";

    } else {
	printf $fp ".trans $trans_timestep '$trans_timestop' sweep
+	optimize=$optparam
+	results=$optmeasure
+	model=$optmod\n";

	# Have to put this here in order for bisect to work. A
	# failed measurement during bisect causes bisect to abort.
	printf $fp ".trans $trans_timestep '$trans_timestop'\n";
	printf $fp "\n* Measure final clock->q time:\n";
	if ($clktype eq 'rising') {
	    printf $fp ".measure tran clk_q trig=v(clk) val='$midpoint_value' rise=2\n";
	} else {
	    printf $fp ".measure tran clk_q trig=v(clk) val='$midpoint_value' fall=2\n";
	}

	if ($out_trans eq 'lh') {
	    printf $fp "+\ttarg=v(q) val='$midpoint_value' rise=1\n";
	} elsif ($out_trans eq 'hl') {
	    printf $fp "+\ttarg=v(q) val='$midpoint_value' fall=1\n";
	} else {
	    die "ERROR: unknown output transition '$out_trans'\n";
	}
    }

    if ($spice_type eq 'smartspice') {
	# common with setup_hold module
	&s_print_control($fp, $out_trans);
    }

    printf $fp "\n* Alter slewrate:\n";
    for ($j = 1; $j <= $#slewrate; $j++) {
	printf $fp ".alter\n";
	printf $fp ".param slewrate = '$slewrate[$j]'\n" ;
    }
}


sub ces_report_spice {

    my  ($run_name, $out_trans, $ce, $clktype, $clk, $qtype, $q, $ctype, $c) = @@_;

    my($base,$dir,$ext,$spiceout);
    my(@@setup, @@clkslew, @@clk_q, @@vcrit, @@pass);
    my(@@scaled_setup, @@scaled_clkslew, @@scaled_clk_q, $i);

    ($base,$dir,$ext) = fileparse($run_name, '\.sp');
    $spiceout = $base . '.out';

    printf STDERR "Extracting results from '$spiceout' ...\n";

    # grab the last values
    open(SPICEOUT, $spiceout) || die "ERROR: Cannot find '$spiceout'.\n";
    if ($spice_type eq 'smartspice') {
	while (<SPICEOUT>) {
	    if (($name, $value) = /^Final (setup_${out_trans}) *= +([0-9\+\-eE\.]+)/) {
		push(@@setup, $value);
		next;
	    }
	    if (($name, $value) = /^Final (clkslew) *= +([0-9\+\-eE\.]+)/) {
		push (@@clkslew, $value);
		next;
	    }
	    if (($name, $value) = /^Final (clk_q) *= +([0-9\+\-eE\.]+)/) {
		push (@@clk_q, $value);
		next;
	    }
	    if (($name, $value) = /^Final (vcrit) *= +([0-9\+\-eE\.]+)/) {
		push (@@vcrit, $value);
		next;
	    }
	    if (($name, $value) = /^Final ($optmeasure) *= +([0-9\+\-eE\.]+)/) {
		push (@@pass, $value);
		next;
	    }
	}
    } else {
	while (<SPICEOUT>) {
	    if (($name, $value) = /^ +(setup_${out_trans}) *= +([0-9\+\-eE\.]+)/) {
		push(@@setup, $value);
		next;
	    }
	    if (($name, $value) = /^ +(clkslew) *= +([0-9\+\-eE\.]+)/) {
		push (@@clkslew, $value);
		next;
	    }
	    if (($name, $value) = /^ +(clk_q) *= +([0-9\+\-eE\.]+)/) {
		push (@@clk_q, $value);
		next;
	    }
	    if (($name, $value) = /^ +(vcrit) *= +([0-9\+\-eE\.]+)/) {
		push (@@vcrit, $value);
		next;
	    }
	    if (($name, $value) = /^ +($optmeasure) *= +([0-9\+\-eE\.]+)/) {
		push (@@pass, $value);
		next;
	    }
	}
    }

    @@setup = &halve_list(@@setup);
    @@clkslew = &halve_list(@@clkslew);
    @@vcrit = &halve_list(@@vcrit);
    @@pass = &halve_list(@@pass);

    printf OUT "\n";
    printf OUT "    InputSlew\tSetup_${out_trans}\tClock-Q\t\tCritNode\tCritPercent\n";
    printf OUT "    [s]\t\t[s]\t\t[s]\t\t[V]\n";
    printf OUT "    ----------\t----------\t----------\t----------\t----------\n";

    for ($i = 0; $i <= $#setup; $i++) {
	printf OUT "    %.4e\t%.4e\t%.4e\t%.4e\t%.4e\n",
	    $clkslew[$i], $setup[$i], $clk_q[$i], $vcrit[$i], $pass[$i];
    }

    @@scaled_setup = &div_list($scale_delay, @@setup);
    @@scaled_clk_q = &div_list($scale_delay, @@clk_q);
    @@scaled_clkslew = &div_list($scale_delay, @@clkslew);

    printf OUT "\n";
    printf OUT "    InputSlew\tSetup_${out_trans}\tClock-Q\t\tCritNode\tCritPercent\n";
    printf OUT "    [scaled]\t[scaled]\t[scaled]\t[V]\n";
    printf OUT "    ----------\t----------\t----------\t----------\t----------\n";

    for ($i = 0; $i <= $#setup; $i++) {
	printf OUT "    %.4e\t%.4e\t%.4e\t%.4e\t%.4e\n",
	    $scaled_clkslew[$i], $scaled_setup[$i],
	    $scaled_clk_q[$i], $vcrit[$i], $pass[$i];
    }
    printf OUT "\n\n";

    &ces_save_data($cellname, $ce, $cetype, $clk, $clktype, ('setup_' . $out_trans),
	\@@scaled_setup);

    close SPICEOUT;
}

#------ CLOCK ENABLE HOLD TIME CHARACTERIZATION --------------------------------

sub ceh_run {

    my($out_trans, $d, $cetype, $ce, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list) = @@_;

    local($run_name, $dtrans);
    local($optmod, $optparam, $optmeasure);

    # check
    if (($cetype ne 'active_high') && ($cetype ne 'active_low')) {
	die "ERROR: clock enable type must be either 'active_high' or 'active_low'\n";
    }
    if (($clktype ne 'rising') && ($clktype ne 'falling')) {
	die "ERROR: clock type must be either 'rising' or 'falling'\n";
    }
    if (($qtype ne 'inverting') && ($qtype ne 'non_inverting')) {
	die "ERROR: q type must be either 'inverting' or 'non_inverting'\n";
    }

    # give names to these puppies
    $optmod = 'optmod';
    $optparam = 'opthold';
    $optmeasure = 'optpass';

    $run_name = &run_file_name($cellname, $ce, $clk, $q, 'ceh');
    open(SPICEIN,">$run_name") || die "ERROR:  Cannot open file '$run_name'.";

    # Create the hspice netlist(s)
    &print_header(SPICEIN, '*');
    printf SPICEIN "*	Char:	D-Flop Clock Enable Hold Time Characterization\n";
    printf SPICEIN "*	Data:	\"$d\"\n";
    printf SPICEIN "*	Enable:	\"$ce\"\n";
    printf SPICEIN "*	Clock:	\"$clk\"\n";
    printf SPICEIN "*	Q:	\"$q\"\n";
    printf SPICEIN "*	C:	\"$c\"\n";
    printf SPICEIN "*	Trans:	\"$out_trans\"\n";

    &ceh_print_setup (SPICEIN);
    &ceh_print_source (SPICEIN, $cetype, $clktype, $out_trans, $qtype);
    &ceh_print_dut (SPICEIN, $d, $ce, $clk, $q, $tie, @@tie_list);
    &ceh_print_measure (SPICEIN, $clktype, $out_trans, $ctype, $c);
    &ceh_print_trans (SPICEIN, $clktype, $out_trans);

    printf SPICEIN ".end\n";
    close(SPICEIN);

    &run_spice($run_name);

    &ceh_report_spice($run_name, $out_trans, $ce, $clktype, $clk, $qtype, $q, $ctype, $c);
}


sub ceh_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 "$smartspice_options\n";
	printf $fp ".param ihold = 0\n" ;
	printf $fp ".param setup_hold_scale = '$setup_hold_scale'\n" ;
	printf $fp ".param hold = 'ihold*setup_hold_scale'\n" ;
    } else {
	printf $fp "$optim_options\n";
	printf $fp ".model $optmod opt method=bisection\n";
	printf $fp "+\trelin=$relin\n";
	printf $fp "+\trelout=$relout\n";
	printf $fp ".param hold = $optparam('$hold_range[0]', '$hold_range[0]', '$hold_range[1]')\n" ;
    }

    if ($#slewrate != -1) {
	printf $fp ".param slewrate = '$slewrate[0]'\n" ;
	printf $fp ".param slew_start = '$start_slew_percent'\n" ;
	printf $fp ".param slew_end = '$end_slew_percent'\n" ;
    }
}


#	Modifies dtrans
#
sub ceh_print_source {

    my ($fp, $cetype, $clktype, $out_trans, $qtype) = @@_;

    printf $fp "\n*--- INPUTS --------------------------------------------------\n";

    if ($clktype eq 'rising') {
	if ($#slewrate != -1) {
	    printf $fp "vclk vclk $low_value pulse (
+	'$low_value'
+	'$high_value'
+	'$trans_delay+$trans_risetime/2'
+	'0'
+	'0'
+	'$trans_pulse_width+$trans_risetime/2+$trans_falltime/2'
+	'$trans_period')\n";
	} else {
	    printf $fp "vclk vclk $low_value pulse (
+	'$low_value'
+	'$high_value'
+	'$trans_delay'
+	'$trans_risetime'
+	'$trans_falltime'
+	'$trans_pulse_width'
+	'$trans_period')\n";
	}
    } elsif ($clktype eq 'falling') {
	if ($#slewrate != -1) {
	    printf $fp "vclk vclk $low_value pulse (
+	'$high_value'
+	'$low_value'
+	'$trans_delay+$trans_risetime/2'
+	'0'
+	'0'
+	'$trans_pulse_width+$trans_risetime/2+$trans_falltime/2'
+	'$trans_period')\n";
	} else {
	    printf $fp "vclk vclk $low_value pulse (
+	'$high_value'
+	'$low_value'
+	'$trans_delay'
+	'$trans_risetime'
+	'$trans_falltime'
+	'$trans_pulse_width'
+	'$trans_period')\n";
	}
    } else {
	die "ERROR: unknown clock transition type '$clktype'\n";
    }

    if ( (($out_trans eq 'lh') && ($qtype eq 'non_inverting')) ||
	 (($out_trans eq 'hl') && ($qtype eq 'inverting')) ) {
	$dtrans = 'rise';
	printf $fp "vd vd $low_value pulse (
+	'$low_value'
+	'$high_value'
+	'$trans_delay+$trans_risetime+$trans_pulse_width'
+	'$trans_risetime'
+	'$trans_falltime'
+	'3*$trans_period'
+	'4*$trans_period')\n";
    } elsif ( (($out_trans eq 'hl') && ($qtype eq 'non_inverting')) ||
	      (($out_trans eq 'lh') && ($qtype eq 'inverting')) ) {
	$dtrans = 'fall';
	printf $fp "vd vd $low_value pulse (
+	'$high_value'
+	'$low_value'
+	'$trans_delay+$trans_risetime+$trans_pulse_width'
+	'$trans_risetime'
+	'$trans_falltime'
+	'3*$trans_period'
+	'4*$trans_period')\n";
    } else {
	die "ERROR: unknown combination of '$out_trans' and '$qtype'\n";
    }

    if ($cetype eq 'active_high') {
	printf $fp "vce vce $low_value pulse (
+	'$high_value'
+	'$low_value'
+	'$trans_delay+$trans_period+hold'
+	'$trans_risetime'
+	'$trans_falltime'
+	'3*$trans_period'
+	'4*$trans_period')\n";
    } elsif ($cetype eq 'active_low') {
	printf $fp "vce vce $low_value pulse (
+	'$low_value'
+	'$high_value'
+	'$trans_delay+$trans_period+hold'
+	'$trans_risetime'
+	'$trans_falltime'
+	'3*$trans_period'
+	'4*$trans_period')\n";
    }
}


sub ceh_print_dut {

    my($fp, $d, $ce, $clk, $q, $tie, $tie_list) = @@_;
    my($term, $termname, $termtype);
    my($dbuf, $clkbuf, $outload);
    my($vcvs);
    local($term_no, @@vcvs_list, @@output_loads);
    my(@@inlist, @@reflist);

    $term_no = 0;

    if ($buffer{$d} ne '') {
	$dbuf = $buffer{$d};
    } else {
	$dbuf = $buffer{'default'};
    }
    if ($buffer{$ce} ne '') {
	$cebuf = $buffer{$ce};
    } else {
	$cebuf = $buffer{'default'};
    }
    if ($buffer{$clk} ne '') {
	$clkbuf = $buffer{$clk};
    } else {
	$clkbuf = $buffer{'default'};
    }
    if ($#slewrate != -1) {
	$clkbuf = 'slewbuffer';
	printf STDERR "INFO: slewbuffer buffer used for slew rate setup_hold at clock input.\n";
    }

    printf $fp "\n*--- TEST CIRCUIT --------------------------------------------\n";

    @@inlist = ($d, $ce, $clk);
    @@reflist = ('d', 'ce', 'clk');

    if ($dbuf eq 'none') {
	printf $fp "vshortd vd d DC 0\n";
    } else {
	printf $fp "xdbuf vd d $dbuf\n";
    }
    if ($cebuf eq 'none') {
	printf $fp "vshortce vce ce DC 0\n";
    } else {
	printf $fp "xcebuf vce ce $clkbuf\n";
    }
    if ($clkbuf eq 'none') {
	printf $fp "vshortclk vclk clk DC 0\n";
    } else {
	printf $fp "xclkbuf vclk clk $clkbuf\n";
    }

    printf $fp "xflop\n";
    foreach $term (@@termlist) {
	($termname, $termtype) = split(':', $term);
	if ($termname eq $d) {
	    printf $fp "+\td\t\$ $term\n";
	    next;
	}
	if ($termname eq $ce) {
	    printf $fp "+\tce\t\$ $term\n";
	    next;
	}
	if ($termname eq $clk) {
	    printf $fp "+\tclk\t\$ $term\n";
	    next;
	}
	if ($termname eq $q) {
	    printf $fp "+\t%s\t\$ $term\n", &lookup_output_load($termname, 'q');
	    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";
    }
}


sub ceh_print_measure {

    my($fp, $clktype, $out_trans, $ctype, $c) = @@_;

    printf $fp "\n*--- MEASURE -------------------------------------------------\n";
    printf $fp ".option autostop\n";

    if ($spice_type eq 'smartspice') {
	printf $fp ".measure tran ihold param='ihold'\n";
	printf $fp ".measure tran hold param='hold'\n";
    }

    printf $fp "* Measure hold time:\n";
    if ($clktype eq 'rising') {
	printf $fp ".measure tran hold_${out_trans} %s v(clk) val='$midpoint_value' rise=2\n";
	&trig_word();
    } else {
	printf $fp ".measure tran hold_${out_trans} %s v(clk) val='$midpoint_value' fall=2\n";
	&trig_word();
    }
    printf $fp "+\ttarg=v(ce) val='$midpoint_value' cross=1\n";

    printf $fp "* Measure clock slew rate:\n";
    if ($clktype eq 'rising') {
	printf $fp
	    ".measure tran clkslew %s v(clk) val='$slew_r1' rise=2\n";
	    &trig_word();
	printf $fp
	    "+\ttarg=v(clk) val='$slew_r2' rise=2\n";
    } else {
	printf $fp
	    ".measure tran clkslew %s v(clk) val='$slew_f1' fall=2\n";
	    &trig_word();
	printf $fp
	    "+\ttarg=v(clk) val='$slew_f2' fall=2\n";
    }

    printf $fp "\n* Measure internal criterion node:\n";
    printf $fp ".measure tran vcrit find v(xflop.${c})\n";
    if ($clktype eq 'rising') {
	printf $fp "+\twhen v(clk)='$clock_percent*$high_value' rise=2\n"; 
    } else {
	printf $fp "+\twhen v(clk)='(1-$clock_percent)*$high_value' fall=2\n"; 
    }

    # cnode:
    if ( (($dtrans eq 'rise') && ($ctype eq 'inverting')) ||
	 (($dtrans eq 'fall') && ($ctype eq 'non_inverting')) ) {
	printf $fp ".measure tran $optmeasure param='($high_value-vcrit)/$high_value'\n";
	if ($spice_type ne 'smartspice') {
	    printf $fp "+\tgoal='${criterion_percent}'\n";
	}
    } elsif ( (($dtrans eq 'fall') && ($ctype eq 'inverting')) ||
	      (($dtrans eq 'rise') && ($ctype eq 'non_inverting')) ) {
	printf $fp ".measure tran $optmeasure param='vcrit/$high_value'\n";
	if ($spice_type ne 'smartspice') {
	    printf $fp "+\tgoal='${criterion_percent}'\n";
	}
    }
}


sub ceh_print_trans {

    my($fp, $clktype, $out_trans) = @@_;

    printf $fp "\n*--- TRANSIENT -----------------------------------------------\n";
    if ($spice_type eq 'smartspice') {

	printf $fp "* Measure final clock->q time:\n";
	if ($clktype eq 'rising') {
	    printf $fp ".measure tran clk_q delay v(clk) val='$midpoint_value' rise=2\n";
	} else {
	    printf $fp ".measure tran clk_q delay v(clk) val='$midpoint_value' fall=2\n";
	}
	if ($out_trans eq 'lh') {
	    printf $fp "+\ttarg=v(q) val='$midpoint_value' rise=1\n";
	} elsif ($out_trans eq 'hl') {
	    printf $fp "+\ttarg=v(q) val='$midpoint_value' fall=1\n";
	} else {
	    die "ERROR: unknown output transition '$out_trans'\n";
	}
	printf $fp ".trans $trans_timestep '$trans_timestop'\n";

    } else {
	printf $fp ".trans $trans_timestep '$trans_timestop' sweep
+	optimize=$optparam
+	results=$optmeasure
+	model=$optmod\n";

	# Have to put this here in order for bisect to work. A
	# failed measurement during bisect causes bisect to abort.
	printf $fp ".trans $trans_timestep '$trans_timestop'\n";
	printf $fp "\n* Measure final clock->q time:\n";
	if ($clktype eq 'rising') {
	    printf $fp ".measure tran clk_q trig=v(clk) val='$midpoint_value' rise=2\n";
	} else {
	    printf $fp ".measure tran clk_q trig=v(clk) val='$midpoint_value' fall=2\n";
	}

	if ($out_trans eq 'lh') {
	    printf $fp "+\ttarg=v(q) val='$midpoint_value' rise=1\n";
	} elsif ($out_trans eq 'hl') {
	    printf $fp "+\ttarg=v(q) val='$midpoint_value' fall=1\n";
	} else {
	    die "ERROR: unknown output transition '$out_trans'\n";
	}
    }

    if ($spice_type eq 'smartspice') {
	# common with setup_hold module
	&h_print_control($fp, $out_trans);
    }

    printf $fp "\n* Alter slewrate:\n";
    for ($j = 1; $j <= $#slewrate; $j++) {
	printf $fp ".alter\n";
	printf $fp ".param slewrate = '$slewrate[$j]'\n" ;
    }
}


sub ceh_report_spice {

    my  ($run_name, $out_trans, $ce, $clktype, $clk, $qtype, $q, $ctype, $c) = @@_;

    my($base,$dir,$ext,$spiceout);
    my(@@hold, @@clkslew, @@clk_q, @@vcrit, @@pass);
    my(@@scaled_hold, @@scaled_clkslew, @@scaled_clk_q, $i);

    ($base,$dir,$ext) = fileparse($run_name, '\.sp');
    $spiceout = $base . '.out';

    printf STDERR "Extracting results from '$spiceout' ...\n";

    # grab the last values
    open(SPICEOUT, $spiceout) || die "ERROR: Cannot find '$spiceout'.\n";
    if ($spice_type eq 'smartspice') {
	while (<SPICEOUT>) {
	    if (($name, $value) = /^Final (hold_${out_trans}) *= +([0-9\+\-eE\.]+)/) {
		push(@@hold, $value);
		next;
	    }
	    if (($name, $value) = /^Final (clkslew) *= +([0-9\+\-eE\.]+)/) {
		push (@@clkslew, $value);
		next;
	    }
	    if (($name, $value) = /^Final (clk_q) *= +([0-9\+\-eE\.]+)/) {
		push (@@clk_q, $value);
		next;
	    }
	    if (($name, $value) = /^Final (vcrit) *= +([0-9\+\-eE\.]+)/) {
		push (@@vcrit, $value);
		next;
	    }
	    if (($name, $value) = /^Final ($optmeasure) *= +([0-9\+\-eE\.]+)/) {
		push (@@pass, $value);
		next;
	    }
	}
    } else {
	while (<SPICEOUT>) {
	    if (($name, $value) = /^ +(hold_${out_trans}) *= +([0-9\+\-eE\.]+)/) {
		push(@@hold, $value);
		next;
	    }
	    if (($name, $value) = /^ +(clkslew) *= +([0-9\+\-eE\.]+)/) {
		push (@@clkslew, $value);
		next;
	    }
	    if (($name, $value) = /^ +(clk_q) *= +([0-9\+\-eE\.]+)/) {
		push(@@clk_q, $value);
		next;
	    }
	    if (($name, $value) = /^ +(vcrit) *= +([0-9\+\-eE\.]+)/) {
		push (@@vcrit, $value);
		next;
	    }
	    if (($name, $value) = /^ +($optmeasure) *= +([0-9\+\-eE\.]+)/) {
		push (@@pass, $value);
		next;
	    }
	}
    }

    @@hold = &halve_list(@@hold);
    @@clkslew = &halve_list(@@clkslew);
    @@vcrit = &halve_list(@@vcrit);
    @@pass = &halve_list(@@pass);

    printf OUT "\n";
    printf OUT "    InputSlew\tHold_${out_trans}\t\tClock-Q\t\tCritNode\tCritPercent\n";
    printf OUT "    [s]\t\t[s]\t\t[s]\t\t[V]\n";
    printf OUT "    ----------\t----------\t----------\t----------\t----------\n";

    for ($i = 0; $i <= $#hold; $i++) {
	printf OUT "    %.4e\t%.4e\t%.4e\t%.4e\t%.4e\n",
	    $clkslew[$i], $hold[$i], $clk_q[$i], $vcrit[$i], $pass[$i];
    }

    @@scaled_hold = &div_list($scale_delay, @@hold);
    @@scaled_clk_q = &div_list($scale_delay, @@clk_q);
    @@scaled_clkslew = &div_list($scale_delay, @@clkslew);

    printf OUT "\n";
    printf OUT "    InputSlew\tHold_${out_trans}\t\tClock-Q\t\tCritNode\tCritPercent\n";
    printf OUT "    [scaled]\t[scaled]\t[scaled]\t[V]\n";
    printf OUT "    ----------\t----------\t----------\t----------\t----------\n";

    for ($i = 0; $i <= $#hold; $i++) {
	printf OUT "    %.4e\t%.4e\t%.4e\t%.4e\t%.4e\n",
	    $scaled_clkslew[$i], $scaled_hold[$i],
	    $scaled_clk_q[$i], $vcrit[$i], $pass[$i];
    }
    printf OUT "\n\n";

    &ceh_save_data($cellname, $ce, $cetype, $clk, $clktype, (hold_ . $out_trans),
	\@@scaled_hold);

    close SPICEOUT;
}


1;
@


1.13
log
@Integrated smartspice
@
text
@d1 1
a1 1
#	$Id: clock_enable.pl,v 1.12 1999/01/20 07:44:59 ryu Exp ryu $
d471 1
a471 1
	    if (($name, $value) = /^Final (setup_${out_trans}) += +([0-9\+\-eE\.]+)/) {
d475 1
a475 1
	    if (($name, $value) = /^Final (clkslew) += +([0-9\+\-eE\.]+)/) {
d479 1
a479 1
	    if (($name, $value) = /^Final (clk_q) += +([0-9\+\-eE\.]+)/) {
d483 1
a483 1
	    if (($name, $value) = /^Final (vcrit) += +([0-9\+\-eE\.]+)/) {
d487 1
a487 1
	    if (($name, $value) = /^Final ($optmeasure) += +([0-9\+\-eE\.]+)/) {
d494 1
a494 1
	    if (($name, $value) = /^ +(setup_${out_trans}) += +([0-9\+\-eE\.]+)/) {
d498 1
a498 1
	    if (($name, $value) = /^ +(clkslew) += +([0-9\+\-eE\.]+)/) {
d502 1
a502 1
	    if (($name, $value) = /^ +(clk_q) += +([0-9\+\-eE\.]+)/) {
d506 1
a506 1
	    if (($name, $value) = /^ +(vcrit) += +([0-9\+\-eE\.]+)/) {
d510 1
a510 1
	    if (($name, $value) = /^ +($optmeasure) += +([0-9\+\-eE\.]+)/) {
d974 1
a974 1
	    if (($name, $value) = /^Final (hold_${out_trans}) += +([0-9\+\-eE\.]+)/) {
d978 1
a978 1
	    if (($name, $value) = /^Final (clkslew) += +([0-9\+\-eE\.]+)/) {
d982 1
a982 1
	    if (($name, $value) = /^Final (clk_q) += +([0-9\+\-eE\.]+)/) {
d986 1
a986 1
	    if (($name, $value) = /^Final (vcrit) += +([0-9\+\-eE\.]+)/) {
d990 1
a990 1
	    if (($name, $value) = /^Final ($optmeasure) += +([0-9\+\-eE\.]+)/) {
d997 1
a997 1
	    if (($name, $value) = /^ +(hold_${out_trans}) += +([0-9\+\-eE\.]+)/) {
d1001 1
a1001 1
	    if (($name, $value) = /^ +(clkslew) += +([0-9\+\-eE\.]+)/) {
d1005 1
a1005 1
	    if (($name, $value) = /^ +(clk_q) += +([0-9\+\-eE\.]+)/) {
d1009 1
a1009 1
	    if (($name, $value) = /^ +(vcrit) += +([0-9\+\-eE\.]+)/) {
d1013 1
a1013 1
	    if (($name, $value) = /^ +($optmeasure) += +([0-9\+\-eE\.]+)/) {
@


1.12
log
@No perl header
@
text
@d1 1
a1 1
#	$Id: clock_enable.pl,v 1.11 1999/01/14 10:19:02 ryu Exp ryu $
d112 13
a124 5
    printf $fp "$optim_options\n";
    printf $fp ".model $optmod opt method=bisection\n";
    printf $fp "+\trelin=$relin\n";
    printf $fp "+\trelout=$relout\n";
    printf $fp ".param setup = $optparam('$setup_range[0]', '$setup_range[0]', '$setup_range[1]')\n" ;
d339 8
a346 1
    printf $fp ".measure tran setup_${out_trans} trig=v(ce) val='$midpoint_value' cross=2\n";
d356 2
a357 1
	    ".measure tran clkslew trig=v(clk) val='$slew_r1' rise=2\n";
d362 2
a363 1
	    ".measure tran clkslew trig=v(clk) val='$slew_f1' fall=2\n";
d380 3
a382 1
	printf $fp "+\tgoal='${criterion_percent}'\n";
d386 3
a388 1
	printf $fp "+\tgoal='${criterion_percent}'\n";
d399 19
a417 1
    printf $fp ".trans $trans_timestep '$trans_timestop' sweep
d422 17
a438 8
    # Have to put this here in order for bisect to work. A
    # failed measurement during bisect causes bisect to abort.
    printf $fp ".trans $trans_timestep '$trans_timestop'\n";
    printf $fp "\n* Measure final clock->q time:\n";
    if ($clktype eq 'rising') {
	printf $fp ".measure tran clk_q trig=v(clk) val='$midpoint_value' rise=2\n";
    } else {
	printf $fp ".measure tran clk_q trig=v(clk) val='$midpoint_value' fall=2\n";
d441 3
a443 6
    if ($out_trans eq 'lh') {
	printf $fp "+\ttarg=v(q) val='$midpoint_value' rise=1\n";
    } elsif ($out_trans eq 'hl') {
	printf $fp "+\ttarg=v(q) val='$midpoint_value' fall=1\n";
    } else {
	die "ERROR: unknown output transition '$out_trans'\n";
d469 45
a513 20
    while (<SPICEOUT>) {
	if (($name, $value) = /^ +(setup_${out_trans}) += +([0-9\+\-eE\.]+)/) {
	    push(@@setup, $value);
	    next;
	}
	if (($name, $value) = /^ +(clkslew) += +([0-9\+\-eE\.]+)/) {
	    push (@@clkslew, $value);
	    next;
	}
	if (($name, $value) = /^ +(clk_q) += +([0-9\+\-eE\.]+)/) {
	    push (@@clk_q, $value);
	    next;
	}
	if (($name, $value) = /^ +(vcrit) += +([0-9\+\-eE\.]+)/) {
	    push (@@vcrit, $value);
	    next;
	}
	if (($name, $value) = /^ +($optmeasure) += +([0-9\+\-eE\.]+)/) {
	    push (@@pass, $value);
	    next;
d617 13
a629 5
    printf $fp "$optim_options\n";
    printf $fp ".model $optmod opt method=bisection\n";
    printf $fp "+\trelin=$relin\n";
    printf $fp "+\trelout=$relout\n";
    printf $fp ".param hold = $optparam('$hold_range[0]', '$hold_range[0]', '$hold_range[1]')\n" ;
d842 5
d849 2
a850 1
	printf $fp ".measure tran hold_${out_trans} trig=v(clk) val='$midpoint_value' rise=2\n";
d852 2
a853 1
	printf $fp ".measure tran hold_${out_trans} trig=v(clk) val='$midpoint_value' fall=2\n";
d860 2
a861 1
	    ".measure tran clkslew trig=v(clk) val='$slew_r1' rise=2\n";
d866 2
a867 1
	    ".measure tran clkslew trig=v(clk) val='$slew_f1' fall=2\n";
d884 3
a886 1
	printf $fp "+\tgoal='${criterion_percent}'\n";
d890 3
a892 1
	printf $fp "+\tgoal='${criterion_percent}'\n";
d902 19
a920 1
    printf $fp ".trans $trans_timestep '$trans_timestop' sweep
d925 17
a941 8
    # Have to put this here in order for bisect to work. A
    # failed measurement during bisect causes bisect to abort.
    printf $fp ".trans $trans_timestep '$trans_timestop'\n";
    printf $fp "\n* Measure final clock->q time:\n";
    if ($clktype eq 'rising') {
	printf $fp ".measure tran clk_q trig=v(clk) val='$midpoint_value' rise=2\n";
    } else {
	printf $fp ".measure tran clk_q trig=v(clk) val='$midpoint_value' fall=2\n";
d944 3
a946 6
    if ($out_trans eq 'lh') {
	printf $fp "+\ttarg=v(q) val='$midpoint_value' rise=1\n";
    } elsif ($out_trans eq 'hl') {
	printf $fp "+\ttarg=v(q) val='$midpoint_value' fall=1\n";
    } else {
	die "ERROR: unknown output transition '$out_trans'\n";
d972 45
a1016 20
    while (<SPICEOUT>) {
	if (($name, $value) = /^ +(hold_${out_trans}) += +([0-9\+\-eE\.]+)/) {
	    push(@@hold, $value);
	    next;
	}
	if (($name, $value) = /^ +(clkslew) += +([0-9\+\-eE\.]+)/) {
	    push (@@clkslew, $value);
	    next;
	}
	if (($name, $value) = /^ +(clk_q) += +([0-9\+\-eE\.]+)/) {
	    push(@@clk_q, $value);
	    next;
	}
	if (($name, $value) = /^ +(vcrit) += +([0-9\+\-eE\.]+)/) {
	    push (@@vcrit, $value);
	    next;
	}
	if (($name, $value) = /^ +($optmeasure) += +([0-9\+\-eE\.]+)/) {
	    push (@@pass, $value);
	    next;
@


1.11
log
@Using /usr/bin/perl
@
text
@d1 1
a1 3
#! /usr/bin/perl

#	$Id: clock_enable.pl,v 1.10 1999/01/13 07:18:42 ryu Exp ryu $
@


1.10
log
@GPL
@
text
@d1 1
a1 1
#! /usr/local/bin/perl
d3 1
a3 1
#	$Id$
@


1.9
log
@wip
@
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 2
a6 3
#	$Id: clock_enable.pl,v 1.8 1998/09/13 04:14:38 ryu Exp ryu $
#	Clock Enable Setup/Hold Flop Characterization Functions (2 cycles)
#	Author: Robert K. Yu
d8 16
@


1.8
log
@Added slew rate check on clock enable
@
text
@d9 1
a9 1
#	$Id: clock_enable.pl,v 1.7 1998/09/12 19:54:02 ryu Exp ryu $
d98 1
a98 1
    printf $fp ".include '$techpath/$spice_orner'\n";
d467 2
d900 1
@


1.7
log
@Added slew-rate to setup and hold; support for non-linear models for clock-q
@
text
@d9 1
a9 1
#	$Id: clock_enable.pl,v 1.6 1998/09/08 13:16:49 ryu Exp ryu $
d108 6
d126 11
a136 1
	printf $fp "vclk vclk $low_value pulse (
d144 1
d146 11
a156 1
	printf $fp "vclk vclk $low_value pulse (
d164 1
d243 5
d329 13
d366 1
a373 4
    printf $fp "\n\n* Final value:\n";
    printf $fp ".alter\n";
    printf $fp ".trans $trans_timestep '$trans_timestop'\n";

d376 1
d391 6
d405 2
a406 1
    my($setup, $clk_q, $vcrit, $pass);
d417 5
a421 1
	    $setup = $value;
d425 1
a425 1
	    $clk_q = $value;
d429 1
a429 1
	    $vcrit = $value;
d433 1
a433 1
	    $pass = $value;
d438 5
d444 12
a455 7
    printf OUT "    Setup_${out_trans}\tSetup_${out_trans}\tClock-Q\t\tClock-Q\t\tCritNode\tCritPercent\n";
    printf OUT "    [s]\t\t[scaled]\t\t[s]\t\t[scaled]\t\t[V]\n";
    printf OUT "    ----------\t----------\t----------\t----------\t----------\t----------\n";
    printf OUT "    %.4e\t%.4e\t%.4e\t%.4e\t%.4e\t%.4e\n",
	$setup, $setup/$scale_delay,
	$clk_q, $clk_q/$scale_delay,
	$vcrit, $pass;
d457 10
d468 1
a468 1
	$setup/$scale_delay);
d541 6
d559 11
a569 1
	printf $fp "vclk vclk $low_value pulse (
d577 1
d579 11
a589 1
	printf $fp "vclk vclk $low_value pulse (
d597 1
d676 4
d761 13
a804 4
    printf $fp "\n\n* Final value:\n";
    printf $fp ".alter\n";
    printf $fp ".trans $trans_timestep '$trans_timestop'\n";

d807 1
d822 6
d836 2
a837 1
    my($hold, $clk_q, $vcrit, $pass);
d848 5
a852 1
	    $hold = $value;
d856 1
a856 1
	    $clk_q = $value;
d860 1
a860 1
	    $vcrit = $value;
d864 1
a864 1
	    $pass = $value;
d869 5
d875 23
a897 7
    printf OUT "    Hold_${out_trans}\tHold_${out_trans}\t\tClock-Q\t\tClock-Q\t\tCritNode\tCritPercent\n";
    printf OUT "    [s]\t\t[scaled]\t\t[s]\t\t[scaled]\t\t[V]\n";
    printf OUT "    ----------\t----------\t----------\t----------\t----------\t----------\n";
    printf OUT "    %.4e\t%.4e\t%.4e\t%.4e\t%.4e\t%.4e\n",
	$hold, $hold/$scale_delay,
	$clk_q, $clk_q/$scale_delay,
	$vcrit, $pass;
d900 1
a900 1
	$hold/$scale_delay);
d904 1
@


1.6
log
@slew rate at the clock input of setup_hold (wip)
@
text
@d9 1
a9 1
#	$Id: clock_enable.pl,v 1.5 1998/09/07 11:17:15 ryu Exp ryu $
d22 1
d98 1
a98 1
    printf $fp ".include '$init{'techpath'}/$init{'corner'}'\n";
d100 2
a101 2
    if ($init{'include'} ne 'none') {
	printf $fp "$init{'include'}\n";
d103 1
a103 1
    printf $fp "$optim{'options'}\n";
d120 8
a127 8
	printf $fp "vclk vclk $init{'low'} pulse (
+	'$init{'low'}'
+	'$init{'high'}'
+	'$trans{'delay'}'
+	'$trans{'risetime'}'
+	'$trans{'falltime'}'
+	'$trans{'pulse_width'}'
+	'$trans{'period'}')\n";
d129 8
a136 8
	printf $fp "vclk vclk $init{'low'} pulse (
+	'$init{'high'}'
+	'$init{'low'}'
+	'$trans{'delay'}'
+	'$trans{'risetime'}'
+	'$trans{'falltime'}'
+	'$trans{'pulse_width'}'
+	'$trans{'period'}')\n";
d144 8
a151 8
	printf $fp "vd vd $init{'low'} pulse (
+	'$init{'low'}'
+	'$init{'high'}'
+	'$trans{'delay'}+$trans{'risetime'}+$trans{'pulse_width'}'
+	'$trans{'risetime'}'
+	'$trans{'falltime'}'
+	'3*$trans{'period'}'
+	'4*$trans{'period'}')\n";
d155 8
a162 8
	printf $fp "vd vd $init{'low'} pulse (
+	'$init{'high'}'
+	'$init{'low'}'
+	'$trans{'delay'}+$trans{'risetime'}+$trans{'pulse_width'}'
+	'$trans{'risetime'}'
+	'$trans{'falltime'}'
+	'3*$trans{'period'}'
+	'4*$trans{'period'}')\n";
d168 8
a175 8
	printf $fp "vce vce $init{'low'} pulse (
+	'$init{'high'}'
+	'$init{'low'}'
+	'$trans{'delay'}+$trans{'risetime'}+$trans{'pulse_width'}/2'
+	'$trans{'risetime'}'
+	'$trans{'falltime'}'
+	'$trans{'period'}-$trans{'risetime'}-$trans{'pulse_width'}/2-setup'
+	'4*$trans{'period'}')\n";
d177 8
a184 8
	printf $fp "vce vce $init{'low'} pulse (
+	'$init{'low'}'
+	'$init{'high'}'
+	'$trans{'delay'}+$trans{'risetime'}+$trans{'pulse_width'}/2'
+	'$trans{'risetime'}'
+	'$trans{'falltime'}'
+	'$trans{'period'}-$trans{'risetime'}-$trans{'pulse_width'}/2-setup'
+	'4*$trans{'period'}')\n";
d289 1
a289 1
    printf $fp ".measure tran setup_${out_trans} trig=v(ce) val='$init{'midpoint'}' cross=2\n";
d291 1
a291 1
	printf $fp "+\ttarg=v(clk) val='$init{'midpoint'}' rise=2\n";
d293 1
a293 1
	printf $fp "+\ttarg=v(clk) val='$init{'midpoint'}' fall=2\n";
d299 1
a299 1
	printf $fp "+\twhen v(clk)='$clock_percent*$init{'high'}' rise=2\n"; 
d301 1
a301 1
	printf $fp "+\twhen v(clk)='(1-$clock_percent)*$init{'high'}' fall=2\n"; 
d307 1
a307 1
	printf $fp ".measure tran $optmeasure param='($init{'high'}-vcrit)/$init{'high'}'\n";
d311 1
a311 1
	printf $fp ".measure tran $optmeasure param='vcrit/$init{'high'}'\n";
d322 1
a322 1
    printf $fp ".trans $trans{'timestep'} '$trans{'timestop'}' sweep
d329 1
a329 1
    printf $fp ".trans $trans{'timestep'} '$trans{'timestop'}'\n";
d335 1
a335 1
	printf $fp ".measure tran clk_q trig=v(clk) val='$init{'midpoint'}' rise=2\n";
d337 1
a337 1
	printf $fp ".measure tran clk_q trig=v(clk) val='$init{'midpoint'}' fall=2\n";
d341 1
a341 1
	printf $fp "+\ttarg=v(q) val='$init{'midpoint'}' rise=1\n";
d343 1
a343 1
	printf $fp "+\ttarg=v(q) val='$init{'midpoint'}' fall=1\n";
d385 1
a385 1
    printf OUT "    [s]\t\t[gates]\t\t[s]\t\t[gates]\t\t[V]\n";
d388 2
a389 2
	$setup, $setup/$init{'scale_delay'},
	$clk_q, $clk_q/$init{'scale_delay'},
d393 1
a393 1
	$setup/$init{'scale_delay'});
d456 1
a456 1
    printf $fp ".include '$init{'techpath'}/$init{'corner'}'\n";
d458 2
a459 2
    if ($init{'include'} ne 'none') {
	printf $fp "$init{'include'}\n";
d461 1
a461 1
    printf $fp "$optim{'options'}\n";
d478 8
a485 8
	printf $fp "vclk vclk $init{'low'} pulse (
+	'$init{'low'}'
+	'$init{'high'}'
+	'$trans{'delay'}'
+	'$trans{'risetime'}'
+	'$trans{'falltime'}'
+	'$trans{'pulse_width'}'
+	'$trans{'period'}')\n";
d487 8
a494 8
	printf $fp "vclk vclk $init{'low'} pulse (
+	'$init{'high'}'
+	'$init{'low'}'
+	'$trans{'delay'}'
+	'$trans{'risetime'}'
+	'$trans{'falltime'}'
+	'$trans{'pulse_width'}'
+	'$trans{'period'}')\n";
d502 8
a509 8
	printf $fp "vd vd $init{'low'} pulse (
+	'$init{'low'}'
+	'$init{'high'}'
+	'$trans{'delay'}+$trans{'risetime'}+$trans{'pulse_width'}'
+	'$trans{'risetime'}'
+	'$trans{'falltime'}'
+	'3*$trans{'period'}'
+	'4*$trans{'period'}')\n";
d513 8
a520 8
	printf $fp "vd vd $init{'low'} pulse (
+	'$init{'high'}'
+	'$init{'low'}'
+	'$trans{'delay'}+$trans{'risetime'}+$trans{'pulse_width'}'
+	'$trans{'risetime'}'
+	'$trans{'falltime'}'
+	'3*$trans{'period'}'
+	'4*$trans{'period'}')\n";
d526 8
a533 8
	printf $fp "vce vce $init{'low'} pulse (
+	'$init{'high'}'
+	'$init{'low'}'
+	'$trans{'delay'}+$trans{'period'}+hold'
+	'$trans{'risetime'}'
+	'$trans{'falltime'}'
+	'3*$trans{'period'}'
+	'4*$trans{'period'}')\n";
d535 8
a542 8
	printf $fp "vce vce $init{'low'} pulse (
+	'$init{'low'}'
+	'$init{'high'}'
+	'$trans{'delay'}+$trans{'period'}+hold'
+	'$trans{'risetime'}'
+	'$trans{'falltime'}'
+	'3*$trans{'period'}'
+	'4*$trans{'period'}')\n";
d648 1
a648 1
	printf $fp ".measure tran hold_${out_trans} trig=v(clk) val='$init{'midpoint'}' rise=2\n";
d650 1
a650 1
	printf $fp ".measure tran hold_${out_trans} trig=v(clk) val='$init{'midpoint'}' fall=2\n";
d652 1
a652 1
    printf $fp "+\ttarg=v(ce) val='$init{'midpoint'}' cross=1\n";
d657 1
a657 1
	printf $fp "+\twhen v(clk)='$clock_percent*$init{'high'}' rise=2\n"; 
d659 1
a659 1
	printf $fp "+\twhen v(clk)='(1-$clock_percent)*$init{'high'}' fall=2\n"; 
d665 1
a665 1
	printf $fp ".measure tran $optmeasure param='($init{'high'}-vcrit)/$init{'high'}'\n";
d669 1
a669 1
	printf $fp ".measure tran $optmeasure param='vcrit/$init{'high'}'\n";
d680 1
a680 1
    printf $fp ".trans $trans{'timestep'} '$trans{'timestop'}' sweep
d687 1
a687 1
    printf $fp ".trans $trans{'timestep'} '$trans{'timestop'}'\n";
d693 1
a693 1
	printf $fp ".measure tran clk_q trig=v(clk) val='$init{'midpoint'}' rise=2\n";
d695 1
a695 1
	printf $fp ".measure tran clk_q trig=v(clk) val='$init{'midpoint'}' fall=2\n";
d699 1
a699 1
	printf $fp "+\ttarg=v(q) val='$init{'midpoint'}' rise=1\n";
d701 1
a701 1
	printf $fp "+\ttarg=v(q) val='$init{'midpoint'}' fall=1\n";
d743 1
a743 1
    printf OUT "    [s]\t\t[gates]\t\t[s]\t\t[gates]\t\t[V]\n";
d746 2
a747 2
	$hold, $hold/$init{'scale_delay'},
	$clk_q, $clk_q/$init{'scale_delay'},
d751 1
a751 1
	$hold/$init{'scale_delay'});
@


1.5
log
@comment
@
text
@d3 1
a3 1
#	Copyright (c) 1998, Robert K. Yu.  All Rights Reserved.
d9 1
a9 1
#	$Id: clock_enable.pl,v 1.4 1998/09/06 20:43:23 ryu Exp ryu $
d86 1
a86 1
    &ces_run_spice($run_name);
a348 17
sub ces_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`;
    }
}

d444 1
a444 1
    &ceh_run_spice($run_name);
a705 17

sub ceh_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.4
log
@clock enable
@
text
@d9 1
a9 1
#	$Id: clock_enable.pl,v 1.3 1998/09/06 04:18:47 ryu Exp ryu $
d39 1
a39 1
#------ SETUP TIME CHARACTERIZATION --------------------------------------------
d414 1
a414 1
#------ HOLD TIME CHARACTERIZATION ---------------------------------------------
@


1.3
log
@wip
@
text
@d9 1
a9 1
#	$Id: clock_enable.pl,v 1.2 1998/09/05 22:10:32 ryu Exp ryu $
d64 1
a64 1
    $run_name = &run_file_name($cellname, $d, $ce, $clk, $q, 's');
d240 1
a240 1
	    printf $fp "+\td\n";
d244 1
a244 1
	    printf $fp "+\tce\n";
d248 1
a248 1
	    printf $fp "+\tclk\n";
d252 1
a252 1
	    printf $fp "+\t%s\n", &lookup_output_load($termname, 'q');
d256 1
a256 1
	    printf $fp "+\t%s\n",
d261 1
a261 1
	    printf $fp "+\t%s\n", &lookup_output_load($termname);
d288 1
a288 1
    printf $fp ".meas tran setup_${out_trans} trig=v(ce) val='$init{'midpoint'}' cross=1\n";
d296 1
a296 1
    printf $fp ".meas tran vcrit find v(xflop.${c})\n";
d303 1
a303 1
    # falling cnode:
d306 1
a306 1
	printf $fp ".meas tran $optmeasure param='($init{'high'}-vcrit)/$init{'high'}'\n";
d310 1
a310 1
	printf $fp ".meas tran $optmeasure param='vcrit/$init{'high'}'\n";
d334 1
a334 1
	printf $fp ".meas tran clk_q trig=v(clk) val='$init{'midpoint'}' rise=2\n";
d336 1
a336 1
	printf $fp ".meas tran clk_q trig=v(clk) val='$init{'midpoint'}' fall=2\n";
d408 1
a408 1
    &ces_save_data($cellname, $ce, $clk, $clktype, ('setup_' . $out_trans),
d439 1
a439 1
    $run_name = &run_file_name($cellname, $d, $ce, $clk, $q, 'h');
d615 1
a615 1
	    printf $fp "+\td\n";
d619 1
a619 1
	    printf $fp "+\tce\n";
d623 1
a623 1
	    printf $fp "+\tclk\n";
d627 1
a627 1
	    printf $fp "+\t%s\n", &lookup_output_load($termname, 'q');
d631 1
a631 1
	    printf $fp "+\t%s\n",
d636 1
a636 1
	    printf $fp "+\t%s\n", &lookup_output_load($termname);
d664 1
a664 1
	printf $fp ".meas tran hold_${out_trans} trig=v(clk) val='$init{'midpoint'}' rise=2\n";
d666 1
a666 1
	printf $fp ".meas tran hold_${out_trans} trig=v(clk) val='$init{'midpoint'}' fall=2\n";
d671 1
a671 1
    printf $fp ".meas tran vcrit find v(xflop.${c})\n";
d678 1
a678 1
    # falling cnode:
d681 1
a681 1
	printf $fp ".meas tran $optmeasure param='($init{'high'}-vcrit)/$init{'high'}'\n";
d685 1
a685 1
	printf $fp ".meas tran $optmeasure param='vcrit/$init{'high'}'\n";
d709 1
a709 1
	printf $fp ".meas tran clk_q trig=v(clk) val='$init{'midpoint'}' rise=2\n";
d711 1
a711 1
	printf $fp ".meas tran clk_q trig=v(clk) val='$init{'midpoint'}' fall=2\n";
d783 1
a783 1
    &ceh_save_data($cellname, $ce, $clk, $clktype, (hold_ . $out_trans),
@


1.2
log
@Consolidate lookup_input functions into one, using list of names and refnames.
@
text
@d9 1
a9 1
#	$Id: clock_enable.pl,v 1.1 1998/09/03 09:08:10 ryu Exp ryu $
d88 1
a88 1
    &ces_report_spice($run_name, $out_trans, $d, $clktype, $clk, $qtype, $q, $ctype, $c);
d173 1
a173 1
+	'$trans{'period'}-$trans{'pulse_width'}/2-setup'
d182 1
a182 1
+	'$trans{'period'}-$trans{'pulse_width'}/2-setup'
a184 1

d288 1
a288 1
    printf $fp ".meas tran setup_${out_trans} trig=v(d) val='$init{'midpoint'}' cross=1\n";
d368 1
a368 1
    my  ($run_name, $out_trans, $d, $clktype, $clk, $qtype, $q, $ctype, $c) = @@_;
d408 1
a408 1
    &ces_save_data($cellname, $d, $clk, $clktype, ('setup_' . $out_trans),
d454 1
a454 1
    &ceh_print_dut (SPICEIN, $d, $clk, $q, $tie, @@tie_list);
d463 1
a463 1
    &ceh_report_spice($run_name, $out_trans, $d, $clktype, $clk, $qtype, $q, $ctype, $c);
d540 20
d565 1
a565 1
    my($fp, $d, $clk, $q, $tie, $tie_list) = @@_;
d570 1
d579 5
d600 5
d618 4
d668 1
a668 1
    printf $fp "+\ttarg=v(d) val='$init{'midpoint'}' cross=2\n";
d743 1
a743 1
    my  ($run_name, $out_trans, $d, $clktype, $clk, $qtype, $q, $ctype, $c) = @@_;
d783 1
a783 1
    &ceh_save_data($cellname, $d, $clk, $clktype, (hold_ . $out_trans),
@


1.1
log
@entered into RCS
@
text
@d9 2
a10 2
#	$Id: setup_hold.pl,v 1.18 1998/09/01 04:49:20 ryu Exp $
#	Setup/Hold Flop Characterization Functions
d20 1
a20 1
    local($d, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list) = @@_;
d24 1
d29 7
a35 7
    # enable
    &en_run ('lh', $d, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list);
    &en_run ('hl', $d, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list);

    # disable
    &dis_run ('lh', $d, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list);
    &dis_run ('hl', $d, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list);
d41 1
a41 1
sub en_run {
d43 1
a43 1
    my($out_trans, $d, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list) = @@_;
d49 3
d64 1
a64 1
    $run_name = &run_file_name($cellname, $d, $clk, $q, 's');
d69 1
a69 1
    printf SPICEIN "*	Char:	D-Flop Setup Time Characterization\n";
d71 1
d77 5
a81 5
    &en_print_setup (SPICEIN);
    &en_print_source (SPICEIN, $clktype, $out_trans, $qtype);
    &en_print_dut (SPICEIN, $d, $clk, $q, $tie, @@tie_list);
    &en_print_measure (SPICEIN, $clktype, $out_trans, $ctype, $c);
    &en_print_trans (SPICEIN, $clktype, $out_trans);
d86 1
a86 1
    &en_run_spice($run_name);
d88 1
a88 1
    &en_report_spice($run_name, $out_trans, $d, $clktype, $clk, $qtype, $q, $ctype, $c);
d92 1
a92 1
sub en_print_setup {
d112 1
a112 1
sub en_print_source {
d114 1
a114 1
    my ($fp, $clktype, $out_trans, $qtype) = @@_;
a141 1

d146 1
a146 1
+	'$trans{'delay'}+$trans{'risetime'}+2*$trans{'pulse_width'}+$trans{'falltime'}-setup'
a150 1

a152 1

d157 1
a157 1
+	'$trans{'delay'}+$trans{'risetime'}+2*$trans{'pulse_width'}+$trans{'falltime'}-setup'
a161 1

d165 21
d189 1
a189 1
sub en_print_dut {
d191 1
a191 1
    my($fp, $d, $clk, $q, $tie, $tie_list) = @@_;
d193 2
a194 2
    my($dbuf, $clkbuf, $outload);
    my($vcvs, $drefname, $clkrefname);
d196 1
d205 5
d218 2
a219 2
    $drefname = 'd';
    $clkrefname = 'clk';
d226 5
d244 4
d258 1
a258 1
		&lookup_input_2($termname, $d, $clk, $drefname, $clkrefname, $tie, @@tie_list);
d281 1
a281 1
sub en_print_measure {
d317 1
a317 1
sub en_print_trans {
d350 1
a350 1
sub en_run_spice {
d367 1
a367 1
sub en_report_spice {
d409 1
a409 1
    &en_save_data($cellname, $d, $clk, $clktype, ('setup_' . $out_trans),
d417 1
a417 1
sub dis_run {
d419 1
a419 1
    my($out_trans, $d, $clktype, $clk, $qtype, $q, $ctype, $c, $tie, @@tie_list) = @@_;
d425 3
d440 1
a440 1
    $run_name = &run_file_name($cellname, $d, $clk, $q, 'h');
d445 1
a445 1
    printf SPICEIN "*	Char:	D-Flop Hold Time Characterization\n";
d447 1
d453 5
a457 5
    &dis_print_setup (SPICEIN);
    &dis_print_source (SPICEIN, $clktype, $out_trans, $qtype);
    &dis_print_dut (SPICEIN, $d, $clk, $q, $tie, @@tie_list);
    &dis_print_measure (SPICEIN, $clktype, $out_trans, $ctype, $c);
    &dis_print_trans (SPICEIN, $clktype, $out_trans);
d462 1
a462 1
    &dis_run_spice($run_name);
d464 1
a464 1
    &dis_report_spice($run_name, $out_trans, $d, $clktype, $clk, $qtype, $q, $ctype, $c);
d468 1
a468 1
sub dis_print_setup {
d488 1
a488 1
sub dis_print_source {
d490 1
a490 1
    my ($fp, $clktype, $out_trans, $qtype) = @@_;
a517 1

d525 1
a525 1
+	'$trans{'pulse_width'}+hold'
a526 1

a528 1

d536 1
a536 1
+	'$trans{'pulse_width'}+hold'
a537 1

d544 1
a544 1
sub dis_print_dut {
d549 1
a549 1
    my($vcvs, $drefname, $clkrefname);
d567 2
a568 2
    $drefname = 'd';
    $clkrefname = 'clk';
d598 1
a598 1
		&lookup_input_2($termname, $d, $clk, $drefname, $clkrefname, $tie, @@tie_list);
d621 1
a621 1
sub dis_print_measure {
d657 1
a657 1
sub dis_print_trans {
d690 1
a690 1
sub dis_run_spice {
d707 1
a707 1
sub dis_report_spice {
d749 1
a749 1
    &dis_save_data($cellname, $d, $clk, $clktype, (hold_ . $out_trans),
@