diff -ur scalapack-2.0.2/BLACS/SRC/Bdef.h /root/scalapack-2.0.2/BLACS/SRC/Bdef.h
--- scalapack-2.0.2/BLACS/SRC/Bdef.h	2012-04-24 18:26:51.000000000 +0200
+++ /root/scalapack-2.0.2/BLACS/SRC/Bdef.h	2019-06-15 15:11:07.235583823 +0200
@@ -6,6 +6,13 @@
  */
 #include "Bconfig.h"
 
+void BI_ivmcopy(int m, int n, int *A, int lda, int *buff);
+void BI_smvcopy(int m, int n, float *A, int lda, float *buff);
+void BI_dmvcopy(int m, int n, double *A, int lda, double *buff);
+void BI_svmcopy(int m, int n, float *A, int lda, float *buff);
+void BI_smvcopy(int m, int n, float *A, int lda, float *buff);
+void BI_imvcopy(int m, int n, int *A, int lda, int *buff);
+
 /*
  * Data type defining a scope for the BLACS
  */
diff -ur scalapack-2.0.2/BLACS/SRC/cgamn2d_.c /root/scalapack-2.0.2/BLACS/SRC/cgamn2d_.c
--- scalapack-2.0.2/BLACS/SRC/cgamn2d_.c	2012-04-24 18:26:51.000000000 +0200
+++ /root/scalapack-2.0.2/BLACS/SRC/cgamn2d_.c	2019-06-15 16:56:45.767234543 +0200
@@ -221,7 +221,7 @@
       {
 #endif
       i = 2;
-      ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);
+      ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
       ierr=MPI_Type_commit(&MyType);
       bp->N = bp2->N = 1;
       bp->dtype = bp2->dtype = MyType;
diff -ur scalapack-2.0.2/BLACS/SRC/cgamx2d_.c /root/scalapack-2.0.2/BLACS/SRC/cgamx2d_.c
--- scalapack-2.0.2/BLACS/SRC/cgamx2d_.c	2012-04-24 18:26:51.000000000 +0200
+++ /root/scalapack-2.0.2/BLACS/SRC/cgamx2d_.c	2019-06-15 16:56:45.767234543 +0200
@@ -221,7 +221,7 @@
       {
 #endif
       i = 2;
-      ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);
+      ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
       ierr=MPI_Type_commit(&MyType);
       bp->N = bp2->N = 1;
       bp->dtype = bp2->dtype = MyType;
diff -ur scalapack-2.0.2/BLACS/SRC/dgamn2d_.c /root/scalapack-2.0.2/BLACS/SRC/dgamn2d_.c
--- scalapack-2.0.2/BLACS/SRC/dgamn2d_.c	2012-04-24 18:26:51.000000000 +0200
+++ /root/scalapack-2.0.2/BLACS/SRC/dgamn2d_.c	2019-06-15 16:56:45.765234543 +0200
@@ -221,7 +221,7 @@
       {
 #endif
       i = 2;
-      ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);
+      ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
       ierr=MPI_Type_commit(&MyType);
       bp->N = bp2->N = 1;
       bp->dtype = bp2->dtype = MyType;
diff -ur scalapack-2.0.2/BLACS/SRC/dgamx2d_.c /root/scalapack-2.0.2/BLACS/SRC/dgamx2d_.c
--- scalapack-2.0.2/BLACS/SRC/dgamx2d_.c	2012-04-24 18:26:51.000000000 +0200
+++ /root/scalapack-2.0.2/BLACS/SRC/dgamx2d_.c	2019-06-15 16:56:45.769234543 +0200
@@ -221,7 +221,7 @@
       {
 #endif
       i = 2;
-      ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);
+      ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
       ierr=MPI_Type_commit(&MyType);
       bp->N = bp2->N = 1;
       bp->dtype = bp2->dtype = MyType;
diff -ur scalapack-2.0.2/BLACS/SRC/igamn2d_.c /root/scalapack-2.0.2/BLACS/SRC/igamn2d_.c
--- scalapack-2.0.2/BLACS/SRC/igamn2d_.c	2012-04-24 18:26:51.000000000 +0200
+++ /root/scalapack-2.0.2/BLACS/SRC/igamn2d_.c	2019-06-15 16:56:45.764234543 +0200
@@ -218,7 +218,7 @@
       {
 #endif
       i = 2;
-      ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);
+      ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
       ierr=MPI_Type_commit(&MyType);
       bp->N = bp2->N = 1;
       bp->dtype = bp2->dtype = MyType;
