tricpy($m, 0, $c);
$c = $m->tricpy(0);
$c = $m->tricpy

##</code><code>##

pp_def(
    'tricpy',
    Pars => 'A(m,n);[o] C(m,n)',
    OtherPars => 'int uplo',
    OtherParsDefaults => {uplo => 0},
    ArgOrder => [qw(A uplo C)],
    Code => '
            ...
    ',
    Doc => <<EOT
=for ref

Copy triangular part to another matrix. If uplo == 0 copy upper triangular part.

=cut

EOT

##</code><code>##

pp_def(
    'tricpy',
    Pars => 'A(m,n);uplo();[o] C(m,n)',
    PMCode => 'sub PDL::tricpy {
        return PDL::_tricpy_int(@_) if @_ == 3;
        my ($A, $uplo) = @_;
        PDL::_tricpy_int($A, $uplo // 0, my $C = PDL->null);
        $C;
    }',
    Code => '
        ...
    ',
    Doc => <<EOT
=for ref

Copy triangular part to another matrix. If uplo == 0 copy upper triangular part.

=cut

EOT

);


##</code><code>##

  tricpy
      Signature: (A(m,n);[o] C(m,n); int uplo)

    Copy triangular part to another matrix. If uplo == 0 copy upper
    triangular part.

    tricpy does not process bad values. It will set the bad-value flag of
    all output ndarrays if the flag is set for any of the input ndarrays.