TYPEMAP
__CLPK_integer			T_IV
__CLPK_doublereal *		T_DOUBLE_2D
__BLAS_vector *			T_DOUBLE_1D
__BLAS_matrix *			T_DOUBLE_2D

INPUT
T_DOUBLE_1D
	$var = pack_1D($arg)
T_DOUBLE_2D
	$var = pack_2D($arg)

OUTPUT
T_DOUBLE_1D
	unpack_1D($arg, $var);
T_DOUBLE_2D
	unpack_2D($arg, $var);

