+++ /dev/null
- 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
-!-----------------------------------------------------------------------------
-#ifdef WHAM_RUN
-! 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