//-*- mode: c++; indent-tabs-mode: t; coding: utf-8; show-trailing-whitespace: t -*-

// file datain.cpp

#include "datain.hpp"

namespace datain {

  void datain(void)
  {
    // Universal module of interactive EMTP (spy of "emtspy").
    // If non-interactive version, module can be destroyed.
    // First EMTP data input, and "spy" choice, are made here.
    // Module is called only by installation-dependent "erexit".
    int ll;
    int n;
    int n1, n2, n3, n4, n7, n10, n11, n15, n16, n22, n26;
    int nn1, nn2;
    int nKRDOff;
    int nKRDCom;
    int nKCut = 0;
    int nKntDum;
    int nKntMax;
    int nKntOld;
    int nKExact;
    int nNumRun;
    int nChPre = 0;
    int nChSuf = 0;
    int nMaxZno;
    int pKArg[ 200 ], pKBeg[ 200 ], pKEnd[ 200 ], pKKKDum[ 35 ], pKTex[ 200 ];
    int pLenTyp[ 18 ];
    int pModArg[ 35 ];
    int nNTACS;
    //
    int32_t nKomLev = -1;
    //
    size_t ip;
    size_t j;
    size_t k;
    size_t l;
    size_t m;
    size_t n5, n6, n8, n12, n13, n14, n17, n18, n19, n20, n24;
    size_t nLimArg;
    size_t nNumHLD = 0;
    size_t nNumArg;
    size_t nNumTyp = 14;
    size_t pKard[ 200 ];
    size_t pKolInc[ 35 ];
    //
    std::string pArgInc[ 35 ];
    std::string sChLMFS;
    std::string sChar80;
    std::string sDumNam = "dum";
    std::string sFileSave;
    std::string sPrefix;
    std::string sSuffix;
    std::string pTank[ 1000 ];
    std::string pTypDat[ 18 ] = {
      "request",
      "function",
      "TACS source",
      "supplemental",
      "TACS output",
      "TACS initial",
      "branch",
      "switch",
      "load flow"
      "initial"
      "output"
      "plot"
      "statistics"
    };
    //
    std::fstream sFile12;
    //
    std::stringstream sMFile5;
    //
    spycom::pMFiles[ 5 ] = reinterpret_cast<void *>(&sMFile5);
    if(nKExact != 88333)
      nNumRun = 0;
    if((nKExact == 88333) && (nNumRun > 0))
      goto a5266;
    if(nNumHLD == -8899)
      emtp::stoptp();
    if(nNumHLD == 0)
      goto a5244;
    for(j = 1; j <= nNumHLD; j++) {
      if((strcom::toLower(pTank[ j - 1 ].substr(0, 19)) == "begin new data case") && (j > 3))
	break;
      spyf77::sFile6[ j - 1 ] = pTank[ j - 1 ];
    }

  a3389:
    spycom::nNumCRD = j - 1;
    for(k = j; k <= nNumHLD; k++)
      pTank[ k - spycom::nNumCRD - 1 ] = pTank[ k - 1 ];
    nNumHLD -= spycom::nNumCRD;
    if(nNumHLD <= 0)
      nNumHLD = -8899;
    blkcom::nNumDCD = 0;
    goto a1774;

  a5266:
    nKCut = 0;
    if(sFileSave.empty())
      goto a1712;
    reinterpret_cast<std::fstream *>(spycom::pMFiles[ 4 ]) -> open(sFileSave.c_str(), std::ios::in);

  a1712:
    if (blkcom::nLLBuff == -3333)
      reinterpret_cast<std::fstream *>(spycom::pMFiles[ 4 ]) -> seekg(std::ios::beg);

  a5244:
    if((blkcom::nLLBuff != -3333) && (strcom::toLower(spyf77::sFile6[ spycom::nNumCRD ].substr(0, 4)) != "eof "))
      goto a1708;
    spycom::nKVerfy = -4545;
    nLimArg = 35;
    blkcom::nNumDCD = 0;
    spycom::pMFiles[ 4 ] = reinterpret_cast<void *>(&std::cin);
    spycom::nLimCRD = 30000;
    n13 = 0;
    nNTACS = 0;
    date_time::date44 (blkcom::pDate1);
    date_time::time44 (blkcom::pTClock);
    over20::initsp();

  a1311:
    (*reinterpret_cast<std::ostream *>(blkcom::pLFiles[ 5 ])) << " EMTP begins.  Send (spy, $attach, debug, help, module, junk, stop) :" << std::endl << std::flush;
    std::getline(*reinterpret_cast<std::istream *>(spycom::pMFiles[ 4 ]), spyf77::sBuff77);
    if(!reinterpret_cast<std::fstream *>(spycom::pMFiles[ 4 ]) -> good()) {
      *(reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 5 ])) << " Could not read from stdin." << std::endl << std::flush;
      exit (EXIT_FAILURE);
    }
    if(strcom::toLower(spyf77::sBuff77.substr(0, 5)) == "stop ")
      emtp::stoptp();
    if(strcom::toLower(spyf77::sBuff77.substr(0, 5)) != "disk ")
      goto a51329;
    nMaxZno = 4545;
    goto a1311;

  a51329:
    if(strcom::toLower(spyf77::sBuff77.substr(0, 7)) == "$attach")
      goto a1347;
    if(strcom::toLower(spyf77::sBuff77.substr(0, 5)) != "junk ")
      goto a1332;
    (*reinterpret_cast<std::ostream *>(blkcom::pLFiles[ 5 ])) << " Send root word to over-ride \"junk\" for spy and plot windows :" << std::endl << std::flush;
    (*reinterpret_cast<std::istream *>(spycom::pMFiles[ 4 ])) >> spyf77::sJunker;
    spyf77::sBuff77 = "spy     ";

  a1332:
    if(spycom::nKVerfy == 0)
      goto a41332;
    spycom::nKVerfy = -34543;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    spycom::nKVerfy = 0;

  a41332:
    if(strcom::toLower(spyf77::sBuff77.substr(0, 6)) == "module")
      goto a2613;
    if(strcom::toLower(spyf77::sBuff77.substr(0, 5)) != "module")
      goto a1342;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "    Greetings, greetings.  Welcome to the wonderful new world of interactive" << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "    EMTP execution, observation, and control.  After sending  \"spy\",  send" << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "    \"help\",  and then  \"all\"  to receive some 500 lines of instruction.  Also," << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "    see Section 9 of the Rule Book dated June 1984.  Also see  \"Apollo\"." << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    goto a1311;

  a1342:
    if(strcom::toLower(spyf77::sBuff77.substr(0, 6)) != "debug ")
      goto a1347;
    n13 = 99;
    goto a1311;

  a1347:
    spycom::nIprSpy = n13;
    blkcom::nIprsUp = n13;
    blkcom::pIprsOV[ 0 ] = n13;
    if(strcom::toLower(spyf77::sBuff77.substr(0, 3)) != "spy")
      goto a1724;
    // Begin interactive control sequence, leading to "emtspy":
    blkcom::nM4Plot = 1;
    spyf77::sProm80 = " spy:";
    utilities::prompt(*reinterpret_cast<std::ostream *>(blkcom::pLFiles[ 6 ]), \
		      spyf77::sProm80);

  a1708:
    if(blkcom::nM4Plot != 1)
      goto a2320;
    spycom::nLockBR = 1;
    over20::emtspy();
    if(spycom::nLockBR == 1)
      goto a1708;
    goto a1774;
    // Begin non-interactive variable initialization:

  a1724:
    blkcom::nM4Plot = 2;
    blkcom::pLFiles[ 12 ] = reinterpret_cast<void *>(&std::cin);
    spycom::nNumCRD = 1;
    spyf77::sFile6.push_back(spyf77::sBuff77);
    if(strcom::toLower(spyf77::sBuff77.substr(0, 7)) != "$attach")
      goto a1753;
    // "$attach,filename,5" usage requires extraction of name:
    blkcom::pLFiles[ 12 ] = reinterpret_cast<void *> (&sFile12);
    n16 = 0;
    for(j = 9; j <= 40; j++) {
      if((spyf77::sBuff77[ j - 1 ] != ' ') && (n16 == 0))
	n16 = j;
      if(spyf77::sBuff77[ j - 1 ] == ',')
	goto a1746;
    }

  a1736:
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "  ----  Illegal file name.  Try again ...." << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    goto a1311;

  a1746:
    n14 = j - n16;
    spyf77::sANSI32.str().replace(0, n14, spyf77::sBuff77.substr(n16 - 1, j - n16));
    spyf77::sANSI32.str().resize(n14 + 1);
    sFileSave = spyf77::sANSI32.str();
    if(blkcom::nIprsUp >= 1)
      (*reinterpret_cast<std::ostream *>(blkcom::pLFiles[ 5 ])) << " Extracted file name ansi32(1:32) =" << spyf77::sANSI32.str() << std::endl << std::flush;
    if(!utilities::exists(spyf77::sANSI32.str().c_str()))
      goto a1736;
    spyf77::sSpyCD2 = spyf77::sANSI32.str();
    sFile12 = std::fstream(spyf77::sANSI32.str().c_str(), std::ios::in);
    blkcom::pLFiles[ 12 ] = reinterpret_cast<void *>(&sFile12);
    spyf77::sFile6[ 0 ] = "c " + spyf77::sBuff77.substr(0, 78);
    nKCut = 0;

  a1753:
    ;
    nKRDOff = spycom::nNumCRD;
    nKRDCom = 0;
    for(j = 1; j <= spycom::nLimCRD; j++) {
      std::string sTemp;
      //std::getline(*reinterpret_cast<std::istream *>(blkcom::pLFiles[ 12 ]), spyf77::sFile6[ nKRDOff + j - 1 ]);
      std::getline(*reinterpret_cast<std::istream *>(blkcom::pLFiles[ 12 ]), sTemp);
      spyf77::sFile6.push_back(sTemp);
      if(reinterpret_cast<std::istream *>(blkcom::pLFiles[ 12 ]) -> eof())
	goto a1766;
      if(nKCut == 1)
	goto a5486;
      if(strcom::toLower(spyf77::sFile6[ nKRDOff + j - 1 ].substr(0, 2)) == "c ")
	++nKRDCom;
      if((strcom::toLower(spyf77::sFile6[ nKRDOff + j - 1 ].substr(0, 19)) != "begin new data case") || (j - nKRDCom) <= 3)
	goto a1756;
      nKCut = 1;

    a5486:
      ++nNumHLD;
      if(nNumHLD > 1000) {
	(*reinterpret_cast<std::ostream *>(blkcom::pLFiles[ 5 ])) << " Input data cards overflow tank(1000).  Halt." << std::endl <<std::flush;
	emtp::stoptp();
      }
      pTank[ nNumHLD - 1 ] = spyf77::sFile6[ nKRDOff + j - 1 ];
      // If all EMTP data (e.g., "kill codes" use) comes via key
      // board, it is ended with "eof"; when solved, mode keyboard.

    a1756:
      if(strcom::toLower(spyf77::sFile6[ nKRDOff + j - 1 ].substr(0, 4)) == "eof ")
	goto a1766;
      if(nKCut == 0)
	++spycom::nNumCRD;
    }

  a1760:
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "  & & & & &   Input buffer overflow.  Limit =" << std::setw(6) << spycom::nLimCRD << ".   Reject this data, and reprompt ...." << std::endl << std::flush;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    if (blkcom::pLFiles[ 12 ] != nullptr)
      goto a1311;
    emtp::stoptp();

  a1766:
    ++spycom::nNumCRD;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Done reading disk file into EMTP cache.   numcrd =" << std::setw(5) << spycom::nNumCRD << "  cards." << std::endl << std::flush;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    if(blkcom::pLFiles[ 12 ] != reinterpret_cast<void *>(&std::cin))
      if(reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ]) -> is_open())
	reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ]) -> close();

  a1774:
    n22 = 1;
    n13 = 1;
    // begin loop to replace next presently-visible $include:

  a1776:
    n17 = 0;
    for(j = n13; j <= spycom::nNumCRD; j++) {

    a1777:
      if(spyf77::sFile6[ j - 1 ][ 0 ] != '$')
	goto a1786;
      spyf77::sBuff77 = spyf77::sFile6[ j - 1 ];
      if(spycom::nIprSpy < 3)
	goto a41777;
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " j =" << std::setw(4) << j << "   next $-card =" << spyf77::sBuff77.substr(0, 80) << std::endl;
      utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
			*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

    a41777:
      if(strcom::toLower(spyf77::sBuff77.substr(0, 8)) == "$include")
	goto a1787;
      if((strcom::toLower(spyf77::sBuff77.substr(0, 7)) != "$prefix") && (strcom::toLower(spyf77::sBuff77.substr(0, 7)) != "$suffix") && (strcom::toLower(spyf77::sBuff77.substr(0, 6)) != "$level") && (strcom::toLower(spyf77::sBuff77.substr(0, 6)) != "$dummy"))
	goto a1786;
      k = 8;

    a1778:
      if((spyf77::sBuff77[ k - 1 ] != ' ') && (spyf77::sBuff77[ k - 1 ] != ','))
	goto a1779;
      ++k;
      if (k < 80)
	goto a1778;
      k = 10;
      l = 4;
      if(strcom::toLower(spyf77::sBuff77.substr(4, 3)) == "fix")
	goto a31779;
      blkcom::nIStep = j;
      over20::stopin ();
      if(blkcom::nKill > 0)
	goto a9200;
      goto a1777;

    a1779:
      if((strcom::toLower(spyf77::sBuff77.substr(0, 7)) != "$prefix") && \
	 (strcom::toLower(spyf77::sBuff77.substr(0, 7)) != "$suffix"))
	goto a1783;
      l = spyf77::sBuff77.substr(k - 1, std::string::npos).find(" ");
      m = spyf77::sBuff77.substr(k - 1, std::string::npos).find(",");
      if (m != std::string::npos)
	if (m < l)
	  l = m;
      --l;

    a31779:
      n5 = k - 1 + l;
      if(strcom::toLower(spyf77::sBuff77.substr(0, 7)) != "$prefix")
	goto a1782;
      sPrefix = spyf77::sBuff77.substr(k - 1, n5 - k + 1);
      nChPre = l;
      goto a1785;

    a1782:
      sSuffix = spyf77::sBuff77.substr(k - 1, n5 - k + 1);
      nChSuf = l;
      goto a1785;

    a1783:
      if(strcom::toLower(spyf77::sBuff77.substr(0, 6)) != "$level")
	goto a1784;
      spyf77::sProm80 = spyf77::sBuff77.substr(k - 1, 80 - k + 1);
      freedom::freeIn(spyf77::sProm80, nKomLev);
      goto a1785;

    a1784:
      if(strcom::toLower(spyf77::sBuff77.substr(0, 6)) != "$dummy")
	goto a1786;
      sDumNam.replace(0, 3, spyf77::sBuff77.substr(k - 1, 3));
      spyf77::sANSI8.str().replace(0, 3, spyf77::sBuff77.substr(k + 2, 3));
      nKntDum = std::stoi(spyf77::sANSI8.str());

    a1785:
      spyf77::sFile6[ j - 1 ] = "c " + spyf77::sBuff77.substr(0, 78);

    a1786:
      ;
    }
    goto a2320;

  a1787:
    n13 = j;

  a1788:
    n26 = 9;

  a1789:
    if((spyf77::sBuff77[ n26 - 1 ] != ' ') && (spyf77::sBuff77[ n26 - 1 ] != ','))
      goto a1797;
    ++n26;
    if (n26 < 40)
      goto a1789;

  a1794:
    blkcom::nIStep = j;
    over20::stopin();
    if (blkcom::nKill > 0)
      goto a9200;
    goto a1776;

  a1797:
    k = n26 + 1;

  a1801:
    if((spyf77::sBuff77[ k - 1 ] == ',') || (spyf77::sBuff77[ k - 1 ] == ' '))
      goto a1804;
    ++k;
    if(k > 60)
      goto a1794;
    goto a1801;

  a1804:
    if (nChPre > 0)
      spyf77::sANSW80.replace(0, nChPre, sPrefix.substr(0, nChPre));
    n7 = nChPre + k - n26;
    spyf77::sANSW80.replace(nChPre, n7 - nChPre, spyf77::sBuff77.substr(n26 - 1, k - n26));
    if(nChSuf > 0)
      spyf77::sANSW80.replace(n7, n8 - n7, sSuffix.substr(0, nChSuf));
    spyf77::sANSW80.resize(n8 + 1);

  a1811:
    if(n17 == 1)
      goto a1819;
    l = spycom::nNumCRD;
    n19 = spycom::nLimCRD;
    for(m = j + 1; m <= spycom::nNumCRD; m++) {
      spyf77::sFile6[ n19 - 1 ] = spyf77::sFile6[ l - 1 ];
      --l;
      --n19;
    }
    ++n19;

  a1819:
    (*reinterpret_cast<std::ostream *>(blkcom::pLFiles[ 5 ])) << "   --- Pass" << std::setw(3) << n22 << ",  card =" << std::setw(4) << j << ".   Ready to open $include =" << spyf77::sANSW80.substr(0, n8) << std::endl;
    if(utilities::exists(spyf77::sANSW80.substr(0, n8).c_str()))
      goto a1794;
    spyf77::sProm80 = spyf77::sFile6[ j - 1 ];
    spyf77::sFile6[ j - 1 ] = "c " + spyf77::sProm80.substr(0, 78);
    reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ]) -> open(spyf77::sANSW80.substr(0, n8).c_str(), std::ios::in);
    n16 = 0;
    n26 = k + 1;

  a4203:
    for(l = n26; l <= 80; l++)
      if((spyf77::sBuff77[ l - 1 ] != ',') && (spyf77::sBuff77[ l - 1 ] != ' '))
	goto a4208;
    goto a4226;

  a4208:
    ++n16;
    if(n16 > 10)
      emtp::stoptp();
    n12 = spyf77::sBuff77.substr(l - 1, std::string::npos).find(",");
    n13 = spyf77::sBuff77.substr(l - 1, std::string::npos).find(" ");
    n14 = n12;
    if(n12 != std::string::npos)
      goto a4214;
    n14 = n13;
    if(n13 != std::string::npos)
      goto a4220;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " No bounding symbol.  Stop after display." << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Done with argument.  l, n12, n13, n14, n26 =" << std::setw(6) << l << n12 << n13 << n14 << n26 << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    emtp::stoptp();

  a4214:
    if((n13 != std::string::npos) && (n13 < n14))
      n14 = n13;

  a4220:
    n15 = n14 - 1;
    pKolInc[ n16 - 1 ] = n15;
    n18 = l - 1 + n15;
    pArgInc[ n16 - 1 ] = " ";
    pArgInc[ n16 - 1 ].replace(0, n15, spyf77::sBuff77.substr(l - 1, n18 - l + 1));
    n26 = n18 + 1;
    if(spycom::nIprSpy < 5)
      goto a4224;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Done with argument.  l, n12, n13, n14, n26 =" << std::setw(6) << l << n12 << n13 << n14 << n26 << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

  a4224:
    goto a4203;

  a4226:
    pKard[ 0 ] = 999999;
    n1 = 0;
    if(n16 == 0)
      goto a4239;

  a4228:
    for(l = 1; l <= 25; l++)
      (*reinterpret_cast<std::istream *>(blkcom::pLFiles[ 12 ])) >> pKBeg[ l - 1 ];
    for(l = 1; l <= 25; l++)
      if(pKBeg[ l - 1 ] == 0)
	goto a4230;
    n1 += 25;
    if(n1 <= 175)
      // Overflow.  199 is max number of replacements, temporarily
      emtp::stoptp();

  a4230:
    reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ]) -> seekg(std::ios::beg);
    n6 = n1 + l - 1;
    for (k = 1; k <= n6; k++)
      (*reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ])) >> pKard[ k -  1 ];
    for(k = 1; k <= n6; k++)
      (*reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ])) >> pKArg[ k -  1 ];
    for(k = 1; k <= n6; k++)
      (*reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ])) >> pKBeg[ k -  1 ];
    for(k = 1; k <= n6; k++)
      (*reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ])) >> pKEnd[ k -  1 ];
    for(k = 1; k <= n6; k++)
      (*reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ])) >> pKTex[ k -  1 ];
    if(spycom::nIprSpy < 1)
      goto a4235;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Done reading argument usage vectors.  n4 =" << std::setw(5) << n6 << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

  a4235:
    if(spycom::nIprSpy < 5)
      goto a4238;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Vectors kard, karg, kbeg, kend, ktext(1:25) ..." << std::setw(5) << n6 << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    for(k = 1; k <= n5; k++)
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << pKard[ k -  1 ];
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    for(k = 1; k <= n5; k++)
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << pKArg[ k -  1 ];
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    for(k = 1; k <= n5; k++)
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << pKBeg[ k -  1 ];
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    for(k = 1; k <= n5; k++)
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << pKEnd[ k -  1 ];
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    for(k = 1; k <= n5; k++)
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << pKTex[ k -  1 ];
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

  a4238:
    pKard[ n6 ] = 999999;

  a4239:
    n20 = 0;
    n24 = 1;
    n5 = 0;
    n18 = j + 1;
    nKntMax = 0;
    nKntOld = nKntDum;
    for(k = n18; k <= spycom::nLimCRD; k++) {
      (*reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ])) >> spyf77::sBuff77;
      if(reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ]) -> eof())
	goto a1828;
      if(strcom::toLower(spyf77::sBuff77.substr(0, 4)) == "$eof")
	goto a1828;
      if(spyf77::sBuff77[ 0 ] == '/')
	n5 = 1;
      if(tolower(spyf77::sBuff77[ 0 ]) != 'c')
	goto a4247;
      for(l = 1; l <= 10; l++)
	if(spyf77::sBuff77[ 1 ] == spyf77::pDigit[ l - 1 ])
	  goto a4244;
      goto a4247;

    a4244:
      if (l == 10)
	l = 0;
      if(l < (size_t) nKomLev)
	goto a4273;
      spyf77::sBuff77[ 1 ] = ' ';

    a4247:
      ++j;
      spyf77::sFile6[ j - 1 ] = spyf77::sBuff77;
      if (tolower(spyf77::sBuff77[ 0 ]) == 'c')
	goto a4273;
      ++n20;
      if(spycom::nIprSpy < 3)
	goto a4249;
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Ready with next card.  n20, n24, kard(n24) =" << std::setw(8) << n20 << n24 << pKard[ n24 - 1 ] << std::endl;
      utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

    a4249:
      if(n20 < pKard[ n24 - 1 ])
	goto a4273;
      n1 = pKBeg[ n24 - 1 ];
      n2 = pKEnd[ n24 - 1 ];
      n4 = pKArg[ n24 - 1 ];
      n3 = pKolInc[ n4 - 1 ];
      if(n4 <= n16)
	goto a34250;
      (*reinterpret_cast<std::ostream *>(blkcom::pLFiles[ 5 ])) << "   ? ? ? ?   Error stop at s.n. 4250 of \"datain\".   Insufficient number of $include arguments." << std::endl << "             n24, n4, n16 =" << std::setw(8) << n24 << n4 << n16 << std::endl;
      emtp::stoptp();

    a34250:
      if(n4 > 0)
	goto a4252;
      nKntDum = nKntOld - n4;
      if(-n4 > nKntMax)
	nKntMax = -n4;
      char pTemp[ 4 ];
      snprintf(pTemp, 4, "%03u", nKntDum);
      spyf77::sANSI8 << std::string(pTemp);
      if((n2 - n1) != 5)
	emtp::stoptp();
      sDumNam.replace(3, 6, spyf77::sANSI8.str().substr(0, 3));
      spyf77::sFile6[ j - 1 ].replace(n1 - 1, n2, sDumNam);
      goto a4249;

    a4252:
      if(((n2 - n1) != (n3 - 1)) && (pKTex[ n24 - 1 ] == 1))
	goto a4253;
      if((n2 - n1) >= (n3 - 1))
	goto a4261;

    a4253:
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "   +++ Argument" << std::setw(4) << n4 << "   length-mismatch error.   Used on card" << std::setw(4) << n20 << " ." << std::endl;
      utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "       n24 =" << std::setw(4) << n24 << "    kbeg, kend =" << std::setw(4) << n1 << n2 << "    Length from $include =" << std::setw(4) << n3 << " ." << std::endl;
      utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
      spyf77::sProm80 = " Send correct argument (stop) :";
      utilities::prompt(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
			spyf77::sProm80);
      if(blkcom::nM4Plot == 1)
	goto a4259;
      blkcom::nKill = 79;
      blkcom::sLStat[ 18 ] = 4259;
      goto a9200;

    a4259:
      reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ]) -> read(&pArgInc[ n4 - 1 ][ 0 ], 20);
      if(strcom::toLower(pArgInc[ n4 - 1 ].substr(0, 5)) == "stop ")
	emtp::stoptp();

    a4261:
      n = n2;
      if(spycom::nIprSpy < 4)
	goto a34261;
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Argument now processed, arginc(n4) =" << pArgInc[ n4 - 1 ].substr(0, 20) << std::endl;
      utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

    a34261:
      for(ip = 1; ip <= 20; ip++) {
	m = 21 - ip;
	spyf77::cChar1 = pArgInc[ n4 - 1 ][ m - 1 ];
	if(spyf77::cChar1 == ' ')
	  goto a4263;
	if(spycom::nIprSpy < 8)
	  goto a54262;
	(*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "  Next non-blank digit.  ip, n, digit =" << std::setw(6) << ip << m << "\"" << spyf77::cChar1 << "\"" << std::endl;
	utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

      a54262:
	if(spyf77::cChar1 == '#')
	  spyf77::cChar1 = ' ';
	if(n < n1)
	  goto a4253;
	spyf77::sFile6[ j - 1 ][ n - 1 ] = spyf77::cChar1;
	--n;

      a4263:
	;
      }
      if(((n + 1) > n1) && (pKTex[ n24 - 1 ] == 1))
	goto a4253;
      if(n >= n1)
	spyf77::sFile6[ j - 1 ].replace(n1 - 1, n - n1, n - n1, ' ');
      ++n24;
      goto a4249;

    a4273:
      ;
    }
    goto a1760;

  a1828:
    reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ]) -> close();
    if(spycom::nIprSpy < 1)
      goto a1832;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Done with disk file (close).  j, n19 =" << std::setw(8) << j << n19 << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

  a1832:
    nKntOld += nKntMax;
    if(n5 == 1)
      goto a1833;
    spyf77::sBuff77.replace(0, 32, "c end of $include.  File name = ");
    spyf77::sBuff77.replace(32, 80, spyf77::sANSW80.substr(0, 48));
    ++j;
    spyf77::sFile6[ j - 1 ] = spyf77::sBuff77;

  a1833:
    if(j > n19)
      goto a1760;
    for(m = n19; m <= spycom::nLimCRD; m++) {
      ++j;
      spyf77::sFile6[ j - 1 ] = spyf77::sFile6[ m - 1 ];
      if(strcom::toLower(spyf77::sFile6[ j ].substr(0, 8)) == "$include")
	goto a1841;
    }
    spycom::nNumCRD = j;
    ++n22;
    goto a1776;

  a1841:
    n19 = m + 1;
    if(spycom::nIprSpy < 1)
      goto a1847;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Next $include recognized in do 1835.  m =" << std::setw(6) << m << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

  a1847:
    spyf77::sBuff77 = spyf77::sFile6[ j - 1 ];
    n17 = 1;
    goto a1788;
    // Following code processes any $spy usage:

  a2320:
    j = 1;
    n7 = 0;
    n17 = 0;

  a2347:
    do {
      if(j > spycom::nNumCRD)
	goto a2415;
      if(spyf77::sFile6[ j - 1 ].substr (0, 3) != "$spy")
	goto a2378;
      ++n7;
      if(n7 > 9)
	emtp::stoptp ();
      spyf77::sFile6[ j - 1 ] = "$spy, spyfile .dat, 0,";
      spyf77::sFile6[ j - 1 ][ 13 ] = spyf77::pDigit[ n7 - 1 ];
      spyf77::sANSI32 << "spyfile .dat";
      spyf77::sANSI32.str()[ 7 ] = spyf77::pDigit[ n7 - 1 ];
      if(blkcom::nIprsUp < 1)
	goto a2353;
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Prepare to open for $spy.  ansi32 =" << spyf77::sANSI32.str().substr(0, 32) << std::endl;
      utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

    a2353:
      blkcom::pLFiles[ 12 ] = reinterpret_cast<void *> (new std::fstream);
      if(!blkcom::pLFiles[ 12 ]) {
	(*reinterpret_cast<std::ostream *>(blkcom::pLFiles[ 0 ])) << " Could not reserve memory for stream in datain a2353.  Exiting.\n";
	exit(EXIT_FAILURE);
      }
      reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ]) -> open(spyf77::sANSI32.str().c_str(), std::ios::in);
      for(k = j + 1; k <= spycom::nNumCRD; k++) {
	if(strcom::toLower(spyf77::sFile6[ k - 1 ].substr(0, 7)) != "$spyend") {
	  reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ]) -> close();
	  n24 = k - j;
	  for(l = k + 1; l <= spycom::nNumCRD; l++)
	    spyf77::sFile6[ l - n24 - 1 ] = spyf77::sFile6[ l - 1 ];
	  spycom::nNumCRD -= n24;
	  (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Done  with upward shift.  n24, k, numcrd =" << std::setw(8) << n24 << j << spycom::nNumCRD << std::endl;
	  utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
	  break;
	} else
	  (*reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ])) << spyf77::sFile6[ k - 1 ].substr(0, 80) << std::endl;
      }

    a2378:
      if(spyf77::sFile6[ j - 1 ][ 0 ] == '/')
	n17 = 1;
      if(strcom::toLower(spyf77::sFile6[ j - 1 ].substr (0, 8)) != "tacs old")
	goto a2410;
      nNTACS = 2;
      spyf77::sFile6[ j - 1 ].replace(0, 2, "c ");

    a2410:
      ++j;
    } while(1);

  a2415:
    if (n17 == 0)
      goto a9800;
    // Begin code to sort EMTP data according to class :
    n1 = 0;
    n10 = 0;
    n11 = 0;
    n12 = 0;
    if (blkcom::nIprsUp >= 9)
      (*reinterpret_cast<std::ostream *>(blkcom::pLFiles[ 5 ])) << " Entire input file as we start sorting ..." << std::endl << std::setw(5);
    for(j = 1; j <= spycom::nNumCRD; j++)
      (*reinterpret_cast<std::ostream *>(blkcom::pLFiles[ 5 ])) << j << spyf77::sFile6[ j - 1 ];
    (*reinterpret_cast<std::ostream *>(blkcom::pLFiles[ 5 ])) << std::endl;
    for(j = 1; j <= spycom::nNumCRD; j++) {

    a2418:
      if(spyf77::sFile6[ j - 1 ][ 0 ] != '/')
	goto a2431;
      ++n12;
      labcom::pKSSFrq[ n12 - 1 ] = j;
      labcom::pKPSour[ n12 - 1 ] = 0;
      if(n12 == 1)
	goto a2420;
      if(labcom::pKPSour[ n12 - 2 ] == 0)
	labcom::pKPSour[ n12 - 2 ] = j - 1;

    a2420:
      for(k = 1; k <= nNumTyp; k++)
	if(spyf77::sFile6[ j - 1 ].substr(1, 12) == pTypDat[ k - 1 ])
	  goto a2428;
      if(strcom::toLower(spyf77::sFile6[ j - 1 ].substr(1, 9)) != "tacs data")
	goto a2424;
      k = 6;
      nNTACS = 1;
      goto a2428;

    a2424:
      if(spycom::pMFiles[ 3 ] == nullptr)
	emtp::stoptp();
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "  ----  Illegal file name.  Try again ...." << std::endl;
      utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
      reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ]) -> read(&spyf77::sFile6[ j - 1 ][ 0 ], 80);
      goto a2418;

    a2428:
      labcom::pKode[ n12 - 1 ] = k;
      if(k == 1)
	n1 = 1;
      if(k == 10)
	n10 = 1;
      if(k == 11)
	n11 = 1;

    a2431:
      if((n12 >= 1) && (labcom::pKPSour[ n12 - 1 ] == 0) && (strcom::toLower(spyf77::sFile6[j - 1 ].substr(0, 6)) == "blank "))
	labcom::pKPSour[ n12 - 1 ] = j - 1;
    }
    if(labcom::pKPSour[ n12 - 1 ] == 0)
      labcom::pKPSour[ n12 - 1 ] = spycom::nNumCRD;
    l = 0;
    if(spycom::nIprSpy < 2)
      goto a12438;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "     row  kssfrq kpsour    kode" << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    for(j = 1; j <= n12; j++) {
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << std::setw(8) << j << labcom::pKSSFrq[ j - 1 ] << labcom::pKPSour[ j - 1 ] << labcom::pKode[ j - 1 ] << std::endl;
      utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    }

  a12438:
    ++l;
    if(l > n12)
      goto a2444;
    if((labcom::pKode[ l - 1 ] <= 1) || (labcom::pKode[ l - 1 ] > 6))
      goto a12438;
    if(nNTACS == 1)
      goto a12438;
    nn1 = labcom::pKSSFrq[ l - 1 ] + 1;
    nn2 = labcom::pKPSour[ l - 1 ];
    if(labcom::pKode[ l - 1 ]  > 2)
      goto a12448;
    for(ll = nn1; ll <= nn2; ll++) {
      if(spyf77::sFile6[ ll - 1 ].substr(0, 2) != "99")
	spyf77::sFile6[ ll - 1 ].replace (0, 2, "  ");
    }
    goto a12438;

  a12448:
    if(labcom::pKode[ l - 1 ] > 3)
      goto a12458;
    for(ll = nn1; ll <= nn2; ll++) {
      if((spyf77::sFile6[ ll - 1 ][ 0 ] == '$') || (spyf77::sFile6[ ll - 1 ][ 0 ] == '9') || (tolower(spyf77::sFile6[ ll - 1 ][ 0 ]) == 'c'))
	goto a12456;
      if(spyf77::sFile6[ ll - 1 ][ 1 ] != '1')
	goto a12450;
      spyf77::sFile6[ ll - 1 ][ 0 ] = '1';
      goto a12456;

    a12450:
      if(spyf77::sFile6[ ll - 1 ][ 1 ] != '2')
	goto a12452;
      spyf77::sFile6[ ll - 1 ].replace(0, 2, "14");
      goto a12456;

    a12452:
      spyf77::sFile6[ ll - 1 ][ 0 ] = '2';

    a12456:
      ;
    }
    goto a12438;

  a12458:
    if(labcom::pKode[ l - 1 ] > 4)
      goto a12468;
    goto a12438;

  a12468:
    if(labcom::pKode[ l - 1 ] > 5)
      goto a12478;
    for(ll = nn1; ll <= nn2; ll++) {
      if(spyf77::sFile6[ ll - 1 ][ 0 ] == ' ')
	spyf77::sFile6[ ll - 1 ].replace(0, 1, "33");
    }
    goto a12438;

  a12478:
    for(ll = nn1; ll <= nn2; ll++) {
      if(spyf77::sFile6[ ll - 1 ][ 0 ] == ' ')
	spyf77::sFile6[ ll - 1 ].replace(0, 2, "77");
    }
    goto a12438;

  a2444:
    n17 = 1;
    n18 = labcom::pKSSFrq[ n17 - 1 ];
    n8 = 0;
    n24 = spycom::nNumCRD;
    j = 0;
    if(strcom::toLower(spyf77::sFile6[ 0 ].substr(0, 9)) != "c $attach")
      goto a2445;
    ++n24;
    spyf77::sFile6[ n24 - 1 ] = spyf77::sFile6[ 0 ];
    j = 1;

  a2445:
    if(strcom::toLower(spyf77::sFile6[ j ].substr(0, 16)) != "begin new data c")
      goto a2446;
    ++n24;
    spyf77::sFile6[ n24 - 1 ] = spyf77::sFile6[ j ];
    ++j;

  a2446:
    if(n1 == 0)
      goto a2453;
    n8 = 1;
    goto a2472;

  a2453:
    ++j;
    if(j > spycom::nNumCRD)
      goto a2497;
    if(j != n18)
      goto a2456;
    j = labcom::pKPSour[ n17 - 1 ];
    ++n17;
    n18 = labcom::pKSSFrq[ n17 - 1 ];
    goto a2453;

  a2456:
    if(n8 != 9)
      goto a2458;
    if(n10 == 0)
      goto a2460;
    n8 = n10;
    goto a2472;

  a2458:
    if(n8 != 10)
      goto a2462;

  a2460:
    if(n11 == 0)
      goto a2462;
    n8 = n11;
    goto a2472;

  a2462:
    if(strcom::toLower(spyf77::sFile6[ j - 1 ].substr(0, 6)) != "blank ")
      goto a2493;
    if(spycom::nIprSpy < 2)
      goto a2465;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Blank card recognized.  j =" << std::setw(6) << j << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

  a2465:
    for(k = 1; k < nNumTyp; k++) {
      n8 = pLenTyp[ k - 1 ];
      n14 = spyf77::sFile6[ j - 1 ].find(pTypDat[ k - 1 ].substr(0, n8));
      if(n14 != std::string::npos)
	goto a2469;
    }
    n14 = strcom::toLower(spyf77::sFile6[ j - 1 ]).find("tacs data");
    if(n14 == std::string::npos)
      goto a2493;
    k = 6;

  a2469:
    n8 = k;
    // Convert end of class blank card in old TACS data to comment card
    if((k == 2) || (k == 3) || (k == 4) || (k == 5))
      spyf77::sFile6[ j - 1 ].replace(0, 2, "c ");

  a2472:
    if(spycom::nIprSpy < 3)
      goto a2475;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Data class needs consideration.  n8 =" << std::setw(6) << n8 << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

  a2475:
    for(k = 1; k <= n12; k++) {
      if(labcom::pKode[ k - 1 ] == n8) {
	n5 = labcom::pKSSFrq[ k - 1 ] + 1;
	n6 = labcom::pKPSour[ k - 1 ];
	if((n24 + n6 - n5) >= spycom::nLimCRD)
	  goto a1760;
	for(l = n5; l <= n6; l++) {
	  ++n24;
	  spyf77::sFile6[ n24 - 1 ] = spyf77::sFile6[ l - 1 ];
	}
	if(spycom::nIprSpy >= 3) {
	  (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Done with \"/\" copy below.  n5, n6, n24 =" << std::setw(6) << n5 << n6 << n24 << std::endl;
	  utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
	}
      }
    }
    if((n8 == 10) || (n8 == 11))
      goto a2456;
    if(j <= 2)
      goto a2453;

  a2493:
    ++n24;
    spyf77::sFile6[ n24 - 1 ] = spyf77::sFile6[ j - 1 ];
    if(n24 >= spycom::nLimCRD)
      goto a1760;
    if(j < spycom::nNumCRD)
      goto a2453;

  a2497:
    if(spycom::nIprSpy < 9)
      goto a2500;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Done with lower assembly.  n24 =" << std::setw(8) << n24 <<std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

  a2500:
    j = 0;
    for(k = spycom::nNumCRD + 1; k <= n24; k++) {
      ++j;
      spyf77::sFile6[ j - 1 ] = spyf77::sFile6[ k - 1 ];
      if(spycom::nIprSpy >= 9) {
	(*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Card" << std::setw(3) << j << "." << spyf77::sFile6[ j - 1 ].substr(0, 80) << std::endl;
	utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
      }
    }
    spycom::nNumCRD = j;
    if(spycom::nIprSpy < 1)
      goto a2509;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Done with all \"/\" processing.  numcrd =" << std::setw(8) << spycom::nNumCRD << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

  a2509:
    if(blkcom::nM4Plot == 1)
      over20::spying();
    goto a9800;
    // Begin code to process "module" of user.  Convert user data
    // from  "arg", "dum", and "num" character declarations to
    // the vectors kard/karg/kbeg/kend/ktex as needed by $include

  a2613:
    spycom::nIprSpy = n13;
    spycom::nNumCRD = 0;
    over20::spying();
    n8 = 0;
    nNumArg = 0;
    n11 = spycom::nLimCRD + 1;
    n13 = 0;
    n4 = 1;
    movecopy::copy(n4, pModArg, nLimArg);
    goto a2628;

  a2621:
    --n11;
    spyf77::sFile6[ n11 - 1 ] = spyf77::sBuff77;

  a2628:
    ++n13;
    if(n13 > spycom::nNumCRD)
      goto a2703;
    spyf77::sBuff77 = spyf77::sFile6[ n13 - 1 ];
    if((strcom::toLower(spyf77::sBuff77.substr(0, 3)) != "arg") && (strcom::toLower(spyf77::sBuff77.substr(0, 3)) != "dum") && (strcom::toLower(spyf77::sBuff77.substr(0, 3)) != "num"))
      goto a2621;
    k = 4;
    ++n8;
    spyf77::sFile6[ n8 - 1 ] = spyf77::sBuff77;

  a2637:
    if((spyf77::sBuff77[ k - 1 ] != ' ') && (spyf77::sBuff77[ k - 1 ] != ','))
      goto a2648;
    ++k;
    if(k <= 80)
      goto a2637;
    goto a2628;

  a2648:
    l = k + 1;

  a2656:
    if((spyf77::sBuff77[ l - 1 ] != ' ') || (spyf77::sBuff77[ l - 1 ] != ','))
      goto a2664;
    ++l;
    if(l <= 80)
      goto a2656;

  a2664:
    --l;
    if(strcom::toLower(spyf77::sBuff77.substr(0, 3)) != "num")
      goto a2687;
    for(m = 1; m <= nNumArg; m++) {
      n6 = l - k + 1;
      if((pKolInc[ m - 1 ] == n6) && (pArgInc[ m - 1 ].substr(0, n6) == spyf77::sBuff77.substr(k - 1, l - k + 1))) {
	pModArg[ m - 1 ] = 0;
	goto a2695;
      }
    }
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "   ???  Illegal \"num\" declaration.  Unrecognized name = " << spyf77::sBuff77.substr(k - 1, l - k + 1) << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    emtp::stoptp();

  a2687:
    ++nNumArg;
    if(nNumArg <= nLimArg)
      goto a2692;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Overflow error stop.  Argument usage is limited in number to limarg =" << std::setw(5) << nLimArg;

  a2692:
    pArgInc[ nNumArg - 1 ] = spyf77::sBuff77.substr(k - 1, l - k + 1);
    pKolInc[ nNumArg - 1 ] = l - k + 1;
    if(strcom::toLower(spyf77::sBuff77.substr(0, 3)) == "dum")
      pKKKDum[ nNumArg - 1 ] = 1;

  a2695:
    k = l + 1;
    goto a2637;

  a2703:
    --n11;
    spyf77::sANSI32 << blkcom::pDate1[ 0 ].substr (0, 4) + blkcom::pDate1[ 1 ].substr (0, 4) + std::string(2, ' ') + blkcom::pTClock[ 0 ].substr (0, 4) + blkcom::pTClock[ 1 ].substr(0, 4);
    spyf77::sFile6[ n11 - 1 ] = "$eof   user-supplied header cards follow.  ";
    spyf77::sFile6[ n11 - 1 ].replace(50, 18, spyf77::sANSI32.str().substr(0, 18));
    for(j = 1; j <= n8; j++) {
      --n11;
      spyf77::sFile6[ n11 - 1 ] = spyf77::sFile6[ j - 1 ];
    }
    if(spycom::nIprSpy < 1)
      goto a2721;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Done processing declarations.  n8, n11, limcrd =" << std::setw(5) << n8 << n11 << spycom::nLimCRD << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "     row  kolinc  kkkdum  modarg  arginc ...." << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    for(j = 1; j <= nNumArg; j++) {
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << j << pKolInc[ j - 1 ] << pKKKDum[ j - 1 ] << pModArg[ j - 1 ] << pArgInc[ j - 1 ].substr(0, 20) << std::endl;
      utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
    }

  a2721:
    n20 = 0;
    n16 = spycom::nLimCRD + 1;
    n13 = 0;
    for(n17 = n11; n17 <= spycom::nLimCRD; n17++) {
      --n16;
      spyf77::sBuff77 = spyf77::sFile6[ n16 - 1 ];
      if(tolower(spyf77::sBuff77[ 0 ]) == 'c')
	goto a2766;
      ++n13;
      if(spyf77::sBuff77[ 0 ] == '/')
	goto a2766;
      if(strcom::toLower(spyf77::sBuff77.substr(0, 4)) == "$eof")
	goto a2772;
      for(j = 1; j <= nNumArg; j++) {
	l = 1;
	n15 = pKolInc[ j - 1 ];

      a2724:
	k = spyf77::sBuff77.substr(l - 1, std::string::npos).find(pArgInc[ j - 1 ].substr(0, n15));
	if(k == std::string::npos)
	  goto a2754;
	++n20;
	if(n20 <= 200)
	  goto a2737;
	(*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "  ====   Overflow error stop at card number" << std::setw(6) << n16 << "    over 200 arguments." << std::endl;
	utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));
	emtp::stoptp();

      a2737:
	pKArg[ n20 - 1 ] = j;
	if(j > nNumArg)
	  pKArg[ n20 - 1 ] = -(j - nNumArg);
	pKard[ n20 - 1 ] = n13;
	pKBeg[ n20 - 1 ] = l - 1 + k;
	pKEnd[ n20 - 1 ] = pKBeg[ n20 ] + n15 - 1;
	if(j <= nNumArg)
	  pKTex[ n20 - 1 ] = pModArg[ j - 1 ];
	l = pKEnd[ n20 - 1 ] + 1;
	if(spycom::nIprSpy < 6)
	  goto a2749;
	(*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << "    Another string found.  n16, j, l, k, n20 =" << std::setw(6) << n16 << j << l << k << n20 << std::endl;
	utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

      a2749:
	goto a2724;

      a2754:
	;
      }
      if(spycom::nIprSpy < 2)
	goto a2766;
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Done with this card.  n16, n20 =" << std::setw(5) << n16 << n20 << "   buff77=" << spyf77::sBuff77.substr(0, 80) << std::endl;
      utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

    a2766:
      ;
    }

  a2772:
    if(spycom::nIprSpy < 1)
      goto a2778;
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ])) << " Done with identifying all arguments of all cards.   n20 =" << std::setw(4) << n20 << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

  a2778:
    if(((n20 / 25) * 25) != n20)
      goto a2783;
    // Extra zero entry must be added, since otherwise card is full:
    ++n20;
    pKard[ n20 - 1 ] = 0;
    pKArg[ n20 - 1 ] = 0;
    pKBeg[ n20 - 1 ] = 0;
    pKEnd[ n20 - 1 ] = 0;
    pKTex[ n20 - 1 ] = 0;

  a2783:
    spyf77::sProm80 = " Send output file name for final $include file :";
    utilities::prompt(*reinterpret_cast<std::ostream *>(blkcom::pLFiles[ 5 ]), \
		   spyf77::sProm80);
    reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ]) -> read(&spyf77::sBuff77[ 0 ], 80);
    reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ]) -> open(spyf77::sBuff77.c_str(), std::ios::in);
    reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ]) -> seekg(std::ios::beg);
    spyf77::sANSI8.str().replace(0, 4, "kard");
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << spyf77::sANSI8.str().substr(0, 4);
    for(j = 1; j <= n20; j++)
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << pKard[ j - 1 ];
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << std::endl;
    spyf77::sANSI8.str().replace(0, 4, "karg");
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << spyf77::sANSI8.str().substr(0, 4);
    for(j = 1; j <= n20; j++)
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << pKArg[ j - 1 ];
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << std::endl;
    spyf77::sANSI8.str().replace(0, 4, "kbeg");
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << spyf77::sANSI8.str().substr(0, 4);
    for(j = 1; j <= n20; j++)
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << pKBeg[ j - 1 ];
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << std::endl;
    spyf77::sANSI8.str().replace(0, 4, "kend");
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << spyf77::sANSI8.str().substr(0, 4);
    for(j = 1; j <= n20; j++)
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << pKEnd[ j - 1 ];
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << std::endl;
    spyf77::sANSI8.str().replace(0, 4, "ktex");
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << spyf77::sANSI8.str().substr(0, 4);
    for(j = 1; j <= n20; j++)
      (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << pKTex[ j - 1 ];
    (*reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 4 ])) << std::endl;
    for(j = n11; j <= spycom::nLimCRD; j++)
      (*reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ])) << spyf77::sFile6[ spycom::nLimCRD + n11 - j - 1 ].substr(0, 80) << std::endl;
    reinterpret_cast<std::fstream *>(blkcom::pLFiles[ 12 ]) -> close();
    goto a1311;

  a9200:
    blkcom::nChain = 51;
    blkcom::sLStat[ 17 ] = -1;

  a9800:
    if(nNTACS != 2)
      goto a9002;
    k = 1;
    for(j = 1; j <= spycom::nNumCRD; j++) {
      if((strcom::toLower(spyf77::sFile6[ j - 1 ].substr(0, 5)) != "blank") && !spyf77::sFile6[ j - 1 ].empty())
	goto a3005;
      ++k;
      if(k >= 6)
	goto a9002;
      spyf77::sFile6[ j - 1 ].replace(0, 2, "c ");
      goto a3500;

    a3005:
      switch(k) {
      case 1:
	goto a3010;

      case 2:
	goto a3020;

      case 3:
	goto a3500;

      case 4:
	goto a3040;

      case 5:
	goto a3050;
      }

    a3010:
      if(spyf77::sFile6[ j - 1 ].substr(0, 2) == "99")
	spyf77::sFile6[ j - 1 ].replace(0, 2, "  ");
      goto a3500;

    a3020:
      if((tolower(spyf77::sFile6[ j - 1 ][ 0 ]) == 'c') || (spyf77::sFile6[ j - 1 ][ 0 ] == '9') || (spyf77::sFile6[ j - 1 ][ 0 ] == '$'))
	;
      else {
	if(spyf77::sFile6[ j - 1 ][ 0 ] != '1')
	  goto a3022;
	spyf77::sFile6[ j - 1 ][ 0 ] = '1';
      }
      break;

    a3022:
      if(spyf77::sFile6[ j - 1 ][ 1 ] != '2')
	goto a3024;
      spyf77::sFile6[ j - 1 ].replace(0, 2, "14");
      break;

    a3024:
      spyf77::sFile6[ j - 1 ][ 0 ] = '2';
      break;

    a3040:
      if(spyf77::sFile6[ j - 1 ][ 0 ] != ' ')
	goto a3500;
      spyf77::sFile6[ j - 1 ].replace(0, 2, "33");
      break;

    a3050:
      if(spyf77::sFile6[ j - 1 ][ 0 ] != ' ')
	goto a3500;
      spyf77::sFile6[ j - 1 ].replace(0, 2, "77");
      break;
    }

  a3500:
    ;

  a9002:
    if(blkcom::nIprsUp < 1)
      goto a9007;
    (*reinterpret_cast<std::stringstream *> (spycom::pMFiles[ 5 ])) << " Exit \"datain\".  numcrd, limcrd, kill =" << std::setw(8) << spycom::nNumCRD << spycom::nLimCRD << blkcom::nKill << std::endl;
    utilities::window(*reinterpret_cast<std::ostream*>(blkcom::pLFiles[ 5 ]), \
		      *reinterpret_cast<std::stringstream *>(spycom::pMFiles[ 5 ]));

  a9007:
    return;
  }

}

// end of file datain.cpp