From afeb6029125772d2b3d2e9895389f9d5ef381d8d Mon Sep 17 00:00:00 2001
From: mattijs <mattijs>
Date: Mon, 2 Nov 2009 08:47:15 +0000
Subject: [PATCH 1/4] revert to normal HashTable

---
 src/edgeMesh/edgeMesh.C | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/src/edgeMesh/edgeMesh.C b/src/edgeMesh/edgeMesh.C
index 6a3933c84f..d39810a62d 100644
--- a/src/edgeMesh/edgeMesh.C
+++ b/src/edgeMesh/edgeMesh.C
@@ -26,9 +26,6 @@ License
 
 #include "edgeMesh.H"
 #include "mergePoints.H"
-#include "StaticHashTable.H"
-
-// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
 
 // * * * * * * * * * * * * * Private Member Functions  * * * * * * * * * * * //
 
@@ -204,7 +201,7 @@ void Foam::edgeMesh::mergePoints(const scalar mergeDist)
         }
 
         // Compact using a hashtable and commutative hash of edge.
-        StaticHashTable<label, edge, Hash<edge> > edgeToLabel
+        HashTable<label, edge, Hash<edge> > edgeToLabel
         (
             2*edges_.size()
         );
@@ -228,7 +225,7 @@ void Foam::edgeMesh::mergePoints(const scalar mergeDist)
 
         for
         (
-            StaticHashTable<label, edge, Hash<edge> >::const_iterator iter =
+            HashTable<label, edge, Hash<edge> >::const_iterator iter =
                 edgeToLabel.begin();
             iter != edgeToLabel.end();
             ++iter

From ba1422df46da6feb5df622d7f2158c7dd584a256 Mon Sep 17 00:00:00 2001
From: mattijs <mattijs>
Date: Mon, 2 Nov 2009 13:30:36 +0000
Subject: [PATCH 2/4] Tecplot360 writer

---
 .../dataConversion/foamToTecplot360/Allwmake  |    6 +
 .../foamToTecplot360/Make/files               |    5 +
 .../foamToTecplot360/Make/options             |   14 +
 .../foamToTecplot360/foamToTecplot360.C       | 1325 +++++++++++++++++
 .../foamToTecplot360/readFields.C             |   87 ++
 .../foamToTecplot360/readFields.H             |   71 +
 .../foamToTecplot360/tecplotWriter.C          |  517 +++++++
 .../foamToTecplot360/tecplotWriter.H          |  179 +++
 .../foamToTecplot360/tecplotWriterTemplates.C |  199 +++
 .../dataConversion/foamToTecplot360/vtkMesh.C |   84 ++
 .../dataConversion/foamToTecplot360/vtkMesh.H |  179 +++
 11 files changed, 2666 insertions(+)
 create mode 100755 applications/utilities/postProcessing/dataConversion/foamToTecplot360/Allwmake
 create mode 100644 applications/utilities/postProcessing/dataConversion/foamToTecplot360/Make/files
 create mode 100644 applications/utilities/postProcessing/dataConversion/foamToTecplot360/Make/options
 create mode 100644 applications/utilities/postProcessing/dataConversion/foamToTecplot360/foamToTecplot360.C
 create mode 100644 applications/utilities/postProcessing/dataConversion/foamToTecplot360/readFields.C
 create mode 100644 applications/utilities/postProcessing/dataConversion/foamToTecplot360/readFields.H
 create mode 100644 applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecplotWriter.C
 create mode 100644 applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecplotWriter.H
 create mode 100644 applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecplotWriterTemplates.C
 create mode 100644 applications/utilities/postProcessing/dataConversion/foamToTecplot360/vtkMesh.C
 create mode 100644 applications/utilities/postProcessing/dataConversion/foamToTecplot360/vtkMesh.H

diff --git a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/Allwmake b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/Allwmake
new file mode 100755
index 0000000000..5866aa8f37
--- /dev/null
+++ b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/Allwmake
@@ -0,0 +1,6 @@
+#!/bin/sh
+
+if [ "$TEC_360_2009" ]
+then
+    wmake
+fi
diff --git a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/Make/files b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/Make/files
new file mode 100644
index 0000000000..270e84931b
--- /dev/null
+++ b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/Make/files
@@ -0,0 +1,5 @@
+tecplotWriter.C
+vtkMesh.C
+foamToTecplot360.C
+
+EXE = $(FOAM_APPBIN)/foamToTecplot360
diff --git a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/Make/options b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/Make/options
new file mode 100644
index 0000000000..d03f44ae8c
--- /dev/null
+++ b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/Make/options
@@ -0,0 +1,14 @@
+EXE_INC = \
+    -I$(TEC_360_2009)/include \
+    /* -I../tecio/tecsrc/lnInclude/ */ \
+    -I$(LIB_SRC)/lagrangian/basic/lnInclude \
+    -I$(LIB_SRC)/finiteVolume/lnInclude \
+    -I$(LIB_SRC)/meshTools/lnInclude
+
+
+EXE_LIBS = \
+    $(TEC_360_2009)/lib/tecio64.a \
+    /* -L$(FOAM_USER_LIBBIN) -ltecio */ \
+    -llagrangian \
+    -lfiniteVolume \
+    -lmeshTools
diff --git a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/foamToTecplot360.C b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/foamToTecplot360.C
new file mode 100644
index 0000000000..6e8cf99533
--- /dev/null
+++ b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/foamToTecplot360.C
@@ -0,0 +1,1325 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  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
+
+Application
+    foamToTecplot-bin
+
+Description
+    Tecplot binary file format writer.
+
+Usage
+
+    - foamToTecplot-bin [OPTION]
+
+\*---------------------------------------------------------------------------*/
+
+#include "pointMesh.H"
+#include "volPointInterpolation.H"
+#include "emptyPolyPatch.H"
+#include "labelIOField.H"
+#include "scalarIOField.H"
+#include "sphericalTensorIOField.H"
+#include "symmTensorIOField.H"
+#include "tensorIOField.H"
+#include "passiveParticleCloud.H"
+#include "faceSet.H"
+#include "stringListOps.H"
+#include "wordRe.H"
+
+#include "vtkMesh.H"
+#include "readFields.H"
+#include "tecplotWriter.H"
+
+#include "TECIO.h"
+
+// Note: needs to be after TECIO to prevent Foam::Time conflicting with
+// Xlib Time.
+#include "fvCFD.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+template<class GeoField>
+void print(const char* msg, Ostream& os, const PtrList<GeoField>& flds)
+{
+    if (flds.size())
+    {
+        os << msg;
+        forAll(flds, i)
+        {
+            os<< ' ' << flds[i].name();
+        }
+        os << endl;
+    }
+}
+
+
+void print(Ostream& os, const wordList& flds)
+{
+    forAll(flds, i)
+    {
+        os<< ' ' << flds[i];
+    }
+    os << endl;
+}
+
+
+labelList getSelectedPatches
+(
+    const polyBoundaryMesh& patches,
+    const List<wordRe>& excludePatches  //HashSet<word>& excludePatches
+)
+{
+    DynamicList<label> patchIDs(patches.size());
+
+    Info<< "Combining patches:" << endl;
+
+    forAll(patches, patchI)
+    {
+        const polyPatch& pp = patches[patchI];
+
+        if
+        (
+            isType<emptyPolyPatch>(pp)
+            || (Pstream::parRun() && isType<processorPolyPatch>(pp))
+        )
+        {
+            Info<< "    discarding empty/processor patch " << patchI
+                << " " << pp.name() << endl;
+        }
+        //else if (!excludePatches.found(pp.name()))
+        else if (!findStrings(excludePatches, pp.name()))
+        {
+            patchIDs.append(patchI);
+            Info<< "    patch " << patchI << " " << pp.name() << endl;
+        }
+    }
+    return patchIDs.shrink();
+}
+
+
+
+
+// Main program:
+
+int main(int argc, char *argv[])
+{
+    timeSelector::addOptions();
+
+#   include "addRegionOption.H"
+
+    argList::validOptions.insert("fields", "fields");
+    argList::validOptions.insert("cellSet", "cellSet name");
+    argList::validOptions.insert("faceSet", "faceSet name");
+    argList::validOptions.insert("nearCellValue","");
+    argList::validOptions.insert("noInternal","");
+    argList::validOptions.insert("noPointValues","");
+    argList::validOptions.insert
+    (
+        "excludePatches",
+        "patches (wildcards) to exclude"
+    );
+    argList::validOptions.insert("noFaceZones","");
+
+#   include "setRootCase.H"
+#   include "createTime.H"
+
+    bool doWriteInternal = !args.optionFound("noInternal");
+    bool doFaceZones     = !args.optionFound("noFaceZones");
+
+    bool nearCellValue = args.optionFound("nearCellValue");
+
+    if (nearCellValue)
+    {
+        WarningIn(args.executable())
+            << "Using neighbouring cell value instead of patch value"
+            << nl << endl;
+    }
+
+    bool noPointValues = args.optionFound("noPointValues");
+
+    if (noPointValues)
+    {
+        WarningIn(args.executable())
+            << "Outputting cell values only" << nl << endl;
+    }
+
+    List<wordRe> excludePatches;
+    if (args.optionFound("excludePatches"))
+    {
+        args.optionLookup("excludePatches")() >> excludePatches;
+
+        Info<< "Not including patches " << excludePatches << nl << endl;
+    }
+
+    word cellSetName;
+    string vtkName;
+
+    if (args.optionFound("cellSet"))
+    {
+        cellSetName = args.option("cellSet");
+        vtkName = cellSetName;
+    }
+    else if (Pstream::parRun())
+    {
+        // Strip off leading casename, leaving just processor_DDD ending.
+        vtkName = runTime.caseName();
+
+        string::size_type i = vtkName.rfind("processor");
+
+        if (i != string::npos)
+        {
+            vtkName = vtkName.substr(i);
+        }
+    }
+    else
+    {
+        vtkName = runTime.caseName();
+    }
+
+
+    instantList timeDirs = timeSelector::select0(runTime, args);
+
+#   include "createNamedMesh.H"
+
+    // TecplotData/ directory in the case
+    fileName fvPath(runTime.path()/"TecplotData-bin");
+    // Directory of mesh (region0 gets filtered out)
+    fileName regionPrefix = "";
+
+    if (regionName != polyMesh::defaultRegion)
+    {
+        fvPath = fvPath/regionName;
+        regionPrefix = regionName;
+    }
+
+    if (isDir(fvPath))
+    {
+        if
+        (
+            args.optionFound("time")
+         || args.optionFound("latestTime")
+         || cellSetName.size()
+         || regionName != polyMesh::defaultRegion
+        )
+        {
+            Info<< "Keeping old files in " << fvPath << nl << endl;
+        }
+        else
+        {
+            Info<< "Deleting old VTK files in " << fvPath << nl << endl;
+
+            rmDir(fvPath);
+        }
+    }
+
+    mkDir(fvPath);
+
+
+    // mesh wrapper; does subsetting and decomposition
+    vtkMesh vMesh(mesh, cellSetName);
+
+    forAll(timeDirs, timeI)
+    {
+        runTime.setTime(timeDirs[timeI], timeI);
+
+        Info<< "Time: " << runTime.timeName() << endl;
+
+        const word timeDesc = name(timeI);    //name(runTime.timeIndex());
+
+        // Check for new polyMesh/ and update mesh, fvMeshSubset and cell
+        // decomposition.
+        polyMesh::readUpdateState meshState = vMesh.readUpdate();
+
+        const fvMesh& mesh = vMesh.mesh();
+
+        INTEGER4 nFaceNodes = 0;
+        forAll(mesh.faces(), faceI)
+        {
+            nFaceNodes += mesh.faces()[faceI].size();
+        }
+
+
+        // Read all fields on the new mesh
+        // ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
+
+        // Search for list of objects for this time
+        IOobjectList objects(mesh, runTime.timeName());
+
+        HashSet<word> selectedFields;
+        if (args.optionFound("fields"))
+        {
+            args.optionLookup("fields")() >> selectedFields;
+        }
+
+        // Construct the vol fields (on the original mesh if subsetted)
+
+        PtrList<volScalarField> vsf;
+        readFields(vMesh, vMesh.baseMesh(), objects, selectedFields, vsf);
+        print("    volScalarFields            :", Info, vsf);
+
+        PtrList<volVectorField> vvf;
+        readFields(vMesh, vMesh.baseMesh(), objects, selectedFields, vvf);
+        print("    volVectorFields            :", Info, vvf);
+
+        PtrList<volSphericalTensorField> vSpheretf;
+        readFields(vMesh, vMesh.baseMesh(), objects, selectedFields, vSpheretf);
+        print("    volSphericalTensorFields   :", Info, vSpheretf);
+
+        PtrList<volSymmTensorField> vSymmtf;
+        readFields(vMesh, vMesh.baseMesh(), objects, selectedFields, vSymmtf);
+        print("    volSymmTensorFields        :", Info, vSymmtf);
+
+        PtrList<volTensorField> vtf;
+        readFields(vMesh, vMesh.baseMesh(), objects, selectedFields, vtf);
+        print("    volTensorFields            :", Info, vtf);
+
+
+        // Construct pointMesh only if nessecary since constructs edge
+        // addressing (expensive on polyhedral meshes)
+        if (noPointValues)
+        {
+            Info<< "    pointScalarFields : switched off"
+                << " (\"-noPointValues\" option)\n";
+            Info<< "    pointVectorFields : switched off"
+                << " (\"-noPointValues\" option)\n";
+        }
+
+        PtrList<pointScalarField> psf;
+        PtrList<pointVectorField> pvf;
+        //PtrList<pointSphericalTensorField> pSpheretf;
+        //PtrList<pointSymmTensorField> pSymmtf;
+        //PtrList<pointTensorField> ptf;
+
+
+        if (!noPointValues)
+        {
+            //// Add interpolated volFields
+            //const volPointInterpolation& pInterp = volPointInterpolation::New
+            //(
+            //    mesh
+            //);
+            //
+            //label nPsf = psf.size();
+            //psf.setSize(nPsf+vsf.size());
+            //forAll(vsf, i)
+            //{
+            //    Info<< "Interpolating " << vsf[i].name() << endl;
+            //    tmp<pointScalarField> tvsf(pInterp.interpolate(vsf[i]));
+            //    tvsf().rename(vsf[i].name() + "_point");
+            //    psf.set(nPsf, tvsf);
+            //    nPsf++;
+            //}
+            //
+            //label nPvf = pvf.size();
+            //pvf.setSize(vvf.size());
+            //forAll(vvf, i)
+            //{
+            //    Info<< "Interpolating " << vvf[i].name() << endl;
+            //    tmp<pointVectorField> tvvf(pInterp.interpolate(vvf[i]));
+            //    tvvf().rename(vvf[i].name() + "_point");
+            //    pvf.set(nPvf, tvvf);
+            //    nPvf++;
+            //}
+
+            readFields
+            (
+                vMesh,
+                pointMesh::New(vMesh.baseMesh()),
+                objects,
+                selectedFields,
+                psf
+            );
+            print("    pointScalarFields          :", Info, psf);
+
+            readFields
+            (
+                vMesh,
+                pointMesh::New(vMesh.baseMesh()),
+                objects,
+                selectedFields,
+                pvf
+            );
+            print("    pointVectorFields          :", Info, pvf);
+
+            //readFields
+            //(
+            //    vMesh,
+            //    pointMesh::New(vMesh.baseMesh()),
+            //    objects,
+            //    selectedFields,
+            //    pSpheretf
+            //);
+            //print("    pointSphericalTensorFields :", Info, pSpheretf);
+            //
+            //readFields
+            //(
+            //    vMesh,
+            //    pointMesh::New(vMesh.baseMesh()),
+            //    objects,
+            //    selectedFields,
+            //    pSymmtf
+            //);
+            //print("    pointSymmTensorFields      :", Info, pSymmtf);
+            //
+            //readFields
+            //(
+            //    vMesh,
+            //    pointMesh::New(vMesh.baseMesh()),
+            //    objects,
+            //    selectedFields,
+            //    ptf
+            //);
+            //print("    pointTensorFields          :", Info, ptf);
+        }
+        Info<< endl;
+
+
+        // Get field names
+        // ~~~~~~~~~~~~~~~
+
+        string varNames;
+        DynamicList<INTEGER4> varLocation;
+
+        string cellVarNames;
+        DynamicList<INTEGER4> cellVarLocation;
+
+        // volFields
+        tecplotWriter::getTecplotNames
+        (
+            vsf,
+            ValueLocation_CellCentered,
+            varNames,
+            varLocation
+        );
+        tecplotWriter::getTecplotNames
+        (
+            vsf,
+            ValueLocation_CellCentered,
+            cellVarNames,
+            cellVarLocation
+        );
+
+        tecplotWriter::getTecplotNames
+        (
+            vvf,
+            ValueLocation_CellCentered,
+            varNames,
+            varLocation
+        );
+        tecplotWriter::getTecplotNames
+        (
+            vvf,
+            ValueLocation_CellCentered,
+            cellVarNames,
+            cellVarLocation
+        );
+
+        tecplotWriter::getTecplotNames
+        (
+            vSpheretf,
+            ValueLocation_CellCentered,
+            varNames,
+            varLocation
+        );
+        tecplotWriter::getTecplotNames
+        (
+            vSpheretf,
+            ValueLocation_CellCentered,
+            cellVarNames,
+            cellVarLocation
+        );
+
+        tecplotWriter::getTecplotNames
+        (
+            vSymmtf,
+            ValueLocation_CellCentered,
+            varNames,
+            varLocation
+        );
+        tecplotWriter::getTecplotNames
+        (
+            vSymmtf,
+            ValueLocation_CellCentered,
+            cellVarNames,
+            cellVarLocation
+        );
+
+        tecplotWriter::getTecplotNames
+        (
+            vtf,
+            ValueLocation_CellCentered,
+            varNames,
+            varLocation
+        );
+        tecplotWriter::getTecplotNames
+        (
+            vtf,
+            ValueLocation_CellCentered,
+            cellVarNames,
+            cellVarLocation
+        );
+
+
+
+        // pointFields
+        tecplotWriter::getTecplotNames
+        (
+            psf,
+            ValueLocation_Nodal,
+            varNames,
+            varLocation
+        );
+
+        tecplotWriter::getTecplotNames
+        (
+            pvf,
+            ValueLocation_Nodal,
+            varNames,
+            varLocation
+        );
+
+        // strandID (= some zone id)
+        INTEGER4 strandID = 1;
+
+
+        if (meshState != polyMesh::UNCHANGED)
+        {
+            if (doWriteInternal)
+            {
+                // Output mesh and fields
+                fileName vtkFileName
+                (
+                    fvPath/vtkName
+                  + "_"
+                  + timeDesc
+                  + ".plt"
+                );
+
+                tecplotWriter writer(runTime);
+
+                string allVarNames = string("X Y Z ") + varNames;
+                DynamicList<INTEGER4> allVarLocation;
+                allVarLocation.append(ValueLocation_Nodal);
+                allVarLocation.append(ValueLocation_Nodal);
+                allVarLocation.append(ValueLocation_Nodal);
+                allVarLocation.append(varLocation);
+
+                writer.writeInit
+                (
+                    runTime.caseName(),
+                    allVarNames,
+                    vtkFileName,
+                    DataFileType_Full
+                );
+
+                writer.writePolyhedralZone
+                (
+                    mesh.name(),        // regionName
+                    strandID++,         // strandID
+                    mesh,
+                    allVarLocation,
+                    nFaceNodes
+                );
+
+                // Write coordinates
+                writer.writeField(mesh.points().component(0)());
+                writer.writeField(mesh.points().component(1)());
+                writer.writeField(mesh.points().component(2)());
+
+                // Write all fields
+                forAll(vsf, i)
+                {
+                    writer.writeField(vsf[i]);
+                }
+                forAll(vvf, i)
+                {
+                    writer.writeField(vvf[i]);
+                }
+                forAll(vSpheretf, i)
+                {
+                    writer.writeField(vSpheretf[i]);
+                }
+                forAll(vSymmtf, i)
+                {
+                    writer.writeField(vSymmtf[i]);
+                }
+                forAll(vtf, i)
+                {
+                    writer.writeField(vtf[i]);
+                }
+
+                forAll(psf, i)
+                {
+                    writer.writeField(psf[i]);
+                }
+                forAll(pvf, i)
+                {
+                    writer.writeField(pvf[i]);
+                }
+
+                writer.writeConnectivity(mesh);
+                writer.writeEnd();
+            }
+        }
+        else
+        {
+            if (doWriteInternal)
+            {
+                if (timeI == 0)
+                {
+                    // Output static mesh only
+                    fileName vtkFileName
+                    (
+                        fvPath/vtkName
+                      + "_grid_"
+                      + timeDesc
+                      + ".plt"
+                    );
+
+                    tecplotWriter writer(runTime);
+
+                    writer.writeInit
+                    (
+                        runTime.caseName(),
+                        "X Y Z",
+                        vtkFileName,
+                        DataFileType_Grid
+                    );
+
+                    writer.writePolyhedralZone
+                    (
+                        mesh.name(),        // regionName
+                        1,  //strandID,           // strandID
+                        mesh,
+                        List<INTEGER4>(3, ValueLocation_Nodal),
+                        nFaceNodes
+                    );
+
+                    // Write coordinates
+                    writer.writeField(mesh.points().component(0)());
+                    writer.writeField(mesh.points().component(1)());
+                    writer.writeField(mesh.points().component(2)());
+
+                    writer.writeConnectivity(mesh);
+                    writer.writeEnd();
+                }
+
+                // Output solution file
+                fileName vtkFileName
+                (
+                    fvPath/vtkName
+                  + "_"
+                  + timeDesc
+                  + ".plt"
+                );
+                
+                tecplotWriter writer(runTime);
+
+                writer.writeInit
+                (
+                    runTime.caseName(),
+                    varNames,
+                    vtkFileName,
+                    DataFileType_Solution
+                );
+
+                writer.writePolyhedralZone
+                (
+                    mesh.name(),        // regionName
+                    1,  //strandID,           // strandID
+                    mesh,
+                    varLocation,
+                    0
+                );
+
+                // Write all fields
+                forAll(vsf, i)
+                {
+                    writer.writeField(vsf[i]);
+                }
+                forAll(vvf, i)
+                {
+                    writer.writeField(vvf[i]);
+                }
+                forAll(vSpheretf, i)
+                {
+                    writer.writeField(vSpheretf[i]);
+                }
+                forAll(vSymmtf, i)
+                {
+                    writer.writeField(vSymmtf[i]);
+                }
+                forAll(vtf, i)
+                {
+                    writer.writeField(vtf[i]);
+                }
+
+                forAll(psf, i)
+                {
+                    writer.writeField(psf[i]);
+                }
+                forAll(pvf, i)
+                {
+                    writer.writeField(pvf[i]);
+                }
+                writer.writeEnd();
+            }
+        }
+
+
+        //---------------------------------------------------------------------
+        //
+        // Write faceSet
+        //
+        //---------------------------------------------------------------------
+
+        if (args.optionFound("faceSet"))
+        {
+            // Load the faceSet
+            word setName(args.option("faceSet"));
+            labelList faceLabels(faceSet(mesh, setName).toc());
+
+            // Filename as if patch with same name.
+            mkDir(fvPath/setName);
+
+            fileName patchFileName
+            (
+                fvPath/setName/setName
+              + "_"
+              + timeDesc
+              + ".plt"
+            );
+
+            Info<< "    FaceSet   : " << patchFileName << endl;
+
+            tecplotWriter writer(runTime);
+
+            string allVarNames = string("X Y Z ") + cellVarNames;
+            DynamicList<INTEGER4> allVarLocation;
+            allVarLocation.append(ValueLocation_Nodal);
+            allVarLocation.append(ValueLocation_Nodal);
+            allVarLocation.append(ValueLocation_Nodal);
+            allVarLocation.append(cellVarLocation);
+
+            writer.writeInit
+            (
+                runTime.caseName(),
+                cellVarNames,
+                patchFileName,
+                DataFileType_Full
+            );
+
+            const indirectPrimitivePatch ipp
+            (
+                IndirectList<face>(mesh.faces(), faceLabels),
+                mesh.points()
+            );
+
+            writer.writePolygonalZone
+            (
+                setName,
+                1,  //strandID,
+                ipp,
+                allVarLocation
+            );
+
+            // Write coordinates
+            writer.writeField(ipp.localPoints().component(0)());
+            writer.writeField(ipp.localPoints().component(1)());
+            writer.writeField(ipp.localPoints().component(2)());
+
+            // Write all volfields
+            forAll(vsf, i)
+            {
+                writer.writeField
+                (
+                    writer.getFaceField
+                    (
+                        fvc::interpolate(vsf[i])(),
+                        faceLabels
+                    )()
+                );
+            }
+            forAll(vvf, i)
+            {
+                writer.writeField
+                (
+                    writer.getFaceField
+                    (
+                        fvc::interpolate(vvf[i])(),
+                        faceLabels
+                    )()
+                );
+            }
+            forAll(vSpheretf, i)
+            {
+                writer.writeField
+                (
+                    writer.getFaceField
+                    (
+                        fvc::interpolate(vSpheretf[i])(),
+                        faceLabels
+                    )()
+                );
+            }
+            forAll(vSymmtf, i)
+            {
+                writer.writeField
+                (
+                    writer.getFaceField
+                    (
+                        fvc::interpolate(vSymmtf[i])(),
+                        faceLabels
+                    )()
+                );
+            }
+            forAll(vtf, i)
+            {
+                writer.writeField
+                (
+                    writer.getFaceField
+                    (
+                        fvc::interpolate(vtf[i])(),
+                        faceLabels
+                    )()
+                );
+            }
+            writer.writeConnectivity(ipp);
+
+            continue;
+        }
+
+
+
+        //---------------------------------------------------------------------
+        //
+        // Write patches as multi-zone file
+        //
+        //---------------------------------------------------------------------
+
+        const polyBoundaryMesh& patches = mesh.boundaryMesh();
+
+        labelList patchIDs(getSelectedPatches(patches, excludePatches));
+
+        mkDir(fvPath/"boundaryMesh");
+
+        fileName patchFileName;
+
+        if (vMesh.useSubMesh())
+        {
+            patchFileName =
+                fvPath/"boundaryMesh"/cellSetName
+              + "_"
+              + timeDesc
+              + ".plt";
+        }
+        else
+        {
+            patchFileName =
+                fvPath/"boundaryMesh"/"boundaryMesh"
+              + "_"
+              + timeDesc
+              + ".plt";
+        }
+
+        Info<< "    Combined patches     : " << patchFileName << endl;
+
+        tecplotWriter writer(runTime);
+
+        string allVarNames = string("X Y Z ") + varNames;
+        DynamicList<INTEGER4> allVarLocation;
+        allVarLocation.append(ValueLocation_Nodal);
+        allVarLocation.append(ValueLocation_Nodal);
+        allVarLocation.append(ValueLocation_Nodal);
+        allVarLocation.append(varLocation);
+
+        writer.writeInit
+        (
+            runTime.caseName(),
+            allVarNames,
+            patchFileName,
+            DataFileType_Full
+        );
+
+        forAll(patchIDs, i)
+        {
+            label patchID = patchIDs[i];
+            const polyPatch& pp = patches[patchID];
+            INTEGER4 strandID = 1 + i;
+
+            Info<< "    Writing patch " << patchID << "\t" << pp.name()
+                << "\tstrand:" << strandID << nl << endl;
+
+            const indirectPrimitivePatch ipp
+            (
+                IndirectList<face>(pp, identity(pp.size())),
+                pp.points()
+            );
+
+            writer.writePolygonalZone
+            (
+                pp.name(),
+                strandID,
+                ipp,
+                allVarLocation
+            );
+
+            // Write coordinates
+            writer.writeField(ipp.localPoints().component(0)());
+            writer.writeField(ipp.localPoints().component(1)());
+            writer.writeField(ipp.localPoints().component(2)());
+
+            // Write all fields
+            forAll(vsf, i)
+            {
+                writer.writeField
+                (
+                    writer.getPatchField
+                    (
+                        nearCellValue,
+                        vsf[i],
+                        patchID
+                    )()
+                );
+            }
+            forAll(vvf, i)
+            {
+                writer.writeField
+                (
+                    writer.getPatchField
+                    (
+                        nearCellValue,
+                        vvf[i],
+                        patchID
+                    )()
+                );
+            }
+            forAll(vSpheretf, i)
+            {
+                writer.writeField
+                (
+                    writer.getPatchField
+                    (
+                        nearCellValue,
+                        vSpheretf[i],
+                        patchID
+                    )()
+                );
+            }
+            forAll(vSymmtf, i)
+            {
+                writer.writeField
+                (
+                    writer.getPatchField
+                    (
+                        nearCellValue,
+                        vSymmtf[i],
+                        patchID
+                    )()
+                );
+            }
+            forAll(vtf, i)
+            {
+                writer.writeField
+                (
+                    writer.getPatchField
+                    (
+                        nearCellValue,
+                        vtf[i],
+                        patchID
+                    )()
+                );
+            }
+
+            forAll(psf, i)
+            {
+                writer.writeField
+                (
+                    psf[i].boundaryField()[patchID].patchInternalField()()
+                );
+            }
+            forAll(pvf, i)
+            {
+                writer.writeField
+                (
+                    pvf[i].boundaryField()[patchID].patchInternalField()()
+                );
+            }
+
+            writer.writeConnectivity(ipp);
+        }
+        writer.writeEnd();
+
+
+
+        //---------------------------------------------------------------------
+        //
+        // Write faceZones as multi-zone file
+        //
+        //---------------------------------------------------------------------
+
+        const faceZoneMesh& zones = mesh.faceZones();
+
+        if (doFaceZones && zones.size() > 0)
+        {
+            mkDir(fvPath/"faceZoneMesh");
+
+            fileName patchFileName;
+
+            if (vMesh.useSubMesh())
+            {
+                patchFileName =
+                    fvPath/"faceZoneMesh"/cellSetName
+                  + "_"
+                  + timeDesc
+                  + ".plt";
+            }
+            else
+            {
+                patchFileName =
+                    fvPath/"faceZoneMesh"/"faceZoneMesh"
+                  + "_"
+                  + timeDesc
+                  + ".plt";
+            }
+
+            Info<< "    FaceZone  : " << patchFileName << endl;
+
+            tecplotWriter writer(runTime);
+
+            string allVarNames = string("X Y Z ") + cellVarNames;
+            DynamicList<INTEGER4> allVarLocation;
+            allVarLocation.append(ValueLocation_Nodal);
+            allVarLocation.append(ValueLocation_Nodal);
+            allVarLocation.append(ValueLocation_Nodal);
+            allVarLocation.append(cellVarLocation);
+
+            writer.writeInit
+            (
+                runTime.caseName(),
+                cellVarNames,
+                patchFileName,
+                DataFileType_Full
+            );
+
+            forAll(zones, zoneI)
+            {
+                const faceZone& pp = zones[zoneI];
+
+                const indirectPrimitivePatch ipp
+                (
+                    IndirectList<face>(mesh.faces(), pp),
+                    mesh.points()
+                );
+
+                writer.writePolygonalZone
+                (
+                    pp.name(),
+                    1+patchIDs.size()+zoneI,    //strandID,
+                    ipp,
+                    allVarLocation
+                );
+
+                // Write coordinates
+                writer.writeField(ipp.localPoints().component(0)());
+                writer.writeField(ipp.localPoints().component(1)());
+                writer.writeField(ipp.localPoints().component(2)());
+
+                // Write all volfields
+                forAll(vsf, i)
+                {
+                    writer.writeField
+                    (
+                        writer.getFaceField
+                        (
+                            fvc::interpolate(vsf[i])(),
+                            pp
+                        )()
+                    );
+                }
+                forAll(vvf, i)
+                {
+                    writer.writeField
+                    (
+                        writer.getFaceField
+                        (
+                            fvc::interpolate(vvf[i])(),
+                            pp
+                        )()
+                    );
+                }
+                forAll(vSpheretf, i)
+                {
+                    writer.writeField
+                    (
+                        writer.getFaceField
+                        (
+                            fvc::interpolate(vSpheretf[i])(),
+                            pp
+                        )()
+                    );
+                }
+                forAll(vSymmtf, i)
+                {
+                    writer.writeField
+                    (
+                        writer.getFaceField
+                        (
+                            fvc::interpolate(vSymmtf[i])(),
+                            pp
+                        )()
+                    );
+                }
+                forAll(vtf, i)
+                {
+                    writer.writeField
+                    (
+                        writer.getFaceField
+                        (
+                            fvc::interpolate(vtf[i])(),
+                            pp
+                        )()
+                    );
+                }
+
+                writer.writeConnectivity(ipp);
+            }
+        }
+
+
+
+        //---------------------------------------------------------------------
+        //
+        // Write lagrangian data
+        //
+        //---------------------------------------------------------------------
+
+        fileNameList cloudDirs
+        (
+            readDir
+            (
+                runTime.timePath()/regionPrefix/cloud::prefix,
+                fileName::DIRECTORY
+            )
+        );
+
+        forAll(cloudDirs, cloudI)
+        {
+            IOobjectList sprayObjs
+            (
+                mesh,
+                runTime.timeName(),
+                cloud::prefix/cloudDirs[cloudI]
+            );
+
+            IOobject* positionsPtr = sprayObjs.lookup("positions");
+
+            if (positionsPtr)
+            {
+                mkDir(fvPath/cloud::prefix/cloudDirs[cloudI]);
+
+                fileName lagrFileName
+                (
+                    fvPath/cloud::prefix/cloudDirs[cloudI]/cloudDirs[cloudI]
+                  + "_" + timeDesc + ".plt"
+                );
+
+                Info<< "    Lagrangian: " << lagrFileName << endl;
+
+                wordList labelNames(sprayObjs.names(labelIOField::typeName));
+                Info<< "        labels            :";
+                print(Info, labelNames);
+
+                wordList scalarNames(sprayObjs.names(scalarIOField::typeName));
+                Info<< "        scalars           :";
+                print(Info, scalarNames);
+
+                wordList vectorNames(sprayObjs.names(vectorIOField::typeName));
+                Info<< "        vectors           :";
+                print(Info, vectorNames);
+
+                wordList sphereNames
+                (
+                    sprayObjs.names
+                    (
+                        sphericalTensorIOField::typeName
+                    )
+                );
+                Info<< "        spherical tensors :";
+                print(Info, sphereNames);
+
+                wordList symmNames
+                (
+                    sprayObjs.names
+                    (
+                        symmTensorIOField::typeName
+                    )
+                );
+                Info<< "        symm tensors      :";
+                print(Info, symmNames);
+
+                wordList tensorNames(sprayObjs.names(tensorIOField::typeName));
+                Info<< "        tensors           :";
+                print(Info, tensorNames);
+
+
+                // Load cloud positions
+                passiveParticleCloud parcels(mesh, cloudDirs[cloudI]);
+
+                // Get positions as pointField
+                pointField positions(parcels.size());
+                label n = 0;
+                forAllConstIter(passiveParticleCloud, parcels, elmnt)
+                {
+                    positions[n++] = elmnt().position();
+                }
+
+
+                string allVarNames = string("X Y Z");
+                DynamicList<INTEGER4> allVarLocation;
+                allVarLocation.append(ValueLocation_Nodal);
+                allVarLocation.append(ValueLocation_Nodal);
+                allVarLocation.append(ValueLocation_Nodal);
+
+                tecplotWriter::getTecplotNames<label>
+                (
+                    labelNames,
+                    ValueLocation_Nodal,
+                    allVarNames,
+                    allVarLocation
+                );
+
+                tecplotWriter::getTecplotNames<scalar>
+                (
+                    scalarNames,
+                    ValueLocation_Nodal,
+                    allVarNames,
+                    allVarLocation
+                );
+
+                tecplotWriter::getTecplotNames<vector>
+                (
+                    vectorNames,
+                    ValueLocation_Nodal,
+                    allVarNames,
+                    allVarLocation
+                );
+
+
+                tecplotWriter writer(runTime);
+
+                writer.writeInit
+                (
+                    runTime.caseName(),
+                    allVarNames,
+                    lagrFileName,
+                    DataFileType_Full
+                );
+
+                writer.writeOrderedZone
+                (
+                    cloudDirs[cloudI],
+                    strandID,
+                    parcels.size(),
+                    allVarLocation
+                );
+
+                // Write coordinates
+                writer.writeField(positions.component(0)());
+                writer.writeField(positions.component(1)());
+                writer.writeField(positions.component(2)());
+
+                // labelFields
+                forAll(labelNames, i)
+                {
+                    IOField<label> fld
+                    (
+                        IOobject
+                        (
+                            labelNames[i],
+                            mesh.time().timeName(),
+                            cloud::prefix/cloudDirs[cloudI],
+                            mesh,
+                            IOobject::MUST_READ,
+                            IOobject::NO_WRITE,
+                            false
+                        )
+                    );
+
+                    scalarField sfld(fld.size());
+                    forAll(fld, j)
+                    {
+                        sfld[j] = scalar(fld[j]);
+                    }
+                    writer.writeField(sfld);
+                }
+                // scalarFields
+                forAll(scalarNames, i)
+                {
+                    IOField<scalar> fld
+                    (
+                        IOobject
+                        (
+                            scalarNames[i],
+                            mesh.time().timeName(),
+                            cloud::prefix/cloudDirs[cloudI],
+                            mesh,
+                            IOobject::MUST_READ,
+                            IOobject::NO_WRITE,
+                            false
+                        )
+                    );
+                    writer.writeField(fld);
+                }
+                // vectorFields
+                forAll(vectorNames, i)
+                {
+                    IOField<vector> fld
+                    (
+                        IOobject
+                        (
+                            vectorNames[i],
+                            mesh.time().timeName(),
+                            cloud::prefix/cloudDirs[cloudI],
+                            mesh,
+                            IOobject::MUST_READ,
+                            IOobject::NO_WRITE,
+                            false
+                        )
+                    );
+                    writer.writeField(fld);
+                }
+
+                writer.writeEnd();
+            }
+        }
+    }
+
+    Info<< "End\n" << endl;
+
+    return 0;
+}
+
+
+// ************************************************************************* //
diff --git a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/readFields.C b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/readFields.C
new file mode 100644
index 0000000000..46ddc9bf8c
--- /dev/null
+++ b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/readFields.C
@@ -0,0 +1,87 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  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
+
+\*---------------------------------------------------------------------------*/
+
+#include "readFields.H"
+#include "IOobjectList.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+namespace Foam
+{
+
+// * * * * * * * * * * * * * * * Global Functions  * * * * * * * * * * * * * //
+
+template<class GeoField>
+void readFields
+(
+    const vtkMesh& vMesh,
+    const typename GeoField::Mesh& mesh,
+    const IOobjectList& objects,
+    const HashSet<word>& selectedFields,
+    PtrList<GeoField>& fields
+)
+{
+    // Search list of objects for volScalarFields
+    IOobjectList fieldObjects(objects.lookupClass(GeoField::typeName));
+
+    // Construct the vol scalar fields
+    label nFields = fields.size();
+    fields.setSize(nFields + fieldObjects.size());
+
+    for
+    (
+        IOobjectList::iterator iter = fieldObjects.begin();
+        iter != fieldObjects.end();
+        ++iter
+    )
+    {
+        if (selectedFields.empty() || selectedFields.found(iter()->name()))
+        {
+            fields.set
+            (
+                nFields,
+                vMesh.interpolate
+                (
+                    GeoField
+                    (
+                        *iter(),
+                        mesh
+                    )
+                )
+            );
+            nFields++;
+        }
+    }
+
+    fields.setSize(nFields);
+}
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+} // End namespace Foam
+
+// ************************************************************************* //
diff --git a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/readFields.H b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/readFields.H
new file mode 100644
index 0000000000..aa9754c548
--- /dev/null
+++ b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/readFields.H
@@ -0,0 +1,71 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  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
+
+InClass
+    Foam::readFields
+
+Description
+    
+SourceFiles
+    readFields.C
+
+\*---------------------------------------------------------------------------*/
+
+#ifndef readFields_H
+#define readFields_H
+
+#include "fvMesh.H"
+#include "PtrList.H"
+#include "IOobjectList.H"
+#include "HashSet.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+namespace Foam
+{
+
+// Read the fields and optionally subset and put on the pointer list
+template<class GeoField>
+void readFields
+(
+    const vtkMesh& vMesh,
+    const typename GeoField::Mesh& mesh,
+    const IOobjectList& objects,
+    const HashSet<word>& selectedFields,
+    PtrList<GeoField>& fields
+);
+
+} // End namespace Foam
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+#ifdef NoRepository
+#   include "readFields.C"
+#endif
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+#endif
+
+// ************************************************************************* //
diff --git a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecplotWriter.C b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecplotWriter.C
new file mode 100644
index 0000000000..47165d80a4
--- /dev/null
+++ b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecplotWriter.C
@@ -0,0 +1,517 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  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
+
+\*---------------------------------------------------------------------------*/
+
+#include "tecplotWriter.H"
+#include "fvMesh.H"
+
+// * * * * * * * * * * * * * * * * Constructors  * * * * * * * * * * * * * * //
+
+// Construct from components
+Foam::tecplotWriter::tecplotWriter(const Time& runTime)
+:
+    runTime_(runTime)
+{}
+
+
+// * * * * * * * * * * * * * * * Member Functions  * * * * * * * * * * * * * //
+
+void Foam::tecplotWriter::writeInit
+(
+    const word& name,
+    const string& varNames,
+    const fileName& fName,
+    INTEGER4 tecplotFileType
+) const
+{
+Pout<< endl
+    << endl
+    << "Name:" << name
+    << " varNames:" << varNames
+    << " to file:" << fName
+    << " of type:" << tecplotFileType
+    << endl;
+
+    INTEGER4 IsDouble = 0;  //float
+    INTEGER4 Debug = 0;     //nodebug
+    if
+    (
+        !TECINI112
+        (
+            const_cast<char*>(name.c_str()),       /* Data Set Title       */
+            const_cast<char*>(varNames.c_str()),   /* Variable List        */
+            const_cast<char*>(fName.c_str()),      /* File Name            */
+            const_cast<char*>(runTime_.path().c_str()), /* Scratch Directory */
+            &tecplotFileType,                 
+            &Debug,
+            &IsDouble
+        )
+    )
+    {
+//        FatalErrorIn("tecplotWriter::writeInit(..) const")
+//            << "Error in TECINI112." << exit(FatalError);
+    }
+}
+
+
+void Foam::tecplotWriter::writePolyhedralZone
+(
+    const word& zoneName,
+    const INTEGER4 strandID,
+    const fvMesh& mesh,
+    const List<INTEGER4>& varLocArray,
+    INTEGER4 nFaceNodes
+) const
+{
+    /* Call TECZNE112 */
+    INTEGER4  NumNodes   = mesh.nPoints();         /* number of unique nodes */
+    INTEGER4  NumElems   = mesh.nCells();         /* number of elements */
+    INTEGER4  NumFaces   = mesh.nFaces();         /* number of unique faces */
+
+    INTEGER4  ICellMax   = 0;         /* Not Used, set to zero */
+    INTEGER4  JCellMax   = 0;         /* Not Used, set to zero */
+    INTEGER4  KCellMax   = 0;         /* Not Used, set to zero */
+
+    double    SolTime    = runTime_.value();     /* solution time   */
+    INTEGER4  StrandID   = 1;         /* static zone     */
+    INTEGER4  ParentZone = 0;         /* no parent zone  */
+
+    INTEGER4  IsBlock    = 1;         /* block format  */
+
+    INTEGER4  NFConns    = 0;         /* not used for FEPolyhedron 
+                                       * zones 
+                                       */
+    INTEGER4  FNMode     = 0;         /* not used for FEPolyhedron 
+                                       * zones 
+                                       */
+Pout<< "zoneName:" << zoneName
+    //<< " varLocArray:" << varLocArray
+    << " solTime:" << SolTime
+    << endl;
+
+
+
+    INTEGER4 *PassiveVarArray = NULL;       
+    INTEGER4 *VarShareArray   = NULL;      
+    INTEGER4  ShrConn         = 0;         
+
+    INTEGER4  NumBConns       = 0;   /* No Boundary Connections */
+    INTEGER4  NumBItems       = 0;   /* No Boundary Items */
+
+    INTEGER4  ZoneType = ZoneType_FEPolyhedron;
+
+    if
+    (
+       !TECZNE112
+        (
+            const_cast<char*>(zoneName.c_str()),
+            &ZoneType,                  
+            &NumNodes,            
+            &NumElems,            
+            &NumFaces,            
+            &ICellMax,                    
+            &JCellMax,                    
+            &KCellMax,                    
+            &SolTime,                
+            &StrandID,                    
+            &ParentZone,                 
+            &IsBlock,
+            &NFConns,
+            &FNMode,
+            &nFaceNodes,
+            &NumBConns,
+            &NumBItems,
+            PassiveVarArray,
+            const_cast<INTEGER4*>(varLocArray.begin()),
+            VarShareArray,
+            &ShrConn
+        )
+    )
+    {
+//        FatalErrorIn("tecplotWriter::writePolyhedralZone(..) const")
+//            << "Error in TECZNE112." << exit(FatalError);
+    }
+}
+
+
+void Foam::tecplotWriter::writePolygonalZone
+(
+    const word& zoneName,
+    INTEGER4 strandID,
+    const indirectPrimitivePatch& pp,
+    const List<INTEGER4>& varLocArray
+) const
+{
+    /* Call TECZNE112 */
+    INTEGER4  NumNodes   = pp.nPoints();         /* number of unique nodes */
+    INTEGER4  NumElems   = pp.size();         /* number of elements */
+    INTEGER4  NumFaces   = pp.nEdges();         /* number of unique faces */
+
+    INTEGER4  ICellMax   = 0;         /* Not Used, set to zero */
+    INTEGER4  JCellMax   = 0;         /* Not Used, set to zero */
+    INTEGER4  KCellMax   = 0;         /* Not Used, set to zero */
+
+    double    SolTime    = runTime_.value();     /* solution time   */
+    INTEGER4  ParentZone = 0;         /* no parent zone  */
+
+    INTEGER4  IsBlock    = 1;         /* block format  */
+
+    INTEGER4  NFConns    = 0;         /* not used for FEPolyhedron 
+                                       * zones 
+                                       */
+    INTEGER4  FNMode     = 0;         /* not used for FEPolyhedron 
+                                       * zones 
+                                       */
+    INTEGER4  NumFaceNodes    = 2*pp.nEdges();
+
+Pout<< "zoneName:" << zoneName
+    << " strandID:" << strandID
+    //<< " varLocArray:" << varLocArray
+    << " solTime:" << SolTime
+    << endl;
+
+
+    INTEGER4 *PassiveVarArray = NULL;       
+    INTEGER4 *VarShareArray   = NULL;      
+    INTEGER4  ShrConn         = 0;         
+
+    INTEGER4  NumBConns       = 0;   /* No Boundary Connections */
+    INTEGER4  NumBItems       = 0;   /* No Boundary Items */
+
+    INTEGER4  ZoneType = ZoneType_FEPolygon;
+
+    if
+    (
+       !TECZNE112
+        (
+            const_cast<char*>(zoneName.c_str()),
+            &ZoneType,                  
+            &NumNodes,            
+            &NumElems,            
+            &NumFaces,            
+            &ICellMax,                    
+            &JCellMax,                    
+            &KCellMax,                    
+            &SolTime,                
+            &strandID,                    
+            &ParentZone,                 
+            &IsBlock,
+            &NFConns,
+            &FNMode,
+            &NumFaceNodes,
+            &NumBConns,
+            &NumBItems,
+            PassiveVarArray,
+            const_cast<INTEGER4*>(varLocArray.begin()),
+            VarShareArray,
+            &ShrConn
+        )
+    )
+    {
+//        FatalErrorIn("tecplotWriter::writePolygonalZone(..) const")
+//            << "Error in TECZNE112." << exit(FatalError);
+    }
+}
+
+
+void Foam::tecplotWriter::writeOrderedZone
+(
+    const word& zoneName,
+    INTEGER4 strandID,
+    const label n,
+    const List<INTEGER4>& varLocArray
+) const
+{
+    /* Call TECZNE112 */
+    INTEGER4  IMax   = n;         /* number of unique nodes */
+    INTEGER4  JMax   = 1;         /* number of elements */
+    INTEGER4  KMax   = 1;         /* number of unique faces */
+
+    INTEGER4  ICellMax   = 0;         /* Not Used, set to zero */
+    INTEGER4  JCellMax   = 0;         /* Not Used, set to zero */
+    INTEGER4  KCellMax   = 0;         /* Not Used, set to zero */
+
+    double    SolTime    = runTime_.value();     /* solution time   */
+    INTEGER4  ParentZone = 0;         /* no parent zone  */
+
+    INTEGER4  IsBlock    = 1;         /* block format  */
+
+    INTEGER4  NFConns    = 0;         /* not used for FEPolyhedron 
+                                       * zones 
+                                       */
+    INTEGER4  FNMode     = 0;         /* not used for FEPolyhedron 
+                                       * zones 
+                                       */
+    INTEGER4  NumFaceNodes    = 1;
+    INTEGER4  NumBConns       = 1;   /* No Boundary Connections */
+    INTEGER4  NumBItems       = 1;   /* No Boundary Items */
+
+Pout<< "zoneName:" << zoneName
+    << " strandID:" << strandID
+    //<< " varLocArray:" << varLocArray
+    << " solTime:" << SolTime
+    << endl;
+
+
+    INTEGER4 *PassiveVarArray = NULL;       
+    INTEGER4 *VarShareArray   = NULL;      
+    INTEGER4  ShrConn         = 0;         
+
+
+    INTEGER4  ZoneType = ZoneType_Ordered;
+
+    if
+    (
+       !TECZNE112
+        (
+            const_cast<char*>(zoneName.c_str()),
+            &ZoneType,                  
+            &IMax,            
+            &JMax,            
+            &KMax,            
+            &ICellMax,                    
+            &JCellMax,                    
+            &KCellMax,                    
+            &SolTime,                
+            &strandID,                    
+            &ParentZone,                 
+            &IsBlock,
+            &NFConns,
+            &FNMode,
+            &NumFaceNodes,
+            &NumBConns,
+            &NumBItems,
+            PassiveVarArray,
+            const_cast<INTEGER4*>(varLocArray.begin()),
+            VarShareArray,
+            &ShrConn
+        )
+    )
+    {
+//        FatalErrorIn("tecplotWriter::writePolygonalZone(..) const")
+//            << "Error in TECZNE112." << exit(FatalError);
+    }
+}
+
+
+void Foam::tecplotWriter::writeConnectivity(const fvMesh& mesh) const
+{
+    List<INTEGER4> FaceNodeCounts(mesh.nFaces());
+
+    forAll(mesh.faces(), faceI)
+    {
+        const face& f = mesh.faces()[faceI];
+        FaceNodeCounts[faceI] = INTEGER4(f.size());
+    }
+
+
+    INTEGER4 nFaceNodes = 0;
+    forAll(mesh.faces(), faceI)
+    {
+        nFaceNodes += mesh.faces()[faceI].size();
+    }
+
+
+    List<INTEGER4> FaceNodes(nFaceNodes);
+    label nodeI = 0;
+    forAll(mesh.faces(), faceI)
+    {
+        const face& f = mesh.faces()[faceI];
+        forAll(f, fp)
+        {
+            FaceNodes[nodeI++] = INTEGER4(f[fp]+1);
+        }
+    }
+
+
+    List<INTEGER4> FaceLeftElems(mesh.nFaces());
+    forAll(mesh.faceOwner(), faceI)
+    {
+        FaceLeftElems[faceI] = mesh.faceOwner()[faceI]+1;
+    }
+
+    List<INTEGER4> FaceRightElems(mesh.nFaces());
+    forAll(mesh.faceNeighbour(), faceI)
+    {
+        FaceRightElems[faceI] = mesh.faceNeighbour()[faceI]+1;
+    }
+    for
+    (
+        label faceI = mesh.nInternalFaces();
+        faceI < mesh.nFaces();
+        faceI++
+    )
+    {
+        FaceRightElems[faceI] = 0;
+    }
+
+    if
+    (
+       !TECPOLY112
+        (
+            FaceNodeCounts.begin(), /* The face node counts array */
+            FaceNodes.begin(),      /* The face nodes array */
+            FaceLeftElems.begin(),  /* The left elements array  */
+            FaceRightElems.begin(), /* The right elements array  */
+            NULL,       /* No boundary connection counts */
+            NULL,       /* No boundary connection elements */
+            NULL        /* No boundary connection zones */
+        )
+    )
+    {
+//        FatalErrorIn("tecplotWriter::writeConnectivity(const fvMesh&) const")
+//            << "Error in TECPOLY112." << exit(FatalError);
+    }    
+}
+
+
+void Foam::tecplotWriter::writeConnectivity
+(
+    const indirectPrimitivePatch& pp
+) const
+{
+    INTEGER4  NumFaces   = pp.nEdges();         /* number of unique faces */
+    INTEGER4  NumFaceNodes    = 2*pp.nEdges(); 
+
+    // All faces (=edges) have 2 nodes
+    List<INTEGER4> FaceNodeCounts(NumFaces, 2);
+   
+    List<INTEGER4> FaceNodes(NumFaceNodes);
+    label nodeI = 0;
+    forAll(pp.edges(), edgeI)
+    {
+        edge e = pp.edges()[edgeI];
+        if (e[0] > e[1])
+        {
+            e = e.reverseEdge();
+        }
+
+        FaceNodes[nodeI++] = INTEGER4(e[0]+1);
+        FaceNodes[nodeI++] = INTEGER4(e[1]+1);
+    }
+
+    /* Define the right and left elements of each face.
+     *
+     * The last step for writing out the polyhedral data is to 
+     * define the right and left neighboring elements for each  
+     * face.  The neighboring elements can be determined using the   
+     * right-hand rule.  For each face, place your right-hand along  
+     * the face which your fingers pointing the direction of  
+     * incrementing node numbers (i.e. from node 1 to node 2). 
+     * Your right thumb will point towards the right element; the 
+     * element on the other side of your hand is the left element.
+     * 
+     * The number zero is used to indicate that there isn't an 
+     * element on that side of the face.  
+     * 
+     * Because of the way we numbered the nodes and faces, the 
+     * right element for every face is the element itself  
+     * (element 1) and the left element is "no-neighboring element" 
+     * (element 0).
+     */
+
+    List<INTEGER4> FaceLeftElems(NumFaces);
+    List<INTEGER4> FaceRightElems(NumFaces);
+
+    const labelListList& edgeFaces = pp.edgeFaces();
+    forAll(edgeFaces, edgeI)
+    {
+        const labelList& eFaces = edgeFaces[edgeI];
+
+        if (eFaces.size() == 1)
+        {
+            FaceLeftElems[edgeI] = 0;
+            FaceRightElems[edgeI] = eFaces[0]+1;
+        }
+        else if (eFaces.size() == 2)
+        {
+            edge e = pp.edges()[edgeI];
+            if (e[0] > e[1])
+            {
+                e = e.reverseEdge();
+            }
+
+            const face& f0 = pp.localFaces()[eFaces[0]];
+
+            // The face that uses the vertices of e in increasing order
+            // is the left face.
+
+            label fp = findIndex(f0, e[0]);
+            bool f0IsLeft = (f0.nextLabel(fp) == e[1]);
+
+            if (f0IsLeft)
+            {
+                FaceLeftElems[edgeI] = eFaces[0]+1;
+                FaceRightElems[edgeI] = eFaces[1]+1;
+            }
+            else
+            {
+                FaceLeftElems[edgeI] = eFaces[1]+1;
+                FaceRightElems[edgeI] = eFaces[0]+1;
+            }
+        }
+        else
+        {
+            // non-manifold. Treat as if open.
+            FaceLeftElems[edgeI] = 0;
+            FaceRightElems[edgeI] = eFaces[0]+1;
+        }
+    }
+
+    /* Write the face map (created above) using TECPOLY112. */
+    if
+    (
+       !TECPOLY112
+        (
+            FaceNodeCounts.begin(), /* The face node counts array */
+            FaceNodes.begin(),      /* The face nodes array */
+            FaceLeftElems.begin(),  /* The left elements array  */
+            FaceRightElems.begin(), /* The right elements array  */
+            NULL,       /* No boundary connection counts */
+            NULL,       /* No boundary connection elements */
+            NULL        /* No boundary connection zones */
+        )
+    )
+    {
+//        FatalErrorIn("tecplotWriter::writeConnectivity(..) const")
+//            << "Error in TECPOLY112." << exit(FatalError);
+    }
+}
+
+
+void Foam::tecplotWriter::writeEnd() const
+{
+Pout<< "writeEnd" << endl;
+
+    if (!TECEND112())
+    {
+//        FatalErrorIn("tecplotWriter::writeEnd() const")
+//            << "Error in TECEND112." << exit(FatalError);
+    }    
+
+}
+
+
+// ************************************************************************* //
diff --git a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecplotWriter.H b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecplotWriter.H
new file mode 100644
index 0000000000..d614fac202
--- /dev/null
+++ b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecplotWriter.H
@@ -0,0 +1,179 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  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
+
+Class
+    Foam::tecplotWriter
+
+Description
+    Write binary tecplot files using tecio.
+
+SourceFiles
+    tecplotWriter.C
+    tecplotWriterTemplates.C
+
+\*---------------------------------------------------------------------------*/
+
+#ifndef tecplotWriter_H
+#define tecplotWriter_H
+
+#include "TECIO.h"
+#include "Time.H"
+#include "indirectPrimitivePatch.H"
+#include "volFields.H"
+#include "surfaceFields.H"
+
+using namespace Foam;
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+namespace Foam
+{
+
+class fvMesh;
+
+/*---------------------------------------------------------------------------*\
+                           Class tecplotWriter Declaration
+\*---------------------------------------------------------------------------*/
+
+class tecplotWriter
+{
+    const Time& runTime_;
+
+public:
+
+    // Constructors
+
+        //- Construct from components
+        tecplotWriter(const Time&);
+
+
+    // Member Functions
+
+        void writeInit
+        (
+            const word& name,
+            const string& varNames,
+            const fileName&,
+            INTEGER4 tecplotFileType
+        ) const;
+
+        //- Write mesh as polyhedral zone
+        void writePolyhedralZone
+        (
+            const word& zoneName,
+            const INTEGER4 strandID,
+            const fvMesh& mesh,
+            const List<INTEGER4>& varLocArray,
+            INTEGER4 nFaceNodes
+        ) const;
+
+        //- Write surface as polygonal zone
+        void writePolygonalZone
+        (
+            const word& zoneName,
+            const INTEGER4 strandID,
+            const indirectPrimitivePatch& pp,
+            const List<INTEGER4>& varLocArray
+        ) const;
+
+        //- Write unordered data (or rather 1D ordered)
+        void writeOrderedZone
+        (
+            const word& zoneName,
+            INTEGER4 strandID,
+            const label n,
+            const List<INTEGER4>& varLocArray
+        ) const;
+
+        //- Write mesh
+        void writeConnectivity(const fvMesh& mesh) const;
+
+        //- Write surface
+        void writeConnectivity(const indirectPrimitivePatch& pp) const;
+
+        void writeEnd() const;
+
+        //- Write generic Field
+        template<class Type>
+        void writeField(const Field<Type>& fld) const;
+
+
+        //- Get either fvPatchField or patchInternalField
+        template<class Type>
+        tmp<Field<Type> > getPatchField
+        (
+            const bool nearCellValue,
+            const GeometricField<Type, fvPatchField, volMesh>& vfld,
+            const label patchI
+        ) const;
+
+        //- Get mixed field: fvsPatchField for boundary faces and
+        //  internalField for internal faces.
+        template<class Type>
+        tmp<Field<Type> > getFaceField
+        (
+            const GeometricField<Type, fvsPatchField, surfaceMesh>&,
+            const labelList& faceLabels
+        ) const;
+
+        template<class GeoField>
+        static wordList getNames(const PtrList<GeoField>&);
+
+        template<class Type>
+        static void getTecplotNames
+        (
+            const wordList& names,
+            const INTEGER4 loc,
+            string& varNames,
+            DynamicList<INTEGER4>& varLocation
+        );
+
+        template<class GeoField>
+        static void getTecplotNames
+        (
+            const PtrList<GeoField>& flds,
+            const INTEGER4 loc,
+            string& varNames,
+            DynamicList<INTEGER4>& varLocation
+        );
+
+};
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+} // End namespace Foam
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+#ifdef NoRepository
+#   include "tecplotWriterTemplates.C"
+#endif
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+#endif
+
+// ************************************************************************* //
diff --git a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecplotWriterTemplates.C b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecplotWriterTemplates.C
new file mode 100644
index 0000000000..f337b20d38
--- /dev/null
+++ b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecplotWriterTemplates.C
@@ -0,0 +1,199 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  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
+
+\*---------------------------------------------------------------------------*/
+
+#include "tecplotWriter.H"
+
+extern "C"
+{
+    #include "MASTER.h"
+    #include "GLOBAL.h"
+}
+
+#include "fvc.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+template<class Type>
+void Foam::tecplotWriter::writeField(const Field<Type>& fld) const
+{
+    for (direction cmpt = 0; cmpt < pTraits<Type>::nComponents; cmpt++)
+    {
+        scalarField cmptFld(fld.component(cmpt));
+
+        // Convert to float
+        Field<float> floats(cmptFld.size());
+        forAll(cmptFld, i)
+        {
+            floats[i] = float(cmptFld[i]);
+        }
+
+        INTEGER4 size = INTEGER4(floats.size());
+        INTEGER4 IsDouble = 0;  //float
+
+        //Pout<< "Writing component:" << cmpt << " of size:" << size
+        //    << " floats." << endl;
+
+        if (!TECDAT112(&size, floats.begin(), &IsDouble))
+        {
+//            FatalErrorIn("tecplotWriter::writeField(..) const")
+//                << "Error in TECDAT112." << exit(FatalError);
+        }
+    }
+}
+
+
+template<class Type>
+Foam::tmp<Field<Type> > Foam::tecplotWriter::getPatchField
+(
+    const bool nearCellValue,
+    const GeometricField<Type, fvPatchField, volMesh>& vfld,
+    const label patchI
+) const
+{
+    if (nearCellValue)
+    {
+        return vfld.boundaryField()[patchI].patchInternalField();
+    }
+    else
+    {
+        return vfld.boundaryField()[patchI];
+    }
+}
+
+
+template<class Type>
+Foam::tmp<Field<Type> > Foam::tecplotWriter::getFaceField
+(
+    const GeometricField<Type, fvsPatchField, surfaceMesh>& sfld,
+    const labelList& faceLabels
+) const
+{
+    const polyBoundaryMesh& patches = sfld.mesh().boundaryMesh();
+
+    tmp<Field<Type> > tfld(new Field<Type>(faceLabels.size()));
+    Field<Type>& fld = tfld();
+
+    forAll(faceLabels, i)
+    {
+        label faceI = faceLabels[i];
+
+        label patchI = patches.whichPatch(faceI);
+
+        if (patchI == -1)
+        {
+            fld[i] = sfld[faceI];
+        }
+        else
+        {
+            label localFaceI = faceI - patches[patchI].start();
+            fld[i] = sfld.boundaryField()[patchI][localFaceI];
+        }
+    }
+
+    return tfld;
+}
+
+
+template<class GeoField>
+Foam::wordList Foam::tecplotWriter::getNames
+(
+    const PtrList<GeoField>& flds
+)
+{
+    wordList names(flds.size());
+    forAll(flds, i)
+    {
+        names[i] = flds[i].name();
+    }
+    return names;
+}
+
+
+template<class Type>
+void Foam::tecplotWriter::getTecplotNames
+(
+    const wordList& names,
+    const INTEGER4 loc,
+    string& varNames,
+    DynamicList<INTEGER4>& varLocation
+)
+{
+    forAll(names, i)
+    {
+        if (!varNames.empty())
+        {
+            varNames += " ";
+        }
+
+        label nCmpts = pTraits<Type>::nComponents;
+
+        if (nCmpts == 1)
+        {
+            varNames += names[i];
+            varLocation.append(loc);
+        }
+        else
+        {
+            for
+            (
+                direction cmpt = 0;
+                cmpt < nCmpts;
+                cmpt++
+            )
+            {
+                string fldName =
+                    (cmpt != 0 ? " " : string::null)
+                  + names[i]
+                  + "_"
+                  + pTraits<Type>::componentNames[cmpt];
+                varNames += fldName;
+                varLocation.append(loc);
+            }
+        }
+    }
+}
+
+
+template<class GeoField>
+void Foam::tecplotWriter::getTecplotNames
+(
+    const PtrList<GeoField>& flds,
+    const INTEGER4 loc,
+    string& varNames,
+    DynamicList<INTEGER4>& varLocation
+)
+{
+    getTecplotNames<typename GeoField::value_type>
+    (
+        getNames(flds),
+        loc,
+        varNames,
+        varLocation
+    );
+}
+
+
+// ************************************************************************* //
diff --git a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/vtkMesh.C b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/vtkMesh.C
new file mode 100644
index 0000000000..06ff1aa0cc
--- /dev/null
+++ b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/vtkMesh.C
@@ -0,0 +1,84 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  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
+
+\*---------------------------------------------------------------------------*/
+
+#include "vtkMesh.H"
+#include "fvMeshSubset.H"
+#include "Time.H"
+#include "cellSet.H"
+
+// * * * * * * * * * * * * * * * * Constructors  * * * * * * * * * * * * * * //
+
+// Construct from components
+Foam::vtkMesh::vtkMesh
+(
+    fvMesh& baseMesh,
+    const word& setName
+)
+:
+    baseMesh_(baseMesh),
+    subsetter_(baseMesh),
+    setName_(setName)
+{
+    if (setName.size())
+    {
+        // Read cellSet using whole mesh
+        cellSet currentSet(baseMesh_, setName_);
+
+        // Set current subset
+        subsetter_.setLargeCellSubset(currentSet);
+    }
+}
+
+
+// * * * * * * * * * * * * * * * Member Functions  * * * * * * * * * * * * * //
+
+Foam::polyMesh::readUpdateState Foam::vtkMesh::readUpdate()
+{
+    polyMesh::readUpdateState meshState = baseMesh_.readUpdate();
+
+    if (meshState != polyMesh::UNCHANGED)
+    {
+        // Note: since fvMeshSubset has no movePoints() functionality reconstruct
+        // the subset even if only movement.
+
+//        topoPtr_.clear();
+
+        if (setName_.size())
+        {
+            Info<< "Subsetting mesh based on cellSet " << setName_ << endl;
+
+            // Read cellSet using whole mesh
+            cellSet currentSet(baseMesh_, setName_);
+
+            subsetter_.setLargeCellSubset(currentSet);
+        }
+    }
+
+    return meshState;
+}
+
+
+// ************************************************************************* //
diff --git a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/vtkMesh.H b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/vtkMesh.H
new file mode 100644
index 0000000000..4f8d562583
--- /dev/null
+++ b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/vtkMesh.H
@@ -0,0 +1,179 @@
+/*---------------------------------------------------------------------------*\
+  =========                 |
+  \\      /  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
+
+Class
+    Foam::vtkMesh
+
+Description
+    Encapsulation of VTK mesh data. Holds mesh or meshsubset and
+    polyhedral-cell decomposition on it.
+
+SourceFiles
+    vtkMesh.C
+
+\*---------------------------------------------------------------------------*/
+
+#ifndef vtkMesh_H
+#define vtkMesh_H
+
+#include "fvMeshSubset.H"
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+namespace Foam
+{
+
+// Forward declaration of classes
+class Time;
+
+/*---------------------------------------------------------------------------*\
+                           Class vtkMesh Declaration
+\*---------------------------------------------------------------------------*/
+
+class vtkMesh
+{
+    // Private data
+
+        //- Reference to mesh
+        fvMesh& baseMesh_;
+
+        //- Subsetting engine + sub-fvMesh
+        fvMeshSubset subsetter_;
+
+        //- Current cellSet (or empty)
+        const word setName_;
+
+//        //- Current decomposition of topology
+//        mutable autoPtr<vtkTopo> topoPtr_;
+
+
+
+    // Private Member Functions
+
+        //- Disallow default bitwise copy construct
+        vtkMesh(const vtkMesh&);
+
+        //- Disallow default bitwise assignment
+        void operator=(const vtkMesh&);
+
+
+public:
+
+    // Constructors
+
+        //- Construct from components
+        vtkMesh(fvMesh& baseMesh, const word& setName = "");
+
+
+    // Member Functions
+
+        // Access
+
+            //- whole mesh
+            const fvMesh& baseMesh() const
+            {
+                return baseMesh_;
+            }
+
+            const fvMeshSubset& subsetter() const
+            {
+                return subsetter_;
+            }
+
+            //- Check if running subMesh
+            bool useSubMesh() const
+            {
+                return setName_.size();
+            }
+
+//            //- topology
+//            const vtkTopo& topo() const
+//            {
+//                if (topoPtr_.empty())
+//                {
+//                    topoPtr_.reset(new vtkTopo(mesh()));
+//                }
+//                return topoPtr_();
+//            }
+
+            //- Access either mesh or submesh
+            const fvMesh& mesh() const
+            {
+                if (useSubMesh())
+                {
+                    return subsetter_.subMesh();
+                }
+                else
+                {
+                    return baseMesh_;
+                }
+            }
+
+//            //- Number of field cells
+//            label nFieldCells() const
+//            {
+//                return topo().vertLabels().size();
+//            }
+//
+//            //- Number of field points
+//            label nFieldPoints() const
+//            {
+//                return mesh().nPoints() + topo().addPointCellLabels().size();
+//            }
+
+
+        // Edit
+
+            //- Read mesh
+            polyMesh::readUpdateState readUpdate();
+
+
+            //- Map volume field (does in fact do very little interpolation;
+            //  just copied from fvMeshSubset)
+            template<class GeoField>
+            tmp<GeoField> interpolate(const GeoField& fld) const
+            {
+                if (useSubMesh())
+                {
+                    tmp<GeoField> subFld = subsetter_.interpolate(fld);
+                    subFld().rename(fld.name());
+                    return subFld;
+                }
+                else
+                {
+                    return fld;
+                }
+            }
+};
+
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+} // End namespace Foam
+
+// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
+
+#endif
+
+// ************************************************************************* //

From 5c98e0b6528ad6b8c2b4cdb10622966f6ae6804c Mon Sep 17 00:00:00 2001
From: mattijs <mattijs>
Date: Mon, 2 Nov 2009 13:30:51 +0000
Subject: [PATCH 3/4] Tecplot360 writer

---
 .../foamToTecplot360/foamToTecplot360.C       | 45 +++++++++++++++++--
 1 file changed, 41 insertions(+), 4 deletions(-)

diff --git a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/foamToTecplot360.C b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/foamToTecplot360.C
index 6e8cf99533..d514609ff2 100644
--- a/applications/utilities/postProcessing/dataConversion/foamToTecplot360/foamToTecplot360.C
+++ b/applications/utilities/postProcessing/dataConversion/foamToTecplot360/foamToTecplot360.C
@@ -23,14 +23,47 @@ License
     Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
 
 Application
-    foamToTecplot-bin
+    foamToTecplot360
 
 Description
     Tecplot binary file format writer.
 
 Usage
 
-    - foamToTecplot-bin [OPTION]
+    - foamToTecplot360 [OPTION]
+
+    @param -fields \<fields\>\n
+    Convert selected fields only. For example,
+    @verbatim
+         -fields '( p T U )'
+    @endverbatim
+    The quoting is required to avoid shell expansions and to pass the
+    information as a single argument.
+
+    @param -cellSet \<name\>\n
+    @param -faceSet \<name\>\n
+    Restrict conversion to the cellSet, faceSet.
+
+    @param -nearCellValue \n
+    Output cell value on patches instead of patch value itself
+
+    @param -noInternal \n
+    Do not generate file for mesh, only for patches
+
+    @param -noPointValues \n
+    No pointFields
+
+    @param -noFaceZones \n
+    No faceZones
+
+    @param -excludePatches \<patchNames\>\n
+    Specify patches (wildcards) to exclude. For example,
+    @verbatim
+         -excludePatches '( inlet_1 inlet_2 "proc.*")'
+    @endverbatim
+    The quoting is required to avoid shell expansions and to pass the
+    information as a single argument. The double quotes denote a regular
+    expression.
 
 \*---------------------------------------------------------------------------*/
 
@@ -107,8 +140,12 @@ labelList getSelectedPatches
             Info<< "    discarding empty/processor patch " << patchI
                 << " " << pp.name() << endl;
         }
