这个是搭建mpich2集群所必须的安装包,没有此包是不能使用mpi的。
代码片段和文件信息
/* -*- Mode: C; c-basic-offset:4 ; -*- */
/*
* (C) 2001 by Argonne National Laboratory.
* See COPYRIGHT in top-level directory.
*/
#include
#include “mpi.h“
int main( int argc char *argv[] )
{
MPI_Comm intercomm;
char str[10];
int err rank;
MPI_Init(&argc &argv);
MPI_Comm_rank(MPI_COMM_WORLD &rank);
MPI_Comm_get_parent(&intercomm);
if (rank == 3){
err = MPI_Send(“hi“ 3 MPI_CHAR 3 0 intercomm);
err = MPI_Recv(str 4 MPI_CHAR 3 0 intercomm MPI_STATUS_IGNORE);
printf(“Child received from parent: %s
“ str);
fflush(stdout);
}
MPI_Finalize();
return 0;
}
版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发送邮件举报,一经查实,本站将立刻删除。
评论列表(条)