135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
if (
($out_port == 1)
and
($in_port == 1)
)
{ # single port
if ($out_causality eq $gain_causality)
{
$retval = "(($input)*($gain))";
}
elsif ($out_causality ne $gain_causality)
{
$retval = "(($input)/($gain))";
}
}
}
if ($retval)
|
|
|
|
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
|
if (
($out_port == 1)
and
($in_port == 1)
)
{ # single port
if ($in_causality eq $gain_causality)
{
$retval = "(($input)*($gain))";
}
elsif ($in_causality ne $gain_causality)
{
$retval = "(($input)/($gain))";
}
}
}
if ($retval)
|