Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
A
ADIOS2
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Locked files
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package Registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Code review analytics
Issue analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Podhorszki, Norbert
ADIOS2
Commits
26834fe7
Commit
26834fe7
authored
8 years ago
by
wfg
Browse files
Options
Downloads
Plain Diff
Merge branch 'groupless' of
https://github.com/williamfgc/ADIOSPP.git
into groupless
parents
7d182edb
57ec7a2a
No related branches found
No related tags found
1 merge request
!8
Integrate groupless
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
src/mpidummy.cpp
+23
-22
23 additions, 22 deletions
src/mpidummy.cpp
with
23 additions
and
22 deletions
src/mpidummy.cpp
+
23
−
22
View file @
26834fe7
/*
/*
* ADIOS is freely available under the terms of the BSD license described
* ADIOS is freely available under the terms of the BSD license described
* in the COPYING file in the top level directory of this source distribution.
* in the COPYING file in the top level directory of this source distribution.
*
*
...
@@ -9,6 +9,7 @@
...
@@ -9,6 +9,7 @@
A dummy MPI implementation for the BP READ API, to have an MPI-free version of the API
A dummy MPI implementation for the BP READ API, to have an MPI-free version of the API
*/
*/
/// \cond EXCLUDE_FROM_DOXYGEN
/// \cond EXCLUDE_FROM_DOXYGEN
#define __STDC_FORMAT_MACROS
#include
<stdint.h>
#include
<stdint.h>
#include
<inttypes.h>
#include
<inttypes.h>
#include
<stdio.h>
#include
<stdio.h>
...
@@ -24,7 +25,7 @@
...
@@ -24,7 +25,7 @@
#if defined(__APPLE__) || defined(__WIN32__) || defined(__CYGWIN__)
#if defined(__APPLE__) || defined(__WIN32__) || defined(__CYGWIN__)
# define lseek64 lseek
# define lseek64 lseek
# define open64 open
# define open64 open
#endif
#endif
...
@@ -35,16 +36,16 @@ namespace adios
...
@@ -35,16 +36,16 @@ namespace adios
static
char
mpierrmsg
[
MPI_MAX_ERROR_STRING
];
static
char
mpierrmsg
[
MPI_MAX_ERROR_STRING
];
int
MPI_Init
(
int
*
argc
,
char
***
argv
)
int
MPI_Init
(
int
*
argc
,
char
***
argv
)
{
{
mpierrmsg
[
0
]
=
'\0'
;
mpierrmsg
[
0
]
=
'\0'
;
return
MPI_SUCCESS
;
return
MPI_SUCCESS
;
}
}
int
MPI_Finalize
()
int
MPI_Finalize
()
{
{
mpierrmsg
[
0
]
=
'\0'
;
mpierrmsg
[
0
]
=
'\0'
;
return
MPI_SUCCESS
;
return
MPI_SUCCESS
;
}
}
int
MPI_Initialized
(
int
*
flag
)
int
MPI_Initialized
(
int
*
flag
)
...
@@ -64,8 +65,8 @@ int MPI_Comm_size(MPI_Comm comm, int *size) { *size = 1; return MPI_SUCCESS; }
...
@@ -64,8 +65,8 @@ int MPI_Comm_size(MPI_Comm comm, int *size) { *size = 1; return MPI_SUCCESS; }
int
MPI_Comm_free
(
MPI_Comm
*
comm
)
{
*
comm
=
0
;
return
MPI_SUCCESS
;
}
int
MPI_Comm_free
(
MPI_Comm
*
comm
)
{
*
comm
=
0
;
return
MPI_SUCCESS
;
}
MPI_Comm
MPI_Comm_f2c
(
MPI_Fint
comm
)
{
return
comm
;
}
MPI_Comm
MPI_Comm_f2c
(
MPI_Fint
comm
)
{
return
comm
;
}
int
MPI_Gather
(
void
*
sendbuf
,
int
sendcnt
,
MPI_Datatype
sendtype
,
int
MPI_Gather
(
void
*
sendbuf
,
int
sendcnt
,
MPI_Datatype
sendtype
,
void
*
recvbuf
,
int
recvcnt
,
MPI_Datatype
recvtype
,
void
*
recvbuf
,
int
recvcnt
,
MPI_Datatype
recvtype
,
int
root
,
MPI_Comm
comm
)
int
root
,
MPI_Comm
comm
)
{
{
int
ier
=
MPI_SUCCESS
;
int
ier
=
MPI_SUCCESS
;
...
@@ -97,8 +98,8 @@ int MPI_Gather(void *sendbuf, int sendcnt, MPI_Datatype sendtype,
...
@@ -97,8 +98,8 @@ int MPI_Gather(void *sendbuf, int sendcnt, MPI_Datatype sendtype,
return
ier
;
return
ier
;
}
}
int
MPI_Gatherv
(
void
*
sendbuf
,
int
sendcnt
,
MPI_Datatype
sendtype
,
int
MPI_Gatherv
(
void
*
sendbuf
,
int
sendcnt
,
MPI_Datatype
sendtype
,
void
*
recvbuf
,
int
*
recvcnts
,
int
*
displs
,
void
*
recvbuf
,
int
*
recvcnts
,
int
*
displs
,
MPI_Datatype
recvtype
,
int
root
,
MPI_Comm
comm
)
MPI_Datatype
recvtype
,
int
root
,
MPI_Comm
comm
)
{
{
int
ier
=
MPI_SUCCESS
;
int
ier
=
MPI_SUCCESS
;
...
@@ -117,8 +118,8 @@ int MPI_Allgather(void *sendbuf, int sendcount, MPI_Datatype sendtype,
...
@@ -117,8 +118,8 @@ int MPI_Allgather(void *sendbuf, int sendcount, MPI_Datatype sendtype,
return
MPI_Gather
(
sendbuf
,
sendcount
,
sendtype
,
recvbuf
,
recvcount
,
recvtype
,
0
,
comm
);
return
MPI_Gather
(
sendbuf
,
sendcount
,
sendtype
,
recvbuf
,
recvcount
,
recvtype
,
0
,
comm
);
}
}
int
MPI_Scatter
(
void
*
sendbuf
,
int
sendcnt
,
MPI_Datatype
sendtype
,
int
MPI_Scatter
(
void
*
sendbuf
,
int
sendcnt
,
MPI_Datatype
sendtype
,
void
*
recvbuf
,
int
recvcnt
,
MPI_Datatype
recvtype
,
int
root
,
void
*
recvbuf
,
int
recvcnt
,
MPI_Datatype
recvtype
,
int
root
,
MPI_Comm
comm
)
MPI_Comm
comm
)
{
{
int
ier
=
MPI_SUCCESS
;
int
ier
=
MPI_SUCCESS
;
...
@@ -150,7 +151,7 @@ int MPI_Scatter(void *sendbuf, int sendcnt, MPI_Datatype sendtype,
...
@@ -150,7 +151,7 @@ int MPI_Scatter(void *sendbuf, int sendcnt, MPI_Datatype sendtype,
return
ier
;
return
ier
;
}
}
int
MPI_Scatterv
(
void
*
sendbuf
,
int
*
sendcnts
,
int
*
displs
,
int
MPI_Scatterv
(
void
*
sendbuf
,
int
*
sendcnts
,
int
*
displs
,
MPI_Datatype
sendtype
,
void
*
recvbuf
,
int
recvcnt
,
MPI_Datatype
sendtype
,
void
*
recvbuf
,
int
recvcnt
,
MPI_Datatype
recvtype
,
MPI_Datatype
recvtype
,
int
root
,
MPI_Comm
comm
)
int
root
,
MPI_Comm
comm
)
...
@@ -170,7 +171,7 @@ int MPI_Recv( void *recvbuffer, int count, MPI_Datatype type, int source, int ta
...
@@ -170,7 +171,7 @@ int MPI_Recv( void *recvbuffer, int count, MPI_Datatype type, int source, int ta
int
MPI_Send
(
void
*
sendbuffer
,
int
count
,
MPI_Datatype
type
,
int
destination
,
int
tag
,
MPI_Comm
comm
)
int
MPI_Send
(
void
*
sendbuffer
,
int
count
,
MPI_Datatype
type
,
int
destination
,
int
tag
,
MPI_Comm
comm
)
{
return
0
;
}
{
return
0
;
}
int
MPI_File_open
(
MPI_Comm
comm
,
char
*
filename
,
int
amode
,
MPI_Info
info
,
MPI_File
*
fh
)
int
MPI_File_open
(
MPI_Comm
comm
,
char
*
filename
,
int
amode
,
MPI_Info
info
,
MPI_File
*
fh
)
{
{
*
fh
=
open64
(
filename
,
amode
);
*
fh
=
open64
(
filename
,
amode
);
if
(
*
fh
==
-
1
)
{
if
(
*
fh
==
-
1
)
{
...
@@ -214,15 +215,15 @@ int MPI_File_seek(MPI_File fh, MPI_Offset offset, int whence)
...
@@ -214,15 +215,15 @@ int MPI_File_seek(MPI_File fh, MPI_Offset offset, int whence)
return
MPI_SUCCESS
;
return
MPI_SUCCESS
;
}
}
int
MPI_Get_count
(
MPI_Status
*
status
,
MPI_Datatype
datatype
,
int
*
count
)
int
MPI_Get_count
(
MPI_Status
*
status
,
MPI_Datatype
datatype
,
int
*
count
)
{
{
*
count
=
(
int
)
*
status
;
*
count
=
(
int
)
*
status
;
return
MPI_SUCCESS
;
return
MPI_SUCCESS
;
}
}
int
MPI_Error_string
(
int
errorcode
,
char
*
string
,
int
*
resultlen
)
int
MPI_Error_string
(
int
errorcode
,
char
*
string
,
int
*
resultlen
)
{
{
//sprintf(string, "Dummy lib does not know error strings. Code=%d\n",errorcode);
//sprintf(string, "Dummy lib does not know error strings. Code=%d\n",errorcode);
strcpy
(
string
,
mpierrmsg
);
strcpy
(
string
,
mpierrmsg
);
*
resultlen
=
strlen
(
string
);
*
resultlen
=
strlen
(
string
);
return
MPI_SUCCESS
;
return
MPI_SUCCESS
;
...
@@ -233,7 +234,7 @@ double MPI_Wtime()
...
@@ -233,7 +234,7 @@ double MPI_Wtime()
// Implementation not tested
// Implementation not tested
struct
timeval
tv
;
struct
timeval
tv
;
gettimeofday
(
&
tv
,
NULL
);
gettimeofday
(
&
tv
,
NULL
);
return
(
double
)(
tv
.
tv_sec
)
+
(
double
)(
tv
.
tv_usec
)
/
1000000
;
return
(
double
)(
tv
.
tv_sec
)
+
(
double
)(
tv
.
tv_usec
)
/
1000000
;
}
}
int
MPI_Get_processor_name
(
char
*
name
,
int
*
resultlen
)
int
MPI_Get_processor_name
(
char
*
name
,
int
*
resultlen
)
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment