ROOT logo
// @(#)root/table:$Id: TCernLib.cxx 20882 2007-11-19 11:31:26Z rdm $
// Author: Valery Fine(fine@bnl.gov)   25/09/99

/*************************************************************************
 * Copyright (C) 1995-2000, Rene Brun and Fons Rademakers.               *
 * All rights reserved.                                                  *
 *                                                                       *
 * For the licensing terms see $ROOTSYS/LICENSE.                         *
 * For the list of contributors see $ROOTSYS/README/CREDITS.             *
 *************************************************************************/

////////////////////////////////////////////////////////////////////////////////
// The set of methods to work with the plain matrix / vector
// "derived" from  http://wwwinfo.cern.ch/asdoc/shortwrupsdir/f110/top.html
// "derived" from  http://wwwinfo.cern.ch/asdoc/shortwrupsdir/f112/top.html
//
// Revision 1.7  2006/05/21 18:05:26  brun
// Fix more coding conventions violations
//
// Revision 1.6  2006/05/20 14:06:09  brun
// Fix a VERY long list of coding conventions violations
//
// Revision 1.5  2003/09/30 09:52:49  brun
// Add references to the original CERNLIB packages
//
// Revision 1.4  2003/05/28 15:17:03  brun
// From Valeri Fine. A new version of the table package.
// It fixes a couple of memory leaks:
//  class TTableDescriptorm
//  class TVolumePosition
// and provides some clean up
// for the TCL class interface.
//
// Revision 1.3  2003/04/03 17:39:39  fine
// Make merge with ROOT 3.05.03 and add TR package
//122
// Revision 1.2  2003/02/04 23:35:20  fine
// Clean up
//
// Revision 1.1  2002/04/15 20:23:39  fine
// NEw naming schema for RootKErnel classes and a set of classes to back geometry OO
//
// Revision 1.2  2001/05/29 19:08:08  brun
// New version of some STAR classes from Valery.
//
// Revision 1.2  2001/05/27 02:38:14  fine
// New method trsedu to solev Ax=B from Victor
//
// Revision 1.1.1.1  2000/11/27 22:57:14  fisyak
//
//
// Revision 1.1.1.1  2000/05/16 17:00:48  rdm
// Initial import of ROOT into CVS
//
////////////////////////////////////////////////////////////////////////////////////////////////////////

#include <assert.h>
#include "TCernLib.h"
#include "TMath.h"
#include "TArrayD.h"
#include "TError.h"

ClassImp(TCL)

#define TCL_MXMAD(n_,a,b,c,i,j,k)                       \
    /* Local variables */                                \
    int l, m, n, ia, ic, ib, ja, jb, iia, iib, ioa, iob; \
                                                         \
    /* Parameter adjuTments */                          \
    --a;  --b;  --c;                                     \
    /* Function Body */                                  \
/*                      MXMAD MXMAD1 MXMAD2 MXMAD3 MXMPY MXMPY1 MXMPY2 MXMPY3 MXMUB MXMUB1 MXMUB2 MXMUB3 */ \
/*  const int iandj1[] = {21,   22,    23,    24,   11,    12,    13,    14,    31,   32,   33,    34 }; */ \
    const int iandj1[] = {2,    2 ,    2 ,    2 ,   1 ,    1 ,    1 ,    1 ,    3 ,   3 ,   3 ,    3  }; \
    const int iandj2[] = { 1,    2,     3,     4,    1,     2,     3,     4,     1,    2,    3,     4 }; \
    int n1 = iandj1[n_];                                  \
    int n2 = iandj2[n_];                                  \
    if (i == 0 || k == 0) return 0;                       \
                                                          \
    switch (n2) {                                         \
      case 1: iia = 1; ioa = j; iib = k; iob = 1; break;  \
      case 2: iia = 1; ioa = j; iib = 1; iob = j; break;  \
      case 3: iia = i; ioa = 1; iib = k; iob = 1; break;  \
      case 4: iia = i; ioa = 1; iib = 1; iob = j; break;  \
      default: iia = ioa = iib = iob = 0; assert(iob);    \
    };                                                    \
                                                          \
    ia = 1; ic = 1;                                       \
    for (l = 1; l <= i; ++l) {                            \
            ib = 1;                                           \
            for (m = 1; m <= k; ++m,++ic) {                   \
              switch (n1) {                                   \
                      case 1:  c[ic] = 0.;      break;            \
                      case 3:  c[ic] = -c[ic];  break;            \
              };                                              \
              if (j == 0) continue;                           \
              ja = ia; jb = ib;                               \
          double cic = c[ic];                             \
              for (n = 1; n <= j; ++n, ja+=iia, jb+=iib)      \
                       cic += a[ja] * b[jb];                      \
          c[ic] = cic;                                    \
              ib += iob;                                      \
            }                                                 \
            ia += ioa;                                        \
    }

//___________________________________________________________________________
float *TCL::mxmad_0_(int n_, const float *a, const float *b, float *c, int i, int j, int k)
{
  TCL_MXMAD(n_,a,b,c,i,j,k)
  return c;
} /* mxmad_ */

//___________________________________________________________________________
double *TCL::mxmad_0_(int n_, const double *a, const double *b, double *c, int i, int j, int k)
{
   TCL_MXMAD(n_,a,b,c,i,j,k)
   return c;
} /* mxmad_ */

#undef TCL_MXMAD

//___________________________________________________________________________
//
//             Matrix Multiplication
//___________________________________________________________________________

#define TCL_MXMLRT( n__, a, b, c,  ni,nj) \
  if (ni <= 0 || nj <= 0) return 0;        \
  double x;                                \
  int ia, ib, ic, ja, kc, ii, jj, kj, ki, ia1, ib1, ic1, ja1; \
  int ipa = 1;  int jpa = nj;              \
  if (n__ == 1) { ipa = ni;  jpa = 1; }    \
                                           \
  --a;  --b;  --c;                         \
                                           \
  ic1 = 1;  ia1 = 1;                       \
  for (ii = 1; ii <= ni; ++ii, ic1+=ni, ia1+=jpa) { \
    ic = ic1;                                       \
    for (kc = 1; kc <= ni; ++kc,ic++) c[ic] = 0.;   \
    ib1 = 1;  ja1 = 1;                              \
    for (jj = 1; jj <= nj; ++jj,++ib1,ja1 += ipa) { \
      ib = ib1;  ia = ia1;                          \
      x = 0.;                                       \
      for (kj = 1;kj <= nj;++kj,ia+=ipa,ib += nj)   \
                    x += a[ia] * b[ib];                     \
      ja = ja1;  ic = ic1;                          \
      for (ki = 1; ki <= ni; ++ki,++ic,ja += jpa)   \
                    c[ic] += x * a[ja];                     \
    }                                               \
  }

//___________________________________________________________________________
float *TCL::mxmlrt_0_(int n__, const float *a, const float *b, float *c, int ni,int nj)
{
 // Matrix Multiplication
 // CERN PROGLIB# F110    MXMLRT          .VERSION KERNFOR  2.00  720707
 // ORIG. 01/01/64 RKB
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f110/top.html">F110</A>
 <!--*/
 // -->END_HTML


// --      ENTRY MXMLRT */
// --                C = A(I,J) X B(J,J) X A*(J,I) */
// --                A* TANDS FOR A-TRANSPOSED */
//             mxmlrt (A,B,C,NI,NJ)     IS EQUIVALENT TO */
//             CALL MXMPY (A,B,X,NI,NJ,NJ) */
//             CALL MXMPY1 (X,A,C,NI,NJ,NI) */

/*        OR   CALL MXMPY1 (B,A,Y,NJ,NJ,NI) */
/*             CALL MXMPY (A,Y,C,NI,NJ,NI) */


// --                C = A*(I,J) X B(J,J) X A(J,I)

//        CALL MXMLTR (A,B,C,NI,NJ)     IS EQUIVALENT TO
//             CALL MXMPY2 (A,B,X,NI,NJ,NJ)
//             CALL MXMPY (X,A,C,NI,NJ,NI)

//        OR   CALL MXMPY (B,A,Y,NJ,NJ,NI)
//             CALL MXMPY2 (A,Y,C,NI,NJ,NI)
   TCL_MXMLRT( n__, a, b, c,  ni,nj)
   return c;
} /* mxmlrt_ */

//___________________________________________________________________________
double *TCL::mxmlrt_0_(int n__, const double *a, const double *b, double *c, int ni,int nj)
{
 // Matrix Multiplication (double precision)

   TCL_MXMLRT( n__, a, b, c,  ni,nj)
   return c;

} /* mxmlrt_ */

#undef TCL_MXMLRT

//___________________________________________________________________________
//
//             Matrix Transposition
//___________________________________________________________________________

#define TCL_MXTRP(a, b, i, j)     \
  if (i == 0 || j == 0) return 0; \
  --b;  --a;                      \
  int ib = 1;                     \
  for (int k = 1; k <= j; ++k)    \
  { int ia = k;                   \
    for (int l = 1; l <= i; ++l,ia += j,++ib) b[ib] = a[ia]; }

//___________________________________________________________________________
float *TCL::mxtrp(const float *a, float *b, int i, int j)
{
//
//  Matrix Transposition
// CERN PROGLIB# F110    MXTRP           .VERSION KERNFOR  1.0   650809
// ORIG. 01/01/64 RKB
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f110/top.html">F110</A>
 <!--*/
 // -->END_HTML

   TCL_MXTRP(a, b, i, j)
   return b;
} /* mxtrp */

//___________________________________________________________________________
double *TCL::mxtrp(const double *a, double *b, int i, int j)
{
//  Matrix Transposition (double precision)
// CERN PROGLIB# F110    MXTRP           .VERSION KERNFOR  1.0   650809
// ORIG. 01/01/64 RKB
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f110/top.html">F110</A>
 <!--*/
 // -->END_HTML

   TCL_MXTRP(a, b, i, j)
   return b;

} /* mxtrp */
#undef TCL_MXTRP

//___________________________________________________________________________
//___________________________________________________________________________
//
//            TRPACK
//___________________________________________________________________________
//___________________________________________________________________________

#define TCL_TRAAT(a, s, m, n)           \
   /* Local variables */                \
   int ipiv, i, j, ipivn, ia, is, iat;  \
   double sum;                          \
   --s;    --a;                         \
   ia = 0;   is = 0;                    \
   for (i = 1; i <= m; ++i) {           \
     ipiv = ia;                         \
     ipivn = ipiv + n;                  \
     iat = 0;                           \
     for (j = 1; j <= i; ++j) {         \
       ia = ipiv;                       \
       sum = 0.;                        \
       do {                             \
         ++ia;  ++iat;                  \
         sum += a[ia] * a[iat];         \
       } while (ia < ipivn);            \
       ++is;                            \
       s[is] = sum;                     \
     }                                  \
   }                                    \
   s++;


//____________________________________________________________
float *TCL::traat(const float *a, float *s, int m, int n)
{
   //
   // Symmetric Multiplication of Rectangular Matrices
   // CERN PROGLIB# F112    TRAAT           .VERSION KERNFOR  4.15  861204
   // ORIG. 18/12/74 WH */
   // traat.F -- translated by f2c (version 19970219).
   //
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   TCL_TRAAT(a, s, m, n)
   return s;
} /* traat_ */

//____________________________________________________________
double *TCL::traat(const double *a, double *s, int m, int n)
{
   //  Symmetric Multiplication of Rectangular Matrices
   // CERN PROGLIB# F112    TRAAT           .VERSION KERNFOR  4.15  861204
   // ORIG. 18/12/74 WH */
   // traat.F -- translated by f2c (version 19970219).
   //
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   TCL_TRAAT(a, s, m, n)
   return s;
} /* traat_ */

#undef TCL_TRAAT

#define TCL_TRAL(a, u, b, m,  n)   \
   int indu, i, j, k, ia, ib, iu;  \
   double sum;                     \
   --b;    --u;    --a;            \
   ib = 1;                         \
   for (i = 1; i <= m; ++i) {      \
      indu = 0;                    \
      for (j = 1; j <= n; ++j) {   \
         indu += j;                \
         ia = ib;                  \
         iu = indu;                \
         sum = 0.;                 \
         for (k = j; k <= n; ++k) {\
            sum += a[ia] * u[iu];  \
            ++ia;                  \
            iu += k;               \
         }                         \
         b[ib] = sum;              \
         ++ib;                     \
      }                            \
   }                               \
   b++;

//____________________________________________________________
float *TCL::tral(const float *a, const float *u, float *b, int m, int n)
{
   // Triangular - Rectangular Multiplication
   // CERN PROGLIB# F112    TRAL            .VERSION KERNFOR  4.15  861204
   // ORIG. 18/12/74 WH
   // tral.F -- translated by f2c (version 19970219).
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   TCL_TRAL(a, u, b, m,  n)
   return b;
} /* tral_ */

//____________________________________________________________
double *TCL::tral(const double *a, const double *u, double *b, int m, int n)
{
   // Triangular - Rectangular Multiplication
   // tral.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRAL            .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   TCL_TRAL(a, u, b, m,  n)
   return b;
} /* tral_ */

#undef TCL_TRAL

//____________________________________________________________
#define TCL_TRALT(a, u, b, m, n)  \
   int indu, j, k, ia, ib, iu;    \
   double sum;                    \
   --b;    --u;    --a;           \
   ib = m * n;                    \
   indu = (n * n + n) / 2;        \
   do {                           \
      iu = indu;                  \
      for (j = 1; j <= n; ++j) {  \
         ia = ib;                 \
         sum = 0.;                \
        for (k = j; k <= n; ++k) {\
           sum += a[ia] * u[iu];  \
           --ia;   --iu;          \
        }                         \
        b[ib] = sum;              \
        --ib;                     \
      }                           \
   } while (ib > 0);              \
   ++b;

//____________________________________________________________
float *TCL::tralt(const float *a, const float *u, float *b, int m, int n)
{
   // Triangular - Rectangular Multiplication
   // CERN PROGLIB# F112    TRALT           .VERSION KERNFOR  4.15  861204
   // ORIG. 18/12/74 WH
   // tralt.F -- translated by f2c (version 19970219).
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   TCL_TRALT(a, u, b, m, n)
   return b;
} /* tralt_ */

//____________________________________________________________
double *TCL::tralt(const double *a, const double *u, double *b, int m, int n)
{
   // Triangular - Rectangular Multiplication
   // CERN PROGLIB# F112    TRALT           .VERSION KERNFOR  4.15  861204
   // ORIG. 18/12/74 WH
   // tralt.F -- translated by f2c (version 19970219).
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   TCL_TRALT(a, u, b, m, n)
   return b;
} /* tralt_ */

#undef TCL_TRALT

//____________________________________________________________

#define TCL_TRAS(a, s, b, m, n)     \
   int inds, i__, j, k, ia, ib, is; \
   double sum;                      \
   --b;    --s;    --a;             \
   ib = 0; inds = 0; i__ = 0;       \
   do {                             \
      inds += i__;                  \
      ia = 0;                       \
      ib = i__ + 1;                 \
      for (j = 1; j <= m; ++j) {    \
         is = inds;                 \
         sum = 0.;                  \
         k = 0;                     \
         do {                       \
            if (k > i__) is += k;   \
            else        ++is;       \
            ++ia;                   \
            sum += a[ia] * s[is];   \
            ++k;                    \
         } while (k < n);           \
         b[ib] = sum;               \
         ib += n;                   \
      }                             \
      ++i__;                        \
   } while (i__ < n);               \
   ++b;

