X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-newcorr%2FCOMMON.SETUP;fp=source%2Funres%2Fsrc_MD-M-newcorr%2FCOMMON.SETUP;h=50391169acf2494e92bd50af817c324e347d757d;hb=d101c97dea752458d76055fdbae49c26fff03c1f;hp=0000000000000000000000000000000000000000;hpb=325eda160c9ad2982501e091ca40606a29043712;p=unres.git

diff --git a/source/unres/src_MD-M-newcorr/COMMON.SETUP b/source/unres/src_MD-M-newcorr/COMMON.SETUP
new file mode 100644
index 0000000..5039116
--- /dev/null
+++ b/source/unres/src_MD-M-newcorr/COMMON.SETUP
@@ -0,0 +1,21 @@
+      integer king,idint,idreal,idchar,is_done
+      parameter (king=0,idint=1105,idreal=1729,idchar=1597,is_done=1)
+      integer me,cg_rank,fg_rank,fg_rank1,nodes,Nprocs,nfgtasks,kolor,
+     & koniec(0:maxprocs-1),WhatsUp,ifinish(maxprocs-1),CG_COMM,FG_COMM,
+     & 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,
+     & max_gs_size,kolor,koniec,WhatsUp,ifinish,CG_COMM,FG_COMM,
+     & FG_COMM1,CONT_FROM_COMM,CONT_TO_COMM,lentyp
+      integer MPI_UYZ,MPI_UYZGRAD,MPI_MU,MPI_MAT1,MPI_MAT2,
+     & MPI_THET,MPI_GAM,
+     & MPI_ROTAT1(0:1),MPI_ROTAT2(0:1),MPI_ROTAT_OLD(0:1),
+     & MPI_PRECOMP11(0:1),MPI_PRECOMP12(0:1),MPI_PRECOMP22(0:1),
+     & MPI_PRECOMP23(0:1)
+      common /types/ MPI_UYZ,MPI_UYZGRAD,MPI_MU,MPI_MAT1,MPI_MAT2,
+     & MPI_THET,MPI_GAM,
+     & MPI_ROTAT1,MPI_ROTAT2,MPI_ROTAT_OLD,MPI_PRECOMP11,MPI_PRECOMP12,
+     & MPI_PRECOMP22,MPI_PRECOMP23