TYPEMAP
pdl*	T_PDL
pdl *	T_PDL
Logical	T_IV

INPUT

T_PDL
	$var = SvPDLV($arg)

OUTPUT

T_PDL
	SetSV_PDL($arg,$var);