//____________________________________________________________
float *TCL::tras(const float *a, const float *s, float *b, int m, int n)
{
   // Symmetric - Rectangular Multiplication
   // CERN PROGLIB# F112    TRAS            .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
   // tras.F -- translated by f2c (version 19970219).
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   TCL_TRAS(a, s, b, m, n)
   return b;
} /* tras_ */

//____________________________________________________________
double *TCL::tras(const double *a, const double *s, double *b, int m, int n)
{
   // Symmetric - Rectangular Multiplication
   // CERN PROGLIB# F112    TRAS            .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
   // tras.F -- translated by f2c (version 19970219).
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   TCL_TRAS(a, s, b, m, n)
   return b;
} /* tras_ */

#undef TCL_TRAS


//____________________________________________________________
#define TCL_TRASAT(a, s, r__, m, n) \
   int imax,  k;                    \
   int ia, mn, ir, is, iaa;         \
   double sum;                      \
   --r__;    --s;    --a;           \
   imax = (m * m + m) / 2;          \
   vzero(&r__[1], imax);            \
   mn = m * n;                      \
   int ind = 0;                     \
   int i__ = 0;                     \
   do {                             \
      ind += i__;                   \
      ia = 0; ir = 0;               \
      do {                          \
         is = ind;                  \
         sum = 0.;   k = 0;         \
         do {                       \
            if (k > i__) is += k;   \
            else         ++is;      \
            ++ia;                   \
            sum += s[is] * a[ia];   \
            ++k;                    \
         } while (k < n);           \
         iaa = i__ + 1;             \
         do {                       \
            ++ir;                   \
            r__[ir] += sum * a[iaa];\
            iaa += n;               \
         } while (iaa <= ia);       \
      } while (ia < mn);            \
      ++i__;                        \
   } while (i__ < n);               \
   ++r__;

//____________________________________________________________
float *TCL::trasat(const float *a, const float *s, float *r__, int m, int n)
{
   // Transformation of Symmetric Matrix
   // CERN PROGLIB# F112    TRASAT          .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
   // trasat.F -- translated by f2c (version 19970219).
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   TCL_TRASAT(a, s, r__, m, n)
   return r__;
} /* trasat_ */

//____________________________________________________________
double *TCL::trasat(const double *a, const double *s, double *r__, int m, int n)
{
   // Transformation of Symmetric Matrix
   // CERN PROGLIB# F112    TRASAT          .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
   // trasat.F -- translated by f2c (version 19970219).
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   TCL_TRASAT(a, s, r__, m, n)
   return r__;
} /* trasat_ */

//____________________________________________________________
float *TCL::trasat(const double *a, const float *s, float *r__, int m, int n)
{
   // Transformation of Symmetric Matrix
   // CERN PROGLIB# F112    TRASAT          .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
   // trasat.F -- translated by f2c (version 19970219).
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   TCL_TRASAT(a, s, r__, m, n)
   return r__;
} /* trasat_ */

#undef TCL_TRASAT

//____________________________________________________________
float *TCL::trata(const float *a, float *r__, int m, int n)
{
   // trata.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRATA           .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   /* Local variables */
   int i__, j, ia, mn, ir, iat;
   double sum;

   /* Parameter adjuTments */
   --r__;    --a;

   /* Function Body */
   mn = m * n;
   ir = 0;

   for (i__ = 1; i__ <= m; ++i__) {
      for (j = 1; j <= i__; ++j) {
         ia = i__;
         iat = j;
         sum = 0.;
         do {
            sum += a[ia] * a[iat];
            ia +=  m;
            iat += m;
         } while  (ia <= mn);
         ++ir;
         r__[ir] = sum;
      }
   }
   ++r__;
   return r__;
} /* trata_ */

//____________________________________________________________
// trats.F -- translated by f2c (version 19970219).
float *TCL::trats(const float *a, const float *s, float *b, int m, int n)
{
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   /* Local variables */
   int inds, i__, j, k, ia, ib, is;
   double sum;

   /* CERN PROGLIB# F112    TRATS           .VERSION KERNFOR  4.15  861204 */
   /* ORIG. 18/12/74 WH */

   /* Parameter adjuTments */
   --b;    --s;    --a;

   /* Function Body */
   ib = 0;    inds = 0;    i__ = 0;
   do {
      inds += i__;
      ib = i__ + 1;

      for (j = 1; j <= m; ++j) {
         ia = j;
         is = inds;
         sum = 0.;
         k = 0;

         do {
            if (k > i__) is += k;
            else         ++is;
            sum += a[ia] * s[is];
            ia += m;
            ++k;
         } while (k < n);

         b[ib] = sum;
         ib += n;
      }
      ++i__;
   } while (i__ < n);
   ++b;
   return b;
} /* trats_ */

//____________________________________________________________
// tratsa.F -- translated by f2c (version 19970219).
/* Subroutine */float *TCL::tratsa(const float *a, const float *s, float *r__, int m, int n)
{
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   /* Local variables */
   int imax, i__, j, k;
   int ia, ir, is, iaa, ind;
   double sum;

   /* CERN PROGLIB# F112    TRATSA          .VERSION KERNFOR  4.15  861204 */
   /* ORIG. 18/12/74 WH */


   /* Parameter adjuTments */
   --r__;    --s;    --a;

   /* Function Body */
   imax = (m * m + m) / 2;
   vzero(&r__[1], imax);
   ind = 0;
   i__ = 0;

   do {
      ind += i__;
      ir = 0;

      for (j = 1; j <= m; ++j) {
         is = ind;
         ia = j;
         sum = 0.;
         k = 0;

         do {
            if (k > i__) is += k;
            else         ++is;
            sum += s[is] * a[ia];
            ia += m;
            ++k;
         } while  (k < n);
         iaa = i__ * m;

         for (k = 1; k <= j; ++k) {
            ++iaa;
            ++ir;
            r__[ir] += sum * a[iaa];
         }
      }
      ++i__;
   } while (i__ < n);
   ++r__;
   return r__;
} /* tratsa_ */

//____________________________________________________________
// trchlu.F -- translated by f2c (version 19970219).
float *TCL::trchlu(const float *a, float *b, int n)
{
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   /* Local variables */
   int ipiv, kpiv, i__, j;
   double r__, dc;
   int id, kd;
   double sum;


   /* CERN PROGLIB# F112    TRCHLU          .VERSION KERNFOR  4.16  870601 */
   /* ORIG. 18/12/74 W.HART */


   /* Parameter adjuTments */
   --b;    --a;

   /* Function Body */
   ipiv = 0;

   i__ = 0;

   do {
      ++i__;
      ipiv += i__;
      kpiv = ipiv;
      r__ = a[ipiv];

      for (j = i__; j <= n; ++j) {
         sum = 0.;
         if (i__ == 1)           goto L40;
         if (r__ == 0.)      goto L42;
         id = ipiv - i__ + 1;
         kd = kpiv - i__ + 1;

         do {
            sum += b[kd] * b[id];
            ++kd;       ++id;
         } while (id < ipiv);

L40:
         sum = a[kpiv] - sum;
L42:
         if (j != i__) b[kpiv] = sum * r__;
         else {
            dc = TMath::Sqrt(sum);
            b[kpiv] = dc;
            if (r__ > 0.)  r__ = 1. / dc;
         }
         kpiv += j;
      }

   } while  (i__ < n);
   ++b;
   return b;
} /* trchlu_ */

//____________________________________________________________
// trchul.F -- translated by f2c (version 19970219).
/* Subroutine */float *TCL::trchul(const float *a, float *b, int n)
{
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   /* Local variables */
   int ipiv, kpiv, i__;
   double r__;
   int nTep;
   double dc;
   int id, kd;
   double sum;


   /* CERN PROGLIB# F112    TRCHUL          .VERSION KERNFOR  4.16  870601 */
   /* ORIG. 18/12/74 WH */


   /* Parameter adjuTments */
   --b;    --a;

   /* Function Body */
   kpiv = (n * n + n) / 2;

   i__ = n;
   do {
      ipiv = kpiv;
      r__ = a[ipiv];

      do {
         sum = 0.;
         if (i__ == n)   goto L40;
         if (r__ == 0.)  goto L42;
         id = ipiv;
         kd = kpiv;
         nTep = i__;

         do {
            kd += nTep;
            id += nTep;
            ++nTep;
            sum += b[id] * b[kd];
         } while  (nTep < n);

L40:
         sum = a[kpiv] - sum;
L42:
         if (kpiv < ipiv) b[kpiv] = sum * r__;
         else {
            dc = TMath::Sqrt(sum);
            b[kpiv] = dc;
            if (r__ > 0.)         r__ = 1. / dc;
         }
         --kpiv;
      } while (kpiv > ipiv - i__);

      --i__;
   } while  (i__ > 0);

   ++b;
   return b;
} /* trchul_ */

//____________________________________________________________
/* Subroutine */float *TCL::trinv(const float *t, float *s, int n)
{
   // trinv.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRINV           .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   int lhor, ipiv, lver, j;
   double sum = 0;
   double r__ = 0;
   int mx, ndTep, ind;


   /* Parameter adjuTments */
   --s;    --t;

   /* Function Body */
   mx = (n * n + n) / 2;
   ipiv = mx;

   int i = n;
   do {
      r__ = 0.;
      if (t[ipiv] > 0.) r__ = 1. / t[ipiv];
      s[ipiv] = r__;
      ndTep = n;
      ind = mx - n + i;

      while (ind != ipiv) {
         sum = 0.;
         if (r__ != 0.) {
            lhor = ipiv;
            lver = ind;
            j = i;

            do {
               lhor += j;
               ++lver;
               sum += t[lhor] * s[lver];
               ++j;
            } while  (lhor < ind);
         }
         s[ind] = -sum * r__;
         --ndTep;
         ind -= ndTep;
      }

      ipiv -= i;
      --i;
   } while (i > 0);

   ++s;
   return s;
} /* trinv_ */

//____________________________________________________________
// trla.F -- translated by f2c (version 19970219).
/* Subroutine */float *TCL::trla(const float *u, const float *a, float *b, int m, int n)
{
   int ipiv, ia, ib, iu;
   double sum;

   /* CERN PROGLIB# F112    TRLA            .VERSION KERNFOR  4.15  861204 */
   /* ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML


   /* Parameter adjuTments */
   --b;    --a;    --u;

   /* Function Body */
   ib = m * n;
   ipiv = (m * m + m) / 2;

   do {
      do {
         ia = ib;
         iu = ipiv;

         sum = 0.;
         do {
            sum += a[ia] * u[iu];
            --iu;
            ia -= n;
         } while (ia > 0);

         b[ib] = sum;
         --ib;
      } while (ia > 1 - n);

      ipiv = iu;
   } while (iu > 0);

   ++b;
   return b;
} /* trla_ */

//____________________________________________________________
/* trlta.F -- translated by f2c (version 19970219).
// Subroutine */float *TCL::trlta(const float *u, const float *a, float *b, int m, int n)
{
   int ipiv, mxpn, i__, nTep, ia, ib, iu, mx;
   double sum;

   /* CERN PROGLIB# F112    TRLTA           .VERSION KERNFOR  4.15  861204 */
   /* ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML


   /* Parameter adjuTments */
   --b;    --a;    --u;

   /* Function Body */
   ipiv = 0;
   mx = m * n;
   mxpn = mx + n;
   ib = 0;

   i__ = 0;
   do {
      ++i__;
      ipiv += i__;

      do {
         iu = ipiv;
         nTep = i__;
         ++ib;
         ia = ib;

         sum = 0.;
         do {
            sum += a[ia] * u[iu];
            ia += n;
            iu += nTep;
            ++nTep;
         } while (ia <= mx);

         b[ib] = sum;
      } while (ia < mxpn);

   } while (i__ < m);

   ++b;
   return b;
} /* trlta_ */

//____________________________________________________________
float *TCL::trpck(const float *s, float *u, int n)
{
   // trpck.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRPCK           .VERSION KERNFOR  2.08  741218 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   int i__, ia, ind, ipiv;

   /* Parameter adjuTments */
   --u;    --s;

   /* Function Body */
   ia = 0;
   ind = 0;
   ipiv = 0;

   for (i__ = 1; i__ <= n; ++i__) {
      ipiv += i__;
      do {
         ++ia;
         ++ind;
         u[ind] = s[ia];
      } while (ind < ipiv);
      ia = ia + n - i__;
   }

   ++u;
   return u;
} /* trpck_ */

//____________________________________________________________
float *TCL::trqsq(const float *q, const float *s, float *r__, int m)
{
   // trqsq.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRQSQ           .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   int indq, inds, imax, i__, j, k, l;
   int iq, ir, is, iqq;
   double sum;

   /* Parameter adjuTments */
   --r__;    --s;    --q;

   /* Function Body */
   imax = (m * m + m) / 2;
   vzero(&r__[1], imax);
   inds = 0;
   i__ = 0;

   do {
      inds += i__;
      ir = 0;
      indq = 0;
      j = 0;

      do {
         indq += j;
         is = inds;
         iq = indq;
         sum = (float)0.;
         k = 0;

         do {
            if (k > i__)  is += k;
            else          ++is;

            if (k > j)    iq += k;
            else        ++iq;

            sum += s[is] * q[iq];
            ++k;
         } while (k < m);
         iqq = inds;
         l = 0;

         do {
            ++ir;
            if (l > i__)  iqq += l;
            else          ++iqq;
            r__[ir] += q[iqq] * sum;
            ++l;
         } while (l <= j);
         ++j;
      } while (j < m);
      ++i__;
   } while (i__ < m);

   ++r__;
   return r__;
} /* trqsq_ */

//____________________________________________________________
float *TCL::trsa(const float *s, const float *a, float *b, int m, int n)
{
   // trsa.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRSA            .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   /* Local variables */
   int inds, i__, j, k, ia, ib, is;
   double sum;

   /* Parameter adjuTments */
   --b;    --a;    --s;

   /* Function Body */
   inds = 0;
   ib = 0;
   i__ = 0;

   do {
      inds += i__;

      for (j = 1; j <= n; ++j) {
         ia = j;
         is = inds;
         sum = 0.;
         k = 0;

         do {
            if (k > i__) is += k;
            else         ++is;
            sum += s[is] * a[ia];
            ia += n;
            ++k;
         } while (k < m);
         ++ib;
         b[ib] = sum;
      }
      ++i__;
   } while (i__ < m);

   ++b;
   return b;
} /* trsa_ */

//____________________________________________________________
/* Subroutine */float *TCL::trsinv(const float *g, float *gi, int n)
{
   // trsinv.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRSINV          .VERSION KERNFOR  2.08  741218
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   /* Function Body */
   trchlu(g, gi, n);
   trinv(gi, gi, n);
   return trsmul(gi, gi, n);
} /* trsinv_ */

//____________________________________________________________
/* Subroutine */float *TCL::trsmlu(const float *u, float *s, int n)
{
   // trsmlu.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRSMLU          .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   /* Local variables */
   int lhor, lver, i__, k, l, ind;
   double sum;

   /* Parameter adjuTments */
   --s;    --u;

   /* Function Body */
   ind = (n * n + n) / 2;

   for (i__ = 1; i__ <= n; ++i__) {
      lver = ind;

      for (k = i__; k <= n; ++k,--ind) {
         lhor = ind;    sum = 0.;
         for (l = k; l <= n; ++l,--lver,--lhor)
            sum += u[lver] * u[lhor];
         s[ind] = sum;
      }
   }
   ++s;
   return s;
} /* trsmlu_ */

