


  MPI_GREQUEST_COMPLETE(REQUEST, IERROR)
 INTEGER REQUEST, IERROR 
  
  MPI_GREQUEST_START(QUERY_FN, FREE_FN, CANCEL_FN, EXTRA_STATE, REQUEST, IERROR)
 INTEGER REQUEST, IERROR
EXTERNAL QUERY_FN, FREE_FN, CANCEL_FN
INTEGER (KIND=MPI_ADDRESS_KIND) EXTRA_STATE 
  
  MPI_INIT_THREAD(REQUIRED, PROVIDED, IERROR)
 INTEGER REQUIRED, PROVIDED, IERROR 
  
  MPI_IS_THREAD_MAIN(FLAG, IERROR) 
 LOGICAL FLAG 
INTEGER IERROR 
  
  MPI_QUERY_THREAD(PROVIDED, IERROR)
  INTEGER PROVIDED, IERROR 
  
  MPI_STATUS_SET_CANCELLED(STATUS, FLAG, IERROR)
 INTEGER STATUS(MPI_STATUS_SIZE), IERROR
LOGICAL FLAG 
  
  MPI_STATUS_SET_ELEMENTS(STATUS, DATATYPE, COUNT, IERROR)
 INTEGER STATUS(MPI_STATUS_SIZE), DATATYPE, COUNT, IERROR 
  


