#include<stdio.h>#include<stdlib.h>#include<string.h>#include<mpi.h>intmain(intargc,char**argv){MPI_Init(&argc,&argv);intrank,size;charprocessor_name[MPI_MAX_PROCESSOR_NAME];intname_len;MPI_Comm_rank(MPI_COMM_W
program main implicit none include 'mpif.h' character * (MPI_MAX_PROCESSOR_NAME) processor_name integer myid, numprocs, namelen, rc,ierr,status(MPI_STATUS_SIZE) real(8) a call MPI_INIT(ierr) call MPI_COMM_RANK(MPI_COMM_WORLD,myid,ierr) ! get process number call MPI_COMM_SIZE(MPI_COM...
MPI_MAX_PROCESSOR_NAME MPI预定义的宏,即某一MPI的具体实现中允许机器名字的最大长度 MPI_GET_PROCESSOR_NAME(NAME, RESULTLEN, ierror) MPI_GET_PROCESSOR_NAME(NAME, RESULTLEN,ierror)得到本进程运行机器的名称,结果放在变量NAME里,NAME为字符串变量,而NAME的长度则放在...
int MPI_Get_processor_name(charname,intresultlen) name为返回的机器名字符串,resultlen为返回的机器名长度 //MPI_MAX_PROCESSOR_NAME代表MPI中允许机器名字的最大长度intresultlen;charprocessor_name[MPI_MAX_PROCESSOR_NAME]; MPI_Get_processor_name(processor_name,&resultlen);//resultlen存放长度cout"当前运...
int MPIAPI MPI_Get_processor_name( _Out_z_cap_post_count_(MPI_MAX_PROCESSOR_NAME,*resultlen) char *name, _Out_ int *resultlen ); 参数name 实际(的唯一说明符,而不是虚拟) 节点。 这必须是大小至少 为MPI_MAX_PROCESSOR_NAME 的数组。 resultlen [out] 名称) 长度 (字符。返回...
MPI_MAX_PROCESSOR_NAME:似乎是一个整数,值为128. MPI_Get_processor_name( ..):得到处理器的名字 int MPI_Send (void *buf, int count, MPI_Datatype datatype,int dest, int tag,MPI_Comm comm):点对点发送消息。 *buf: 发送缓冲区,指向发送的变量地址 ...
MPI_MAX_PROCESSOR_NAME 是 MPI 预定义的宏,即 MPI 所允许的机器名字的最大长度 MPI_INIT和MPI_FINALIZE,分别完成 MPI 的初始化和结束工作 MPI_COMM_RANK 得到本进程的进程号,进程号取值范围为 0, …, np-1 MPI_COMM_SIZE 得到所有参加运算的进程的个数 ...
character * MPI_MAX_ProcESSOR_NAME 其中MPI_MAX_ProcESSOR_NAME是MPI预先定义的,代表再MPI进程中允许的机器名字的最大长度。 对比:character * 12 代表定义一个长度为12的字符变量 。 MPI_INIT(ierr)进入MPI环境。ierr 为 integer 型变量,运行正确返回0。
//Get the name of the processorcharprocessor_name[MPI_MAX_PROCESSOR_NAME];intname_len;MPI_Get_processor_name(processor_name, &name_len);//Print off a hello world message.printf("Hello world from processor %s, rank %d"" out of %d processors\n",processor_name, world_rank, world_size);...
program main use com include 'mpif.h' character * (MPI_MAX_PROCESSOR_NAME) processor_name integer numprocs, namelen, rc,ierr,status(MPI_STATUS_SIZE),myid0 call MPI_INIT(ierr) call MPI_COMM_RANK(MPI_COMM_WORLD,myid,ierr) call MPI_COMM_SIZE(MPI_COMM_WORLD,numprocs,ierr) myid1 = myid ...