File tree Expand file tree Collapse file tree 1 file changed +26
-0
lines changed Expand file tree Collapse file tree 1 file changed +26
-0
lines changed Original file line number Diff line number Diff line change @@ -125,6 +125,32 @@ ompi_predefined_derived_2_hcoll(int ompi_id) {
125125 return DTE_LONG_DOUBLE_INT ;
126126 case OMPI_DATATYPE_MPI_2INT :
127127 return DTE_2INT ;
128+ #if HCOLL_API >= HCOLL_VERSION (3 ,7 )
129+ case OMPI_DATATYPE_MPI_2INTEGER :
130+ #if OMPI_SIZEOF_FORTRAN_INTEGER == 4
131+ return DTE_2INT ;
132+ #elif OMPI_SIZEOF_FORTRAN_INTEGER == 8
133+ return DTE_2INT64 ;
134+ #else
135+ return DTE_ZERO ;
136+ #endif
137+ case OMPI_DATATYPE_MPI_2REAL :
138+ #if OMPI_SIZEOF_FORTRAN_REAL == 4
139+ return DTE_2FLOAT32 ;
140+ #elif OMPI_SIZEOF_FORTRAN_REAL == 8
141+ return DTE_2FLOAT64 ;
142+ #else
143+ return DTE_ZERO ;
144+ #endif
145+ case OMPI_DATATYPE_MPI_2DBLPREC :
146+ #if OMPI_SIZEOF_FORTRAN_DOUBLE_PRECISION == 4
147+ return DTE_2FLOAT32 ;
148+ #elif OMPI_SIZEOF_FORTRAN_DOUBLE_PRECISION == 8
149+ return DTE_2FLOAT64 ;
150+ #else
151+ return DTE_ZERO ;
152+ #endif
153+ #endif
128154 default :
129155 break ;
130156 }
You can’t perform that action at this time.
0 commit comments