char *lb_method;
int new, num_imp, num_exp, *imp_procs, *exp_procs; int *imp_to_part, *exp_to_part; int num_gid_entries, num_lid_entries; ZOLTAN_ID_PTR imp_global_ids, exp_global_ids; ZOLTAN_ID_PTR imp_local_ids, exp_local_ids; /* Set load-balancing method. */
/* Reset some load-balancing parameters. */
/* Perform computations */
/* Free memory allocated for load-balancing results by Zoltan library
*/
|
character(len=3) lb_method
logical new integer(Zoltan_INT) num_imp, num_exp integer(Zoltan_INT) num_gid_entries, num_lid_entries integer(Zoltan_INT), pointer :: imp_procs(:), exp_procs(:) integer(Zoltan_INT), pointer :: imp_global_ids(:), exp_global_ids(:) ! global IDs integer(Zoltan_INT), pointer :: imp_local_ids(:), exp_local_ids(:) ! local IDs integer(Zoltan_INT) ierr ! Set load-balancing method.
! Reset some load-balancing parameters
! Perform computations
! Free memory allocated for load-balancing results by Zoltan library
|