enum QPshape					T_PTROBJG2::Device					T_PTROBJdouble *					T_dbl_arrayINPUTT_dbl_array       {	       AV *tempav;       I32 len;       int i;       SV  **tv;             if (!SvROK($arg)) {		 croak(\"$arg is not a reference.\");	     }             if (SvTYPE(SvRV($arg)) != SVt_PVAV) {		 croak(\"$arg is not an array.\");	     }             tempav = (AV*)SvRV($arg);             len = av_len(tempav)+1;             $var = (double *) malloc(len*sizeof(double));             for (i=0;i<len;i++) {		{                 tv = av_fetch(tempav, i, 0);                         ${var}[i] = (double) SvNV(*tv);		}             }	}