Lines Matching refs:NMAX
73 INTEGER NMAX, INCMAX variable
74 PARAMETER ( NMAX = 65, INCMAX = 2 )
88 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ),
89 $ ALF( NALMAX ), AS( NMAX*NMAX ), BET( NBEMAX ),
90 $ G( NMAX ), X( NMAX ), XS( NMAX*INCMAX ),
91 $ XX( NMAX*INCMAX ), Y( NMAX ),
92 $ YS( NMAX*INCMAX ), YT( NMAX ),
93 $ YY( NMAX*INCMAX ), Z( 2*NMAX )
155 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
156 WRITE( NOUT, FMT = 9996 )NMAX
250 N = MIN( 32, NMAX )
264 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
272 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
304 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
310 $ NBET, BET, NINC, INC, NMAX, INCMAX, A, AA, AS,
317 $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z )
322 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
328 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
334 $ NMAX, INCMAX, A, AA, AS, X, XX, XS, Y, YY, YS,
393 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
409 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX, local
414 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
415 $ AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),
416 $ X( NMAX ), XS( NMAX*INCMAX ),
417 $ XX( NMAX*INCMAX ), Y( NMAX ),
418 $ YS( NMAX*INCMAX ), YT( NMAX ),
419 $ YY( NMAX*INCMAX )
468 $ M = MIN( N + ND, NMAX )
489 IF( LDA.LT.NMAX )
492 IF( LDA.GT.NMAX )
500 CALL DMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
661 $ NMAX, X, INCX, BETA, Y,
734 $ BET, NINC, INC, NMAX, INCMAX, A, AA, AS, X, XX, argument
750 INTEGER INCMAX, NALF, NBET, NIDIM, NINC, NKB, NMAX, local
755 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
756 $ AS( NMAX*NMAX ), BET( NBET ), G( NMAX ),
757 $ X( NMAX ), XS( NMAX*INCMAX ),
758 $ XX( NMAX*INCMAX ), Y( NMAX ),
759 $ YS( NMAX*INCMAX ), YT( NMAX ),
760 $ YY( NMAX*INCMAX )
823 IF( LDA.LT.NMAX )
826 IF( LDA.GT.NMAX )
841 CALL DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
1001 CALL DMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1076 $ FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, NMAX, argument
1092 INTEGER INCMAX, NIDIM, NINC, NKB, NMAX, NOUT, NTRA local
1096 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ),
1097 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1098 $ XS( NMAX*INCMAX ), XT( NMAX ),
1099 $ XX( NMAX*INCMAX ), Z( NMAX )
1143 DO 10 I = 1, NMAX
1167 IF( LDA.LT.NMAX )
1170 IF( LDA.GT.NMAX )
1192 $ NMAX, AA, LDA, K, K, RESET, TRANSL )
1348 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X,
1362 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1433 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
1450 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA local
1454 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1455 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1456 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
1457 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1458 $ YY( NMAX*INCMAX ), Z( NMAX )
1497 $ M = MIN( N + ND, NMAX )
1501 IF( LDA.LT.NMAX )
1504 IF( LDA.GT.NMAX )
1543 CALL DMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX,
1633 CALL DMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1694 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
1711 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA local
1715 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1716 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1717 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
1718 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1719 $ YY( NMAX*INCMAX ), Z( NMAX )
1763 IF( LDA.LT.NMAX )
1766 IF( LDA.GT.NMAX )
1799 CALL DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1972 $ FATAL, NIDIM, IDIM, NALF, ALF, NINC, INC, NMAX, argument
1989 INTEGER INCMAX, NALF, NIDIM, NINC, NMAX, NOUT, NTRA local
1993 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1994 $ AS( NMAX*NMAX ), G( NMAX ), X( NMAX ),
1995 $ XS( NMAX*INCMAX ), XX( NMAX*INCMAX ),
1996 $ Y( NMAX ), YS( NMAX*INCMAX ), YT( NMAX ),
1997 $ YY( NMAX*INCMAX ), Z( NMAX, 2 )
2042 IF( LDA.LT.NMAX )
2045 IF( LDA.GT.NMAX )
2093 $ NMAX, AA, LDA, N - 1, N - 1, RESET,
2210 $ NMAX, W, 1, ONE, A( JJ, J ), 1,
2612 SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, argument
2635 INTEGER KL, KU, LDA, M, N, NMAX local
2640 DOUBLE PRECISION A( NMAX, * ), AA( * )
2788 SUBROUTINE DMVCH( TRANS, M, N, ALPHA, A, NMAX, X, INCX, BETA, Y, argument
2804 INTEGER INCX, INCY, M, N, NMAX, NOUT local
2808 DOUBLE PRECISION A( NMAX, * ), G( * ), X( * ), Y( * ), YT( * ),