MPI_CLOSE_PORT(PORT_NAME, IERROR)
 CHARACTER*(*) PORT_NAME 
INTEGER IERROR 
  
  MPI_COMM_ACCEPT(PORT_NAME, INFO, ROOT, COMM, NEWCOMM, IERROR)
 CHARACTER*(*) PORT_NAME 
INTEGER INFO, ROOT, COMM, NEWCOMM, IERROR 
  
  MPI_COMM_CONNECT(PORT_NAME, INFO, ROOT, COMM, NEWCOMM, IERROR)
 CHARACTER*(*) PORT_NAME, INFO 
INTEGER ROOT, COMM, NEWCOMM, IERROR 
  
  MPI_COMM_DISCONNECT(COMM, IERROR)
 INTEGER COMM, IERROR 
  
  MPI_COMM_GET_PARENT(PARENT, IERROR) 
 INTEGER PARENT, IERROR 
  
  MPI_COMM_JOIN(FD, INTERCOMM, IERROR)
 INTEGER FD, INTERCOMM, IERROR 
  
  MPI_COMM_SPAWN(COMMAND, ARGV, MAXPROCS, INFO, ROOT, COMM, INTERCOMM, ARRAY_OF_ERRCODES, IERROR)
 CHARACTER*(*) COMMAND, ARGV(*) 
INTEGER INFO, MAXPROCS, ROOT, COMM, INTERCOMM, ARRAY_OF_ERRCODES(*), IERROR 
  
  MPI_COMM_SPAWN_MULTIPLE(COUNT, ARRAY_OF_COMMANDS, ARRAY_OF_ARGV, ARRAY_OF_MAXPROCS, ARRAY_OF_INFO, ROOT, COMM, INTERCOMM, ARRAY_OF_ERRCODES, IERROR)
 INTEGER COUNT, ARRAY_OF_INFO(*), ARRAY_OF_MAXPROCS(*), ROOT, COMM, INTERCOMM, ARRAY_OF_ERRCODES(*), IERROR 
CHARACTER*(*) ARRAY_OF_COMMANDS(*), ARRAY_OF_ARGV(COUNT, *) 
  
  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_PUBLISH_NAME(SERVICE_NAME, INFO, PORT_NAME, IERROR)
 INTEGER INFO, IERROR 
CHARACTER*(*) SERVICE_NAME, PORT_NAME 
  
  MPI_UNPUBLISH_NAME(SERVICE_NAME, INFO, PORT_NAME, IERROR)
 INTEGER INFO, IERROR 
CHARACTER*(*) SERVICE_NAME, PORT_NAME