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