#include "myfunction.h" double do_nothing(double *para) { return para[0]; } #### double do_nothing(double *) #### #include "myfunction.h" (and the rest of the XSUB header files) MODULE = Myfunction PACKAGE = Myfunction PROTOTYPES: ENABLE double do_nothing(x) double * x #### double * T_SV #### my @array = (1.1,1.2); is(&myfunction::do_nothing(\@array),1.1);