1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
|
/* -*- Mode: C; c-basic-offset:4 ; -*- */
/*
* Copyright (c) 2004-2006 The Trustees of Indiana University and Indiana
* University Research and Technology
* Corporation. All rights reserved.
* Copyright (c) 2004-2013 The University of Tennessee and The University
* of Tennessee Research Foundation. All rights
* reserved.
* Copyright (c) 2004-2006 High Performance Computing Center Stuttgart,
* University of Stuttgart. All rights reserved.
* Copyright (c) 2004-2006 The Regents of the University of California.
* All rights reserved.
* Copyright (c) 2009 Oak Ridge National Labs. All rights reserved.
* $COPYRIGHT$
*
* Additional copyrights may follow
*
* $HEADER$
*/
#include "ompi_config.h"
#include "opal/datatype/opal_convertor.h"
#include "opal/util/arch.h"
#include "ompi/datatype/ompi_datatype.h"
/* From the MPI standard. external32 use the following types:
* Type Length
* MPI_PACKED 1
* MPI_BYTE 1
* MPI_CHAR 1
* MPI_UNSIGNED_CHAR 1
* MPI_SIGNED_CHAR 1
* MPI_WCHAR 2
* MPI_SHORT 2
* MPI_UNSIGNED_SHORT 2
* MPI_INT 4
* MPI_UNSIGNED 4
* MPI_LONG 4
* MPI_UNSIGNED_LONG 4
* MPI_FLOAT 4
* MPI_DOUBLE 8
* MPI_LONG_DOUBLE 16
* Fortran types
* MPI_CHARACTER 1
* MPI_LOGICAL 4
* MPI_INTEGER 4
* MPI_REAL 4
* MPI_DOUBLE_PRECISION 8
* MPI_COMPLEX 2*4
* MPI_DOUBLE_COMPLEX 2*8
* Optional types
* MPI_INTEGER1 1
* MPI_INTEGER2 2
* MPI_INTEGER4 4
* MPI_INTEGER8 8
* MPI_LONG_LONG_INT 8
* MPI_UNSIGNED_LONG_LONG 8
* MPI_REAL4 4
* MPI_REAL8 8
* MPI_REAL16 16
*
* All floating point values are in big-endian IEEE format. Double extended use 16 bytes, with
* 15 exponent bits (bias = 10383), 112 mantissa bits and the same encoding as double. All
* integers are in two's complement big-endian format.
*
* All data are byte aligned, regardless of type. That's exactly what we expect as we can
* consider the data stored in external32 as being packed.
*/
uint32_t ompi_datatype_external32_arch_id = OPAL_ARCH_LDEXPSIZEIS15 | OPAL_ARCH_LDMANTDIGIS113 |
OPAL_ARCH_LONGDOUBLEIS128 | OPAL_ARCH_ISBIGENDIAN |
OPAL_ARCH_HEADERMASK | OPAL_ARCH_HEADERMASK2 |
OPAL_ARCH_BOOLIS8 | OPAL_ARCH_LOGICALIS8;
opal_convertor_t* ompi_mpi_external32_convertor = NULL;
opal_convertor_t* ompi_mpi_local_convertor = NULL;
int32_t ompi_datatype_default_convertors_init( void )
{
/* create the extern32 convertor */
ompi_mpi_external32_convertor = opal_convertor_create( ompi_datatype_external32_arch_id, 0 );
/* create the local convertor */
ompi_mpi_local_convertor = opal_convertor_create( opal_local_arch, 0 );
return OMPI_SUCCESS;
}
int32_t ompi_datatype_default_convertors_fini( void )
{
if (NULL != ompi_mpi_external32_convertor) {
OBJ_RELEASE( ompi_mpi_external32_convertor );
}
if (NULL != ompi_mpi_local_convertor) {
OBJ_RELEASE( ompi_mpi_local_convertor );
}
return OMPI_SUCCESS;
}
|
