void MUMPS_CALL MUMPS_OOC_ALLOC_POINTERS_C(int* nb_file_type,int* dim,int* ierr) { int i=0; *ierr=mumps_io_alloc_pointers(nb_file_type,dim); for(i=0;i<*nb_file_type;i++){ mumps_io_set_last_file((dim+i),&i); } return; }
void MUMPS_CALL MUMPS_OOC_ALLOC_POINTERS_C(MUMPS_INT *nb_file_type,MUMPS_INT *dim,MUMPS_INT *ierr) { int i=0; int nb_file_type_loc, *dim_loc; nb_file_type_loc=(int)*nb_file_type; dim_loc=(int *)malloc(*nb_file_type*sizeof(int)); for(i=0;i<nb_file_type_loc;i++){ dim_loc[i]=(int)dim[i]; } *ierr=(MUMPS_INT)mumps_io_alloc_pointers(&nb_file_type_loc,dim_loc); for(i=0;i<nb_file_type_loc;i++){ mumps_io_set_last_file(dim_loc+i,&i); } free(dim_loc); return; }