Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Iker Martín Álvarez
Proteo
Commits
7daba8bb
Commit
7daba8bb
authored
Oct 22, 2021
by
iker_martin
Browse files
Arreglado error en point-to-point Resize
parent
3bbc423c
Changes
2
Hide whitespace changes
Inline
Side-by-side
Codes/Main/Main.c
View file @
7daba8bb
...
@@ -319,12 +319,6 @@ int check_redistribution(int iter, MPI_Request **comm_req) {
...
@@ -319,12 +319,6 @@ int check_redistribution(int iter, MPI_Request **comm_req) {
MPI_Abort
(
MPI_COMM_WORLD
,
test_err
);
MPI_Abort
(
MPI_COMM_WORLD
,
test_err
);
}
}
//MPI_Wait(req_completed, MPI_STATUS_IGNORE); //TODO BORRAR??
//int delete_me;
//MPI_Allreduce(&completed, &delete_me, 1, MPI_INT, MPI_SUM, MPI_COMM_WORLD); //TODO BORRAR
//if(group->myId == ROOT) {printf("Suma=%d para %d procs\n", delete_me, group->numP); fflush(stdout);}
MPI_Allreduce
(
&
completed
,
&
all_completed
,
1
,
MPI_INT
,
MPI_MIN
,
MPI_COMM_WORLD
);
MPI_Allreduce
(
&
completed
,
&
all_completed
,
1
,
MPI_INT
,
MPI_MIN
,
MPI_COMM_WORLD
);
if
(
!
all_completed
)
return
MAL_ASYNC_PENDING
;
// Continue only if asynchronous send has ended
if
(
!
all_completed
)
return
MAL_ASYNC_PENDING
;
// Continue only if asynchronous send has ended
...
...
Codes/malleability/CommDist.c
View file @
7daba8bb
...
@@ -342,6 +342,7 @@ void send_async_point_arrays(struct Dist_data dist_data, char *array, int rootBc
...
@@ -342,6 +342,7 @@ void send_async_point_arrays(struct Dist_data dist_data, char *array, int rootBc
counts
.
displs
[
i
]
=
counts
.
displs
[
i
-
1
]
+
counts
.
counts
[
i
-
1
];
counts
.
displs
[
i
]
=
counts
.
displs
[
i
-
1
]
+
counts
.
counts
[
i
-
1
];
MPI_Isend
(
array
+
counts
.
displs
[
i
],
counts
.
counts
[
i
],
MPI_CHAR
,
i
,
99
,
dist_data
.
intercomm
,
&
(
comm_req
[
i
]));
MPI_Isend
(
array
+
counts
.
displs
[
i
],
counts
.
counts
[
i
],
MPI_CHAR
,
i
,
99
,
dist_data
.
intercomm
,
&
(
comm_req
[
i
]));
}
}
//print_counts(dist_data, counts.counts, counts.displs, numP_child, "Padres");
}
}
/*
/*
...
@@ -385,12 +386,12 @@ void recv_async_point_arrays(struct Dist_data dist_data, char *array, int root,
...
@@ -385,12 +386,12 @@ void recv_async_point_arrays(struct Dist_data dist_data, char *array, int root,
if
(
idI
==
0
)
{
if
(
idI
==
0
)
{
set_counts
(
0
,
numP_parents
,
dist_data
,
counts
.
counts
);
set_counts
(
0
,
numP_parents
,
dist_data
,
counts
.
counts
);
idI
++
;
idI
++
;
MPI_Irecv
(
array
,
counts
.
counts
[
0
],
MPI_CHAR
,
0
,
99
,
dist_data
.
intercomm
,
&
(
comm_req
[
0
]));
MPI_Irecv
(
array
,
counts
.
counts
[
0
],
MPI_CHAR
,
0
,
99
,
dist_data
.
intercomm
,
&
(
comm_req
[
0
]));
//FIXME BUffer recv
}
}
for
(
i
=
idI
;
i
<
idE
;
i
++
)
{
for
(
i
=
idI
;
i
<
idE
;
i
++
)
{
set_counts
(
i
,
numP_parents
,
dist_data
,
counts
.
counts
);
set_counts
(
i
,
numP_parents
,
dist_data
,
counts
.
counts
);
counts
.
displs
[
i
]
=
counts
.
displs
[
i
-
1
]
+
counts
.
counts
[
i
-
1
];
counts
.
displs
[
i
]
=
counts
.
displs
[
i
-
1
]
+
counts
.
counts
[
i
-
1
];
MPI_Irecv
(
array
+
counts
.
displs
[
i
],
counts
.
counts
[
0
],
MPI_CHAR
,
i
,
99
,
dist_data
.
intercomm
,
&
(
comm_req
[
0
]));
MPI_Irecv
(
array
+
counts
.
displs
[
i
],
counts
.
counts
[
i
],
MPI_CHAR
,
i
,
99
,
dist_data
.
intercomm
,
&
(
comm_req
[
i
]));
//FIXME BUffer recv
}
}
//print_counts(dist_data, counts.counts, counts.displs, numP_parents, "Hijos");
//print_counts(dist_data, counts.counts, counts.displs, numP_parents, "Hijos");
}
}
...
@@ -549,8 +550,8 @@ void print_counts(struct Dist_data data_dist, int *xcounts, int *xdispls, int si
...
@@ -549,8 +550,8 @@ void print_counts(struct Dist_data data_dist, int *xcounts, int *xdispls, int si
int
i
;
int
i
;
for
(
i
=
0
;
i
<
size
;
i
++
)
{
for
(
i
=
0
;
i
<
size
;
i
++
)
{
if
(
xcounts
[
i
]
!=
0
)
{
//
if(xcounts[i] != 0) {
printf
(
"P%d of %d | %scounts[%d]=%d disp=%d
\n
"
,
data_dist
.
myId
,
data_dist
.
numP
,
name
,
i
,
xcounts
[
i
],
xdispls
[
i
]);
printf
(
"P%d of %d | %scounts[%d]=%d disp=%d
\n
"
,
data_dist
.
myId
,
data_dist
.
numP
,
name
,
i
,
xcounts
[
i
],
xdispls
[
i
]);
}
//
}
}
}
}
}
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment