fixed writing out entries in advective bc
[OpenFOAM-1.6-ext.git] / src / lagrangian / molecularDynamics / potential / energyScalingFunction / basic / newEnergyScalingFunction.C
blobae1025fc48417e6f3d8500165e147d86f7106b2d
1 /*---------------------------------------------------------------------------*\
2   =========                 |
3   \\      /  F ield         | OpenFOAM: The Open Source CFD Toolbox
4    \\    /   O peration     |
5     \\  /    A nd           | Copyright held by original author
6      \\/     M anipulation  |
7 -------------------------------------------------------------------------------
8 License
9     This file is part of OpenFOAM.
11     OpenFOAM is free software; you can redistribute it and/or modify it
12     under the terms of the GNU General Public License as published by the
13     Free Software Foundation; either version 2 of the License, or (at your
14     option) any later version.
16     OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
17     ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
18     FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
19     for more details.
21     You should have received a copy of the GNU General Public License
22     along with OpenFOAM; if not, write to the Free Software Foundation,
23     Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
25 \*---------------------------------------------------------------------------*/
27 #include "energyScalingFunction.H"
29 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
31 namespace Foam
34 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
36 autoPtr<energyScalingFunction> energyScalingFunction::New
38     const word& name,
39     const dictionary& energyScalingFunctionProperties,
40     const pairPotential& pairPot
43     word energyScalingFunctionTypeName
44     (
45         energyScalingFunctionProperties.lookup("energyScalingFunction")
46     );
48     Info<< "Selecting energy scaling function "
49         << energyScalingFunctionTypeName << " for "
50         << name << " potential energy." << endl;
52     dictionaryConstructorTable::iterator cstrIter =
53         dictionaryConstructorTablePtr_->find(energyScalingFunctionTypeName);
55     if (cstrIter == dictionaryConstructorTablePtr_->end())
56     {
57         FatalErrorIn
58         (
59             "energyScalingFunction::New()"
60         )   << "Unknown energyScalingFunction type "
61             << energyScalingFunctionTypeName << nl << nl
62             << "Valid  energyScalingFunctions are: " << nl
63             << dictionaryConstructorTablePtr_->toc()
64             << exit(FatalError);
65     }
67     return autoPtr<energyScalingFunction>
68         (cstrIter()(name, energyScalingFunctionProperties, pairPot));
72 // * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
74 } // End namespace Foam
76 // ************************************************************************* //