TYPEMAP
int *	T_INTP
ndffloat	T_NV
float *	T_FLOATP
double *     T_DOUBLEP
ndfint          T_IV
double       T_DOUBLE
int *           T_INTP

INPUT 

T_INTP
        $var = ($type)pack1D($arg,'i')
T_FLOATP
        $var = ($type)pack1D($arg,'f')
T_DOUBLEP
        $var = ($type)pack1D($arg,'d')
 
OUTPUT

T_INTP
        sv_setpv((SV*)$arg, (char *)$var);
T_FLOATP
        sv_setpv((SV*)$arg, (char *)$var);
T_DOUBLEP
        sv_setpv((SV*)$arg, (char *)$var);
 
