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
|
/*******************************************************************/
/* XDMF */
/* eXtensible Data Model and Format */
/* */
/* Id : Id */
/* Date : $Date$ */
/* Version : $Revision$ */
/* */
/* Author: */
/* Jerry A. Clarke */
/* clarke@arl.army.mil */
/* US Army Research Laboratory */
/* Aberdeen Proving Ground, MD */
/* */
/* Copyright @ 2007 US Army Research Laboratory */
/* All Rights Reserved */
/* See Copyright.txt or http://www.arl.hpc.mil/ice for details */
/* */
/* This software is distributed WITHOUT ANY WARRANTY; without */
/* even the implied warranty of MERCHANTABILITY or FITNESS */
/* FOR A PARTICULAR PURPOSE. See the above copyright notice */
/* for more information. */
/* */
/*******************************************************************/
#include "XdmfDsmComm.h"
#include "XdmfDsmMsg.h"
namespace xdmf2
{
XdmfDsmComm::XdmfDsmComm() {
}
XdmfDsmComm::~XdmfDsmComm() {
}
XdmfInt32
XdmfDsmComm::Init(){
return(XDMF_SUCCESS);
}
XdmfInt32
XdmfDsmComm::Check(XdmfDsmMsg *Msg){
if(Msg->Tag <= 0) Msg->Tag = XDMF_DSM_DEFAULT_TAG;
return(XDMF_SUCCESS);
}
XdmfInt32
XdmfDsmComm::Receive(XdmfDsmMsg *Msg){
if(Msg->Tag <= 0) Msg->Tag = XDMF_DSM_DEFAULT_TAG;
if(Msg->Length <= 0 ){
XdmfErrorMessage("Cannot Receive Message of Length = " << Msg->Length);
return(XDMF_FAIL);
}
if(Msg->Data == NULL){
XdmfErrorMessage("Cannot Receive Message into Data Buffer = " << Msg->Length);
return(XDMF_FAIL);
}
return(XDMF_SUCCESS);
}
XdmfInt32
XdmfDsmComm::Send(XdmfDsmMsg *Msg){
if(Msg->Tag <= 0) Msg->Tag = XDMF_DSM_DEFAULT_TAG;
if(Msg->Length <= 0 ){
XdmfErrorMessage("Cannot Send Message of Length = " << Msg->Length);
return(XDMF_FAIL);
}
if(Msg->Data == NULL) {
XdmfErrorMessage("Cannot Send Message from Data Buffer = " << Msg->Length);
return(XDMF_FAIL);
}
return(XDMF_SUCCESS);
}
XdmfInt32
XdmfDsmComm::Barrier(){
return(XDMF_SUCCESS);
}
}
|
