Lines Matching defs:NMAX
119 INTEGER NMAX, INCMAX
120 PARAMETER ( NMAX = 65, INCMAX = 2 )
134 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ),
135 $ ALF( NALMAX ), AS( NMAX*NMAX ), BET( NBEMAX ),
136 $ G( NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
137 $ XX( NMAX*INCMAX ), Y( NMAX ),
138 $ YS( NMAX*INCMAX ), YT( NMAX ),
139 $ YY( NMAX*INCMAX ), Z( 2*NMAX )
201 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
202 WRITE( NOUT, FMT = 9996 )NMAX
289 N = MIN( 32, NMAX )
303 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
311 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
343 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
349 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
356 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
361 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
367 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
373 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
432 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
448 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
453 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
454 $ AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),
455 $ X( NMAX ), XS( NMAX*INCMAX ),
456 $ XX( NMAX*INCMAX ), Y( NMAX ),
457 $ YS( NMAX*INCMAX ), YT( NMAX ),
458 $ YY( NMAX*INCMAX )
507 $ M = MIN( N + ND, NMAX )
528 IF( LDA.LT.NMAX )
531 IF( LDA.GT.NMAX )
539 CALL SMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
700 $ NMAX, X, INCX, BETA, Y,
773 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
789 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
794 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
795 $ AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),
796 $ X( NMAX ), XS( NMAX*INCMAX ),
797 $ XX( NMAX*INCMAX ), Y( NMAX ),
798 $ YS( NMAX*INCMAX ), YT( NMAX ),
799 $ YY( NMAX*INCMAX )
862 IF( LDA.LT.NMAX )
865 IF( LDA.GT.NMAX )
880 CALL SMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
1040 CALL SMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1115 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,
1131 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA
1135 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ),
1136 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1137 $ XS( NMAX*INCMAX ), XT( NMAX ),
1138 $ XX( NMAX*INCMAX ), Z( NMAX )
1182 DO 10 I = 1, NMAX
1206 IF( LDA.LT.NMAX )
1209 IF( LDA.GT.NMAX )
1231 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1387 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X,
1401 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1472 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1489 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1493 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1494 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1495 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
1496 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1497 $ YY( NMAX*INCMAX ), Z( NMAX )
1536 $ M = MIN( N + ND, NMAX )
1540 IF( LDA.LT.NMAX )
1543 IF( LDA.GT.NMAX )
1582 CALL SMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX,
1672 CALL SMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1733 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1750 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1754 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1755 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1756 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
1757 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1758 $ YY( NMAX*INCMAX ), Z( NMAX )
1802 IF( LDA.LT.NMAX )
1805 IF( LDA.GT.NMAX )
1838 CALL SMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
2011 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
2028 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
2032 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2033 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
2034 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
2035 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
2036 $ YY( NMAX*INCMAX ), Z( NMAX, 2 )
2081 IF( LDA.LT.NMAX )
2084 IF( LDA.GT.NMAX )
2132 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2249 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2651 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2674 INTEGER KL, KU, LDA, M, N, NMAX
2679 REAL A( NMAX, * ), AA( * )
2827 SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
2843 INTEGER INCX, INCY, M, N, NMAX, NOUT
2847 REAL A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ),