This source file includes following definitions.
- MPI_File_write_ordered_begin
1
2
3
4
5
6
7
8 #include "mpioimpl.h"
9
10 #ifdef HAVE_WEAK_SYMBOLS
11
12 #if defined(HAVE_PRAGMA_WEAK)
13 #pragma weak MPI_File_write_ordered_begin = PMPI_File_write_ordered_begin
14 #elif defined(HAVE_PRAGMA_HP_SEC_DEF)
15 #pragma _HP_SECONDARY_DEF PMPI_File_write_ordered_begin MPI_File_write_ordered_begin
16 #elif defined(HAVE_PRAGMA_CRI_DUP)
17 #pragma _CRI duplicate MPI_File_write_ordered_begin as PMPI_File_write_ordered_begin
18
19 #elif defined(HAVE_WEAK_ATTRIBUTE)
20 int MPI_File_write_ordered_begin(MPI_File fh, const void *buf, int count, MPI_Datatype datatype)
21 __attribute__((weak,alias("PMPI_File_write_ordered_begin")));
22 #endif
23
24
25 #define MPIO_BUILD_PROFILING
26 #include "mpioprof.h"
27 #endif
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42 int MPI_File_write_ordered_begin(MPI_File fh, ROMIO_CONST void *buf, int count,
43 MPI_Datatype datatype)
44 {
45 int error_code, nprocs, myrank;
46 ADIO_Offset incr;
47 MPI_Count datatype_size;
48 int source, dest;
49 static char myname[] = "MPI_FILE_WRITE_ORDERED_BEGIN";
50 ADIO_Offset shared_fp;
51 ADIO_File adio_fh;
52 void *e32buf = NULL;
53 const void *xbuf=NULL;
54
55 ROMIO_THREAD_CS_ENTER();
56
57 adio_fh = MPIO_File_resolve(fh);
58
59
60 MPIO_CHECK_FILE_HANDLE(adio_fh, myname, error_code);
61 MPIO_CHECK_COUNT(adio_fh, count, myname, error_code);
62 MPIO_CHECK_DATATYPE(adio_fh, datatype, myname, error_code);
63
64 if (adio_fh->split_coll_count)
65 {
66 error_code = MPIO_Err_create_code(MPI_SUCCESS, MPIR_ERR_RECOVERABLE,
67 myname, __LINE__, MPI_ERR_IO,
68 "**iosplitcoll", 0);
69 error_code = MPIO_Err_return_file(adio_fh, error_code);
70 goto fn_exit;
71 }
72
73
74 adio_fh->split_coll_count = 1;
75
76 MPI_Type_size_x(datatype, &datatype_size);
77
78 MPIO_CHECK_INTEGRAL_ETYPE(adio_fh, count, datatype_size, myname, error_code);
79 MPIO_CHECK_FS_SUPPORTS_SHARED(adio_fh, myname, error_code);
80 MPIO_CHECK_COUNT_SIZE(adio_fh, count, datatype_size, myname, error_code);
81
82
83 ADIOI_TEST_DEFERRED(adio_fh, myname, &error_code);
84
85 MPI_Comm_size(adio_fh->comm, &nprocs);
86 MPI_Comm_rank(adio_fh->comm, &myrank);
87
88 incr = (count*datatype_size)/adio_fh->etype_size;
89
90 source = myrank - 1;
91 dest = myrank + 1;
92 if (source < 0) source = MPI_PROC_NULL;
93 if (dest >= nprocs) dest = MPI_PROC_NULL;
94 MPI_Recv(NULL, 0, MPI_BYTE, source, 0, adio_fh->comm, MPI_STATUS_IGNORE);
95
96 ADIO_Get_shared_fp(adio_fh, incr, &shared_fp, &error_code);
97
98 if (error_code != MPI_SUCCESS)
99 {
100 error_code = MPIO_Err_create_code(MPI_SUCCESS, MPIR_ERR_FATAL,
101 myname, __LINE__, MPI_ERR_INTERN,
102 "**iosharedfailed", 0);
103 error_code = MPIO_Err_return_file(adio_fh, error_code);
104 goto fn_exit;
105 }
106
107
108 MPI_Send(NULL, 0, MPI_BYTE, dest, 0, adio_fh->comm);
109
110 xbuf = buf;
111 if (adio_fh->is_external32) {
112 error_code = MPIU_external32_buffer_setup(buf, count, datatype, &e32buf);
113 if (error_code != MPI_SUCCESS)
114 goto fn_exit;
115
116 xbuf = e32buf;
117 }
118
119 ADIO_WriteStridedColl(adio_fh, xbuf, count, datatype, ADIO_EXPLICIT_OFFSET,
120 shared_fp, &adio_fh->split_status, &error_code);
121
122
123 if (error_code != MPI_SUCCESS)
124 error_code = MPIO_Err_return_file(adio_fh, error_code);
125
126
127 fn_exit:
128 ROMIO_THREAD_CS_EXIT();
129
130
131 return error_code;
132 }