Lines Matching refs:NMAX
76 INTEGER NMAX, INCMAX
77 PARAMETER ( NMAX = 65, INCMAX = 2 )
91 COMPLEX 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 REAL G( NMAX )
160 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
161 WRITE( NOUT, FMT = 9996 )NMAX
255 N = MIN( 32, NMAX )
269 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
277 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
309 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
315 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
322 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
327 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
333 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
339 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
400 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
418 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
423 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
424 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
425 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
426 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
427 $ YY( NMAX*INCMAX )
428 REAL G( NMAX )
478 $ M = MIN( N + ND, NMAX )
499 IF( LDA.LT.NMAX )
502 IF( LDA.GT.NMAX )
510 CALL CMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
671 $ NMAX, X, INCX, BETA, Y,
745 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX,
763 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX,
768 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
769 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
770 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
771 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
772 $ YY( NMAX*INCMAX )
773 REAL G( NMAX )
837 IF( LDA.LT.NMAX )
840 IF( LDA.GT.NMAX )
855 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
1015 CALL CMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1092 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX,
1111 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA
1115 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ),
1116 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1117 $ XT( NMAX ), XX( NMAX*INCMAX ), Z( NMAX )
1118 REAL G( NMAX )
1163 DO 10 I = 1, NMAX
1187 IF( LDA.LT.NMAX )
1190 IF( LDA.GT.NMAX )
1212 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1368 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X,
1382 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1453 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1473 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1477 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1478 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1479 $ XX( NMAX*INCMAX ), Y( NMAX ),
1480 $ YS( NMAX*INCMAX ), YT( NMAX ),
1481 $ YY( NMAX*INCMAX ), Z( NMAX )
1482 REAL G( NMAX )
1523 $ M = MIN( N + ND, NMAX )
1527 IF( LDA.LT.NMAX )
1530 IF( LDA.GT.NMAX )
1569 CALL CMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX,
1668 CALL CMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1730 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
1750 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
1754 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1755 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1756 $ XX( NMAX*INCMAX ), Y( NMAX ),
1757 $ YS( NMAX*INCMAX ), YT( NMAX ),
1758 $ YY( NMAX*INCMAX ), Z( NMAX )
1759 REAL G( NMAX )
1804 IF( LDA.LT.NMAX )
1807 IF( LDA.GT.NMAX )
1841 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
2014 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX,
2034 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA
2038 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2039 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
2040 $ XX( NMAX*INCMAX ), Y( NMAX ),
2041 $ YS( NMAX*INCMAX ), YT( NMAX ),
2042 $ YY( NMAX*INCMAX ), Z( NMAX, 2 )
2043 REAL G( NMAX )
2089 IF( LDA.LT.NMAX )
2092 IF( LDA.GT.NMAX )
2140 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2257 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2678 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2705 INTEGER KL, KU, LDA, M, N, NMAX
2710 COMPLEX A( NMAX, * ), AA( * )
2870 SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y,
2889 INTEGER INCX, INCY, M, N, NMAX, NOUT
2893 COMPLEX A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )
