X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fcontrol.F90;fp=source%2Funres%2Fcontrol.F90;h=a1e49d3d5e85d9201b88b1956ca31d6215d2aab5;hb=df2469d9ac903d93889867f4e50e9bf6c428c1c6;hp=7160f8fcd34e1135a6c06dbc6ad3d6566f9f43bf;hpb=fe0a8e52832b7703fb74f8b6909871fc17047a02;p=unres4.git

diff --git a/source/unres/control.F90 b/source/unres/control.F90
index 7160f8f..a1e49d3 100644
--- a/source/unres/control.F90
+++ b/source/unres/control.F90
@@ -1389,10 +1389,10 @@
         call MPI_Type_commit(MPI_D50,IERROR)
 
          impishi=maxcontsshi*3
-        call MPI_Type_contiguous(impishi,MPI_DOUBLE_PRECISION, &
-        MPI_SHI,IERROR)
-        call MPI_Type_commit(MPI_SHI,IERROR)
-
+!        call MPI_Type_contiguous(impishi,MPI_DOUBLE_PRECISION, &
+!        MPI_SHI,IERROR)
+!        call MPI_Type_commit(MPI_SHI,IERROR)
+!        print *,MPI_SHI,"MPI_SHI",MPI_D50
         call MPI_Type_contiguous(2,MPI_DOUBLE_PRECISION,MPI_MU,IERROR)
         call MPI_Type_commit(MPI_MU,IERROR)
         call MPI_Type_contiguous(4,MPI_DOUBLE_PRECISION,MPI_MAT1,IERROR)