sflt_min_10_exp    54 ompi/mpi/c/type_create_f90_complex.c     int sflt_dig = 3, sflt_max_10_exp = +5, sflt_min_10_exp = -4;
sflt_min_10_exp    92 ompi/mpi/c/type_create_f90_complex.c              (sflt_dig < p) || (sflt_max_10_exp < r) || (-sflt_min_10_exp < r) ) *newtype = &ompi_mpi_cplex.dt;
sflt_min_10_exp    54 ompi/mpi/c/type_create_f90_real.c     int sflt_dig = 3, sflt_max_10_exp = +5, sflt_min_10_exp = -4;
sflt_min_10_exp    92 ompi/mpi/c/type_create_f90_real.c              (sflt_dig < p) || (sflt_max_10_exp < r) || (-sflt_min_10_exp < r) ) *newtype = &ompi_mpi_float.dt;