MPI_SIZEOF(X, SIZE, IERROR) 
 <type> X
INTEGER SIZE, IERROR  
  
  MPI_TYPE_CREATE_F90_COMPLEX(P, R, NEWTYPE, IERROR)
 INTEGER P, R, NEWTYPE, IERROR 
  
  MPI_TYPE_CREATE_F90_INTEGER(R, NEWTYPE, IERROR)
 INTEGER R, NEWTYPE, IERROR 
  
  MPI_TYPE_CREATE_F90_REAL(P, R, NEWTYPE, IERROR)
 INTEGER P, R, NEWTYPE, IERROR 
  
  MPI_TYPE_MATCH_SIZE(TYPECLASS, SIZE, TYPE, IERROR) 
 INTEGER TYPECLASS, SIZE, TYPE, IERROR