5 * Revision 1.1.1.1 1996/02/15 17:49:54 mclareni
9 #include "kerngen/pilot.h"
10 SUBROUTINE TLUK (A,IASEP,NR,SIG,BETA)
12 C CERN PROGLIB# E230 TLUK .VERSION KERNFOR 2.06 740511
13 C ORIG. 11/05/74 WH+WM
15 C. SUBROUTINE TLUK (A,IASEP,NR,SIG,BETA)
17 C. COMPUTE TRANSFORMATION QUANTITIES.
18 C. TLUK HAS BEEN MODIFIED FOR KINEMATICS.
20 C.-------------------------------------------------------------------
22 COMMON /SLATE/ DUM(37),I,JA,LL
26 C-- COMPUTE MODULUS OF A GIVEN ROW IN A MATRIX AND FIND LAST
27 C-- NON-ZERO ELEMENT IN THAT ROW.
34 IF (A(JA).EQ.0.) GO TO 10
36 SIG= SIG + A(JA)* A(JA)
39 C-- FOR A ZERO ROW RETURN.
44 C-- OTHERWISE TAKE THE MODULUS WITH SIGN OF FIRST ELEMENT OF THAT
45 C-- ROW. REDEFINE THAT FIRST ARGUMENT AND VALUE OF BETA.
47 SIG = SIGN (SQRT (SIG),A(1))
50 BETA = 1. / (SIG * BETA)