Beispiel #1
0
CDECL void MBLK_Init(int comm) {
  if (TCHARM_Element()==0) {
     CkArrayID threads; int nThreads;
     CkArrayOptions opt=TCHARM_Attach_start(&threads,&nThreads);
     CkArrayID aid=CProxy_MBlockChunk::ckNew(threads,opt);
  }
  MBlockChunk *c=(MBlockChunk *)TCharm::get()->semaGet(MBLOCK_TCHARM_SEMAID);
}
Beispiel #2
0
CDECL void 
FEM_Print(const char *str)
{
  const char *caller="FEM_Print"; FEMAPI(caller);
  CkPrintf("[%d] %s\n", TCHARM_Element(), str);
}
Beispiel #3
0
CDECL int
FEM_My_partition(void)
{
  return TCHARM_Element();
}