Exemplo n.º 1
0
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;
}
Exemplo n.º 2
0
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;
}