-        //else if (!excludePatches.found(pp.name()))
-        else if (!findStrings(excludePatches, pp.name()))
+        else if (findStrings(excludePatches, pp.name()))
+        {
+            Info<< "    excluding patch " << patchI
+                << " " << pp.name() << endl;
+        }
+        else
         {
             patchIDs.append(patchI);
             Info<< "    patch " << patchI << " " << pp.name() << endl;

From cfdb0a5ec37a56d0853c804e42c63b1cee98d72d Mon Sep 17 00:00:00 2001
From: mattijs <mattijs>
Date: Mon, 2 Nov 2009 13:31:17 +0000
Subject: [PATCH 4/4] wildcards for excludedPatches

---
 .../dataConversion/foamToVTK/foamToVTK.C      | 27 ++++++++++++-------
 1 file changed, 18 insertions(+), 9 deletions(-)

diff --git a/applications/utilities/postProcessing/dataConversion/foamToVTK/foamToVTK.C b/applications/utilities/postProcessing/dataConversion/foamToVTK/foamToVTK.C
index 0a854af9d0..fee07515ee 100644
--- a/applications/utilities/postProcessing/dataConversion/foamToVTK/foamToVTK.C
+++ b/applications/utilities/postProcessing/dataConversion/foamToVTK/foamToVTK.C
@@ -83,12 +83,13 @@ Usage
     Combine all patches into a single file
 
     @param -excludePatches \<patchNames\>\n
-    Specify patches to exclude. For example,
+    Specify patches (wildcards) to exclude. For example,
     @verbatim
-         -excludePatches "( inlet_1 inlet_2 )"
+         -excludePatches '( inlet_1 inlet_2 "proc.*")'
     @endverbatim
     The quoting is required to avoid shell expansions and to pass the
-    information as a single argument.
+    information as a single argument. The double quotes denote a regular
+    expression.
 
     @param -useTimeName \n
     use the time index in the VTK file name instead of the time index
@@ -140,6 +141,7 @@ Note
 #include "faceZoneMesh.H"
 #include "Cloud.H"
 #include "passiveParticle.H"
+#include "stringListOps.H"
 
 #include "vtkMesh.H"
 #include "readFields.H"
@@ -192,7 +194,7 @@ void print(Ostream& os, const wordList& flds)
 labelList getSelectedPatches
 (
     const polyBoundaryMesh& patches,
-    const HashSet<word>& excludePatches
+    const List<wordRe>& excludePatches  //HashSet<word>& excludePatches
 )
 {
     DynamicList<label> patchIDs(patches.size());
@@ -205,14 +207,19 @@ labelList getSelectedPatches
 
         if
         (
-            isA<emptyPolyPatch>(pp)
-            || (Pstream::parRun() && isA<processorPolyPatch>(pp))
+            isType<emptyPolyPatch>(pp)
+            || (Pstream::parRun() && isType<processorPolyPatch>(pp))
         )
         {
             Info<< "    discarding empty/processor patch " << patchI
                 << " " << pp.name() << endl;
         }
-        else if (!excludePatches.found(pp.name()))
+        else if (findStrings(excludePatches, pp.name()))
+        {
+            Info<< "    excluding patch " << patchI
+                << " " << pp.name() << endl;
+        }
+        else
         {
             patchIDs.append(patchI);
             Info<< "    patch " << patchI << " " << pp.name() << endl;
@@ -224,6 +231,8 @@ labelList getSelectedPatches
 
 
 
+
+
 // Main program:
 
 int main(int argc, char *argv[])
@@ -283,7 +292,7 @@ int main(int argc, char *argv[])
 
     bool allPatches = args.optionFound("allPatches");
 
-    HashSet<word> excludePatches;
+    List<wordRe> excludePatches;
     if (args.optionFound("excludePatches"))
     {
         args.optionLookup("excludePatches")() >> excludePatches;
@@ -771,7 +780,7 @@ int main(int argc, char *argv[])
             {
                 const polyPatch& pp = patches[patchI];
 
-                if (!excludePatches.found(pp.name()))
+                if (!findStrings(excludePatches, pp.name()))
                 {
                     mkDir(fvPath/pp.name());