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

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')