Merge branch 'homology' of mmka.chem.univ.gda.pl:unres into homology
[unres.git] / source / unres / src_CSA / COMMON.INFO
1 c NPROCS   - total number of processors;
2 c MyID     - processor's ID;
3 c MasterID - master processor's ID.
4       integer MyId,AllGrp,DontCare,MasterId,WhatsUp,ifinish
5       logical koniec
6       integer tag,status(MPI_STATUS_SIZE)
7       common /info/ myid,masterid,allgrp,dontcare,
8      &    koniec(0:maxprocs-1),WhatsUp,ifinish(maxprocs-1)
9 c... 5/12/96 - added variables for collective communication
10 c FGPROCS - Number of fine-grain processors per coarse-grain task;
11 c NCTASKS - Number of coarse-grain tasks;
12 c MYGROUP - label of the processor's FG group id;
13 c BOSSID  - ID of group's master;
14 c FGLIST  - list of group's FG processors.
15 c MSGLEN_VAR - length of the vector of variables passed to the fine-grain 
16 c              slave processors
17       integer fgprocs,nctasks,mygroup,bossid,cglabel,
18      &        cglist(max_cg_procs),cgGroupID,fglist(max_fg_procs),
19      &        fgGroupID,MyRank
20       common /info1/ fgprocs,nctasks,mygroup,bossid,cglabel,cglist,
21      &        cgGroupID,fglist,fgGroupID,MyRank,msglen_var