Initial commit.

1 files changed, 200 insertions, 0 deletions

diff --git a/sources/blkcom.cpp b/sources/blkcom.cpp
new file mode 100644
index 0000000..bd3952f
--- /dev/null
+++ b/sources/blkcom.cpp
@@ -0,0 +1,200 @@
+//-*- mode: c++; indent-tabs-mode: t; coding: utf-8; show-trailing-whitespace: t -*-
+
+// file blkcom.cpp
+
+#include "blkcom.hpp"
+
+namespace comthl {
+
+  int nSwTpe;
+  //
+  double nAngTpe;
+
+}
+
+namespace comld {
+
+  int nNewTAC;
+
+}
+
+namespace blkcom {
+
+  char cCSepar;
+  //
+  void *pIAlter;
+  void *pIDistX;
+  void *pInEcho;
+  void *pLFiles[ 24 ] = {
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+    nullptr,
+  };
+  void *pKFile6;
+  void *pLFilesSave[ 24 ];
+  void *pMFilesSave[ 24 ];
+  void *pMonCar[ 90 ];
+  //
+  char pVSTACS[ 24 ];
+  //
+  long int nChain;
+  long int nEnerg;
+  long int nIAdd;
+  long int nIAverg;
+  long int nIBr;
+  long int nICat;
+  long int nIFDep;
+  long int nIFDep2;
+  long int nIFSem;
+  long int nIFX;
+  long int nIndStp;
+  long int nINOnL;
+  long int nIofbnd;
+  long int nIoffd;
+  long int nIofgnd;
+  long int nIPlot;
+  long int nIprsUp;
+  long int nIPunch;
+  long int nIsPlot;
+  long int nIsPrin;
+  long int nIStep;
+  long int nIt;
+  long int nIt1;
+  long int nIt2;
+  long int nKanal;
+  long int nKCount;
+  long int nKill;
+  long int nKol132;
+  long int nKolBeg;
+  long int nKPartB;
+  long int nKSwtch;
+  long int nKTRef;
+  long int nKWTSpy;
+  long int nLastOV;
+  long int nLBrnch;
+  long int nLBus;
+  long int nLHist;
+  long int nLLBuff;
+  long int nLTLabl;
+  long int nM4Plot;
+  long int nNComp;
+  long int nNFrFld;
+  long int nNSTACS;
+  long int nNTCSex;
+  long int nNumDCD;
+  long int nNWord1;
+  long int nNWord2;
+  long int nNOutPR;
+  long int nIType;
+  long int nIbr;
+  long int nJFLSOS;
+  long int nJST;
+  long int nJST1;
+  long int nKTab;
+  long int nKBurro;
+  long int nMax99m;
+  long int nMaxBus;
+  long int nMaxZNO;
+  long int nMemSav;
+  long int nModOut;
+  long int nNRight;
+  long int nNum99;
+  long int nNumOut;
+  long int nNumSM;
+  long int nNumUM;
+  long int nTot;
+  long int nMolDat;
+  //
+  long int pIpnTV[ 11 ];
+  long int pIprsOV[ 39 ];
+  long int pLoopSS[ 13 ];
+  long int pKPrChg[ 6 ];
+  long int pKTRLSW[ 8 ];
+  long int pNByte[ 6 ];
+  long int pVoltBC[ 50 ];
+  //
+  double nAIncr;
+  double nAngle;
+  double nCI1;
+  double nCK1;
+  double nCOpt;
+  double nDegMin;
+  double nDegMax;
+  double nDelta2;
+  double nDeltaT;
+  double nEpsilon;
+  double nEpStop;
+  double nEpsZNo;
+  double nEpWarn;
+  double nFMaxFS;
+  double nFreqCS;
+  double nOmega;
+  double nOneHaf;
+  double nSglFir;
+  double nStatFR;
+  double nT;
+  double nTEnerg;
+  double nTenM3;
+  double nTenM6;
+  double nTMax;
+  double nTolMat;
+  double nUnity;
+  double nXMaxMX;
+  double nXOpt;
+  //
+  double pBegMax[ 6 ];
+  double pPeakND[ 3 ];
+  double pZNoLim[ 2 ];
+  //
+  std::vector<long int> sLStat(80);
+  std::vector<double> sFLStat(20);
+  //
+  std::string sBlank("        ");
+  std::string sBus1;
+  std::string sBus2;
+  std::string sBus3;
+  std::string sBus4;
+  std::string sBus5;
+  std::string sBus6;
+  std::string sChCont;
+  std::string sChCopy;
+  std::string sCopy;
+  std::string sTrash;
+  std::string sTerra;
+  std::string sUserID;
+  std::string sBranch;
+  std::string sTexCol;
+  //
+  std::string pDate1[ 2 ];
+  std::string pTClock[ 2 ];
+  std::string pTextA6[ 15 ];
+  //
+  std::stringstream sABuff;
+  //
+  tMonCar sMonCar;
+  tStat *pSStat;
+
+}
+
+// end of file blkcom.cpp