5 * Revision 1.1.1.1 1996/02/15 17:49:53 mclareni
9 #include "kerngen/pilot.h"
10 SUBROUTINE TLSTEP (A,B,IASEP,IBSEP,NR,NC,BETA)
12 C CERN PROGLIB# E230 TLSTEP .VERSION KERNFOR 2.06 740511
13 C ORIG. 11/05/74 WH+WM
15 C. SUBROUTINE TLSTEP (A,B,IASEP,IBSEP,NR,NC,BETA)
17 C. PERFORMS AN ORTHOGONAL TRANSFORMATION.
19 C.-------------------------------------------------------------------
21 COMMON /SLATE/ DUM(34),H,I,IB,J,JA,JB
40 B(JB) = B(JB) - A(JA) * H