class HChannelListMaker: public TObject

  FILE* dec;
  Bool_t enough,gotten,lineFinished;
  Int_t decN,prtN;
  Char_t stroke[120];
  Char_t nomen[nameLength];
  Char_t fileName[30];
  sprintf (fileName,"%s","decayList.txt");
  if ( (dec = fopen(fileName,"rt")) == NULL )
    {fprintf (stderr,"'%s' file open error \n",fileName); abort();}
  decPartsNmb = 0;
  enough = false;
  fprintf (otp,"\nDecay list\n");
  while (!enough)
   {fscanf (dec,"%5s",nomen);
    if (nomen[0] == '-') {enough = true; fgets (stroke,80,dec);}
     else
      {decPartsNmb++;
       fscanf (dec,"%f",&decPart[decPartsNmb].cTau);
       fgets (stroke,80,dec);
       decPart[decPartsNmb].pID = getPid (nomen);
       fprintf (otp," %s (cTau = %9.2e) ->\n",nomen,decPart[decPartsNmb].cTau);
       gotten = false;
       decN = 0;
       while (!gotten)
        {fscanf (dec,"%s",nomen);
         if (nomen[0] == '-')
           {decPart[decPartsNmb].decaysNmb = decN;
            gotten = true; fgets (stroke,80,dec);
           }
          else
           {decN++;
            prtN = 1;
            decPart[decPartsNmb].decay[decN].pID[prtN] = getPid(nomen);
            fprintf (otp,"   %s",nomen);
            lineFinished = false;
            while (!lineFinished)
             {fscanf (dec,"%s",nomen);
              if (nomen[0] == '-')
                {decPart[decPartsNmb].decay[decN].prong = prtN;
                 lineFinished = true; fgets (stroke,80,dec);
                 fprintf (otp,"\n");
                }
               else
                {prtN++;
                 decPart[decPartsNmb].decay[decN].pID[prtN] = getPid(nomen);
                 fprintf (otp," %s",nomen);
                }
             }
           }
        }
      }
   }
  fclose (dec);