MPI_Init_thread(required, provided, ierror)
integer reuqired, provided, ierror
　　初始化MPI和MPI线程环境


MPI_Is_thread_main(flag, ierror)
logical flag
integer ierror
　　表明调用本函数的线程是否是主线程


MPI_Lookup_name(service_name, info, port_name, ierror)
character*(*) service_name, port_name
integer info, ierror
　　返回与服务名对应的端口名


MPI_Open_port(info, port_name, ierror)
character*(*) port_name
integer info, ierror
　　建立一个网络地址，以使服务器能够接收客户的连接请求


MPI_Pack_external(datarep, inbuf, incount, datatype, outbuf, outsize, Position, ierror)
integer incount, datatype, ierror
integer(kind=MPI_ADDRESS_KIND) outsize, position
character*(*) datarep
<type> inbuf(*), outbuf(*)
　　以指定的数据格式进行打包


MPI_Pack_external_size(datarep, incount, datatype, size, ierror)
integer incount, datatype, ierror
integer(kind=MPI_ADDRESS_KIND) size
character*(*) datarep
　　返回以指定的数据格式，数据打包需要的空间的大小


MPI_Publish_name(service_name, info, port_name, ierror)
integer info, ierror
character*(*) service_name, port_name
　　将一个服务名和端口名建立联系，并将该服务名公之与众


MPI_Put(origin_addr, origin_count, origin_datatype, target_rank, target_disp, target_count, target_datatype, win, ierror)
<type> origin_addr(*)
integer(kind=MPI_ADDRESS_KIND) target_disp
integer origin_count, origin_datatype, target_rank, target_count,
target_datatype, win, ierror
　　向指定进程的窗口写入数据