Lines Matching refs:NMAX
123 INTEGER NMAX, INCMAX
124 PARAMETER ( NMAX = 65, INCMAX = 2 )
138 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
139 $ ALF( NALMAX ), AS( NMAX*NMAX ), BET( NBEMAX ),
140 $ X( NMAX ), XS( NMAX*INCMAX ),
141 $ XX( NMAX*INCMAX ), Y( NMAX ),
142 $ YS( NMAX*INCMAX ), YT( NMAX ),
143 $ YY( NMAX*INCMAX ), Z( 2*NMAX )
144 DOUBLE PRECISION G( NMAX )
207 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
208 WRITE( NOUT, FMT = 9996 )NMAX
295 N = MIN( 32, NMAX )
309 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
317 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
349 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
355 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
362 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
367 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
373 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
379 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
440 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
459 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
464 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
465 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
466 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
467 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
468 $ YY( NMAX*INCMAX )
469 DOUBLE PRECISION G( NMAX )
519 $ M = MIN( N + ND, NMAX )
540 IF( LDA.LT.NMAX )
543 IF( LDA.GT.NMAX )
551 CALL ZMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
712 $ NMAX, X, INCX, BETA, Y,
786 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
805 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
810 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
811 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
812 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
813 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
814 $ YY( NMAX*INCMAX )
815 DOUBLE PRECISION G( NMAX )
879 IF( LDA.LT.NMAX )
882 IF( LDA.GT.NMAX )
897 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
1057 CALL ZMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1134 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,
1154 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA
1158 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
1159 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1160 $ XT( NMAX ), XX( NMAX*INCMAX ), Z( NMAX )
1161 DOUBLE PRECISION G( NMAX )
1206 DO 10 I = 1, NMAX
1230 IF( LDA.LT.NMAX )
1233 IF( LDA.GT.NMAX )
1255 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1411 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X,
1425 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1496 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1517 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1521 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1522 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1523 $ XX( NMAX*INCMAX ), Y( NMAX ),
1524 $ YS( NMAX*INCMAX ), YT( NMAX ),
1525 $ YY( NMAX*INCMAX ), Z( NMAX )
1526 DOUBLE PRECISION G( NMAX )
1567 $ M = MIN( N + ND, NMAX )
1571 IF( LDA.LT.NMAX )
1574 IF( LDA.GT.NMAX )
1613 CALL ZMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX,
1712 CALL ZMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1774 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1795 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1799 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1800 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1801 $ XX( NMAX*INCMAX ), Y( NMAX ),
1802 $ YS( NMAX*INCMAX ), YT( NMAX ),
1803 $ YY( NMAX*INCMAX ), Z( NMAX )
1804 DOUBLE PRECISION G( NMAX )
1849 IF( LDA.LT.NMAX )
1852 IF( LDA.GT.NMAX )
1886 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
2059 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
2080 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
2084 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2085 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
2086 $ XX( NMAX*INCMAX ), Y( NMAX ),
2087 $ YS( NMAX*INCMAX ), YT( NMAX ),
2088 $ YY( NMAX*INCMAX ), Z( NMAX, 2 )
2089 DOUBLE PRECISION G( NMAX )
2135 IF( LDA.LT.NMAX )
2138 IF( LDA.GT.NMAX )
2186 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2303 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2724 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2752 INTEGER KL, KU, LDA, M, N, NMAX
2757 COMPLEX*16 A( NMAX, * ), AA( * )
2917 SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
2936 INTEGER INCX, INCY, M, N, NMAX, NOUT
2940 COMPLEX*16 A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )
