This commit was generated by cvs2svn to compensate for changes in r2,

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / tlsmsq.F

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgen/tlsmsq.F b/MINICERN/packlib/kernlib/kerngen/tcgen/tlsmsq.F
new file mode 100644 (file)
index 0000000..b487143
--- /dev/null
+++ b/MINICERN/packlib/kernlib/kerngen/tcgen/tlsmsq.F
@@ -0,0 +1,31 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1996/02/15 17:49:53  mclareni
+* Kernlib
+*
+*
+#include "kerngen/pilot.h"
+      SUBROUTINE TLSMSQ (B,L,M,F)
+C
+C CERN PROGLIB# E230    TLSMSQ          .VERSION KERNFOR  2.06  740511
+C ORIG. 11/05/74 WH+WM
+C
+C.  SUBROUTINE TLSMSQ (B,L,M,F)
+C.
+C.       CALCULATES THE SUM OF SQUARES OF RESIDUALS.
+C.
+C.-------------------------------------------------------------------
+C
+      COMMON /SLATE/ DUM(38),I,JB
+      DIMENSION      B(*)
+C
+      F  = 0.
+      JB = 1
+      DO           10        I=1,M
+      F  = F + B(JB)*B(JB)
+   10 JB = JB + L
+C
+      RETURN
+      END