270   int istart, inum;  in int_part_send_recv()  local
295     inum = stack_export[neib + 1] - stack_export[neib];  in int_part_send_recv()
297     for (k = stack_export[neib]; k < stack_export[neib] + inum; k++) {  in int_part_send_recv()
300     HECMW_Isend(&ws[stack_export[neib]], inum, HECMW_INT, neibpe[neib], 0,  in int_part_send_recv()
306     inum = stack_import[neib + 1] - stack_import[neib];  in int_part_send_recv()
307     HECMW_Irecv(&wr[stack_import[neib]], inum, HECMW_INT, neibpe[neib], 0,  in int_part_send_recv()
318     inum = stack_import[neib + 1] - stack_import[neib];  in int_part_send_recv()
319     for (k = stack_import[neib]; k < stack_import[neib] + inum; k++) {  in int_part_send_recv()
344   int istart, inum;  in double_part_send_recv()  local
371     inum = stack_export[neib + 1] - stack_export[neib];  in double_part_send_recv()
373     for (k = stack_export[neib]; k < stack_export[neib] + inum; k++) {  in double_part_send_recv()
376     if (inum > 0) {  in double_part_send_recv()
380       HECMW_Isend(&ws[stack_export[neib]], inum, HECMW_DOUBLE, neibpe[neib], 0,  in double_part_send_recv()
387     inum = stack_import[neib + 1] - stack_import[neib];  in double_part_send_recv()
388     if (inum > 0) {  in double_part_send_recv()
392       HECMW_Irecv(&wr[stack_import[neib]], inum, HECMW_DOUBLE, neibpe[neib], 0,  in double_part_send_recv()
403     inum = stack_import[neib + 1] - stack_import[neib];  in double_part_send_recv()
404     for (k = stack_import[neib]; k < stack_import[neib] + inum; k++) {  in double_part_send_recv()
432   int istart, inum;  in int_whole_send_recv()  local
464       inum = stack_export[neib + 1] - stack_export[neib];  in int_whole_send_recv()
466       for (k = stack_export[neib]; k < stack_export[neib] + inum; k++) {  in int_whole_send_recv()
469       HECMW_Isend(&ws[stack_export[neib]], inum, HECMW_INT, neib, 0,  in int_whole_send_recv()
479     inum = stack_import[neib + 1] - stack_import[neib];  in int_whole_send_recv()
481       HECMW_Irecv(&wr[stack_import[neib]], inum, HECMW_INT, neib, 0,  in int_whole_send_recv()
492     inum = stack_import[neib + 1] - stack_import[neib];  in int_whole_send_recv()
494       for (k = stack_import[neib]; k < stack_import[neib] + inum; k++)  in int_whole_send_recv()
497       for (k = 0; k < inum; k++)  in int_whole_send_recv()
529   int istart, inum;  in int2_whole_send_recv()  local
550       inum = stack_export[neib + 1] - stack_export[neib];  in int2_whole_send_recv()
551       if (inum != 0) {  in int2_whole_send_recv()
552         HECMW_Isend(&x[stack_export[neib]], inum, HECMW_INT, neib, 0,  in int2_whole_send_recv()
566     inum = stack_import[neib + 1] - stack_import[neib];  in int2_whole_send_recv()
567     if ((neib != my_rank) && (inum != 0)) {  in int2_whole_send_recv()
568       HECMW_Irecv(&y[stack_import[neib]], inum, HECMW_INT, neib, 0, repart_comm,  in int2_whole_send_recv()
578   inum = stack_import[my_rank + 1] - stack_import[my_rank];  in int2_whole_send_recv()
579   for (k                         = 0; k < inum; k++)  in int2_whole_send_recv()
602   int istart, inum;  in double2_whole_send_recv()  local
622       inum = stack_export[neib + 1] - stack_export[neib];  in double2_whole_send_recv()
623       if (inum != 0) {  in double2_whole_send_recv()
627         HECMW_Isend(&x[stack_export[neib]], inum, HECMW_DOUBLE, neib, 0,  in double2_whole_send_recv()
638     inum = stack_import[neib + 1] - stack_import[neib];  in double2_whole_send_recv()
639     if ((neib != my_rank) && (inum != 0)) {  in double2_whole_send_recv()
643       HECMW_Irecv(&y[stack_import[neib]], inum, HECMW_DOUBLE, neib, 0,  in double2_whole_send_recv()
650   inum = stack_import[my_rank + 1] - stack_import[my_rank];  in double2_whole_send_recv()
651   for (k                         = 0; k < inum; k++)  in double2_whole_send_recv()
675   int istart, inum;  in int3_whole_send_recv()  local
681       inum = stack_export[i + 1] - stack_export[i];  in int3_whole_send_recv()
682       if (inum != 0)  in int3_whole_send_recv()
683         HECMW_Send(&x[stack_export[neib]], inum, HECMW_INT, i, 0, repart_comm);  in int3_whole_send_recv()
685       inum = stack_import[my_rank + 1] - stack_import[my_rank];  in int3_whole_send_recv()
686       for (k                         = 0; k < inum; k++)  in int3_whole_send_recv()
690           inum = stack_import[j + 1] - stack_import[j];  in int3_whole_send_recv()
691           if (inum != 0)  in int3_whole_send_recv()
693             HECMW_Recv(&y[stack_import[j]], inum, HECMW_INT, j, HECMW_ANY_TAG,  in int3_whole_send_recv()
715   int istart, inum;  in double_whole_send_recv()  local
747       inum = stack_export[neib + 1] - stack_export[neib];  in double_whole_send_recv()
749       for (k = stack_export[neib]; k < stack_export[neib] + inum; k++) {  in double_whole_send_recv()
752       HECMW_Isend(&ws[stack_export[neib]], inum, HECMW_DOUBLE, neib, 0,  in double_whole_send_recv()
763     inum = stack_import[neib + 1] - stack_import[neib];  in double_whole_send_recv()
765       for (k = stack_import[neib]; k < stack_import[neib] + inum; k++)  in double_whole_send_recv()
768       for (k = 0; k < inum; k++)  in double_whole_send_recv()