X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fcontrol.F90;h=a1e49d3d5e85d9201b88b1956ca31d6215d2aab5;hb=59735b24a86ad80ac3115b6d36daf54254eac51f;hp=7160f8fcd34e1135a6c06dbc6ad3d6566f9f43bf;hpb=9284fb3928f0940c60f47f4adb79b0ea7b281da6;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)