X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fdata%2FMPI_data.f90;fp=source%2Funres%2Fdata%2FMPI_data.f90;h=0000000000000000000000000000000000000000;hb=2611e37f82b576a1366c2d78fce87c1a55852037;hp=3ed522b9fb60f689c1d1af90b31ea44e7344f7a8;hpb=a1e9d5a6b704c90ebd10f86a655780212a880dce;p=unres4.git

diff --git a/source/unres/data/MPI_data.f90 b/source/unres/data/MPI_data.f90
deleted file mode 100644
index 3ed522b..0000000
--- a/source/unres/data/MPI_data.f90
+++ /dev/null
@@ -1,54 +0,0 @@
-      module MPI_data
-      
-!-----------------------------------------------------------------------------
-      integer,parameter :: max_cg_procs=2048
-!-----------------------------------------------------------------------------
-! commom.info
-! NPROCS   - total number of processors;
-! MyID     - processor's ID;
-! MasterID - master processor's ID.
-      integer :: tag
-      integer,dimension(:),allocatable :: status	!(MPI_STATUS_SIZE)
-!      common /info/
-      integer :: myid,masterid,allgrp,dontcare,WhatsUp
-      logical,dimension(:),allocatable :: koniec !(0:maxprocs-1)
-!el      integer,dimension(:),allocatable :: ifinish !(maxprocs-1)
-!... 5/12/96 - added variables for collective communication
-! FGPROCS - Number of fine-grain processors per coarse-grain task;
-! NCTASKS - Number of coarse-grain tasks;
-! MYGROUP - label of the processor's FG group id;
-! BOSSID  - ID of group's master;
-! FGLIST  - list of group's FG processors.
-! MSGLEN_VAR - length of the vector of variables passed to the fine-grain 
-!              slave processors
-!      common /info1/
-      integer :: fgprocs,nctasks,mygroup,bossid,cglabel,&
-       cgGroupID,fgGroupID,msglen_var
-      integer,dimension(:),allocatable :: cglist,fglist !(max_fg_procs) !not used ???
-!-----------------------------------------------------------------------------
-! common.setup
-      integer,parameter :: king=0,idint=1105
-      integer,parameter :: idreal=1729,idchar=1597,is_done=1
-!      common/setup/
-      integer :: me,cg_rank,fg_rank,fg_rank1,nodes,Nprocs,nfgtasks,&
-       kolor,nfgtasks1,MyRank,kolor1,key1,max_gs_size,&
-       CG_COMM,FG_COMM,FG_COMM1,CONT_FROM_COMM,CONT_TO_COMM
-!el      integer,dimension(:),allocatable ::  koniec !(0:maxprocs-1)
-      integer,dimension(:),allocatable ::  lentyp !(0:maxprocs-1)
-      integer,dimension(:),allocatable :: ifinish !(maxprocs-1)
-      logical :: yourjob,finished,cgdone
-!      common /types/
-      integer :: MPI_UYZ,MPI_UYZGRAD,MPI_MU,MPI_MAT1,MPI_MAT2,&
-       MPI_THET,MPI_GAM
-      integer,dimension(0:1) :: MPI_ROTAT1,MPI_ROTAT2,MPI_ROTAT_OLD,&
-       MPI_PRECOMP11,MPI_PRECOMP12,MPI_PRECOMP22,MPI_PRECOMP23
-!-----------------------------------------------------------------------------
-#if defined(WHAM_RUN) || defined(CLUSTER)
-! COMMON.MPI 
-!      common /MPI_Data/
-      integer :: Master,Master1,Comm1,Me1,Nprocs1,WHAM_COMM
-      integer,dimension(:),allocatable :: Indstart,Indend,idispl,&
-        scount !(0:MaxProcs)
-#endif
-!-----------------------------------------------------------------------------
-      end module MPI_data