24小时热门版块排行榜

返回列表

oyezzy

铁虫 (小有名气)

应助: 5 (幼儿园)
金币: 2.1
散金: 25
红花: 4
帖子: 108
在线: 84.7小时
虫号: 1436231
注册: 2011-10-11
性别: GG
专业: 理论和计算化学

[求助] Qchem并行任务分配

Qchem并行编译后并行计算失败。任务没有分到各个核上。

CODE:

static load balancer(SLB) for parallel execution

（（ methods: reset(); next(); // return value starting from 1 myturn(); // used in loops like // for (int i=0;i  ）

class GPISLB //(The Global address space Programming Interface (GPI))
{
public:
   GPISLB(int ntask0):ntask(ntask0)
   {
         me=mype(); nproc=npes(); reset();
   };
   GPISLB()
   {
         ntask=0;
         me=mype(); nproc=npes(); reset();
   };
   int  me;
   int  nproc;
   int  ntask;
   int  icount;
   int  icalled;
   void reset() { globalbarrier(); icount=me+1; icalled=0; globalbarrier(); };
   long next()  { int icnt=icount; icount+=nproc; return icnt; };
   bool myturn(){ icalled++;
                  bool rt=false;
                  if ( icalled == icount ) {
                     next();
                     rt=true;
                  }
                  return rt;
               };

};

这段自带的分配代码有问题么？