|
 |
9a99763 |
diff -ur root-6.06.02.orig/misc/table/inc/TCernLib.h root-6.06.02/misc/table/inc/TCernLib.h
|
|
|
9a99763 |
--- root-6.06.02.orig/misc/table/inc/TCernLib.h 2016-03-03 10:36:03.000000000 +0100
|
|
|
9a99763 |
+++ root-6.06.02/misc/table/inc/TCernLib.h 2016-03-07 19:15:34.726025891 +0100
|
|
|
9a99763 |
@@ -15,7 +15,7 @@
|
|
|
9a99763 |
#include "Rtypes.h"
|
|
|
9a99763 |
#include <string.h>
|
|
|
9a99763 |
|
|
|
9a99763 |
-// http://wwwinfo.cern.ch/asdoc/shortwrupsdir/f110/top.html
|
|
|
9a99763 |
+// https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f110/top.html
|
|
|
9a99763 |
|
|
|
9a99763 |
///////////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
// //
|
|
|
9a99763 |
@@ -25,8 +25,9 @@
|
|
|
9a99763 |
// its negative, or a multiple of it, transpose a given matrix, build up a unit //
|
|
|
9a99763 |
// matrix, multiply a matrix by a diagonal (from left or from right) and may //
|
|
|
9a99763 |
// add the result to another matrix, add to square matrix the multiple of a diagonal //
|
|
|
9a99763 |
-// matrix, compute the products  ( denotes the transpose of
|
|
|
9a99763 |
-// It is assumed that matrices are begin_html row-wise without gaps end_html without gaps. //
|
|
|
9a99763 |
+// matrix, compute the products X=ABA' (A' denotes the transpose of A) and X=A'BA. //
|
|
|
9a99763 |
+// It is assumed that matrices are row-wise without gaps, contrary to the //
|
|
|
9a99763 |
+// Fortran convention. //
|
|
|
9a99763 |
// //
|
|
|
9a99763 |
///////////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
|
|
|
9a99763 |
diff -ur root-6.06.02.orig/misc/table/src/TCernLib.cxx root-6.06.02/misc/table/src/TCernLib.cxx
|
|
|
9a99763 |
--- root-6.06.02.orig/misc/table/src/TCernLib.cxx 2016-03-03 10:36:03.000000000 +0100
|
|
|
9a99763 |
+++ root-6.06.02/misc/table/src/TCernLib.cxx 2016-03-07 19:15:34.728025914 +0100
|
|
|
9a99763 |
@@ -11,8 +11,8 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
// The set of methods to work with the plain matrix / vector
|
|
|
9a99763 |
-// "derived" from http://wwwinfo.cern.ch/asdoc/shortwrupsdir/f110/top.html
|
|
|
9a99763 |
-// "derived" from http://wwwinfo.cern.ch/asdoc/shortwrupsdir/f112/top.html
|
|
|
9a99763 |
+// "derived" from https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f110/top.html
|
|
|
9a99763 |
+// "derived" from https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html
|
|
|
9a99763 |
//
|
|
|
9a99763 |
// Revision 1.7 2006/05/21 18:05:26 brun
|
|
|
9a99763 |
// Fix more coding conventions violations
|
|
|
9a99763 |
@@ -33,7 +33,7 @@
|
|
|
9a99763 |
//
|
|
|
9a99763 |
// Revision 1.3 2003/04/03 17:39:39 fine
|
|
|
9a99763 |
// Make merge with ROOT 3.05.03 and add TR package
|
|
|
9a99763 |
-//122
|
|
|
9a99763 |
+//
|
|
|
9a99763 |
// Revision 1.2 2003/02/04 23:35:20 fine
|
|
|
9a99763 |
// Clean up
|
|
|
9a99763 |
//
|
|
|
9a99763 |
@@ -154,27 +154,24 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// Matrix Multiplication
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F110 MXMLRT .VERSION KERNFOR 2.00 720707
|
|
|
9a99763 |
/// ORIG. 01/01/64 RKB
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F110](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f110/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::mxmlrt_0_(int n__, const float *a, const float *b, float *c, int ni,int nj)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F110
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
+// -- ENTRY MXMLRT
|
|
|
9a99763 |
+// -- C = A(I,J) X B(J,J) X A*(J,I)
|
|
|
9a99763 |
+// -- A* TANDS FOR A-TRANSPOSED
|
|
|
9a99763 |
+// mxmlrt (A,B,C,NI,NJ) IS EQUIVALENT TO
|
|
|
9a99763 |
+// CALL MXMPY (A,B,X,NI,NJ,NJ)
|
|
|
9a99763 |
+// CALL MXMPY1 (X,A,C,NI,NJ,NI)
|
|
|
9a99763 |
|
|
|
9a99763 |
-// -- ENTRY MXMLRT */
|
|
|
9a99763 |
-// -- C = A(I,J) X B(J,J) X A*(J,I) */
|
|
|
9a99763 |
-// -- A* TANDS FOR A-TRANSPOSED */
|
|
|
9a99763 |
-// mxmlrt (A,B,C,NI,NJ) IS EQUIVALENT TO */
|
|
|
9a99763 |
-// CALL MXMPY (A,B,X,NI,NJ,NJ) */
|
|
|
9a99763 |
-// CALL MXMPY1 (X,A,C,NI,NJ,NI) */
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-/* OR CALL MXMPY1 (B,A,Y,NJ,NJ,NI) */
|
|
|
9a99763 |
-/* CALL MXMPY (A,Y,C,NI,NJ,NI) */
|
|
|
9a99763 |
+// OR CALL MXMPY1 (B,A,Y,NJ,NJ,NI)
|
|
|
9a99763 |
+// CALL MXMPY (A,Y,C,NI,NJ,NI)
|
|
|
9a99763 |
|
|
|
9a99763 |
|
|
|
9a99763 |
// -- C = A*(I,J) X B(J,J) X A(J,I)
|
|
|
9a99763 |
@@ -191,6 +188,12 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// Matrix Multiplication (double precision)
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F110 MXMLRT .VERSION KERNFOR 2.00 720707
|
|
|
9a99763 |
+/// ORIG. 01/01/64 RKB
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F110](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f110/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::mxmlrt_0_(int n__, const double *a, const double *b, double *c, int ni,int nj)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
@@ -215,36 +218,31 @@
|
|
|
9a99763 |
for (int l = 1; l <= i; ++l,ia += j,++ib) b[ib] = a[ia]; }
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
+/// Matrix Transposition
|
|
|
9a99763 |
///
|
|
|
9a99763 |
-/// Matrix Transposition
|
|
|
9a99763 |
/// CERN PROGLIB# F110 MXTRP .VERSION KERNFOR 1.0 650809
|
|
|
9a99763 |
/// ORIG. 01/01/64 RKB
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F110](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f110/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::mxtrp(const float *a, float *b, int i, int j)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F110
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
TCL_MXTRP(a, b, i, j)
|
|
|
9a99763 |
return b;
|
|
|
9a99763 |
} /* mxtrp */
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
-/// Matrix Transposition (double precision)
|
|
|
9a99763 |
+/// Matrix Transposition (double precision)
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F110 MXTRP .VERSION KERNFOR 1.0 650809
|
|
|
9a99763 |
/// ORIG. 01/01/64 RKB
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F110](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f110/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::mxtrp(const double *a, double *b, int i, int j)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F110
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
TCL_MXTRP(a, b, i, j)
|
|
|
9a99763 |
return b;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -283,38 +281,35 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
-///
|
|
|
9a99763 |
/// Symmetric Multiplication of Rectangular Matrices
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F112 TRAAT .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// traat.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
///
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::traat(const float *a, float *s, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
TCL_TRAAT(a, s, m, n)
|
|
|
9a99763 |
return s;
|
|
|
9a99763 |
} /* traat_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
-/// Symmetric Multiplication of Rectangular Matrices
|
|
|
9a99763 |
+/// Symmetric Multiplication of Rectangular Matrices
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F112 TRAAT .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// traat.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
///
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::traat(const double *a, double *s, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
TCL_TRAAT(a, s, m, n)
|
|
|
9a99763 |
return s;
|
|
|
9a99763 |
} /* traat_ */
|
|
|
9a99763 |
@@ -346,34 +341,34 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// Triangular - Rectangular Multiplication
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F112 TRAL .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// tral.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::tral(const float *a, const float *u, float *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
TCL_TRAL(a, u, b, m, n)
|
|
|
9a99763 |
return b;
|
|
|
9a99763 |
} /* tral_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// Triangular - Rectangular Multiplication
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRAL .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// tral.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRAL .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::tral(const double *a, const double *u, double *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
TCL_TRAL(a, u, b, m, n)
|
|
|
9a99763 |
return b;
|
|
|
9a99763 |
} /* tral_ */
|
|
|
9a99763 |
@@ -405,34 +400,34 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// Triangular - Rectangular Multiplication
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F112 TRALT .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// tralt.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::tralt(const float *a, const float *u, float *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
TCL_TRALT(a, u, b, m, n)
|
|
|
9a99763 |
return b;
|
|
|
9a99763 |
} /* tralt_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// Triangular - Rectangular Multiplication
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F112 TRALT .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// tralt.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::tralt(const double *a, const double *u, double *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
TCL_TRALT(a, u, b, m, n)
|
|
|
9a99763 |
return b;
|
|
|
9a99763 |
} /* tralt_ */
|
|
|
9a99763 |
@@ -470,34 +465,34 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// Symmetric - Rectangular Multiplication
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRAS .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRAS .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// tras.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::tras(const float *a, const float *s, float *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
TCL_TRAS(a, s, b, m, n)
|
|
|
9a99763 |
return b;
|
|
|
9a99763 |
} /* tras_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// Symmetric - Rectangular Multiplication
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRAS .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRAS .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// tras.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::tras(const double *a, const double *s, double *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
TCL_TRAS(a, s, b, m, n)
|
|
|
9a99763 |
return b;
|
|
|
9a99763 |
} /* tras_ */
|
|
|
9a99763 |
@@ -543,51 +538,51 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// Transformation of Symmetric Matrix
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRASAT .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRASAT .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// trasat.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::trasat(const float *a, const float *s, float *r__, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
TCL_TRASAT(a, s, r__, m, n)
|
|
|
9a99763 |
return r__;
|
|
|
9a99763 |
} /* trasat_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// Transformation of Symmetric Matrix
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRASAT .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRASAT .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// trasat.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::trasat(const double *a, const double *s, double *r__, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
TCL_TRASAT(a, s, r__, m, n)
|
|
|
9a99763 |
return r__;
|
|
|
9a99763 |
} /* trasat_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// Transformation of Symmetric Matrix
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRASAT .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRASAT .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// trasat.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::trasat(const double *a, const float *s, float *r__, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
TCL_TRASAT(a, s, r__, m, n)
|
|
|
9a99763 |
return r__;
|
|
|
9a99763 |
} /* trasat_ */
|
|
|
9a99763 |
@@ -596,17 +591,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trata.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRATA .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRATA .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::trata(const float *a, float *r__, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int i__, j, ia, mn, ir, iat;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
@@ -636,22 +629,21 @@
|
|
|
9a99763 |
return r__;
|
|
|
9a99763 |
} /* trata_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
-//____________________________________________________________
|
|
|
9a99763 |
-// trats.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
+/// trats.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRATS .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
+
|
|
|
9a99763 |
float *TCL::trats(const float *a, const float *s, float *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- //BEGIN_HTML
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int inds, i__, j, k, ia, ib, is;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
- /* CERN PROGLIB# F112 TRATS .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
- /* ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
--b; --s; --a;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -684,25 +676,22 @@
|
|
|
9a99763 |
return b;
|
|
|
9a99763 |
} /* trats_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
-//____________________________________________________________
|
|
|
9a99763 |
-// tratsa.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/* Subroutine */float *TCL::tratsa(const float *a, const float *s, float *r__, int m, int n)
|
|
|
9a99763 |
-{
|
|
|
9a99763 |
- //BEGIN_HTML
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
+////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
+/// tratsa.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRATSA .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
+float *TCL::tratsa(const float *a, const float *s, float *r__, int m, int n)
|
|
|
9a99763 |
+{
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int imax, i__, j, k;
|
|
|
9a99763 |
int ia, ir, is, iaa, ind;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
- /* CERN PROGLIB# F112 TRATSA .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
- /* ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
--r__; --s; --a;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -743,26 +732,23 @@
|
|
|
9a99763 |
return r__;
|
|
|
9a99763 |
} /* tratsa_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
-//____________________________________________________________
|
|
|
9a99763 |
-// trchlu.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
+/// trchlu.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRCHLU .VERSION KERNFOR 4.16 870601
|
|
|
9a99763 |
+/// ORIG. 18/12/74 W.HART
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
+
|
|
|
9a99763 |
float *TCL::trchlu(const float *a, float *b, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- //BEGIN_HTML
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int ipiv, kpiv, i__, j;
|
|
|
9a99763 |
double r__, dc;
|
|
|
9a99763 |
int id, kd;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- /* CERN PROGLIB# F112 TRCHLU .VERSION KERNFOR 4.16 870601 */
|
|
|
9a99763 |
- /* ORIG. 18/12/74 W.HART */
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
--b; --a;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -806,15 +792,17 @@
|
|
|
9a99763 |
return b;
|
|
|
9a99763 |
} /* trchlu_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
-//____________________________________________________________
|
|
|
9a99763 |
-// trchul.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/* Subroutine */float *TCL::trchul(const float *a, float *b, int n)
|
|
|
9a99763 |
+////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
+/// trchul.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRCHUL .VERSION KERNFOR 4.16 870601
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
+
|
|
|
9a99763 |
+float *TCL::trchul(const float *a, float *b, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- //BEGIN_HTML
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int ipiv, kpiv, i__;
|
|
|
9a99763 |
double r__;
|
|
|
9a99763 |
@@ -823,11 +811,6 @@
|
|
|
9a99763 |
int id, kd;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- /* CERN PROGLIB# F112 TRCHUL .VERSION KERNFOR 4.16 870601 */
|
|
|
9a99763 |
- /* ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
--b; --a;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -875,17 +858,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trinv.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRINV .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-/* Subroutine */float *TCL::trinv(const float *t, float *s, int n)
|
|
|
9a99763 |
-{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRINV .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
+float *TCL::trinv(const float *t, float *s, int n)
|
|
|
9a99763 |
+{
|
|
|
9a99763 |
int lhor, ipiv, lver, j;
|
|
|
9a99763 |
double sum = 0;
|
|
|
9a99763 |
double r__ = 0;
|
|
|
9a99763 |
@@ -934,22 +915,20 @@
|
|
|
9a99763 |
return s;
|
|
|
9a99763 |
} /* trinv_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
-//____________________________________________________________
|
|
|
9a99763 |
-// trla.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/* Subroutine */float *TCL::trla(const float *u, const float *a, float *b, int m, int n)
|
|
|
9a99763 |
+////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
+/// trla.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRLA .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
+
|
|
|
9a99763 |
+float *TCL::trla(const float *u, const float *a, float *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
int ipiv, ia, ib, iu;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
- /* CERN PROGLIB# F112 TRLA .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
- /* ORIG. 18/12/74 WH */
|
|
|
9a99763 |
- //BEGIN_HTML
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
--b; --a; --u;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -981,22 +960,19 @@
|
|
|
9a99763 |
} /* trla_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
+/// trlta.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRLTA .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
-/* trlta.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-// Subroutine */float *TCL::trlta(const float *u, const float *a, float *b, int m, int n)
|
|
|
9a99763 |
+float *TCL::trlta(const float *u, const float *a, float *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
int ipiv, mxpn, i__, nTep, ia, ib, iu, mx;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
- /* CERN PROGLIB# F112 TRLTA .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
- /* ORIG. 18/12/74 WH */
|
|
|
9a99763 |
- //BEGIN_HTML
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
--b; --a; --u;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -1036,16 +1012,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trpck.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRPCK .VERSION KERNFOR 2.08 741218 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRPCK .VERSION KERNFOR 2.08 741218
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::trpck(const float *s, float *u, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
int i__, ia, ind, ipiv;
|
|
|
9a99763 |
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
@@ -1072,17 +1047,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trqsq.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRQSQ .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRQSQ .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::trqsq(const float *q, const float *s, float *r__, int m)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
int indq, inds, imax, i__, j, k, l;
|
|
|
9a99763 |
int iq, ir, is, iqq;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
@@ -1140,16 +1113,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trsa.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRSA .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRSA .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::trsa(const float *s, const float *a, float *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int inds, i__, j, k, ia, ib, is;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
@@ -1190,17 +1162,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trsinv.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F112 TRSINV .VERSION KERNFOR 2.08 741218
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
-/* Subroutine */float *TCL::trsinv(const float *g, float *gi, int n)
|
|
|
9a99763 |
+float *TCL::trsinv(const float *g, float *gi, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Function Body */
|
|
|
9a99763 |
trchlu(g, gi, n);
|
|
|
9a99763 |
trinv(gi, gi, n);
|
|
|
9a99763 |
@@ -1209,17 +1179,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trsmlu.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRSMLU .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-/* Subroutine */float *TCL::trsmlu(const float *u, float *s, int n)
|
|
|
9a99763 |
-{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRSMLU .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
+float *TCL::trsmlu(const float *u, float *s, int n)
|
|
|
9a99763 |
+{
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int lhor, lver, i__, k, l, ind;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
@@ -1246,17 +1214,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trsmul.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRSMUL .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-/* Subroutine */float *TCL::trsmul(const float *g, float *gi, int n)
|
|
|
9a99763 |
-{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRSMUL .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
+float *TCL::trsmul(const float *g, float *gi, int n)
|
|
|
9a99763 |
+{
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int lhor, lver, lpiv, i__, j, k, ind;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
@@ -1284,18 +1250,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trupck.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F112 TRUPCK .VERSION KERNFOR 2.08 741218
|
|
|
9a99763 |
/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
float *TCL::trupck(const float *u, float *s, int m)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-
|
|
|
9a99763 |
int i__, im, is, iu, iv, ih, m2;
|
|
|
9a99763 |
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
@@ -1336,25 +1299,20 @@
|
|
|
9a99763 |
} /* trupck_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
+/// trsat.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRSAT .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
-/* trsat.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-// Subroutine */ float *TCL::trsat(const float *s, const float *a, float *b, int m, int n)
|
|
|
9a99763 |
+float *TCL::trsat(const float *s, const float *a, float *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- //BEGIN_HTML
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int inds, i__, j, k, ia, ib, is;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- /* CERN PROGLIB# F112 TRSAT .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
- /* ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
--b; --a; --s;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -1391,25 +1349,21 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
// ------ double
|
|
|
9a99763 |
|
|
|
9a99763 |
-//____________________________________________________________
|
|
|
9a99763 |
-// trata.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
+/// trata.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRATA .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
+
|
|
|
9a99763 |
double *TCL::trata(const double *a, double *r__, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- //BEGIN_HTML
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int i__, j, ia, mn, ir, iat;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- /* CERN PROGLIB# F112 TRATA .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
- /* ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
--r__; --a;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -1437,23 +1391,21 @@
|
|
|
9a99763 |
return 0;
|
|
|
9a99763 |
} /* trata_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
-//____________________________________________________________
|
|
|
9a99763 |
-// trats.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
+/// trats.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRATS .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
+
|
|
|
9a99763 |
double *TCL::trats(const double *a, const double *s, double *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- //BEGIN_HTML
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int inds, i__, j, k, ia, ib, is;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- /* CERN PROGLIB# F112 TRATS .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
- /* ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
--b; --s; --a;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -1487,24 +1439,22 @@
|
|
|
9a99763 |
return 0;
|
|
|
9a99763 |
} /* trats_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
-//____________________________________________________________
|
|
|
9a99763 |
-// tratsa.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/* Subroutine */double *TCL::tratsa(const double *a, const double *s, double *r__, int m, int n)
|
|
|
9a99763 |
+////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
+/// tratsa.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRATSA .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
+
|
|
|
9a99763 |
+double *TCL::tratsa(const double *a, const double *s, double *r__, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- //BEGIN_HTML
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int imax, i__, j, k;
|
|
|
9a99763 |
int ia, ir, is, iaa, ind;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
- /* CERN PROGLIB# F112 TRATSA .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
- /* ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
--r__; --s; --a;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -1547,25 +1497,21 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trchlu.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRCHLU .VERSION KERNFOR 4.16 870601
|
|
|
9a99763 |
+/// ORIG. 18/12/74 W.HART
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::trchlu(const double *a, double *b, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int ipiv, kpiv, i__, j;
|
|
|
9a99763 |
double r__, dc;
|
|
|
9a99763 |
int id, kd;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- /* CERN PROGLIB# F112 TRCHLU .VERSION KERNFOR 4.16 870601 */
|
|
|
9a99763 |
- /* ORIG. 18/12/74 W.HART */
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
--b; --a;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -1609,15 +1555,17 @@
|
|
|
9a99763 |
return 0;
|
|
|
9a99763 |
} /* trchlu_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
-//____________________________________________________________
|
|
|
9a99763 |
-// trchul.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
+/// trchul.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRCHUL .VERSION KERNFOR 4.16 870601
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
+
|
|
|
9a99763 |
double *TCL::trchul(const double *a, double *b, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- //BEGIN_HTML
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int ipiv, kpiv, i__;
|
|
|
9a99763 |
double r__;
|
|
|
9a99763 |
@@ -1626,11 +1574,6 @@
|
|
|
9a99763 |
int id, kd;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- /* CERN PROGLIB# F112 TRCHUL .VERSION KERNFOR 4.16 870601 */
|
|
|
9a99763 |
- /* ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
--b; --a;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -1677,17 +1620,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trinv.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRINV .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
///
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRINV .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::trinv(const double *t, double *s, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
int lhor, ipiv, lver, j;
|
|
|
9a99763 |
double r__;
|
|
|
9a99763 |
int mx, ndTep, ind;
|
|
|
9a99763 |
@@ -1735,19 +1676,16 @@
|
|
|
9a99763 |
} /* trinv_ */
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
-///
|
|
|
9a99763 |
/// trla.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRLA .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
///
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRLA .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
-/* Subroutine */double *TCL::trla(const double *u, const double *a, double *b, int m, int n)
|
|
|
9a99763 |
+double *TCL::trla(const double *u, const double *a, double *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
int ipiv, ia, ib, iu;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -1782,17 +1720,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trlta.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F112 TRLTA .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::trlta(const double *u, const double *a, double *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
int ipiv, mxpn, i__, nTep, ia, ib, iu, mx;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
|
|
|
9a99763 |
@@ -1834,16 +1770,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trpck.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRPCK .VERSION KERNFOR 2.08 741218 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-/* Subroutine */double *TCL::trpck(const double *s, double *u, int n)
|
|
|
9a99763 |
-{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRPCK .VERSION KERNFOR 2.08 741218
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
+
|
|
|
9a99763 |
+double *TCL::trpck(const double *s, double *u, int n)
|
|
|
9a99763 |
+{
|
|
|
9a99763 |
int i__, ia, ind, ipiv;
|
|
|
9a99763 |
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
@@ -1869,17 +1804,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trqsq.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRQSQ .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRQSQ .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::trqsq(const double *q, const double *s, double *r__, int m)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
int indq, inds, imax, i__, j, k, l;
|
|
|
9a99763 |
int iq, ir, is, iqq;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
@@ -1936,16 +1869,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trsa.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRSA .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRSA .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::trsa(const double *s, const double *a, double *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int inds, i__, j, k, ia, ib, is;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
@@ -1985,17 +1917,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trsinv.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F112 TRSINV .VERSION KERNFOR 2.08 741218
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
-/* Subroutine */double *TCL::trsinv(const double *g, double *gi, int n)
|
|
|
9a99763 |
+double *TCL::trsinv(const double *g, double *gi, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Function Body */
|
|
|
9a99763 |
trchlu(g, gi, n);
|
|
|
9a99763 |
trinv(gi, gi, n);
|
|
|
9a99763 |
@@ -2006,17 +1936,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trsmlu.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRSMLU .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-/* Subroutine */double *TCL::trsmlu(const double *u, double *s, int n)
|
|
|
9a99763 |
-{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRSMLU .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
+double *TCL::trsmlu(const double *u, double *s, int n)
|
|
|
9a99763 |
+{
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int lhor, lver, i__, k, l, ind;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
@@ -2043,17 +1971,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trsmul.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
-/// CERN PROGLIB# F112 TRSMUL .VERSION KERNFOR 4.15 861204 */
|
|
|
9a99763 |
-/// ORIG. 18/12/74 WH */
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-/* Subroutine */double *TCL::trsmul(const double *g, double *gi, int n)
|
|
|
9a99763 |
-{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// CERN PROGLIB# F112 TRSMUL .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
+/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
+double *TCL::trsmul(const double *g, double *gi, int n)
|
|
|
9a99763 |
+{
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int lhor, lver, lpiv, i__, j, k, ind;
|
|
|
9a99763 |
double sum;
|
|
|
9a99763 |
@@ -2081,18 +2007,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trupck.F -- translated by f2c (version 19970219).
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F112 TRUPCK .VERSION KERNFOR 2.08 741218
|
|
|
9a99763 |
/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
-/* Subroutine */double *TCL::trupck(const double *u, double *s, int m)
|
|
|
9a99763 |
+double *TCL::trupck(const double *u, double *s, int m)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
-
|
|
|
9a99763 |
int i__, im, is, iu, iv, ih, m2;
|
|
|
9a99763 |
|
|
|
9a99763 |
/* Parameter adjuTments */
|
|
|
9a99763 |
@@ -2133,17 +2056,15 @@
|
|
|
9a99763 |
|
|
|
9a99763 |
////////////////////////////////////////////////////////////////////////////////
|
|
|
9a99763 |
/// trsat.F -- translated by f2c (version 19970219)
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
/// CERN PROGLIB# F112 TRSAT .VERSION KERNFOR 4.15 861204
|
|
|
9a99763 |
/// ORIG. 18/12/74 WH
|
|
|
9a99763 |
-///BEGIN_HTML
|
|
|
9a99763 |
+///
|
|
|
9a99763 |
+/// See original documentation of CERNLIB package
|
|
|
9a99763 |
+/// [F112](https://cern-tex.web.cern.ch/cern-tex/shortwrupsdir/f112/top.html)
|
|
|
9a99763 |
|
|
|
9a99763 |
double *TCL::trsat(const double *s, const double *a, double *b, int m, int n)
|
|
|
9a99763 |
{
|
|
|
9a99763 |
- /* -->
|
|
|
9a99763 |
- see original documentation of CERNLIB package F112
|
|
|
9a99763 |
-
|
|
|
9a99763 |
- // -->END_HTML
|
|
|
9a99763 |
-
|
|
|
9a99763 |
/* Local variables */
|
|
|
9a99763 |
int inds, i__, j, k, ia, ib, is;
|
|
|
9a99763 |
double sum;
|