@@ -344,14 +344,6 @@ FORT_INT_FUNC(max, fortran_integer8, ompi_fortran_integer8_t)
344
344
FORT_INT_FUNC (max , fortran_integer16 , ompi_fortran_integer16_t )
345
345
#endif
346
346
347
- #if 0
348
- /* Floating point */
349
- #if defined(HAVE_SHORT_FLOAT )
350
- FUNC_FUNC (max , short_float , short float )
351
- #elif defined(HAVE_OPAL_SHORT_FLOAT_T )
352
- FUNC_FUNC (max , short_float , opal_short_float_t )
353
- #endif
354
- #endif // 0
355
347
FUNC_FUNC (max , float , float )
356
348
FUNC_FUNC (max , double , double )
357
349
FUNC_FUNC (max , long_double , long double )
@@ -411,15 +403,6 @@ FORT_INT_FUNC(min, fortran_integer8, ompi_fortran_integer8_t)
411
403
FORT_INT_FUNC (min , fortran_integer16 , ompi_fortran_integer16_t )
412
404
#endif
413
405
414
- #if 0
415
- /* Floating point */
416
- #if defined(HAVE_SHORT_FLOAT )
417
- FUNC_FUNC (min , short_float , short float )
418
- #elif defined(HAVE_OPAL_SHORT_FLOAT_T )
419
- FUNC_FUNC (min , short_float , opal_short_float_t )
420
- #endif
421
- #endif // 0
422
-
423
406
FUNC_FUNC (min , float , float )
424
407
FUNC_FUNC (min , double , double )
425
408
FUNC_FUNC (min , long_double , long double )
@@ -478,15 +461,6 @@ FORT_INT_FUNC(sum, fortran_integer8, ompi_fortran_integer8_t)
478
461
FORT_INT_FUNC (sum , fortran_integer16 , ompi_fortran_integer16_t )
479
462
#endif
480
463
481
- #if 0
482
- /* Floating point */
483
- #if defined(HAVE_SHORT_FLOAT )
484
- OP_FUNC (sum , short_float , short float )
485
- #elif defined(HAVE_OPAL_SHORT_FLOAT_T )
486
- OP_FUNC (sum , short_float , opal_short_float_t )
487
- #endif
488
- #endif // 0
489
-
490
464
OP_FUNC (sum , float , float )
491
465
OP_FUNC (sum , double , double )
492
466
OP_FUNC (sum , long_double , long double )
@@ -508,16 +482,8 @@ FORT_FLOAT_FUNC(sum, fortran_real8, ompi_fortran_real8_t)
508
482
#if OMPI_HAVE_FORTRAN_REAL16 && OMPI_REAL16_MATCHES_C
509
483
FORT_FLOAT_FUNC (sum , fortran_real16 , ompi_fortran_real16_t )
510
484
#endif
511
- /* Complex */
512
- #if 0
513
- #if defined(HAVE_SHORT_FLOAT__COMPLEX )
514
- OP_FUNC (sum , c_short_float_complex , short float _Complex )
515
- #elif defined(HAVE_OPAL_SHORT_FLOAT_COMPLEX_T )
516
- COMPLEX_SUM_FUNC (c_short_float_complex , opal_short_float_t )
517
- #endif
518
- OP_FUNC (sum , c_long_double_complex , long double _Complex )
519
- #endif // 0
520
485
486
+ /* Complex */
521
487
FUNC_FUNC (sum , c_float_complex , cuFloatComplex )
522
488
FUNC_FUNC (sum , c_double_complex , cuDoubleComplex )
523
489
@@ -556,16 +522,8 @@ FORT_INT_FUNC(prod, fortran_integer8, ompi_fortran_integer8_t)
556
522
#if OMPI_HAVE_FORTRAN_INTEGER16
557
523
FORT_INT_FUNC (prod , fortran_integer16 , ompi_fortran_integer16_t )
558
524
#endif
559
- /* Floating point */
560
-
561
- #if 0
562
- #if defined(HAVE_SHORT_FLOAT )
563
- OP_FUNC (prod , short_float , short float )
564
- #elif defined(HAVE_OPAL_SHORT_FLOAT_T )
565
- OP_FUNC (prod , short_float , opal_short_float_t )
566
- #endif
567
- #endif // 0
568
525
526
+ /* Floating point */
569
527
OP_FUNC (prod , float , float )
570
528
OP_FUNC (prod , double , double )
571
529
OP_FUNC (prod , long_double , long double )
@@ -587,16 +545,8 @@ FORT_FLOAT_FUNC(prod, fortran_real8, ompi_fortran_real8_t)
587
545
#if OMPI_HAVE_FORTRAN_REAL16 && OMPI_REAL16_MATCHES_C
588
546
FORT_FLOAT_FUNC (prod , fortran_real16 , ompi_fortran_real16_t )
589
547
#endif
590
- /* Complex */
591
- #if 0
592
- #if defined(HAVE_SHORT_FLOAT__COMPLEX )
593
- OP_FUNC (prod , c_short_float_complex , short float _Complex )
594
- #elif defined(HAVE_OPAL_SHORT_FLOAT_COMPLEX_T )
595
- COMPLEX_PROD_FUNC (c_short_float_complex , opal_short_float_t )
596
- #endif
597
- OP_FUNC (prod , c_long_double_complex , long double _Complex )
598
- #endif // 0
599
548
549
+ /* Complex */
600
550
FUNC_FUNC (prod , c_float_complex , cuFloatComplex )
601
551
FUNC_FUNC (prod , c_double_complex , cuDoubleComplex )
602
552
@@ -1016,13 +966,6 @@ FORT_INT_FUNC_3BUF(max, fortran_integer4, ompi_fortran_integer4_t)
1016
966
FORT_INT_FUNC_3BUF (max , fortran_integer8 , ompi_fortran_integer8_t )
1017
967
#endif
1018
968
/* Floating point */
1019
- #if 0
1020
- #if defined(HAVE_SHORT_FLOAT )
1021
- FUNC_FUNC_3BUF (max , short_float , short float )
1022
- #elif defined(HAVE_OPAL_SHORT_FLOAT_T )
1023
- FUNC_FUNC_3BUF (max , short_float , opal_short_float_t )
1024
- #endif
1025
- #endif // 0
1026
969
FUNC_FUNC_3BUF (max , float , float )
1027
970
FUNC_FUNC_3BUF (max , double , double )
1028
971
FUNC_FUNC_3BUF (max , long_double , long double )
@@ -1082,13 +1025,6 @@ FORT_INT_FUNC_3BUF(min, fortran_integer8, ompi_fortran_integer8_t)
1082
1025
FORT_INT_FUNC_3BUF (min , fortran_integer16 , ompi_fortran_integer16_t )
1083
1026
#endif
1084
1027
/* Floating point */
1085
- #if 0
1086
- #if defined(HAVE_SHORT_FLOAT )
1087
- FUNC_FUNC_3BUF (min , short_float , short float )
1088
- #elif defined(HAVE_OPAL_SHORT_FLOAT_T )
1089
- FUNC_FUNC_3BUF (min , short_float , opal_short_float_t )
1090
- #endif
1091
- #endif // 0
1092
1028
FUNC_FUNC_3BUF (min , float , float )
1093
1029
FUNC_FUNC_3BUF (min , double , double )
1094
1030
FUNC_FUNC_3BUF (min , long_double , long double )
@@ -1147,13 +1083,6 @@ FORT_INT_FUNC_3BUF(sum, fortran_integer8, ompi_fortran_integer8_t)
1147
1083
FORT_INT_FUNC_3BUF (sum , fortran_integer16 , ompi_fortran_integer16_t )
1148
1084
#endif
1149
1085
/* Floating point */
1150
- #if 0
1151
- #if defined(HAVE_SHORT_FLOAT )
1152
- OP_FUNC_3BUF (sum , short_float , short float )
1153
- #elif defined(HAVE_OPAL_SHORT_FLOAT_T )
1154
- OP_FUNC_3BUF (sum , short_float , opal_short_float_t )
1155
- #endif
1156
- #endif // 0
1157
1086
OP_FUNC_3BUF (sum , float , float )
1158
1087
OP_FUNC_3BUF (sum , double , double )
1159
1088
OP_FUNC_3BUF (sum , long_double , long double )
@@ -1176,17 +1105,6 @@ FORT_FLOAT_FUNC_3BUF(sum, fortran_real8, ompi_fortran_real8_t)
1176
1105
FORT_FLOAT_FUNC_3BUF (sum , fortran_real16 , ompi_fortran_real16_t )
1177
1106
#endif
1178
1107
/* Complex */
1179
- #if 0
1180
- #if defined(HAVE_SHORT_FLOAT__COMPLEX )
1181
- OP_FUNC_3BUF (sum , c_short_float_complex , short float _Complex )
1182
- #elif defined(HAVE_OPAL_SHORT_FLOAT_COMPLEX_T )
1183
- COMPLEX_SUM_FUNC_3BUF (c_short_float_complex , opal_short_float_t )
1184
- #endif
1185
- OP_FUNC_3BUF (sum , c_float_complex , float _Complex )
1186
- OP_FUNC_3BUF (sum , c_double_complex , double _Complex )
1187
- OP_FUNC_3BUF (sum , c_long_double_complex , long double _Complex )
1188
- #endif // 0
1189
-
1190
1108
FUNC_FUNC_3BUF (sum , c_float_complex , cuFloatComplex )
1191
1109
FUNC_FUNC_3BUF (sum , c_double_complex , cuDoubleComplex )
1192
1110
@@ -1226,13 +1144,6 @@ FORT_INT_FUNC_3BUF(prod, fortran_integer8, ompi_fortran_integer8_t)
1226
1144
FORT_INT_FUNC_3BUF (prod , fortran_integer16 , ompi_fortran_integer16_t )
1227
1145
#endif
1228
1146
/* Floating point */
1229
- #if 0
1230
- #if defined(HAVE_SHORT_FLOAT )
1231
- FORT_FLOAT_FUNC_3BUF (prod , short_float , short float )
1232
- #elif defined(HAVE_OPAL_SHORT_FLOAT_T )
1233
- FORT_FLOAT_FUNC_3BUF (prod , short_float , opal_short_float_t )
1234
- #endif
1235
- #endif // 0
1236
1147
OP_FUNC_3BUF (prod , float , float )
1237
1148
OP_FUNC_3BUF (prod , double , double )
1238
1149
OP_FUNC_3BUF (prod , long_double , long double )
@@ -1255,15 +1166,6 @@ FORT_FLOAT_FUNC_3BUF(prod, fortran_real8, ompi_fortran_real8_t)
1255
1166
FORT_FLOAT_FUNC_3BUF (prod , fortran_real16 , ompi_fortran_real16_t )
1256
1167
#endif
1257
1168
/* Complex */
1258
- #if 0
1259
- #if defined(HAVE_SHORT_FLOAT__COMPLEX )
1260
- OP_FUNC_3BUF (prod , c_short_float_complex , short float _Complex )
1261
- #elif defined(HAVE_OPAL_SHORT_FLOAT_COMPLEX_T )
1262
- COMPLEX_PROD_FUNC_3BUF (c_short_float_complex , opal_short_float_t )
1263
- #endif
1264
- OP_FUNC_3BUF (prod , c_long_double_complex , long double _Complex )
1265
- #endif // 0
1266
-
1267
1169
FUNC_FUNC_3BUF (prod , c_float_complex , cuFloatComplex )
1268
1170
FUNC_FUNC_3BUF (prod , c_double_complex , cuDoubleComplex )
1269
1171
0 commit comments