sub something {
    croak "Usage: ",__PACKAGE__,"::something( $a, $b, $c )"
      unless  3 == @_;
    my $cArray= pack( "d*", @_ );
    _something( $cArray );
}

##</code><code>##

void
_something( cArray )
        char *  cArray;
    CODE:
        something( (double *)cArray );