Lines Matching refs:NMAX
75 INTEGER NMAX, INCMAX variable
76 PARAMETER ( NMAX = 65, INCMAX = 2 )
90 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ),
91 $ ALF( NALMAX ), AS( NMAX*NMAX ), BET( NBEMAX ),
92 $ X( NMAX ), XS( NMAX*INCMAX ),
93 $ XX( NMAX*INCMAX ), Y( NMAX ),
94 $ YS( NMAX*INCMAX ), YT( NMAX ),
95 $ YY( NMAX*INCMAX ), Z( 2*NMAX )
96 REAL G( NMAX )
157 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
158 WRITE( NOUT, FMT = 9996 )NMAX
267 N = MIN( 32, NMAX )
281 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
289 CALL CMVCH( 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
482 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX, local
487 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
488 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
489 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
490 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
491 $ YY( NMAX*INCMAX )
492 REAL G( NMAX )
543 $ M = MIN( N + ND, NMAX )
564 IF( LDA.LT.NMAX )
567 IF( LDA.GT.NMAX )
575 CALL CMAKE( SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX, AA,
744 $ NMAX, X, INCX, BETA, Y,
819 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
837 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX, local
842 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
843 $ AS( NMAX*NMAX ), BET( NBET ), X( NMAX ),
844 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
845 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
846 $ YY( NMAX*INCMAX )
847 REAL G( NMAX )
912 IF( LDA.LT.NMAX )
915 IF( LDA.GT.NMAX )
935 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX, AA,
1097 CALL CMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1174 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, argument
1193 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA, local
1198 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ),
1199 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1200 $ XT( NMAX ), XX( NMAX*INCMAX ), Z( NMAX )
1201 REAL G( NMAX )
1247 DO 10 I = 1, NMAX
1271 IF( LDA.LT.NMAX )
1274 IF( LDA.GT.NMAX )
1313 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1469 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X,
1483 CALL CMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1555 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
1575 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA, local
1580 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1581 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1582 $ XX( NMAX*INCMAX ), Y( NMAX ),
1583 $ YS( NMAX*INCMAX ), YT( NMAX ),
1584 $ YY( NMAX*INCMAX ), Z( NMAX )
1585 REAL G( NMAX )
1626 $ M = MIN( N + ND, NMAX )
1630 IF( LDA.LT.NMAX )
1633 IF( LDA.GT.NMAX )
1672 CALL CMAKE(SNAME( 8: 9 ), ' ', ' ', M, N, A, NMAX,
1771 CALL CMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1832 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
1852 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA, local
1857 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1858 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
1859 $ XX( NMAX*INCMAX ), Y( NMAX ),
1860 $ YS( NMAX*INCMAX ), YT( NMAX ),
1861 $ YY( NMAX*INCMAX ), Z( NMAX )
1862 REAL G( NMAX )
1908 IF( LDA.LT.NMAX )
1911 IF( LDA.GT.NMAX )
1950 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, A, NMAX,
2125 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
2145 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA, local
2150 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
2151 $ AS( NMAX*NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
2152 $ XX( NMAX*INCMAX ), Y( NMAX ),
2153 $ YS( NMAX*INCMAX ), YT( NMAX ),
2154 $ YY( NMAX*INCMAX ), Z( NMAX, 2 )
2155 REAL G( NMAX )
2202 IF( LDA.LT.NMAX )
2205 IF( LDA.GT.NMAX )
2258 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2375 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2451 SUBROUTINE CMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, argument
2470 INTEGER INCX, INCY, M, N, NMAX, NOUT local
2474 COMPLEX A( NMAX, * ), X( * ), Y( * ), YT( * ), YY( * )
2741 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, argument
2768 INTEGER KL, KU, LDA, M, N, NMAX local
2773 COMPLEX A( NMAX, * ), AA( * )