//____________________________________________________________
/* Subroutine */float *TCL::trsmul(const float *g, float *gi, int n)
{
   // trsmul.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRSMUL          .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   /* Local variables */
   int lhor, lver, lpiv, i__, j, k, ind;
   double sum;

   /* Parameter adjuTments */
   --gi;    --g;

   /* Function Body */
   ind = 1;
   lpiv = 0;
   for (i__ = 1; i__ <= n; ++i__) {
      lpiv += i__;
      for (j = 1; j <= i__; ++j,++ind) {
         lver = lpiv;
         lhor = ind;
         sum = 0.;
         for (k = i__; k <= n; lhor += k,lver += k,++k)
            sum += g[lver] * g[lhor];
         gi[ind] = sum;
      }
   }
   ++gi;
   return gi;
} /* trsmul_ */

//____________________________________________________________
float *TCL::trupck(const float *u, float *s, int m)
{
   // trupck.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRUPCK          .VERSION KERNFOR  2.08  741218
   // ORIG. 18/12/74 WH
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML


   int i__, im, is, iu, iv, ih, m2;

   /* Parameter adjuTments */
   --s;    --u;

   /* Function Body */
   m2 = m * m;
   is = m2;
   iu = (m2 + m) / 2;
   i__ = m - 1;

   do {
      im = i__ * m;
      do {
         s[is] = u[iu];
         --is;
         --iu;
      } while (is > im);
      is = is - m + i__;
      --i__;
   } while (i__ >= 0);

   is = 1;
   do {
      iv = is;
      ih = is;
      while (1) {
         iv += m;
         ++ih;
         if (iv > m2)    break;
         s[ih] = s[iv];
      }
      is = is + m + 1;
   } while (is < m2);

   ++s;
   return s;
} /* trupck_ */

//____________________________________________________________
/* trsat.F -- translated by f2c (version 19970219).
// Subroutine */ float *TCL::trsat(const float *s, const float *a, float *b, int m, int n)
{
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   /* Local variables */
   int inds, i__, j, k, ia, ib, is;
   double sum;


   /* CERN PROGLIB# F112    TRSAT           .VERSION KERNFOR  4.15  861204 */
   /* ORIG. 18/12/74 WH */


   /* Parameter adjuTments */
   --b;    --a;    --s;

   /* Function Body */
   inds = 0;
   ib = 0;
   i__ = 0;

   do {
      inds += i__;
      ia = 0;

      for (j = 1; j <= n; ++j) {
         is = inds;
         sum = 0.;
         k = 0;

         do {
            if (k > i__) is += k;
            else         ++is;
            ++ia;
            sum += s[is] * a[ia];
            ++k;
         } while (k < m);
         ++ib;
         b[ib] = sum;
      }
      ++i__;
   } while (i__ < m);

   ++b;
   return b;
} /* trsat_ */

// ------  double

//____________________________________________________________
// trata.F -- translated by f2c (version 19970219).
double *TCL::trata(const double *a, double *r__, int m, int n)
{
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   /* Local variables */
   int i__, j, ia, mn, ir, iat;
   double sum;


   /* CERN PROGLIB# F112    TRATA           .VERSION KERNFOR  4.15  861204 */
   /* ORIG. 18/12/74 WH */


   /* Parameter adjuTments */
   --r__;    --a;

   /* Function Body */
    mn = m * n;
   ir = 0;

   for (i__ = 1; i__ <= m; ++i__) {

      for (j = 1; j <= i__; ++j) {
         ia = i__;
         iat = j;

         sum = (double)0.;
         do {
            sum += a[ia] * a[iat];
            ia +=  m;
            iat += m;
         } while  (ia <= mn);
         ++ir;
         r__[ir] = sum;
      }
   }

   return 0;
} /* trata_ */

//____________________________________________________________
// trats.F -- translated by f2c (version 19970219).
double *TCL::trats(const double *a, const double *s, double *b, int m, int n)
{
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   /* Local variables */
   int inds, i__, j, k, ia, ib, is;
   double sum;


   /* CERN PROGLIB# F112    TRATS           .VERSION KERNFOR  4.15  861204 */
   /* ORIG. 18/12/74 WH */

   /* Parameter adjuTments */
   --b;    --s;    --a;

   /* Function Body */
   ib = 0;    inds = 0;    i__ = 0;

   do {
      inds += i__;
      ib = i__ + 1;

      for (j = 1; j <= m; ++j) {
         ia = j;
         is = inds;
         sum = (double)0.;
         k = 0;

         do {
            if (k > i__) is += k;
            else         ++is;
            sum += a[ia] * s[is];
            ia += m;
            ++k;
         } while (k < n);

         b[ib] = sum;
         ib += n;
      }
      ++i__;
   } while (i__ < n);

   return 0;
} /* trats_ */

//____________________________________________________________
// tratsa.F -- translated by f2c (version 19970219).
/* Subroutine */double *TCL::tratsa(const double *a, const double *s, double *r__, int m, int n)
{
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   /* Local variables */
   int imax, i__, j, k;
   int ia, ir, is, iaa, ind;
   double sum;

   /* CERN PROGLIB# F112    TRATSA          .VERSION KERNFOR  4.15  861204 */
   /* ORIG. 18/12/74 WH */


   /* Parameter adjuTments */
   --r__;    --s;    --a;

   /* Function Body */
   imax = (m * m + m) / 2;
   vzero(&r__[1], imax);
   ind = 0;
   i__ = 0;

   do {
      ind += i__;
      ir = 0;

      for (j = 1; j <= m; ++j) {
         is = ind;
         ia = j;
         sum = (double)0.;
         k = 0;

         do {
            if (k > i__) is += k;
            else         ++is;
            sum += s[is] * a[ia];
            ia += m;
            ++k;
         } while  (k < n);
         iaa = i__ * m;

         for (k = 1; k <= j; ++k) {
            ++iaa;
            ++ir;
            r__[ir] += sum * a[iaa];
         }
      }
      ++i__;
   } while (i__ < n);

   return 0;
} /* tratsa_ */

//____________________________________________________________
double *TCL::trchlu(const double *a, double *b, int n)
{
   // trchlu.F -- translated by f2c (version 19970219).
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   /* Local variables */
   int ipiv, kpiv, i__, j;
   double r__, dc;
   int id, kd;
   double sum;


   /* CERN PROGLIB# F112    TRCHLU          .VERSION KERNFOR  4.16  870601 */
   /* ORIG. 18/12/74 W.HART */


   /* Parameter adjuTments */
   --b;    --a;

   /* Function Body */
   ipiv = 0;

   i__ = 0;

   do {
      ++i__;
      ipiv += i__;
      kpiv = ipiv;
      r__ = a[ipiv];

      for (j = i__; j <= n; ++j) {
         sum = 0.;
         if (i__ == 1)       goto L40;
         if (r__ == 0.)      goto L42;
         id = ipiv - i__ + 1;
         kd = kpiv - i__ + 1;

         do {
            sum += b[kd] * b[id];
            ++kd;   ++id;
         } while (id < ipiv);

L40:
         sum = a[kpiv] - sum;
L42:
         if (j != i__) b[kpiv] = sum * r__;
         else {
            dc = TMath::Sqrt(sum);
            b[kpiv] = dc;
            if (r__ > 0.)  r__ = (double)1. / dc;
         }
         kpiv += j;
      }

   } while  (i__ < n);

   return 0;
} /* trchlu_ */

//____________________________________________________________
// trchul.F -- translated by f2c (version 19970219).
double *TCL::trchul(const double *a, double *b, int n)
{
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   /* Local variables */
   int ipiv, kpiv, i__;
   double r__;
   int nTep;
   double dc;
   int id, kd;
   double sum;


   /* CERN PROGLIB# F112    TRCHUL          .VERSION KERNFOR  4.16  870601 */
   /* ORIG. 18/12/74 WH */


   /* Parameter adjuTments */
   --b;    --a;

   /* Function Body */
   kpiv = (n * n + n) / 2;

   i__ = n;
   do {
      ipiv = kpiv;
      r__ = a[ipiv];

      do {
         sum = 0.;
         if (i__ == n)           goto L40;
         if (r__ == (double)0.)  goto L42;
         id = ipiv;
         kd = kpiv;
         nTep = i__;

         do {
            kd += nTep;
            id += nTep;
            ++nTep;
            sum += b[id] * b[kd];
         } while  (nTep < n);

L40:
         sum = a[kpiv] - sum;
L42:
         if (kpiv < ipiv) b[kpiv] = sum * r__;
         else {
            dc = TMath::Sqrt(sum);
            b[kpiv] = dc;
            if (r__ > (double)0.)         r__ = (double)1. / dc;
         }
         --kpiv;
      } while (kpiv > ipiv - i__);

      --i__;
   } while  (i__ > 0);

   return 0;
} /* trchul_ */

//____________________________________________________________
double *TCL::trinv(const double *t, double *s, int n)
{
   // trinv.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRINV           .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
   //
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   int lhor, ipiv, lver,  j;
   double r__;
   int mx, ndTep, ind;
   double sum;

   /* Parameter adjuTments */
   --s;    --t;

   /* Function Body */
   mx = (n * n + n) / 2;
   ipiv = mx;

   int i = n;
   do {
      r__ = 0.;
      if (t[ipiv] > 0.)  r__ = (double)1. / t[ipiv];
      s[ipiv] = r__;
      ndTep = n;
      ind = mx - n + i;

      while (ind != ipiv) {
         sum = 0.;
         if (r__ != 0.) {
            lhor = ipiv;
            lver = ind;
            j = i;

            do {
               lhor += j;
               ++lver;
               sum += t[lhor] * s[lver];
               ++j;
            } while  (lhor < ind);
         }
         s[ind] = -sum * r__;
         --ndTep;
         ind -= ndTep;
      }

      ipiv -= i;
      --i;
   } while (i > 0);

   return 0;
} /* trinv_ */

//____________________________________________________________
/* Subroutine */double *TCL::trla(const double *u, const double *a, double *b, int m, int n)
{
   //
   // trla.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRLA            .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
   //
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   int ipiv, ia, ib, iu;
   double sum;

   /* Parameter adjuTments */
   --b;    --a;    --u;

   /* Function Body */
   ib = m * n;
   ipiv = (m * m + m) / 2;

   do {
      do {
         ia = ib;
         iu = ipiv;

         sum = 0.;
         do {
            sum += a[ia] * u[iu];
            --iu;
            ia -= n;
         } while (ia > 0);

         b[ib] = sum;
         --ib;
      } while (ia > 1 - n);

      ipiv = iu;
   } while (iu > 0);

   return 0;
} /* trla_ */

//____________________________________________________________
double *TCL::trlta(const double *u, const double *a, double *b, int m, int n)
{
   // trlta.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRLTA           .VERSION KERNFOR  4.15  861204
   // ORIG. 18/12/74 WH
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   int ipiv, mxpn, i__, nTep, ia, ib, iu, mx;
   double sum;

   /* Parameter adjuTments */
   --b;    --a;    --u;

   /* Function Body */
   ipiv = 0;
   mx = m * n;
   mxpn = mx + n;
   ib = 0;

   i__ = 0;
   do {
      ++i__;
      ipiv += i__;

      do {
         iu = ipiv;
         nTep = i__;
         ++ib;
         ia = ib;

         sum = 0.;
         do {
            sum += a[ia] * u[iu];
            ia += n;
            iu += nTep;
            ++nTep;
         } while (ia <= mx);

         b[ib] = sum;
      } while (ia < mxpn);

   } while (i__ < m);

   return 0;
} /* trlta_ */

//____________________________________________________________
/* Subroutine */double *TCL::trpck(const double *s, double *u, int n)
{
   // trpck.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRPCK           .VERSION KERNFOR  2.08  741218 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   int i__, ia, ind, ipiv;

   /* Parameter adjuTments */
   --u;    --s;

   /* Function Body */
   ia = 0;
   ind = 0;
   ipiv = 0;

   for (i__ = 1; i__ <= n; ++i__) {
      ipiv += i__;
      do {
         ++ia;
         ++ind;
         u[ind] = s[ia];
      } while (ind < ipiv);
      ia = ia + n - i__;
   }

   return 0;
} /* trpck_ */

//____________________________________________________________
double *TCL::trqsq(const double *q, const double *s, double *r__, int m)
{
   // trqsq.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRQSQ           .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   int indq, inds, imax, i__, j, k, l;
   int iq, ir, is, iqq;
   double sum;

   /* Parameter adjuTments */
   --r__;    --s;    --q;

   /* Function Body */
   imax = (m * m + m) / 2;
   vzero(&r__[1], imax);
   inds = 0;
   i__ = 0;

   do {
      inds += i__;
      ir = 0;
      indq = 0;
      j = 0;

      do {
         indq += j;
         is = inds;
         iq = indq;
         sum = 0.;
         k = 0;

         do {
            if (k > i__)  is += k;
            else          ++is;

            if (k > j)    iq += k;
            else        ++iq;

            sum += s[is] * q[iq];
            ++k;
         } while (k < m);
         iqq = inds;
         l = 0;

         do {
            ++ir;
            if (l > i__)  iqq += l;
            else          ++iqq;
            r__[ir] += q[iqq] * sum;
            ++l;
         } while (l <= j);
         ++j;
      } while (j < m);
      ++i__;
   } while (i__ < m);

   return 0;
} /* trqsq_ */

//____________________________________________________________
double *TCL::trsa(const double *s, const double *a, double *b, int m, int n)
{
   // trsa.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRSA            .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML
   /* Local variables */
   int inds, i__, j, k, ia, ib, is;
   double sum;

   /* Parameter adjuTments */
   --b;    --a;    --s;

   /* Function Body */
   inds = 0;
   ib = 0;
   i__ = 0;

   do {
      inds += i__;

      for (j = 1; j <= n; ++j) {
         ia = j;
         is = inds;
         sum = 0.;
         k = 0;

         do {
            if (k > i__) is += k;
            else         ++is;
            sum += s[is] * a[ia];
            ia += n;
            ++k;
         } while (k < m);
         ++ib;
         b[ib] = sum;
      }
      ++i__;
   } while (i__ < m);

   return 0;
} /* trsa_ */

//____________________________________________________________
/* Subroutine */double *TCL::trsinv(const double *g, double *gi, int n)
{
   // trsinv.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRSINV          .VERSION KERNFOR  2.08  741218
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   /* Function Body */
   trchlu(g, gi, n);
   trinv(gi, gi, n);
   trsmul(gi, gi, n);

   return 0;
} /* trsinv_ */

//____________________________________________________________
/* Subroutine */double *TCL::trsmlu(const double *u, double *s, int n)
{
   // trsmlu.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRSMLU          .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   /* Local variables */
   int lhor, lver, i__, k, l, ind;
   double sum;

   /* Parameter adjuTments */
   --s;    --u;

   /* Function Body */
   ind = (n * n + n) / 2;

   for (i__ = 1; i__ <= n; ++i__) {
      lver = ind;

      for (k = i__; k <= n; ++k,--ind) {
         lhor = ind;    sum = 0.;
         for (l = k; l <= n; ++l,--lver,--lhor)
            sum += u[lver] * u[lhor];
         s[ind] = sum;
      }
   }

   return 0;
} /* trsmlu_ */

