Lines Matching defs:SLACN2
137 SUBROUTINE SLACN2( N, V, X, ISGN, EST, KASE, ISAVE ) subroutine
145 INTEGER KASE, N
146 REAL EST
149 INTEGER ISGN( * ), ISAVE( 3 )
150 REAL V( * ), X( * )
156 INTEGER ITMAX
158 REAL ZERO, ONE, TWO
162 INTEGER I, JLAST
163 REAL ALTSGN, ESTOLD, TEMP
166 INTEGER ISAMAX
167 REAL SASUM
181 10 CONTINUE
192 20 CONTINUE
204 30 CONTINUE
212 40 CONTINUE
218 50 CONTINUE
221 60 CONTINUE
230 70 CONTINUE
237 80 CONTINUE
241 90 CONTINUE
249 100 CONTINUE
257 110 CONTINUE
268 120 CONTINUE
292 * End of SLACN2 argument