source/cluster/wham/src/COMMON.SETUP

   1       integer king,idint,idreal,idchar,is_done
   2       parameter (king=0,idint=1105,idreal=1729,idchar=1597,is_done=1)
   3       integer me,cg_rank,fg_rank,fg_rank1,nodes,Nprocs,nfgtasks,kolor,
   4      & koniec(0:maxprocs-1),WhatsUp,ifinish(maxprocs-1),CG_COMM,FG_COMM,
   5      & FG_COMM1,CONT_FROM_COMM,CONT_TO_COMM,lentyp(0:maxprocs-1),
   6      & kolor1,key1,nfgtasks1,MyRank,
   7      & max_gs_size
   8       logical yourjob, finished, cgdone
   9       common/setup/me,MyRank,cg_rank,fg_rank,fg_rank1,nodes,Nprocs,
  10      & nfgtasks,nfgtasks1,
  11      & max_gs_size,kolor,koniec,WhatsUp,ifinish,CG_COMM,FG_COMM,
  12      & FG_COMM1,CONT_FROM_COMM,CONT_TO_COMM,lentyp
  13       integer MPI_UYZ,MPI_UYZGRAD,MPI_MU,MPI_MAT1,MPI_MAT2,
  14      & MPI_THET,MPI_GAM,
  15      & MPI_ROTAT1(0:1),MPI_ROTAT2(0:1),MPI_ROTAT_OLD(0:1),
  16      & MPI_PRECOMP11(0:1),MPI_PRECOMP12(0:1),MPI_PRECOMP22(0:1),
  17      & MPI_PRECOMP23(0:1)
  18       common /types/ MPI_UYZ,MPI_UYZGRAD,MPI_MU,MPI_MAT1,MPI_MAT2,
  19      & MPI_THET,MPI_GAM,
  20      & MPI_ROTAT1,MPI_ROTAT2,MPI_ROTAT_OLD,MPI_PRECOMP11,MPI_PRECOMP12,
  21      & MPI_PRECOMP22,MPI_PRECOMP23