Attachment #579892 for bug #684750

Lines 6-11 Link Here

(-)scalapack-2.0.2/BLACS/SRC/Bdef.h (+7 lines)
6	*/	6	*/
7	#include "Bconfig.h"	7	#include "Bconfig.h"
8		8
		9	void BI_ivmcopy(int m, int n, int A, int lda, int buff);
		10	void BI_smvcopy(int m, int n, float A, int lda, float buff);
		11	void BI_dmvcopy(int m, int n, double A, int lda, double buff);
		12	void BI_svmcopy(int m, int n, float A, int lda, float buff);
		13	void BI_smvcopy(int m, int n, float A, int lda, float buff);
		14	void BI_imvcopy(int m, int n, int A, int lda, int buff);
		15
9	/*	16	/*
10	* Data type defining a scope for the BLACS	17	* Data type defining a scope for the BLACS
11	*/	18	*/

Lines 221-227 Link Here

(-)scalapack-2.0.2/BLACS/SRC/cgamn2d_.c (-1 / +1 lines)
221	{	221	{
222	#endif	222	#endif
223	i = 2;	223	i = 2;
224	ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);	224	ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
225	ierr=MPI_Type_commit(&MyType);	225	ierr=MPI_Type_commit(&MyType);
226	bp->N = bp2->N = 1;	226	bp->N = bp2->N = 1;
227	bp->dtype = bp2->dtype = MyType;	227	bp->dtype = bp2->dtype = MyType;

Lines 221-227 Link Here

(-)scalapack-2.0.2/BLACS/SRC/cgamx2d_.c (-1 / +1 lines)
221	{	221	{
222	#endif	222	#endif
223	i = 2;	223	i = 2;
224	ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);	224	ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
225	ierr=MPI_Type_commit(&MyType);	225	ierr=MPI_Type_commit(&MyType);
226	bp->N = bp2->N = 1;	226	bp->N = bp2->N = 1;
227	bp->dtype = bp2->dtype = MyType;	227	bp->dtype = bp2->dtype = MyType;

Lines 221-227 Link Here

(-)scalapack-2.0.2/BLACS/SRC/dgamn2d_.c (-1 / +1 lines)
221	{	221	{
222	#endif	222	#endif
223	i = 2;	223	i = 2;
224	ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);	224	ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
225	ierr=MPI_Type_commit(&MyType);	225	ierr=MPI_Type_commit(&MyType);
226	bp->N = bp2->N = 1;	226	bp->N = bp2->N = 1;
227	bp->dtype = bp2->dtype = MyType;	227	bp->dtype = bp2->dtype = MyType;

Lines 221-227 Link Here

(-)scalapack-2.0.2/BLACS/SRC/dgamx2d_.c (-1 / +1 lines)
221	{	221	{
222	#endif	222	#endif
223	i = 2;	223	i = 2;
224	ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);	224	ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
225	ierr=MPI_Type_commit(&MyType);	225	ierr=MPI_Type_commit(&MyType);
226	bp->N = bp2->N = 1;	226	bp->N = bp2->N = 1;
227	bp->dtype = bp2->dtype = MyType;	227	bp->dtype = bp2->dtype = MyType;

Lines 218-224 Link Here

(-)scalapack-2.0.2/BLACS/SRC/igamn2d_.c (-1 / +1 lines)
218	{	218	{
219	#endif	219	#endif
220	i = 2;	220	i = 2;
221	ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);	221	ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
222	ierr=MPI_Type_commit(&MyType);	222	ierr=MPI_Type_commit(&MyType);
223	bp->N = bp2->N = 1;	223	bp->N = bp2->N = 1;
224	bp->dtype = bp2->dtype = MyType;	224	bp->dtype = bp2->dtype = MyType;

Lines 218-224 Link Here

(-)scalapack-2.0.2/BLACS/SRC/igamx2d_.c (-1 / +1 lines)
218	{	218	{
219	#endif	219	#endif
220	i = 2;	220	i = 2;
221	ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);	221	ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
222	ierr=MPI_Type_commit(&MyType);	222	ierr=MPI_Type_commit(&MyType);
223	bp->N = bp2->N = 1;	223	bp->N = bp2->N = 1;
224	bp->dtype = bp2->dtype = MyType;	224	bp->dtype = bp2->dtype = MyType;

Lines 1-6 Link Here

(-)scalapack-2.0.2/BLACS/SRC/igsum2d_.c (-1 lines)
1	#include "Bdef.h"	1	#include "Bdef.h"
2		2
3
4	#if (INTFACE == C_CALL)	3	#if (INTFACE == C_CALL)
5	void Cigsum2d(int ConTxt, char scope, char top, int m, int n, int *A,	4	void Cigsum2d(int ConTxt, char scope, char top, int m, int n, int *A,
6	int lda, int rdest, int cdest)	5	int lda, int rdest, int cdest)

Lines 221-227 Link Here

(-)scalapack-2.0.2/BLACS/SRC/sgamn2d_.c (-1 / +1 lines)
221	{	221	{
222	#endif	222	#endif
223	i = 2;	223	i = 2;
224	ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);	224	ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
225	ierr=MPI_Type_commit(&MyType);	225	ierr=MPI_Type_commit(&MyType);
226	bp->N = bp2->N = 1;	226	bp->N = bp2->N = 1;
227	bp->dtype = bp2->dtype = MyType;	227	bp->dtype = bp2->dtype = MyType;

Lines 221-227 Link Here

(-)scalapack-2.0.2/BLACS/SRC/sgamx2d_.c (-1 / +1 lines)
221	{	221	{
222	#endif	222	#endif
223	i = 2;	223	i = 2;
224	ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);	224	ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
225	ierr=MPI_Type_commit(&MyType);	225	ierr=MPI_Type_commit(&MyType);
226	bp->N = bp2->N = 1;	226	bp->N = bp2->N = 1;
227	bp->dtype = bp2->dtype = MyType;	227	bp->dtype = bp2->dtype = MyType;

Lines 221-227 Link Here

(-)scalapack-2.0.2/BLACS/SRC/zgamn2d_.c (-1 / +1 lines)
221	{	221	{
222	#endif	222	#endif
223	i = 2;	223	i = 2;
224	ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);	224	ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
225	ierr=MPI_Type_commit(&MyType);	225	ierr=MPI_Type_commit(&MyType);
226	bp->N = bp2->N = 1;	226	bp->N = bp2->N = 1;
227	bp->dtype = bp2->dtype = MyType;	227	bp->dtype = bp2->dtype = MyType;

Lines 221-227 Link Here

(-)scalapack-2.0.2/BLACS/SRC/zgamx2d_.c (-1 / +1 lines)
221	{	221	{
222	#endif	222	#endif
223	i = 2;	223	i = 2;
224	ierr=MPI_Type_struct(i, len, disp, dtypes, &MyType);	224	ierr=MPI_Type_create_struct(i, len, disp, dtypes, &MyType);
225	ierr=MPI_Type_commit(&MyType);	225	ierr=MPI_Type_commit(&MyType);
226	bp->N = bp2->N = 1;	226	bp->N = bp2->N = 1;
227	bp->dtype = bp2->dtype = MyType;	227	bp->dtype = bp2->dtype = MyType;

Return to bug 684750