Merge branch 'UCGM' of mmka.chem.univ.gda.pl:unres4 into UCGM

[unres4.git] / source / unres / control.F90

diff --git a/source/unres/control.F90 b/source/unres/control.F90
index 4c413ec..a1e49d3 100644 (file)
--- 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)