unallocated Pstream

src/Pstream/mpi/UOPwrite.C

@@ -0,0 +1,104 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2009 OpenCFD Ltd.
+     \\/     M anipulation  |
+-------------------------------------------------------------------------------
+License
+    This file is part of OpenFOAM.
+
+    OpenFOAM is free software; you can redistribute it and/or modify it
+    under the terms of the GNU General Public License as published by the
+    Free Software Foundation; either version 2 of the License, or (at your
+    option) any later version.
+
+    OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
+    ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
+    FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
+    for more details.
+
+    You should have received a copy of the GNU General Public License
+    along with OpenFOAM; if not, write to the Free Software Foundation,
+    Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
+Description
+    Write primitive and binary block from OPstream
+
+\*---------------------------------------------------------------------------*/
+
+#include "mpi.h"
+
+#include "UOPstream.H"
+#include "PstreamGlobals.H"
+
+// * * * * * * * * * * * * * * * Member Functions  * * * * * * * * * * * * * //
+
+bool Foam::UOPstream::write
+(
+    const commsTypes commsType,
+    const int toProcNo,
+    const char* buf,
+    const std::streamsize bufSize
+)
+{
+    bool transferFailed = true;
+
+    if (commsType == blocking)
+    {
+        transferFailed = MPI_Bsend
+        (
+            const_cast<char*>(buf),
+            bufSize,
+            MPI_PACKED,
+            procID(toProcNo),
+            msgType(),
+            MPI_COMM_WORLD
+        );
+    }
+    else if (commsType == scheduled)
+    {
+        transferFailed = MPI_Send
+        (
+            const_cast<char*>(buf),
+            bufSize,
+            MPI_PACKED,
+            procID(toProcNo),
+            msgType(),
+            MPI_COMM_WORLD
+        );
+    }
+    else if (commsType == nonBlocking)
+    {
+        MPI_Request request;
+
+        transferFailed = MPI_Isend
+        (
+            const_cast<char*>(buf),
+            bufSize,
+            MPI_PACKED,
+            procID(toProcNo),
+            msgType(),
+            MPI_COMM_WORLD,
+            &request
+        );
+
+        PstreamGlobals::outstandingRequests_.append(request);
+    }
+    else
+    {
+        FatalErrorIn
+        (
+            "UOPstream::write"
+            "(const int fromProcNo, char* buf, std::streamsize bufSize)"
+        )   << "Unsupported communications type " << commsType
+            << Foam::abort(FatalError);
+    }
+
+    return !transferFailed;
+}
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+// ************************************************************************* //