61 #define EXTRACT_INT_FROM_C_TO_SCILAB(num,ptr_scilab,mumpsptr,length1,length2,one)\  argument
62 if(mumpsptr == 0){       							\
69     *istk(ptr_scilab+i)=(mumpsptr)[i];}                                         \
73 #define EXTRACT_DOUBLE_FROM_C_TO_SCILAB(num,it,ptr_scilab1,ptr_scilab2,mumpsptr,length1,length2,one…  argument
74 if(mumpsptr == 0){                            					\
81    *stk(ptr_scilab1+i)=(mumpsptr)[i];}                       			\
87 #define EXTRACT_CMPLX_FROM_SCILAB_TOPTR(it,ptr_scilab1,ptr_scilab2,mumpsptr,type,length)\  argument
89   free(mumpsptr);	 			         			\
90   mumpsptr=(double2 *) malloc(length*sizeof(double2));      			\
92     (mumpsptr[i]).r = ptr_scilab1[i];} 						\
95       (mumpsptr[i]).i = ptr_scilab2[i];}					\
98       (mumpsptr[i]).i = 0.0;}							\
102 #define EXTRACT_CMPLX_FROM_C_TO_SCILAB(num,it,ptr_scilab1,ptr_scilab2,mumpsptr,length1,length2,one)\  argument
105   if(mumpsptr == 0){                                                        	\
113       *stk(ptr_scilab1+i) = (mumpsptr[i]).r; 					\
116       *stk(ptr_scilab2+i) = (mumpsptr[i]).i;					\