Initial commit.

1 files changed, 260 insertions, 0 deletions

diff --git a/includes/blkcom.hpp b/includes/blkcom.hpp
new file mode 100644
index 0000000..b5fed96
--- /dev/null
+++ b/includes/blkcom.hpp
@@ -0,0 +1,260 @@
+//-*- mode: c++; indent-tabs-mode: t; coding: utf-8; show-trailing-whitespace: t -*-
+
+// file blkcom.hpp
+
+#ifndef _BLKCOM_HPP
+#define _BLKCOM_HPP
+
+#include <iostream>
+#include <iomanip>
+#include <string>
+#include <fstream>
+#include <ostream>
+#include <sstream>
+#include <cstdlib>
+#include <cstdint>
+#include <cinttypes>
+#include <vector>
+
+//#include "volt45.hpp"
+
+#define BLANK " "
+
+namespace comthl {
+
+  extern int nSwTpe;
+  //
+  extern double nAngTpe;
+
+}
+
+namespace comld {
+
+  extern int nNewTAC;
+
+}
+
+namespace blkcom {
+
+  // Structures.
+  struct tagMonCar {
+    long int m_nKnt;               // moncar(1)
+    long int m_nKBase;             // moncar(2)
+    long int m_nLTDelt;            // moncar(3)
+    long int m_nISW;               // moncar(4)
+    long int m_nIDist;             // moncar(5)
+    long int m_nITest;             // moncar(6)
+    long int m_nUserSST;           // moncar(7)
+    long int m_nJSeedR;            // moncar(8)
+    long int m_nKLoaEP;            // moncar(9)
+    void *m_pMTape;                // moncar(10)
+    //
+    long int m_nISize;             // moncar(24)
+    long int m_nRsize;             // moncar(27)
+    //
+    long int m_nCSize;             // moncar(29)
+    //
+    long int m_nKiTACs;            // moncar(32)
+    //
+    long int m_nLSwtch;            // moncar(61)
+  };
+
+  typedef struct tagMonCar tMonCar;
+
+  struct tagIPrsOv {
+    int m_nN13;                   // position 1
+    int m_nIPoint;                // position 35
+    union {
+      int m_nIUpper;              // position 36
+      int m_nLocZ11;
+    };
+    int m_nNMAuto;                // position 39
+  };
+
+  typedef struct tagIPrsOv tIPrsOv;
+
+  struct tagStat {
+    long int m_nBus;
+    long int m_nBranch;
+    long int m_nData;
+    long int m_nExct;
+    long int m_nYMat;
+    long int m_nSwitch;
+    long int m_nSize7;
+    long int m_nPast;
+    long int m_nNOnL;
+    long int m_nChar;
+    long int m_nSMOut;
+    long int m_nSize12;
+    long int m_nFDep;
+    long int m_nWT;
+    long int m_nTails;
+    long int m_nIMass;
+    long int m_nSyn;
+    long int m_nMaxPE;
+    long int m_nTACST;
+    long int m_nFSem;
+    long int m_nFD;
+    long int m_nHist;
+    long int m_nSize23;
+    long int m_nComp;
+    long int m_nSPCum;
+    long int m_nSize26;
+    long int m_nSize27;
+    long int m_nSize28;
+    long int m_nTLabl;
+  } __attribute__ ((packed));
+
+  typedef struct tagStat tStat;
+
+  // Variables
+  extern char cCSepar;
+  //
+  extern void *pIAlter;
+  extern void *pIDistX;
+  extern void *pInEcho;
+  extern void *pKFile6;
+  extern void *pLFiles[ 24 ];
+  extern void *pLFilesSave[ 24 ];
+  extern void *pMFilesSave[ 24 ];
+  //
+  extern long int nChain;
+  extern long int nEnerg;
+  extern long int nIAdd;
+  extern long int nIAverg;
+  extern long int nIBr;
+  extern long int nICat;
+  extern long int nIFDep;
+  extern long int nIFDep2;
+  extern long int nIFSem;
+  extern long int nIFX;
+  extern long int nIndStp;
+  extern long int nINOnL;
+  extern long int nIofbnd;
+  extern long int nIoffd;
+  extern long int nIofgnd;
+  extern long int nIPlot;
+  extern long int nIsPlot;
+  extern long int nIsPrin;
+  extern long int nIprsUp;
+  extern long int nIPunch;
+  extern long int nIStep;
+  extern long int nIt;
+  extern long int nIt1;
+  extern long int nIt2;
+  extern long int nIType;
+  extern long int nJFLSOS;
+  extern long int nJST;
+  extern long int nJST1;
+  extern long int nKPartB;
+  extern long int nLBrnch;
+  extern long int nLBus;
+  extern long int nKanal;
+  extern long int nKBurro;
+  extern long int nKCount;
+  extern long int nKill;
+  extern long int nKol132;
+  extern long int nKolBeg;
+  extern long int nKSwtch;
+  extern long int nKTab;
+  extern long int nKTRef;
+  extern long int nKWTSpy;
+  extern long int nLastOV;
+  extern long int nLHist;
+  extern long int nLLBuff;
+  extern long int nLTLabl;
+  extern long int nM4Plot;
+  extern long int nMax99m;
+  extern long int nMaxBus;
+  extern long int nMaxZNO;
+  extern long int nMemSav;
+  extern long int nMolDat;
+  extern long int nModOut;
+  extern long int nNComp;
+  extern long int nNFrFld;
+  extern long int nNRight;
+  extern long int nNSTACS;
+  extern long int nNum99;
+  extern long int nNumDCD;
+  extern long int nNumOut;
+  extern long int nNumSM;
+  extern long int nNumUM;
+  extern long int nNWord1;
+  extern long int nNWord2;
+  extern long int nNTCSex;
+  extern long int nNOutPR;
+  extern long int nTot;
+  //
+  extern long int pIpnTV[ 11 ];
+  extern long int pIprsOV[ 39 ];
+  extern long int pLoopSS[ 13 ];
+  extern long int pKPrChg[ 6 ];
+  extern long int pKTRLSW[ 8 ];
+  extern long int pNByte[ 6 ];
+  extern long int pVoltBC[ 50 ];
+  //
+  extern double nAIncr;
+  extern double nAngle;
+  extern double nCI1;
+  extern double nCK1;
+  extern double nCOpt;
+  extern double nDegMin;
+  extern double nDegMax;
+  extern double nDelta2;
+  extern double nDeltaT;
+  extern double nEpsilon;
+  extern double nEpStop;
+  extern double nEpsZNo;
+  extern double nEpWarn;
+  extern double nFMaxFS;
+  extern double nOmega;
+  extern double nOneHaf;
+  extern double nSglFir;
+  extern double nStatFR;
+  extern double nT;
+  extern double nTEnerg;
+  extern double nTenM3;
+  extern double nTenM6;
+  extern double nTMax;
+  extern double nTolMat;
+  extern double nUnity;
+  extern double nXMaxMX;
+  extern double nXOpt;
+  //
+  extern double pBegMax[ 6 ];
+  extern double pPeakND[ 3 ];
+  extern double pZNoLim[ 2 ];
+  //
+  extern std::vector<long int> sLStat;
+  //
+  extern std::vector<double> sFLStat;
+  //
+  extern std::string sBlank;
+  extern std::string sBranch;
+  extern std::string sBus1;
+  extern std::string sBus2;
+  extern std::string sBus3;
+  extern std::string sBus4;
+  extern std::string sBus5;
+  extern std::string sBus6;
+  extern std::string sChCont;
+  extern std::string sChCopy;
+  extern std::string sCopy;
+  extern std::string sTerra;
+  extern std::string sTexCol;
+  extern std::string sTrash;
+  extern std::string sUserID;
+  extern std::string pDate1[ 2 ];
+  extern std::string pTClock[ 2 ];
+  extern std::string pTextA6[ 15 ];
+  //
+  extern std::stringstream sABuff;
+  //
+  extern tMonCar sMonCar;
+  extern tStat *pSStat;
+
+}
+
+#endif // _BLKCOM_HPP
+
+// end of file blkcom.hpp