& FG_COMM1,CONT_FROM_COMM,CONT_TO_COMM,lentyp(0:maxprocs-1),
& kolor1,key1,nfgtasks1,MyRank,
& max_gs_size
logical yourjob, finished, cgdone
common/setup/me,MyRank,cg_rank,fg_rank,fg_rank1,nodes,Nprocs,
& nfgtasks,nfgtasks1,
& FG_COMM1,CONT_FROM_COMM,CONT_TO_COMM,lentyp(0:maxprocs-1),
& kolor1,key1,nfgtasks1,MyRank,
& max_gs_size
logical yourjob, finished, cgdone
common/setup/me,MyRank,cg_rank,fg_rank,fg_rank1,nodes,Nprocs,
& nfgtasks,nfgtasks1,