Lines Matching defs:SGESVJ
323 SUBROUTINE SGESVJ( JOBA, JOBU, JOBV, M, N, A, LDA, SVA, MV, V, subroutine
332 INTEGER INFO, LDA, LDV, LWORK, M, MV, N
333 CHARACTER*1 JOBA, JOBU, JOBV
336 REAL A( LDA, * ), SVA( N ), V( LDV, * ), local
337 $ WORK( LWORK )
343 REAL ZERO, HALF, ONE
345 INTEGER NSWEEP
349 REAL AAPP, AAPP0, AAPQ, AAQQ, APOAQ, AQOAP, BIG,
350 $ BIGTHETA, CS, CTOL, EPSLN, LARGE, MXAAPQ,
351 $ MXSINJ, ROOTBIG, ROOTEPS, ROOTSFMIN, ROOTTOL,
352 $ SKL, SFMIN, SMALL, SN, T, TEMP1, THETA,
353 $ THSIGN, TOL
354 INTEGER BLSKIP, EMPTSW, i, ibr, IERR, igl, IJBLSK, ir1,
355 $ ISWROT, jbc, jgl, KBL, LKAHEAD, MVL, N2, N34,
356 $ N4, NBL, NOTROT, p, PSKIPPED, q, ROWSKIP,
357 $ SWBAND
358 LOGICAL APPLV, GOSCALE, LOWER, LSVEC, NOSCALE, ROTOK,
359 $ RSVEC, UCTOL, UPPER
362 REAL FASTR( 5 )
370 REAL SDOT, SNRM2
372 INTEGER ISAMAX
375 REAL SLAMCH
377 LOGICAL LSAME
532 CALL XERBLA( 'SGESVJ', -INFO ) argument
557 CALL XERBLA( 'SGESVJ', -INFO ) argument
570 3873 CONTINUE
573 3874 CONTINUE
587 4781 CONTINUE
674 * if SGESVJ is used as a computational routine in the preconditioned argument
1116 2002 CONTINUE
1119 2103 CONTINUE
1130 2001 CONTINUE
1133 1002 CONTINUE
1448 2200 CONTINUE
1450 2203 CONTINUE
1462 2100 CONTINUE
1464 2010 CONTINUE
1466 2011 CONTINUE
1470 2012 CONTINUE
1472 2000 CONTINUE
1498 1993 CONTINUE
1505 1994 CONTINUE
1511 1995 CONTINUE
1534 5991 CONTINUE
1545 1998 CONTINUE
1554 2398 CONTINUE
1559 2399 CONTINUE
1569 2400 CONTINUE