void armci_agg_complete(armci_ihdl_t nb_handle, int condition) {
int i, index=0, rc;
/* get the buffer index for this handle */
for(i=ulist.size-1; i>=0; i--) {
index = ulist.index[i];
if(aggr[index]->tag == nb_handle->tag &&
aggr[index]->proc == nb_handle->proc)
break;
}
if(i<0) return; /* implies this handle has no requests at all */
#if 0
printf("%d: Aggregation Complete to remote process %d (%d:%d requests)\n",
armci_me, nb_handle->proc, index, aggr[index]->request_len);
#endif
/* complete the data transfer. NOTE: in LAPI, Non-blocking calls
(followed by wait) performs better than blocking put/get */
if(aggr[index]->request_len) {
switch(nb_handle->op) {
#ifdef LAPI
armci_hdl_t usr_hdl;
case PUT:
ARMCI_INIT_HANDLE(&usr_hdl);
if((rc=ARMCI_NbPutV(aggr[index]->darr, aggr[index]->request_len,
nb_handle->proc, (armci_hdl_t*)&usr_hdl)))
ARMCI_Error("armci_agg_complete: nbputv failed",rc);
ARMCI_Wait((armci_hdl_t*)&usr_hdl);
break;
case GET:
ARMCI_INIT_HANDLE(&usr_hdl);
if((rc=ARMCI_NbGetV(aggr[index]->darr, aggr[index]->request_len,
nb_handle->proc, (armci_hdl_t*)&usr_hdl)))
ARMCI_Error("armci_agg_complete: nbgetv failed",rc);
ARMCI_Wait((armci_hdl_t*)&usr_hdl);
break;
#else
case PUT:
if((rc=ARMCI_PutV(aggr[index]->darr, aggr[index]->request_len,
nb_handle->proc)))
ARMCI_Error("armci_agg_complete: putv failed",rc);
break;
case GET:
if((rc=ARMCI_GetV(aggr[index]->darr, aggr[index]->request_len,
nb_handle->proc)))
ARMCI_Error("armci_agg_complete: getv failed",rc);
break;
#endif
}
}
/* setting request length to zero, as the requests are completed */
aggr[index]->request_len = 0;
aggr[index]->ptr_array_len = 0;
aggr[index]->buf_pos_end = _MAX_AGG_BUFSIZE;
/* If armci_agg_complete() is called ARMCI_Wait(), then unset nb_handle*/
if(condition==UNSET) {
nb_handle->proc = -1;
_armci_agg_update_lists(index);
}
}
int ARMCI_NbGetV(armci_giov_t *iov, int iov_len, int proc, armci_hdl_t* handle) {
return ARMCI_GetV(iov, iov_len, proc);
}
