TYPEMAP
	float	T_NV
	float * T_FLOATP
	double * T_DOUBLEP
	int * T_INTP

INPUT

T_FLOATP
        $var = ($type)pack1D($arg,'f')

T_DOUBLEP
        $var = ($type)pack1D($arg,'d')

T_INTP
        $var = ($type)pack1D($arg,'i')
