14 void commu_int(int* global, int* ilwork, int* n, char* code);
24 static lcorp_t count_owned(int* ilwork, int nlwork,gcorp_t* ncorp_tmp, int* num_nodes);
25 static lcorp_t count_local(int* ilwork, int nlwork,gcorp_t* ncorp_tmp, int* num_nodes);
28 void gen_ncorp(gcorp_t* ncorp, int* ilwork, lcorp_t* nilwork_f, int* num_nodes)  in gen_ncorp()  argument
44 	owned = count_owned(ilwork, nilwork, ncorp, num_nodes);  in gen_ncorp()
45 	local = count_local(ilwork, nilwork, ncorp, num_nodes);  in gen_ncorp()
121 static lcorp_t count_local(int* ilwork, int nlwork,gcorp_t* ncorp_tmp, int* num_nodes)  in count_local()  argument
133 static lcorp_t count_owned(int* ilwork, int nlwork,gcorp_t* ncorp_tmp, int* num_nodes)  in count_owned()  argument
135 	int numtask = ilwork[0];  in count_owned()
141 		int itag = ilwork[itkbeg+1]; //mpi tag  in count_owned()
142 		int iacc = ilwork[itkbeg+2]; //0 for slave, 1 for master  in count_owned()
144 		int iother = ilwork[itkbeg+3]-1; //other rank (see ctypes.f for off by one)  in count_owned()
145 		int numseg = ilwork[itkbeg+4]; //number of segments  in count_owned()
148 			int isgbeg = ilwork[itkbeg+5+(j*2)]; //first idx of seg  in count_owned()
149 			int lenseg = ilwork[itkbeg+6+(j*2)]; //length of seg  in count_owned()