Lines Matching refs:NMAX
76 INTEGER NMAX, INCMAX variable
77 PARAMETER ( NMAX = 65, INCMAX = 2 )
91 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
92 $ ALF( NALMAX ), AS( NMAX*NMAX ), BET( NBEMAX ),
93 $ X( NMAX ), XS( NMAX*INCMAX ),
94 $ XX( NMAX*INCMAX ), Y( NMAX ),
95 $ YS( NMAX*INCMAX ), YT( NMAX ),
96 $ YY( NMAX*INCMAX ), Z( 2*NMAX )
97 DOUBLE PRECISION G( NMAX )
158 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
159 WRITE( NOUT, FMT = 9996 )NMAX
267 N = MIN( 32, NMAX )
281 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
289 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
322 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
328 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
336 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
342 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
351 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z,
357 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z,
365 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
371 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
379 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
385 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
393 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
399 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
464 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
483 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX, local
488 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
489 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
490 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
491 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
492 $ YY( NMAX*INCMAX )
493 DOUBLE PRECISION G( NMAX )
544 $ M = MIN( N + ND, NMAX )
565 IF( LDA.LT.NMAX )
568 IF( LDA.GT.NMAX )
576 CALL ZMAKE( SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX, AA,
745 $ NMAX, X, INCX, BETA, Y,
820 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
839 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX, local
844 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
845 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
846 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
847 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
848 $ YY( NMAX*INCMAX )
849 DOUBLE PRECISION G( NMAX )
914 IF( LDA.LT.NMAX )
917 IF( LDA.GT.NMAX )
937 CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
1099 CALL ZMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1176 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, argument
1196 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA, local
1201 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ),
1202 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1203 $ XT( NMAX ), XX( NMAX*INCMAX ), Z( NMAX )
1204 DOUBLE PRECISION G( NMAX )
1250 DO 10 I = 1, NMAX
1274 IF( LDA.LT.NMAX )
1277 IF( LDA.GT.NMAX )
1316 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1472 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X,
1486 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1558 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
1579 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA, local
1584 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1585 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1586 $ XX( NMAX*INCMAX ), Y( NMAX ),
1587 $ YS( NMAX*INCMAX ), YT( NMAX ),
1588 $ YY( NMAX*INCMAX ), Z( NMAX )
1589 DOUBLE PRECISION G( NMAX )
1630 $ M = MIN( N + ND, NMAX )
1634 IF( LDA.LT.NMAX )
1637 IF( LDA.GT.NMAX )
1676 CALL ZMAKE(SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX,
1775 CALL ZMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1836 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
1857 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA, local
1862 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1863 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1864 $ XX( NMAX*INCMAX ), Y( NMAX ),
1865 $ YS( NMAX*INCMAX ), YT( NMAX ),
1866 $ YY( NMAX*INCMAX ), Z( NMAX )
1867 DOUBLE PRECISION G( NMAX )
1913 IF( LDA.LT.NMAX )
1916 IF( LDA.GT.NMAX )
1955 CALL ZMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX,
2130 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
2151 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA, local
2156 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2157 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
2158 $ XX( NMAX*INCMAX ), Y( NMAX ),
2159 $ YS( NMAX*INCMAX ), YT( NMAX ),
2160 $ YY( NMAX*INCMAX ), Z( NMAX, 2 )
2161 DOUBLE PRECISION G( NMAX )
2208 IF( LDA.LT.NMAX )
2211 IF( LDA.GT.NMAX )
2264 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2381 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2457 SUBROUTINE ZMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, argument
2476 INTEGER INCX, INCY, M, N, NMAX, NOUT local
2480 COMPLEX*16 A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )
2747 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, argument
2775 INTEGER KL, KU, LDA, M, N, NMAX local
2780 COMPLEX*16 A( NMAX, * ), AA( * )