5 * Revision 1.1.1.1 1996/02/15 17:49:55 mclareni
9 #include "kerngen/pilot.h"
10 SUBROUTINE TRSA (S,A,B,M,N)
12 C CERN PROGLIB# F112 TRSA .VERSION KERNFOR 4.15 861204
15 #if defined(CERNLIB_INTDOUBL)
18 DIMENSION S(*),A(*),B(*)
32 10 IF (K.GT.I) GO TO 20
36 30 SUM = SUM + S(IS)*A(IA)