Lines Matching refs:NMAX
77 INTEGER NMAX, INCMAX
78 PARAMETER ( NMAX = 65, INCMAX = 2 )
92 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
93 $ ALF( NALMAX ), AS( NMAX*NMAX ), BET( NBEMAX ),
94 $ X( NMAX ), XS( NMAX*INCMAX ),
95 $ XX( NMAX*INCMAX ), Y( NMAX ),
96 $ YS( NMAX*INCMAX ), YT( NMAX ),
97 $ YY( NMAX*INCMAX ), Z( 2*NMAX )
98 DOUBLE PRECISION G( NMAX )
161 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
162 WRITE( NOUT, FMT = 9996 )NMAX
256 N = MIN( 32, NMAX )
270 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
278 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
310 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
316 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
323 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
328 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
334 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
340 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
401 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
420 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
425 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
426 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
427 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
428 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
429 $ YY( NMAX*INCMAX )
430 DOUBLE PRECISION G( NMAX )
480 $ M = MIN( N + ND, NMAX )
501 IF( LDA.LT.NMAX )
504 IF( LDA.GT.NMAX )
512 CALL ZMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
673 $ NMAX, X, INCX, BETA, Y,
747 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
766 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
771 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
772 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
773 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
774 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
775 $ YY( NMAX*INCMAX )
776 DOUBLE PRECISION G( NMAX )
840 IF( LDA.LT.NMAX )
843 IF( LDA.GT.NMAX )
858 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
1018 CALL ZMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1095 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,
1115 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA
1119 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
1120 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1121 $ XT( NMAX ), XX( NMAX*INCMAX ), Z( NMAX )
1122 DOUBLE PRECISION G( NMAX )
1167 DO 10 I = 1, NMAX
1191 IF( LDA.LT.NMAX )
1194 IF( LDA.GT.NMAX )
1216 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1372 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X,
1386 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1457 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1478 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1482 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1483 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1484 $ XX( NMAX*INCMAX ), Y( NMAX ),
1485 $ YS( NMAX*INCMAX ), YT( NMAX ),
1486 $ YY( NMAX*INCMAX ), Z( NMAX )
1487 DOUBLE PRECISION G( NMAX )
1528 $ M = MIN( N + ND, NMAX )
1532 IF( LDA.LT.NMAX )
1535 IF( LDA.GT.NMAX )
1574 CALL ZMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX,
1673 CALL ZMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1735 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1756 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1760 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1761 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1762 $ XX( NMAX*INCMAX ), Y( NMAX ),
1763 $ YS( NMAX*INCMAX ), YT( NMAX ),
1764 $ YY( NMAX*INCMAX ), Z( NMAX )
1765 DOUBLE PRECISION G( NMAX )
1810 IF( LDA.LT.NMAX )
1813 IF( LDA.GT.NMAX )
1847 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
2020 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
2041 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
2045 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2046 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
2047 $ XX( NMAX*INCMAX ), Y( NMAX ),
2048 $ YS( NMAX*INCMAX ), YT( NMAX ),
2049 $ YY( NMAX*INCMAX ), Z( NMAX, 2 )
2050 DOUBLE PRECISION G( NMAX )
2096 IF( LDA.LT.NMAX )
2099 IF( LDA.GT.NMAX )
2147 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2264 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2685 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2713 INTEGER KL, KU, LDA, M, N, NMAX
2718 COMPLEX*16 A( NMAX, * ), AA( * )
2878 SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
2897 INTEGER INCX, INCY, M, N, NMAX, NOUT
2901 COMPLEX*16 A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )
