X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD_DFA%2FCOMMON.INFO;fp=source%2Funres%2Fsrc_MD_DFA%2FCOMMON.INFO;h=4f63708d66bff4c8e78c65618c0d838f6afba220;hb=d21d93a57773de0c363db8764a376202f3a0552d;hp=0000000000000000000000000000000000000000;hpb=b8f5b4118dc932c21ad2bdbba905850f8297a6a2;p=unres.git

diff --git a/source/unres/src_MD_DFA/COMMON.INFO b/source/unres/src_MD_DFA/COMMON.INFO
new file mode 100644
index 0000000..4f63708
--- /dev/null
+++ b/source/unres/src_MD_DFA/COMMON.INFO
@@ -0,0 +1,21 @@
+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