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