/applications/utilities/postProcessing/dataConversion/foamToTecplot360/tecio/tecsrc/tecxxx.cpp
C++ | 4812 lines | 4687 code | 48 blank | 77 comment | 98 complexity | 5fe49e9e034ec3c2048bcba2da04635a MD5 | raw file
Possible License(s): GPL-3.0, LGPL-2.1
- /*
- * NOTICE and LICENSE for Tecplot Input/Output Library (TecIO) - OpenFOAM
- *
- * Copyright (C) 1988-2009 Tecplot, Inc. All rights reserved worldwide.
- *
- * Tecplot hereby grants OpenCFD limited authority to distribute without
- * alteration the source code to the Tecplot Input/Output library, known
- * as TecIO, as part of its distribution of OpenFOAM and the
- * OpenFOAM_to_Tecplot converter. Users of this converter are also hereby
- * granted access to the TecIO source code, and may redistribute it for the
- * purpose of maintaining the converter. However, no authority is granted
- * to alter the TecIO source code in any form or manner.
- *
- * This limited grant of distribution does not supersede Tecplot, Inc.'s
- * copyright in TecIO. Contact Tecplot, Inc. for further information.
- *
- * Tecplot, Inc.
- * 3535 Factoria Blvd, Ste. 550
- * Bellevue, WA 98006, USA
- * Phone: +1 425 653 1200
- * http://www.tecplot.com/
- *
- */
- #include "stdafx.h"
- #include "MASTER.h"
- #define TECPLOTENGINEMODULE
- /*
- ******************************************************************
- ******************************************************************
- ******* ********
- ****** (C) 1988-2008 Tecplot, Inc. *******
- ******* ********
- ******************************************************************
- ******************************************************************
- */
- /* Source file revision $Revision: 7627 $ */
- #include "GLOBAL.h"
- #include "TASSERT.h"
- #include "Q_UNICODE.h"
- #include "SYSTEM.h"
- #include "FILESTREAM.h"
- #if defined TECPLOTKERNEL
- /* CORE SOURCE CODE REMOVED */
- #endif
- #include "DATAIO4.h"
- #include "DATASET0.h"
- #include "TECXXX.h"
- #include "DATAUTIL.h"
- #include "ALLOC.h"
- #include <vector>
- #if !defined MAKEARCHIVE
- #include "AUXDATA.h"
- #endif /* MAKEARCHIVE */
- #if defined MSWIN
- #include <io.h>
- #endif
- #if defined UNIXX
- #include <stdio.h>
- #include <sys/types.h>
- #include <sys/stat.h>
- #endif
- #if defined TECPLOTKERNEL
- /* CORE SOURCE CODE REMOVED */
- #endif
- using namespace std;
- #if defined MAKEARCHIVE
- #if defined MSWIN && defined _DEBUG
- /* For debug .dll builds, send debug info to debug window. */
- #define PRINT0(s) do { OutputDebugString(s); } while (0)
- #define PRINT1(s,a1) do { char buffer[512]; sprintf(buffer,s,a1); OutputDebugString(buffer); } while (0)
- #define PRINT2(s,a1,a2) do { char buffer[512]; sprintf(buffer,s,a1,a2); OutputDebugString(buffer); } while (0)
- #else
- /* For all other builds (including release .dll), send debug info to stdout. */
- #define PRINT0(s) printf(s)
- #define PRINT1(s,a1) printf(s,a1)
- #define PRINT2(s,a1,a2) printf(s,a1,a2)
- #endif
- #else
- #if defined MSWIN
- /* For nonarchive, Windows, don't send debug info. */
- #define PRINT0(s) ((void)0)
- #define PRINT1(s,a1) ((void)0)
- #define PRINT2(s,a1,a2) ((void)0)
- #else
- /* For nonarchive, nonwindows, send debug info to stdout. */
- #define PRINT0(s) printf(s)
- #define PRINT1(s,a1) printf(s,a1)
- #define PRINT2(s,a1,a2) printf(s,a1,a2)
- #endif
- #endif
- typedef char *FNameType;
- typedef FILE *FilePtr;
- #define MaxNumFiles 10
- #define MAX_DUPLIST_VARS 50 /* maybe crank up in the future */
- #define BYTES_PER_CHUNK 4096
- #define TECIO_NO_NEIGHBORING_ELEM 0
- #define TECIO_NO_NEIGHBORING_ZONE 0
- #if defined MAKEARCHIVE
- static LgIndex_t DebugLevel[MaxNumFiles] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
- #endif
- static INTEGER4 IsOpen[MaxNumFiles] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
- static INTEGER4 NumErrs[MaxNumFiles] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
- static INTEGER4 NumVars[MaxNumFiles];
- static FNameType DestFName[MaxNumFiles] = {NULL, NULL, NULL, NULL, NULL,
- NULL, NULL, NULL, NULL, NULL
- };
- static FNameType BlckFName[MaxNumFiles] = {NULL, NULL, NULL, NULL, NULL,
- NULL, NULL, NULL, NULL, NULL
- };
- static FileStream_s* BlckFile[MaxNumFiles];
- static FileStream_s* HeadFile[MaxNumFiles];
- static vector<FileOffset_t> MinMaxOffset[MaxNumFiles]; /* vector dimensioned by num zones */
- static vector<double> VarMinValue[MaxNumFiles]; /* vector dimensioned by num vars */
- static vector<double> VarMaxValue[MaxNumFiles]; /* vector dimensioned by num vars */
- static INTEGER4 DoWriteForeign = FALSE; /* ...default is to write native */
- static INTEGER4 IsWritingNative[MaxNumFiles];
- static INTEGER4 IsBlock[MaxNumFiles];
- static INTEGER4 ZoneType[MaxNumFiles];
- static LgIndex_t IMax[MaxNumFiles]; /* ones based indices */
- static LgIndex_t JMax[MaxNumFiles]; /* ones based indices */
- static LgIndex_t KMax[MaxNumFiles]; /* ones based indices */
- static vector<LgIndex_t> TotalNumFaceNodes[MaxNumFiles]; /* vector dimensioned by num zones */
- static LgIndex_t TotalNumFaceBndryFaces[MaxNumFiles];
- static LgIndex_t TotalNumFaceBndryConns[MaxNumFiles];
- static LgIndex_t ICellMax[MaxNumFiles];
- static LgIndex_t JCellMax[MaxNumFiles];
- static LgIndex_t KCellMax[MaxNumFiles];
- static vector<INTEGER4> NumFaceConnections[MaxNumFiles]; /* vector dimensioned by num zones */
- static INTEGER4 FaceNeighborMode[MaxNumFiles];
- static vector<INTEGER4> FaceNeighborsOrMapWritten[MaxNumFiles]; /* vector dimensioned by num zones */
- static INTEGER4 NumIndices[MaxNumFiles];
- static LgIndex_t NumDataValuesWritten[MaxNumFiles];
- static LgIndex_t NumOrderedCCDataValuesWritten[MaxNumFiles]; /* CC data only */
- static LgIndex_t NumDataValuesToWrite[MaxNumFiles];
- static vector<LgIndex_t> NumRunningVarValues[MaxNumFiles]; /* vector dimensioned by num vars */
- static vector<Boolean_t> IsSharedVar[MaxNumFiles]; /* vector dimensioned by num vars */
- static vector<Boolean_t> IsPassiveVar[MaxNumFiles]; /* vector dimensioned by num vars */
- static INTEGER4 CurZone[MaxNumFiles]; /* zero based zone numbers */
- static INTEGER4 CurVar[MaxNumFiles]; /* zero based var numbers */
- static INTEGER4 FieldDataType;
- static INTEGER4 CurFile = -1;
- static vector<Boolean_t> IsCellCentered[MaxNumFiles]; /* vector dimensioned by num vars */
- static Boolean_t HasFECONNECT[MaxNumFiles];
- static INTEGER4 FileTypes[MaxNumFiles];
- static vector<INTEGER4> NumConnectivityNodes[MaxNumFiles]; /* vector dimensioned by num zones */
- static vector<Boolean_t> ConnectivityWritten[MaxNumFiles]; /* vector dimensioned by num zones */
- /*
- * From preplot.cpp:
- *
- * ZoneType 0=ORDERED,1=FELINESEG,2=FETRIANGLE,
- * 3=FEQUADRILATERAL,4=FETETRAHEDRON,5=FEBRICK,
- * 6=FEPOLYGON,7=FEPOLYHEDRON
- */
- #define ORDERED 0
- #define FELINESEG 1
- #define FETRIANGLE 2
- #define FEQUADRILATERAL 3
- #define FETETRAHEDRON 4
- #define FEBRICK 5
- #define FEPOLYGON 6
- #define FEPOLYHEDRON 7
- /*
- * FileType 0=FULLFILE,1=GRIDFILE,2=SOLUTIONFILE
- */
- #define FULLFILE 0
- #define GRIDFILE 1
- #define SOLUTIONFILE 2
- #if defined MAKEARCHIVE
- static char const* ZoneTypes[] =
- {
- "ORDERED",
- "FELINESEG",
- "FETRIANGLE",
- "FEQUADRILATERAL",
- "FETETRAHEDRON",
- "FEBRICK",
- "FEPOLYGON",
- "FEPOLYHEDRON"
- };
- #endif /* MAKEARCHIVE */
- static void WriteErr(const char *routine_name)
- {
- #if defined MAKEARCHIVE
- PRINT2("Err: (%s) Write failure on file %d.\n", routine_name, CurFile + 1);
- #endif
- NumErrs[CurFile]++;
- }
- static LgIndex_t TecXXXZoneNum = 0;
- Boolean_t ParseDupList(LgIndex_t **ShareVarFromZone,
- LgIndex_t *ShareConnectivityFromZone,
- const char *DupList)
- {
- Boolean_t IsOk = TRUE;
- REQUIRE(VALID_REF(ShareVarFromZone) && *ShareVarFromZone == NULL);
- REQUIRE(VALID_REF(ShareConnectivityFromZone));
- REQUIRE(VALID_REF(DupList));
- while (IsOk && *DupList)
- {
- /* skip leading spaces */
- while (*DupList && *DupList == ' ')
- DupList++;
- /* is this the FECONNECT keyword? */
- if (*DupList && !strncmp(DupList, "FECONNECT", 9))
- *ShareConnectivityFromZone = TecXXXZoneNum;
- else if (*DupList && !isdigit(*DupList))
- IsOk = FALSE; /* syntax error */
- else if (*DupList)
- {
- char *NotUsed = NULL;
- EntIndex_t WhichVar = strtol(DupList, &NotUsed, 10);
- EntIndex_t numVarsForFile = NumVars[CurFile];
- if (0 < WhichVar && WhichVar < numVarsForFile)
- {
- if (!(*ShareVarFromZone))
- {
- *ShareVarFromZone = ALLOC_ARRAY(numVarsForFile, LgIndex_t, "Variable sharing list");
- if (*ShareVarFromZone)
- memset(*ShareVarFromZone, (char)0, numVarsForFile * sizeof(LgIndex_t));
- }
- if (*ShareVarFromZone)
- (*ShareVarFromZone)[WhichVar - 1] = TecXXXZoneNum;
- else
- IsOk = FALSE;
- }
- else
- {
- /* Invalid var num */
- IsOk = FALSE;
- }
- }
- /*
- * Skip to the comma. This
- * will also allow the syntax error
- * of more than one consecutive comma
- */
- while (*DupList && *DupList != ',')
- DupList++;
- /* skip past the comma (can handle the syntax error of more than 1 comma) */
- while (*DupList && *DupList == ',')
- DupList++;
- }
- return IsOk;
- }
- /**
- */
- static FileStream_s *OpenFileStream(const char *FilePath,
- const char *AccessMode,
- Boolean_t IsByteOrderNative)
- {
- REQUIRE(VALID_REF(FilePath));
- REQUIRE(VALID_REF(AccessMode));
- FileStream_s *Result = NULL;
- FILE *File = TP_FOPEN(FilePath, AccessMode);
- if (File != NULL)
- {
- Result = FileStreamAlloc(File, IsByteOrderNative);
- if (Result == NULL)
- TP_FCLOSE(File);
- }
- ENSURE((VALID_REF(Result) && VALID_REF(Result->File)) || Result == NULL);
- return Result;
- }
- /**
- */
- static void CloseFileStream(FileStream_s **FileStream)
- {
- REQUIRE(VALID_REF(FileStream));
- REQUIRE(VALID_REF(*FileStream) || *FileStream == NULL);
- if (*FileStream != NULL)
- {
- TP_FCLOSE((*FileStream)->File);
- FileStreamDealloc(FileStream);
- }
- ENSURE(*FileStream == NULL);
- }
- /**
- * Get the best terminator (separator) character to use for the string. First
- * precedence goes to the new line then the command and finally by default the
- * space. NOTE: We use a do loop to allow it to be used as a single statement.
- */
- #define GET_BEST_TERMINATOR_CHAR(CompoundStr, TerminatorChar) \
- do \
- { \
- if (strchr((CompoundStr), '\n') != NULL) \
- (TerminatorChar) = '\n'; \
- else if (strchr((CompoundStr), ',') != NULL) \
- (TerminatorChar) = ','; \
- else \
- (TerminatorChar) = ' '; \
- } while (0)
- /**
- * TECINIXXX
- */
- INTEGER4 LIBCALL TECINI112(char *Title,
- char *Variables,
- char *FName,
- char *ScratchDir,
- INTEGER4 *FileType,
- INTEGER4 *Debug,
- INTEGER4 *VIsDouble)
- {
- size_t L;
- int I;
- char RName[80];
- char *CPtr;
- int NewFile = -1;
- /*
- * Note that users should not mix TECXXX, TEC100XXX, and TEC110XXX calls, but
- * just in case, initialize the TecXXXZoneNum variable. It may not help, but
- * it doesn't hurt...
- */
- TecXXXZoneNum = 0;
- #if defined MAKEARCHIVE
- InitInputSpecs();
- #endif
- for (I = 0; (I < MaxNumFiles) && (NewFile == -1); I++)
- {
- if (!IsOpen[I])
- NewFile = I;
- }
- if (NewFile == -1)
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECINI112) Too many files (%d) opened for printing.\n", NewFile);
- #endif
- return (-1);
- }
- if (CurFile == -1)
- CurFile = 0;
- #if defined MAKEARCHIVE
- DebugLevel[NewFile] = *Debug;
- #endif
- /* check sizes for array sized by number of variables */
- CHECK(VarMinValue[NewFile].empty());
- CHECK(VarMaxValue[NewFile].empty());
- CHECK(NumRunningVarValues[NewFile].empty());
- CHECK(IsSharedVar[NewFile].empty());
- CHECK(IsPassiveVar[NewFile].empty());
- CHECK(IsCellCentered[NewFile].empty());
- /* check sizes for array sized by number of zones */
- CHECK(MinMaxOffset[NewFile].empty());
- CHECK(TotalNumFaceNodes[NewFile].empty());
- CHECK(NumFaceConnections[NewFile].empty());
- CHECK(FaceNeighborsOrMapWritten[NewFile].empty());
- CHECK(NumConnectivityNodes[NewFile].empty());
- CHECK(ConnectivityWritten[NewFile].empty());
- CurZone[NewFile] = -1;
- L = 0;
- if (FName != NULL)
- L = strlen(FName);
- if (L == 0)
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECINI112) Bad file name for file %d.\n", NewFile);
- #endif
- return (-1);
- }
- DestFName[NewFile] = ALLOC_ARRAY(L + 1, char, "data set fname");
- strcpy(DestFName[NewFile], FName);
- #if defined (DOS)
- {
- sprintf(RName, "BLCKFILE.%03d", (int)(NewFile + 1));
- }
- #else
- {
- sprintf(RName, "tp%1dXXXXXX", NewFile + 1);
- }
- #endif
- L = strlen(RName);
- if (ScratchDir != NULL)
- L += strlen(ScratchDir) + 1; /* +1 for the slash delimeter */
- BlckFName[NewFile] = ALLOC_ARRAY(L + 1, char, "data set fname");
- if (ScratchDir != NULL)
- {
- strcpy(BlckFName[NewFile], ScratchDir);
- #if defined DOS || defined MSWIN
- {
- strcat(BlckFName[NewFile], "\\");
- }
- #else
- {
- strcat(BlckFName[NewFile], "/");
- }
- #endif
- }
- else
- BlckFName[NewFile][0] = '\0';
- strcat(BlckFName[NewFile], RName);
- CHECK(strlen(BlckFName[NewFile]) <= L);
- #if defined MSWIN
- {
- _mktemp(BlckFName[NewFile]);
- }
- #elif defined UNIXX
- {
- /*
- * POSIX compiant behavior is to make
- * sure umask is set correctly first.
- */
- mode_t OrigUmask = umask(0022); /* ...should produce rw------- */
- int FileDesc = mkstemp(BlckFName[NewFile]);
- if (FileDesc != -1)
- close(FileDesc);
- umask(OrigUmask);
- }
- #endif
- #if defined MAKEARCHIVE
- if (DebugLevel[NewFile])
- {
- PRINT2("Scratch File #%d: %s\n", NewFile + 1, BlckFName[NewFile]);
- PRINT2("Dest File #%d: %s\n", NewFile + 1, DestFName[NewFile]);
- }
- #endif
- IsWritingNative[NewFile] = !DoWriteForeign;
- #if defined TECPLOTKERNEL
- /* CORE SOURCE CODE REMOVED */
- #endif
- HeadFile[NewFile] = OpenFileStream(DestFName[NewFile], "wb", IsWritingNative[NewFile]);
- BlckFile[NewFile] = OpenFileStream(BlckFName[NewFile], "wb", IsWritingNative[NewFile]);
- if (BlckFile[NewFile] == NULL)
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECINI112) Cannot open scratch file for output.\n");
- PRINT0(" Check permissions in scratch directory.\n");
- #endif
- NumErrs[NewFile]++;
- return (-1);
- }
- if (HeadFile[NewFile] == NULL)
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECINI112) Cannot open plot file. Check permissions.\n");
- #endif
- NumErrs[NewFile]++;
- return (-1);
- }
- writeBinaryVersionNumber(*HeadFile[NewFile],
- TecplotBinaryFileVersion);
- WriteBinaryMagic(HeadFile[NewFile]);
- /* Write file type */
- if (*FileType >= FULLFILE && *FileType <= SOLUTIONFILE)
- FileTypes[NewFile] = *FileType;
- else
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECINI112) Bad filetype argument. Check documentation.\n");
- #endif
- NumErrs[NewFile]++;
- return (-1);
- }
- CHECK(TecplotBinaryFileVersion == 112);
- if (!WriteBinaryInt32(HeadFile[NewFile], (LgIndex_t)FileTypes[NewFile]))
- {
- WriteErr("TECINI112");
- return (-1);
- }
- if (!DumpDatafileString(HeadFile[NewFile],
- Title,
- TRUE))
- {
- WriteErr("TECINI112");
- return (-1);
- }
- NumVars[NewFile] = 0;
- CPtr = Variables;
- /*
- * Three possible variable name separators are accepted with the following
- * precidence: newline, comma, and space.
- */
- {
- char terminator;
- GET_BEST_TERMINATOR_CHAR(CPtr, terminator);
- while (*CPtr)
- {
- /* strip leading spaces */
- while (*CPtr && *CPtr == ' ')
- CPtr++;
- if (*CPtr)
- {
- NumVars[NewFile]++;
- /* skip to terminating character */
- while (*CPtr && *CPtr != terminator)
- CPtr++;
- /* skip past terminating character */
- if (*CPtr)
- CPtr++;
- }
- }
- }
- #if 0
- /* A grid file can have no variables in it as long as there is a connectivity list */
- if (NumVars[NewFile] == 0 && FileTypes[NewFile] != GRIDFILE)
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECINI110) No variable names were defined.\n");
- #endif
- NumErrs[NewFile]++;
- return (-1);
- }
- #endif
- #if defined MAKEARCHIVE
- if (DebugLevel[NewFile])
- PRINT1("NumVars=%d\n", NumVars[NewFile]);
- #endif
- /* make sure var-sized arrays are big enough for all vars */
- try
- {
- VarMinValue[NewFile].resize(NumVars[NewFile]);
- VarMaxValue[NewFile].resize(NumVars[NewFile]);
- NumRunningVarValues[NewFile].resize(NumVars[NewFile]);
- IsSharedVar[NewFile].resize(NumVars[NewFile]);
- IsPassiveVar[NewFile].resize(NumVars[NewFile]);
- IsCellCentered[NewFile].resize(NumVars[NewFile]);
- }
- catch (std::bad_alloc const&)
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECINI112) Memory allocation error.\n");
- #endif
- NumErrs[NewFile]++;
- return (-1);
- }
- if (!WriteBinaryInt32(HeadFile[NewFile], (LgIndex_t)NumVars[NewFile]))
- {
- WriteErr("TECINI110");
- return (-1);
- }
- CPtr = Variables;
- {
- char terminator;
- char TString[MaxChrsVarName+1];
- int I;
- GET_BEST_TERMINATOR_CHAR(CPtr, terminator);
- while (*CPtr)
- {
- /* skip leading space characters */
- while (*CPtr && *CPtr == ' ')
- CPtr++;
- if (*CPtr)
- {
- I = 0;
- /* skip to terminator */
- while (*CPtr && *CPtr != terminator)
- {
- TString[I++] = *CPtr++;
- }
- /* skip past terminator */
- if (*CPtr)
- CPtr++;
- /* strip trailing spaces */
- I--;
- while (I >= 0 && TString[I] == ' ')
- I--;
- TString[I+1] = '\0';
- if (!DumpDatafileString(HeadFile[NewFile], TString, TRUE))
- {
- WriteErr("TECINI110");
- return (-1);
- }
- }
- }
- }
- IsOpen[NewFile] = 1;
- if (*VIsDouble)
- FieldDataType = FieldDataType_Double;
- else
- FieldDataType = FieldDataType_Float;
- return (0);
- }
- INTEGER4 LIBCALL TECINI111(char *Title,
- char *Variables,
- char *FName,
- char *ScratchDir,
- INTEGER4 *FileType,
- INTEGER4 *Debug,
- INTEGER4 *VIsDouble)
- {
- return TECINI112(Title,
- Variables,
- FName,
- ScratchDir,
- FileType,
- Debug,
- VIsDouble);
- }
- INTEGER4 LIBCALL TECINI110(char *Title,
- char *Variables,
- char *FName,
- char *ScratchDir,
- INTEGER4 *Debug,
- INTEGER4 *VIsDouble)
- {
- INTEGER4 FType = FULLFILE;
- TecXXXZoneNum = 0;
- return TECINI112(Title,
- Variables,
- FName,
- ScratchDir,
- &FType,
- Debug,
- VIsDouble);
- }
- INTEGER4 LIBCALL TECINI100(char *Title,
- char *Variables,
- char *FName,
- char *ScratchDir,
- INTEGER4 *Debug,
- INTEGER4 *VIsDouble)
- {
- INTEGER4 FType = FULLFILE;
- TecXXXZoneNum = 0;
- return TECINI112(Title,
- Variables,
- FName,
- ScratchDir,
- &FType,
- Debug,
- VIsDouble);
- }
- INTEGER4 LIBCALL TECINI(char *Title,
- char *Variables,
- char *FName,
- char *ScratchDir,
- INTEGER4 *Debug,
- INTEGER4 *VIsDouble)
- {
- INTEGER4 FType = FULLFILE;
- TecXXXZoneNum = 0;
- return TECINI112(Title,
- Variables,
- FName,
- ScratchDir,
- &FType,
- Debug,
- VIsDouble);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL tecini112_(char *Title,
- char *Variables,
- char *FName,
- char *ScratchDir,
- INTEGER4 *FileType,
- INTEGER4 *Debug,
- INTEGER4 *VIsDouble)
- {
- return TECINI112(Title, Variables, FName, ScratchDir, FileType, Debug, VIsDouble);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecini111_(char *Title,
- char *Variables,
- char *FName,
- char *ScratchDir,
- INTEGER4 *FileType,
- INTEGER4 *Debug,
- INTEGER4 *VIsDouble)
- {
- return TECINI112(Title, Variables, FName, ScratchDir, FileType, Debug, VIsDouble);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecini110_(char *Title,
- char *Variables,
- char *FName,
- char *ScratchDir,
- INTEGER4 *Debug,
- INTEGER4 *VIsDouble)
- {
- INTEGER4 FType = FULLFILE;
- return TECINI112(Title, Variables, FName, ScratchDir, &FType, Debug, VIsDouble);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecini100_(char *Title,
- char *Variables,
- char *FName,
- char *ScratchDir,
- INTEGER4 *Debug,
- INTEGER4 *VIsDouble)
- {
- INTEGER4 FType = FULLFILE;
- return TECINI112(Title, Variables, FName, ScratchDir, &FType, Debug, VIsDouble);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecini_(char *Title,
- char *Variables,
- char *FName,
- char *ScratchDir,
- INTEGER4 *Debug,
- INTEGER4 *VIsDouble)
- {
- INTEGER4 FType = FULLFILE;
- return TECINI112(Title,
- Variables,
- FName,
- ScratchDir,
- &FType,
- Debug,
- VIsDouble);
- }
- #endif
- static int CheckData(const char *routine_name)
- {
- if (NumDataValuesToWrite[CurFile] != NumDataValuesWritten[CurFile])
- {
- #if defined MAKEARCHIVE
- PRINT2("Err: (%s) Wrong number of data values in file %d:\n", routine_name, CurFile + 1);
- PRINT2(" %d data values for Zone %d were processed,\n", NumDataValuesWritten[CurFile], CurZone[CurFile] + 1);
- PRINT1(" %d data values were expected.\n", NumDataValuesToWrite[CurFile]);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- return (0);
- }
- static int CheckFile(const char *routine_name)
- {
- if ((CurFile == -1) || (!IsOpen[CurFile]))
- {
- #if defined MAKEARCHIVE
- PRINT2("Err: (%s) Attempt to use invalid file (%d).\n",
- routine_name, CurFile + 1);
- #endif
- return (-1);
- }
- return (0);
- }
- /**
- * Advances CurVar[CurFile] to the next non-shared active variable. TECDATXXX
- * clients should not supply values for shared or passive variables.
- */
- static void AdvanceToNextVarWithValues(void)
- {
- /* search for the next variable with values */
- do
- {
- CurVar[CurFile]++;
- }
- while (CurVar[CurFile] < NumVars[CurFile] &&
- (IsSharedVar[CurFile][CurVar[CurFile]] ||
- IsPassiveVar[CurFile][CurVar[CurFile]]));
- }
- /**
- * TECZNEXXX
- */
- INTEGER4 LIBCALL TECZNE112(char *ZnTitle,
- INTEGER4 *ZnType,
- INTEGER4 *IMxOrNumPts,
- INTEGER4 *JMxOrNumElements,
- INTEGER4 *KMxOrNumFaces,
- INTEGER4 *ICellMx,
- INTEGER4 *JCellMx,
- INTEGER4 *KCellMx,
- double *SolutionTime,
- INTEGER4 *StrandID,
- INTEGER4 *ParentZone,
- INTEGER4 *IsBlk,
- INTEGER4 *NumFaceConn,
- INTEGER4 *FNMode,
- INTEGER4 *NumFaceNodes,
- INTEGER4 *NumFaceBndryFaces,
- INTEGER4 *NumFaceBndryConns,
- INTEGER4 *PassiveVarList,
- INTEGER4 *ValueLocation,
- INTEGER4 *ShareVarFromZone,
- INTEGER4 *ShareConnectivityFromZone)
- {
- int I;
- int IsOk = 1;
- if (CheckFile("TECZNE112") < 0)
- return (-1);
- if (CurZone[CurFile] > -1)
- {
- if (CheckData("TECZNE112") < 0)
- return (-1);
- }
- if (NumVars[CurFile] == 0)
- {
- WriteErr("TECZNE112");
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECZNE112) Cannot write out zones if numvars is equal to zero (file %d).\n",
- CurFile + 1);
- #endif
- return (-1);
- }
- if (CurZone[CurFile] > MaxNumZonesOrVars - 2) /* -1 based */
- {
- WriteErr("TECZNE112");
- #if defined MAKEARCHIVE
- PRINT2("Err: (TECZNE112) Exceeded max number of zones (%d) in file %d.\n",
- MaxNumZonesOrVars, CurFile + 1);
- #endif
- return (-1);
- }
- if (*StrandID < -1)
- {
- #if defined MAKEARCHIVE
- PRINT2("Err: (TECZNE112) Invalid StrandID supplied for file %d, zone %d.\n",
- CurFile + 1, CurZone[CurFile] + 1 + 1);
- #endif
- return (-1);
- }
- if (*ParentZone < 0)
- {
- #if defined MAKEARCHIVE
- PRINT2("Err: (TECZNE112) Invalid ParentZone supplied for file %d, zone %d.\n",
- CurFile + 1, CurZone[CurFile] + 1 + 1);
- #endif
- return (-1);
- }
- /*
- * This is a temporary error. Point format should no longer be written to the file
- * and should instead be converted to block format before being written. Since the
- * conversion has not yet been implemented, it is an error to use point data.
- * TODO (JN): Remove this error when point to block conversion has been implemented.
- */
- if (*IsBlk != 1)
- {
- #if defined MAKEARCHIVE
- PRINT2("Err: (TECZNE112) Point data is not currently allowed. "
- " Please use block format for file %d, zone %d.\n",
- CurFile + 1, CurZone[CurFile] + 1 + 1);
- #endif
- return (-1);
- }
- NumDataValuesWritten[CurFile] = 0;
- NumOrderedCCDataValuesWritten[CurFile] = 0;
- CurZone[CurFile]++;
- /* Resize zone-dimensioned arrays (CurZone[] is 0-based) */
- try
- {
- MinMaxOffset[CurFile].resize(CurZone[CurFile] + 1);
- TotalNumFaceNodes[CurFile].resize(CurZone[CurFile] + 1);
- NumFaceConnections[CurFile].resize(CurZone[CurFile] + 1);
- FaceNeighborsOrMapWritten[CurFile].resize(CurZone[CurFile] + 1);
- NumConnectivityNodes[CurFile].resize(CurZone[CurFile] + 1);
- ConnectivityWritten[CurFile].resize(CurZone[CurFile] + 1);
- }
- catch (std::bad_alloc const&)
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECZNE112) Memory allocation error.\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- ZoneType[CurFile] = *ZnType;
- IMax[CurFile] = *IMxOrNumPts;
- JMax[CurFile] = *JMxOrNumElements;
- KMax[CurFile] = *KMxOrNumFaces;
- ICellMax[CurFile] = *ICellMx;
- JCellMax[CurFile] = *JCellMx;
- KCellMax[CurFile] = *KCellMx;
- /* Set the flags that connectivity, face neighbors or face map hasn't been written for the zone yet. */
- FaceNeighborsOrMapWritten[CurFile][CurZone[CurFile]] = FALSE;
- ConnectivityWritten[CurFile][CurZone[CurFile]] = FALSE;
- if (ZoneType[CurFile] == ZoneType_FEPolygon ||
- ZoneType[CurFile] == ZoneType_FEPolyhedron)
- {
- NumFaceConnections[CurFile][CurZone[CurFile]] = 0; /* ...not used for polytope data */
- FaceNeighborMode[CurFile] = 0; /* ...not used for polytope data */
- NumConnectivityNodes[CurFile][CurZone[CurFile]] = 0; /* ...not used for polytope data */
- IsBlock[CurFile] = TRUE; /* ...polytope data is always block */
- TotalNumFaceNodes[CurFile][CurZone[CurFile]] = *NumFaceNodes;
- TotalNumFaceBndryFaces[CurFile] = *NumFaceBndryFaces;
- TotalNumFaceBndryConns[CurFile] = *NumFaceBndryConns;
- }
- else /* ...classic data */
- {
- IsBlock[CurFile] = *IsBlk;
- NumFaceConnections[CurFile][CurZone[CurFile]] = *NumFaceConn;
- FaceNeighborMode[CurFile] = *FNMode;
- TotalNumFaceNodes[CurFile][CurZone[CurFile]] = 0; /* ...not used for classic data */
- TotalNumFaceBndryFaces[CurFile] = 0; /* ...not used for classic data */
- TotalNumFaceBndryConns[CurFile] = 0; /* ...not used for classic data */
- }
- WriteBinaryReal(HeadFile[CurFile],
- (double)ZoneMarker,
- FieldDataType_Float);
- if (!DumpDatafileString(HeadFile[CurFile],
- ZnTitle,
- TRUE))
- {
- WriteErr("TECZNE112");
- return (-1);
- }
- if ((ShareVarFromZone && *ShareConnectivityFromZone) &&
- CurZone[CurFile] == 0)
- {
- /* can't have a duplist if there's nothing to duplicate */
- IsOk = 0;
- }
- if (IsOk == 0)
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECZNE112) Bad zone format for file %d.\n", CurFile + 1);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- switch (ZoneType[CurFile])
- {
- case ORDERED:
- NumIndices[CurFile] = 0;
- break;
- case FELINESEG:
- NumIndices[CurFile] = 2;
- break;
- case FETRIANGLE:
- NumIndices[CurFile] = 3;
- break;
- case FEQUADRILATERAL:
- NumIndices[CurFile] = 4;
- break;
- case FETETRAHEDRON:
- NumIndices[CurFile] = 4;
- break;
- case FEBRICK:
- NumIndices[CurFile] = 8;
- break;
- }
- /* ...not used for poly or ordered data and don't count sharing or solution files. */
- if (ZoneType[CurFile] != ZoneType_FEPolygon &&
- ZoneType[CurFile] != ZoneType_FEPolyhedron &&
- *ShareConnectivityFromZone == 0 &&
- FileTypes[CurFile] != SOLUTIONFILE)
- NumConnectivityNodes[CurFile][CurZone[CurFile]] = NumIndices[CurFile] * JMax[CurFile];
- /*
- * We do not check any return values until the end. If these calls fail,
- * WriteFieldDataType below should fail as well.
- */
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)(*ParentZone) - 1); /* ...ParentZone is zero based for binary file */
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)(*StrandID) - 1); /* ...StrandID is zero based for binary file */
- WriteBinaryReal(HeadFile[CurFile], *SolutionTime, FieldDataType_Double);
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t) - 1); /* No Zone Color Assignment */
- WriteBinaryInt32(HeadFile[CurFile], ZoneType[CurFile]);
- NumDataValuesToWrite[CurFile] = 0;
- for (I = 0; I < NumVars[CurFile]; I++)
- {
- IsSharedVar[CurFile][I] = (ShareVarFromZone != NULL && ShareVarFromZone[I] != 0); /* ...shared? */
- IsPassiveVar[CurFile][I] = (PassiveVarList != NULL && PassiveVarList[I] == 1); /* ...passive? */
- }
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)(ValueLocation != NULL ? 1 : 0)); /* ...are var locations specified? */
- if (ValueLocation)
- {
- for (I = 0; I < NumVars[CurFile]; I++)
- {
- int VIndex;
- LgIndex_t NumNodes;
- LgIndex_t NumCells;
- if (ZoneType[CurFile] == ORDERED)
- {
- NumNodes = IMax[CurFile] * JMax[CurFile] * KMax[CurFile];
- NumCells = (MAX(IMax[CurFile] - 1, 1) *
- MAX(JMax[CurFile] - 1, 1) *
- MAX(KMax[CurFile] - 1, 1));
- }
- else
- {
- NumNodes = IMax[CurFile];
- NumCells = JMax[CurFile];
- }
- if (IsSharedVar[CurFile][I])
- VIndex = ShareVarFromZone[I] - 1;
- else
- VIndex = I;
- if (VIndex == 0)
- NumRunningVarValues[CurFile][I] = 0;
- else
- NumRunningVarValues[CurFile][VIndex] = NumRunningVarValues[CurFile][VIndex-1];
- IsCellCentered[CurFile][VIndex] = (ValueLocation[I] == ValueLocation_CellCentered);
- if (ValueLocation[I] == ValueLocation_CellCentered)
- {
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)1);
- if (!IsSharedVar[CurFile][I] && !IsPassiveVar[CurFile][I])
- {
- NumDataValuesToWrite[CurFile] += NumCells;
- NumRunningVarValues[CurFile][VIndex] += NumCells;
- }
- }
- else if (ValueLocation[I] == ValueLocation_Nodal)
- {
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)0);
- if (!IsSharedVar[CurFile][I] && !IsPassiveVar[CurFile][I])
- {
- NumDataValuesToWrite[CurFile] += NumNodes;
- NumRunningVarValues[CurFile][VIndex] += NumNodes;
- }
- }
- else
- {
- #if defined MAKEARCHIVE
- PRINT2("Err: (TECZNE112) Bad zone value location for file %d, variable %d.\n", CurFile + 1, I + 1);
- #endif
- NumErrs[CurFile]++;
- return(-1);
- }
- }
- }
- else
- {
- LgIndex_t NumNodes;
- if (ZoneType[CurFile] == ORDERED)
- {
- NumNodes = IMax[CurFile] * JMax[CurFile] * KMax[CurFile];
- }
- else
- {
- NumNodes = IMax[CurFile];
- }
- for (I = 0; I < NumVars[CurFile]; I++)
- {
- int VIndex;
- if (IsSharedVar[CurFile][I])
- VIndex = ShareVarFromZone[I] - 1;
- else
- VIndex = I;
- if (VIndex == 0)
- NumRunningVarValues[CurFile][I] = 0;
- else
- NumRunningVarValues[CurFile][VIndex] = NumRunningVarValues[CurFile][VIndex-1];
- IsCellCentered[CurFile][VIndex] = FALSE;
- if (!IsSharedVar[CurFile][I] && !IsPassiveVar[CurFile][I])
- {
- NumDataValuesToWrite[CurFile] += NumNodes;
- NumRunningVarValues[CurFile][VIndex] += NumNodes;
- }
- }
- }
- /*
- * As of binary version 108 Tecplot introduced
- * the ability to output its auto-generated face
- * neighbor array in its raw form. For now
- * TecIO will always decline to perform this
- * step and instead fall back to the delivering
- * one neighbor at a time.
- */
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)0); /* IsRawFNAvailable */
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)NumFaceConnections[CurFile][CurZone[CurFile]]);
- if (NumFaceConnections[CurFile][CurZone[CurFile]] > 0)
- {
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)FaceNeighborMode[CurFile]);
- if (ZoneType[CurFile] != ORDERED)
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)0); /* FEFaceNeighborsComplete */
- }
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)IMax[CurFile]);
- if (ZoneType[CurFile] == FEPOLYGON ||
- ZoneType[CurFile] == FEPOLYHEDRON)
- {
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)KMax[CurFile]);
- /*
- * As of binary version 111 these items moved from the data section to
- * the header.
- */
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)TotalNumFaceNodes[CurFile][CurZone[CurFile]]);
- if (TotalNumFaceBndryFaces[CurFile] > 0)
- {
- /* Each boundary face must have >= 1 boundary connection. */
- if (TotalNumFaceBndryConns[CurFile] < TotalNumFaceBndryFaces[CurFile])
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECZNE112) There must be at least 1 boundary connection for each boundary face in zone %d.\n",
- CurZone[CurFile] + 1);
- PRINT2(" %d boundary faces and %d boundary connections were specified.\n",
- TotalNumFaceBndryFaces[CurFile], TotalNumFaceBndryConns[CurFile]);
- #endif
- NumErrs[CurFile]++;
- return(-1);
- }
- /*
- * As a convenience for the ASCII format, TecUtil, and TECIO layers if any
- * boundary connections exists we automatically add a no-neighboring
- * connection as the first item so that they can user 0 for no-neighboring
- * element in the element list regardless if they have boundary connections
- * or not.
- */
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)TotalNumFaceBndryFaces[CurFile] + 1); /* ...add a boundary face for no neighboring element as a convenience */
- }
- else
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)TotalNumFaceBndryFaces[CurFile]);
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)TotalNumFaceBndryConns[CurFile]);
- }
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)JMax[CurFile]);
- if (ZoneType[CurFile] == ORDERED)
- {
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)KMax[CurFile]);
- }
- else
- {
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)ICellMax[CurFile]);
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)JCellMax[CurFile]);
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)KCellMax[CurFile]);
- }
- /*
- * Aux data. This has to be over-written by the aux data writing routine.
- * Because it currently at the end of the header section we don't need to
- * keep track of the position for seeking back to it.
- */
- WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)0);
- WriteBinaryReal(BlckFile[CurFile],
- (double)ZoneMarker,
- FieldDataType_Float);
- for (I = 0; I < NumVars[CurFile]; I++)
- {
- if (!WriteFieldDataType(BlckFile[CurFile],
- (FieldDataType_e)FieldDataType,
- TRUE))
- {
- WriteErr("TECZNE112");
- return (-1);
- }
- }
- /* Passive variable identification */
- if (PassiveVarList)
- {
- WriteBinaryInt32(BlckFile[CurFile], 1);
- for (I = 0; I < NumVars[CurFile]; I++)
- WriteBinaryInt32(BlckFile[CurFile], PassiveVarList[I]);
- }
- else
- WriteBinaryInt32(BlckFile[CurFile], 0);
- /* get the CurVar[CurFile] on the first active variable */
- CurVar[CurFile] = -1;
- AdvanceToNextVarWithValues();
- /* Variable & Connectivity Sharing */
- if (ShareVarFromZone)
- {
- WriteBinaryInt32(BlckFile[CurFile], 1);
- for (I = 0; I < NumVars[CurFile]; I++)
- WriteBinaryInt32(BlckFile[CurFile], ShareVarFromZone[I] - 1);
- }
- else
- WriteBinaryInt32(BlckFile[CurFile], 0);
- WriteBinaryInt32(BlckFile[CurFile], *ShareConnectivityFromZone - 1);
- /*
- * Create place holders or the variable min/max value. We will come back
- * later after writing the data portion with the real min/max values. In the
- * mean time, keep track of the starting point so we can seek back to this
- * place.
- */
- MinMaxOffset[CurFile][CurZone[CurFile]] = (FileOffset_t)TP_FTELL(BlckFile[CurFile]->File);
- for (I = 0; I < NumVars[CurFile]; I++)
- {
- /* initialize to unset values */
- VarMinValue[CurFile][I] = LARGEDOUBLE;
- VarMaxValue[CurFile][I] = -LARGEDOUBLE;
- if (!IsSharedVar[CurFile][I] && !IsPassiveVar[CurFile][I])
- {
- WriteBinaryReal(BlckFile[CurFile], 0.0, FieldDataType_Double);
- WriteBinaryReal(BlckFile[CurFile], 0.0, FieldDataType_Double);
- }
- }
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- {
- PRINT1("Writing Zone %d:\n", CurZone[CurFile] + 1);
- PRINT1(" Title = %s\n", ZnTitle);
- PRINT1(" Type = %s\n", ZoneTypes[ZoneType[CurFile]]);
- PRINT1(" IMax = %d\n", IMax[CurFile]);
- PRINT1(" JMax = %d\n", JMax[CurFile]);
- PRINT1(" KMax = %d\n", KMax[CurFile]);
- if (ShareVarFromZone)
- {
- char DupList[1024] = "";
- for (I = 0; I < NumVars[CurFile]; I++)
- {
- if (I > 0)
- strcat(DupList, ",");
- sprintf(&DupList[strlen(DupList)], "%d", ShareVarFromZone[I]);
- }
- PRINT1(" DupList = %s\n", DupList);
- }
- }
- #endif
- return (0);
- }
- INTEGER4 LIBCALL TECZNE111(char *ZnTitle,
- INTEGER4 *ZnType,
- INTEGER4 *IMxOrNumPts,
- INTEGER4 *JMxOrNumElements,
- INTEGER4 *KMxOrNumFaces,
- INTEGER4 *ICellMx,
- INTEGER4 *JCellMx,
- INTEGER4 *KCellMx,
- double *SolutionTime,
- INTEGER4 *StrandID,
- INTEGER4 *ParentZone,
- INTEGER4 *IsBlk,
- INTEGER4 *NumFaceConn,
- INTEGER4 *FNMode,
- INTEGER4 *NumFaceNodes,
- INTEGER4 *NumFaceBndryFaces,
- INTEGER4 *NumFaceBndryConns,
- INTEGER4 *PassiveVarList,
- INTEGER4 *ValueLocation,
- INTEGER4 *ShareVarFromZone,
- INTEGER4 *ShareConnectivityFromZone)
- {
- return TECZNE112(ZnTitle,
- ZnType,
- IMxOrNumPts,
- JMxOrNumElements,
- KMxOrNumFaces,
- ICellMx,
- JCellMx,
- KCellMx,
- SolutionTime,
- StrandID,
- ParentZone,
- IsBlk,
- NumFaceConn,
- FNMode,
- NumFaceNodes,
- NumFaceBndryFaces,
- NumFaceBndryConns,
- PassiveVarList,
- ValueLocation,
- ShareVarFromZone,
- ShareConnectivityFromZone);
- }
- INTEGER4 LIBCALL TECZNE110(char *ZnTitle,
- INTEGER4 *ZnType,
- INTEGER4 *IMxOrNumPts,
- INTEGER4 *JMxOrNumElements,
- INTEGER4 *KMx,
- INTEGER4 *ICellMx,
- INTEGER4 *JCellMx,
- INTEGER4 *KCellMx,
- double *SolutionTime,
- INTEGER4 *StrandID,
- INTEGER4 *ParentZone,
- INTEGER4 *IsBlk,
- INTEGER4 *NumFaceConn,
- INTEGER4 *FNMode,
- INTEGER4 *PassiveVarList,
- INTEGER4 *ValueLocation,
- INTEGER4 *ShareVarFromZone,
- INTEGER4 *ShareConnectivityFromZone)
- {
- INTEGER4 NumFaceNodes = 0;
- INTEGER4 NumFaceBndryFaces = 0;
- INTEGER4 NumFaceBndryConns = 0;
- return TECZNE112(ZnTitle,
- ZnType,
- IMxOrNumPts,
- JMxOrNumElements,
- KMx,
- ICellMx,
- JCellMx,
- KCellMx,
- SolutionTime,
- StrandID,
- ParentZone,
- IsBlk,
- NumFaceConn,
- FNMode,
- &NumFaceNodes,
- &NumFaceBndryFaces,
- &NumFaceBndryConns,
- PassiveVarList,
- ValueLocation,
- ShareVarFromZone,
- ShareConnectivityFromZone);
- }
- INTEGER4 LIBCALL TECZNE100(char *ZnTitle,
- INTEGER4 *ZnType,
- INTEGER4 *IMxOrNumPts,
- INTEGER4 *JMxOrNumElements,
- INTEGER4 *KMx,
- INTEGER4 *ICellMx,
- INTEGER4 *JCellMx,
- INTEGER4 *KCellMx,
- INTEGER4 *IsBlk,
- INTEGER4 *NumFaceConn,
- INTEGER4 *FNMode,
- INTEGER4 *ValueLocation,
- INTEGER4 *ShareVarFromZone,
- INTEGER4 *ShareConnectivityFromZone)
- {
- double SolutionTime = 0.0;
- INTEGER4 StrandID = STRAND_ID_STATIC + 1; /* TECXXX is ones based for StrandID */
- INTEGER4 ParentZone = BAD_SET_VALUE + 1; /* TECXXX is ones based for ParentZone */
- INTEGER4 NumFaceNodes = 0;
- INTEGER4 NumFaceBndryFaces = 0;
- INTEGER4 NumFaceBndryConns = 0;
- return TECZNE112(ZnTitle,
- ZnType,
- IMxOrNumPts,
- JMxOrNumElements,
- KMx,
- ICellMx,
- JCellMx,
- KCellMx,
- &SolutionTime,
- &StrandID,
- &ParentZone,
- IsBlk,
- NumFaceConn,
- FNMode,
- &NumFaceNodes,
- &NumFaceBndryFaces,
- &NumFaceBndryConns,
- NULL, /* PassiveVarList */
- ValueLocation,
- ShareVarFromZone,
- ShareConnectivityFromZone);
- }
- #if !defined INDEX_16_BIT // not supported in this test-only mode
- INTEGER4 LIBCALL TECZNE(char *ZoneTitle,
- INTEGER4 *IMx,
- INTEGER4 *JMx,
- INTEGER4 *KMx,
- char *ZFormat,
- char *DupList)
- {
- LgIndex_t ZoneType;
- LgIndex_t IsBlock;
- LgIndex_t *ShareVarFromZone = NULL;
- LgIndex_t ShareConnectivityFromZone;
- LgIndex_t Result = 0;
- if (ZFormat == NULL)
- Result = -1;
- else if (!strcmp(ZFormat, "BLOCK"))
- {
- IsBlock = 1;
- ZoneType = ZoneType_Ordered;
- }
- else if (!strcmp(ZFormat, "FEBLOCK"))
- {
- IsBlock = 1;
- switch (*KMx)
- {
- /*
- * From preplot.c:
- *
- * ZoneType 0=ORDERED,1=FELINESEG,2=FETRIANGLE,
- * 3=FEQUADRILATERAL,4=FETETRAHEDRON,5=FEBRICK
- */
- case 0: /* Triangular. */
- ZoneType = 2;
- break;
- case 1: /* Quadrilateral */
- ZoneType = 3;
- break;
- case 2: /* Tetrahedral */
- ZoneType = 4;
- break;
- case 3: /* Brick. */
- ZoneType = 5;
- break;
- }
- }
- else if (!strcmp(ZFormat, "POINT"))
- {
- IsBlock = 0;
- ZoneType = ZoneType_Ordered;
- }
- else if (!strcmp(ZFormat, "FEPOINT"))
- {
- IsBlock = 0;
- switch (*KMx)
- {
- case 0: /* Triangular. */
- ZoneType = 2;
- break;
- case 1: /* Quadrilateral */
- ZoneType = 3;
- break;
- case 2: /* Tetrahedral */
- ZoneType = 4;
- break;
- case 3: /* Brick. */
- ZoneType = 5;
- break;
- }
- }
- else
- Result = -1;
- ShareConnectivityFromZone = 0;
- if (Result == 0 &&
- DupList &&
- !ParseDupList(&ShareVarFromZone, &ShareConnectivityFromZone, DupList))
- {
- Result = -1;
- }
- /*Result = TECZNE((char *)ZoneTitle, IMx, JMx, KMx, (char *)ZFormat,(char*)DupList);*/
- if (Result == 0)
- {
- INTEGER4 ICellMx = 0;
- INTEGER4 JCellMx = 0;
- INTEGER4 KCellMx = 0;
- INTEGER4 NumFaceConnections = 0;
- INTEGER4 FaceNeighborMode = FaceNeighborMode_LocalOneToOne;
- double SolutionTime = 0.0;
- INTEGER4 StrandID = STRAND_ID_STATIC + 1; /* TECXXX is ones based for StrandID */
- INTEGER4 ParentZone = BAD_SET_VALUE + 1; /* TECXXX is ones based for ParentZone */
- INTEGER4 NumFaceNodes = 0;
- INTEGER4 NumFaceBndryFaces = 0;
- INTEGER4 NumFaceBndryConns = 0;
- Result = TECZNE112((char *)ZoneTitle,
- &ZoneType,
- IMx,
- JMx,
- KMx,
- &ICellMx,
- &JCellMx,
- &KCellMx,
- &SolutionTime,
- &StrandID,
- &ParentZone,
- &IsBlock,
- &NumFaceConnections,
- &FaceNeighborMode,
- &NumFaceNodes,
- &NumFaceBndryFaces,
- &NumFaceBndryConns,
- NULL, /* PassiveVarList */
- NULL, /* ValueLocation */
- DupList ? ShareVarFromZone : NULL,
- &ShareConnectivityFromZone);
- TecXXXZoneNum++;
- }
- if (ShareVarFromZone)
- FREE_ARRAY(ShareVarFromZone, "Variable sharing list");
- return (INTEGER4) Result;
- }
- #endif // INDEX_16_BIT -- not supported in this test-only mode
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL teczne112_(char *ZoneTitle,
- INTEGER4 *ZnType,
- INTEGER4 *IMxOrNumPts,
- INTEGER4 *JMxOrNumElements,
- INTEGER4 *KMx,
- INTEGER4 *ICellMx,
- INTEGER4 *JCellMx,
- INTEGER4 *KCellMx,
- double *SolutionTime,
- INTEGER4 *StrandID,
- INTEGER4 *ParentZone,
- INTEGER4 *IsBlk,
- INTEGER4 *NumFaceConn,
- INTEGER4 *FNMode,
- INTEGER4 *NumFaceNodes,
- INTEGER4 *NumFaceBndryFaces,
- INTEGER4 *NumFaceBndryConns,
- INTEGER4 *PassiveVarList,
- INTEGER4 *ValueLocation,
- INTEGER4 *ShareVarFromZone,
- INTEGER4 *ShareConnectivityFromZone)
- {
- return TECZNE112(ZoneTitle,
- ZnType,
- IMxOrNumPts,
- JMxOrNumElements,
- KMx,
- ICellMx,
- JCellMx,
- KCellMx,
- SolutionTime,
- StrandID,
- ParentZone,
- IsBlk,
- NumFaceConn,
- FNMode,
- NumFaceNodes,
- NumFaceBndryFaces,
- NumFaceBndryConns,
- PassiveVarList,
- ValueLocation,
- ShareVarFromZone,
- ShareConnectivityFromZone);
- }
- LIBFUNCTION INTEGER4 LIBCALL teczne111_(char *ZoneTitle,
- INTEGER4 *ZnType,
- INTEGER4 *IMxOrNumPts,
- INTEGER4 *JMxOrNumElements,
- INTEGER4 *KMx,
- INTEGER4 *ICellMx,
- INTEGER4 *JCellMx,
- INTEGER4 *KCellMx,
- double *SolutionTime,
- INTEGER4 *StrandID,
- INTEGER4 *ParentZone,
- INTEGER4 *IsBlk,
- INTEGER4 *NumFaceConn,
- INTEGER4 *FNMode,
- INTEGER4 *NumFaceNodes,
- INTEGER4 *NumFaceBndryFaces,
- INTEGER4 *NumFaceBndryConns,
- INTEGER4 *PassiveVarList,
- INTEGER4 *ValueLocation,
- INTEGER4 *ShareVarFromZone,
- INTEGER4 *ShareConnectivityFromZone)
- {
- return TECZNE112(ZoneTitle,
- ZnType,
- IMxOrNumPts,
- JMxOrNumElements,
- KMx,
- ICellMx,
- JCellMx,
- KCellMx,
- SolutionTime,
- StrandID,
- ParentZone,
- IsBlk,
- NumFaceConn,
- FNMode,
- NumFaceNodes,
- NumFaceBndryFaces,
- NumFaceBndryConns,
- PassiveVarList,
- ValueLocation,
- ShareVarFromZone,
- ShareConnectivityFromZone);
- }
- LIBFUNCTION INTEGER4 LIBCALL teczne110_(char *ZoneTitle,
- INTEGER4 *ZnType,
- INTEGER4 *IMxOrNumPts,
- INTEGER4 *JMxOrNumElements,
- INTEGER4 *KMx,
- INTEGER4 *ICellMx,
- INTEGER4 *JCellMx,
- INTEGER4 *KCellMx,
- double *SolutionTime,
- INTEGER4 *StrandID,
- INTEGER4 *ParentZone,
- INTEGER4 *IsBlk,
- INTEGER4 *NumFaceConn,
- INTEGER4 *FNMode,
- INTEGER4 *PassiveVarList,
- INTEGER4 *ValueLocation,
- INTEGER4 *ShareVarFromZone,
- INTEGER4 *ShareConnectivityFromZone)
- {
- INTEGER4 NumFaceNodes = 0;
- INTEGER4 NumFaceBndryFaces = 0;
- INTEGER4 NumFaceBndryConns = 0;
- return TECZNE112(ZoneTitle,
- ZnType,
- IMxOrNumPts,
- JMxOrNumElements,
- KMx,
- ICellMx,
- JCellMx,
- KCellMx,
- SolutionTime,
- StrandID,
- ParentZone,
- IsBlk,
- NumFaceConn,
- FNMode,
- &NumFaceNodes,
- &NumFaceBndryFaces,
- &NumFaceBndryConns,
- PassiveVarList,
- ValueLocation,
- ShareVarFromZone,
- ShareConnectivityFromZone);
- }
- LIBFUNCTION INTEGER4 LIBCALL teczne100_(char *ZoneTitle,
- INTEGER4 *ZnType,
- INTEGER4 *IMxOrNumPts,
- INTEGER4 *JMxOrNumElements,
- INTEGER4 *KMx,
- INTEGER4 *ICellMx,
- INTEGER4 *JCellMx,
- INTEGER4 *KCellMx,
- INTEGER4 *IsBlk,
- INTEGER4 *NumFaceConn,
- INTEGER4 *FNMode,
- INTEGER4 *ValueLocation,
- INTEGER4 *ShareVarFromZone,
- INTEGER4 *ShareConnectivityFromZone)
- {
- return TECZNE100(ZoneTitle,
- ZnType,
- IMxOrNumPts,
- JMxOrNumElements,
- KMx,
- ICellMx,
- JCellMx,
- KCellMx,
- IsBlk,
- NumFaceConn,
- FNMode,
- ValueLocation,
- ShareVarFromZone,
- ShareConnectivityFromZone);
- }
- LIBFUNCTION INTEGER4 LIBCALL teczne_(char *ZoneTitle,
- INTEGER4 *IMx,
- INTEGER4 *JMx,
- INTEGER4 *KMx,
- char *ZFormat,
- char *DupList)
- {
- return TECZNE(ZoneTitle,
- IMx,
- JMx,
- KMx,
- ZFormat,
- DupList);
- }
- #endif
- /**
- * Rewrite the var min/max place holders which currently have zero in them.
- */
- static void RewritePendingMinMaxValues(void)
- {
- FileOffset_t CurrentOffset = (FileOffset_t)TP_FTELL(BlckFile[CurFile]->File);
- TP_FSEEK(BlckFile[CurFile]->File, MinMaxOffset[CurFile][CurZone[CurFile]], SEEK_SET);
- int I;
- for (I = 0; I < NumVars[CurFile]; I++)
- {
- if (!IsSharedVar[CurFile][I] && !IsPassiveVar[CurFile][I])
- {
- WriteBinaryReal(BlckFile[CurFile], VarMinValue[CurFile][I], FieldDataType_Double);
- WriteBinaryReal(BlckFile[CurFile], VarMaxValue[CurFile][I], FieldDataType_Double);
- }
- }
- /* return the original position */
- TP_FSEEK(BlckFile[CurFile]->File, CurrentOffset, SEEK_SET);
- }
- /**
- * TECDATXXX
- */
- INTEGER4 LIBCALL TECDAT112(INTEGER4 *N,
- void *Data,
- INTEGER4 *IsDouble)
- {
- LgIndex_t I;
- double *dptr = (double *)Data;
- float *fptr = (float *)Data;
- if (CheckFile("TECDAT112") < 0)
- return (-1);
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile] && (*N > 1))
- PRINT2("Writing %d values to file %d.\n", *N, CurFile + 1);
- #endif
- for (I = 0; I < *N; I++)
- {
- double Value = (*IsDouble == 1 ? dptr[I] : fptr[I]);
- /* keep track of var min/max */
- if (Value < VarMinValue[CurFile][CurVar[CurFile]])
- VarMinValue[CurFile][CurVar[CurFile]] = Value;
- if (Value > VarMaxValue[CurFile][CurVar[CurFile]])
- VarMaxValue[CurFile][CurVar[CurFile]] = Value;
- if (!WriteBinaryReal(BlckFile[CurFile], Value, (FieldDataType_e)FieldDataType))
- {
- WriteErr("TECDAT112");
- return (-1);
- }
- /*
- * As of version 103 Tecplot writes binary data files so that the ordered
- * cell centered field data includes the ghost cells. This makes it much
- * easier for Tecplot to map the data when reading by simply writing out
- * field data's as a block. As of version 104 the ghost cells of the
- * slowest moving index are not included.
- */
- if (IsCellCentered[CurFile][CurVar[CurFile]] && ZoneType[CurFile] == ORDERED)
- {
- CHECK(IsBlock[CurFile]); /* ...ordered CC data must be block format */
- LgIndex_t PIndex = (NumOrderedCCDataValuesWritten[CurFile]);
- LgIndex_t FinalIMax = MAX(IMax[CurFile] - 1, 1);
- LgIndex_t FinalJMax = MAX(JMax[CurFile] - 1, 1);
- LgIndex_t FinalKMax = MAX(KMax[CurFile] - 1, 1);
- LgIndex_t IIndex = (PIndex % IMax[CurFile]);
- LgIndex_t JIndex = ((PIndex % (IMax[CurFile] * JMax[CurFile])) / IMax[CurFile]);
- LgIndex_t KIndex = (PIndex / (IMax[CurFile] * JMax[CurFile]));
- LgIndex_t IMaxAdjust = 0;
- LgIndex_t JMaxAdjust = 0;
- LgIndex_t KMaxAdjust = 0;
- if (KMax[CurFile] > 1)
- KMaxAdjust = 1; /* ...K is slowest */
- else if (JMax[CurFile] > 1)
- JMaxAdjust = 1; /* ...J is slowest */
- else if (IMax[CurFile] > 1)
- IMaxAdjust = 1; /* ...I is slowest */
- if (IIndex + 1 == FinalIMax && FinalIMax < IMax[CurFile] - IMaxAdjust)
- {
- NumOrderedCCDataValuesWritten[CurFile]++;
- if (!WriteBinaryReal(BlckFile[CurFile], 0.0, (FieldDataType_e)FieldDataType))
- {
- WriteErr("TECDAT112");
- return (-1);
- }
- }
- if (IIndex + 1 == FinalIMax &&
- (JIndex + 1 == FinalJMax && FinalJMax < JMax[CurFile] - JMaxAdjust))
- {
- LgIndex_t II;
- for (II = 1; II <= IMax[CurFile] - IMaxAdjust; II++)
- {
- NumOrderedCCDataValuesWritten[CurFile]++;
- if (!WriteBinaryReal(BlckFile[CurFile], 0.0, (FieldDataType_e)FieldDataType))
- {
- WriteErr("TECDAT112");
- return (-1);
- }
- }
- }
- if (IIndex + 1 == FinalIMax &&
- JIndex + 1 == FinalJMax &&
- (KIndex + 1 == FinalKMax && FinalKMax < KMax[CurFile] - KMaxAdjust))
- {
- LgIndex_t JJ, II;
- for (JJ = 1; JJ <= JMax[CurFile] - JMaxAdjust; JJ++)
- for (II = 1; II <= IMax[CurFile] - IMaxAdjust; II++)
- {
- NumOrderedCCDataValuesWritten[CurFile]++;
- if (!WriteBinaryReal(BlckFile[CurFile], 0.0, (FieldDataType_e)FieldDataType))
- {
- WriteErr("TECDAT112");
- return (-1);
- }
- }
- }
- /* increment for the original cell value */
- NumOrderedCCDataValuesWritten[CurFile]++;
- }
- /* update the number of data points written */
- NumDataValuesWritten[CurFile]++;
- if (IsBlock[CurFile])
- {
- /* for block format update the variable when all values have been given */
- if (NumRunningVarValues[CurFile][CurVar[CurFile]] == NumDataValuesWritten[CurFile])
- {
- AdvanceToNextVarWithValues(); /* ...move on to the next variable */
- if (CurVar[CurFile] < NumVars[CurFile] &&
- IsCellCentered[CurFile][CurVar[CurFile]] &&
- ZoneType[CurFile] == ORDERED)
- NumOrderedCCDataValuesWritten[CurFile] = 0; /* reset for next CC variable */
- }
- }
- else
- {
- /* for point format update the variable after each value */
- AdvanceToNextVarWithValues();
- if (CurVar[CurFile] >= NumVars[CurFile])
- {
- /* reset to the first active variable */
- CurVar[CurFile] = -1;
- AdvanceToNextVarWithValues();
- }
- }
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile] > 1)
- PRINT2("%d %G\n", NumDataValuesWritten[CurFile] + I + 1, Value);
- #endif
- }
- /*
- * If this is the last call to TECDAT112,
- * then we may have to set the 'repeat adjacency list'
- * flag in the file.
- */
- if (HasFECONNECT[CurFile] &&
- /* (essentialy this is CheckData() but we don't want to print
- an error message) */
- (NumDataValuesToWrite[CurFile] == NumDataValuesWritten[CurFile]))
- {
- if (!WriteBinaryInt32(BlckFile[CurFile], (LgIndex_t)1))
- {
- WriteErr("TECDAT112");
- return (-1);
- }
- }
- /* re-write min/max values when all data has been delivered */
- if (NumDataValuesToWrite[CurFile] == NumDataValuesWritten[CurFile])
- RewritePendingMinMaxValues();
- return (0);
- }
- INTEGER4 LIBCALL TECDAT111(INTEGER4 *N,
- void *Data,
- INTEGER4 *IsDouble)
- {
- return TECDAT112(N,
- Data,
- IsDouble);
- }
- INTEGER4 LIBCALL TECDAT110(INTEGER4 *N,
- void *FieldData,
- INTEGER4 *IsDouble)
- {
- return TECDAT112(N,
- FieldData,
- IsDouble);
- }
- INTEGER4 LIBCALL TECDAT100(INTEGER4 *N,
- void *FieldData,
- INTEGER4 *IsDouble)
- {
- return TECDAT112(N,
- FieldData,
- IsDouble);
- }
- INTEGER4 LIBCALL TECDAT(INTEGER4 *N,
- void *FieldData,
- INTEGER4 *IsDouble)
- {
- return TECDAT112(N,
- FieldData,
- IsDouble);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL tecdat112_(INTEGER4 *N,
- void *Data,
- INTEGER4 *IsDouble)
- {
- return TECDAT112(N, Data, IsDouble);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecdat111_(INTEGER4 *N,
- void *Data,
- INTEGER4 *IsDouble)
- {
- return TECDAT112(N, Data, IsDouble);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecdat110_(INTEGER4 *N,
- void *Data,
- INTEGER4 *IsDouble)
- {
- return TECDAT112(N, Data, IsDouble);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecdat100_(INTEGER4 *N,
- void *Data,
- INTEGER4 *IsDouble)
- {
- return TECDAT112(N, Data, IsDouble);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecdat_(INTEGER4 *N,
- void *FieldData,
- INTEGER4 *IsDouble)
- {
- return TECDAT112(N,
- FieldData,
- IsDouble);
- }
- #endif
- /**
- * TECNODXXX
- */
- INTEGER4 LIBCALL TECNOD112(INTEGER4 *NData)
- {
- LgIndex_t L = NumConnectivityNodes[CurFile][CurZone[CurFile]];
- LgIndex_t I;
- ConnectivityWritten[CurFile][CurZone[CurFile]] = TRUE;
- if (CheckFile("TECNOD112") < 0)
- return (-1);
- if (ZoneType[CurFile] == FEPOLYGON ||
- ZoneType[CurFile] == FEPOLYHEDRON)
- {
- /* Wrong way to specify connectivity for polygons and polyhedrons */
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECNOD112) Cannot call TECNOD112 for polygonal or polyhedral zones.\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- if (HasFECONNECT[CurFile])
- {
- /*
- * The connectivity list is duplicated,
- * so we shouldn't be calling TECNOD112()
- */
- return (-1);
- }
- if (FileTypes[CurFile] == SOLUTIONFILE)
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECNOD112) Cannot call TECNOD112 if file type is SOLUTIONFILE.\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- if (ZoneType[CurFile] == ORDERED)
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECNOD112) Cannot call TECNOD110 if zone type is ORDERED.\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- if (CheckData("TECNOD112") < 0)
- return (-1);
- for (I = 0; I < L; I++)
- {
- if ((NData[I] > IMax[CurFile]) ||
- (NData[I] < 1))
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECNOD112) Invalid node map value at position %d:\n", I);
- PRINT2(" node map value = %d, max value = %d.\n", NData[I], IMax[CurFile]);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- /*
- * As of version 103 Tecplot assumes that node maps are zero based
- * instead of ones based. Since we have to maintain the contract we
- * subtract 1 for the caller.
- */
- if (!WriteBinaryInt32(BlckFile[CurFile], NData[I] - 1)) /* zero based */
- {
- WriteErr("TECNOD112");
- return (-1);
- }
- }
- return (0);
- }
- INTEGER4 LIBCALL TECNOD111(INTEGER4 *NData)
- {
- return TECNOD112(NData);
- }
- INTEGER4 LIBCALL TECNOD110(INTEGER4 *NData)
- {
- return TECNOD112(NData);
- }
- INTEGER4 LIBCALL TECNOD100(INTEGER4 *NData)
- {
- return TECNOD112(NData);
- }
- INTEGER4 LIBCALL TECNOD(INTEGER4 *NData)
- {
- return TECNOD112(NData);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL tecnod112_(INTEGER4 *NData)
- {
- return TECNOD112(NData);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecnod111_(INTEGER4 *NData)
- {
- return TECNOD112(NData);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecnod110_(INTEGER4 *NData)
- {
- return TECNOD112(NData);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecnod100_(INTEGER4 *NData)
- {
- return TECNOD112(NData);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecnod_(INTEGER4 *NData)
- {
- return TECNOD112(NData);
- }
- #endif
- /**
- * TECENDXXX
- */
- INTEGER4 LIBCALL TECEND112(void)
- {
- int RetVal = 0;
- /**
- * Validate that all zone data was given for the file since there are no
- * more chances to give it. Note that solution files don't define the
- * connectivity again.
- */
- if (FileTypes[CurFile] != SOLUTIONFILE)
- {
- for (int ZoneIndex = 0; (RetVal == 0) && (ZoneIndex <= CurZone[CurFile]); ZoneIndex++)
- {
- if (((NumConnectivityNodes[CurFile][ZoneIndex] > 0) &&
- (ConnectivityWritten[CurFile][ZoneIndex] == FALSE)))
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECEND112) File %d is being closed without writing connectivity data.\n", CurFile + 1);
- PRINT1(" Zone %d was defined with a Classic FE zone type but TECNOD112() was not called.\n", ZoneIndex + 1);
- #endif
- NumErrs[CurFile]++;
- RetVal = -1;
- }
- if (((NumFaceConnections[CurFile][ZoneIndex] > 0) &&
- (FaceNeighborsOrMapWritten[CurFile][ZoneIndex] == FALSE)))
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECEND112) File %d is being closed without writing face neighbor data.\n", CurFile + 1);
- PRINT2(" %d connections were specified for zone %d but TECFACE112() was not called.\n",
- NumFaceConnections[CurFile][ZoneIndex], ZoneIndex + 1);
- #endif
- NumErrs[CurFile]++;
- RetVal = -1;
- }
- else if (((TotalNumFaceNodes[CurFile][ZoneIndex] > 0) &&
- (FaceNeighborsOrMapWritten[CurFile][ZoneIndex] == FALSE)))
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECEND112) File %d is being closed without writing face map data.\n", CurFile + 1);
- PRINT2(" %d face nodes were specified for zone %d but TECPOLY112() was not called.\n",
- TotalNumFaceNodes[CurFile][ZoneIndex], ZoneIndex + 1);
- #endif
- NumErrs[CurFile]++;
- RetVal = -1;
- }
- }
- }
- if (RetVal == 0)
- {
- if (CheckFile("TECEND112") < 0)
- RetVal = -1;
- }
- if (RetVal == 0)
- {
- if (CheckData("TECEND112") < 0)
- RetVal = -1;
- }
- if (RetVal == 0)
- if (!WriteBinaryReal(HeadFile[CurFile], EndHeaderMarker, FieldDataType_Float))
- {
- WriteErr("TECEND112");
- RetVal = -1;
- }
- CloseFileStream(&BlckFile[CurFile]);
- if (RetVal == 0)
- {
- BlckFile[CurFile] = OpenFileStream(BlckFName[CurFile], "rb", IsWritingNative[CurFile]);
- /* Append data from BlckFile to HeadFile... */
- char buffer[BYTES_PER_CHUNK];
- size_t bytesRead = 0;
- while ((RetVal == 0) &&
- (feof(BlckFile[CurFile]->File) == 0))
- {
- bytesRead = fread((void*)buffer, 1, BYTES_PER_CHUNK, BlckFile[CurFile]->File);
- if (ferror(BlckFile[CurFile]->File) == 0)
- {
- if (bytesRead != fwrite((void*)buffer, 1, bytesRead, HeadFile[CurFile]->File))
- {
- /* do not call WriteErr, use custom message instead */
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECEND112) Write failure during repack on file %d.\n", CurFile + 1);
- #endif
- NumErrs[CurFile]++;
- RetVal = -1;
- }
- }
- else
- {
- /* do not call WriteErr, use custom message instead */
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECEND112) Write failure during repack on file %d.\n", CurFile + 1);
- #endif
- NumErrs[CurFile]++;
- RetVal = -1;
- }
- }
- CloseFileStream(&BlckFile[CurFile]);
- }
- TP_UNLINK(BlckFName[CurFile]);
- CloseFileStream(&HeadFile[CurFile]);
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- {
- PRINT1("File %d closed.\n", CurFile + 1);
- if (NumErrs[CurFile])
- {
- PRINT0("********************************************\n");
- PRINT1(" %d Errors occurred on this file\n", NumErrs[CurFile]);
- PRINT0("********************************************\n");
- }
- }
- #endif
- NumErrs[CurFile] = 0;
- IsOpen[CurFile] = 0;
- if (DestFName[CurFile])
- FREE_ARRAY(DestFName[CurFile], "data set fname");
- if (BlckFName[CurFile])
- FREE_ARRAY(BlckFName[CurFile], "data set fname");
- BlckFName[CurFile] = NULL;
- DestFName[CurFile] = NULL;
- /* reset arrays sized by number of variables */
- VarMinValue[CurFile].clear();
- VarMaxValue[CurFile].clear();
- NumRunningVarValues[CurFile].clear();
- IsSharedVar[CurFile].clear();
- IsPassiveVar[CurFile].clear();
- IsCellCentered[CurFile].clear();
- /* reset arrays sized by number of zones */
- MinMaxOffset[CurFile].clear();
- TotalNumFaceNodes[CurFile].clear();
- NumFaceConnections[CurFile].clear();
- FaceNeighborsOrMapWritten[CurFile].clear();
- NumConnectivityNodes[CurFile].clear();
- ConnectivityWritten[CurFile].clear();
- CurFile = 0;
- while ((CurFile < MaxNumFiles) && !IsOpen[CurFile])
- CurFile++;
- if (CurFile == MaxNumFiles)
- CurFile = -1;
- return RetVal;
- }
- INTEGER4 LIBCALL TECEND111(void)
- {
- return TECEND112();
- }
- INTEGER4 LIBCALL TECEND110(void)
- {
- return TECEND112();
- }
- INTEGER4 LIBCALL TECEND100(void)
- {
- return TECEND112();
- }
- INTEGER4 LIBCALL TECEND(void)
- {
- return TECEND112();
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL tecend112_(void)
- {
- return TECEND112();
- }
- LIBFUNCTION INTEGER4 LIBCALL tecend111_(void)
- {
- return TECEND112();
- }
- LIBFUNCTION INTEGER4 LIBCALL tecend110_(void)
- {
- return TECEND112();
- }
- LIBFUNCTION INTEGER4 LIBCALL tecend100_(void)
- {
- return TECEND112();
- }
- LIBFUNCTION INTEGER4 LIBCALL tecend_(void)
- {
- return TECEND112();
- }
- #endif
- static void GetNextLabel(const char **CPtr,
- char *NextLabel)
- {
- int N = 0;
- char *NPtr = NextLabel;
- *NPtr = '\0';
- /* Find label start */
- while ((**CPtr) && (**CPtr != '"'))
- (*CPtr)++;
- if (**CPtr)
- (*CPtr)++;
- while ((N < 60) && (**CPtr) && (**CPtr != '"'))
- {
- if (**CPtr == '\\')
- {
- (*CPtr)++;
- }
- *NPtr++ = **CPtr;
- N++;
- (*CPtr)++;
- }
- if (**CPtr)
- (*CPtr)++;
- *NPtr = '\0';
- }
- /**
- * TECLABXXX
- */
- INTEGER4 LIBCALL TECLAB112(char *S)
- {
- const char *CPtr = (const char *)S;
- LgIndex_t N = 0;
- char Label[60];
- if (CheckFile("TECLAB112") < 0)
- return (-1);
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- PRINT0("\nInserting Custom Labels:\n");
- #endif
- do
- {
- GetNextLabel(&CPtr, Label);
- if (*Label)
- N++;
- }
- while (*Label);
- if (N == 0)
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECLAB112) Invalid custom label string: %s\n",
- (S ? S : " "));
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- WriteBinaryReal(HeadFile[CurFile], CustomLabelMarker, FieldDataType_Float);
- if (!WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)N))
- {
- WriteErr("TECLAB112");
- return (-1);
- }
- CPtr = (const char *)S;
- do
- {
- GetNextLabel(&CPtr, Label);
- if (*Label)
- {
- if (!DumpDatafileString(HeadFile[CurFile], Label, TRUE))
- {
- WriteErr("TECLAB112");
- return (-1);
- }
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- printf(" %s\n", Label);
- #endif
- }
- }
- while (*Label);
- return (0);
- }
- INTEGER4 LIBCALL TECLAB111(char *S)
- {
- return TECLAB112(S);
- }
- INTEGER4 LIBCALL TECLAB110(char *S)
- {
- return TECLAB112(S);
- }
- INTEGER4 LIBCALL TECLAB100(char *S)
- {
- return TECLAB112(S);
- }
- INTEGER4 LIBCALL TECLAB(char *S)
- {
- return TECLAB112(S);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL teclab112_(char *S)
- {
- return TECLAB112(S);
- }
- LIBFUNCTION INTEGER4 LIBCALL teclab111_(char *S)
- {
- return TECLAB112(S);
- }
- LIBFUNCTION INTEGER4 LIBCALL teclab110_(char *S)
- {
- return TECLAB112(S);
- }
- LIBFUNCTION INTEGER4 LIBCALL teclab100_(char *S)
- {
- return TECLAB112(S);
- }
- LIBFUNCTION INTEGER4 LIBCALL teclab_(char *S)
- {
- return TECLAB112(S);
- }
- #endif
- /**
- * TECUSRXXX
- */
- INTEGER4 LIBCALL TECUSR112(char *S)
- {
- if (CheckFile("TECUSR112") < 0)
- return (-1);
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- PRINT1("\nInserting UserRec: %s\n", S);
- #endif
- if ((S == NULL) || (*S == '\0'))
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECUSR112) Invalid TECUSR110 string\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- WriteBinaryReal(HeadFile[CurFile], UserRecMarker, FieldDataType_Float);
- if (!DumpDatafileString(HeadFile[CurFile], S, TRUE))
- {
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- printf("Err: (TECUSR112) Write failure for file %d\n", CurFile + 1);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- return (0);
- }
- INTEGER4 LIBCALL TECUSR111(char *S)
- {
- return TECUSR112(S);
- }
- INTEGER4 LIBCALL TECUSR110(char *S)
- {
- return TECUSR112(S);
- }
- INTEGER4 LIBCALL TECUSR100(char *S)
- {
- return TECUSR112(S);
- }
- INTEGER4 LIBCALL TECUSR(char *S)
- {
- return TECUSR112(S);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL tecusr112_(char *S)
- {
- return TECUSR112(S);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecusr111_(char *S)
- {
- return TECUSR112(S);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecusr110_(char *S)
- {
- return TECUSR112(S);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecusr100_(char *S)
- {
- return TECUSR112(S);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecusr_(char *S)
- {
- return TECUSR112(S);
- }
- #endif
- #if 0 // NOT_CURRENTLY_USED
- static int WriteGeomDataBlock(float *Data,
- LgIndex_t NumPts)
- {
- LgIndex_t I;
- for (I = 0; I < NumPts; I++)
- {
- if (!WriteBinaryReal(HeadFile[CurFile], Data[I], FieldDataType_Float))
- {
- return (-1);
- }
- }
- return (0);
- }
- static void ShowDebugColor(LgIndex_t Color)
- {
- #if defined MAKEARCHIVE
- switch (Color)
- {
- case 0 : PRINT0("BLACK\n"); break;
- case 1 : PRINT0("RED\n"); break;
- case 2 : PRINT0("GREEN\n"); break;
- case 3 : PRINT0("BLUE\n"); break;
- case 4 : PRINT0("CYAN\n"); break;
- case 5 : PRINT0("YELLOW\n"); break;
- case 6 : PRINT0("PURPLE\n"); break;
- case 7 : PRINT0("WHITE\n"); break;
- case 8 :
- case 9 :
- case 10:
- case 11:
- case 12:
- case 13:
- case 14:
- case 15: PRINT1("CUSTOM%1d\n", Color-7); break;
- default : PRINT0("INVALID\n");
- }
- #endif
- }
- #endif /* NOT_CURRENTLY_USED */
- /**
- * TECGEOXXX
- */
- INTEGER4 LIBCALL TECGEO112(double *XOrThetaPos,
- double *YOrRPos,
- double *ZPos,
- INTEGER4 *PosCoordMode, /* 0=Grid, 1=Frame, 3=Grid3D */
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *Color,
- INTEGER4 *FillColor,
- INTEGER4 *IsFilled,
- INTEGER4 *GeomType,
- INTEGER4 *LinePattern,
- double *PatternLength,
- double *LineThickness,
- INTEGER4 *NumEllipsePts,
- INTEGER4 *ArrowheadStyle,
- INTEGER4 *ArrowheadAttachment,
- double *ArrowheadSize,
- double *ArrowheadAngle,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- INTEGER4 *NumSegments,
- INTEGER4 *NumSegPts,
- float *XOrThetaGeomData,
- float *YOrRGeomData,
- float *ZGeomData,
- char *mfc)
- {
- int I, RetVal;
- int RawDataSize = 0;
- double Fract;
- Geom_s Geom;
- if (CheckFile("TECGEO112") < 0)
- return (-1);
- Geom.PositionCoordSys = (CoordSys_e) * PosCoordMode;
- if (Geom.PositionCoordSys == CoordSys_Frame)
- Fract = 0.01;
- else
- Fract = 1.0;
- Geom.AnchorPos.Generic.V1 = (*XOrThetaPos) * Fract;
- Geom.AnchorPos.Generic.V2 = (*YOrRPos) * Fract;
- Geom.AnchorPos.Generic.V3 = (*ZPos) * Fract;
- Geom.AttachToZone = *AttachToZone != 0;
- Geom.Zone = *Zone - 1;
- Geom.BColor = (ColorIndex_t) * Color;
- Geom.FillBColor = (ColorIndex_t) * FillColor;
- Geom.IsFilled = *IsFilled;
- Geom.GeomType = (GeomType_e) * GeomType;
- Geom.LinePattern = (LinePattern_e) * LinePattern;
- Geom.PatternLength = *PatternLength / 100.0;
- Geom.LineThickness = *LineThickness / 100.0;
- Geom.NumEllipsePts = *NumEllipsePts;
- Geom.ArrowheadStyle = (ArrowheadStyle_e) * ArrowheadStyle;
- Geom.ArrowheadAttachment = (ArrowheadAttachment_e) * ArrowheadAttachment;
- Geom.ArrowheadSize = *ArrowheadSize / 100.0;
- Geom.ArrowheadAngle = *ArrowheadAngle / DEGPERRADIANS;
- Geom.Scope = (Scope_e) * Scope;
- Geom.DrawOrder = DrawOrder_AfterData;
- Geom.Clipping = (Clipping_e) * Clipping;
- Geom.NumSegments = *NumSegments;
- Geom.MacroFunctionCommand = mfc;
- Geom.ImageFileName = NULL;
- Geom.ImageNumber = 0;
- Geom.MaintainAspectRatio = TRUE;
- Geom.PixelAspectRatio = 1.0;
- Geom.ImageResizeFilter = ImageResizeFilter_Texture;
- if (Geom.GeomType == GeomType_LineSegs3D)
- {
- Geom.GeomType = GeomType_LineSegs;
- Geom.PositionCoordSys = CoordSys_Grid3D;
- }
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- PRINT0("\nInserting Geometry\n");
- #endif
- switch (Geom.GeomType)
- {
- case GeomType_LineSegs :
- {
- int I;
- RawDataSize = 0;
- for (I = 0; I < *NumSegments; I++)
- {
- Geom.NumSegPts[I] = NumSegPts[I];
- RawDataSize += NumSegPts[I];
- }
- } break;
- case GeomType_Rectangle :
- case GeomType_Square :
- case GeomType_Circle :
- case GeomType_Ellipse :
- {
- RawDataSize = 1;
- } break;
- case GeomType_Image :
- {
- CHECK(FALSE); /* Images not allowed in data files. */
- } break;
- default :
- {
- CHECK(FALSE);
- } break;
- }
- Geom.DataType = FieldDataType_Float;
- Geom.GeomData.Generic.V1Base = AllocScratchNodalFieldDataPtr(RawDataSize, FieldDataType_Float, TRUE);
- Geom.GeomData.Generic.V2Base = AllocScratchNodalFieldDataPtr(RawDataSize, FieldDataType_Float, TRUE);
- Geom.GeomData.Generic.V3Base = AllocScratchNodalFieldDataPtr(RawDataSize, FieldDataType_Float, TRUE);
- for (I = 0; I < RawDataSize; I++)
- {
- SetFieldValue(Geom.GeomData.Generic.V1Base, I, (double)XOrThetaGeomData[I]*Fract);
- SetFieldValue(Geom.GeomData.Generic.V2Base, I, (double)YOrRGeomData[I]*Fract);
- SetFieldValue(Geom.GeomData.Generic.V3Base, I, (double)ZGeomData[I]*Fract);
- }
- if (DumpGeometry(HeadFile[CurFile], &Geom, TRUE, FALSE))
- RetVal = 0;
- else
- RetVal = -1;
- DeallocScratchNodalFieldDataPtr(&Geom.GeomData.Generic.V1Base);
- DeallocScratchNodalFieldDataPtr(&Geom.GeomData.Generic.V2Base);
- DeallocScratchNodalFieldDataPtr(&Geom.GeomData.Generic.V3Base);
- return RetVal;
- }
- INTEGER4 LIBCALL TECGEO111(double *XOrThetaPos,
- double *YOrRPos,
- double *ZPos,
- INTEGER4 *PosCoordMode, /* 0=Grid, 1=Frame, 3=Grid3D */
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *Color,
- INTEGER4 *FillColor,
- INTEGER4 *IsFilled,
- INTEGER4 *GeomType,
- INTEGER4 *LinePattern,
- double *PatternLength,
- double *LineThickness,
- INTEGER4 *NumEllipsePts,
- INTEGER4 *ArrowheadStyle,
- INTEGER4 *ArrowheadAttachment,
- double *ArrowheadSize,
- double *ArrowheadAngle,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- INTEGER4 *NumSegments,
- INTEGER4 *NumSegPts,
- float *XOrThetaGeomData,
- float *YOrRGeomData,
- float *ZGeomData,
- char *mfc)
- {
- return TECGEO112(XOrThetaPos,
- YOrRPos,
- ZPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- Color,
- FillColor,
- IsFilled,
- GeomType,
- LinePattern,
- PatternLength,
- LineThickness,
- NumEllipsePts,
- ArrowheadStyle,
- ArrowheadAttachment,
- ArrowheadSize,
- ArrowheadAngle,
- Scope,
- Clipping,
- NumSegments,
- NumSegPts,
- XOrThetaGeomData,
- YOrRGeomData,
- ZGeomData,
- mfc);
- }
- INTEGER4 LIBCALL TECGEO110(double *XOrThetaPos,
- double *YOrRPos,
- double *ZPos,
- INTEGER4 *PosCoordMode, /* 0=Grid, 1=Frame, 3=Grid3D */
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *Color,
- INTEGER4 *FillColor,
- INTEGER4 *IsFilled,
- INTEGER4 *GeomType,
- INTEGER4 *LinePattern,
- double *PatternLength,
- double *LineThickness,
- INTEGER4 *NumEllipsePts,
- INTEGER4 *ArrowheadStyle,
- INTEGER4 *ArrowheadAttachment,
- double *ArrowheadSize,
- double *ArrowheadAngle,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- INTEGER4 *NumSegments,
- INTEGER4 *NumSegPts,
- float *XOrThetaGeomData,
- float *YOrRGeomData,
- float *ZGeomData,
- char *mfc)
- {
- return TECGEO112(XOrThetaPos,
- YOrRPos,
- ZPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- Color,
- FillColor,
- IsFilled,
- GeomType,
- LinePattern,
- PatternLength,
- LineThickness,
- NumEllipsePts,
- ArrowheadStyle,
- ArrowheadAttachment,
- ArrowheadSize,
- ArrowheadAngle,
- Scope,
- Clipping,
- NumSegments,
- NumSegPts,
- XOrThetaGeomData,
- YOrRGeomData,
- ZGeomData,
- mfc);
- }
- INTEGER4 LIBCALL TECGEO100(double *XOrThetaPos,
- double *YOrRPos,
- double *ZPos,
- INTEGER4 *PosCoordMode, /* 0=Grid, 1=Frame, 3=Grid3D */
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *Color,
- INTEGER4 *FillColor,
- INTEGER4 *IsFilled,
- INTEGER4 *GeomType,
- INTEGER4 *LinePattern,
- double *PatternLength,
- double *LineThickness,
- INTEGER4 *NumEllipsePts,
- INTEGER4 *ArrowheadStyle,
- INTEGER4 *ArrowheadAttachment,
- double *ArrowheadSize,
- double *ArrowheadAngle,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- INTEGER4 *NumSegments,
- INTEGER4 *NumSegPts,
- float *XOrThetaGeomData,
- float *YOrRGeomData,
- float *ZGeomData,
- char *mfc)
- {
- return TECGEO112(XOrThetaPos,
- YOrRPos,
- ZPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- Color,
- FillColor,
- IsFilled,
- GeomType,
- LinePattern,
- PatternLength,
- LineThickness,
- NumEllipsePts,
- ArrowheadStyle,
- ArrowheadAttachment,
- ArrowheadSize,
- ArrowheadAngle,
- Scope,
- Clipping,
- NumSegments,
- NumSegPts,
- XOrThetaGeomData,
- YOrRGeomData,
- ZGeomData,
- mfc);
- }
- INTEGER4 LIBCALL TECGEO(double *XPos,
- double *YPos,
- double *ZPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *Color,
- INTEGER4 *FillColor,
- INTEGER4 *IsFilled,
- INTEGER4 *GeomType,
- INTEGER4 *LinePattern,
- double *PatternLength,
- double *LineThickness,
- INTEGER4 *NumEllipsePts,
- INTEGER4 *ArrowheadStyle,
- INTEGER4 *ArrowheadAttachment,
- double *ArrowheadSize,
- double *ArrowheadAngle,
- INTEGER4 *Scope,
- INTEGER4 *NumSegments,
- INTEGER4 *NumSegPts,
- float *XGeomData,
- float *YGeomData,
- float *ZGeomData,
- char *mfc)
- {
- int Clipping = (int)Clipping_ClipToViewport;
- return TECGEO112(XPos,
- YPos,
- ZPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- Color,
- FillColor,
- IsFilled,
- GeomType,
- LinePattern,
- PatternLength,
- LineThickness,
- NumEllipsePts,
- ArrowheadStyle,
- ArrowheadAttachment,
- ArrowheadSize,
- ArrowheadAngle,
- Scope,
- &Clipping,
- NumSegments,
- NumSegPts,
- XGeomData,
- YGeomData,
- ZGeomData,
- mfc);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL tecgeo112_(double *XPos,
- double *YPos,
- double *ZPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *Color,
- INTEGER4 *FillColor,
- INTEGER4 *IsFilled,
- INTEGER4 *GeomType,
- INTEGER4 *LinePattern,
- double *PatternLength,
- double *LineThickness,
- INTEGER4 *NumEllipsePts,
- INTEGER4 *ArrowheadStyle,
- INTEGER4 *ArrowheadAttachment,
- double *ArrowheadSize,
- double *ArrowheadAngle,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- INTEGER4 *NumSegments,
- INTEGER4 *NumSegPts,
- float *XGeomData,
- float *YGeomData,
- float *ZGeomData,
- char *mfc)
- {
- return TECGEO112(XPos,
- YPos,
- ZPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- Color,
- FillColor,
- IsFilled,
- GeomType,
- LinePattern,
- PatternLength,
- LineThickness,
- NumEllipsePts,
- ArrowheadStyle,
- ArrowheadAttachment,
- ArrowheadSize,
- ArrowheadAngle,
- Scope,
- Clipping,
- NumSegments,
- NumSegPts,
- XGeomData,
- YGeomData,
- ZGeomData,
- mfc);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecgeo111_(double *XPos,
- double *YPos,
- double *ZPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *Color,
- INTEGER4 *FillColor,
- INTEGER4 *IsFilled,
- INTEGER4 *GeomType,
- INTEGER4 *LinePattern,
- double *PatternLength,
- double *LineThickness,
- INTEGER4 *NumEllipsePts,
- INTEGER4 *ArrowheadStyle,
- INTEGER4 *ArrowheadAttachment,
- double *ArrowheadSize,
- double *ArrowheadAngle,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- INTEGER4 *NumSegments,
- INTEGER4 *NumSegPts,
- float *XGeomData,
- float *YGeomData,
- float *ZGeomData,
- char *mfc)
- {
- return TECGEO112(XPos,
- YPos,
- ZPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- Color,
- FillColor,
- IsFilled,
- GeomType,
- LinePattern,
- PatternLength,
- LineThickness,
- NumEllipsePts,
- ArrowheadStyle,
- ArrowheadAttachment,
- ArrowheadSize,
- ArrowheadAngle,
- Scope,
- Clipping,
- NumSegments,
- NumSegPts,
- XGeomData,
- YGeomData,
- ZGeomData,
- mfc);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecgeo110_(double *XPos,
- double *YPos,
- double *ZPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *Color,
- INTEGER4 *FillColor,
- INTEGER4 *IsFilled,
- INTEGER4 *GeomType,
- INTEGER4 *LinePattern,
- double *PatternLength,
- double *LineThickness,
- INTEGER4 *NumEllipsePts,
- INTEGER4 *ArrowheadStyle,
- INTEGER4 *ArrowheadAttachment,
- double *ArrowheadSize,
- double *ArrowheadAngle,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- INTEGER4 *NumSegments,
- INTEGER4 *NumSegPts,
- float *XGeomData,
- float *YGeomData,
- float *ZGeomData,
- char *mfc)
- {
- return TECGEO112(XPos,
- YPos,
- ZPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- Color,
- FillColor,
- IsFilled,
- GeomType,
- LinePattern,
- PatternLength,
- LineThickness,
- NumEllipsePts,
- ArrowheadStyle,
- ArrowheadAttachment,
- ArrowheadSize,
- ArrowheadAngle,
- Scope,
- Clipping,
- NumSegments,
- NumSegPts,
- XGeomData,
- YGeomData,
- ZGeomData,
- mfc);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecgeo100_(double *XPos,
- double *YPos,
- double *ZPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *Color,
- INTEGER4 *FillColor,
- INTEGER4 *IsFilled,
- INTEGER4 *GeomType,
- INTEGER4 *LinePattern,
- double *PatternLength,
- double *LineThickness,
- INTEGER4 *NumEllipsePts,
- INTEGER4 *ArrowheadStyle,
- INTEGER4 *ArrowheadAttachment,
- double *ArrowheadSize,
- double *ArrowheadAngle,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- INTEGER4 *NumSegments,
- INTEGER4 *NumSegPts,
- float *XGeomData,
- float *YGeomData,
- float *ZGeomData,
- char *mfc)
- {
- return TECGEO112(XPos,
- YPos,
- ZPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- Color,
- FillColor,
- IsFilled,
- GeomType,
- LinePattern,
- PatternLength,
- LineThickness,
- NumEllipsePts,
- ArrowheadStyle,
- ArrowheadAttachment,
- ArrowheadSize,
- ArrowheadAngle,
- Scope,
- Clipping,
- NumSegments,
- NumSegPts,
- XGeomData,
- YGeomData,
- ZGeomData,
- mfc);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecgeo_(double *XPos,
- double *YPos,
- double *ZPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *Color,
- INTEGER4 *FillColor,
- INTEGER4 *IsFilled,
- INTEGER4 *GeomType,
- INTEGER4 *LinePattern,
- double *PatternLength,
- double *LineThickness,
- INTEGER4 *NumEllipsePts,
- INTEGER4 *ArrowheadStyle,
- INTEGER4 *ArrowheadAttachment,
- double *ArrowheadSize,
- double *ArrowheadAngle,
- INTEGER4 *Scope,
- INTEGER4 *NumSegments,
- INTEGER4 *NumSegPts,
- float *XGeomData,
- float *YGeomData,
- float *ZGeomData,
- char *mfc)
- {
- return TECGEO(XPos,
- YPos,
- ZPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- Color,
- FillColor,
- IsFilled,
- GeomType,
- LinePattern,
- PatternLength,
- LineThickness,
- NumEllipsePts,
- ArrowheadStyle,
- ArrowheadAttachment,
- ArrowheadSize,
- ArrowheadAngle,
- Scope,
- NumSegments,
- NumSegPts,
- XGeomData,
- YGeomData,
- ZGeomData,
- mfc);
- }
- #endif
- /**
- * TECTXTXXX
- */
- INTEGER4 LIBCALL TECTXT112(double *XOrThetaPos,
- double *YOrRPos,
- double *ZOrUnusedPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *BFont,
- INTEGER4 *FontHeightUnits,
- double *FontHeight,
- INTEGER4 *BoxType,
- double *BoxMargin,
- double *BoxLineThickness,
- INTEGER4 *BoxColor,
- INTEGER4 *BoxFillColor,
- double *Angle,
- INTEGER4 *Anchor,
- double *LineSpacing,
- INTEGER4 *TextColor,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- char *String,
- char *mfc)
- {
- int RetVal;
- Text_s Text;
- double Fract;
- if (CheckFile("TECTXT112") < 0)
- return (-1);
- Text.PositionCoordSys = (CoordSys_e) * PosCoordMode;
- if (Text.PositionCoordSys == CoordSys_Frame)
- Fract = 0.01;
- else
- Fract = 1.0;
- Text.AnchorPos.Generic.V1 = (*XOrThetaPos) * Fract;
- Text.AnchorPos.Generic.V2 = (*YOrRPos) * Fract;
- Text.AnchorPos.Generic.V3 = (*ZOrUnusedPos) * Fract;
- Text.AttachToZone = *AttachToZone != 0;
- Text.Zone = *Zone - 1;
- Text.BColor = (ColorIndex_t) * TextColor;
- Text.TextShape.Font = (Font_e) * BFont;
- Text.TextShape.SizeUnits = (Units_e) * FontHeightUnits;
- if (Text.TextShape.SizeUnits == Units_Frame)
- Text.TextShape.Height = (*FontHeight) / 100.0;
- else
- Text.TextShape.Height = *FontHeight;
- Text.Box.BoxType = (TextBox_e) * BoxType;
- Text.Box.Margin = *BoxMargin / 100.0;
- Text.Box.LineThickness = *BoxLineThickness / 100.0;
- Text.Box.BColor = (ColorIndex_t) * BoxColor;
- Text.Box.FillBColor = (ColorIndex_t) * BoxFillColor;
- Text.Anchor = (TextAnchor_e) * Anchor;
- Text.LineSpacing = *LineSpacing;
- Text.Angle = *Angle / DEGPERRADIANS;
- Text.Scope = (Scope_e) * Scope;
- Text.Text = String;
- Text.MacroFunctionCommand = mfc;
- Text.Clipping = (Clipping_e) * Clipping;
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- PRINT1("\nInserting Text: %s\n", String);
- #endif
- if (DumpText(HeadFile[CurFile], &Text, TRUE, FALSE))
- RetVal = 0;
- else
- RetVal = -1;
- return RetVal;
- }
- INTEGER4 LIBCALL TECTXT111(double *XOrThetaPos,
- double *YOrRPos,
- double *ZOrUnusedPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *BFont,
- INTEGER4 *FontHeightUnits,
- double *FontHeight,
- INTEGER4 *BoxType,
- double *BoxMargin,
- double *BoxLineThickness,
- INTEGER4 *BoxColor,
- INTEGER4 *BoxFillColor,
- double *Angle,
- INTEGER4 *Anchor,
- double *LineSpacing,
- INTEGER4 *TextColor,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- char *String,
- char *mfc)
- {
- return TECTXT112(XOrThetaPos,
- YOrRPos,
- ZOrUnusedPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- BFont,
- FontHeightUnits,
- FontHeight,
- BoxType,
- BoxMargin,
- BoxLineThickness,
- BoxColor,
- BoxFillColor,
- Angle,
- Anchor,
- LineSpacing,
- TextColor,
- Scope,
- Clipping,
- String,
- mfc);
- }
- INTEGER4 LIBCALL TECTXT110(double *XOrThetaPos,
- double *YOrRPos,
- double *ZOrUnusedPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *BFont,
- INTEGER4 *FontHeightUnits,
- double *FontHeight,
- INTEGER4 *BoxType,
- double *BoxMargin,
- double *BoxLineThickness,
- INTEGER4 *BoxColor,
- INTEGER4 *BoxFillColor,
- double *Angle,
- INTEGER4 *Anchor,
- double *LineSpacing,
- INTEGER4 *TextColor,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- char *String,
- char *mfc)
- {
- return TECTXT112(XOrThetaPos,
- YOrRPos,
- ZOrUnusedPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- BFont,
- FontHeightUnits,
- FontHeight,
- BoxType,
- BoxMargin,
- BoxLineThickness,
- BoxColor,
- BoxFillColor,
- Angle,
- Anchor,
- LineSpacing,
- TextColor,
- Scope,
- Clipping,
- String,
- mfc);
- }
- INTEGER4 LIBCALL TECTXT100(double *XOrThetaPos,
- double *YOrRPos,
- double *ZOrUnusedPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *BFont,
- INTEGER4 *FontHeightUnits,
- double *FontHeight,
- INTEGER4 *BoxType,
- double *BoxMargin,
- double *BoxLineThickness,
- INTEGER4 *BoxColor,
- INTEGER4 *BoxFillColor,
- double *Angle,
- INTEGER4 *Anchor,
- double *LineSpacing,
- INTEGER4 *TextColor,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- char *String,
- char *mfc)
- {
- return TECTXT112(XOrThetaPos,
- YOrRPos,
- ZOrUnusedPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- BFont,
- FontHeightUnits,
- FontHeight,
- BoxType,
- BoxMargin,
- BoxLineThickness,
- BoxColor,
- BoxFillColor,
- Angle,
- Anchor,
- LineSpacing,
- TextColor,
- Scope,
- Clipping,
- String,
- mfc);
- }
- INTEGER4 LIBCALL TECTXT(double *XPos,
- double *YPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *BFont,
- INTEGER4 *FontHeightUnits,
- double *FontHeight,
- INTEGER4 *BoxType,
- double *BoxMargin,
- double *BoxLineThickness,
- INTEGER4 *BoxColor,
- INTEGER4 *BoxFillColor,
- double *Angle,
- INTEGER4 *Anchor,
- double *LineSpacing,
- INTEGER4 *TextColor,
- INTEGER4 *Scope,
- char *Text,
- char *mfc)
- {
- double ZPos = 0.0;
- int Clipping = (int)Clipping_ClipToViewport;
- return TECTXT112(XPos,
- YPos,
- &ZPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- BFont,
- FontHeightUnits,
- FontHeight,
- BoxType,
- BoxMargin,
- BoxLineThickness,
- BoxColor,
- BoxFillColor,
- Angle,
- Anchor,
- LineSpacing,
- TextColor,
- Scope,
- &Clipping,
- Text,
- mfc);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL tectxt112_(double *XOrThetaPos,
- double *YOrRPos,
- double *ZOrUnusedPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *BFont,
- INTEGER4 *FontHeightUnits,
- double *FontHeight,
- INTEGER4 *BoxType,
- double *BoxMargin,
- double *BoxLineThickness,
- INTEGER4 *BoxColor,
- INTEGER4 *BoxFillColor,
- double *Angle,
- INTEGER4 *Anchor,
- double *LineSpacing,
- INTEGER4 *TextColor,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- char *String,
- char *mfc)
- {
- return TECTXT112(XOrThetaPos,
- YOrRPos,
- ZOrUnusedPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- BFont,
- FontHeightUnits,
- FontHeight,
- BoxType,
- BoxMargin,
- BoxLineThickness,
- BoxColor,
- BoxFillColor,
- Angle,
- Anchor,
- LineSpacing,
- TextColor,
- Scope,
- Clipping,
- String,
- mfc);
- }
- LIBFUNCTION INTEGER4 LIBCALL tectxt111_(double *XOrThetaPos,
- double *YOrRPos,
- double *ZOrUnusedPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *BFont,
- INTEGER4 *FontHeightUnits,
- double *FontHeight,
- INTEGER4 *BoxType,
- double *BoxMargin,
- double *BoxLineThickness,
- INTEGER4 *BoxColor,
- INTEGER4 *BoxFillColor,
- double *Angle,
- INTEGER4 *Anchor,
- double *LineSpacing,
- INTEGER4 *TextColor,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- char *String,
- char *mfc)
- {
- return TECTXT112(XOrThetaPos,
- YOrRPos,
- ZOrUnusedPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- BFont,
- FontHeightUnits,
- FontHeight,
- BoxType,
- BoxMargin,
- BoxLineThickness,
- BoxColor,
- BoxFillColor,
- Angle,
- Anchor,
- LineSpacing,
- TextColor,
- Scope,
- Clipping,
- String,
- mfc);
- }
- LIBFUNCTION INTEGER4 LIBCALL tectxt110_(double *XOrThetaPos,
- double *YOrRPos,
- double *ZOrUnusedPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *BFont,
- INTEGER4 *FontHeightUnits,
- double *FontHeight,
- INTEGER4 *BoxType,
- double *BoxMargin,
- double *BoxLineThickness,
- INTEGER4 *BoxColor,
- INTEGER4 *BoxFillColor,
- double *Angle,
- INTEGER4 *Anchor,
- double *LineSpacing,
- INTEGER4 *TextColor,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- char *String,
- char *mfc)
- {
- return TECTXT112(XOrThetaPos,
- YOrRPos,
- ZOrUnusedPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- BFont,
- FontHeightUnits,
- FontHeight,
- BoxType,
- BoxMargin,
- BoxLineThickness,
- BoxColor,
- BoxFillColor,
- Angle,
- Anchor,
- LineSpacing,
- TextColor,
- Scope,
- Clipping,
- String,
- mfc);
- }
- LIBFUNCTION INTEGER4 LIBCALL tectxt100_(double *XOrThetaPos,
- double *YOrRPos,
- double *ZOrUnusedPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *BFont,
- INTEGER4 *FontHeightUnits,
- double *FontHeight,
- INTEGER4 *BoxType,
- double *BoxMargin,
- double *BoxLineThickness,
- INTEGER4 *BoxColor,
- INTEGER4 *BoxFillColor,
- double *Angle,
- INTEGER4 *Anchor,
- double *LineSpacing,
- INTEGER4 *TextColor,
- INTEGER4 *Scope,
- INTEGER4 *Clipping,
- char *String,
- char *mfc)
- {
- return TECTXT112(XOrThetaPos,
- YOrRPos,
- ZOrUnusedPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- BFont,
- FontHeightUnits,
- FontHeight,
- BoxType,
- BoxMargin,
- BoxLineThickness,
- BoxColor,
- BoxFillColor,
- Angle,
- Anchor,
- LineSpacing,
- TextColor,
- Scope,
- Clipping,
- String,
- mfc);
- }
- LIBFUNCTION INTEGER4 LIBCALL tectxt_(double *XPos,
- double *YPos,
- INTEGER4 *PosCoordMode,
- INTEGER4 *AttachToZone,
- INTEGER4 *Zone,
- INTEGER4 *BFont,
- INTEGER4 *FontHeightUnits,
- double *FontHeight,
- INTEGER4 *BoxType,
- double *BoxMargin,
- double *BoxLineThickness,
- INTEGER4 *BoxColor,
- INTEGER4 *BoxFillColor,
- double *Angle,
- INTEGER4 *Anchor,
- double *LineSpacing,
- INTEGER4 *TextColor,
- INTEGER4 *Scope,
- char *Text,
- char *mfc)
- {
- return TECTXT(XPos,
- YPos,
- PosCoordMode,
- AttachToZone,
- Zone,
- BFont,
- FontHeightUnits,
- FontHeight,
- BoxType,
- BoxMargin,
- BoxLineThickness,
- BoxColor,
- BoxFillColor,
- Angle,
- Anchor,
- LineSpacing,
- TextColor,
- Scope,
- Text,
- mfc);
- }
- #endif
- /**
- * TECFILXXX
- */
- INTEGER4 LIBCALL TECFIL112(INTEGER4 *F)
- {
- if ((*F < 1) || (*F > MaxNumFiles))
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECFIL112) Invalid file number requested (%d). File not changed.\n", *F);
- #endif
- return (-1);
- }
- if (!IsOpen[*F-1])
- {
- #if defined MAKEARCHIVE
- int I;
- PRINT1("Err: (TECFIL112) file %d is not open. File not changed.\n", *F);
- PRINT0("\n\nFile states are:\n");
- for (I = 0; I < MaxNumFiles; I++)
- PRINT2("file %d, IsOpen=%d\n", I + 1, IsOpen[I]);
- PRINT1("Current File is: %d\n", CurFile + 1);
- #endif
- return (-1);
- }
- CurFile = *F - 1;
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- {
- PRINT1("Switching to file #%d\n\n", CurFile + 1);
- PRINT0("Current State is:\n");
- PRINT1(" Debug = %d\n", DebugLevel[CurFile]);
- PRINT1(" NumVars = %d\n", NumVars[CurFile]);
- PRINT1(" DestFName = %s\n", DestFName[CurFile]);
- PRINT1(" BlckFName = %s\n", BlckFName[CurFile]);
- PRINT1(" ZoneType = %s\n", ZoneTypes[ZoneType[CurFile]]);
- if (ZoneType[CurFile] == ORDERED)
- {
- PRINT1(" IMax = %d\n", IMax[CurFile]);
- PRINT1(" JMax = %d\n", JMax[CurFile]);
- PRINT1(" KMax = %d\n", KMax[CurFile]);
- }
- else
- {
- PRINT1(" NumPoints = %d\n", IMax[CurFile]);
- PRINT1(" NumElmnts = %d\n", JMax[CurFile]);
- }
- PRINT1(" NumDataValuesWritten = %d\n", NumDataValuesWritten[CurFile]);
- PRINT1(" CurZone = %d\n", CurZone[CurFile] + 1);
- }
- #endif /* MAKEARCHIVE */
- return (0);
- }
- INTEGER4 LIBCALL TECFIL111(INTEGER4 *F)
- {
- return TECFIL112(F);
- }
- INTEGER4 LIBCALL TECFIL110(INTEGER4 *F)
- {
- return TECFIL112(F);
- }
- INTEGER4 LIBCALL TECFIL100(INTEGER4 *F)
- {
- return TECFIL112(F);
- }
- INTEGER4 LIBCALL TECFIL(INTEGER4 *F)
- {
- return TECFIL112(F);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL tecfil112_(INTEGER4 *F)
- {
- return TECFIL112(F);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecfil111_(INTEGER4 *F)
- {
- return TECFIL112(F);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecfil110_(INTEGER4 *F)
- {
- return TECFIL112(F);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecfil100_(INTEGER4 *F)
- {
- return TECFIL112(F);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecfil_(INTEGER4 *F)
- {
- return TECFIL112(F);
- }
- #endif
- /**
- * TECFOREIGNXXX
- */
- void LIBCALL TECFOREIGN112(INTEGER4 *OutputForeignByteOrder)
- {
- REQUIRE(VALID_REF(OutputForeignByteOrder));
- DoWriteForeign = (*OutputForeignByteOrder != 0);
- }
- void LIBCALL TECFOREIGN111(INTEGER4 *OutputForeignByteOrder)
- {
- TECFOREIGN112(OutputForeignByteOrder);
- }
- void LIBCALL TECFOREIGN110(INTEGER4 *OutputForeignByteOrder)
- {
- TECFOREIGN112(OutputForeignByteOrder);
- }
- void LIBCALL TECFOREIGN100(INTEGER4 *OutputForeignByteOrder)
- {
- TECFOREIGN112(OutputForeignByteOrder);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION void LIBCALL tecforeign112_(INTEGER4 *OutputForeignByteOrder)
- {
- TECFOREIGN112(OutputForeignByteOrder);
- }
- LIBFUNCTION void LIBCALL tecforeign111_(INTEGER4 *OutputForeignByteOrder)
- {
- TECFOREIGN112(OutputForeignByteOrder);
- }
- LIBFUNCTION void LIBCALL tecforeign110_(INTEGER4 *OutputForeignByteOrder)
- {
- TECFOREIGN112(OutputForeignByteOrder);
- }
- LIBFUNCTION void LIBCALL tecforeign100_(INTEGER4 *OutputForeignByteOrder)
- {
- TECFOREIGN112(OutputForeignByteOrder);
- }
- #endif
- #if defined MAKEARCHIVE
- /**
- * A valid auxiliary data name character must begin with a '_' or alpha
- * character and may be followed by one or more '_', '.', alpha or digit
- * characters.
- */
- static Boolean_t AuxDataIsValidNameChar(char Char,
- Boolean_t IsLeadChar)
- {
- Boolean_t IsValidNameChar;
- REQUIRE(0 <= Char && "Char <= 127");
- REQUIRE(VALID_BOOLEAN(IsLeadChar));
- IsValidNameChar = (Char == '_' ||
- isalpha(Char));
- if (!IsLeadChar)
- IsValidNameChar = (IsValidNameChar ||
- Char == '.' ||
- isdigit(Char));
- ENSURE(VALID_BOOLEAN(IsValidNameChar));
- return IsValidNameChar;
- }
- /**
- * Indicates if the auxiliary data name is valid. A valid auxiliary data name
- * must begin with a '_' or alpha character and may be followed by one or
- * more '_', '.', alpha or digit characters.
- */
- static Boolean_t AuxDataIsValidName(const char *Name)
- {
- Boolean_t IsValidName;
- const char *NPtr;
- REQUIRE(VALID_REF(Name));
- for (NPtr = Name, IsValidName = AuxDataIsValidNameChar(*NPtr, TRUE);
- IsValidName && *NPtr != '\0';
- NPtr++)
- {
- IsValidName = AuxDataIsValidNameChar(*NPtr, FALSE);
- }
- ENSURE(VALID_BOOLEAN(IsValidName));
- return IsValidName;
- }
- #endif /* MAKEARCHIVE */
- /**
- * TECAUXSTRXXX
- */
- LIBFUNCTION INTEGER4 LIBCALL TECAUXSTR112(char *Name,
- char *Value)
- {
- if (CheckFile("TECAUXSTR112") < 0)
- return (-1);
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- PRINT2("\nInserting data set aux data: '%s' = '%s'\n", Name, Value);
- #endif
- if ((Name == NULL) || !AuxDataIsValidName(Name))
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECAUXSTR112) Invalid Name string\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- if ((Value == NULL) || (*Value == '\0'))
- {
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- PRINT0("Err: (TECAUXSTR112) Invalid Value string\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- /*
- * Because the auxiliary data is at the end of the header section we don't
- * need to seek back to it.
- */
- if (!WriteBinaryReal(HeadFile[CurFile], DataSetAuxMarker, FieldDataType_Float) ||
- !DumpDatafileString(HeadFile[CurFile], Name, TRUE /* WriteBinary */) ||
- !WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)AuxDataType_String) ||
- !DumpDatafileString(HeadFile[CurFile], (const char *)Value, TRUE /* WriteBinary */))
- {
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- printf("Err: (TECAUXSTR112) Write failure for file %d\n", CurFile + 1);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- return (0);
- }
- LIBFUNCTION INTEGER4 LIBCALL TECAUXSTR111(char *Name,
- char *Value)
- {
- return TECAUXSTR112(Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL TECAUXSTR110(char *Name,
- char *Value)
- {
- return TECAUXSTR112(Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL TECAUXSTR100(char *Name,
- char *Value)
- {
- return TECAUXSTR112(Name, Value);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL tecauxstr112_(char *Name,
- char *Value)
- {
- return TECAUXSTR112(Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecauxstr111_(char *Name,
- char *Value)
- {
- return TECAUXSTR112(Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecauxstr110_(char *Name,
- char *Value)
- {
- return TECAUXSTR112(Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecauxstr100_(char *Name,
- char *Value)
- {
- return TECAUXSTR112(Name, Value);
- }
- #endif
- /**
- * TECZAUXSTRXXX
- */
- LIBFUNCTION INTEGER4 LIBCALL TECZAUXSTR112(char *Name,
- char *Value)
- {
- if (CheckFile("TECZAUXSTR112") < 0)
- return (-1);
- if (CurZone[CurFile] == -1)
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECZAUXSTR112) Must call TECZNE112 prior to TECZAUXSTR112\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- PRINT2("\nInserting zone aux data: '%s' = '%s'\n", Name, Value);
- #endif
- if ((Name == NULL) || !AuxDataIsValidName(Name))
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECZAUXSTR112) Invalid Name string\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- if ((Value == NULL) || (*Value == '\0'))
- {
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- PRINT0("Err: (TECZAUXSTR112) Invalid Value string\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- /*
- * Have to back over the 0 already written, then write another one afterward.
- */
- if (TP_FSEEK(HeadFile[CurFile]->File, -4, SEEK_CUR) ||
- !WriteBinaryInt32(HeadFile[CurFile], 1) ||
- !DumpDatafileString(HeadFile[CurFile], Name, TRUE /* WriteBinary */) ||
- !WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)AuxDataType_String) ||
- !DumpDatafileString(HeadFile[CurFile], (const char *)Value, TRUE /* WriteBinary */) ||
- !WriteBinaryInt32(HeadFile[CurFile], 0))
- {
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- printf("Err: (TECZAUXSTR112) Write failure for file %d\n", CurFile + 1);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- return (0);
- }
- LIBFUNCTION INTEGER4 LIBCALL TECZAUXSTR111(char *Name,
- char *Value)
- {
- return TECZAUXSTR112(Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL TECZAUXSTR110(char *Name,
- char *Value)
- {
- return TECZAUXSTR112(Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL TECZAUXSTR100(char *Name,
- char *Value)
- {
- return TECZAUXSTR112(Name, Value);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL teczauxstr112_(char *Name,
- char *Value)
- {
- return TECZAUXSTR112(Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL teczauxstr111_(char *Name,
- char *Value)
- {
- return TECZAUXSTR112(Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL teczauxstr110_(char *Name,
- char *Value)
- {
- return TECZAUXSTR112(Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL teczauxstr100_(char *Name,
- char *Value)
- {
- return TECZAUXSTR112(Name, Value);
- }
- #endif
- /**
- * TECVAUXSTRXXX
- */
- LIBFUNCTION INTEGER4 LIBCALL TECVAUXSTR112(INTEGER4 *Var,
- char *Name,
- char *Value)
- {
- if (CheckFile("TECVAUXSTR112") < 0)
- return (-1);
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- PRINT2("\nInserting variable aux data: '%s' = '%s'\n", Name, Value);
- #endif
- if ((Name == NULL) || !AuxDataIsValidName(Name))
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECVAUXSTR112) Invalid Name string\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- if ((Value == NULL) || (*Value == '\0'))
- {
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- PRINT0("Err: (TECVAUXSTR112) Invalid Value string\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- if (!WriteBinaryReal(HeadFile[CurFile], VarAuxMarker, FieldDataType_Float) ||
- !WriteBinaryInt32(HeadFile[CurFile], *Var - 1) ||
- !DumpDatafileString(HeadFile[CurFile], Name, TRUE /* WriteBinary */) ||
- !WriteBinaryInt32(HeadFile[CurFile], (LgIndex_t)AuxDataType_String) ||
- !DumpDatafileString(HeadFile[CurFile], (const char *)Value, TRUE /* WriteBinary */))
- {
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- printf("Err: (TECVAUXSTR112) Write failure for file %d\n", CurFile + 1);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- return (0);
- }
- LIBFUNCTION INTEGER4 LIBCALL TECVAUXSTR111(INTEGER4 *Var,
- char *Name,
- char *Value)
- {
- return TECVAUXSTR112(Var, Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL TECVAUXSTR110(INTEGER4 *Var,
- char *Name,
- char *Value)
- {
- return TECVAUXSTR112(Var, Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL TECVAUXSTR100(INTEGER4 *Var,
- char *Name,
- char *Value)
- {
- return TECVAUXSTR112(Var, Name, Value);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL tecvauxstr112_(INTEGER4 *Var,
- char *Name,
- char *Value)
- {
- return TECVAUXSTR112(Var, Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecvauxstr111_(INTEGER4 *Var,
- char *Name,
- char *Value)
- {
- return TECVAUXSTR112(Var, Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecvauxstr110_(INTEGER4 *Var,
- char *Name,
- char *Value)
- {
- return TECVAUXSTR112(Var, Name, Value);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecvauxstr100_(INTEGER4 *Var,
- char *Name,
- char *Value)
- {
- return TECVAUXSTR112(Var, Name, Value);
- }
- #endif
- /**
- * TECFACEXXX
- */
- LIBFUNCTION INTEGER4 LIBCALL TECFACE112(INTEGER4 *FaceConnections)
- {
- INTEGER4 i, *Ptr;
- /* Mark that the face neighbors have been written for the zone even if it fails so as not to add extra error messages. */
- FaceNeighborsOrMapWritten[CurFile][CurZone[CurFile]] = TRUE;
- if (CheckFile("TECFACE112") < 0)
- return (-1);
- if (ZoneType[CurFile] == FEPOLYGON ||
- ZoneType[CurFile] == FEPOLYHEDRON)
- {
- /* Wrong way to specify face neighbors for polygons and polyhedrons */
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECFACE112) Cannot call TECFACE112 for polygonal or polyhedral zones.\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- if (FileTypes[CurFile] == SOLUTIONFILE)
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECFACE112) Cannot call TECFACE112 if the file type is SOLUTIONFILE.\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- PRINT0("\nInserting face neighbor data\n");
- #endif
- if (FaceConnections == NULL)
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECFACE112) Invalid array\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- /*
- * Face neighbor connection have the following format for both
- * binary:
- *
- * LOCALONETOONE 3 cz,fz,cz
- * LOCALONETOMANY nz+4 cz,fz,oz,nz,cz1,cz2,...,czn
- * GLOBALONETOONE 4 cz,fz,ZZ,CZ
- * GLOBALONETOMANY 2*nz+4 cz,fz,oz,nz,ZZ1,CZ1,ZZ2,CZ2,...,ZZn,CZn
- *
- * Where:
- * cz = cell in current zone
- * fz = face of cell in current zone
- * oz = face obsuration flag (only applies to one-to-many):
- * 0 = face partially obscured
- * 1 = face entirely obscured
- * nz = number of cell or zone/cell associations (only applies to one-to-many)
- * ZZ = remote Zone
- * CZ = cell in remote zone
- *
- * NOTE:
- * As of version 103 Tecplot assumes that face neighbors are zero based
- * instead of ones based. Since we have to maintain the contract we
- * subtract 1 for the caller.
- */
- Ptr = FaceConnections;
- i = 0;
- while (i < NumFaceConnections[CurFile][CurZone[CurFile]])
- {
- INTEGER4 n;
- INTEGER4 NumNum = 0;
- switch (FaceNeighborMode[CurFile])
- {
- case FaceNeighborMode_LocalOneToOne:
- NumNum = 3;
- i++;
- break;
- case FaceNeighborMode_LocalOneToMany:
- NumNum = 4 + Ptr[3];
- i += Ptr[3];
- break;
- case FaceNeighborMode_GlobalOneToOne:
- NumNum = 4;
- i++;
- break;
- case FaceNeighborMode_GlobalOneToMany:
- NumNum = 4 + 2 * Ptr[3];
- i += Ptr[3];
- break;
- default:
- CHECK(FALSE);
- break;
- }
- n = 0;
- if (FaceNeighborMode[CurFile] == FaceNeighborMode_LocalOneToMany ||
- FaceNeighborMode[CurFile] == FaceNeighborMode_GlobalOneToMany)
- {
- /*
- * Write cz,fz,oz,nz: we do this by hand because the oz and nz values
- * are not zero based values.
- */
- if (!WriteBinaryInt32(BlckFile[CurFile], Ptr[n++] - 1) || /* zero based as of version 103 */
- !WriteBinaryInt32(BlckFile[CurFile], Ptr[n++] - 1) || /* zero based as of version 103 */
- !WriteBinaryInt32(BlckFile[CurFile], Ptr[n++]) || /* ones based */
- !WriteBinaryInt32(BlckFile[CurFile], Ptr[n++])) /* ones based */
- {
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- printf("Err: (TECFACE112) Write failure for file %d\n", CurFile + 1);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- }
- /* starting from where we left off, output the remaining values */
- for (; n < NumNum; n++)
- if (!WriteBinaryInt32(BlckFile[CurFile], Ptr[n] - 1)) /* zero based as of version 103 */
- {
- #if defined MAKEARCHIVE
- if (DebugLevel[CurFile])
- printf("Err: (TECFACE112) Write failure for file %d\n", CurFile + 1);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- Ptr += NumNum;
- }
- return (0);
- }
- LIBFUNCTION INTEGER4 LIBCALL TECFACE111(INTEGER4 *FaceConnections)
- {
- return TECFACE112(FaceConnections);
- }
- LIBFUNCTION INTEGER4 LIBCALL TECFACE110(INTEGER4 *FaceConnections)
- {
- return TECFACE112(FaceConnections);
- }
- LIBFUNCTION INTEGER4 LIBCALL TECFACE100(INTEGER4 *FaceConnections)
- {
- return TECFACE112(FaceConnections);
- }
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL tecface112_(INTEGER4 *FaceConnections)
- {
- return TECFACE112(FaceConnections);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecface111_(INTEGER4 *FaceConnections)
- {
- return TECFACE112(FaceConnections);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecface110_(INTEGER4 *FaceConnections)
- {
- return TECFACE112(FaceConnections);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecface100_(INTEGER4 *FaceConnections)
- {
- return TECFACE112(FaceConnections);
- }
- #endif
- /**
- * TECPOLYXXX
- */
- LIBFUNCTION INTEGER4 LIBCALL TECPOLY112(INTEGER4 *FaceNodeCounts,
- INTEGER4 *FaceNodes,
- INTEGER4 *FaceLeftElems,
- INTEGER4 *FaceRightElems,
- INTEGER4 *FaceBndryConnectionCounts,
- INTEGER4 *FaceBndryConnectionElems,
- INTEGER4 *FaceBndryConnectionZones)
- {
- INTEGER4 NumFaces = KMax[CurFile];
- INTEGER4 Result = 0;
- LgIndex_t Index;
- LgIndex_t MinNeighborValue = TECIO_NO_NEIGHBORING_ELEM;
- /* Mark that the face map has been written for the zone even if it fails so as not to add extra error messages. */
- FaceNeighborsOrMapWritten[CurFile][CurZone[CurFile]] = TRUE;
- if (NumFaces == 0 ||
- (ZoneType[CurFile] != FEPOLYGON &&
- ZoneType[CurFile] != FEPOLYHEDRON))
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECPOLY112) The zone type must be FEPOLYGON or FEPOLYHEDRON and have NumFaces (KMax) > 0.\n");
- PRINT1(" NumFaces = %d\n", NumFaces);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- if (ZoneType[CurFile] == FEPOLYHEDRON) /* FEPOLYGON doesn't need TotalNumFaceNodes since this is 2*NumFaces */
- {
- if (TotalNumFaceNodes[CurFile][CurZone[CurFile]] <= 0)
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECPOLY112) TotalNumFaceNodes MUST be specified for polyhedral zones.\n");
- PRINT1(" TotalNumFaceNodes = %d\n", TotalNumFaceNodes[CurFile][CurZone[CurFile]]);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- }
- else
- {
- if (TotalNumFaceNodes[CurFile][CurZone[CurFile]] != (2 * NumFaces))
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECPOLY112) TotalNumFaceNodes is specified for the polygonal zone but is not equal to 2 * NumFaces.\n");
- PRINT2(" TotalNumFaceNodes = %d. If specified, it must be 2 * %d.", TotalNumFaceNodes[CurFile][CurZone[CurFile]], NumFaces);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- }
- if ((TotalNumFaceBndryFaces[CurFile] > 0 &&
- TotalNumFaceBndryConns[CurFile] > 0) ||
- (TotalNumFaceBndryFaces[CurFile] == 0 &&
- TotalNumFaceBndryConns[CurFile] == 0))
- {
- if (TotalNumFaceBndryFaces[CurFile] > 0)
- MinNeighborValue = -TotalNumFaceBndryFaces[CurFile];
- }
- else
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECPOLY112) TotalNumFaceBndryFaces and TotalNumFaceBndryConns must both be 0 or both be > 0.\n");
- PRINT2(" TotalNumFaceBndryFaces = %d, TotalNumFaceBndryConns = %d\n", TotalNumFaceBndryFaces[CurFile], TotalNumFaceBndryConns[CurFile]);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- /* Write the facenodesoffsets array from the facenodecounts array. */
- if (Result == 0)
- {
- if (ZoneType[CurFile] == FEPOLYHEDRON) /* FEPOLYGON doesn't need to specify facenodesoffsets */
- {
- Int32_t FaceNodeSum = 0;
- if (!WriteBinaryInt32(BlckFile[CurFile], 0))
- Result = -1;
- for (Index = 0; (Result == 0) && (Index < NumFaces); Index++)
- {
- FaceNodeSum += FaceNodeCounts[Index];
- if (FaceNodeCounts[Index] < 3)
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECPOLY112) Invalid face node count value at face %d. There must be at least 3 nodes in a face.\n", Index + 1);
- PRINT1(" Face node count value = %d.\n", FaceNodeCounts[Index]);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- else if (FaceNodeSum > TotalNumFaceNodes[CurFile][CurZone[CurFile]])
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECPOLY112) The running face node count exceeds the TotalNumFaceNodes (%d) specified.\n", TotalNumFaceNodes[CurFile][CurZone[CurFile]]);
- PRINT1(" Face node count value = %d.\n", FaceNodeCounts[Index]);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- else if (!WriteBinaryInt32(BlckFile[CurFile], FaceNodeSum))
- Result = -1;
- }
- }
- }
- /* Write the facenodes array but convert 1-based to 0-based. */
- for (Index = 0; (Result == 0) && (Index < TotalNumFaceNodes[CurFile][CurZone[CurFile]]); Index++)
- {
- if (FaceNodes[Index] < 1 ||
- FaceNodes[Index] > IMax[CurFile])
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECPOLY112) Invalid face node value at node %d:\n", Index + 1);
- PRINT2(" face node value = %d, valid values are are 1 to %d (inclusive).\n", FaceNodes[Index], IMax[CurFile]);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- else if (!WriteBinaryInt32(BlckFile[CurFile], FaceNodes[Index] - 1))
- Result = -1;
- }
- /* Write the left elements array but convert 1-based to 0-based. */
- for (Index = 0; (Result == 0) && (Index < NumFaces); Index++)
- {
- if (FaceLeftElems[Index] < MinNeighborValue ||
- FaceLeftElems[Index] > JMax[CurFile])
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECPOLY112) Invalid left neighbor value at face %d:\n", Index);
- PRINT2(" left neighbor value = %d, min value = %d,", FaceLeftElems[Index], MinNeighborValue);
- PRINT1(" max value = %d.\n", JMax[CurFile]);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- else if (!WriteBinaryInt32(BlckFile[CurFile], FaceLeftElems[Index] - 1))
- Result = -1;
- }
- /* Write the right elements array but convert 1-based to 0-based. */
- for (Index = 0; (Result == 0) && (Index < NumFaces); Index++)
- {
- if (FaceRightElems[Index] < MinNeighborValue ||
- FaceRightElems[Index] > JMax[CurFile])
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECPOLY112) Invalid right neighbor value at face %d:\n", Index);
- PRINT2(" right neighbor value = %d, min value = %d,", FaceRightElems[Index], MinNeighborValue);
- PRINT1(" max value = %d.\n", JMax[CurFile]);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- else if (!WriteBinaryInt32(BlckFile[CurFile], FaceRightElems[Index] - 1))
- Result = -1;
- if (Result == 0 &&
- (FaceLeftElems[Index] == TECIO_NO_NEIGHBORING_ELEM &&
- FaceRightElems[Index] == TECIO_NO_NEIGHBORING_ELEM))
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECPOLY112) Both left and right neighbors are set to no neighboring element at face %d.\n", Index);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- }
- /* Write the boundary arrays. */
- if (Result == 0 && TotalNumFaceBndryFaces[CurFile] > 0)
- {
- /* Write the boundaryconnectionoffsets array from the boundaryconnectioncounts array. */
- /*
- * As a convenience for the ASCII format, TecUtil, and TECIO layers if any
- * boundary connections exists we automatically add a no-neighboring
- * connection as the first item so that they can user 0 for no-neighboring
- * element in the element list regardless if they have boundary connections
- * or not.
- *
- * The first 2 offsets are always 0 so that -1 in the left/right element
- * arrays always indicates "no neighboring element".
- */
- if (!(WriteBinaryInt32(BlckFile[CurFile], 0) &&
- WriteBinaryInt32(BlckFile[CurFile], 0)))
- Result = -1;
- Int32_t BndryConnCount = 0;
- for (Index = 0; (Result == 0) && (Index < TotalNumFaceBndryFaces[CurFile]); Index++)
- {
- BndryConnCount += FaceBndryConnectionCounts[Index];
- if (FaceBndryConnectionCounts[Index] < 0 ||
- BndryConnCount > TotalNumFaceBndryConns[CurFile])
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECPOLY112) Invalid boundary connection count at boundary face %d:\n", Index + 1);
- PRINT1(" boundary connection count = %d.\n", FaceBndryConnectionCounts[Index]);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- else if (!WriteBinaryInt32(BlckFile[CurFile], BndryConnCount))
- Result = -1;
- }
- if (BndryConnCount != TotalNumFaceBndryConns[CurFile])
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECPOLY112) Invalid number of boundary connections:\n");
- PRINT2(" number of boundary connections written = %d, total number of boundary connections = %d.",
- BndryConnCount, TotalNumFaceBndryConns[CurFile]);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- /* Write the boundary connection elements but convert 1-based to 0-based. */
- BndryConnCount = 0;
- for (Index = 0; (Result == 0) && (Index < TotalNumFaceBndryFaces[CurFile]); Index++)
- {
- for (LgIndex_t BIndex = 0; (Result == 0) && (BIndex < FaceBndryConnectionCounts[Index]); BIndex++)
- {
- if (BIndex > 0 &&
- FaceBndryConnectionElems[BndryConnCount] == TECIO_NO_NEIGHBORING_ELEM)
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECPOLY112) Partially obscured faces must specify no neighboring element first. See boundary connections for face %d.\n", Index + 1);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- if (FaceBndryConnectionElems[BndryConnCount] < TECIO_NO_NEIGHBORING_ELEM)
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECPOLY112) Invalid boundary element value at boundary connections for face %d:\n", Index + 1);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- if (FaceBndryConnectionElems[BndryConnCount] == TECIO_NO_NEIGHBORING_ELEM &&
- FaceBndryConnectionZones[BndryConnCount] != TECIO_NO_NEIGHBORING_ZONE)
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECPOLY112) Invalid boundary element/zone pair at boundary connections for face %d:\n", Index + 1);
- PRINT0(" Boundary elements specified as no neighboring element must also specify no neighboring zone.\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- else if (!WriteBinaryInt32(BlckFile[CurFile], FaceBndryConnectionElems[BndryConnCount] - 1))
- Result = -1;
- BndryConnCount++;
- }
- }
- /* Write the boundary connection zones but convert 1-based to 0-based. */
- BndryConnCount = 0;
- for (Index = 0; (Result == 0) && (Index < TotalNumFaceBndryFaces[CurFile]); Index++)
- {
- for (LgIndex_t BIndex = 0; (Result == 0) && (BIndex < FaceBndryConnectionCounts[Index]); BIndex++)
- {
- if (FaceBndryConnectionZones[BndryConnCount] < TECIO_NO_NEIGHBORING_ZONE)
- {
- #if defined MAKEARCHIVE
- PRINT1("Err: (TECPOLY112) Invalid boundary zone value at boundary connections for face %d:\n", Index + 1);
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- else if (!WriteBinaryInt32(BlckFile[CurFile], FaceBndryConnectionZones[BndryConnCount] - 1))
- Result = -1;
- BndryConnCount++;
- }
- }
- }
- if (Result != 0)
- {
- Result = -1;
- WriteErr("TECPOLY112");
- }
- return Result;
- }
- #if !defined INDEX_16_BIT // not supported in this test-only mode
- LIBFUNCTION INTEGER4 LIBCALL TECPOLY111(INTEGER4 *FaceNodeCounts,
- INTEGER4 *FaceNodes,
- INTEGER4 *FaceLeftElems,
- INTEGER4 *FaceRightElems,
- INTEGER4 *FaceBndryConnectionCounts,
- INTEGER4 *FaceBndryConnectionElems,
- INTEGER2 *FaceBndryConnectionZones)
- {
- INTEGER4 Result = 0;
- EntIndex_t *FBCZones = NULL;
- if (TotalNumFaceBndryConns[CurFile] > 0)
- {
- ALLOC_ARRAY(TotalNumFaceBndryConns[CurFile], EntIndex_t, "32-bit FaceBndryConnectionZones");
- if (FBCZones != NULL)
- {
- for (LgIndex_t ZoneI = 0; ZoneI < TotalNumFaceBndryFaces[CurFile]; ZoneI++)
- FBCZones[ZoneI] = (EntIndex_t)FaceBndryConnectionZones[ZoneI];
- }
- else
- {
- #if defined MAKEARCHIVE
- PRINT0("Err: (TECPOLY111) Out of memory allocating temporary data.\n");
- #endif
- NumErrs[CurFile]++;
- return (-1);
- }
- }
- Result = TECPOLY112(FaceNodeCounts,
- FaceNodes,
- FaceLeftElems,
- FaceRightElems,
- FaceBndryConnectionCounts,
- FaceBndryConnectionElems,
- FBCZones);
- if (FBCZones != NULL)
- FREE_ARRAY(FBCZones, "32-bit FaceBndryConnectionZones");
- return Result;
- }
- #endif // INDEX_16_BIT -- not supported in this test-only mode
- #if defined MAKEARCHIVE && !defined _WIN32 /* every platform but Windows Intel */
- LIBFUNCTION INTEGER4 LIBCALL tecpoly112_(INTEGER4 *FaceNodeCounts,
- INTEGER4 *FaceNodes,
- INTEGER4 *FaceLeftElems,
- INTEGER4 *FaceRightElems,
- INTEGER4 *FaceBndryConnectionOffsets,
- INTEGER4 *FaceBndryConnectionElems,
- INTEGER4 *FaceBndryConnectionZones)
- {
- return TECPOLY112(FaceNodeCounts,
- FaceNodes,
- FaceLeftElems,
- FaceRightElems,
- FaceBndryConnectionOffsets,
- FaceBndryConnectionElems,
- FaceBndryConnectionZones);
- }
- LIBFUNCTION INTEGER4 LIBCALL tecpoly111_(INTEGER4 *FaceNodeCounts,
- INTEGER4 *FaceNodes,
- INTEGER4 *FaceLeftElems,
- INTEGER4 *FaceRightElems,
- INTEGER4 *FaceBndryConnectionOffsets,
- INTEGER4 *FaceBndryConnectionElems,
- INTEGER2 *FaceBndryConnectionZones)
- {
- return TECPOLY111(FaceNodeCounts,
- FaceNodes,
- FaceLeftElems,
- FaceRightElems,
- FaceBndryConnectionOffsets,
- FaceBndryConnectionElems,
- FaceBndryConnectionZones);
- }
- #endif
- #if defined TECPLOTKERNEL
- /* CORE SOURCE CODE REMOVED */
- #endif