3.点对点通信函数举例 ·阻塞式标准消息发送函数 MPI_Send (buf,count,datatype,dest,tag,comm,ierr) Real*8(integer,.)buf:消息发送缓存区起始地址 (Fortran,用户的待发送的第一个数据) integer count ：buf起始的数据单元个数 integer datatype ：数据类型（基本或用户定义的） integer dest ：接收进程序号 integer tag :消息的标号 integer comm ：通信器 integer ierr :函数调用返回错误码 real*8a(100,100) integer b(60,60) c--发送50个双精度数“a(5,20):a(54,20)”到2号进程 call MPI Send(a(5,20).50.MPI DOUBLE PRECISION.2. & 99999.MPI COMM WORLD.ierr) c--发送20个整型数“b(20,40):b(39,40)到5号进程 call MPI Send(b(20,40),20,MPI DOUBLE PRECISION,5, & 99999,MPI COMM_WORLD,ierr)20 3．点对点通信函数举例 ⚫ 阻塞式标准消息发送函数 MPI_Send（buf，count，datatype，dest，tag，comm，ierr） Real*8（integer，…）buf : 消息发送缓存区起始地址 (Fortran, 用户的待发送的第一个数据) integer count ：buf 起始的数据单元个数 integer datatype ：数据类型（基本或用户定义的） integer dest : 接收进程序号 integer tag : 消息的标号 integer comm : 通信器 integer ierr : 函数调用返回错误码 real *8 a(100,100) integer b(60,60) c-----发送 50 个双精度数“a(5,20) : a(54,20)”到 2 号进程 call MPI_Send( a (5,20),50,MPI_DOUBLE_PRECISION,2, & 99999,MPI_COMM_WORLD,ierr ) c-----发送 20 个整型数“b(20,40) : b(39,40)”到 5 号进程 call MPI_Send( b (20,40),20,MPI_DOUBLE_PRECISION,5, & 99999,MPI_COMM_WORLD,ierr )