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

diff --git a/source/unres/control.F90 b/source/unres/control.F90
index 4c413ec..a1e49d3 100644
--- a/source/unres/control.F90
+++ b/source/unres/control.F90
@@ -1385,11 +1385,14 @@
         call MPI_Type_commit(MPI_UYZGRAD,IERROR)
         call MPI_Type_contiguous(maxcontsshi,MPI_INTEGER,MPI_I50,IERROR)
         call MPI_Type_commit(MPI_I50,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(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)
+!        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)