TYPEMAP
int *	T_INTP
float	T_NV
float *	T_FLOATP
Logical	T_IV
int2D *	T_INT2DP
float2D *	T_FLOAT2DP
float_packed	T_FLOATS

INPUT

T_INTP
        $var = ($type)pack1D($arg,'i')
T_FLOATP
        $var = ($type)pack1D($arg,'f')
T_INT2DP
        $var = ($type)pack2D($arg,'i')
T_FLOAT2DP
        $var = ($type)pack2D($arg,'f')
T_FLOATS
        $var = (float_packed)(SvPV(SvRV($arg), PL_na))
