name.c

各个进程在运行时可以动态得到该进程所运行机器的名字

#include "mpi.h"
#include <stdio.h>
#include <math.h>

int main(int argc ,  char *argv[])
{
	char name[MPI_MAX_PROCESSOR_NAME];
    int resultlen, version, subversion;
    MPI_Init(&argc,&argv);
  //  name = " ";  // 首先将名字赋为空
    MPI_Get_processor_name( name,&resultlen); // 得到机器的名字name和该名字的字符长度resultlen
    MPI_Get_version(&version, &subversion);// 得到MPI的版本号
/*	int errs = 0;
    while(i=resultlen+1, MPI_MAX_PROCESSOR_NAME)
    {
		if (name(i:i) .ne. " ") then // 若返回的名字name的resultlen后还有非空字符则认为该名字有错误
        errs = errs + 1
	}
	if (errs>=0) 
		fprintf("Non-blanks after name");
    else*/
	fprintf(stderr,"MPI name: %s,MPI version:%d,subversion:%d\n",name,version,subversion);
    MPI_Finalize();
}