respa cleaning (my bug) and shielding MPI and previous bug cleaning
[unres.git] / source / unres / src_MD-M / COMMON.SETUP
index 5039116..d3ff6af 100644 (file)
      & 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_THET,MPI_GAM,MPI_I50,MPI_SHI,
      & 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_THET,MPI_GAM,MPI_I50,MPI_SHI,
      & MPI_ROTAT1,MPI_ROTAT2,MPI_ROTAT_OLD,MPI_PRECOMP11,MPI_PRECOMP12,
      & MPI_PRECOMP22,MPI_PRECOMP23