rlar
16 years ago
19 changed files with 1295 additions and 1296 deletions
-
21ChangeLog
-
644contrib/vbic/sgp2vbic
-
622contrib/vbic/vbic2sgp
-
30src/spicelib/devices/mos9/mos9temp.c
-
78src/xspice/examples/d_to_real/Makefile
-
82src/xspice/examples/d_to_real/cfunc.mod
-
64src/xspice/examples/d_to_real/ifspec.ifs
-
78src/xspice/examples/nco/Makefile
-
76src/xspice/examples/nco/ifspec.ifs
-
78src/xspice/examples/print_param_types/Makefile
-
62src/xspice/examples/print_param_types/cfunc.mod
-
224src/xspice/examples/print_param_types/ifspec.ifs
-
78src/xspice/examples/real_delay/Makefile
-
66src/xspice/examples/real_delay/ifspec.ifs
-
78src/xspice/examples/real_gain/Makefile
-
76src/xspice/examples/real_gain/cfunc.mod
-
90src/xspice/examples/real_gain/ifspec.ifs
-
78src/xspice/examples/real_to_v/Makefile
-
66src/xspice/examples/real_to_v/ifspec.ifs
@ -1,322 +1,322 @@ |
|||||
#!/bin/sh -- # perl |
|
||||
eval 'exec perl -S -x -w $0 ${1+"$@"}' |
|
||||
if 0; |
|
||||
|
|
||||
# |
|
||||
# sgp2vbic: program to convert an SGP .model card to VBIC |
|
||||
# |
|
||||
# Vers Date Who Comments |
|
||||
# ==== ========== ============= ======== |
|
||||
# 2.0 06/01/00 Colin McAndrew translated from shell/nawk version |
|
||||
# |
|
||||
|
|
||||
sub usage() { |
|
||||
print " |
|
||||
$prog: convert SGP .model card to VBIC .model card |
|
||||
|
|
||||
Usage: $prog [options] modelFile |
|
||||
|
|
||||
Files: |
|
||||
modelFile file with SGP .model card |
|
||||
|
|
||||
Options: |
|
||||
-d debug mode |
|
||||
-h print this help message |
|
||||
-i print detailed information |
|
||||
-v verbose mode |
|
||||
-vbeif Vbe do fwd Early voltage map at Vbe ($Vbeif) |
|
||||
-vceif Vce do fwd Early voltage map at Vce ($Vceif) |
|
||||
-vbcir Vbc do rev Early voltage map at Vbc ($Vbcir) |
|
||||
-vecir Vec do rev Early voltage map at Vec ($Vecir) |
|
||||
"; |
|
||||
} # End of: sub usage |
|
||||
|
|
||||
sub info() { |
|
||||
print " |
|
||||
This program maps an SGP .model card into a VBIC .model card. |
|
||||
For many parameters there is a 1-to-1 mapping between the two, |
|
||||
and the default VBIC parameters are such that the model extensions |
|
||||
that are not part of SGP are turned off. |
|
||||
|
|
||||
There are two fundamental and non-mappable differences between |
|
||||
the two models. First, the IRB emitter crowding based resistance |
|
||||
modulation model is not supported in VBIC. This parameter is |
|
||||
ignored. Second, the Early effect model is different, the bias |
|
||||
dependence is substantially better in VBIC than in SGP. This means |
|
||||
the models can be made to match only at specific biases. |
|
||||
These biases can be specified by the -vxxi[fr] flags. |
|
||||
"; |
|
||||
} # End of: sub info |
|
||||
|
|
||||
# |
|
||||
# Set program names and variables. |
|
||||
# |
|
||||
|
|
||||
$\="\n"; |
|
||||
$,=" "; |
|
||||
$Debug=""; |
|
||||
$Verbose=""; |
|
||||
$Number='([+-]?[0-9]+[.]?[0-9]*|[+-]?[0-9]+[.]?[0-9]*[eE][+-]?[0-9]+|[+-]?[.][0-9]+|[+-]?[.][0-9]+[eE][+-]?[0-9]+)'; |
|
||||
@prog=split("/",$0); |
|
||||
$prog=$prog[$#prog]; |
|
||||
$Pi=atan2(0,-1); |
|
||||
$Vbeif=0.6; |
|
||||
$Vceif=2.5; |
|
||||
$Vbcir=0.5; |
|
||||
$Vecir=2.5; |
|
||||
|
|
||||
# |
|
||||
# Parse command line arguments, allow argument |
|
||||
# flags to be any case. |
|
||||
# |
|
||||
|
|
||||
for (;;){ |
|
||||
if ($#ARGV < 0) { |
|
||||
last; |
|
||||
} elsif ($ARGV[0] =~ /^-d/i) { |
|
||||
$Debug="-d";$Verbose="-v"; |
|
||||
} elsif ($ARGV[0] =~ /^-h/i) { |
|
||||
&usage();exit(0); |
|
||||
} elsif ($ARGV[0] =~ /^-i/i) { |
|
||||
&info();exit(0); |
|
||||
} elsif ($ARGV[0] =~ /^-v$/i) { |
|
||||
$Verbose="-v"; |
|
||||
} elsif ($ARGV[0] =~ /^-vbeif$/i) { |
|
||||
shift(@ARGV); |
|
||||
if (!defined($ARGV[0])) { |
|
||||
die("ERROR: no value specified for -vbeif flag, stopped"); |
|
||||
} |
|
||||
$Vbeif=$ARGV[0]; |
|
||||
if ($Vbeif !~ /$Number/) { |
|
||||
die("ERROR: value for -vbeif flag must be a number, stopped"); |
|
||||
} |
|
||||
} elsif ($ARGV[0] =~ /^-vceif$/i) { |
|
||||
shift(@ARGV); |
|
||||
if (!defined($ARGV[0])) { |
|
||||
die("ERROR: no value specified for -vceif flag, stopped"); |
|
||||
} |
|
||||
$Vceif=$ARGV[0]; |
|
||||
if ($Vceif !~ /$Number/) { |
|
||||
die("ERROR: value for -vceif flag must be a number, stopped"); |
|
||||
} |
|
||||
} elsif ($ARGV[0] =~ /^-vbcir$/i) { |
|
||||
shift(@ARGV); |
|
||||
if (!defined($ARGV[0])) { |
|
||||
die("ERROR: no value specified for -vbcir flag, stopped"); |
|
||||
} |
|
||||
$Vbcir=$ARGV[0]; |
|
||||
if ($Vbcir !~ /$Number/) { |
|
||||
die("ERROR: value for -vbcir flag must be a number, stopped"); |
|
||||
} |
|
||||
} elsif ($ARGV[0] =~ /^-vecir$/i) { |
|
||||
shift(@ARGV); |
|
||||
if (!defined($ARGV[0])) { |
|
||||
die("ERROR: no value specified for -vecir flag, stopped"); |
|
||||
} |
|
||||
$Vecir=$ARGV[0]; |
|
||||
if ($Vecir !~ /$Number/) { |
|
||||
die("ERROR: value for -vecir flag must be a number, stopped"); |
|
||||
} |
|
||||
} elsif ($ARGV[0] =~ /^-/) { |
|
||||
&usage(); |
|
||||
die("ERROR: unknown flag $ARGV[0], stopped"); |
|
||||
} else { |
|
||||
last; |
|
||||
} |
|
||||
shift(@ARGV); |
|
||||
} |
|
||||
if ($#ARGV < 0) { |
|
||||
&usage();exit(1); # exit if no file name is specified |
|
||||
} |
|
||||
|
|
||||
$ModelFile=$ARGV[0]; |
|
||||
|
|
||||
sub QCDEPL { |
|
||||
my($vj,$p,$m,$f)=@_; |
|
||||
my($w,$xx,$cj,$qj); |
|
||||
|
|
||||
$w=1.0-$vj/$p; |
|
||||
if($w>=1.0-$f){ |
|
||||
$cj=$w**(-$m); |
|
||||
$qj=$p*(1.0-$w*$cj)/(1.0-$m); |
|
||||
} else { |
|
||||
$xx=(1.0-$f)**(-(1.0+$m)); |
|
||||
$cj=$xx*(1.0-$f*(1.0+$m)+$m*$vj/$p); |
|
||||
$qj=$xx*((1.0-$f*(1.0+$m))*($vj-$f*$p)+0.5*$m*($vj*$vj-$f*$f*$p*$p)/$p)+$p*(1.0-$xx*(1.0-$f)**2)/(1.0-$m); |
|
||||
} |
|
||||
return($qj,$cj); |
|
||||
} |
|
||||
|
|
||||
# |
|
||||
# Parse model file |
|
||||
# |
|
||||
|
|
||||
open(IF,"$ModelFile") || |
|
||||
die("ERROR: cannot open file $ModelFile, stopped"); |
|
||||
$inModel="no"; |
|
||||
while (<IF>) { |
|
||||
chomp;tr/A-Z/a-z/; |
|
||||
if ($_ =~ /^\s*$/) {next;} |
|
||||
if ($_ =~ /^\s*\*/) {next;} |
|
||||
last if ($_ !~ /^\+/ && $inModel eq "yes"); |
|
||||
if ($_ =~ /^\s*\.mod/) { |
|
||||
$inModel="yes";$model=$_;next; |
|
||||
} |
|
||||
if ($inModel eq "yes") { |
|
||||
$_=~s/^\+\s*/ /;$model.=$_;next; |
|
||||
} |
|
||||
} |
|
||||
close(IF); |
|
||||
$model=~s/\s*=\s*/=/g; |
|
||||
|
|
||||
# |
|
||||
# Set SGP parameters from .model card |
|
||||
# |
|
||||
|
|
||||
$val{"is"}=1.0e-16; |
|
||||
$val{"bf"}=100.0; |
|
||||
$val{"nf"}=1.0; |
|
||||
$val{"vaf"}=0.0; |
|
||||
$val{"ikf"}=0.0; |
|
||||
$val{"ise"}=0.0; |
|
||||
$val{"ne"}=1.5; |
|
||||
$val{"br"}=1.0; |
|
||||
$val{"nr"}=1.0; |
|
||||
$val{"var"}=0.0; |
|
||||
$val{"ikr"}=0.0; |
|
||||
$val{"isc"}=0.0; |
|
||||
$val{"nc"}=2.0; |
|
||||
$val{"rb"}=0.0; |
|
||||
$val{"rbm"}=0.0; |
|
||||
$val{"re"}=0.0; |
|
||||
$val{"rc"}=0.0; |
|
||||
$val{"cje"}=0.0; |
|
||||
$val{"vje"}=0.75; |
|
||||
$val{"mje"}=0.33; |
|
||||
$val{"cjc"}=0.0; |
|
||||
$val{"vjc"}=0.75; |
|
||||
$val{"mjc"}=0.33; |
|
||||
$val{"xcjc"}=1.0; |
|
||||
$val{"cjs"}=0.0; |
|
||||
$val{"vjs"}=0.75; |
|
||||
$val{"mjs"}=0.0; |
|
||||
$val{"fc"}=0.5; |
|
||||
$val{"tf"}=0.0; |
|
||||
$val{"xtf"}=0.0; |
|
||||
$val{"vtf"}=0.0; |
|
||||
$val{"itf"}=0.0; |
|
||||
$val{"ptf"}=0.0; |
|
||||
$val{"tr"}=0.0; |
|
||||
$val{"kf"}=0.0; |
|
||||
$val{"af"}=1.0; |
|
||||
$val{"eg"}=1.11; |
|
||||
$val{"xtb"}=0.0; |
|
||||
$val{"xti"}=3.0; |
|
||||
$alias{"va"}="vaf"; |
|
||||
$alias{"ik"}="ikf"; |
|
||||
$alias{"c2"}="ise"; |
|
||||
$alias{"vb"}="var"; |
|
||||
$alias{"c4"}="isc"; |
|
||||
$alias{"pe"}="vje"; |
|
||||
$alias{"me"}="mje"; |
|
||||
$alias{"pc"}="vjc"; |
|
||||
$alias{"mc"}="mjc"; |
|
||||
$alias{"ccs"}="cjs"; |
|
||||
$alias{"ps"}="vjs"; |
|
||||
$alias{"ms"}="mjs"; |
|
||||
$alias{"pt"}="xti"; |
|
||||
|
|
||||
@Field=split(/\s+/,$model); |
|
||||
$name=$Field[1]; |
|
||||
for ($i=3;$i<=$#Field;++$i) { |
|
||||
die("ERROR: term $Field[$i] is not in name=value format, stopped") |
|
||||
if ($Field[$i] !~ /=/); |
|
||||
($param,$value)=split(/=/,$Field[$i]); |
|
||||
die("ERROR: parameter $param must be a number, stopped") |
|
||||
if ($value !~ /$Number/); |
|
||||
if (defined($alias{$param})) {$param=$alias{$param};} |
|
||||
if ($param eq "irb") { |
|
||||
print STDERR "* WARNING: IRB parameter is not supported in vbic"; |
|
||||
next; |
|
||||
} |
|
||||
if (!defined($val{$param})) { |
|
||||
print STDERR "* WARNING: parameter $param is not supported in vbic"; |
|
||||
next; |
|
||||
} |
|
||||
$val{$param}=$value; |
|
||||
if ($param eq "rbm") {$done{"rbm"}="yes";} |
|
||||
} |
|
||||
if (!defined($done{"rbm"})) {$val{"rbm"}=$val{"rb"};} |
|
||||
if($val{"ise"}>1) {$val{"ise"}=$val{"ise"}*$val{"is"};} |
|
||||
if($val{"isc"}>1) {$val{"isc"}=$val{"isc"}*$val{"is"};} |
|
||||
$Vbcif=$Vbeif-$Vceif; |
|
||||
$Vbeir=$Vbcir-$Vecir; |
|
||||
($qjbef,$cj )=&QCDEPL($Vbeif,$val{"vje"},$val{"mje"},$val{"fc"}); |
|
||||
($qjbcf,$cjbcf)=&QCDEPL($Vbcif,$val{"vjc"},$val{"mjc"},$val{"fc"}); |
|
||||
($qjber,$cjber)=&QCDEPL($Vbeir,$val{"vje"},$val{"mje"},$val{"fc"}); |
|
||||
($qjbcr,$cj )=&QCDEPL($Vbcir,$val{"vjc"},$val{"mjc"},$val{"fc"}); |
|
||||
$ivaf=$val{"vaf"};if($ivaf>0){$ivaf=1/$ivaf;} |
|
||||
$ivar=$val{"var"};if($ivar>0){$ivar=1/$ivar;} |
|
||||
$godIf=$ivaf/(1-$Vbeif*$ivar-$Vbcif*$ivaf); |
|
||||
if($godIf<1e-10) {$godIf=1e-10;} |
|
||||
$godIr=$ivar/(1-$Vbeir*$ivar-$Vbcir*$ivaf); |
|
||||
if($godIr<1e-10) {$godIr=1e-10;} |
|
||||
$a11=$qjbcf-$cjbcf/$godIf; |
|
||||
$a12=$qjbef; |
|
||||
$r1=-1.0; |
|
||||
$a21=$qjbcr; |
|
||||
$a22=$qjber-$cjber/$godIr; |
|
||||
$r2=-1.0; |
|
||||
$det=$a11*$a22-$a12*$a21; |
|
||||
$ivef=($r1*$a22-$r2*$a12)/$det; |
|
||||
$iver=($r2*$a11-$r1*$a21)/$det; |
|
||||
$vef=1/$ivef;$ver=1/$iver; |
|
||||
|
|
||||
print '.model '.$name.' vbic |
|
||||
+ rcx = '.$val{"rc"}.' |
|
||||
+ rci = '."0.0".' |
|
||||
+ rbx = '.$val{"rbm"}.' |
|
||||
+ rbi = '.($val{"rb"}-$val{"rbm"}).' |
|
||||
+ re = '.$val{"re"}.' |
|
||||
+ is = '.$val{"is"}.' |
|
||||
+ nf = '.$val{"nf"}.' |
|
||||
+ nr = '.$val{"nr"}.' |
|
||||
+ fc = '.$val{"fc"}.' |
|
||||
+ cje = '.$val{"cje"}.' |
|
||||
+ pe = '.$val{"vje"}.' |
|
||||
+ me = '.$val{"mje"}.' |
|
||||
+ cjc = '.($val{"cjc"}*$val{"xcjc"}).' |
|
||||
+ cjep = '.($val{"cjc"}*(1.0-$val{"xcjc"})).' |
|
||||
+ pc = '.$val{"vjc"}.' |
|
||||
+ mc = '.$val{"mjc"}.' |
|
||||
+ cjcp = '.$val{"cjs"}.' |
|
||||
+ ps = '.$val{"vjs"}.' |
|
||||
+ ms = '.$val{"mjs"}.' |
|
||||
+ ibei = '.($val{"is"}/$val{"bf"}).' |
|
||||
+ nei = '.$val{"nf"}.' |
|
||||
+ iben = '.$val{"ise"}.' |
|
||||
+ nen = '.$val{"ne"}.' |
|
||||
+ ibci = '.($val{"is"}/$val{"br"}).' |
|
||||
+ nci = '.$val{"nr"}.' |
|
||||
+ ibcn = '.$val{"isc"}.' |
|
||||
+ ncn = '.$val{"nc"}.' |
|
||||
+ vef = '.$vef.' |
|
||||
+ ver = '.$ver.' |
|
||||
+ ikf = '.$val{"ikf"}.' |
|
||||
+ ikr = '.$val{"ikr"}.' |
|
||||
+ tf = '.$val{"tf"}.' |
|
||||
+ xtf = '.$val{"xtf"}.' |
|
||||
+ vtf = '.$val{"vtf"}.' |
|
||||
+ itf = '.$val{"itf"}.' |
|
||||
+ tr = '.$val{"tr"}.' |
|
||||
+ td = '.($val{"tf"}*$val{"ptf"}*$Pi/180.0).' |
|
||||
+ ea = '.$val{"eg"}.' |
|
||||
+ eaie = '.$val{"eg"}.' |
|
||||
+ eaic = '.$val{"eg"}.' |
|
||||
+ eane = '.$val{"eg"}.' |
|
||||
+ eanc = '.$val{"eg"}.' |
|
||||
+ xis = '.$val{"xti"}.' |
|
||||
+ xii = '.($val{"xti"}-$val{"xtb"}).' |
|
||||
+ xin = '.($val{"xti"}-$val{"ne"}*$val{"xtb"}).' |
|
||||
+ kfn = '.$val{"kf"}.' |
|
||||
+ afn = '.$val{"af"}; |
|
||||
|
#!/bin/sh -- # perl |
||||
|
eval 'exec perl -S -x -w $0 ${1+"$@"}' |
||||
|
if 0; |
||||
|
|
||||
|
# |
||||
|
# sgp2vbic: program to convert an SGP .model card to VBIC |
||||
|
# |
||||
|
# Vers Date Who Comments |
||||
|
# ==== ========== ============= ======== |
||||
|
# 2.0 06/01/00 Colin McAndrew translated from shell/nawk version |
||||
|
# |
||||
|
|
||||
|
sub usage() { |
||||
|
print " |
||||
|
$prog: convert SGP .model card to VBIC .model card |
||||
|
|
||||
|
Usage: $prog [options] modelFile |
||||
|
|
||||
|
Files: |
||||
|
modelFile file with SGP .model card |
||||
|
|
||||
|
Options: |
||||
|
-d debug mode |
||||
|
-h print this help message |
||||
|
-i print detailed information |
||||
|
-v verbose mode |
||||
|
-vbeif Vbe do fwd Early voltage map at Vbe ($Vbeif) |
||||
|
-vceif Vce do fwd Early voltage map at Vce ($Vceif) |
||||
|
-vbcir Vbc do rev Early voltage map at Vbc ($Vbcir) |
||||
|
-vecir Vec do rev Early voltage map at Vec ($Vecir) |
||||
|
"; |
||||
|
} # End of: sub usage |
||||
|
|
||||
|
sub info() { |
||||
|
print " |
||||
|
This program maps an SGP .model card into a VBIC .model card. |
||||
|
For many parameters there is a 1-to-1 mapping between the two, |
||||
|
and the default VBIC parameters are such that the model extensions |
||||
|
that are not part of SGP are turned off. |
||||
|
|
||||
|
There are two fundamental and non-mappable differences between |
||||
|
the two models. First, the IRB emitter crowding based resistance |
||||
|
modulation model is not supported in VBIC. This parameter is |
||||
|
ignored. Second, the Early effect model is different, the bias |
||||
|
dependence is substantially better in VBIC than in SGP. This means |
||||
|
the models can be made to match only at specific biases. |
||||
|
These biases can be specified by the -vxxi[fr] flags. |
||||
|
"; |
||||
|
} # End of: sub info |
||||
|
|
||||
|
# |
||||
|
# Set program names and variables. |
||||
|
# |
||||
|
|
||||
|
$\="\n"; |
||||
|
$,=" "; |
||||
|
$Debug=""; |
||||
|
$Verbose=""; |
||||
|
$Number='([+-]?[0-9]+[.]?[0-9]*|[+-]?[0-9]+[.]?[0-9]*[eE][+-]?[0-9]+|[+-]?[.][0-9]+|[+-]?[.][0-9]+[eE][+-]?[0-9]+)'; |
||||
|
@prog=split("/",$0); |
||||
|
$prog=$prog[$#prog]; |
||||
|
$Pi=atan2(0,-1); |
||||
|
$Vbeif=0.6; |
||||
|
$Vceif=2.5; |
||||
|
$Vbcir=0.5; |
||||
|
$Vecir=2.5; |
||||
|
|
||||
|
# |
||||
|
# Parse command line arguments, allow argument |
||||
|
# flags to be any case. |
||||
|
# |
||||
|
|
||||
|
for (;;){ |
||||
|
if ($#ARGV < 0) { |
||||
|
last; |
||||
|
} elsif ($ARGV[0] =~ /^-d/i) { |
||||
|
$Debug="-d";$Verbose="-v"; |
||||
|
} elsif ($ARGV[0] =~ /^-h/i) { |
||||
|
&usage();exit(0); |
||||
|
} elsif ($ARGV[0] =~ /^-i/i) { |
||||
|
&info();exit(0); |
||||
|
} elsif ($ARGV[0] =~ /^-v$/i) { |
||||
|
$Verbose="-v"; |
||||
|
} elsif ($ARGV[0] =~ /^-vbeif$/i) { |
||||
|
shift(@ARGV); |
||||
|
if (!defined($ARGV[0])) { |
||||
|
die("ERROR: no value specified for -vbeif flag, stopped"); |
||||
|
} |
||||
|
$Vbeif=$ARGV[0]; |
||||
|
if ($Vbeif !~ /$Number/) { |
||||
|
die("ERROR: value for -vbeif flag must be a number, stopped"); |
||||
|
} |
||||
|
} elsif ($ARGV[0] =~ /^-vceif$/i) { |
||||
|
shift(@ARGV); |
||||
|
if (!defined($ARGV[0])) { |
||||
|
die("ERROR: no value specified for -vceif flag, stopped"); |
||||
|
} |
||||
|
$Vceif=$ARGV[0]; |
||||
|
if ($Vceif !~ /$Number/) { |
||||
|
die("ERROR: value for -vceif flag must be a number, stopped"); |
||||
|
} |
||||
|
} elsif ($ARGV[0] =~ /^-vbcir$/i) { |
||||
|
shift(@ARGV); |
||||
|
if (!defined($ARGV[0])) { |
||||
|
die("ERROR: no value specified for -vbcir flag, stopped"); |
||||
|
} |
||||
|
$Vbcir=$ARGV[0]; |
||||
|
if ($Vbcir !~ /$Number/) { |
||||
|
die("ERROR: value for -vbcir flag must be a number, stopped"); |
||||
|
} |
||||
|
} elsif ($ARGV[0] =~ /^-vecir$/i) { |
||||
|
shift(@ARGV); |
||||
|
if (!defined($ARGV[0])) { |
||||
|
die("ERROR: no value specified for -vecir flag, stopped"); |
||||
|
} |
||||
|
$Vecir=$ARGV[0]; |
||||
|
if ($Vecir !~ /$Number/) { |
||||
|
die("ERROR: value for -vecir flag must be a number, stopped"); |
||||
|
} |
||||
|
} elsif ($ARGV[0] =~ /^-/) { |
||||
|
&usage(); |
||||
|
die("ERROR: unknown flag $ARGV[0], stopped"); |
||||
|
} else { |
||||
|
last; |
||||
|
} |
||||
|
shift(@ARGV); |
||||
|
} |
||||
|
if ($#ARGV < 0) { |
||||
|
&usage();exit(1); # exit if no file name is specified |
||||
|
} |
||||
|
|
||||
|
$ModelFile=$ARGV[0]; |
||||
|
|
||||
|
sub QCDEPL { |
||||
|
my($vj,$p,$m,$f)=@_; |
||||
|
my($w,$xx,$cj,$qj); |
||||
|
|
||||
|
$w=1.0-$vj/$p; |
||||
|
if($w>=1.0-$f){ |
||||
|
$cj=$w**(-$m); |
||||
|
$qj=$p*(1.0-$w*$cj)/(1.0-$m); |
||||
|
} else { |
||||
|
$xx=(1.0-$f)**(-(1.0+$m)); |
||||
|
$cj=$xx*(1.0-$f*(1.0+$m)+$m*$vj/$p); |
||||
|
$qj=$xx*((1.0-$f*(1.0+$m))*($vj-$f*$p)+0.5*$m*($vj*$vj-$f*$f*$p*$p)/$p)+$p*(1.0-$xx*(1.0-$f)**2)/(1.0-$m); |
||||
|
} |
||||
|
return($qj,$cj); |
||||
|
} |
||||
|
|
||||
|
# |
||||
|
# Parse model file |
||||
|
# |
||||
|
|
||||
|
open(IF,"$ModelFile") || |
||||
|
die("ERROR: cannot open file $ModelFile, stopped"); |
||||
|
$inModel="no"; |
||||
|
while (<IF>) { |
||||
|
chomp;tr/A-Z/a-z/; |
||||
|
if ($_ =~ /^\s*$/) {next;} |
||||
|
if ($_ =~ /^\s*\*/) {next;} |
||||
|
last if ($_ !~ /^\+/ && $inModel eq "yes"); |
||||
|
if ($_ =~ /^\s*\.mod/) { |
||||
|
$inModel="yes";$model=$_;next; |
||||
|
} |
||||
|
if ($inModel eq "yes") { |
||||
|
$_=~s/^\+\s*/ /;$model.=$_;next; |
||||
|
} |
||||
|
} |
||||
|
close(IF); |
||||
|
$model=~s/\s*=\s*/=/g; |
||||
|
|
||||
|
# |
||||
|
# Set SGP parameters from .model card |
||||
|
# |
||||
|
|
||||
|
$val{"is"}=1.0e-16; |
||||
|
$val{"bf"}=100.0; |
||||
|
$val{"nf"}=1.0; |
||||
|
$val{"vaf"}=0.0; |
||||
|
$val{"ikf"}=0.0; |
||||
|
$val{"ise"}=0.0; |
||||
|
$val{"ne"}=1.5; |
||||
|
$val{"br"}=1.0; |
||||
|
$val{"nr"}=1.0; |
||||
|
$val{"var"}=0.0; |
||||
|
$val{"ikr"}=0.0; |
||||
|
$val{"isc"}=0.0; |
||||
|
$val{"nc"}=2.0; |
||||
|
$val{"rb"}=0.0; |
||||
|
$val{"rbm"}=0.0; |
||||
|
$val{"re"}=0.0; |
||||
|
$val{"rc"}=0.0; |
||||
|
$val{"cje"}=0.0; |
||||
|
$val{"vje"}=0.75; |
||||
|
$val{"mje"}=0.33; |
||||
|
$val{"cjc"}=0.0; |
||||
|
$val{"vjc"}=0.75; |
||||
|
$val{"mjc"}=0.33; |
||||
|
$val{"xcjc"}=1.0; |
||||
|
$val{"cjs"}=0.0; |
||||
|
$val{"vjs"}=0.75; |
||||
|
$val{"mjs"}=0.0; |
||||
|
$val{"fc"}=0.5; |
||||
|
$val{"tf"}=0.0; |
||||
|
$val{"xtf"}=0.0; |
||||
|
$val{"vtf"}=0.0; |
||||
|
$val{"itf"}=0.0; |
||||
|
$val{"ptf"}=0.0; |
||||
|
$val{"tr"}=0.0; |
||||
|
$val{"kf"}=0.0; |
||||
|
$val{"af"}=1.0; |
||||
|
$val{"eg"}=1.11; |
||||
|
$val{"xtb"}=0.0; |
||||
|
$val{"xti"}=3.0; |
||||
|
$alias{"va"}="vaf"; |
||||
|
$alias{"ik"}="ikf"; |
||||
|
$alias{"c2"}="ise"; |
||||
|
$alias{"vb"}="var"; |
||||
|
$alias{"c4"}="isc"; |
||||
|
$alias{"pe"}="vje"; |
||||
|
$alias{"me"}="mje"; |
||||
|
$alias{"pc"}="vjc"; |
||||
|
$alias{"mc"}="mjc"; |
||||
|
$alias{"ccs"}="cjs"; |
||||
|
$alias{"ps"}="vjs"; |
||||
|
$alias{"ms"}="mjs"; |
||||
|
$alias{"pt"}="xti"; |
||||
|
|
||||
|
@Field=split(/\s+/,$model); |
||||
|
$name=$Field[1]; |
||||
|
for ($i=3;$i<=$#Field;++$i) { |
||||
|
die("ERROR: term $Field[$i] is not in name=value format, stopped") |
||||
|
if ($Field[$i] !~ /=/); |
||||
|
($param,$value)=split(/=/,$Field[$i]); |
||||
|
die("ERROR: parameter $param must be a number, stopped") |
||||
|
if ($value !~ /$Number/); |
||||
|
if (defined($alias{$param})) {$param=$alias{$param};} |
||||
|
if ($param eq "irb") { |
||||
|
print STDERR "* WARNING: IRB parameter is not supported in vbic"; |
||||
|
next; |
||||
|
} |
||||
|
if (!defined($val{$param})) { |
||||
|
print STDERR "* WARNING: parameter $param is not supported in vbic"; |
||||
|
next; |
||||
|
} |
||||
|
$val{$param}=$value; |
||||
|
if ($param eq "rbm") {$done{"rbm"}="yes";} |
||||
|
} |
||||
|
if (!defined($done{"rbm"})) {$val{"rbm"}=$val{"rb"};} |
||||
|
if($val{"ise"}>1) {$val{"ise"}=$val{"ise"}*$val{"is"};} |
||||
|
if($val{"isc"}>1) {$val{"isc"}=$val{"isc"}*$val{"is"};} |
||||
|
$Vbcif=$Vbeif-$Vceif; |
||||
|
$Vbeir=$Vbcir-$Vecir; |
||||
|
($qjbef,$cj )=&QCDEPL($Vbeif,$val{"vje"},$val{"mje"},$val{"fc"}); |
||||
|
($qjbcf,$cjbcf)=&QCDEPL($Vbcif,$val{"vjc"},$val{"mjc"},$val{"fc"}); |
||||
|
($qjber,$cjber)=&QCDEPL($Vbeir,$val{"vje"},$val{"mje"},$val{"fc"}); |
||||
|
($qjbcr,$cj )=&QCDEPL($Vbcir,$val{"vjc"},$val{"mjc"},$val{"fc"}); |
||||
|
$ivaf=$val{"vaf"};if($ivaf>0){$ivaf=1/$ivaf;} |
||||
|
$ivar=$val{"var"};if($ivar>0){$ivar=1/$ivar;} |
||||
|
$godIf=$ivaf/(1-$Vbeif*$ivar-$Vbcif*$ivaf); |
||||
|
if($godIf<1e-10) {$godIf=1e-10;} |
||||
|
$godIr=$ivar/(1-$Vbeir*$ivar-$Vbcir*$ivaf); |
||||
|
if($godIr<1e-10) {$godIr=1e-10;} |
||||
|
$a11=$qjbcf-$cjbcf/$godIf; |
||||
|
$a12=$qjbef; |
||||
|
$r1=-1.0; |
||||
|
$a21=$qjbcr; |
||||
|
$a22=$qjber-$cjber/$godIr; |
||||
|
$r2=-1.0; |
||||
|
$det=$a11*$a22-$a12*$a21; |
||||
|
$ivef=($r1*$a22-$r2*$a12)/$det; |
||||
|
$iver=($r2*$a11-$r1*$a21)/$det; |
||||
|
$vef=1/$ivef;$ver=1/$iver; |
||||
|
|
||||
|
print '.model '.$name.' vbic |
||||
|
+ rcx = '.$val{"rc"}.' |
||||
|
+ rci = '."0.0".' |
||||
|
+ rbx = '.$val{"rbm"}.' |
||||
|
+ rbi = '.($val{"rb"}-$val{"rbm"}).' |
||||
|
+ re = '.$val{"re"}.' |
||||
|
+ is = '.$val{"is"}.' |
||||
|
+ nf = '.$val{"nf"}.' |
||||
|
+ nr = '.$val{"nr"}.' |
||||
|
+ fc = '.$val{"fc"}.' |
||||
|
+ cje = '.$val{"cje"}.' |
||||
|
+ pe = '.$val{"vje"}.' |
||||
|
+ me = '.$val{"mje"}.' |
||||
|
+ cjc = '.($val{"cjc"}*$val{"xcjc"}).' |
||||
|
+ cjep = '.($val{"cjc"}*(1.0-$val{"xcjc"})).' |
||||
|
+ pc = '.$val{"vjc"}.' |
||||
|
+ mc = '.$val{"mjc"}.' |
||||
|
+ cjcp = '.$val{"cjs"}.' |
||||
|
+ ps = '.$val{"vjs"}.' |
||||
|
+ ms = '.$val{"mjs"}.' |
||||
|
+ ibei = '.($val{"is"}/$val{"bf"}).' |
||||
|
+ nei = '.$val{"nf"}.' |
||||
|
+ iben = '.$val{"ise"}.' |
||||
|
+ nen = '.$val{"ne"}.' |
||||
|
+ ibci = '.($val{"is"}/$val{"br"}).' |
||||
|
+ nci = '.$val{"nr"}.' |
||||
|
+ ibcn = '.$val{"isc"}.' |
||||
|
+ ncn = '.$val{"nc"}.' |
||||
|
+ vef = '.$vef.' |
||||
|
+ ver = '.$ver.' |
||||
|
+ ikf = '.$val{"ikf"}.' |
||||
|
+ ikr = '.$val{"ikr"}.' |
||||
|
+ tf = '.$val{"tf"}.' |
||||
|
+ xtf = '.$val{"xtf"}.' |
||||
|
+ vtf = '.$val{"vtf"}.' |
||||
|
+ itf = '.$val{"itf"}.' |
||||
|
+ tr = '.$val{"tr"}.' |
||||
|
+ td = '.($val{"tf"}*$val{"ptf"}*$Pi/180.0).' |
||||
|
+ ea = '.$val{"eg"}.' |
||||
|
+ eaie = '.$val{"eg"}.' |
||||
|
+ eaic = '.$val{"eg"}.' |
||||
|
+ eane = '.$val{"eg"}.' |
||||
|
+ eanc = '.$val{"eg"}.' |
||||
|
+ xis = '.$val{"xti"}.' |
||||
|
+ xii = '.($val{"xti"}-$val{"xtb"}).' |
||||
|
+ xin = '.($val{"xti"}-$val{"ne"}*$val{"xtb"}).' |
||||
|
+ kfn = '.$val{"kf"}.' |
||||
|
+ afn = '.$val{"af"}; |
||||
@ -1,311 +1,311 @@ |
|||||
#!/bin/sh -- # perl |
|
||||
eval 'exec perl -S -x -w $0 ${1+"$@"}' |
|
||||
if 0; |
|
||||
|
|
||||
# |
|
||||
# vbic2sgp: program to convert a VBIC .model card to SGP |
|
||||
# |
|
||||
# Vers Date Who Comments |
|
||||
# ==== ========== ============= ======== |
|
||||
# 1.0 07/17/00 Colin McAndrew modified sgp2vbic |
|
||||
# |
|
||||
|
|
||||
sub usage() { |
|
||||
print " |
|
||||
$prog: convert VBIC .model card to SGP .model card |
|
||||
|
|
||||
Usage: $prog [options] modelFile |
|
||||
|
|
||||
Files: |
|
||||
modelFile file with VBIC .model card |
|
||||
|
|
||||
Options: |
|
||||
-d debug mode |
|
||||
-h print this help message |
|
||||
-i print detailed information |
|
||||
-v verbose mode |
|
||||
-vbeif Vbe do fwd Early voltage map at Vbe ($Vbeif) |
|
||||
-vceif Vce do fwd Early voltage map at Vce ($Vceif) |
|
||||
-vbcir Vbc do rev Early voltage map at Vbc ($Vbcir) |
|
||||
-vecir Vec do rev Early voltage map at Vec ($Vecir) |
|
||||
"; |
|
||||
} # End of: sub usage |
|
||||
|
|
||||
sub info() { |
|
||||
print " |
|
||||
This program maps a VBIC .model card into an SGP .model card. |
|
||||
For many parameters there is a 1-to-1 mapping between the two, |
|
||||
and the default VBIC parameters are such that the model extensions |
|
||||
that are not part of SGP are turned off. However if the extensions |
|
||||
in VBIC are used, clearly they are not translated into SGP. |
|
||||
|
|
||||
In particular, note that using the separate ideality coefficients |
|
||||
for base current in VBIC will give a model that will NOT translate |
|
||||
into SGP properly. A simple calculation of BF(SGP)=IS(VBIC)/IBEI(VBIC) |
|
||||
is done, that will not be accurate if NEI(VBIC) is not equal to NF(VBIC). |
|
||||
|
|
||||
The Early effect model is different between VBIC and SGP, the bias |
|
||||
dependence is substantially better in VBIC than in SGP. This means |
|
||||
the models can be made to match only at specific biases. |
|
||||
These biases can be specified by the -vxxi[fr] flags. |
|
||||
"; |
|
||||
} # End of: sub info |
|
||||
|
|
||||
# |
|
||||
# Set program names and variables. |
|
||||
# |
|
||||
|
|
||||
$\="\n"; |
|
||||
$,=" "; |
|
||||
$Debug=""; |
|
||||
$Verbose=""; |
|
||||
$Number='([+-]?[0-9]+[.]?[0-9]*|[+-]?[0-9]+[.]?[0-9]*[eE][+-]?[0-9]+|[+-]?[.][0-9]+|[+-]?[.][0-9]+[eE][+-]?[0-9]+)'; |
|
||||
@prog=split("/",$0); |
|
||||
$prog=$prog[$#prog]; |
|
||||
$Pi=atan2(0,-1); |
|
||||
$Vbeif=0.6; |
|
||||
$Vceif=2.5; |
|
||||
$Vbcir=0.5; |
|
||||
$Vecir=2.5; |
|
||||
|
|
||||
# |
|
||||
# Parse command line arguments, allow argument |
|
||||
# flags to be any case. |
|
||||
# |
|
||||
|
|
||||
for (;;){ |
|
||||
if ($#ARGV < 0) { |
|
||||
last; |
|
||||
} elsif ($ARGV[0] =~ /^-d/i) { |
|
||||
$Debug="-d";$Verbose="-v"; |
|
||||
} elsif ($ARGV[0] =~ /^-h/i) { |
|
||||
&usage();exit(0); |
|
||||
} elsif ($ARGV[0] =~ /^-i/i) { |
|
||||
&info();exit(0); |
|
||||
} elsif ($ARGV[0] =~ /^-v$/i) { |
|
||||
$Verbose="-v"; |
|
||||
} elsif ($ARGV[0] =~ /^-vbeif$/i) { |
|
||||
shift(@ARGV); |
|
||||
if (!defined($ARGV[0])) { |
|
||||
die("ERROR: no value specified for -vbeif flag, stopped"); |
|
||||
} |
|
||||
$Vbeif=$ARGV[0]; |
|
||||
if ($Vbeif !~ /$Number/) { |
|
||||
die("ERROR: value for -vbeif flag must be a number, stopped"); |
|
||||
} |
|
||||
} elsif ($ARGV[0] =~ /^-vceif$/i) { |
|
||||
shift(@ARGV); |
|
||||
if (!defined($ARGV[0])) { |
|
||||
die("ERROR: no value specified for -vceif flag, stopped"); |
|
||||
} |
|
||||
$Vceif=$ARGV[0]; |
|
||||
if ($Vceif !~ /$Number/) { |
|
||||
die("ERROR: value for -vceif flag must be a number, stopped"); |
|
||||
} |
|
||||
} elsif ($ARGV[0] =~ /^-vbcir$/i) { |
|
||||
shift(@ARGV); |
|
||||
if (!defined($ARGV[0])) { |
|
||||
die("ERROR: no value specified for -vbcir flag, stopped"); |
|
||||
} |
|
||||
$Vbcir=$ARGV[0]; |
|
||||
if ($Vbcir !~ /$Number/) { |
|
||||
die("ERROR: value for -vbcir flag must be a number, stopped"); |
|
||||
} |
|
||||
} elsif ($ARGV[0] =~ /^-vecir$/i) { |
|
||||
shift(@ARGV); |
|
||||
if (!defined($ARGV[0])) { |
|
||||
die("ERROR: no value specified for -vecir flag, stopped"); |
|
||||
} |
|
||||
$Vecir=$ARGV[0]; |
|
||||
if ($Vecir !~ /$Number/) { |
|
||||
die("ERROR: value for -vecir flag must be a number, stopped"); |
|
||||
} |
|
||||
} elsif ($ARGV[0] =~ /^-/) { |
|
||||
&usage(); |
|
||||
die("ERROR: unknown flag $ARGV[0], stopped"); |
|
||||
} else { |
|
||||
last; |
|
||||
} |
|
||||
shift(@ARGV); |
|
||||
} |
|
||||
if ($#ARGV < 0) { |
|
||||
&usage();exit(1); # exit if no file name is specified |
|
||||
} |
|
||||
|
|
||||
$ModelFile=$ARGV[0]; |
|
||||
|
|
||||
sub QCDEPL { |
|
||||
my($vj,$p,$m,$f)=@_; |
|
||||
my($w,$xx,$cj,$qj); |
|
||||
|
|
||||
$w=1.0-$vj/$p; |
|
||||
if($w>=1.0-$f){ |
|
||||
$cj=$w**(-$m); |
|
||||
$qj=$p*(1.0-$w*$cj)/(1.0-$m); |
|
||||
} else { |
|
||||
$xx=(1.0-$f)**(-(1.0+$m)); |
|
||||
$cj=$xx*(1.0-$f*(1.0+$m)+$m*$vj/$p); |
|
||||
$qj=$xx*((1.0-$f*(1.0+$m))*($vj-$f*$p)+0.5*$m*($vj*$vj-$f*$f*$p*$p)/$p)+$p*(1.0-$xx*(1.0-$f)**2)/(1.0-$m); |
|
||||
} |
|
||||
return($qj,$cj); |
|
||||
} |
|
||||
|
|
||||
# |
|
||||
# Parse model file |
|
||||
# |
|
||||
|
|
||||
open(IF,"$ModelFile") || |
|
||||
die("ERROR: cannot open file $ModelFile, stopped"); |
|
||||
$inModel="no"; |
|
||||
while (<IF>) { |
|
||||
chomp;tr/A-Z/a-z/; |
|
||||
if ($_ =~ /^\s*$/) {next;} |
|
||||
if ($_ =~ /^\s*\*/) {next;} |
|
||||
last if ($_ !~ /^\+/ && $inModel eq "yes"); |
|
||||
if ($_ =~ /^\s*\.mod/) { |
|
||||
$inModel="yes";$model=$_;next; |
|
||||
} |
|
||||
if ($inModel eq "yes") { |
|
||||
$_=~s/^\+\s*/ /;$model.=$_;next; |
|
||||
} |
|
||||
} |
|
||||
close(IF); |
|
||||
$model=~s/\s*=\s*/=/g; |
|
||||
|
|
||||
# |
|
||||
# Set VBIC parameters from .model card |
|
||||
# |
|
||||
|
|
||||
$val{"is"}=1.0e-16; |
|
||||
$val{"nf"}=1.0; |
|
||||
$val{"nr"}=1.0; |
|
||||
$val{"ibei"}=1.0e-18; |
|
||||
$val{"nei"}=1.0; |
|
||||
$val{"vef"}=0.0; |
|
||||
$val{"ikf"}=0.0; |
|
||||
$val{"iben"}=0.0; |
|
||||
$val{"nen"}=1.5; |
|
||||
$val{"ibci"}=1.0e-16; |
|
||||
$val{"nci"}=1.0; |
|
||||
$val{"ver"}=0.0; |
|
||||
$val{"ikr"}=0.0; |
|
||||
$val{"ibcn"}=0.0; |
|
||||
$val{"ncn"}=2.0; |
|
||||
$val{"rbx"}=0.0; |
|
||||
$val{"rbi"}=0.0; |
|
||||
$val{"re"}=0.0; |
|
||||
$val{"rcx"}=0.0; |
|
||||
$val{"rci"}=0.0; |
|
||||
$val{"cje"}=0.0; |
|
||||
$val{"vje"}=0.75; |
|
||||
$val{"mje"}=0.33; |
|
||||
$val{"fc"}=0.9; |
|
||||
$val{"cjc"}=0.0; |
|
||||
$val{"cjep"}=0.0; |
|
||||
$val{"vjc"}=0.75; |
|
||||
$val{"mjc"}=0.33; |
|
||||
$val{"cjcp"}=0.0; |
|
||||
$val{"vjs"}=0.75; |
|
||||
$val{"mjs"}=0.0; |
|
||||
$val{"tf"}=0.0; |
|
||||
$val{"xtf"}=0.0; |
|
||||
$val{"vtf"}=0.0; |
|
||||
$val{"itf"}=0.0; |
|
||||
$val{"tr"}=0.0; |
|
||||
$val{"td"}=0.0; |
|
||||
$val{"kfn"}=0.0; |
|
||||
$val{"afn"}=1.0; |
|
||||
$val{"ea"}=1.12; |
|
||||
$val{"eaie"}=1.12; |
|
||||
$val{"eaic"}=1.12; |
|
||||
$val{"eane"}=1.12; |
|
||||
$val{"eanc"}=1.12; |
|
||||
$val{"xis"}=3; |
|
||||
$val{"xii"}=3; |
|
||||
$val{"xin"}=3; |
|
||||
$alias{"ik"}="ikf"; |
|
||||
$alias{"pe"}="vje"; |
|
||||
$alias{"me"}="mje"; |
|
||||
$alias{"pc"}="vjc"; |
|
||||
$alias{"mc"}="mjc"; |
|
||||
$alias{"ps"}="vjs"; |
|
||||
$alias{"ms"}="mjs"; |
|
||||
|
|
||||
@Field=split(/\s+/,$model); |
|
||||
$name=$Field[1]; |
|
||||
for ($i=3;$i<=$#Field;++$i) { |
|
||||
die("ERROR: term $Field[$i] is not in name=value format, stopped") |
|
||||
if ($Field[$i] !~ /=/); |
|
||||
($param,$value)=split(/=/,$Field[$i]); |
|
||||
die("ERROR: parameter $param must be a number, stopped") |
|
||||
if ($value !~ /$Number/); |
|
||||
if (defined($alias{$param})) {$param=$alias{$param};} |
|
||||
if (!defined($val{$param})) { |
|
||||
print STDERR "* WARNING: parameter $param is not supported in sgp"; |
|
||||
next; |
|
||||
} |
|
||||
$val{$param}=$value; |
|
||||
} |
|
||||
$Vbcif=$Vbeif-$Vceif; |
|
||||
$Vbeir=$Vbcir-$Vecir; |
|
||||
($qjbef,$cj )=&QCDEPL($Vbeif,$val{"vje"},$val{"mje"},$val{"fc"}); |
|
||||
($qjbcf,$cjbcf)=&QCDEPL($Vbcif,$val{"vjc"},$val{"mjc"},$val{"fc"}); |
|
||||
($qjber,$cjber)=&QCDEPL($Vbeir,$val{"vje"},$val{"mje"},$val{"fc"}); |
|
||||
($qjbcr,$cj )=&QCDEPL($Vbcir,$val{"vjc"},$val{"mjc"},$val{"fc"}); |
|
||||
$ivef=$val{"vef"};if($ivef>0){$ivef=1/$ivef;} |
|
||||
$iver=$val{"ver"};if($iver>0){$iver=1/$iver;} |
|
||||
$godIf=$cjbcf*$ivef/(1+$qjbef*$iver+$qjbcf*$ivef); |
|
||||
if($godIf<1e-10) {$godIf=1e-10;} |
|
||||
$godIr=$cjber*$iver/(1+$qjber*$iver+$qjbcr*$ivef); |
|
||||
if($godIr<1e-10) {$godIr=1e-10;} |
|
||||
$a11=-$Vbcif-1.0/$godIf; |
|
||||
$a12=-$Vbeif; |
|
||||
$r1 =-1.0; |
|
||||
$a21=-$Vbcir; |
|
||||
$a22=-$Vbeir-1.0/$godIr; |
|
||||
$r2 =-1.0; |
|
||||
$det=$a11*$a22-$a12*$a21; |
|
||||
$ivaf=($r1*$a22-$r2*$a12)/$det; |
|
||||
$ivar=($r2*$a11-$r1*$a21)/$det; |
|
||||
$vaf=1/$ivaf;$var=1/$ivar; |
|
||||
|
|
||||
print '.model '.$name.' sgp |
|
||||
+ rc = '.($val{"rcx"}+$val{"rci"}).' |
|
||||
+ rbm = '.$val{"rbx"}.' |
|
||||
+ rb = '.($val{"rbx"}+$val{"rbi"}).' |
|
||||
+ re = '.$val{"re"}.' |
|
||||
+ is = '.$val{"is"}.' |
|
||||
+ nf = '.$val{"nf"}.' |
|
||||
+ nr = '.$val{"nr"}.' |
|
||||
+ fc = '.$val{"fc"}.' |
|
||||
+ cje = '.$val{"cje"}.' |
|
||||
+ vje = '.$val{"vje"}.' |
|
||||
+ mje = '.$val{"mje"}.' |
|
||||
+ cjc = '.($val{"cjc"}+$val{"cjep"}).' |
|
||||
+ xcjc = '.($val{"cjc"}/($val{"cjc"}+$val{"cjep"})).' |
|
||||
+ pjc = '.$val{"vjc"}.' |
|
||||
+ mjc = '.$val{"mjc"}.' |
|
||||
+ cjs = '.$val{"cjcp"}.' |
|
||||
+ pjs = '.$val{"vjs"}.' |
|
||||
+ mjs = '.$val{"mjs"}.' |
|
||||
+ bf = '.($val{"is"}/$val{"ibei"}).' |
|
||||
+ ise = '.$val{"iben"}.' |
|
||||
+ ne = '.$val{"nen"}.' |
|
||||
+ br = '.($val{"is"}/$val{"ibci"}).' |
|
||||
+ isc = '.$val{"ibcn"}.' |
|
||||
+ nc = '.$val{"ncn"}.' |
|
||||
+ vaf = '.$vaf.' |
|
||||
+ var = '.$var.' |
|
||||
+ ikf = '.$val{"ikf"}.' |
|
||||
+ ikr = '.$val{"ikr"}.' |
|
||||
+ tf = '.$val{"tf"}.' |
|
||||
+ xtf = '.$val{"xtf"}.' |
|
||||
+ vtf = '.$val{"vtf"}.' |
|
||||
+ itf = '.$val{"itf"}.' |
|
||||
+ tr = '.$val{"tr"}.' |
|
||||
+ ptf = '.($val{"td"}*180.0/($val{"tf"}*$Pi)).' |
|
||||
+ eg = '.$val{"ea"}.' |
|
||||
+ xti = '.$val{"xis"}.' |
|
||||
+ xtb = '.($val{"xis"}-$val{"xii"}).' |
|
||||
+ kf = '.$val{"kfn"}.' |
|
||||
+ af = '.$val{"afn"}; |
|
||||
|
#!/bin/sh -- # perl |
||||
|
eval 'exec perl -S -x -w $0 ${1+"$@"}' |
||||
|
if 0; |
||||
|
|
||||
|
# |
||||
|
# vbic2sgp: program to convert a VBIC .model card to SGP |
||||
|
# |
||||
|
# Vers Date Who Comments |
||||
|
# ==== ========== ============= ======== |
||||
|
# 1.0 07/17/00 Colin McAndrew modified sgp2vbic |
||||
|
# |
||||
|
|
||||
|
sub usage() { |
||||
|
print " |
||||
|
$prog: convert VBIC .model card to SGP .model card |
||||
|
|
||||
|
Usage: $prog [options] modelFile |
||||
|
|
||||
|
Files: |
||||
|
modelFile file with VBIC .model card |
||||
|
|
||||
|
Options: |
||||
|
-d debug mode |
||||
|
-h print this help message |
||||
|
-i print detailed information |
||||
|
-v verbose mode |
||||
|
-vbeif Vbe do fwd Early voltage map at Vbe ($Vbeif) |
||||
|
-vceif Vce do fwd Early voltage map at Vce ($Vceif) |
||||
|
-vbcir Vbc do rev Early voltage map at Vbc ($Vbcir) |
||||
|
-vecir Vec do rev Early voltage map at Vec ($Vecir) |
||||
|
"; |
||||
|
} # End of: sub usage |
||||
|
|
||||
|
sub info() { |
||||
|
print " |
||||
|
This program maps a VBIC .model card into an SGP .model card. |
||||
|
For many parameters there is a 1-to-1 mapping between the two, |
||||
|
and the default VBIC parameters are such that the model extensions |
||||
|
that are not part of SGP are turned off. However if the extensions |
||||
|
in VBIC are used, clearly they are not translated into SGP. |
||||
|
|
||||
|
In particular, note that using the separate ideality coefficients |
||||
|
for base current in VBIC will give a model that will NOT translate |
||||
|
into SGP properly. A simple calculation of BF(SGP)=IS(VBIC)/IBEI(VBIC) |
||||
|
is done, that will not be accurate if NEI(VBIC) is not equal to NF(VBIC). |
||||
|
|
||||
|
The Early effect model is different between VBIC and SGP, the bias |
||||
|
dependence is substantially better in VBIC than in SGP. This means |
||||
|
the models can be made to match only at specific biases. |
||||
|
These biases can be specified by the -vxxi[fr] flags. |
||||
|
"; |
||||
|
} # End of: sub info |
||||
|
|
||||
|
# |
||||
|
# Set program names and variables. |
||||
|
# |
||||
|
|
||||
|
$\="\n"; |
||||
|
$,=" "; |
||||
|
$Debug=""; |
||||
|
$Verbose=""; |
||||
|
$Number='([+-]?[0-9]+[.]?[0-9]*|[+-]?[0-9]+[.]?[0-9]*[eE][+-]?[0-9]+|[+-]?[.][0-9]+|[+-]?[.][0-9]+[eE][+-]?[0-9]+)'; |
||||
|
@prog=split("/",$0); |
||||
|
$prog=$prog[$#prog]; |
||||
|
$Pi=atan2(0,-1); |
||||
|
$Vbeif=0.6; |
||||
|
$Vceif=2.5; |
||||
|
$Vbcir=0.5; |
||||
|
$Vecir=2.5; |
||||
|
|
||||
|
# |
||||
|
# Parse command line arguments, allow argument |
||||
|
# flags to be any case. |
||||
|
# |
||||
|
|
||||
|
for (;;){ |
||||
|
if ($#ARGV < 0) { |
||||
|
last; |
||||
|
} elsif ($ARGV[0] =~ /^-d/i) { |
||||
|
$Debug="-d";$Verbose="-v"; |
||||
|
} elsif ($ARGV[0] =~ /^-h/i) { |
||||
|
&usage();exit(0); |
||||
|
} elsif ($ARGV[0] =~ /^-i/i) { |
||||
|
&info();exit(0); |
||||
|
} elsif ($ARGV[0] =~ /^-v$/i) { |
||||
|
$Verbose="-v"; |
||||
|
} elsif ($ARGV[0] =~ /^-vbeif$/i) { |
||||
|
shift(@ARGV); |
||||
|
if (!defined($ARGV[0])) { |
||||
|
die("ERROR: no value specified for -vbeif flag, stopped"); |
||||
|
} |
||||
|
$Vbeif=$ARGV[0]; |
||||
|
if ($Vbeif !~ /$Number/) { |
||||
|
die("ERROR: value for -vbeif flag must be a number, stopped"); |
||||
|
} |
||||
|
} elsif ($ARGV[0] =~ /^-vceif$/i) { |
||||
|
shift(@ARGV); |
||||
|
if (!defined($ARGV[0])) { |
||||
|
die("ERROR: no value specified for -vceif flag, stopped"); |
||||
|
} |
||||
|
$Vceif=$ARGV[0]; |
||||
|
if ($Vceif !~ /$Number/) { |
||||
|
die("ERROR: value for -vceif flag must be a number, stopped"); |
||||
|
} |
||||
|
} elsif ($ARGV[0] =~ /^-vbcir$/i) { |
||||
|
shift(@ARGV); |
||||
|
if (!defined($ARGV[0])) { |
||||
|
die("ERROR: no value specified for -vbcir flag, stopped"); |
||||
|
} |
||||
|
$Vbcir=$ARGV[0]; |
||||
|
if ($Vbcir !~ /$Number/) { |
||||
|
die("ERROR: value for -vbcir flag must be a number, stopped"); |
||||
|
} |
||||
|
} elsif ($ARGV[0] =~ /^-vecir$/i) { |
||||
|
shift(@ARGV); |
||||
|
if (!defined($ARGV[0])) { |
||||
|
die("ERROR: no value specified for -vecir flag, stopped"); |
||||
|
} |
||||
|
$Vecir=$ARGV[0]; |
||||
|
if ($Vecir !~ /$Number/) { |
||||
|
die("ERROR: value for -vecir flag must be a number, stopped"); |
||||
|
} |
||||
|
} elsif ($ARGV[0] =~ /^-/) { |
||||
|
&usage(); |
||||
|
die("ERROR: unknown flag $ARGV[0], stopped"); |
||||
|
} else { |
||||
|
last; |
||||
|
} |
||||
|
shift(@ARGV); |
||||
|
} |
||||
|
if ($#ARGV < 0) { |
||||
|
&usage();exit(1); # exit if no file name is specified |
||||
|
} |
||||
|
|
||||
|
$ModelFile=$ARGV[0]; |
||||
|
|
||||
|
sub QCDEPL { |
||||
|
my($vj,$p,$m,$f)=@_; |
||||
|
my($w,$xx,$cj,$qj); |
||||
|
|
||||
|
$w=1.0-$vj/$p; |
||||
|
if($w>=1.0-$f){ |
||||
|
$cj=$w**(-$m); |
||||
|
$qj=$p*(1.0-$w*$cj)/(1.0-$m); |
||||
|
} else { |
||||
|
$xx=(1.0-$f)**(-(1.0+$m)); |
||||
|
$cj=$xx*(1.0-$f*(1.0+$m)+$m*$vj/$p); |
||||
|
$qj=$xx*((1.0-$f*(1.0+$m))*($vj-$f*$p)+0.5*$m*($vj*$vj-$f*$f*$p*$p)/$p)+$p*(1.0-$xx*(1.0-$f)**2)/(1.0-$m); |
||||
|
} |
||||
|
return($qj,$cj); |
||||
|
} |
||||
|
|
||||
|
# |
||||
|
# Parse model file |
||||
|
# |
||||
|
|
||||
|
open(IF,"$ModelFile") || |
||||
|
die("ERROR: cannot open file $ModelFile, stopped"); |
||||
|
$inModel="no"; |
||||
|
while (<IF>) { |
||||
|
chomp;tr/A-Z/a-z/; |
||||
|
if ($_ =~ /^\s*$/) {next;} |
||||
|
if ($_ =~ /^\s*\*/) {next;} |
||||
|
last if ($_ !~ /^\+/ && $inModel eq "yes"); |
||||
|
if ($_ =~ /^\s*\.mod/) { |
||||
|
$inModel="yes";$model=$_;next; |
||||
|
} |
||||
|
if ($inModel eq "yes") { |
||||
|
$_=~s/^\+\s*/ /;$model.=$_;next; |
||||
|
} |
||||
|
} |
||||
|
close(IF); |
||||
|
$model=~s/\s*=\s*/=/g; |
||||
|
|
||||
|
# |
||||
|
# Set VBIC parameters from .model card |
||||
|
# |
||||
|
|
||||
|
$val{"is"}=1.0e-16; |
||||
|
$val{"nf"}=1.0; |
||||
|
$val{"nr"}=1.0; |
||||
|
$val{"ibei"}=1.0e-18; |
||||
|
$val{"nei"}=1.0; |
||||
|
$val{"vef"}=0.0; |
||||
|
$val{"ikf"}=0.0; |
||||
|
$val{"iben"}=0.0; |
||||
|
$val{"nen"}=1.5; |
||||
|
$val{"ibci"}=1.0e-16; |
||||
|
$val{"nci"}=1.0; |
||||
|
$val{"ver"}=0.0; |
||||
|
$val{"ikr"}=0.0; |
||||
|
$val{"ibcn"}=0.0; |
||||
|
$val{"ncn"}=2.0; |
||||
|
$val{"rbx"}=0.0; |
||||
|
$val{"rbi"}=0.0; |
||||
|
$val{"re"}=0.0; |
||||
|
$val{"rcx"}=0.0; |
||||
|
$val{"rci"}=0.0; |
||||
|
$val{"cje"}=0.0; |
||||
|
$val{"vje"}=0.75; |
||||
|
$val{"mje"}=0.33; |
||||
|
$val{"fc"}=0.9; |
||||
|
$val{"cjc"}=0.0; |
||||
|
$val{"cjep"}=0.0; |
||||
|
$val{"vjc"}=0.75; |
||||
|
$val{"mjc"}=0.33; |
||||
|
$val{"cjcp"}=0.0; |
||||
|
$val{"vjs"}=0.75; |
||||
|
$val{"mjs"}=0.0; |
||||
|
$val{"tf"}=0.0; |
||||
|
$val{"xtf"}=0.0; |
||||
|
$val{"vtf"}=0.0; |
||||
|
$val{"itf"}=0.0; |
||||
|
$val{"tr"}=0.0; |
||||
|
$val{"td"}=0.0; |
||||
|
$val{"kfn"}=0.0; |
||||
|
$val{"afn"}=1.0; |
||||
|
$val{"ea"}=1.12; |
||||
|
$val{"eaie"}=1.12; |
||||
|
$val{"eaic"}=1.12; |
||||
|
$val{"eane"}=1.12; |
||||
|
$val{"eanc"}=1.12; |
||||
|
$val{"xis"}=3; |
||||
|
$val{"xii"}=3; |
||||
|
$val{"xin"}=3; |
||||
|
$alias{"ik"}="ikf"; |
||||
|
$alias{"pe"}="vje"; |
||||
|
$alias{"me"}="mje"; |
||||
|
$alias{"pc"}="vjc"; |
||||
|
$alias{"mc"}="mjc"; |
||||
|
$alias{"ps"}="vjs"; |
||||
|
$alias{"ms"}="mjs"; |
||||
|
|
||||
|
@Field=split(/\s+/,$model); |
||||
|
$name=$Field[1]; |
||||
|
for ($i=3;$i<=$#Field;++$i) { |
||||
|
die("ERROR: term $Field[$i] is not in name=value format, stopped") |
||||
|
if ($Field[$i] !~ /=/); |
||||
|
($param,$value)=split(/=/,$Field[$i]); |
||||
|
die("ERROR: parameter $param must be a number, stopped") |
||||
|
if ($value !~ /$Number/); |
||||
|
if (defined($alias{$param})) {$param=$alias{$param};} |
||||
|
if (!defined($val{$param})) { |
||||
|
print STDERR "* WARNING: parameter $param is not supported in sgp"; |
||||
|
next; |
||||
|
} |
||||
|
$val{$param}=$value; |
||||
|
} |
||||
|
$Vbcif=$Vbeif-$Vceif; |
||||
|
$Vbeir=$Vbcir-$Vecir; |
||||
|
($qjbef,$cj )=&QCDEPL($Vbeif,$val{"vje"},$val{"mje"},$val{"fc"}); |
||||
|
($qjbcf,$cjbcf)=&QCDEPL($Vbcif,$val{"vjc"},$val{"mjc"},$val{"fc"}); |
||||
|
($qjber,$cjber)=&QCDEPL($Vbeir,$val{"vje"},$val{"mje"},$val{"fc"}); |
||||
|
($qjbcr,$cj )=&QCDEPL($Vbcir,$val{"vjc"},$val{"mjc"},$val{"fc"}); |
||||
|
$ivef=$val{"vef"};if($ivef>0){$ivef=1/$ivef;} |
||||
|
$iver=$val{"ver"};if($iver>0){$iver=1/$iver;} |
||||
|
$godIf=$cjbcf*$ivef/(1+$qjbef*$iver+$qjbcf*$ivef); |
||||
|
if($godIf<1e-10) {$godIf=1e-10;} |
||||
|
$godIr=$cjber*$iver/(1+$qjber*$iver+$qjbcr*$ivef); |
||||
|
if($godIr<1e-10) {$godIr=1e-10;} |
||||
|
$a11=-$Vbcif-1.0/$godIf; |
||||
|
$a12=-$Vbeif; |
||||
|
$r1 =-1.0; |
||||
|
$a21=-$Vbcir; |
||||
|
$a22=-$Vbeir-1.0/$godIr; |
||||
|
$r2 =-1.0; |
||||
|
$det=$a11*$a22-$a12*$a21; |
||||
|
$ivaf=($r1*$a22-$r2*$a12)/$det; |
||||
|
$ivar=($r2*$a11-$r1*$a21)/$det; |
||||
|
$vaf=1/$ivaf;$var=1/$ivar; |
||||
|
|
||||
|
print '.model '.$name.' sgp |
||||
|
+ rc = '.($val{"rcx"}+$val{"rci"}).' |
||||
|
+ rbm = '.$val{"rbx"}.' |
||||
|
+ rb = '.($val{"rbx"}+$val{"rbi"}).' |
||||
|
+ re = '.$val{"re"}.' |
||||
|
+ is = '.$val{"is"}.' |
||||
|
+ nf = '.$val{"nf"}.' |
||||
|
+ nr = '.$val{"nr"}.' |
||||
|
+ fc = '.$val{"fc"}.' |
||||
|
+ cje = '.$val{"cje"}.' |
||||
|
+ vje = '.$val{"vje"}.' |
||||
|
+ mje = '.$val{"mje"}.' |
||||
|
+ cjc = '.($val{"cjc"}+$val{"cjep"}).' |
||||
|
+ xcjc = '.($val{"cjc"}/($val{"cjc"}+$val{"cjep"})).' |
||||
|
+ pjc = '.$val{"vjc"}.' |
||||
|
+ mjc = '.$val{"mjc"}.' |
||||
|
+ cjs = '.$val{"cjcp"}.' |
||||
|
+ pjs = '.$val{"vjs"}.' |
||||
|
+ mjs = '.$val{"mjs"}.' |
||||
|
+ bf = '.($val{"is"}/$val{"ibei"}).' |
||||
|
+ ise = '.$val{"iben"}.' |
||||
|
+ ne = '.$val{"nen"}.' |
||||
|
+ br = '.($val{"is"}/$val{"ibci"}).' |
||||
|
+ isc = '.$val{"ibcn"}.' |
||||
|
+ nc = '.$val{"ncn"}.' |
||||
|
+ vaf = '.$vaf.' |
||||
|
+ var = '.$var.' |
||||
|
+ ikf = '.$val{"ikf"}.' |
||||
|
+ ikr = '.$val{"ikr"}.' |
||||
|
+ tf = '.$val{"tf"}.' |
||||
|
+ xtf = '.$val{"xtf"}.' |
||||
|
+ vtf = '.$val{"vtf"}.' |
||||
|
+ itf = '.$val{"itf"}.' |
||||
|
+ tr = '.$val{"tr"}.' |
||||
|
+ ptf = '.($val{"td"}*180.0/($val{"tf"}*$Pi)).' |
||||
|
+ eg = '.$val{"ea"}.' |
||||
|
+ xti = '.$val{"xis"}.' |
||||
|
+ xtb = '.($val{"xis"}-$val{"xii"}).' |
||||
|
+ kf = '.$val{"kfn"}.' |
||||
|
+ af = '.$val{"afn"}; |
||||
@ -1,40 +1,38 @@ |
|||||
# $Id$
|
|
||||
#
|
|
||||
# Makefile for Code Model directories
|
|
||||
#
|
|
||||
|
|
||||
# Include global XSPICE selections for CC and other macros
|
|
||||
include /usr/local/xspice-1-0/include/make.include |
|
||||
|
|
||||
INCLUDE = -I. -I$(ROOT)/include/sim |
|
||||
|
|
||||
CFLAGS = -g |
|
||||
|
|
||||
#-----------------------------------------------------------------------------
|
|
||||
# Edit the following definition to specify the object files that comprise
|
|
||||
# your code model. If your code model is completely specified in the
|
|
||||
# cfunc.mod file, there is no need to edit this definition.
|
|
||||
# DO NOT include the ifspec.o file.
|
|
||||
|
|
||||
CODE_MODEL_OBJECTS = cfunc.o |
|
||||
|
|
||||
#-----------------------------------------------------------------------------
|
|
||||
# DO NOT MODIFY THE FOLLOWING DEFINITIONS:
|
|
||||
|
|
||||
.SUFFIXES: $(SUFFIXES) .mod .ifs |
|
||||
|
|
||||
.mod.c: |
|
||||
$(BINDIR)/cmpp -mod $< |
|
||||
|
|
||||
.ifs.c: |
|
||||
$(BINDIR)/cmpp -ifs |
|
||||
|
|
||||
.c.o: $*.c |
|
||||
${CC} ${CFLAGS} ${INCLUDE} -c $*.c |
|
||||
|
|
||||
all : ifspec.o $(CODE_MODEL_OBJECTS) |
|
||||
|
|
||||
cfunc.o : cfunc.c |
|
||||
ifspec.o : ifspec.c |
|
||||
|
|
||||
|
|
||||
|
# $Id$
|
||||
|
#
|
||||
|
# Makefile for Code Model directories
|
||||
|
#
|
||||
|
|
||||
|
# Include global XSPICE selections for CC and other macros
|
||||
|
include /usr/local/xspice-1-0/include/make.include |
||||
|
|
||||
|
INCLUDE = -I. -I$(ROOT)/include/sim |
||||
|
|
||||
|
CFLAGS = -g |
||||
|
|
||||
|
#-----------------------------------------------------------------------------
|
||||
|
# Edit the following definition to specify the object files that comprise
|
||||
|
# your code model. If your code model is completely specified in the
|
||||
|
# cfunc.mod file, there is no need to edit this definition.
|
||||
|
# DO NOT include the ifspec.o file.
|
||||
|
|
||||
|
CODE_MODEL_OBJECTS = cfunc.o |
||||
|
|
||||
|
#-----------------------------------------------------------------------------
|
||||
|
# DO NOT MODIFY THE FOLLOWING DEFINITIONS:
|
||||
|
|
||||
|
.SUFFIXES: $(SUFFIXES) .mod .ifs |
||||
|
|
||||
|
.mod.c: |
||||
|
$(BINDIR)/cmpp -mod $< |
||||
|
|
||||
|
.ifs.c: |
||||
|
$(BINDIR)/cmpp -ifs |
||||
|
|
||||
|
.c.o: $*.c |
||||
|
${CC} ${CFLAGS} ${INCLUDE} -c $*.c |
||||
|
|
||||
|
all : ifspec.o $(CODE_MODEL_OBJECTS) |
||||
|
|
||||
|
cfunc.o : cfunc.c |
||||
|
ifspec.o : ifspec.c |
||||
@ -1,43 +1,39 @@ |
|||||
/* $Id$ */ |
|
||||
|
|
||||
void ucm_d_to_real (ARGS) |
|
||||
{ |
|
||||
|
|
||||
Digital_State_t in; |
|
||||
|
|
||||
double *out; |
|
||||
double delay; |
|
||||
double zero; |
|
||||
double one; |
|
||||
double ena; |
|
||||
|
|
||||
|
|
||||
in = INPUT_STATE(in); |
|
||||
if(PORT_NULL(enable)) |
|
||||
ena = 1.0; |
|
||||
else if(INPUT_STATE(enable) == ONE) |
|
||||
ena = 1.0; |
|
||||
else |
|
||||
ena = 0.0; |
|
||||
out = OUTPUT(out); |
|
||||
|
|
||||
zero = PARAM(zero); |
|
||||
one = PARAM(one); |
|
||||
delay = PARAM(delay); |
|
||||
|
|
||||
|
|
||||
if(in == ZERO) |
|
||||
*out = zero * ena; |
|
||||
else if(in == UNKNOWN) |
|
||||
*out = (zero + one) / 2.0 * ena; |
|
||||
else |
|
||||
*out = one * ena; |
|
||||
|
|
||||
if(TIME > 0.0) |
|
||||
OUTPUT_DELAY(out) = delay; |
|
||||
|
|
||||
} |
|
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
/* $Id$ */ |
||||
|
|
||||
|
void ucm_d_to_real (ARGS) |
||||
|
{ |
||||
|
|
||||
|
Digital_State_t in; |
||||
|
|
||||
|
double *out; |
||||
|
double delay; |
||||
|
double zero; |
||||
|
double one; |
||||
|
double ena; |
||||
|
|
||||
|
|
||||
|
in = INPUT_STATE(in); |
||||
|
if(PORT_NULL(enable)) |
||||
|
ena = 1.0; |
||||
|
else if(INPUT_STATE(enable) == ONE) |
||||
|
ena = 1.0; |
||||
|
else |
||||
|
ena = 0.0; |
||||
|
out = OUTPUT(out); |
||||
|
|
||||
|
zero = PARAM(zero); |
||||
|
one = PARAM(one); |
||||
|
delay = PARAM(delay); |
||||
|
|
||||
|
|
||||
|
if(in == ZERO) |
||||
|
*out = zero * ena; |
||||
|
else if(in == UNKNOWN) |
||||
|
*out = (zero + one) / 2.0 * ena; |
||||
|
else |
||||
|
*out = one * ena; |
||||
|
|
||||
|
if(TIME > 0.0) |
||||
|
OUTPUT_DELAY(out) = delay; |
||||
|
|
||||
|
} |
||||
@ -1,32 +1,32 @@ |
|||||
/* $Id$ */ |
|
||||
|
|
||||
NAME_TABLE: |
|
||||
|
|
||||
Spice_Model_Name: d_to_real |
|
||||
C_Function_Name: ucm_d_to_real |
|
||||
Description: "Node bridge from digital to real with enable" |
|
||||
|
|
||||
|
|
||||
PORT_TABLE: |
|
||||
|
|
||||
Port_Name: in enable out |
|
||||
Description: "input" "enable" "output" |
|
||||
Direction: in in out |
|
||||
Default_Type: d d real |
|
||||
Allowed_Types: [d] [d] [real] |
|
||||
Vector: no no no |
|
||||
Vector_Bounds: - - - |
|
||||
Null_Allowed: no yes no |
|
||||
|
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: zero one delay |
|
||||
Description: "value for 0" "value for 1" "delay" |
|
||||
Data_Type: real real real |
|
||||
Default_Value: 0.0 1.0 1e-9 |
|
||||
Limits: - - [1e-15 -] |
|
||||
Vector: no no no |
|
||||
Vector_Bounds: - - - |
|
||||
Null_Allowed: yes yes yes |
|
||||
|
|
||||
|
/* $Id$ */ |
||||
|
|
||||
|
NAME_TABLE: |
||||
|
|
||||
|
Spice_Model_Name: d_to_real |
||||
|
C_Function_Name: ucm_d_to_real |
||||
|
Description: "Node bridge from digital to real with enable" |
||||
|
|
||||
|
|
||||
|
PORT_TABLE: |
||||
|
|
||||
|
Port_Name: in enable out |
||||
|
Description: "input" "enable" "output" |
||||
|
Direction: in in out |
||||
|
Default_Type: d d real |
||||
|
Allowed_Types: [d] [d] [real] |
||||
|
Vector: no no no |
||||
|
Vector_Bounds: - - - |
||||
|
Null_Allowed: no yes no |
||||
|
|
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: zero one delay |
||||
|
Description: "value for 0" "value for 1" "delay" |
||||
|
Data_Type: real real real |
||||
|
Default_Value: 0.0 1.0 1e-9 |
||||
|
Limits: - - [1e-15 -] |
||||
|
Vector: no no no |
||||
|
Vector_Bounds: - - - |
||||
|
Null_Allowed: yes yes yes |
||||
|
|
||||
@ -1,40 +1,38 @@ |
|||||
# $Id$
|
|
||||
#
|
|
||||
# Makefile for Code Model directories
|
|
||||
#
|
|
||||
|
|
||||
# Include global XSPICE selections for CC and other macros
|
|
||||
include /usr/local/xspice-1-0/include/make.include |
|
||||
|
|
||||
INCLUDE = -I. -I$(ROOT)/include/sim |
|
||||
|
|
||||
CFLAGS = -g |
|
||||
|
|
||||
#-----------------------------------------------------------------------------
|
|
||||
# Edit the following definition to specify the object files that comprise
|
|
||||
# your code model. If your code model is completely specified in the
|
|
||||
# cfunc.mod file, there is no need to edit this definition.
|
|
||||
# DO NOT include the ifspec.o file.
|
|
||||
|
|
||||
CODE_MODEL_OBJECTS = cfunc.o |
|
||||
|
|
||||
#-----------------------------------------------------------------------------
|
|
||||
# DO NOT MODIFY THE FOLLOWING DEFINITIONS:
|
|
||||
|
|
||||
.SUFFIXES: $(SUFFIXES) .mod .ifs |
|
||||
|
|
||||
.mod.c: |
|
||||
$(BINDIR)/cmpp -mod $< |
|
||||
|
|
||||
.ifs.c: |
|
||||
$(BINDIR)/cmpp -ifs |
|
||||
|
|
||||
.c.o: $*.c |
|
||||
${CC} ${CFLAGS} ${INCLUDE} -c $*.c |
|
||||
|
|
||||
all : ifspec.o $(CODE_MODEL_OBJECTS) |
|
||||
|
|
||||
cfunc.o : cfunc.c |
|
||||
ifspec.o : ifspec.c |
|
||||
|
|
||||
|
|
||||
|
# $Id$
|
||||
|
#
|
||||
|
# Makefile for Code Model directories
|
||||
|
#
|
||||
|
|
||||
|
# Include global XSPICE selections for CC and other macros
|
||||
|
include /usr/local/xspice-1-0/include/make.include |
||||
|
|
||||
|
INCLUDE = -I. -I$(ROOT)/include/sim |
||||
|
|
||||
|
CFLAGS = -g |
||||
|
|
||||
|
#-----------------------------------------------------------------------------
|
||||
|
# Edit the following definition to specify the object files that comprise
|
||||
|
# your code model. If your code model is completely specified in the
|
||||
|
# cfunc.mod file, there is no need to edit this definition.
|
||||
|
# DO NOT include the ifspec.o file.
|
||||
|
|
||||
|
CODE_MODEL_OBJECTS = cfunc.o |
||||
|
|
||||
|
#-----------------------------------------------------------------------------
|
||||
|
# DO NOT MODIFY THE FOLLOWING DEFINITIONS:
|
||||
|
|
||||
|
.SUFFIXES: $(SUFFIXES) .mod .ifs |
||||
|
|
||||
|
.mod.c: |
||||
|
$(BINDIR)/cmpp -mod $< |
||||
|
|
||||
|
.ifs.c: |
||||
|
$(BINDIR)/cmpp -ifs |
||||
|
|
||||
|
.c.o: $*.c |
||||
|
${CC} ${CFLAGS} ${INCLUDE} -c $*.c |
||||
|
|
||||
|
all : ifspec.o $(CODE_MODEL_OBJECTS) |
||||
|
|
||||
|
cfunc.o : cfunc.c |
||||
|
ifspec.o : ifspec.c |
||||
@ -1,38 +1,38 @@ |
|||||
/* $Id$ */ |
|
||||
|
|
||||
NAME_TABLE: |
|
||||
|
|
||||
Spice_Model_Name: nco |
|
||||
C_Function_Name: ucm_nco |
|
||||
Description: "A simple MIDI numerically controlled oscillator" |
|
||||
|
|
||||
|
|
||||
PORT_TABLE: |
|
||||
|
|
||||
Port_Name: in out |
|
||||
Description: "program input" "oscillator output" |
|
||||
Direction: in out |
|
||||
Default_Type: d d |
|
||||
Allowed_Types: [d] [d] |
|
||||
Vector: yes no |
|
||||
Vector_Bounds: [7 7] - |
|
||||
Null_Allowed: no no |
|
||||
|
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: delay mult_factor |
|
||||
Description: "output delay" "freq multiplier" |
|
||||
Data_Type: real real |
|
||||
Default_Value: 1e-9 1 |
|
||||
Limits: [1e-15 -] [1e-9 -] |
|
||||
Vector: no no |
|
||||
Vector_Bounds: - - |
|
||||
Null_Allowed: yes yes |
|
||||
|
|
||||
|
|
||||
STATIC_VAR_TABLE: |
|
||||
|
|
||||
Static_Var_Name: freq |
|
||||
Data_Type: pointer |
|
||||
Description: "frequencies of notes" |
|
||||
|
/* $Id$ */ |
||||
|
|
||||
|
NAME_TABLE: |
||||
|
|
||||
|
Spice_Model_Name: nco |
||||
|
C_Function_Name: ucm_nco |
||||
|
Description: "A simple MIDI numerically controlled oscillator" |
||||
|
|
||||
|
|
||||
|
PORT_TABLE: |
||||
|
|
||||
|
Port_Name: in out |
||||
|
Description: "program input" "oscillator output" |
||||
|
Direction: in out |
||||
|
Default_Type: d d |
||||
|
Allowed_Types: [d] [d] |
||||
|
Vector: yes no |
||||
|
Vector_Bounds: [7 7] - |
||||
|
Null_Allowed: no no |
||||
|
|
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: delay mult_factor |
||||
|
Description: "output delay" "freq multiplier" |
||||
|
Data_Type: real real |
||||
|
Default_Value: 1e-9 1 |
||||
|
Limits: [1e-15 -] [1e-9 -] |
||||
|
Vector: no no |
||||
|
Vector_Bounds: - - |
||||
|
Null_Allowed: yes yes |
||||
|
|
||||
|
|
||||
|
STATIC_VAR_TABLE: |
||||
|
|
||||
|
Static_Var_Name: freq |
||||
|
Data_Type: pointer |
||||
|
Description: "frequencies of notes" |
||||
@ -1,40 +1,38 @@ |
|||||
# $Id$
|
|
||||
#
|
|
||||
# Makefile for Code Model directories
|
|
||||
#
|
|
||||
|
|
||||
# Include global XSPICE selections for CC and other macros
|
|
||||
include /usr/local/xspice-1-0/include/make.include |
|
||||
|
|
||||
INCLUDE = -I. -I$(ROOT)/include/sim |
|
||||
|
|
||||
CFLAGS = -g |
|
||||
|
|
||||
#-----------------------------------------------------------------------------
|
|
||||
# Edit the following definition to specify the object files that comprise
|
|
||||
# your code model. If your code model is completely specified in the
|
|
||||
# cfunc.mod file, there is no need to edit this definition.
|
|
||||
# DO NOT include the ifspec.o file.
|
|
||||
|
|
||||
CODE_MODEL_OBJECTS = cfunc.o |
|
||||
|
|
||||
#-----------------------------------------------------------------------------
|
|
||||
# DO NOT MODIFY THE FOLLOWING DEFINITIONS:
|
|
||||
|
|
||||
.SUFFIXES: $(SUFFIXES) .mod .ifs |
|
||||
|
|
||||
.mod.c: |
|
||||
$(BINDIR)/cmpp -mod $< |
|
||||
|
|
||||
.ifs.c: |
|
||||
$(BINDIR)/cmpp -ifs |
|
||||
|
|
||||
.c.o: $*.c |
|
||||
${CC} ${CFLAGS} ${INCLUDE} -c $*.c |
|
||||
|
|
||||
all : ifspec.o $(CODE_MODEL_OBJECTS) |
|
||||
|
|
||||
cfunc.o : cfunc.c |
|
||||
ifspec.o : ifspec.c |
|
||||
|
|
||||
|
|
||||
|
# $Id$
|
||||
|
#
|
||||
|
# Makefile for Code Model directories
|
||||
|
#
|
||||
|
|
||||
|
# Include global XSPICE selections for CC and other macros
|
||||
|
include /usr/local/xspice-1-0/include/make.include |
||||
|
|
||||
|
INCLUDE = -I. -I$(ROOT)/include/sim |
||||
|
|
||||
|
CFLAGS = -g |
||||
|
|
||||
|
#-----------------------------------------------------------------------------
|
||||
|
# Edit the following definition to specify the object files that comprise
|
||||
|
# your code model. If your code model is completely specified in the
|
||||
|
# cfunc.mod file, there is no need to edit this definition.
|
||||
|
# DO NOT include the ifspec.o file.
|
||||
|
|
||||
|
CODE_MODEL_OBJECTS = cfunc.o |
||||
|
|
||||
|
#-----------------------------------------------------------------------------
|
||||
|
# DO NOT MODIFY THE FOLLOWING DEFINITIONS:
|
||||
|
|
||||
|
.SUFFIXES: $(SUFFIXES) .mod .ifs |
||||
|
|
||||
|
.mod.c: |
||||
|
$(BINDIR)/cmpp -mod $< |
||||
|
|
||||
|
.ifs.c: |
||||
|
$(BINDIR)/cmpp -ifs |
||||
|
|
||||
|
.c.o: $*.c |
||||
|
${CC} ${CFLAGS} ${INCLUDE} -c $*.c |
||||
|
|
||||
|
all : ifspec.o $(CODE_MODEL_OBJECTS) |
||||
|
|
||||
|
cfunc.o : cfunc.c |
||||
|
ifspec.o : ifspec.c |
||||
@ -1,33 +1,29 @@ |
|||||
/* $Id$ */ |
|
||||
|
|
||||
void ucm_print_param_types (ARGS) |
|
||||
{ |
|
||||
int i; |
|
||||
|
|
||||
if(INIT) { |
|
||||
/* Print scalar parameters */ |
|
||||
printf("\nScalar parameters\n\n"); |
|
||||
printf("integer = %d\n", PARAM(integer)); |
|
||||
printf("real = %e\n", PARAM(real)); |
|
||||
printf("complex = <%e %e>\n", PARAM(complex).real, |
|
||||
PARAM(complex).imag); |
|
||||
printf("string = %s\n", PARAM(string)); |
|
||||
|
|
||||
/* Print vector parameters */ |
|
||||
printf("\nVector parameters\n\n"); |
|
||||
for(i = 0; i < PARAM_SIZE(integer_array); i++) |
|
||||
printf("integer = %d\n", PARAM(integer_array[i])); |
|
||||
for(i = 0; i < PARAM_SIZE(real_array); i++) |
|
||||
printf("real = %e\n", PARAM(real_array[i])); |
|
||||
for(i = 0; i < PARAM_SIZE(complex_array); i++) |
|
||||
printf("complex = <%e %e>\n", PARAM(complex_array[i]).real, |
|
||||
PARAM(complex_array[i]).imag); |
|
||||
for(i = 0; i < PARAM_SIZE(string_array); i++) |
|
||||
printf("string = %s\n", PARAM(string_array[i])); |
|
||||
|
|
||||
} |
|
||||
} |
|
||||
|
|
||||
|
|
||||
|
|
||||
|
|
||||
|
/* $Id$ */ |
||||
|
|
||||
|
void ucm_print_param_types (ARGS) |
||||
|
{ |
||||
|
int i; |
||||
|
|
||||
|
if(INIT) { |
||||
|
/* Print scalar parameters */ |
||||
|
printf("\nScalar parameters\n\n"); |
||||
|
printf("integer = %d\n", PARAM(integer)); |
||||
|
printf("real = %e\n", PARAM(real)); |
||||
|
printf("complex = <%e %e>\n", PARAM(complex).real, |
||||
|
PARAM(complex).imag); |
||||
|
printf("string = %s\n", PARAM(string)); |
||||
|
|
||||
|
/* Print vector parameters */ |
||||
|
printf("\nVector parameters\n\n"); |
||||
|
for(i = 0; i < PARAM_SIZE(integer_array); i++) |
||||
|
printf("integer = %d\n", PARAM(integer_array[i])); |
||||
|
for(i = 0; i < PARAM_SIZE(real_array); i++) |
||||
|
printf("real = %e\n", PARAM(real_array[i])); |
||||
|
for(i = 0; i < PARAM_SIZE(complex_array); i++) |
||||
|
printf("complex = <%e %e>\n", PARAM(complex_array[i]).real, |
||||
|
PARAM(complex_array[i]).imag); |
||||
|
for(i = 0; i < PARAM_SIZE(string_array); i++) |
||||
|
printf("string = %s\n", PARAM(string_array[i])); |
||||
|
|
||||
|
} |
||||
|
} |
||||
@ -1,112 +1,112 @@ |
|||||
/* $Id$ */ |
|
||||
|
|
||||
NAME_TABLE: |
|
||||
|
|
||||
Spice_Model_Name: print_param_types |
|
||||
C_Function_Name: ucm_print_param_types |
|
||||
Description: "ignores its input, but prints its parameters" |
|
||||
|
|
||||
|
|
||||
PORT_TABLE: |
|
||||
|
|
||||
|
|
||||
Port_Name: in |
|
||||
Description: "input" |
|
||||
Direction: in |
|
||||
Default_Type: v |
|
||||
Allowed_Types: [v,vd,i,id,vnam] |
|
||||
Vector: yes |
|
||||
Vector_Bounds: - |
|
||||
Null_Allowed: no |
|
||||
|
|
||||
|
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: integer |
|
||||
Description: "integer parameter" |
|
||||
Data_Type: int |
|
||||
Default_Value: 1 |
|
||||
Limits: - |
|
||||
Vector: no |
|
||||
Vector_Bounds: - |
|
||||
Null_Allowed: yes |
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: real |
|
||||
Description: "real parameter" |
|
||||
Data_Type: real |
|
||||
Default_Value: 1 |
|
||||
Limits: - |
|
||||
Vector: no |
|
||||
Vector_Bounds: - |
|
||||
Null_Allowed: yes |
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: complex |
|
||||
Description: "complex parameter" |
|
||||
Data_Type: complex |
|
||||
Default_Value: <1.0, 1.0> |
|
||||
Limits: - |
|
||||
Vector: no |
|
||||
Vector_Bounds: - |
|
||||
Null_Allowed: yes |
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: string |
|
||||
Description: "string parameter" |
|
||||
Data_Type: string |
|
||||
Default_Value: "one" |
|
||||
Limits: - |
|
||||
Vector: no |
|
||||
Vector_Bounds: - |
|
||||
Null_Allowed: yes |
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: integer_array |
|
||||
Description: "integer array parameter" |
|
||||
Data_Type: int |
|
||||
Default_Value: 1 |
|
||||
Limits: - |
|
||||
Vector: yes |
|
||||
Vector_Bounds: in |
|
||||
Null_Allowed: yes |
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: real_array |
|
||||
Description: "real array parameter" |
|
||||
Data_Type: real |
|
||||
Default_Value: 1 |
|
||||
Limits: - |
|
||||
Vector: yes |
|
||||
Vector_Bounds: in |
|
||||
Null_Allowed: yes |
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: complex_array |
|
||||
Description: "complex array parameter" |
|
||||
Data_Type: complex |
|
||||
Default_Value: <1.0 1.0> |
|
||||
Limits: - |
|
||||
Vector: yes |
|
||||
Vector_Bounds: in |
|
||||
Null_Allowed: yes |
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: string_array |
|
||||
Description: "string array parameter" |
|
||||
Data_Type: string |
|
||||
Default_Value: "one" |
|
||||
Limits: - |
|
||||
Vector: yes |
|
||||
Vector_Bounds: in |
|
||||
Null_Allowed: yes |
|
||||
|
|
||||
|
|
||||
|
/* $Id$ */ |
||||
|
|
||||
|
NAME_TABLE: |
||||
|
|
||||
|
Spice_Model_Name: print_param_types |
||||
|
C_Function_Name: ucm_print_param_types |
||||
|
Description: "ignores its input, but prints its parameters" |
||||
|
|
||||
|
|
||||
|
PORT_TABLE: |
||||
|
|
||||
|
|
||||
|
Port_Name: in |
||||
|
Description: "input" |
||||
|
Direction: in |
||||
|
Default_Type: v |
||||
|
Allowed_Types: [v,vd,i,id,vnam] |
||||
|
Vector: yes |
||||
|
Vector_Bounds: - |
||||
|
Null_Allowed: no |
||||
|
|
||||
|
|
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: integer |
||||
|
Description: "integer parameter" |
||||
|
Data_Type: int |
||||
|
Default_Value: 1 |
||||
|
Limits: - |
||||
|
Vector: no |
||||
|
Vector_Bounds: - |
||||
|
Null_Allowed: yes |
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: real |
||||
|
Description: "real parameter" |
||||
|
Data_Type: real |
||||
|
Default_Value: 1 |
||||
|
Limits: - |
||||
|
Vector: no |
||||
|
Vector_Bounds: - |
||||
|
Null_Allowed: yes |
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: complex |
||||
|
Description: "complex parameter" |
||||
|
Data_Type: complex |
||||
|
Default_Value: <1.0, 1.0> |
||||
|
Limits: - |
||||
|
Vector: no |
||||
|
Vector_Bounds: - |
||||
|
Null_Allowed: yes |
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: string |
||||
|
Description: "string parameter" |
||||
|
Data_Type: string |
||||
|
Default_Value: "one" |
||||
|
Limits: - |
||||
|
Vector: no |
||||
|
Vector_Bounds: - |
||||
|
Null_Allowed: yes |
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: integer_array |
||||
|
Description: "integer array parameter" |
||||
|
Data_Type: int |
||||
|
Default_Value: 1 |
||||
|
Limits: - |
||||
|
Vector: yes |
||||
|
Vector_Bounds: in |
||||
|
Null_Allowed: yes |
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: real_array |
||||
|
Description: "real array parameter" |
||||
|
Data_Type: real |
||||
|
Default_Value: 1 |
||||
|
Limits: - |
||||
|
Vector: yes |
||||
|
Vector_Bounds: in |
||||
|
Null_Allowed: yes |
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: complex_array |
||||
|
Description: "complex array parameter" |
||||
|
Data_Type: complex |
||||
|
Default_Value: <1.0 1.0> |
||||
|
Limits: - |
||||
|
Vector: yes |
||||
|
Vector_Bounds: in |
||||
|
Null_Allowed: yes |
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: string_array |
||||
|
Description: "string array parameter" |
||||
|
Data_Type: string |
||||
|
Default_Value: "one" |
||||
|
Limits: - |
||||
|
Vector: yes |
||||
|
Vector_Bounds: in |
||||
|
Null_Allowed: yes |
||||
|
|
||||
|
|
||||
@ -1,40 +1,38 @@ |
|||||
# $Id$
|
|
||||
#
|
|
||||
# Makefile for Code Model directories
|
|
||||
#
|
|
||||
|
|
||||
# Include global XSPICE selections for CC and other macros
|
|
||||
include /usr/local/xspice-1-0/include/make.include |
|
||||
|
|
||||
INCLUDE = -I. -I$(ROOT)/include/sim |
|
||||
|
|
||||
CFLAGS = -g |
|
||||
|
|
||||
#-----------------------------------------------------------------------------
|
|
||||
# Edit the following definition to specify the object files that comprise
|
|
||||
# your code model. If your code model is completely specified in the
|
|
||||
# cfunc.mod file, there is no need to edit this definition.
|
|
||||
# DO NOT include the ifspec.o file.
|
|
||||
|
|
||||
CODE_MODEL_OBJECTS = cfunc.o |
|
||||
|
|
||||
#-----------------------------------------------------------------------------
|
|
||||
# DO NOT MODIFY THE FOLLOWING DEFINITIONS:
|
|
||||
|
|
||||
.SUFFIXES: $(SUFFIXES) .mod .ifs |
|
||||
|
|
||||
.mod.c: |
|
||||
$(BINDIR)/cmpp -mod $< |
|
||||
|
|
||||
.ifs.c: |
|
||||
$(BINDIR)/cmpp -ifs |
|
||||
|
|
||||
.c.o: $*.c |
|
||||
${CC} ${CFLAGS} ${INCLUDE} -c $*.c |
|
||||
|
|
||||
all : ifspec.o $(CODE_MODEL_OBJECTS) |
|
||||
|
|
||||
cfunc.o : cfunc.c |
|
||||
ifspec.o : ifspec.c |
|
||||
|
|
||||
|
|
||||
|
# $Id$
|
||||
|
#
|
||||
|
# Makefile for Code Model directories
|
||||
|
#
|
||||
|
|
||||
|
# Include global XSPICE selections for CC and other macros
|
||||
|
include /usr/local/xspice-1-0/include/make.include |
||||
|
|
||||
|
INCLUDE = -I. -I$(ROOT)/include/sim |
||||
|
|
||||
|
CFLAGS = -g |
||||
|
|
||||
|
#-----------------------------------------------------------------------------
|
||||
|
# Edit the following definition to specify the object files that comprise
|
||||
|
# your code model. If your code model is completely specified in the
|
||||
|
# cfunc.mod file, there is no need to edit this definition.
|
||||
|
# DO NOT include the ifspec.o file.
|
||||
|
|
||||
|
CODE_MODEL_OBJECTS = cfunc.o |
||||
|
|
||||
|
#-----------------------------------------------------------------------------
|
||||
|
# DO NOT MODIFY THE FOLLOWING DEFINITIONS:
|
||||
|
|
||||
|
.SUFFIXES: $(SUFFIXES) .mod .ifs |
||||
|
|
||||
|
.mod.c: |
||||
|
$(BINDIR)/cmpp -mod $< |
||||
|
|
||||
|
.ifs.c: |
||||
|
$(BINDIR)/cmpp -ifs |
||||
|
|
||||
|
.c.o: $*.c |
||||
|
${CC} ${CFLAGS} ${INCLUDE} -c $*.c |
||||
|
|
||||
|
all : ifspec.o $(CODE_MODEL_OBJECTS) |
||||
|
|
||||
|
cfunc.o : cfunc.c |
||||
|
ifspec.o : ifspec.c |
||||
@ -1,33 +1,33 @@ |
|||||
/* $Id$ */ |
|
||||
|
|
||||
NAME_TABLE: |
|
||||
|
|
||||
Spice_Model_Name: real_delay |
|
||||
C_Function_Name: ucm_real_delay |
|
||||
Description: "A Z ** -1 block working on real data" |
|
||||
|
|
||||
|
|
||||
PORT_TABLE: |
|
||||
|
|
||||
Port_Name: in clk out |
|
||||
Description: "input" "clock" "output" |
|
||||
Direction: in in out |
|
||||
Default_Type: real d real |
|
||||
Allowed_Types: [real] [d] [real] |
|
||||
Vector: no no no |
|
||||
Vector_Bounds: - - - |
|
||||
Null_Allowed: no no no |
|
||||
|
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: delay |
|
||||
Description: "delay from clk to out" |
|
||||
Data_Type: real |
|
||||
Default_Value: 1e-9 |
|
||||
Limits: [1e-15 -] |
|
||||
Vector: no |
|
||||
Vector_Bounds: - |
|
||||
Null_Allowed: yes |
|
||||
|
|
||||
|
|
||||
|
/* $Id$ */ |
||||
|
|
||||
|
NAME_TABLE: |
||||
|
|
||||
|
Spice_Model_Name: real_delay |
||||
|
C_Function_Name: ucm_real_delay |
||||
|
Description: "A Z ** -1 block working on real data" |
||||
|
|
||||
|
|
||||
|
PORT_TABLE: |
||||
|
|
||||
|
Port_Name: in clk out |
||||
|
Description: "input" "clock" "output" |
||||
|
Direction: in in out |
||||
|
Default_Type: real d real |
||||
|
Allowed_Types: [real] [d] [real] |
||||
|
Vector: no no no |
||||
|
Vector_Bounds: - - - |
||||
|
Null_Allowed: no no no |
||||
|
|
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: delay |
||||
|
Description: "delay from clk to out" |
||||
|
Data_Type: real |
||||
|
Default_Value: 1e-9 |
||||
|
Limits: [1e-15 -] |
||||
|
Vector: no |
||||
|
Vector_Bounds: - |
||||
|
Null_Allowed: yes |
||||
|
|
||||
|
|
||||
@ -1,40 +1,38 @@ |
|||||
# $Id$
|
|
||||
#
|
|
||||
# Makefile for Code Model directories
|
|
||||
#
|
|
||||
|
|
||||
# Include global XSPICE selections for CC and other macros
|
|
||||
include /usr/local/xspice-1-0/include/make.include |
|
||||
|
|
||||
INCLUDE = -I. -I$(ROOT)/include/sim |
|
||||
|
|
||||
CFLAGS = -g |
|
||||
|
|
||||
#-----------------------------------------------------------------------------
|
|
||||
# Edit the following definition to specify the object files that comprise
|
|
||||
# your code model. If your code model is completely specified in the
|
|
||||
# cfunc.mod file, there is no need to edit this definition.
|
|
||||
# DO NOT include the ifspec.o file.
|
|
||||
|
|
||||
CODE_MODEL_OBJECTS = cfunc.o |
|
||||
|
|
||||
#-----------------------------------------------------------------------------
|
|
||||
# DO NOT MODIFY THE FOLLOWING DEFINITIONS:
|
|
||||
|
|
||||
.SUFFIXES: $(SUFFIXES) .mod .ifs |
|
||||
|
|
||||
.mod.c: |
|
||||
$(BINDIR)/cmpp -mod $< |
|
||||
|
|
||||
.ifs.c: |
|
||||
$(BINDIR)/cmpp -ifs |
|
||||
|
|
||||
.c.o: $*.c |
|
||||
${CC} ${CFLAGS} ${INCLUDE} -c $*.c |
|
||||
|
|
||||
all : ifspec.o $(CODE_MODEL_OBJECTS) |
|
||||
|
|
||||
cfunc.o : cfunc.c |
|
||||
ifspec.o : ifspec.c |
|
||||
|
|
||||
|
|
||||
|
# $Id$
|
||||
|
#
|
||||
|
# Makefile for Code Model directories
|
||||
|
#
|
||||
|
|
||||
|
# Include global XSPICE selections for CC and other macros
|
||||
|
include /usr/local/xspice-1-0/include/make.include |
||||
|
|
||||
|
INCLUDE = -I. -I$(ROOT)/include/sim |
||||
|
|
||||
|
CFLAGS = -g |
||||
|
|
||||
|
#-----------------------------------------------------------------------------
|
||||
|
# Edit the following definition to specify the object files that comprise
|
||||
|
# your code model. If your code model is completely specified in the
|
||||
|
# cfunc.mod file, there is no need to edit this definition.
|
||||
|
# DO NOT include the ifspec.o file.
|
||||
|
|
||||
|
CODE_MODEL_OBJECTS = cfunc.o |
||||
|
|
||||
|
#-----------------------------------------------------------------------------
|
||||
|
# DO NOT MODIFY THE FOLLOWING DEFINITIONS:
|
||||
|
|
||||
|
.SUFFIXES: $(SUFFIXES) .mod .ifs |
||||
|
|
||||
|
.mod.c: |
||||
|
$(BINDIR)/cmpp -mod $< |
||||
|
|
||||
|
.ifs.c: |
||||
|
$(BINDIR)/cmpp -ifs |
||||
|
|
||||
|
.c.o: $*.c |
||||
|
${CC} ${CFLAGS} ${INCLUDE} -c $*.c |
||||
|
|
||||
|
all : ifspec.o $(CODE_MODEL_OBJECTS) |
||||
|
|
||||
|
cfunc.o : cfunc.c |
||||
|
ifspec.o : ifspec.c |
||||
@ -1,39 +1,37 @@ |
|||||
/* $Id$ */ |
|
||||
|
|
||||
void ucm_real_gain (ARGS) |
|
||||
{ |
|
||||
double *in; |
|
||||
double *out; |
|
||||
|
|
||||
double in_offset; |
|
||||
double gain; |
|
||||
double out_offset; |
|
||||
double delay; |
|
||||
double ic; |
|
||||
|
|
||||
|
|
||||
/* Get the input and output pointers */ |
|
||||
in = INPUT(in); |
|
||||
out = OUTPUT(out); |
|
||||
|
|
||||
/* Get the parameters */ |
|
||||
in_offset = PARAM(in_offset); |
|
||||
gain = PARAM(gain); |
|
||||
out_offset = PARAM(out_offset); |
|
||||
delay = PARAM(delay); |
|
||||
ic = PARAM(ic); |
|
||||
|
|
||||
|
|
||||
/* Assign the output and delay */ |
|
||||
if(ANALYSIS == DC) { |
|
||||
*out = ic; |
|
||||
if(INIT) |
|
||||
cm_event_queue(delay); |
|
||||
} |
|
||||
else { |
|
||||
*out = gain * (*in + in_offset) + out_offset; |
|
||||
OUTPUT_DELAY(out) = delay; |
|
||||
} |
|
||||
} |
|
||||
|
|
||||
|
|
||||
|
/* $Id$ */ |
||||
|
|
||||
|
void ucm_real_gain (ARGS) |
||||
|
{ |
||||
|
double *in; |
||||
|
double *out; |
||||
|
|
||||
|
double in_offset; |
||||
|
double gain; |
||||
|
double out_offset; |
||||
|
double delay; |
||||
|
double ic; |
||||
|
|
||||
|
|
||||
|
/* Get the input and output pointers */ |
||||
|
in = INPUT(in); |
||||
|
out = OUTPUT(out); |
||||
|
|
||||
|
/* Get the parameters */ |
||||
|
in_offset = PARAM(in_offset); |
||||
|
gain = PARAM(gain); |
||||
|
out_offset = PARAM(out_offset); |
||||
|
delay = PARAM(delay); |
||||
|
ic = PARAM(ic); |
||||
|
|
||||
|
|
||||
|
/* Assign the output and delay */ |
||||
|
if(ANALYSIS == DC) { |
||||
|
*out = ic; |
||||
|
if(INIT) |
||||
|
cm_event_queue(delay); |
||||
|
} |
||||
|
else { |
||||
|
*out = gain * (*in + in_offset) + out_offset; |
||||
|
OUTPUT_DELAY(out) = delay; |
||||
|
} |
||||
|
} |
||||
@ -1,45 +1,45 @@ |
|||||
/* $Id$ */ |
|
||||
|
|
||||
NAME_TABLE: |
|
||||
|
|
||||
Spice_Model_Name: real_gain |
|
||||
C_Function_Name: ucm_real_gain |
|
||||
Description: "A gain block for event-driven real data" |
|
||||
|
|
||||
|
|
||||
PORT_TABLE: |
|
||||
|
|
||||
Port_Name: in out |
|
||||
Description: "input" "output" |
|
||||
Direction: in out |
|
||||
Default_Type: real real |
|
||||
Allowed_Types: [real] [real] |
|
||||
Vector: no no |
|
||||
Vector_Bounds: - - |
|
||||
Null_Allowed: no no |
|
||||
|
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: in_offset gain out_offset |
|
||||
Description: "input offset" "gain" "output offset" |
|
||||
Data_Type: real real real |
|
||||
Default_Value: 0.0 1.0 0.0 |
|
||||
Limits: - - - |
|
||||
Vector: no no no |
|
||||
Vector_Bounds: - - - |
|
||||
Null_Allowed: yes yes yes |
|
||||
|
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: delay ic |
|
||||
Description: "delay" "initial condition" |
|
||||
Data_Type: real real |
|
||||
Default_Value: 1.0e-9 0.0 |
|
||||
Limits: - - |
|
||||
Vector: no no |
|
||||
Vector_Bounds: - - |
|
||||
Null_Allowed: yes yes |
|
||||
|
|
||||
|
|
||||
|
/* $Id$ */ |
||||
|
|
||||
|
NAME_TABLE: |
||||
|
|
||||
|
Spice_Model_Name: real_gain |
||||
|
C_Function_Name: ucm_real_gain |
||||
|
Description: "A gain block for event-driven real data" |
||||
|
|
||||
|
|
||||
|
PORT_TABLE: |
||||
|
|
||||
|
Port_Name: in out |
||||
|
Description: "input" "output" |
||||
|
Direction: in out |
||||
|
Default_Type: real real |
||||
|
Allowed_Types: [real] [real] |
||||
|
Vector: no no |
||||
|
Vector_Bounds: - - |
||||
|
Null_Allowed: no no |
||||
|
|
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: in_offset gain out_offset |
||||
|
Description: "input offset" "gain" "output offset" |
||||
|
Data_Type: real real real |
||||
|
Default_Value: 0.0 1.0 0.0 |
||||
|
Limits: - - - |
||||
|
Vector: no no no |
||||
|
Vector_Bounds: - - - |
||||
|
Null_Allowed: yes yes yes |
||||
|
|
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: delay ic |
||||
|
Description: "delay" "initial condition" |
||||
|
Data_Type: real real |
||||
|
Default_Value: 1.0e-9 0.0 |
||||
|
Limits: - - |
||||
|
Vector: no no |
||||
|
Vector_Bounds: - - |
||||
|
Null_Allowed: yes yes |
||||
|
|
||||
|
|
||||
@ -1,40 +1,38 @@ |
|||||
# $Id$
|
|
||||
#
|
|
||||
# Makefile for Code Model directories
|
|
||||
#
|
|
||||
|
|
||||
# Include global XSPICE selections for CC and other macros
|
|
||||
include /usr/local/xspice-1-0/include/make.include |
|
||||
|
|
||||
INCLUDE = -I. -I$(ROOT)/include/sim |
|
||||
|
|
||||
CFLAGS = -g |
|
||||
|
|
||||
#-----------------------------------------------------------------------------
|
|
||||
# Edit the following definition to specify the object files that comprise
|
|
||||
# your code model. If your code model is completely specified in the
|
|
||||
# cfunc.mod file, there is no need to edit this definition.
|
|
||||
# DO NOT include the ifspec.o file.
|
|
||||
|
|
||||
CODE_MODEL_OBJECTS = cfunc.o |
|
||||
|
|
||||
#-----------------------------------------------------------------------------
|
|
||||
# DO NOT MODIFY THE FOLLOWING DEFINITIONS:
|
|
||||
|
|
||||
.SUFFIXES: $(SUFFIXES) .mod .ifs |
|
||||
|
|
||||
.mod.c: |
|
||||
$(BINDIR)/cmpp -mod $< |
|
||||
|
|
||||
.ifs.c: |
|
||||
$(BINDIR)/cmpp -ifs |
|
||||
|
|
||||
.c.o: $*.c |
|
||||
${CC} ${CFLAGS} ${INCLUDE} -c $*.c |
|
||||
|
|
||||
all : ifspec.o $(CODE_MODEL_OBJECTS) |
|
||||
|
|
||||
cfunc.o : cfunc.c |
|
||||
ifspec.o : ifspec.c |
|
||||
|
|
||||
|
|
||||
|
# $Id$
|
||||
|
#
|
||||
|
# Makefile for Code Model directories
|
||||
|
#
|
||||
|
|
||||
|
# Include global XSPICE selections for CC and other macros
|
||||
|
include /usr/local/xspice-1-0/include/make.include |
||||
|
|
||||
|
INCLUDE = -I. -I$(ROOT)/include/sim |
||||
|
|
||||
|
CFLAGS = -g |
||||
|
|
||||
|
#-----------------------------------------------------------------------------
|
||||
|
# Edit the following definition to specify the object files that comprise
|
||||
|
# your code model. If your code model is completely specified in the
|
||||
|
# cfunc.mod file, there is no need to edit this definition.
|
||||
|
# DO NOT include the ifspec.o file.
|
||||
|
|
||||
|
CODE_MODEL_OBJECTS = cfunc.o |
||||
|
|
||||
|
#-----------------------------------------------------------------------------
|
||||
|
# DO NOT MODIFY THE FOLLOWING DEFINITIONS:
|
||||
|
|
||||
|
.SUFFIXES: $(SUFFIXES) .mod .ifs |
||||
|
|
||||
|
.mod.c: |
||||
|
$(BINDIR)/cmpp -mod $< |
||||
|
|
||||
|
.ifs.c: |
||||
|
$(BINDIR)/cmpp -ifs |
||||
|
|
||||
|
.c.o: $*.c |
||||
|
${CC} ${CFLAGS} ${INCLUDE} -c $*.c |
||||
|
|
||||
|
all : ifspec.o $(CODE_MODEL_OBJECTS) |
||||
|
|
||||
|
cfunc.o : cfunc.c |
||||
|
ifspec.o : ifspec.c |
||||
@ -1,33 +1,33 @@ |
|||||
/* $Id$ */ |
|
||||
|
|
||||
NAME_TABLE: |
|
||||
|
|
||||
Spice_Model_Name: real_to_v |
|
||||
C_Function_Name: ucm_real_to_v |
|
||||
Description: "Node bridge from real to analog voltage" |
|
||||
|
|
||||
|
|
||||
PORT_TABLE: |
|
||||
|
|
||||
Port_Name: in out |
|
||||
Description: "input" "output" |
|
||||
Direction: in out |
|
||||
Default_Type: real v |
|
||||
Allowed_Types: [real] [v, vd, i, id] |
|
||||
Vector: no no |
|
||||
Vector_Bounds: - - |
|
||||
Null_Allowed: no no |
|
||||
|
|
||||
|
|
||||
PARAMETER_TABLE: |
|
||||
|
|
||||
Parameter_Name: gain transition_time |
|
||||
Description: "gain" "output transition time" |
|
||||
Data_Type: real real |
|
||||
Default_Value: 1.0 1e-9 |
|
||||
Limits: - [1e-15 -] |
|
||||
Vector: no no |
|
||||
Vector_Bounds: - - |
|
||||
Null_Allowed: yes yes |
|
||||
|
|
||||
|
|
||||
|
/* $Id$ */ |
||||
|
|
||||
|
NAME_TABLE: |
||||
|
|
||||
|
Spice_Model_Name: real_to_v |
||||
|
C_Function_Name: ucm_real_to_v |
||||
|
Description: "Node bridge from real to analog voltage" |
||||
|
|
||||
|
|
||||
|
PORT_TABLE: |
||||
|
|
||||
|
Port_Name: in out |
||||
|
Description: "input" "output" |
||||
|
Direction: in out |
||||
|
Default_Type: real v |
||||
|
Allowed_Types: [real] [v, vd, i, id] |
||||
|
Vector: no no |
||||
|
Vector_Bounds: - - |
||||
|
Null_Allowed: no no |
||||
|
|
||||
|
|
||||
|
PARAMETER_TABLE: |
||||
|
|
||||
|
Parameter_Name: gain transition_time |
||||
|
Description: "gain" "output transition time" |
||||
|
Data_Type: real real |
||||
|
Default_Value: 1.0 1e-9 |
||||
|
Limits: - [1e-15 -] |
||||
|
Vector: no no |
||||
|
Vector_Bounds: - - |
||||
|
Null_Allowed: yes yes |
||||
|
|
||||
|
|
||||
Write
Preview
Loading…
Cancel
Save
Reference in new issue