Lines Matching refs:NMAX
72 INTEGER NMAX, INCMAX variable
73 PARAMETER ( NMAX = 65, INCMAX = 2 )
87 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ),
88 $ ALF( NALMAX ), AS( NMAX*NMAX ), BET( NBEMAX ),
89 $ G( NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
90 $ XX( NMAX*INCMAX ), Y( NMAX ),
91 $ YS( NMAX*INCMAX ), YT( NMAX ),
92 $ YY( NMAX*INCMAX ), Z( 2*NMAX )
153 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
154 WRITE( NOUT, FMT = 9996 )NMAX
263 N = MIN( 32, NMAX )
277 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
285 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
318 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
324 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
332 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
338 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
347 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z,
353 $ 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,
375 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
381 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
389 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
395 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
458 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
474 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX, local
479 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
480 $ AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),
481 $ X( NMAX ), XS( NMAX*INCMAX ),
482 $ XX( NMAX*INCMAX ), Y( NMAX ),
483 $ YS( NMAX*INCMAX ), YT( NMAX ),
484 $ YY( NMAX*INCMAX )
534 $ M = MIN( N + ND, NMAX )
555 IF( LDA.LT.NMAX )
558 IF( LDA.GT.NMAX )
566 CALL SMAKE( SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX, AA,
734 $ NMAX, X, INCX, BETA, Y,
818 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
834 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX, local
839 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
840 $ AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),
841 $ X( NMAX ), XS( NMAX*INCMAX ),
842 $ XX( NMAX*INCMAX ), Y( NMAX ),
843 $ YS( NMAX*INCMAX ), YT( NMAX ),
844 $ YY( NMAX*INCMAX )
908 IF( LDA.LT.NMAX )
911 IF( LDA.GT.NMAX )
931 CALL SMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
1092 CALL SMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1177 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, argument
1193 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA, local
1198 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ),
1199 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1200 $ XS( NMAX*INCMAX ), XT( NMAX ),
1201 $ XX( NMAX*INCMAX ), Z( NMAX )
1246 DO 10 I = 1, NMAX
1270 IF( LDA.LT.NMAX )
1273 IF( LDA.GT.NMAX )
1312 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1468 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, X,
1482 CALL SMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1564 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
1581 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA, local
1586 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1587 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1588 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
1589 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1590 $ YY( NMAX*INCMAX ), Z( NMAX )
1629 $ M = MIN( N + ND, NMAX )
1633 IF( LDA.LT.NMAX )
1636 IF( LDA.GT.NMAX )
1675 CALL SMAKE( SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX,
1765 CALL SMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1836 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
1853 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA, local
1858 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1859 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1860 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
1861 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1862 $ YY( NMAX*INCMAX ), Z( NMAX )
1907 IF( LDA.LT.NMAX )
1910 IF( LDA.GT.NMAX )
1948 CALL SMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX,
2132 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
2149 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA, local
2154 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2155 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
2156 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
2157 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
2158 $ YY( NMAX*INCMAX ), Z( NMAX, 2 )
2204 IF( LDA.LT.NMAX )
2207 IF( LDA.GT.NMAX )
2260 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2377 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2463 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, argument
2486 INTEGER KL, KU, LDA, M, N, NMAX local
2491 REAL A( NMAX, * ), AA( * )
2639 SUBROUTINE SMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, argument
2655 INTEGER INCX, INCY, M, N, NMAX, NOUT local
2659 REAL A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ),