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

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