3 !-----------------------------------------------------------------------------
4 integer,parameter :: max_cg_procs=2048
5 !-----------------------------------------------------------------------------
7 ! NPROCS - total number of processors;
8 ! MyID - processor's ID;
9 ! MasterID - master processor's ID.
11 integer,dimension(:),allocatable :: status !(MPI_STATUS_SIZE)
13 integer :: myid,masterid,allgrp,dontcare,WhatsUp
14 logical,dimension(:),allocatable :: koniec !(0:maxprocs-1)
15 !el integer,dimension(:),allocatable :: ifinish !(maxprocs-1)
16 !... 5/12/96 - added variables for collective communication
17 ! FGPROCS - Number of fine-grain processors per coarse-grain task;
18 ! NCTASKS - Number of coarse-grain tasks;
19 ! MYGROUP - label of the processor's FG group id;
20 ! BOSSID - ID of group's master;
21 ! FGLIST - list of group's FG processors.
22 ! MSGLEN_VAR - length of the vector of variables passed to the fine-grain
25 integer :: fgprocs,nctasks,mygroup,bossid,cglabel,&
26 cgGroupID,fgGroupID,msglen_var
27 integer,dimension(:),allocatable :: cglist,fglist !(max_fg_procs) !not used ???
28 !-----------------------------------------------------------------------------
30 integer,parameter :: king=0,idint=1105
31 integer,parameter :: idreal=1729,idchar=1597,is_done=1
33 integer :: me,cg_rank,fg_rank,fg_rank1,nodes,Nprocs,nfgtasks,&
34 kolor,nfgtasks1,MyRank,kolor1,key1,max_gs_size,&
35 CG_COMM,FG_COMM,FG_COMM1,CONT_FROM_COMM,CONT_TO_COMM
36 !el integer,dimension(:),allocatable :: koniec !(0:maxprocs-1)
37 integer,dimension(:),allocatable :: lentyp !(0:maxprocs-1)
38 integer,dimension(:),allocatable :: ifinish !(maxprocs-1)
39 logical :: yourjob,finished,cgdone
41 integer :: MPI_UYZ,MPI_UYZGRAD,MPI_MU,MPI_MAT1,MPI_MAT2,&
42 MPI_THET,MPI_GAM,MPI_I50,MPI_D50
44 real (kind=8),dimension(150) :: cokolwiek
46 type(MPI_SHI) :: aletoglupie
47 integer,dimension(0:1) :: MPI_ROTAT1,MPI_ROTAT2,MPI_ROTAT_OLD,&
48 MPI_PRECOMP11,MPI_PRECOMP12,MPI_PRECOMP22,MPI_PRECOMP23
49 !-----------------------------------------------------------------------------
50 #if defined(WHAM_RUN) || defined(CLUSTER)
53 integer :: Master,Master1,Comm1,Me1,Nprocs1,WHAM_COMM
54 integer,dimension(:),allocatable :: Indstart,Indend,idispl,&
57 !-----------------------------------------------------------------------------