void _XMP_init_tca()
{
if(_XMP_world_size > 16)
_XMP_fatal("TCA reflect has been not implemented in 16 more than nodes.");
tcaInit();
tcaDMADescInt_Init(); // Initialize Descriptor (Internal Memory) Mode
}
/**
Initialize TCA
*/
void _XMP_tca_initialize(int argc, char **argv)
{
if(_XMP_world_rank == 0){
fprintf(stderr, "TCA Library Version = %s\n", TCA_LIB_VERSION);
}
if(_XMP_world_size > 16)
_XMP_fatal("TCA reflect has been not implemented in 16 more than nodes.");
_XMP_tca_lock();
/* TCA_CHECK(tcaInit()); */
//this is probably unnecessary
TCA_CHECK(tcaDMADescInt_Init()); // Initialize Descriptor (Internal Memory) Mode
_XMP_tca_comm_init();
create_comm_thread();
_XMP_tca_unlock();
}
