Select Code to Download

sub MyFunc {
    my $arrRef= shift(@_);
    my $packedArr= pack("f*",@$arrRef);
    return MyFuncC( 0+@$arrRef, $packedArr );
}

int MyFuncC( count, packedArray )
        int    count;
        char * packedArray;
    CODE:
        RETVAL= CFunc( count, (float *)packedArray );