FLT_MIN_10_EXP     90 ompi/mpi/c/type_create_f90_complex.c     else if( (FLT_DIG  < p) || (FLT_MAX_10_EXP  < r) || (-FLT_MIN_10_EXP  < r) ) *newtype = &ompi_mpi_dblcplex.dt;
FLT_MIN_10_EXP     90 ompi/mpi/c/type_create_f90_real.c     else if( (FLT_DIG  < p) || (FLT_MAX_10_EXP  < r) || (-FLT_MIN_10_EXP  < r) ) *newtype = &ompi_mpi_double.dt;