MPI_Type_create_f90_real
int MPI_Type_create_f90_real( int, int, MPI_Datatype * );
Returns a predefined MPI datatype that matches a REAL variable of KIND selected_real_kind(p, r).