int id, num_nodes_in_set, num_dist_in_set, error,
exoid, *node_list;
float *dist_fact;
\comment{write node set parameters}
id = 20; num_nodes_in_set = 5; num_dist_in_set = 5;
num_dist_in_set);
\comment{write node set node list}
node_list = (int *) calloc (num_nodes_in_set, sizeof(int));
node_list[0] = 100; node_list[1] = 101; node_list[2] = 102;
node_list[3] = 103; node_list[4] = 104;
\comment{write node set distribution factors}
dist_fact = (float *) calloc (num_dist_in_set, sizeof(float));
dist_fact[0] = 1.0; dist_fact[1] = 2.0; dist_fact[2] = 3.0;
dist_fact[3] = 4.0; dist_fact[4] = 5.0;
\comment{Same result using non-deprecated functions}