66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
|
-
+
-
-
-
+
-
-
-
+
-
-
-
+
-
-
-
+
-
-
-
-
+
|
my @args = @_;
my $retval = '';
if ($#args == 18-1)
{
my ($component,
$out_causality,
$out_causality, $out_port,
$out_port,
$x1,
$causality1,
$port1,
$y1,
$causality2,
$port2,
$x2,
$causality3,
$port3,
$y2,
$causality4,
$port4,
$psi,
$causality5,
$port5) = @args;
|