Attachment #594500 for bug #684750

Lines 22-28 F_VOID_FUNC blacs_get_(int ConTxt, int what, int *val) Link Here

(-)a/BLACS/SRC/blacs_get_.c (-1 / +1 lines)
22	case SGET_MSGIDS:	22	case SGET_MSGIDS:
23	if (BI_COMM_WORLD == NULL) Cblacs_pinfo(val, &val[1]);	23	if (BI_COMM_WORLD == NULL) Cblacs_pinfo(val, &val[1]);
24	iptr = &val[1];	24	iptr = &val[1];
25	ierr=MPI_Attr_get(MPI_COMM_WORLD, MPI_TAG_UB, (BVOID **) &iptr,val);	25	ierr=MPI_Comm_get_attr(MPI_COMM_WORLD, MPI_TAG_UB, (BVOID **) &iptr,val);
26	val[0] = 0;	26	val[0] = 0;
27	val[1] = *iptr;	27	val[1] = *iptr;
28	break;	28	break;

Lines 221-227 F_VOID_FUNC cgamn2d_(int ConTxt, F_CHAR scope, F_CHAR top, int m, int *n, Link Here

(-)a/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 F_VOID_FUNC cgamx2d_(int ConTxt, F_CHAR scope, F_CHAR top, int m, int *n, Link Here

(-)a/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 F_VOID_FUNC dgamn2d_(int ConTxt, F_CHAR scope, F_CHAR top, int m, int *n, Link Here

(-)a/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 F_VOID_FUNC dgamx2d_(int ConTxt, F_CHAR scope, F_CHAR top, int m, int *n, Link Here

(-)a/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 F_VOID_FUNC igamn2d_(int ConTxt, F_CHAR scope, F_CHAR top, int m, int *n, Link Here

(-)a/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 F_VOID_FUNC igamx2d_(int ConTxt, F_CHAR scope, F_CHAR top, int m, int *n, Link Here

(-)a/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 221-227 F_VOID_FUNC sgamn2d_(int ConTxt, F_CHAR scope, F_CHAR top, int m, int *n, Link Here

(-)a/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 F_VOID_FUNC sgamx2d_(int ConTxt, F_CHAR scope, F_CHAR top, int m, int *n, Link Here

(-)a/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 F_VOID_FUNC zgamn2d_(int ConTxt, F_CHAR scope, F_CHAR top, int m, int *n, Link Here

(-)a/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 F_VOID_FUNC zgamx2d_(int ConTxt, F_CHAR scope, F_CHAR top, int m, int *n, Link Here

(-)a/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