diff -ur scalapack-2.0.2/BLACS/SRC/igamx2d_.c /root/scalapack-2.0.2/BLACS/SRC/igamx2d_.c
--- scalapack-2.0.2/BLACS/SRC/igamx2d_.c	2012-04-24 18:26:51.000000000 +0200
+++ /root/scalapack-2.0.2/BLACS/SRC/igamx2d_.c	2019-06-15 16:56:45.767234543 +0200
@@ -218,7 +218,7 @@
       {
 #endif
       i = 2;
-      ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);
+      ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
       ierr=MPI_Type_commit(&MyType);
       bp->N = bp2->N = 1;
       bp->dtype = bp2->dtype = MyType;
diff -ur scalapack-2.0.2/BLACS/SRC/igsum2d_.c /root/scalapack-2.0.2/BLACS/SRC/igsum2d_.c
--- scalapack-2.0.2/BLACS/SRC/igsum2d_.c	2011-09-28 19:07:24.000000000 +0200
+++ /root/scalapack-2.0.2/BLACS/SRC/igsum2d_.c	2019-06-15 15:04:08.787606881 +0200
@@ -1,6 +1,5 @@
 #include "Bdef.h"
 
-
 #if (INTFACE == C_CALL)
 void Cigsum2d(int ConTxt, char *scope, char *top, int m, int n, int *A,
               int lda, int rdest, int cdest)
diff -ur scalapack-2.0.2/BLACS/SRC/sgamn2d_.c /root/scalapack-2.0.2/BLACS/SRC/sgamn2d_.c
--- scalapack-2.0.2/BLACS/SRC/sgamn2d_.c	2012-04-24 18:26:51.000000000 +0200
+++ /root/scalapack-2.0.2/BLACS/SRC/sgamn2d_.c	2019-06-15 16:56:45.766234543 +0200
@@ -221,7 +221,7 @@
       {
 #endif
       i = 2;
-      ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);
+      ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
       ierr=MPI_Type_commit(&MyType);
       bp->N = bp2->N = 1;
       bp->dtype = bp2->dtype = MyType;
diff -ur scalapack-2.0.2/BLACS/SRC/sgamx2d_.c /root/scalapack-2.0.2/BLACS/SRC/sgamx2d_.c
--- scalapack-2.0.2/BLACS/SRC/sgamx2d_.c	2012-04-24 18:26:51.000000000 +0200
+++ /root/scalapack-2.0.2/BLACS/SRC/sgamx2d_.c	2019-06-15 16:56:45.765234543 +0200
@@ -221,7 +221,7 @@
       {
 #endif
       i = 2;
-      ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);
+      ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
       ierr=MPI_Type_commit(&MyType);
       bp->N = bp2->N = 1;
       bp->dtype = bp2->dtype = MyType;
diff -ur scalapack-2.0.2/BLACS/SRC/zgamn2d_.c /root/scalapack-2.0.2/BLACS/SRC/zgamn2d_.c
--- scalapack-2.0.2/BLACS/SRC/zgamn2d_.c	2012-04-24 18:26:51.000000000 +0200
+++ /root/scalapack-2.0.2/BLACS/SRC/zgamn2d_.c	2019-06-15 16:56:45.764234543 +0200
@@ -221,7 +221,7 @@
       {
 #endif
       i = 2;
-      ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);
+      ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
       ierr=MPI_Type_commit(&MyType);
       bp->N = bp2->N = 1;
       bp->dtype = bp2->dtype = MyType;
diff -ur scalapack-2.0.2/BLACS/SRC/zgamx2d_.c /root/scalapack-2.0.2/BLACS/SRC/zgamx2d_.c
--- scalapack-2.0.2/BLACS/SRC/zgamx2d_.c	2012-04-24 18:26:51.000000000 +0200
+++ /root/scalapack-2.0.2/BLACS/SRC/zgamx2d_.c	2019-06-15 16:56:45.768234543 +0200
@@ -221,7 +221,7 @@
       {
 #endif
       i = 2;
-      ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);
+      ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
       ierr=MPI_Type_commit(&MyType);
       bp->N = bp2->N = 1;
       bp->dtype = bp2->dtype = MyType;