void pt_migrate_unpack (Pt *pt, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, &pt->vector, 1, VSG_MPI_TYPE_VECTOR2D);
vsg_packed_msg_recv_read (pm, &pt->weight, 1, MPI_INT);
vsg_packed_msg_recv_read (pm, &pt->count, 1, MPI_LONG);
}
void pt_visit_fw_unpack (Pt *pt, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, &pt->vector, 1, VSG_MPI_TYPE_VECTOR2D);
vsg_packed_msg_recv_read (pm, &pt->weight, 1, MPI_INT);
pt->count = 0;
}
void nc_visit_fw_unpack (NodeCounter *nc, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, &nc->in_count, 1, MPI_LONG);
if (nc_padding != 0)
vsg_packed_msg_recv_read (pm, _nc_padding_buffer, nc_padding, MPI_CHAR);
}
void point_accum_migrate_unpack (PointAccum *pt, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, &pt->vector, 1, VSG_MPI_TYPE_VECTOR3D);
vsg_packed_msg_recv_read (pm, &pt->density, 1, MPI_DOUBLE);
vsg_packed_msg_recv_read (pm, &pt->field, 1, VSG_MPI_TYPE_VECTOR3D);
vsg_packed_msg_recv_read (pm, &pt->id, 1, MPI_INT);
}
void nc_visit_bw_unpack (NodeCounter *nc, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, &nc->out_count, 1, MPI_LONG);
if (nc_padding != 0)
vsg_packed_msg_recv_read (pm, _nc_padding_buffer, nc_padding, MPI_CHAR);
/* g_printerr ("%d : unpack out %d (sum=%d)\n", rk, count, nc->out_count); */
}
static void rg_migrate_unpack (Sphere *rg, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, &rg->center, 1, VSG_MPI_TYPE_VECTOR3D);
vsg_packed_msg_recv_read (pm, &rg->radius, 1, MPI_DOUBLE);
/* g_printerr ("%d: unpack sphere {c=", rk); */
/* vsg_vector3d_write (&rg->center, stderr); */
/* g_printerr (" r=%lf}\n", rg->radius); */
}
void point_accum_visit_fw_unpack (PointAccum *pt, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, &pt->vector, 1, VSG_MPI_TYPE_VECTOR3D);
vsg_packed_msg_recv_read (pm, &pt->density, 1, MPI_DOUBLE);
pt->field = VSG_V3D_ZERO;
vsg_packed_msg_recv_read (pm, &pt->id, 1, MPI_UNSIGNED_LONG);
pt->id = -pt->id;
/* g_printerr ("%d : fw unpack %lu\n", rk, pt->id); */
}
void point_accum_visit_fw_unpack (PointAccum *pt, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, &pt->vector, 1, VSG_MPI_TYPE_VECTOR3D);
vsg_packed_msg_recv_read (pm, &pt->density, 1, MPI_DOUBLE);
pt->field = VSG_V3D_ZERO;
pt->id = -1;
/* g_printerr ("%d : fw unpack d=%e v=", */
/* rk, */
/* pt->density); */
/* vsg_vector3d_write (&pt->vector, stderr); */
/* g_printerr ("\n"); */
}
void point_accum_visit_bw_unpack (PointAccum *pt, VsgPackedMsg *pm,
gpointer user_data)
{
/* g_printerr ("%d : bw unpack %lu %p\n",rk, pt->id, pt); */
vsg_packed_msg_recv_read (pm, &pt->field, 1, VSG_MPI_TYPE_VECTOR3D);
}
static void pt_migrate_unpack (VsgVector3d *pt, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, pt, 1, VSG_MPI_TYPE_VECTOR3D);
/* g_printerr ("%d: unpack ", rk); */
/* vsg_vector3d_write (pt, stderr); */
/* g_printerr ("\n"); */
}
void point_accum_visit_bw_unpack (PointAccum *pt, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, &pt->field, 1, VSG_MPI_TYPE_VECTOR3D);
/* g_printerr ("%d : bw unpack v=", rk); */
/* vsg_vector3d_write (&pt->field, stderr); */
/* g_printerr ("\n"); */
/* fflush (stderr); */
}
static void _trace_write_msg_recv (VsgPackedMsg *msg, gchar *mode, gint src,
gint tag)
{
_trace_id msgid = 0;
_trace_file_open ();
msg->position = 0;
vsg_packed_msg_recv_read (msg, &msgid, 1, _MPI_TRACE_ID_TYPE);
_trace_write_msg (mode, msg->communicator, msgid, src, tag, msg->size);
}
void pt_visit_bw_unpack (Pt *pt, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, &pt->count, 1, MPI_LONG);
}
void nc_migrate_unpack (NodeCounter *nc, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, nc, 2, MPI_LONG);
}
void nc_visit_bw_unpack (gpointer nc, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, &((NodeCounter *) nc)->out_count, 1, MPI_LONG);
}
void point_accum_visit_bw_unpack (PointAccum *pt, VsgPackedMsg *pm,
gpointer user_data)
{
vsg_packed_msg_recv_read (pm, &pt->accum, 1, ARAN_MPI_TYPE_GCOMPLEX128);
}
