5 * Revision 1.1.1.1 1996/02/15 17:49:54 mclareni
9 #include "kerngen/pilot.h"
10 SUBROUTINE TRINV (T,S,N)
12 C CERN PROGLIB# F112 TRINV .VERSION KERNFOR 4.15 861204
15 #if defined(CERNLIB_INTDOUBL)
16 DOUBLE PRECISION SUM, R
25 IF (T(IPIV).GT.0.) R=1./T(IPIV)
30 20 IF (IND.EQ.IPIV) GO TO 50
39 SUM = SUM + T(LHOR)*S(LVER)
41 IF (LHOR.LT.IND) GO TO 30