Creation of OpenFOAM-dev repository 15/04/2008

2025-11-28 03:28:01 +00:00 · 2008-04-15 18:56:58 +01:00
commit 3170c7c0c9
9896 changed files with 4016171 additions and 0 deletions
--- a/src/OpenFOAM/matrices/LUscalarMatrix/LUscalarMatrixTemplates.C
+++ b/src/OpenFOAM/matrices/LUscalarMatrix/LUscalarMatrixTemplates.C
@ -0,0 +1,123 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
+   \\    /   O peration     |
+    \\  /    A nd           | Copyright (C) 1991-2007 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
+
+\*---------------------------------------------------------------------------*/
+
+#include "LUscalarMatrix.H"
+
+// * * * * * * * * * * * * * * * Member Functions  * * * * * * * * * * * * * //
+
+template<class T>
+void Foam::LUscalarMatrix::solve(Field<T>& sourceSol) const
+{
+    if (Pstream::parRun())
+    {
+        Field<T> completeSourceSol(n());
+
+        if (Pstream::master())
+        {
+            typename Field<T>::subField
+            (
+                completeSourceSol,
+                sourceSol.size()
+            ).assign(sourceSol);
+
+            for
+            (
+                int slave=Pstream::firstSlave();
+                slave<=Pstream::lastSlave();
+                slave++
+            )
+            {
+                IPstream::read
+                (
+                    Pstream::scheduled,
+                    slave,
+                    reinterpret_cast<char*>
+                    (
+                        &(completeSourceSol[procOffsets_[slave]])
+                    ),
+                    (procOffsets_[slave + 1] - procOffsets_[slave])*sizeof(T)
+                );
+            }
+        }
+        else
+        {
+            OPstream::write
+            (
+                Pstream::scheduled,
+                Pstream::masterNo(),
+                reinterpret_cast<const char*>(sourceSol.begin()),
+                sourceSol.byteSize()
+            );
+        }
+
+        if (Pstream::master())
+        {
+            LUBacksubstitute(*this, pivotIndices_, completeSourceSol);
+
+            sourceSol = typename Field<T>::subField
+            (
+                completeSourceSol,
+                sourceSol.size()
+            );
+
+            for
+            (
+                int slave=Pstream::firstSlave();
+                slave<=Pstream::lastSlave();
+                slave++
+            )
+            {
+                OPstream::write
+                (
+                    Pstream::blocking,
+                    slave,
+                    reinterpret_cast<const char*>
+                    (
+                        &(completeSourceSol[procOffsets_[slave]])
+                    ),
+                    (procOffsets_[slave + 1] - procOffsets_[slave])*sizeof(T)
+                );
+            }
+        }
+        else
+        {
+            IPstream::read
+            (
+                Pstream::blocking,
+                Pstream::masterNo(),
+                reinterpret_cast<char*>(sourceSol.begin()),
+                sourceSol.byteSize()
+            );
+        }
+    }
+    else
+    {
+        LUBacksubstitute(*this, pivotIndices_, sourceSol);
+    }
+}
+
+
+// ************************************************************************* //