5 * Revision 1.1.1.1 1996/02/15 17:49:53 mclareni
9 #include "kerngen/pilot.h"
10 #if !defined(CERNLIB_TCGEN)
11 SUBROUTINE SMXINV (A,NDIM,IFAIL)
13 C CERN PROGLIB# F107 SMXINV .VERSION KERNFOR 1.0 720503
16 DIMENSION A(*),INDEX(100),RI(100)
32 IF (INDEX(J).EQ.0) GO TO 19
34 IF (ELM.LE.PIVOT) GO TO 19
40 IF (PIVOT/ABS(A(1)).LT.TOL) GO TO 100
58 IF (ELM.EQ.0.) GO TO 50
71 C-- CHANGE THE SIGN AND PROVISIONAL FILL-UP