+++ /dev/null
-c NPROCS - total number of processors;
-c MyID - processor's ID;
-c MasterID - master processor's ID.
- integer MyId,AllGrp,DontCare,MasterId,WhatsUp,ifinish
- logical koniec
- integer tag,status(MPI_STATUS_SIZE)
- common /info/ myid,masterid,allgrp,dontcare,
- & koniec(0:maxprocs-1),WhatsUp,ifinish(maxprocs-1)
-c... 5/12/96 - added variables for collective communication
-c FGPROCS - Number of fine-grain processors per coarse-grain task;
-c NCTASKS - Number of coarse-grain tasks;
-c MYGROUP - label of the processor's FG group id;
-c BOSSID - ID of group's master;
-c FGLIST - list of group's FG processors.
-c MSGLEN_VAR - length of the vector of variables passed to the fine-grain
-c slave processors
- integer fgprocs,nctasks,mygroup,bossid,cglabel,
- & cglist(max_cg_procs),cgGroupID,fglist(max_fg_procs),
- & fgGroupID,MyRank
- common /info1/ fgprocs,nctasks,mygroup,bossid,cglabel,cglist,
- & cgGroupID,fglist,fgGroupID,MyRank,msglen_var