//____________________________________________________________
/* Subroutine */double *TCL::trsmul(const double *g, double *gi, int n)
{
   // trsmul.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRSMUL          .VERSION KERNFOR  4.15  861204 */
   // ORIG. 18/12/74 WH */
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   /* Local variables */
   int lhor, lver, lpiv, i__, j, k, ind;
   double sum;

   /* Parameter adjuTments */
   --gi;    --g;

   /* Function Body */
   ind = 1;
   lpiv = 0;
   for (i__ = 1; i__ <= n; ++i__) {
      lpiv += i__;
      for (j = 1; j <= i__; ++j,++ind) {
         lver = lpiv;
         lhor = ind;
         sum = 0.;
         for (k = i__; k <= n;lhor += k,lver += k,++k)
            sum += g[lver] * g[lhor];
         gi[ind] = sum;
      }
   }

   return 0;
} /* trsmul_ */

//____________________________________________________________
/* Subroutine */double *TCL::trupck(const double *u, double *s, int m)
{
   // trupck.F -- translated by f2c (version 19970219).
   // CERN PROGLIB# F112    TRUPCK          .VERSION KERNFOR  2.08  741218
   // ORIG. 18/12/74 WH
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML


   int i__, im, is, iu, iv, ih, m2;

   /* Parameter adjuTments */
   --s;    --u;

   /* Function Body */
   m2 = m * m;
   is = m2;
   iu = (m2 + m) / 2;
   i__ = m - 1;

   do {
      im = i__ * m;
      do {
         s[is] = u[iu];
         --is;
         --iu;
      } while (is > im);
      is = is - m + i__;
      --i__;
   } while (i__ >= 0);

   is = 1;
   do {
      iv = is;
      ih = is;
      while (1) {
         iv += m;
         ++ih;
         if (iv > m2)    break;
         s[ih] = s[iv];
      }
      is = is + m + 1;
   } while (is < m2);

   return 0;
} /* trupck_ */

//____________________________________________________________
double *TCL::trsat(const double *s, const double *a, double *b, int m, int n)
{
   // trsat.F -- translated by f2c (version 19970219)
   // CERN PROGLIB# F112    TRSAT           .VERSION KERNFOR  4.15  861204
   // ORIG. 18/12/74 WH
 //BEGIN_HTML <!--
 /* -->
  <b>see original documentation of CERNLIB package</b> <A HREF="http://wwwasdoc.web.cern.ch/wwwasdoc/shortwrupsdir/f112/top.html">F112</A>
 <!--*/
 // -->END_HTML

   /* Local variables */
   int inds, i__, j, k, ia, ib, is;
   double sum;

   /* Parameter adjuTments */
   --b;    --a;    --s;

   /* Function Body */
   inds = 0;
   ib = 0;
   i__ = 0;

   do {
      inds += i__;
      ia = 0;

      for (j = 1; j <= n; ++j) {
         is = inds;
         sum = 0.;
         k = 0;

         do {
            if (k > i__) is += k;
            else         ++is;
            ++ia;
            sum += s[is] * a[ia];
            ++k;
         } while (k < m);
         ++ib;
         b[ib] = sum;
      }
      ++i__;
   } while (i__ < m);

   return 0;
} /* trsat_ */

// ------------ Victor Perevoztchikov's addition

