Example #1
0
void ARMCI_AllFence()
{
    
    armci_profile_start(ARMCI_PROF_ALLFENCE);
    PARMCI_AllFence();
    armci_profile_stop(ARMCI_PROF_ALLFENCE);
    
}
Example #2
0
void ARMCI_AllFence()
{

    static double stime, etime;
    stime = TIME();
    PARMCI_AllFence();
    etime = TIME();
    ARMCI_AllFence_t += etime - stime;
}
Example #3
0
void PARMCI_Barrier()
{
    if(armci_nproc==1)return;
    PARMCI_AllFence();
#  ifdef MPI
    MPI_Barrier(ARMCI_COMM_WORLD);
#  else
    {
       long type=ARMCI_TAG;
       SYNCH_(&type);
    }
#  endif
    MEM_FENCE;
}
Example #4
0
void PARMCI_Barrier()
{
    if (armci_nproc==1)
        return;
#if defined(BGML)
    BGML_WaitAll();
    bgml_barrier(3);
#else
    PARMCI_AllFence();
#  ifdef MPI
    MPI_Barrier(ARMCI_COMM_WORLD);
#  else
    {
       long type=ARMCI_TAG;
       tcg_synch(type);
    }
#  endif
#endif
    MEM_FENCE;
}
Example #5
0
void ARMCI_AllFence(void) {
  PARMCI_AllFence();
  return;
}