Lines Matching refs:NMAX
122 INTEGER NMAX, INCMAX
123 PARAMETER ( NMAX = 65, INCMAX = 2 )
137 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ),
138 $ ALF( NALMAX ), AS( NMAX*NMAX ), BET( NBEMAX ),
139 $ X( NMAX ), XS( NMAX*INCMAX ),
140 $ XX( NMAX*INCMAX ), Y( NMAX ),
141 $ YS( NMAX*INCMAX ), YT( NMAX ),
142 $ YY( NMAX*INCMAX ), Z( 2*NMAX )
143 REAL G( NMAX )
206 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
207 WRITE( NOUT, FMT = 9996 )NMAX
294 N = MIN( 32, NMAX )
308 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
316 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
348 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
354 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
361 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
366 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
372 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
378 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
439 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
457 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
462 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
463 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
464 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
465 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
466 $ YY( NMAX*INCMAX )
467 REAL G( NMAX )
517 $ M = MIN( N + ND, NMAX )
538 IF( LDA.LT.NMAX )
541 IF( LDA.GT.NMAX )
549 CALL CMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
710 $ NMAX, X, INCX, BETA, Y,
784 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
802 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
807 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
808 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
809 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
810 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
811 $ YY( NMAX*INCMAX )
812 REAL G( NMAX )
876 IF( LDA.LT.NMAX )
879 IF( LDA.GT.NMAX )
894 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
1054 CALL CMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1131 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,
1150 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA
1154 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ),
1155 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1156 $ XT( NMAX ), XX( NMAX*INCMAX ), Z( NMAX )
1157 REAL G( NMAX )
1202 DO 10 I = 1, NMAX
1226 IF( LDA.LT.NMAX )
1229 IF( LDA.GT.NMAX )
1251 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1407 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X,
1421 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1492 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1512 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1516 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1517 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1518 $ XX( NMAX*INCMAX ), Y( NMAX ),
1519 $ YS( NMAX*INCMAX ), YT( NMAX ),
1520 $ YY( NMAX*INCMAX ), Z( NMAX )
1521 REAL G( NMAX )
1562 $ M = MIN( N + ND, NMAX )
1566 IF( LDA.LT.NMAX )
1569 IF( LDA.GT.NMAX )
1608 CALL CMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX,
1707 CALL CMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1769 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1789 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1793 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1794 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1795 $ XX( NMAX*INCMAX ), Y( NMAX ),
1796 $ YS( NMAX*INCMAX ), YT( NMAX ),
1797 $ YY( NMAX*INCMAX ), Z( NMAX )
1798 REAL G( NMAX )
1843 IF( LDA.LT.NMAX )
1846 IF( LDA.GT.NMAX )
1880 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
2053 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
2073 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
2077 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2078 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
2079 $ XX( NMAX*INCMAX ), Y( NMAX ),
2080 $ YS( NMAX*INCMAX ), YT( NMAX ),
2081 $ YY( NMAX*INCMAX ), Z( NMAX, 2 )
2082 REAL G( NMAX )
2128 IF( LDA.LT.NMAX )
2131 IF( LDA.GT.NMAX )
2179 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2296 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2717 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2744 INTEGER KL, KU, LDA, M, N, NMAX
2749 COMPLEX A( NMAX, * ), AA( * )
2909 SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
2928 INTEGER INCX, INCY, M, N, NMAX, NOUT
2932 COMPLEX A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )
