programmainimplicit noneinclude'mpif.h'character*(MPI_MAX_PROCESSOR_NAME)processor_nameintegermyid,numprocs,namelen,rc,ierr,status(MPI_STATUS_SIZE)real(8)acallMPI_INIT(ierr)callMPI_COMM_RANK(MPI_COMM_WORLD,myid,ierr)! get process numbercallMPI_COMM_SIZE(MPI_COMM_WORLD,numprocs,ierr)! get the...
clocprogramtest_mpiUSEMPIINTEGER:: ICORE,NCORE,IERR,MASTERDIMENSION::A(10)DATAA/0,0,0,0,0,0,0,0,0,0/C INITIALIZATIONCALLMPI_INIT(IERR)CALLMPI_COMM_RANK(MPI_COMM_WORLD,ICORE,IERR)CALLMPI_COMM_SIZE(MPI_COMM_WORLD,NCORE,IERR) MASTER =0IF(ICORE.EQ.MASTER)WRITE(6,'(I3,"-CORES ASSI...
FORTRAN MPI_COMM_SIZE(COMM,SIZE,IERROR)INTEGERCOMM,SIZE, IERROR 注解 此函数使用户能够通过单个函数调用来检索组大小。 否则,必须使用MPI_Comm_group函数创建一个临时组,使用MPI_Group_size函数获取该组的大小,然后使用MPI_Group_free函数释放临时组。
CALL MPI_INIT( IERR ) CALL MPI_COMM_RANK(MPI_COMM_WORLD,ICORE,IERR) CALL MPI_COMM_SIZE(MPI_COMM_WORLD,NCORE,IERR) CALL MPI_BARRIER(MPI_COMM_WORLD,IERR) c step-01 loop output core number print*,"---This is the first assignment---" do 1 i = 1,3 icyes = MOD(i,3) if(icyes...
program main include 'mpif.h' character * (MPI_MAX_PROCESSOR_NAME) processor_name integer myid, numprocs, namelen, rc,ierr call MPI_INIT( ierr ) call MPI_COMM_RANK( MPI_COMM_WORLD, myid, ierr ) call MPI_COMM_SIZE( MPI_COMM_WORLD, numprocs, ierr ) call MPI_GET_PROCESSOR_NAME(process...
integer rank, size, ierror, tag, status(MPI_STATUS_SIZE)call MPI_INIT(ierror)call MPI_COMM_...
MPI_COMM_SIZE(comm,size)intMPI_Comm_Size(MPI_Comm,int*size) 5.MPI_SEND 该函数为发送函数,用于进程间发送消息,如进程0计算得到的结果A,需要传给进程1,就需要调用该函数。 代码语言:javascript 复制 callMPI_SEND(buf,count,datatype,dest,tag,comm)intMPI_Send(type*buf,int count,MPI_Datatype,int de...
Gatherv:收集不同长度的数据块,num_n,displs,lev_n由root进程给出CALLMPI_Gatherv(lev,num,mpi_integer4,lev_n,num_n,displs,mpi_integer4,root,MPI_COMM_WORLD,ierr)IF(OnMonitor)PRINT*,'Gatherv lev result=',lev_n!---!3.1MPI_Scatterv的测试例子!---ALLOCATE(lev22(1:num))CALLMPI_Scatterv(lev...
MPI_COMM_SIZE(COMM,np,ierr)获得总进程数np 为 integer 型变量,返回COMM通讯子中进程总数。ierr ,程序正确运行时返回 0 。 MPI_GET_ProcESSOR_NAME(processor_name,namelength,ierr)获得运行本进程的机器的机器名和机器名长度。processor_name 为 character 型变量,返回运行本进程的机器名。namelength 为 integer...
MPI_RECV(BUF, COUNT, DATATYPE, SOURCE, TAG, COMM, STATUS, IERROR)BUF 为要接收的变量。COUNT 为 INTEGER 型变量,表明接收时接收几个数据,例子中只接收了n一个值,故取1。DATATYPE 声明接收的变量类型,对于FORTRAN,可以用以下几种数据类型:SOURCE 为 INTEGER 型变量,定义接收的BUF是从哪里接收来的。TAG ...