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

diff --git a/source/unres/control.F90 b/source/unres/control.F90
index 4c413ec..7160f8f 100644
--- a/source/unres/control.F90
+++ b/source/unres/control.F90
@@ -1385,6 +1385,9 @@
         call MPI_Type_commit(MPI_UYZGRAD,IERROR)
         call MPI_Type_contiguous(maxcontsshi,MPI_INTEGER,MPI_I50,IERROR)
         call MPI_Type_commit(MPI_I50,IERROR)
+        call MPI_Type_contiguous(maxcontsshi,MPI_DOUBLE_PRECISION,MPI_D50,IERROR)
+        call MPI_Type_commit(MPI_D50,IERROR)
+
          impishi=maxcontsshi*3
         call MPI_Type_contiguous(impishi,MPI_DOUBLE_PRECISION, &
         MPI_SHI,IERROR)