//_____________________________________________________________________________
float *TCL::trsequ(float *smx, int m, float *b, int n)
{
   // Linear Equations, Matrix Inversion
   // trsequ solves the matrix equation
   //
   //             SMX*x = B
   //
   // which represents a system of m simultaneous linear equations with n right-hand sides:
   // SMX is an  unpacked symmetric matrix (all  elements) (m x m)
   // B is an unpacked matrix of right-hand sides (n x m)
   //
   float *mem = new float[(m*(m+1))/2+m];
   float *v = mem;
   float *s = v+m;
   if (!b) n=0;
   TCL::trpck (smx,s    ,m);
   TCL::trsinv(s  ,s,    m);

   for (int i=0;i<n;i++) {
      TCL::trsa  (s  ,b+i*m, v, m, 1);
      TCL::ucopy (v  ,b+i*m, m);}
   TCL::trupck(s  ,smx,  m);
   delete [] mem;
   return b;
}
//_____________________________________________________________________________
double *TCL::trsequ(double *smx, int m, double *b, int n)
{
   // Linear Equations, Matrix Inversion
   // trsequ solves the matrix equation
   //
   //             SMX*x = B
   //
   // which represents a system of m simultaneous linear equations with n right-hand sides:
   // SMX is an  unpacked symmetric matrix (all  elements) (m x m)
   // B is an unpacked matrix of right-hand sides (n x m)
   //
   double *mem = new double[(m*(m+1))/2+m];
   double *v = mem;
   double *s = v+m;
   if (!b) n=0;
   TCL::trpck (smx,s    ,m);
   TCL::trsinv(s  ,s,    m);

   for (int i=0;i<n;i++) {
      TCL::trsa  (s  ,b+i*m, v, m, 1);
      TCL::ucopy (v  ,b+i*m, m);}
   TCL::trupck(s  ,smx,  m);
   delete [] mem;
   return b;
}

 TCernLib.cxx:1
 TCernLib.cxx:2
 TCernLib.cxx:3
 TCernLib.cxx:4
 TCernLib.cxx:5
 TCernLib.cxx:6
 TCernLib.cxx:7
 TCernLib.cxx:8
 TCernLib.cxx:9
 TCernLib.cxx:10
 TCernLib.cxx:11
 TCernLib.cxx:12
 TCernLib.cxx:13
 TCernLib.cxx:14
 TCernLib.cxx:15
 TCernLib.cxx:16
 TCernLib.cxx:17
 TCernLib.cxx:18
 TCernLib.cxx:19
 TCernLib.cxx:20
 TCernLib.cxx:21
 TCernLib.cxx:22
 TCernLib.cxx:23
 TCernLib.cxx:24
 TCernLib.cxx:25
 TCernLib.cxx:26
 TCernLib.cxx:27
 TCernLib.cxx:28
 TCernLib.cxx:29
 TCernLib.cxx:30
 TCernLib.cxx:31
 TCernLib.cxx:32
 TCernLib.cxx:33
 TCernLib.cxx:34
 TCernLib.cxx:35
 TCernLib.cxx:36
 TCernLib.cxx:37
 TCernLib.cxx:38
 TCernLib.cxx:39
 TCernLib.cxx:40
 TCernLib.cxx:41
 TCernLib.cxx:42
 TCernLib.cxx:43
 TCernLib.cxx:44
 TCernLib.cxx:45
 TCernLib.cxx:46
 TCernLib.cxx:47
 TCernLib.cxx:48
 TCernLib.cxx:49
 TCernLib.cxx:50
 TCernLib.cxx:51
 TCernLib.cxx:52
 TCernLib.cxx:53
 TCernLib.cxx:54
 TCernLib.cxx:55
 TCernLib.cxx:56
 TCernLib.cxx:57
 TCernLib.cxx:58
 TCernLib.cxx:59
 TCernLib.cxx:60
 TCernLib.cxx:61
 TCernLib.cxx:62
 TCernLib.cxx:63
 TCernLib.cxx:64
 TCernLib.cxx:65
 TCernLib.cxx:66
 TCernLib.cxx:67
 TCernLib.cxx:68
 TCernLib.cxx:69
 TCernLib.cxx:70
 TCernLib.cxx:71
 TCernLib.cxx:72
 TCernLib.cxx:73
 TCernLib.cxx:74
 TCernLib.cxx:75
 TCernLib.cxx:76
 TCernLib.cxx:77
 TCernLib.cxx:78
 TCernLib.cxx:79
 TCernLib.cxx:80
 TCernLib.cxx:81
 TCernLib.cxx:82
 TCernLib.cxx:83
 TCernLib.cxx:84
 TCernLib.cxx:85
 TCernLib.cxx:86
 TCernLib.cxx:87
 TCernLib.cxx:88
 TCernLib.cxx:89
 TCernLib.cxx:90
 TCernLib.cxx:91
 TCernLib.cxx:92
 TCernLib.cxx:93
 TCernLib.cxx:94
 TCernLib.cxx:95
 TCernLib.cxx:96
 TCernLib.cxx:97
 TCernLib.cxx:98
 TCernLib.cxx:99
 TCernLib.cxx:100
 TCernLib.cxx:101
 TCernLib.cxx:102
 TCernLib.cxx:103
 TCernLib.cxx:104
 TCernLib.cxx:105
 TCernLib.cxx:106
 TCernLib.cxx:107
 TCernLib.cxx:108
 TCernLib.cxx:109
 TCernLib.cxx:110
 TCernLib.cxx:111
 TCernLib.cxx:112
 TCernLib.cxx:113
 TCernLib.cxx:114
 TCernLib.cxx:115
 TCernLib.cxx:116
 TCernLib.cxx:117
 TCernLib.cxx:118
 TCernLib.cxx:119
 TCernLib.cxx:120
 TCernLib.cxx:121
 TCernLib.cxx:122
 TCernLib.cxx:123
 TCernLib.cxx:124
 TCernLib.cxx:125
 TCernLib.cxx:126
 TCernLib.cxx:127
 TCernLib.cxx:128
 TCernLib.cxx:129
 TCernLib.cxx:130
 TCernLib.cxx:131
 TCernLib.cxx:132
 TCernLib.cxx:133
 TCernLib.cxx:134
 TCernLib.cxx:135
 TCernLib.cxx:136
 TCernLib.cxx:137
 TCernLib.cxx:138
 TCernLib.cxx:139
 TCernLib.cxx:140
 TCernLib.cxx:141
 TCernLib.cxx:142
 TCernLib.cxx:143
 TCernLib.cxx:144
 TCernLib.cxx:145
 TCernLib.cxx:146
 TCernLib.cxx:147
 TCernLib.cxx:148
 TCernLib.cxx:149
 TCernLib.cxx:150
 TCernLib.cxx:151
 TCernLib.cxx:152
 TCernLib.cxx:153
 TCernLib.cxx:154
 TCernLib.cxx:155
 TCernLib.cxx:156
 TCernLib.cxx:157
 TCernLib.cxx:158
 TCernLib.cxx:159
 TCernLib.cxx:160
 TCernLib.cxx:161
 TCernLib.cxx:162
 TCernLib.cxx:163
 TCernLib.cxx:164
 TCernLib.cxx:165
 TCernLib.cxx:166
 TCernLib.cxx:167
 TCernLib.cxx:168
 TCernLib.cxx:169
 TCernLib.cxx:170
 TCernLib.cxx:171
 TCernLib.cxx:172
 TCernLib.cxx:173
 TCernLib.cxx:174
 TCernLib.cxx:175
 TCernLib.cxx:176
 TCernLib.cxx:177
 TCernLib.cxx:178
 TCernLib.cxx:179
 TCernLib.cxx:180
 TCernLib.cxx:181
 TCernLib.cxx:182
 TCernLib.cxx:183
 TCernLib.cxx:184
 TCernLib.cxx:185
 TCernLib.cxx:186
 TCernLib.cxx:187
 TCernLib.cxx:188
 TCernLib.cxx:189
 TCernLib.cxx:190
 TCernLib.cxx:191
 TCernLib.cxx:192
 TCernLib.cxx:193
 TCernLib.cxx:194
 TCernLib.cxx:195
 TCernLib.cxx:196
 TCernLib.cxx:197
 TCernLib.cxx:198
 TCernLib.cxx:199
 TCernLib.cxx:200
 TCernLib.cxx:201
 TCernLib.cxx:202
 TCernLib.cxx:203
 TCernLib.cxx:204
 TCernLib.cxx:205
 TCernLib.cxx:206
 TCernLib.cxx:207
 TCernLib.cxx:208
 TCernLib.cxx:209
 TCernLib.cxx:210
 TCernLib.cxx:211
 TCernLib.cxx:212
 TCernLib.cxx:213
 TCernLib.cxx:214
 TCernLib.cxx:215
 TCernLib.cxx:216
 TCernLib.cxx:217
 TCernLib.cxx:218
 TCernLib.cxx:219
 TCernLib.cxx:220
 TCernLib.cxx:221
 TCernLib.cxx:222
 TCernLib.cxx:223
 TCernLib.cxx:224
 TCernLib.cxx:225
 TCernLib.cxx:226
 TCernLib.cxx:227
 TCernLib.cxx:228
 TCernLib.cxx:229
 TCernLib.cxx:230
 TCernLib.cxx:231
 TCernLib.cxx:232
 TCernLib.cxx:233
 TCernLib.cxx:234
 TCernLib.cxx:235
 TCernLib.cxx:236
 TCernLib.cxx:237
 TCernLib.cxx:238
 TCernLib.cxx:239
 TCernLib.cxx:240
 TCernLib.cxx:241
 TCernLib.cxx:242
 TCernLib.cxx:243
 TCernLib.cxx:244
 TCernLib.cxx:245
 TCernLib.cxx:246
 TCernLib.cxx:247
 TCernLib.cxx:248
 TCernLib.cxx:249
 TCernLib.cxx:250
 TCernLib.cxx:251
 TCernLib.cxx:252
 TCernLib.cxx:253
 TCernLib.cxx:254
 TCernLib.cxx:255
 TCernLib.cxx:256
 TCernLib.cxx:257
 TCernLib.cxx:258
 TCernLib.cxx:259
 TCernLib.cxx:260
 TCernLib.cxx:261
 TCernLib.cxx:262
 TCernLib.cxx:263
 TCernLib.cxx:264
 TCernLib.cxx:265
 TCernLib.cxx:266
 TCernLib.cxx:267
 TCernLib.cxx:268
 TCernLib.cxx:269
 TCernLib.cxx:270
 TCernLib.cxx:271
 TCernLib.cxx:272
 TCernLib.cxx:273
 TCernLib.cxx:274
 TCernLib.cxx:275
 TCernLib.cxx:276
 TCernLib.cxx:277
 TCernLib.cxx:278
 TCernLib.cxx:279
 TCernLib.cxx:280
 TCernLib.cxx:281
 TCernLib.cxx:282
 TCernLib.cxx:283
 TCernLib.cxx:284
 TCernLib.cxx:285
 TCernLib.cxx:286
 TCernLib.cxx:287
 TCernLib.cxx:288
 TCernLib.cxx:289
 TCernLib.cxx:290
 TCernLib.cxx:291
 TCernLib.cxx:292
 TCernLib.cxx:293
 TCernLib.cxx:294
 TCernLib.cxx:295
 TCernLib.cxx:296
 TCernLib.cxx:297
 TCernLib.cxx:298
 TCernLib.cxx:299
 TCernLib.cxx:300
 TCernLib.cxx:301
 TCernLib.cxx:302
 TCernLib.cxx:303
 TCernLib.cxx:304
 TCernLib.cxx:305
 TCernLib.cxx:306
 TCernLib.cxx:307
 TCernLib.cxx:308
 TCernLib.cxx:309
 TCernLib.cxx:310
 TCernLib.cxx:311
 TCernLib.cxx:312
 TCernLib.cxx:313
 TCernLib.cxx:314
 TCernLib.cxx:315
 TCernLib.cxx:316
 TCernLib.cxx:317
 TCernLib.cxx:318
 TCernLib.cxx:319
 TCernLib.cxx:320
 TCernLib.cxx:321
 TCernLib.cxx:322
 TCernLib.cxx:323
 TCernLib.cxx:324
 TCernLib.cxx:325
 TCernLib.cxx:326
 TCernLib.cxx:327
 TCernLib.cxx:328
 TCernLib.cxx:329
 TCernLib.cxx:330
 TCernLib.cxx:331
 TCernLib.cxx:332
 TCernLib.cxx:333
 TCernLib.cxx:334
 TCernLib.cxx:335
 TCernLib.cxx:336
 TCernLib.cxx:337
 TCernLib.cxx:338
 TCernLib.cxx:339
 TCernLib.cxx:340
 TCernLib.cxx:341
 TCernLib.cxx:342
 TCernLib.cxx:343
 TCernLib.cxx:344
 TCernLib.cxx:345
 TCernLib.cxx:346
 TCernLib.cxx:347
 TCernLib.cxx:348
 TCernLib.cxx:349
 TCernLib.cxx:350
 TCernLib.cxx:351
 TCernLib.cxx:352
 TCernLib.cxx:353
 TCernLib.cxx:354
 TCernLib.cxx:355
 TCernLib.cxx:356
 TCernLib.cxx:357
 TCernLib.cxx:358
 TCernLib.cxx:359
 TCernLib.cxx:360
 TCernLib.cxx:361
 TCernLib.cxx:362
 TCernLib.cxx:363
 TCernLib.cxx:364
 TCernLib.cxx:365
 TCernLib.cxx:366
 TCernLib.cxx:367
 TCernLib.cxx:368
 TCernLib.cxx:369
 TCernLib.cxx:370
 TCernLib.cxx:371
 TCernLib.cxx:372
 TCernLib.cxx:373
 TCernLib.cxx:374
 TCernLib.cxx:375
 TCernLib.cxx:376
 TCernLib.cxx:377
 TCernLib.cxx:378
 TCernLib.cxx:379
 TCernLib.cxx:380
 TCernLib.cxx:381
 TCernLib.cxx:382
 TCernLib.cxx:383
 TCernLib.cxx:384
 TCernLib.cxx:385
 TCernLib.cxx:386
 TCernLib.cxx:387
 TCernLib.cxx:388
 TCernLib.cxx:389
 TCernLib.cxx:390
 TCernLib.cxx:391
 TCernLib.cxx:392
 TCernLib.cxx:393
 TCernLib.cxx:394
 TCernLib.cxx:395
 TCernLib.cxx:396
 TCernLib.cxx:397
 TCernLib.cxx:398
 TCernLib.cxx:399
 TCernLib.cxx:400
 TCernLib.cxx:401
 TCernLib.cxx:402
 TCernLib.cxx:403
 TCernLib.cxx:404
 TCernLib.cxx:405
 TCernLib.cxx:406
 TCernLib.cxx:407
 TCernLib.cxx:408
 TCernLib.cxx:409
 TCernLib.cxx:410
 TCernLib.cxx:411
 TCernLib.cxx:412
 TCernLib.cxx:413
 TCernLib.cxx:414
 TCernLib.cxx:415
 TCernLib.cxx:416
 TCernLib.cxx:417
 TCernLib.cxx:418
 TCernLib.cxx:419
 TCernLib.cxx:420
 TCernLib.cxx:421
 TCernLib.cxx:422
 TCernLib.cxx:423
 TCernLib.cxx:424
 TCernLib.cxx:425
 TCernLib.cxx:426
 TCernLib.cxx:427
 TCernLib.cxx:428
 TCernLib.cxx:429
 TCernLib.cxx:430
 TCernLib.cxx:431
 TCernLib.cxx:432
 TCernLib.cxx:433
 TCernLib.cxx:434
 TCernLib.cxx:435
 TCernLib.cxx:436
 TCernLib.cxx:437
 TCernLib.cxx:438
 TCernLib.cxx:439
 TCernLib.cxx:440
 TCernLib.cxx:441
 TCernLib.cxx:442
 TCernLib.cxx:443
 TCernLib.cxx:444
 TCernLib.cxx:445
 TCernLib.cxx:446
 TCernLib.cxx:447
 TCernLib.cxx:448
 TCernLib.cxx:449
 TCernLib.cxx:450
 TCernLib.cxx:451
 TCernLib.cxx:452
 TCernLib.cxx:453
 TCernLib.cxx:454
 TCernLib.cxx:455
 TCernLib.cxx:456
 TCernLib.cxx:457
 TCernLib.cxx:458
 TCernLib.cxx:459
 TCernLib.cxx:460
 TCernLib.cxx:461
 TCernLib.cxx:462
 TCernLib.cxx:463
 TCernLib.cxx:464
 TCernLib.cxx:465
 TCernLib.cxx:466
 TCernLib.cxx:467
 TCernLib.cxx:468
 TCernLib.cxx:469
 TCernLib.cxx:470
 TCernLib.cxx:471
 TCernLib.cxx:472
 TCernLib.cxx:473
 TCernLib.cxx:474
 TCernLib.cxx:475
 TCernLib.cxx:476
 TCernLib.cxx:477
 TCernLib.cxx:478
 TCernLib.cxx:479
 TCernLib.cxx:480
 TCernLib.cxx:481
 TCernLib.cxx:482
 TCernLib.cxx:483
 TCernLib.cxx:484
 TCernLib.cxx:485
 TCernLib.cxx:486
 TCernLib.cxx:487
 TCernLib.cxx:488
 TCernLib.cxx:489
 TCernLib.cxx:490
 TCernLib.cxx:491
 TCernLib.cxx:492
 TCernLib.cxx:493
 TCernLib.cxx:494
 TCernLib.cxx:495
 TCernLib.cxx:496
 TCernLib.cxx:497
 TCernLib.cxx:498
 TCernLib.cxx:499
 TCernLib.cxx:500
 TCernLib.cxx:501
 TCernLib.cxx:502
 TCernLib.cxx:503
 TCernLib.cxx:504
 TCernLib.cxx:505
 TCernLib.cxx:506
 TCernLib.cxx:507
 TCernLib.cxx:508
 TCernLib.cxx:509
 TCernLib.cxx:510
 TCernLib.cxx:511
 TCernLib.cxx:512
 TCernLib.cxx:513
 TCernLib.cxx:514
 TCernLib.cxx:515
 TCernLib.cxx:516
 TCernLib.cxx:517
 TCernLib.cxx:518
 TCernLib.cxx:519
 TCernLib.cxx:520
 TCernLib.cxx:521
 TCernLib.cxx:522
 TCernLib.cxx:523
 TCernLib.cxx:524
 TCernLib.cxx:525
 TCernLib.cxx:526
 TCernLib.cxx:527
 TCernLib.cxx:528
 TCernLib.cxx:529
 TCernLib.cxx:530
 TCernLib.cxx:531
 TCernLib.cxx:532
 TCernLib.cxx:533
 TCernLib.cxx:534
 TCernLib.cxx:535
 TCernLib.cxx:536
 TCernLib.cxx:537
 TCernLib.cxx:538
 TCernLib.cxx:539
 TCernLib.cxx:540
 TCernLib.cxx:541
 TCernLib.cxx:542
 TCernLib.cxx:543
 TCernLib.cxx:544
 TCernLib.cxx:545
 TCernLib.cxx:546
 TCernLib.cxx:547
 TCernLib.cxx:548
 TCernLib.cxx:549
 TCernLib.cxx:550
 TCernLib.cxx:551
 TCernLib.cxx:552
 TCernLib.cxx:553
 TCernLib.cxx:554
 TCernLib.cxx:555
 TCernLib.cxx:556
 TCernLib.cxx:557
 TCernLib.cxx:558
 TCernLib.cxx:559
 TCernLib.cxx:560
 TCernLib.cxx:561
 TCernLib.cxx:562
 TCernLib.cxx:563
 TCernLib.cxx:564
 TCernLib.cxx:565
 TCernLib.cxx:566
 TCernLib.cxx:567
 TCernLib.cxx:568
 TCernLib.cxx:569
 TCernLib.cxx:570
 TCernLib.cxx:571
 TCernLib.cxx:572
 TCernLib.cxx:573
 TCernLib.cxx:574
 TCernLib.cxx:575
 TCernLib.cxx:576
 TCernLib.cxx:577
 TCernLib.cxx:578
 TCernLib.cxx:579
 TCernLib.cxx:580
 TCernLib.cxx:581
 TCernLib.cxx:582
 TCernLib.cxx:583
 TCernLib.cxx:584
 TCernLib.cxx:585
 TCernLib.cxx:586
 TCernLib.cxx:587
 TCernLib.cxx:588
 TCernLib.cxx:589
 TCernLib.cxx:590
 TCernLib.cxx:591
 TCernLib.cxx:592
 TCernLib.cxx:593
 TCernLib.cxx:594
 TCernLib.cxx:595
 TCernLib.cxx:596
 TCernLib.cxx:597
 TCernLib.cxx:598
 TCernLib.cxx:599
 TCernLib.cxx:600
 TCernLib.cxx:601
 TCernLib.cxx:602
 TCernLib.cxx:603
 TCernLib.cxx:604
 TCernLib.cxx:605
 TCernLib.cxx:606
 TCernLib.cxx:607
 TCernLib.cxx:608
 TCernLib.cxx:609
 TCernLib.cxx:610
 TCernLib.cxx:611
 TCernLib.cxx:612
 TCernLib.cxx:613
 TCernLib.cxx:614
 TCernLib.cxx:615
 TCernLib.cxx:616
 TCernLib.cxx:617
 TCernLib.cxx:618
 TCernLib.cxx:619
 TCernLib.cxx:620
 TCernLib.cxx:621
 TCernLib.cxx:622
 TCernLib.cxx:623
 TCernLib.cxx:624
 TCernLib.cxx:625
 TCernLib.cxx:626
 TCernLib.cxx:627
 TCernLib.cxx:628
 TCernLib.cxx:629
 TCernLib.cxx:630
 TCernLib.cxx:631
 TCernLib.cxx:632
 TCernLib.cxx:633
 TCernLib.cxx:634
 TCernLib.cxx:635
 TCernLib.cxx:636
 TCernLib.cxx:637
 TCernLib.cxx:638
 TCernLib.cxx:639
 TCernLib.cxx:640
 TCernLib.cxx:641
 TCernLib.cxx:642
 TCernLib.cxx:643
 TCernLib.cxx:644
 TCernLib.cxx:645
 TCernLib.cxx:646
 TCernLib.cxx:647
 TCernLib.cxx:648
 TCernLib.cxx:649
 TCernLib.cxx:650
 TCernLib.cxx:651
 TCernLib.cxx:652
 TCernLib.cxx:653
 TCernLib.cxx:654
 TCernLib.cxx:655
 TCernLib.cxx:656
 TCernLib.cxx:657
 TCernLib.cxx:658
 TCernLib.cxx:659
 TCernLib.cxx:660
 TCernLib.cxx:661
 TCernLib.cxx:662
 TCernLib.cxx:663
 TCernLib.cxx:664
 TCernLib.cxx:665
 TCernLib.cxx:666
 TCernLib.cxx:667
 TCernLib.cxx:668
 TCernLib.cxx:669
 TCernLib.cxx:670
 TCernLib.cxx:671
 TCernLib.cxx:672
 TCernLib.cxx:673
 TCernLib.cxx:674
 TCernLib.cxx:675
 TCernLib.cxx:676
 TCernLib.cxx:677
 TCernLib.cxx:678
 TCernLib.cxx:679
 TCernLib.cxx:680
 TCernLib.cxx:681
 TCernLib.cxx:682
 TCernLib.cxx:683
 TCernLib.cxx:684
 TCernLib.cxx:685
 TCernLib.cxx:686
 TCernLib.cxx:687
 TCernLib.cxx:688
 TCernLib.cxx:689
 TCernLib.cxx:690
 TCernLib.cxx:691
 TCernLib.cxx:692
 TCernLib.cxx:693
 TCernLib.cxx:694
 TCernLib.cxx:695
 TCernLib.cxx:696
 TCernLib.cxx:697
 TCernLib.cxx:698
 TCernLib.cxx:699
 TCernLib.cxx:700
 TCernLib.cxx:701
 TCernLib.cxx:702
 TCernLib.cxx:703
 TCernLib.cxx:704
 TCernLib.cxx:705
 TCernLib.cxx:706
 TCernLib.cxx:707
 TCernLib.cxx:708
 TCernLib.cxx:709
 TCernLib.cxx:710
 TCernLib.cxx:711
 TCernLib.cxx:712
 TCernLib.cxx:713
 TCernLib.cxx:714
 TCernLib.cxx:715
 TCernLib.cxx:716
 TCernLib.cxx:717
 TCernLib.cxx:718
 TCernLib.cxx:719
 TCernLib.cxx:720
 TCernLib.cxx:721
 TCernLib.cxx:722
 TCernLib.cxx:723
 TCernLib.cxx:724
 TCernLib.cxx:725
 TCernLib.cxx:726
 TCernLib.cxx:727
 TCernLib.cxx:728
 TCernLib.cxx:729
 TCernLib.cxx:730
 TCernLib.cxx:731
 TCernLib.cxx:732
 TCernLib.cxx:733
 TCernLib.cxx:734
 TCernLib.cxx:735
 TCernLib.cxx:736
 TCernLib.cxx:737
 TCernLib.cxx:738
 TCernLib.cxx:739
 TCernLib.cxx:740
 TCernLib.cxx:741
 TCernLib.cxx:742
 TCernLib.cxx:743
 TCernLib.cxx:744
 TCernLib.cxx:745
 TCernLib.cxx:746
 TCernLib.cxx:747
 TCernLib.cxx:748
 TCernLib.cxx:749
 TCernLib.cxx:750
 TCernLib.cxx:751
 TCernLib.cxx:752
 TCernLib.cxx:753
 TCernLib.cxx:754
 TCernLib.cxx:755
 TCernLib.cxx:756
 TCernLib.cxx:757
 TCernLib.cxx:758
 TCernLib.cxx:759
 TCernLib.cxx:760
 TCernLib.cxx:761
 TCernLib.cxx:762
 TCernLib.cxx:763
 TCernLib.cxx:764
 TCernLib.cxx:765
 TCernLib.cxx:766
 TCernLib.cxx:767
 TCernLib.cxx:768
 TCernLib.cxx:769
 TCernLib.cxx:770
 TCernLib.cxx:771
 TCernLib.cxx:772
 TCernLib.cxx:773
 TCernLib.cxx:774
 TCernLib.cxx:775
 TCernLib.cxx:776
 TCernLib.cxx:777
 TCernLib.cxx:778
 TCernLib.cxx:779
 TCernLib.cxx:780
 TCernLib.cxx:781
 TCernLib.cxx:782
 TCernLib.cxx:783
 TCernLib.cxx:784
 TCernLib.cxx:785
 TCernLib.cxx:786
 TCernLib.cxx:787
 TCernLib.cxx:788
 TCernLib.cxx:789
 TCernLib.cxx:790
 TCernLib.cxx:791
 TCernLib.cxx:792
 TCernLib.cxx:793
 TCernLib.cxx:794
 TCernLib.cxx:795
 TCernLib.cxx:796
 TCernLib.cxx:797
 TCernLib.cxx:798
 TCernLib.cxx:799
 TCernLib.cxx:800
 TCernLib.cxx:801
 TCernLib.cxx:802
 TCernLib.cxx:803
 TCernLib.cxx:804
 TCernLib.cxx:805
 TCernLib.cxx:806
 TCernLib.cxx:807
 TCernLib.cxx:808
 TCernLib.cxx:809
 TCernLib.cxx:810
 TCernLib.cxx:811
 TCernLib.cxx:812
 TCernLib.cxx:813
 TCernLib.cxx:814
 TCernLib.cxx:815
 TCernLib.cxx:816
 TCernLib.cxx:817
 TCernLib.cxx:818
 TCernLib.cxx:819
 TCernLib.cxx:820
 TCernLib.cxx:821
 TCernLib.cxx:822
 TCernLib.cxx:823
 TCernLib.cxx:824
 TCernLib.cxx:825
 TCernLib.cxx:826
 TCernLib.cxx:827
 TCernLib.cxx:828
 TCernLib.cxx:829
 TCernLib.cxx:830
 TCernLib.cxx:831
 TCernLib.cxx:832
 TCernLib.cxx:833
 TCernLib.cxx:834
 TCernLib.cxx:835
 TCernLib.cxx:836
 TCernLib.cxx:837
 TCernLib.cxx:838
 TCernLib.cxx:839
 TCernLib.cxx:840
 TCernLib.cxx:841
 TCernLib.cxx:842
 TCernLib.cxx:843
 TCernLib.cxx:844
 TCernLib.cxx:845
 TCernLib.cxx:846
 TCernLib.cxx:847
 TCernLib.cxx:848
 TCernLib.cxx:849
 TCernLib.cxx:850
 TCernLib.cxx:851
 TCernLib.cxx:852
 TCernLib.cxx:853
 TCernLib.cxx:854
 TCernLib.cxx:855
 TCernLib.cxx:856
 TCernLib.cxx:857
 TCernLib.cxx:858
 TCernLib.cxx:859
 TCernLib.cxx:860
 TCernLib.cxx:861
 TCernLib.cxx:862
 TCernLib.cxx:863
 TCernLib.cxx:864
 TCernLib.cxx:865
 TCernLib.cxx:866
 TCernLib.cxx:867
 TCernLib.cxx:868
 TCernLib.cxx:869
 TCernLib.cxx:870
 TCernLib.cxx:871
 TCernLib.cxx:872
 TCernLib.cxx:873
 TCernLib.cxx:874
 TCernLib.cxx:875
 TCernLib.cxx:876
 TCernLib.cxx:877
 TCernLib.cxx:878
 TCernLib.cxx:879
 TCernLib.cxx:880
 TCernLib.cxx:881
 TCernLib.cxx:882
 TCernLib.cxx:883
 TCernLib.cxx:884
 TCernLib.cxx:885
 TCernLib.cxx:886
 TCernLib.cxx:887
 TCernLib.cxx:888
 TCernLib.cxx:889
 TCernLib.cxx:890
 TCernLib.cxx:891
 TCernLib.cxx:892
 TCernLib.cxx:893
 TCernLib.cxx:894
 TCernLib.cxx:895
 TCernLib.cxx:896
 TCernLib.cxx:897
 TCernLib.cxx:898
 TCernLib.cxx:899
 TCernLib.cxx:900
 TCernLib.cxx:901
 TCernLib.cxx:902
 TCernLib.cxx:903
 TCernLib.cxx:904
 TCernLib.cxx:905
 TCernLib.cxx:906
 TCernLib.cxx:907
 TCernLib.cxx:908
 TCernLib.cxx:909
 TCernLib.cxx:910
 TCernLib.cxx:911
 TCernLib.cxx:912
 TCernLib.cxx:913
 TCernLib.cxx:914
 TCernLib.cxx:915
 TCernLib.cxx:916
 TCernLib.cxx:917
 TCernLib.cxx:918
 TCernLib.cxx:919
 TCernLib.cxx:920
 TCernLib.cxx:921
 TCernLib.cxx:922
 TCernLib.cxx:923
 TCernLib.cxx:924
 TCernLib.cxx:925
 TCernLib.cxx:926
 TCernLib.cxx:927
 TCernLib.cxx:928
 TCernLib.cxx:929
 TCernLib.cxx:930
 TCernLib.cxx:931
 TCernLib.cxx:932
 TCernLib.cxx:933
 TCernLib.cxx:934
 TCernLib.cxx:935
 TCernLib.cxx:936
 TCernLib.cxx:937
 TCernLib.cxx:938
 TCernLib.cxx:939
 TCernLib.cxx:940
 TCernLib.cxx:941
 TCernLib.cxx:942
 TCernLib.cxx:943
 TCernLib.cxx:944
 TCernLib.cxx:945
 TCernLib.cxx:946
 TCernLib.cxx:947
 TCernLib.cxx:948
 TCernLib.cxx:949
 TCernLib.cxx:950
 TCernLib.cxx:951
 TCernLib.cxx:952
 TCernLib.cxx:953
 TCernLib.cxx:954
 TCernLib.cxx:955
 TCernLib.cxx:956
 TCernLib.cxx:957
 TCernLib.cxx:958
 TCernLib.cxx:959
 TCernLib.cxx:960
 TCernLib.cxx:961
 TCernLib.cxx:962
 TCernLib.cxx:963
 TCernLib.cxx:964
 TCernLib.cxx:965
 TCernLib.cxx:966
 TCernLib.cxx:967
 TCernLib.cxx:968
 TCernLib.cxx:969
 TCernLib.cxx:970
 TCernLib.cxx:971
 TCernLib.cxx:972
 TCernLib.cxx:973
 TCernLib.cxx:974
 TCernLib.cxx:975
 TCernLib.cxx:976
 TCernLib.cxx:977
 TCernLib.cxx:978
 TCernLib.cxx:979
 TCernLib.cxx:980
 TCernLib.cxx:981
 TCernLib.cxx:982
 TCernLib.cxx:983
 TCernLib.cxx:984
 TCernLib.cxx:985
 TCernLib.cxx:986
 TCernLib.cxx:987
 TCernLib.cxx:988
 TCernLib.cxx:989
 TCernLib.cxx:990
 TCernLib.cxx:991
 TCernLib.cxx:992
 TCernLib.cxx:993
 TCernLib.cxx:994
 TCernLib.cxx:995
 TCernLib.cxx:996
 TCernLib.cxx:997
 TCernLib.cxx:998
 TCernLib.cxx:999
 TCernLib.cxx:1000
 TCernLib.cxx:1001
 TCernLib.cxx:1002
 TCernLib.cxx:1003
 TCernLib.cxx:1004
 TCernLib.cxx:1005
 TCernLib.cxx:1006
 TCernLib.cxx:1007
 TCernLib.cxx:1008
 TCernLib.cxx:1009
 TCernLib.cxx:1010
 TCernLib.cxx:1011
 TCernLib.cxx:1012
 TCernLib.cxx:1013
 TCernLib.cxx:1014
 TCernLib.cxx:1015
 TCernLib.cxx:1016
 TCernLib.cxx:1017
 TCernLib.cxx:1018
 TCernLib.cxx:1019
 TCernLib.cxx:1020
 TCernLib.cxx:1021
 TCernLib.cxx:1022
 TCernLib.cxx:1023
 TCernLib.cxx:1024
 TCernLib.cxx:1025
 TCernLib.cxx:1026
 TCernLib.cxx:1027
 TCernLib.cxx:1028
 TCernLib.cxx:1029
 TCernLib.cxx:1030
 TCernLib.cxx:1031
 TCernLib.cxx:1032
 TCernLib.cxx:1033
 TCernLib.cxx:1034
 TCernLib.cxx:1035
 TCernLib.cxx:1036
 TCernLib.cxx:1037
 TCernLib.cxx:1038
 TCernLib.cxx:1039
 TCernLib.cxx:1040
 TCernLib.cxx:1041
 TCernLib.cxx:1042
 TCernLib.cxx:1043
 TCernLib.cxx:1044
 TCernLib.cxx:1045
 TCernLib.cxx:1046
 TCernLib.cxx:1047
 TCernLib.cxx:1048
 TCernLib.cxx:1049
 TCernLib.cxx:1050
 TCernLib.cxx:1051
 TCernLib.cxx:1052
 TCernLib.cxx:1053
 TCernLib.cxx:1054
 TCernLib.cxx:1055
 TCernLib.cxx:1056
 TCernLib.cxx:1057
 TCernLib.cxx:1058
 TCernLib.cxx:1059
 TCernLib.cxx:1060
 TCernLib.cxx:1061
 TCernLib.cxx:1062
 TCernLib.cxx:1063
 TCernLib.cxx:1064
 TCernLib.cxx:1065
 TCernLib.cxx:1066
 TCernLib.cxx:1067
 TCernLib.cxx:1068
 TCernLib.cxx:1069
 TCernLib.cxx:1070
 TCernLib.cxx:1071
 TCernLib.cxx:1072
 TCernLib.cxx:1073
 TCernLib.cxx:1074
 TCernLib.cxx:1075
 TCernLib.cxx:1076
 TCernLib.cxx:1077
 TCernLib.cxx:1078
 TCernLib.cxx:1079
 TCernLib.cxx:1080
 TCernLib.cxx:1081
 TCernLib.cxx:1082
 TCernLib.cxx:1083
 TCernLib.cxx:1084
 TCernLib.cxx:1085
 TCernLib.cxx:1086
 TCernLib.cxx:1087
 TCernLib.cxx:1088
 TCernLib.cxx:1089
 TCernLib.cxx:1090
 TCernLib.cxx:1091
 TCernLib.cxx:1092
 TCernLib.cxx:1093
 TCernLib.cxx:1094
 TCernLib.cxx:1095
 TCernLib.cxx:1096
 TCernLib.cxx:1097
 TCernLib.cxx:1098
 TCernLib.cxx:1099
 TCernLib.cxx:1100
 TCernLib.cxx:1101
 TCernLib.cxx:1102
 TCernLib.cxx:1103
 TCernLib.cxx:1104
 TCernLib.cxx:1105
 TCernLib.cxx:1106
 TCernLib.cxx:1107
 TCernLib.cxx:1108
 TCernLib.cxx:1109
 TCernLib.cxx:1110
 TCernLib.cxx:1111
 TCernLib.cxx:1112
 TCernLib.cxx:1113
 TCernLib.cxx:1114
 TCernLib.cxx:1115
 TCernLib.cxx:1116
 TCernLib.cxx:1117
 TCernLib.cxx:1118
 TCernLib.cxx:1119
 TCernLib.cxx:1120
 TCernLib.cxx:1121
 TCernLib.cxx:1122
 TCernLib.cxx:1123
 TCernLib.cxx:1124
 TCernLib.cxx:1125
 TCernLib.cxx:1126
 TCernLib.cxx:1127
 TCernLib.cxx:1128
 TCernLib.cxx:1129
 TCernLib.cxx:1130
 TCernLib.cxx:1131
 TCernLib.cxx:1132
 TCernLib.cxx:1133
 TCernLib.cxx:1134
 TCernLib.cxx:1135
 TCernLib.cxx:1136
 TCernLib.cxx:1137
 TCernLib.cxx:1138
 TCernLib.cxx:1139
 TCernLib.cxx:1140
 TCernLib.cxx:1141
 TCernLib.cxx:1142
 TCernLib.cxx:1143
 TCernLib.cxx:1144
 TCernLib.cxx:1145
 TCernLib.cxx:1146
 TCernLib.cxx:1147
 TCernLib.cxx:1148
 TCernLib.cxx:1149
 TCernLib.cxx:1150
 TCernLib.cxx:1151
 TCernLib.cxx:1152
 TCernLib.cxx:1153
 TCernLib.cxx:1154
 TCernLib.cxx:1155
 TCernLib.cxx:1156
 TCernLib.cxx:1157
 TCernLib.cxx:1158
 TCernLib.cxx:1159
 TCernLib.cxx:1160
 TCernLib.cxx:1161
 TCernLib.cxx:1162
 TCernLib.cxx:1163
 TCernLib.cxx:1164
 TCernLib.cxx:1165
 TCernLib.cxx:1166
 TCernLib.cxx:1167
 TCernLib.cxx:1168
 TCernLib.cxx:1169
 TCernLib.cxx:1170
 TCernLib.cxx:1171
 TCernLib.cxx:1172
 TCernLib.cxx:1173
 TCernLib.cxx:1174
 TCernLib.cxx:1175
 TCernLib.cxx:1176
 TCernLib.cxx:1177
 TCernLib.cxx:1178
 TCernLib.cxx:1179
 TCernLib.cxx:1180
 TCernLib.cxx:1181
 TCernLib.cxx:1182
 TCernLib.cxx:1183
 TCernLib.cxx:1184
 TCernLib.cxx:1185
 TCernLib.cxx:1186
 TCernLib.cxx:1187
 TCernLib.cxx:1188
 TCernLib.cxx:1189
 TCernLib.cxx:1190
 TCernLib.cxx:1191
 TCernLib.cxx:1192
 TCernLib.cxx:1193
 TCernLib.cxx:1194
 TCernLib.cxx:1195
 TCernLib.cxx:1196
 TCernLib.cxx:1197
 TCernLib.cxx:1198
 TCernLib.cxx:1199
 TCernLib.cxx:1200
 TCernLib.cxx:1201
 TCernLib.cxx:1202
 TCernLib.cxx:1203
 TCernLib.cxx:1204
 TCernLib.cxx:1205
 TCernLib.cxx:1206
 TCernLib.cxx:1207
 TCernLib.cxx:1208
 TCernLib.cxx:1209
 TCernLib.cxx:1210
 TCernLib.cxx:1211
 TCernLib.cxx:1212
 TCernLib.cxx:1213
 TCernLib.cxx:1214
 TCernLib.cxx:1215
 TCernLib.cxx:1216
 TCernLib.cxx:1217
 TCernLib.cxx:1218
 TCernLib.cxx:1219
 TCernLib.cxx:1220
 TCernLib.cxx:1221
 TCernLib.cxx:1222
 TCernLib.cxx:1223
 TCernLib.cxx:1224
 TCernLib.cxx:1225
 TCernLib.cxx:1226
 TCernLib.cxx:1227
 TCernLib.cxx:1228
 TCernLib.cxx:1229
 TCernLib.cxx:1230
 TCernLib.cxx:1231
 TCernLib.cxx:1232
 TCernLib.cxx:1233
 TCernLib.cxx:1234
 TCernLib.cxx:1235
 TCernLib.cxx:1236
 TCernLib.cxx:1237
 TCernLib.cxx:1238
 TCernLib.cxx:1239
 TCernLib.cxx:1240
 TCernLib.cxx:1241
 TCernLib.cxx:1242
 TCernLib.cxx:1243
 TCernLib.cxx:1244
 TCernLib.cxx:1245
 TCernLib.cxx:1246
 TCernLib.cxx:1247
 TCernLib.cxx:1248
 TCernLib.cxx:1249
 TCernLib.cxx:1250
 TCernLib.cxx:1251
 TCernLib.cxx:1252
 TCernLib.cxx:1253
 TCernLib.cxx:1254
 TCernLib.cxx:1255
 TCernLib.cxx:1256
 TCernLib.cxx:1257
 TCernLib.cxx:1258
 TCernLib.cxx:1259
 TCernLib.cxx:1260
 TCernLib.cxx:1261
 TCernLib.cxx:1262
 TCernLib.cxx:1263
 TCernLib.cxx:1264
 TCernLib.cxx:1265
 TCernLib.cxx:1266
 TCernLib.cxx:1267
 TCernLib.cxx:1268
 TCernLib.cxx:1269
 TCernLib.cxx:1270
 TCernLib.cxx:1271
 TCernLib.cxx:1272
 TCernLib.cxx:1273
 TCernLib.cxx:1274
 TCernLib.cxx:1275
 TCernLib.cxx:1276
 TCernLib.cxx:1277
 TCernLib.cxx:1278
 TCernLib.cxx:1279
 TCernLib.cxx:1280
 TCernLib.cxx:1281
 TCernLib.cxx:1282
 TCernLib.cxx:1283
 TCernLib.cxx:1284
 TCernLib.cxx:1285
 TCernLib.cxx:1286
 TCernLib.cxx:1287
 TCernLib.cxx:1288
 TCernLib.cxx:1289
 TCernLib.cxx:1290
 TCernLib.cxx:1291
 TCernLib.cxx:1292
 TCernLib.cxx:1293
 TCernLib.cxx:1294
 TCernLib.cxx:1295
 TCernLib.cxx:1296
 TCernLib.cxx:1297
 TCernLib.cxx:1298
 TCernLib.cxx:1299
 TCernLib.cxx:1300
 TCernLib.cxx:1301
 TCernLib.cxx:1302
 TCernLib.cxx:1303
 TCernLib.cxx:1304
 TCernLib.cxx:1305
 TCernLib.cxx:1306
 TCernLib.cxx:1307
 TCernLib.cxx:1308
 TCernLib.cxx:1309
 TCernLib.cxx:1310
 TCernLib.cxx:1311
 TCernLib.cxx:1312
 TCernLib.cxx:1313
 TCernLib.cxx:1314
 TCernLib.cxx:1315
 TCernLib.cxx:1316
 TCernLib.cxx:1317
 TCernLib.cxx:1318
 TCernLib.cxx:1319
 TCernLib.cxx:1320
 TCernLib.cxx:1321
 TCernLib.cxx:1322
 TCernLib.cxx:1323
 TCernLib.cxx:1324
 TCernLib.cxx:1325
 TCernLib.cxx:1326
 TCernLib.cxx:1327
 TCernLib.cxx:1328
 TCernLib.cxx:1329
 TCernLib.cxx:1330
 TCernLib.cxx:1331
 TCernLib.cxx:1332
 TCernLib.cxx:1333
 TCernLib.cxx:1334
 TCernLib.cxx:1335
 TCernLib.cxx:1336
 TCernLib.cxx:1337
 TCernLib.cxx:1338
 TCernLib.cxx:1339
 TCernLib.cxx:1340
 TCernLib.cxx:1341
 TCernLib.cxx:1342
 TCernLib.cxx:1343
 TCernLib.cxx:1344
 TCernLib.cxx:1345
 TCernLib.cxx:1346
 TCernLib.cxx:1347
 TCernLib.cxx:1348
 TCernLib.cxx:1349
 TCernLib.cxx:1350
 TCernLib.cxx:1351
 TCernLib.cxx:1352
 TCernLib.cxx:1353
 TCernLib.cxx:1354
 TCernLib.cxx:1355
 TCernLib.cxx:1356
 TCernLib.cxx:1357
 TCernLib.cxx:1358
 TCernLib.cxx:1359
 TCernLib.cxx:1360
 TCernLib.cxx:1361
 TCernLib.cxx:1362
 TCernLib.cxx:1363
 TCernLib.cxx:1364
 TCernLib.cxx:1365
 TCernLib.cxx:1366
 TCernLib.cxx:1367
 TCernLib.cxx:1368
 TCernLib.cxx:1369
 TCernLib.cxx:1370
 TCernLib.cxx:1371
 TCernLib.cxx:1372
 TCernLib.cxx:1373
 TCernLib.cxx:1374
 TCernLib.cxx:1375
 TCernLib.cxx:1376
 TCernLib.cxx:1377
 TCernLib.cxx:1378
 TCernLib.cxx:1379
 TCernLib.cxx:1380
 TCernLib.cxx:1381
 TCernLib.cxx:1382
 TCernLib.cxx:1383
 TCernLib.cxx:1384
 TCernLib.cxx:1385
 TCernLib.cxx:1386
 TCernLib.cxx:1387
 TCernLib.cxx:1388
 TCernLib.cxx:1389
 TCernLib.cxx:1390
 TCernLib.cxx:1391
 TCernLib.cxx:1392
 TCernLib.cxx:1393
 TCernLib.cxx:1394
 TCernLib.cxx:1395
 TCernLib.cxx:1396
 TCernLib.cxx:1397
 TCernLib.cxx:1398
 TCernLib.cxx:1399
 TCernLib.cxx:1400
 TCernLib.cxx:1401
 TCernLib.cxx:1402
 TCernLib.cxx:1403
 TCernLib.cxx:1404
 TCernLib.cxx:1405
 TCernLib.cxx:1406
 TCernLib.cxx:1407
 TCernLib.cxx:1408
 TCernLib.cxx:1409
 TCernLib.cxx:1410
 TCernLib.cxx:1411
 TCernLib.cxx:1412
 TCernLib.cxx:1413
 TCernLib.cxx:1414
 TCernLib.cxx:1415
 TCernLib.cxx:1416
 TCernLib.cxx:1417
 TCernLib.cxx:1418
 TCernLib.cxx:1419
 TCernLib.cxx:1420
 TCernLib.cxx:1421
 TCernLib.cxx:1422
 TCernLib.cxx:1423
 TCernLib.cxx:1424
 TCernLib.cxx:1425
 TCernLib.cxx:1426
 TCernLib.cxx:1427
 TCernLib.cxx:1428
 TCernLib.cxx:1429
 TCernLib.cxx:1430
 TCernLib.cxx:1431
 TCernLib.cxx:1432
 TCernLib.cxx:1433
 TCernLib.cxx:1434
 TCernLib.cxx:1435
 TCernLib.cxx:1436
 TCernLib.cxx:1437
 TCernLib.cxx:1438
 TCernLib.cxx:1439
 TCernLib.cxx:1440
 TCernLib.cxx:1441
 TCernLib.cxx:1442
 TCernLib.cxx:1443
 TCernLib.cxx:1444
 TCernLib.cxx:1445
 TCernLib.cxx:1446
 TCernLib.cxx:1447
 TCernLib.cxx:1448
 TCernLib.cxx:1449
 TCernLib.cxx:1450
 TCernLib.cxx:1451
 TCernLib.cxx:1452
 TCernLib.cxx:1453
 TCernLib.cxx:1454
 TCernLib.cxx:1455
 TCernLib.cxx:1456
 TCernLib.cxx:1457
 TCernLib.cxx:1458
 TCernLib.cxx:1459
 TCernLib.cxx:1460
 TCernLib.cxx:1461
 TCernLib.cxx:1462
 TCernLib.cxx:1463
 TCernLib.cxx:1464
 TCernLib.cxx:1465
 TCernLib.cxx:1466
 TCernLib.cxx:1467
 TCernLib.cxx:1468
 TCernLib.cxx:1469
 TCernLib.cxx:1470
 TCernLib.cxx:1471
 TCernLib.cxx:1472
 TCernLib.cxx:1473
 TCernLib.cxx:1474
 TCernLib.cxx:1475
 TCernLib.cxx:1476
 TCernLib.cxx:1477
 TCernLib.cxx:1478
 TCernLib.cxx:1479
 TCernLib.cxx:1480
 TCernLib.cxx:1481
 TCernLib.cxx:1482
 TCernLib.cxx:1483
 TCernLib.cxx:1484
 TCernLib.cxx:1485
 TCernLib.cxx:1486
 TCernLib.cxx:1487
 TCernLib.cxx:1488
 TCernLib.cxx:1489
 TCernLib.cxx:1490
 TCernLib.cxx:1491
 TCernLib.cxx:1492
 TCernLib.cxx:1493
 TCernLib.cxx:1494
 TCernLib.cxx:1495
 TCernLib.cxx:1496
 TCernLib.cxx:1497
 TCernLib.cxx:1498
 TCernLib.cxx:1499
 TCernLib.cxx:1500
 TCernLib.cxx:1501
 TCernLib.cxx:1502
 TCernLib.cxx:1503
 TCernLib.cxx:1504
 TCernLib.cxx:1505
 TCernLib.cxx:1506
 TCernLib.cxx:1507
 TCernLib.cxx:1508
 TCernLib.cxx:1509
 TCernLib.cxx:1510
 TCernLib.cxx:1511
 TCernLib.cxx:1512
 TCernLib.cxx:1513
 TCernLib.cxx:1514
 TCernLib.cxx:1515
 TCernLib.cxx:1516
 TCernLib.cxx:1517
 TCernLib.cxx:1518
 TCernLib.cxx:1519
 TCernLib.cxx:1520
 TCernLib.cxx:1521
 TCernLib.cxx:1522
 TCernLib.cxx:1523
 TCernLib.cxx:1524
 TCernLib.cxx:1525
 TCernLib.cxx:1526
 TCernLib.cxx:1527
 TCernLib.cxx:1528
 TCernLib.cxx:1529
 TCernLib.cxx:1530
 TCernLib.cxx:1531
 TCernLib.cxx:1532
 TCernLib.cxx:1533
 TCernLib.cxx:1534
 TCernLib.cxx:1535
 TCernLib.cxx:1536
 TCernLib.cxx:1537
 TCernLib.cxx:1538
 TCernLib.cxx:1539
 TCernLib.cxx:1540
 TCernLib.cxx:1541
 TCernLib.cxx:1542
 TCernLib.cxx:1543
 TCernLib.cxx:1544
 TCernLib.cxx:1545
 TCernLib.cxx:1546
 TCernLib.cxx:1547
 TCernLib.cxx:1548
 TCernLib.cxx:1549
 TCernLib.cxx:1550
 TCernLib.cxx:1551
 TCernLib.cxx:1552
 TCernLib.cxx:1553
 TCernLib.cxx:1554
 TCernLib.cxx:1555
 TCernLib.cxx:1556
 TCernLib.cxx:1557
 TCernLib.cxx:1558
 TCernLib.cxx:1559
 TCernLib.cxx:1560
 TCernLib.cxx:1561
 TCernLib.cxx:1562
 TCernLib.cxx:1563
 TCernLib.cxx:1564
 TCernLib.cxx:1565
 TCernLib.cxx:1566
 TCernLib.cxx:1567
 TCernLib.cxx:1568
 TCernLib.cxx:1569
 TCernLib.cxx:1570
 TCernLib.cxx:1571
 TCernLib.cxx:1572
 TCernLib.cxx:1573
 TCernLib.cxx:1574
 TCernLib.cxx:1575
 TCernLib.cxx:1576
 TCernLib.cxx:1577
 TCernLib.cxx:1578
 TCernLib.cxx:1579
 TCernLib.cxx:1580
 TCernLib.cxx:1581
 TCernLib.cxx:1582
 TCernLib.cxx:1583
 TCernLib.cxx:1584
 TCernLib.cxx:1585
 TCernLib.cxx:1586
 TCernLib.cxx:1587
 TCernLib.cxx:1588
 TCernLib.cxx:1589
 TCernLib.cxx:1590
 TCernLib.cxx:1591
 TCernLib.cxx:1592
 TCernLib.cxx:1593
 TCernLib.cxx:1594
 TCernLib.cxx:1595
 TCernLib.cxx:1596
 TCernLib.cxx:1597
 TCernLib.cxx:1598
 TCernLib.cxx:1599
 TCernLib.cxx:1600
 TCernLib.cxx:1601
 TCernLib.cxx:1602
 TCernLib.cxx:1603
 TCernLib.cxx:1604
 TCernLib.cxx:1605
 TCernLib.cxx:1606
 TCernLib.cxx:1607
 TCernLib.cxx:1608
 TCernLib.cxx:1609
 TCernLib.cxx:1610
 TCernLib.cxx:1611
 TCernLib.cxx:1612
 TCernLib.cxx:1613
 TCernLib.cxx:1614
 TCernLib.cxx:1615
 TCernLib.cxx:1616
 TCernLib.cxx:1617
 TCernLib.cxx:1618
 TCernLib.cxx:1619
 TCernLib.cxx:1620
 TCernLib.cxx:1621
 TCernLib.cxx:1622
 TCernLib.cxx:1623
 TCernLib.cxx:1624
 TCernLib.cxx:1625
 TCernLib.cxx:1626
 TCernLib.cxx:1627
 TCernLib.cxx:1628
 TCernLib.cxx:1629
 TCernLib.cxx:1630
 TCernLib.cxx:1631
 TCernLib.cxx:1632
 TCernLib.cxx:1633
 TCernLib.cxx:1634
 TCernLib.cxx:1635
 TCernLib.cxx:1636
 TCernLib.cxx:1637
 TCernLib.cxx:1638
 TCernLib.cxx:1639
 TCernLib.cxx:1640
 TCernLib.cxx:1641
 TCernLib.cxx:1642
 TCernLib.cxx:1643
 TCernLib.cxx:1644
 TCernLib.cxx:1645
 TCernLib.cxx:1646
 TCernLib.cxx:1647
 TCernLib.cxx:1648
 TCernLib.cxx:1649
 TCernLib.cxx:1650
 TCernLib.cxx:1651
 TCernLib.cxx:1652
 TCernLib.cxx:1653
 TCernLib.cxx:1654
 TCernLib.cxx:1655
 TCernLib.cxx:1656
 TCernLib.cxx:1657
 TCernLib.cxx:1658
 TCernLib.cxx:1659
 TCernLib.cxx:1660
 TCernLib.cxx:1661
 TCernLib.cxx:1662
 TCernLib.cxx:1663
 TCernLib.cxx:1664
 TCernLib.cxx:1665
 TCernLib.cxx:1666
 TCernLib.cxx:1667
 TCernLib.cxx:1668
 TCernLib.cxx:1669
 TCernLib.cxx:1670
 TCernLib.cxx:1671
 TCernLib.cxx:1672
 TCernLib.cxx:1673
 TCernLib.cxx:1674
 TCernLib.cxx:1675
 TCernLib.cxx:1676
 TCernLib.cxx:1677
 TCernLib.cxx:1678
 TCernLib.cxx:1679
 TCernLib.cxx:1680
 TCernLib.cxx:1681
 TCernLib.cxx:1682
 TCernLib.cxx:1683
 TCernLib.cxx:1684
 TCernLib.cxx:1685
 TCernLib.cxx:1686
 TCernLib.cxx:1687
 TCernLib.cxx:1688
 TCernLib.cxx:1689
 TCernLib.cxx:1690
 TCernLib.cxx:1691
 TCernLib.cxx:1692
 TCernLib.cxx:1693
 TCernLib.cxx:1694
 TCernLib.cxx:1695
 TCernLib.cxx:1696
 TCernLib.cxx:1697
 TCernLib.cxx:1698
 TCernLib.cxx:1699
 TCernLib.cxx:1700
 TCernLib.cxx:1701
 TCernLib.cxx:1702
 TCernLib.cxx:1703
 TCernLib.cxx:1704
 TCernLib.cxx:1705
 TCernLib.cxx:1706
 TCernLib.cxx:1707
 TCernLib.cxx:1708
 TCernLib.cxx:1709
 TCernLib.cxx:1710
 TCernLib.cxx:1711
 TCernLib.cxx:1712
 TCernLib.cxx:1713
 TCernLib.cxx:1714
 TCernLib.cxx:1715
 TCernLib.cxx:1716
 TCernLib.cxx:1717
 TCernLib.cxx:1718
 TCernLib.cxx:1719
 TCernLib.cxx:1720
 TCernLib.cxx:1721
 TCernLib.cxx:1722
 TCernLib.cxx:1723
 TCernLib.cxx:1724
 TCernLib.cxx:1725
 TCernLib.cxx:1726
 TCernLib.cxx:1727
 TCernLib.cxx:1728
 TCernLib.cxx:1729
 TCernLib.cxx:1730
 TCernLib.cxx:1731
 TCernLib.cxx:1732
 TCernLib.cxx:1733
 TCernLib.cxx:1734
 TCernLib.cxx:1735
 TCernLib.cxx:1736
 TCernLib.cxx:1737
 TCernLib.cxx:1738
 TCernLib.cxx:1739
 TCernLib.cxx:1740
 TCernLib.cxx:1741
 TCernLib.cxx:1742
 TCernLib.cxx:1743
 TCernLib.cxx:1744
 TCernLib.cxx:1745
 TCernLib.cxx:1746
 TCernLib.cxx:1747
 TCernLib.cxx:1748
 TCernLib.cxx:1749
 TCernLib.cxx:1750
 TCernLib.cxx:1751
 TCernLib.cxx:1752
 TCernLib.cxx:1753
 TCernLib.cxx:1754
 TCernLib.cxx:1755
 TCernLib.cxx:1756
 TCernLib.cxx:1757
 TCernLib.cxx:1758
 TCernLib.cxx:1759
 TCernLib.cxx:1760
 TCernLib.cxx:1761
 TCernLib.cxx:1762
 TCernLib.cxx:1763
 TCernLib.cxx:1764
 TCernLib.cxx:1765
 TCernLib.cxx:1766
 TCernLib.cxx:1767
 TCernLib.cxx:1768
 TCernLib.cxx:1769
 TCernLib.cxx:1770
 TCernLib.cxx:1771
 TCernLib.cxx:1772
 TCernLib.cxx:1773
 TCernLib.cxx:1774
 TCernLib.cxx:1775
 TCernLib.cxx:1776
 TCernLib.cxx:1777
 TCernLib.cxx:1778
 TCernLib.cxx:1779
 TCernLib.cxx:1780
 TCernLib.cxx:1781
 TCernLib.cxx:1782
 TCernLib.cxx:1783
 TCernLib.cxx:1784
 TCernLib.cxx:1785
 TCernLib.cxx:1786
 TCernLib.cxx:1787
 TCernLib.cxx:1788
 TCernLib.cxx:1789
 TCernLib.cxx:1790
 TCernLib.cxx:1791
 TCernLib.cxx:1792
 TCernLib.cxx:1793
 TCernLib.cxx:1794
 TCernLib.cxx:1795
 TCernLib.cxx:1796
 TCernLib.cxx:1797
 TCernLib.cxx:1798
 TCernLib.cxx:1799
 TCernLib.cxx:1800
 TCernLib.cxx:1801
 TCernLib.cxx:1802
 TCernLib.cxx:1803
 TCernLib.cxx:1804
 TCernLib.cxx:1805
 TCernLib.cxx:1806
 TCernLib.cxx:1807
 TCernLib.cxx:1808
 TCernLib.cxx:1809
 TCernLib.cxx:1810
 TCernLib.cxx:1811
 TCernLib.cxx:1812
 TCernLib.cxx:1813
 TCernLib.cxx:1814
 TCernLib.cxx:1815
 TCernLib.cxx:1816
 TCernLib.cxx:1817
 TCernLib.cxx:1818
 TCernLib.cxx:1819
 TCernLib.cxx:1820
 TCernLib.cxx:1821
 TCernLib.cxx:1822
 TCernLib.cxx:1823
 TCernLib.cxx:1824
 TCernLib.cxx:1825
 TCernLib.cxx:1826
 TCernLib.cxx:1827
 TCernLib.cxx:1828
 TCernLib.cxx:1829
 TCernLib.cxx:1830
 TCernLib.cxx:1831
 TCernLib.cxx:1832
 TCernLib.cxx:1833
 TCernLib.cxx:1834
 TCernLib.cxx:1835
 TCernLib.cxx:1836
 TCernLib.cxx:1837
 TCernLib.cxx:1838
 TCernLib.cxx:1839
 TCernLib.cxx:1840
 TCernLib.cxx:1841
 TCernLib.cxx:1842
 TCernLib.cxx:1843
 TCernLib.cxx:1844
 TCernLib.cxx:1845
 TCernLib.cxx:1846
 TCernLib.cxx:1847
 TCernLib.cxx:1848
 TCernLib.cxx:1849
 TCernLib.cxx:1850
 TCernLib.cxx:1851
 TCernLib.cxx:1852
 TCernLib.cxx:1853
 TCernLib.cxx:1854
 TCernLib.cxx:1855
 TCernLib.cxx:1856
 TCernLib.cxx:1857
 TCernLib.cxx:1858
 TCernLib.cxx:1859
 TCernLib.cxx:1860
 TCernLib.cxx:1861
 TCernLib.cxx:1862
 TCernLib.cxx:1863
 TCernLib.cxx:1864
 TCernLib.cxx:1865
 TCernLib.cxx:1866
 TCernLib.cxx:1867
 TCernLib.cxx:1868
 TCernLib.cxx:1869
 TCernLib.cxx:1870
 TCernLib.cxx:1871
 TCernLib.cxx:1872
 TCernLib.cxx:1873
 TCernLib.cxx:1874
 TCernLib.cxx:1875
 TCernLib.cxx:1876
 TCernLib.cxx:1877
 TCernLib.cxx:1878
 TCernLib.cxx:1879
 TCernLib.cxx:1880
 TCernLib.cxx:1881
 TCernLib.cxx:1882
 TCernLib.cxx:1883
 TCernLib.cxx:1884
 TCernLib.cxx:1885
 TCernLib.cxx:1886
 TCernLib.cxx:1887
 TCernLib.cxx:1888
 TCernLib.cxx:1889
 TCernLib.cxx:1890
 TCernLib.cxx:1891
 TCernLib.cxx:1892
 TCernLib.cxx:1893
 TCernLib.cxx:1894
 TCernLib.cxx:1895
 TCernLib.cxx:1896
 TCernLib.cxx:1897
 TCernLib.cxx:1898
 TCernLib.cxx:1899
 TCernLib.cxx:1900
 TCernLib.cxx:1901
 TCernLib.cxx:1902
 TCernLib.cxx:1903
 TCernLib.cxx:1904
 TCernLib.cxx:1905
 TCernLib.cxx:1906
 TCernLib.cxx:1907
 TCernLib.cxx:1908
 TCernLib.cxx:1909
 TCernLib.cxx:1910
 TCernLib.cxx:1911
 TCernLib.cxx:1912
 TCernLib.cxx:1913
 TCernLib.cxx:1914
 TCernLib.cxx:1915
 TCernLib.cxx:1916
 TCernLib.cxx:1917
 TCernLib.cxx:1918
 TCernLib.cxx:1919
 TCernLib.cxx:1920
 TCernLib.cxx:1921
 TCernLib.cxx:1922
 TCernLib.cxx:1923
 TCernLib.cxx:1924
 TCernLib.cxx:1925
 TCernLib.cxx:1926
 TCernLib.cxx:1927
 TCernLib.cxx:1928
 TCernLib.cxx:1929
 TCernLib.cxx:1930
 TCernLib.cxx:1931
 TCernLib.cxx:1932
 TCernLib.cxx:1933
 TCernLib.cxx:1934
 TCernLib.cxx:1935
 TCernLib.cxx:1936
 TCernLib.cxx:1937
 TCernLib.cxx:1938
 TCernLib.cxx:1939
 TCernLib.cxx:1940
 TCernLib.cxx:1941
 TCernLib.cxx:1942
 TCernLib.cxx:1943
 TCernLib.cxx:1944
 TCernLib.cxx:1945
 TCernLib.cxx:1946
 TCernLib.cxx:1947
 TCernLib.cxx:1948
 TCernLib.cxx:1949
 TCernLib.cxx:1950
 TCernLib.cxx:1951
 TCernLib.cxx:1952
 TCernLib.cxx:1953
 TCernLib.cxx:1954
 TCernLib.cxx:1955
 TCernLib.cxx:1956
 TCernLib.cxx:1957
 TCernLib.cxx:1958
 TCernLib.cxx:1959
 TCernLib.cxx:1960
 TCernLib.cxx:1961
 TCernLib.cxx:1962
 TCernLib.cxx:1963
 TCernLib.cxx:1964
 TCernLib.cxx:1965
 TCernLib.cxx:1966
 TCernLib.cxx:1967
 TCernLib.cxx:1968
 TCernLib.cxx:1969
 TCernLib.cxx:1970
 TCernLib.cxx:1971
 TCernLib.cxx:1972
 TCernLib.cxx:1973
 TCernLib.cxx:1974
 TCernLib.cxx:1975
 TCernLib.cxx:1976
 TCernLib.cxx:1977
 TCernLib.cxx:1978
 TCernLib.cxx:1979
 TCernLib.cxx:1980
 TCernLib.cxx:1981
 TCernLib.cxx:1982
 TCernLib.cxx:1983
 TCernLib.cxx:1984
 TCernLib.cxx:1985
 TCernLib.cxx:1986
 TCernLib.cxx:1987
 TCernLib.cxx:1988
 TCernLib.cxx:1989
 TCernLib.cxx:1990
 TCernLib.cxx:1991
 TCernLib.cxx:1992
 TCernLib.cxx:1993
 TCernLib.cxx:1994
 TCernLib.cxx:1995
 TCernLib.cxx:1996
 TCernLib.cxx:1997
 TCernLib.cxx:1998
 TCernLib.cxx:1999
 TCernLib.cxx:2000
 TCernLib.cxx:2001
 TCernLib.cxx:2002
 TCernLib.cxx:2003
 TCernLib.cxx:2004
 TCernLib.cxx:2005
 TCernLib.cxx:2006
 TCernLib.cxx:2007
 TCernLib.cxx:2008
 TCernLib.cxx:2009
 TCernLib.cxx:2010
 TCernLib.cxx:2011
 TCernLib.cxx:2012
 TCernLib.cxx:2013
 TCernLib.cxx:2014
 TCernLib.cxx:2015
 TCernLib.cxx:2016
 TCernLib.cxx:2017
 TCernLib.cxx:2018
 TCernLib.cxx:2019
 TCernLib.cxx:2020
 TCernLib.cxx:2021
 TCernLib.cxx:2022
 TCernLib.cxx:2023
 TCernLib.cxx:2024
 TCernLib.cxx:2025
 TCernLib.cxx:2026
 TCernLib.cxx:2027
 TCernLib.cxx:2028
 TCernLib.cxx:2029
 TCernLib.cxx:2030
 TCernLib.cxx:2031
 TCernLib.cxx:2032
 TCernLib.cxx:2033
 TCernLib.cxx:2034
 TCernLib.cxx:2035
 TCernLib.cxx:2036
 TCernLib.cxx:2037
 TCernLib.cxx:2038
 TCernLib.cxx:2039
 TCernLib.cxx:2040
 TCernLib.cxx:2041
 TCernLib.cxx:2042
 TCernLib.cxx:2043
 TCernLib.cxx:2044
 TCernLib.cxx:2045
 TCernLib.cxx:2046
 TCernLib.cxx:2047
 TCernLib.cxx:2048
 TCernLib.cxx:2049
 TCernLib.cxx:2050
 TCernLib.cxx:2051
 TCernLib.cxx:2052
 TCernLib.cxx:2053
 TCernLib.cxx:2054
 TCernLib.cxx:2055
 TCernLib.cxx:2056
 TCernLib.cxx:2057
 TCernLib.cxx:2058
 TCernLib.cxx:2059
 TCernLib.cxx:2060
 TCernLib.cxx:2061
 TCernLib.cxx:2062
 TCernLib.cxx:2063
 TCernLib.cxx:2064
 TCernLib.cxx:2065
 TCernLib.cxx:2066
 TCernLib.cxx:2067
 TCernLib.cxx:2068
 TCernLib.cxx:2069
 TCernLib.cxx:2070
 TCernLib.cxx:2071
 TCernLib.cxx:2072
 TCernLib.cxx:2073
 TCernLib.cxx:2074
 TCernLib.cxx:2075
 TCernLib.cxx:2076
 TCernLib.cxx:2077
 TCernLib.cxx:2078
 TCernLib.cxx:2079
 TCernLib.cxx:2080
 TCernLib.cxx:2081
 TCernLib.cxx:2082
 TCernLib.cxx:2083
 TCernLib.cxx:2084
 TCernLib.cxx:2085
 TCernLib.cxx:2086
 TCernLib.cxx:2087
 TCernLib.cxx:2088
 TCernLib.cxx:2089
 TCernLib.cxx:2090
 TCernLib.cxx:2091
 TCernLib.cxx:2092
 TCernLib.cxx:2093
 TCernLib.cxx:2094
 TCernLib.cxx:2095
 TCernLib.cxx:2096
 TCernLib.cxx:2097
 TCernLib.cxx:2098
 TCernLib.cxx:2099
 TCernLib.cxx:2100
 TCernLib.cxx:2101
 TCernLib.cxx:2102
 TCernLib.cxx:2103
 TCernLib.cxx:2104
 TCernLib.cxx:2105
 TCernLib.cxx:2106
 TCernLib.cxx:2107
 TCernLib.cxx:2108
 TCernLib.cxx:2109
 TCernLib.cxx:2110
 TCernLib.cxx:2111
 TCernLib.cxx:2112
 TCernLib.cxx:2113
 TCernLib.cxx:2114
 TCernLib.cxx:2115
 TCernLib.cxx:2116
 TCernLib.cxx:2117
 TCernLib.cxx:2118
 TCernLib.cxx:2119
 TCernLib.cxx:2120
 TCernLib.cxx:2121
 TCernLib.cxx:2122
 TCernLib.cxx:2123
 TCernLib.cxx:2124
 TCernLib.cxx:2125
 TCernLib.cxx:2126
 TCernLib.cxx:2127
 TCernLib.cxx:2128
 TCernLib.cxx:2129
 TCernLib.cxx:2130
 TCernLib.cxx:2131
 TCernLib.cxx:2132
 TCernLib.cxx:2133
 TCernLib.cxx:2134
 TCernLib.cxx:2135
 TCernLib.cxx:2136
 TCernLib.cxx:2137
 TCernLib.cxx:2138
 TCernLib.cxx:2139
 TCernLib.cxx:2140
 TCernLib.cxx:2141
 TCernLib.cxx:2142
 TCernLib.cxx:2143
 TCernLib.cxx:2144
 TCernLib.cxx:2145
 TCernLib.cxx:2146
 TCernLib.cxx:2147
 TCernLib.cxx:2148
 TCernLib.cxx:2149
 TCernLib.cxx:2150
 TCernLib.cxx:2151
 TCernLib.cxx:2152
 TCernLib.cxx:2153
 TCernLib.cxx:2154
 TCernLib.cxx:2155
 TCernLib.cxx:2156
 TCernLib.cxx:2157
 TCernLib.cxx:2158
 TCernLib.cxx:2159
 TCernLib.cxx:2160
 TCernLib.cxx:2161
 TCernLib.cxx:2162
 TCernLib.cxx:2163
 TCernLib.cxx:2164
 TCernLib.cxx:2165
 TCernLib.cxx:2166
 TCernLib.cxx:2167
 TCernLib.cxx:2168
 TCernLib.cxx:2169
 TCernLib.cxx:2170
 TCernLib.cxx:2171
 TCernLib.cxx:2172
 TCernLib.cxx:2173
 TCernLib.cxx:2174
 TCernLib.cxx:2175
 TCernLib.cxx:2176
 TCernLib.cxx:2177
 TCernLib.cxx:2178
 TCernLib.cxx:2179
 TCernLib.cxx:2180
 TCernLib.cxx:2181
 TCernLib.cxx:2182
 TCernLib.cxx:2183
 TCernLib.cxx:2184
 TCernLib.cxx:2185
 TCernLib.cxx:2186
 TCernLib.cxx:2187
 TCernLib.cxx:2188
 TCernLib.cxx:2189
 TCernLib.cxx:2190
 TCernLib.cxx:2191
 TCernLib.cxx:2192
 TCernLib.cxx:2193
 TCernLib.cxx:2194
 TCernLib.cxx:2195
 TCernLib.cxx:2196
 TCernLib.cxx:2197