Lines Matching refs:ty
259 static void showTy ( FILE* f, MPI_Datatype ty ) in showTy() argument
261 if (ty == MPI_DATATYPE_NULL) fprintf(f,"DATATYPE_NULL"); in showTy()
262 else if (ty == MPI_BYTE) fprintf(f,"BYTE"); in showTy()
263 else if (ty == MPI_PACKED) fprintf(f,"PACKED"); in showTy()
264 else if (ty == MPI_CHAR) fprintf(f,"CHAR"); in showTy()
265 else if (ty == MPI_SHORT) fprintf(f,"SHORT"); in showTy()
266 else if (ty == MPI_INT) fprintf(f,"INT"); in showTy()
267 else if (ty == MPI_LONG) fprintf(f,"LONG"); in showTy()
268 else if (ty == MPI_FLOAT) fprintf(f,"FLOAT"); in showTy()
269 else if (ty == MPI_DOUBLE) fprintf(f,"DOUBLE"); in showTy()
270 else if (ty == MPI_LONG_DOUBLE) fprintf(f,"LONG_DOUBLE"); in showTy()
271 else if (ty == MPI_UNSIGNED_CHAR) fprintf(f,"UNSIGNED_CHAR"); in showTy()
272 else if (ty == MPI_UNSIGNED_SHORT) fprintf(f,"UNSIGNED_SHORT"); in showTy()
273 else if (ty == MPI_UNSIGNED_LONG) fprintf(f,"UNSIGNED_LONG"); in showTy()
274 else if (ty == MPI_UNSIGNED) fprintf(f,"UNSIGNED"); in showTy()
275 else if (ty == MPI_FLOAT_INT) fprintf(f,"FLOAT_INT"); in showTy()
276 else if (ty == MPI_DOUBLE_INT) fprintf(f,"DOUBLE_INT"); in showTy()
277 else if (ty == MPI_LONG_DOUBLE_INT) fprintf(f,"LONG_DOUBLE_INT"); in showTy()
278 else if (ty == MPI_LONG_INT) fprintf(f,"LONG_INT"); in showTy()
279 else if (ty == MPI_SHORT_INT) fprintf(f,"SHORT_INT"); in showTy()
280 else if (ty == MPI_2INT) fprintf(f,"2INT"); in showTy()
281 else if (ty == MPI_UB) fprintf(f,"UB"); in showTy()
282 else if (ty == MPI_LB) fprintf(f,"LB"); in showTy()
284 else if (ty == MPI_WCHAR) fprintf(f,"WCHAR"); in showTy()
286 else if (ty == MPI_LONG_LONG_INT) fprintf(f,"LONG_LONG_INT"); in showTy()
288 else if (ty == MPI_LONG_LONG) fprintf(f,"LONG_LONG"); in showTy()
291 else if (ty == MPI_UNSIGNED_LONG_LONG) fprintf(f,"UNSIGNED_LONG_LONG"); in showTy()
294 else if (ty == MPI_REAL8) fprintf(f, "REAL8"); in showTy()
297 else if (ty == MPI_REAL4) fprintf(f, "REAL4"); in showTy()
300 else if (ty == MPI_REAL) fprintf(f, "REAL"); in showTy()
303 else if (ty == MPI_INTEGER8) fprintf(f, "INTEGER8"); in showTy()
306 else if (ty == MPI_INTEGER4) fprintf(f, "INTEGER4"); in showTy()
309 else if (ty == MPI_INTEGER) fprintf(f, "INTEGER"); in showTy()
312 else if (ty == MPI_DOUBLE_PRECISION) fprintf(f, "DOUBLE_PRECISION"); in showTy()
315 else if (ty == MPI_COMPLEX) fprintf(f, "COMPLEX"); in showTy()
318 else if (ty == MPI_DOUBLE_COMPLEX) fprintf(f, "DOUBLE_COMPLEX"); in showTy()
321 else if (ty == MPI_LOGICAL) fprintf(f, "LOGICAL"); in showTy()
324 else if (ty == MPI_2INTEGER) fprintf(f, "2INTEGER"); in showTy()
327 else if (ty == MPI_2COMPLEX) fprintf(f, "2COMPLEX"); in showTy()
330 else if (ty == MPI_2DOUBLE_COMPLEX) fprintf(f, "2DOUBLE_COMPLEX"); in showTy()
333 else if (ty == MPI_2REAL) fprintf(f, "2REAL"); in showTy()
336 else if (ty == MPI_2DOUBLE_PRECISION) fprintf(f, "2DOUBLE_PRECISION"); in showTy()
339 else if (ty == MPI_CHARACTER) fprintf(f, "CHARACTER"); in showTy()
458 static long extentOfTy ( MPI_Datatype ty ) in extentOfTy() argument
462 r = PMPI_Type_extent(ty, &n); in extentOfTy()
468 static void maybeFreeTy ( MPI_Datatype* ty ) in maybeFreeTy() argument
472 r = PMPI_Type_get_envelope( *ty, &n_ints, &n_addrs, &n_dtys, &tycon ); in maybeFreeTy()
481 if (*ty == MPI_FLOAT_INT || *ty == MPI_DOUBLE_INT in maybeFreeTy()
482 || *ty == MPI_LONG_INT || *ty == MPI_2INT in maybeFreeTy()
483 || *ty == MPI_SHORT_INT || *ty == MPI_LONG_DOUBLE_INT) in maybeFreeTy()
492 showTy(stderr,*ty); in maybeFreeTy()
495 r = PMPI_Type_free(ty); in maybeFreeTy()
512 static long sizeofOneNamedTy ( MPI_Datatype ty ) in sizeofOneNamedTy() argument
514 if (ty == MPI_CHAR) return sizeof(signed char); in sizeofOneNamedTy()
515 if (ty == MPI_SHORT) return sizeof(signed short int); in sizeofOneNamedTy()
516 if (ty == MPI_INT) return sizeof(signed int); in sizeofOneNamedTy()
517 if (ty == MPI_LONG) return sizeof(signed long int); in sizeofOneNamedTy()
518 if (ty == MPI_UNSIGNED_CHAR) return sizeof(unsigned char); in sizeofOneNamedTy()
519 if (ty == MPI_UNSIGNED_SHORT) return sizeof(unsigned short int); in sizeofOneNamedTy()
520 if (ty == MPI_UNSIGNED) return sizeof(unsigned int); in sizeofOneNamedTy()
521 if (ty == MPI_UNSIGNED_LONG) return sizeof(unsigned long int); in sizeofOneNamedTy()
522 if (ty == MPI_FLOAT) return sizeof(float); in sizeofOneNamedTy()
523 if (ty == MPI_DOUBLE) return sizeof(double); in sizeofOneNamedTy()
524 if (ty == MPI_BYTE) return 1; in sizeofOneNamedTy()
525 if (ty == MPI_LONG_DOUBLE) return sizeof_long_double_image(); in sizeofOneNamedTy()
526 if (ty == MPI_PACKED) return 1; in sizeofOneNamedTy()
527 if (ty == MPI_LONG_LONG_INT) return sizeof(signed long long int); in sizeofOneNamedTy()
530 if (ty == MPI_REAL8) return 8; /* MPI2 spec */; in sizeofOneNamedTy()
533 if (ty == MPI_REAL4) return 4; /* MPI2 spec */; in sizeofOneNamedTy()
536 if (ty == MPI_REAL) return 4; /* MPI2 spec */; in sizeofOneNamedTy()
539 if (ty == MPI_INTEGER8) return 8; /* MPI2 spec */; in sizeofOneNamedTy()
542 if (ty == MPI_INTEGER4) return 4; /* MPI2 spec */; in sizeofOneNamedTy()
545 if (ty == MPI_INTEGER) return 4; /* MPI2 spec */; in sizeofOneNamedTy()
548 if (ty == MPI_DOUBLE_PRECISION) return 8; /* MPI2 spec */; in sizeofOneNamedTy()
553 if (ty == MPI_WCHAR) return 2; /* MPI2 spec */; in sizeofOneNamedTy()
556 if (ty == MPI_SIGNED_CHAR) return 1; /* MPI2 spec */; in sizeofOneNamedTy()
559 if (ty == MPI_UNSIGNED_LONG_LONG) return 8; /* MPI2 spec */; in sizeofOneNamedTy()
562 if (ty == MPI_COMPLEX) return 2 * 4; /* MPI2 spec */ in sizeofOneNamedTy()
565 if (ty == MPI_DOUBLE_COMPLEX) return 2 * 8; /* MPI2 spec */ in sizeofOneNamedTy()
568 if (ty == MPI_LOGICAL) return 4; /* MPI2 spec */ in sizeofOneNamedTy()
571 if (ty == MPI_2INTEGER) return 2 * 4; /* undocumented in MPI2 */ in sizeofOneNamedTy()
574 if (ty == MPI_2COMPLEX) return 2 * 8; /* undocumented in MPI2 */ in sizeofOneNamedTy()
579 if (ty == MPI_2DOUBLE_COMPLEX) return 32; /* undocumented in MPI2 */ in sizeofOneNamedTy()
582 if (ty == MPI_2REAL) return 2 * 4; /* undocumented in MPI2 */ in sizeofOneNamedTy()
585 if (ty == MPI_2DOUBLE_PRECISION) return 2 * 8; /* undocumented in MPI2 */ in sizeofOneNamedTy()
588 if (ty == MPI_CHARACTER) return 1; /* MPI2 spec */ in sizeofOneNamedTy()
662 MPI_Datatype ty, long count );
669 void walk_type ( void(*f)(void*,long), char* base, MPI_Datatype ty ) in walk_type() argument
682 printf("walk_type %p\n", (void*)(unsigned long)ty); in walk_type()
684 r = PMPI_Type_get_envelope( ty, &n_ints, &n_addrs, &n_dtys, &tycon ); in walk_type()
689 long sz = sizeofOneNamedTy(ty); in walk_type()
700 if (ty == MPI_2INT) { in walk_type()
706 if (ty == MPI_LONG_INT) { in walk_type()
712 if (ty == MPI_DOUBLE_INT) { in walk_type()
718 if (ty == MPI_SHORT_INT) { in walk_type()
724 if (ty == MPI_FLOAT_INT) { in walk_type()
730 if (ty == MPI_LONG_DOUBLE_INT) { in walk_type()
736 if (ty == MPI_LB || ty == MPI_UB) in walk_type()
743 ex = extentOfTy(ty); in walk_type()
767 r = PMPI_Type_get_contents( ty, n_ints, n_addrs, n_dtys, in walk_type()
869 preamble, my_pid, (long)ty); in walk_type()
870 showTy(stderr, ty); in walk_type()
933 ( void(*f)(void*,long), char* base, MPI_Datatype ty ) in mpiwrap_walk_type_EXTERNALLY_VISIBLE() argument
935 walk_type(f, base, ty); in mpiwrap_walk_type_EXTERNALLY_VISIBLE()
1126 MPI_Datatype ty, int* count ) in WRAPPER_FOR()
1134 CALL_FN_W_WWW(err, fn, status,ty,count); in WRAPPER_FOR()
1761 int WRAPPER_FOR(PMPI_Type_commit)( MPI_Datatype* ty ) in HAS_NO_WRAPPER()
1767 check_mem_is_defined_untyped(ty, sizeof(*ty)); in HAS_NO_WRAPPER()
1769 CALL_FN_W_W(err, fn, ty); in HAS_NO_WRAPPER()
1776 int WRAPPER_FOR(PMPI_Type_free)( MPI_Datatype* ty ) in WRAPPER_FOR()
1782 check_mem_is_defined_untyped(ty, sizeof(*ty)); in WRAPPER_FOR()
1784 CALL_FN_W_W(err, fn, ty); in WRAPPER_FOR()