Help for this page

Select Code to Download

Select or download this

sub MyFunc {
    my $avMatrix= shift(@_);
    my $packedMatrix= "";
...
    }
    return MyFuncC( 0+@$avMatrix, $width, $packedMatrix );
}

Select or download this

int MyFuncC( rows, columns, packedMatrix )
        int    rows;
        int    columns;
        char * packedMatrix;
    CODE:
        RETVAL= CFunc( rows, columns, (float **)packedMatrix );