Lines Matching refs:NMAX
53 INTEGER NMAX variable
54 PARAMETER ( NMAX = 65 )
66 DOUBLE PRECISION AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
67 $ ALF( NALMAX ), AS( NMAX*NMAX ),
68 $ BB( NMAX*NMAX ), BET( NBEMAX ),
69 $ BS( NMAX*NMAX ), C( NMAX, NMAX ),
70 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
71 $ G( NMAX ), W( 2*NMAX )
130 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
131 WRITE( NOUT, FMT = 9996 )NMAX
197 N = MIN( 32, NMAX )
202 AB( J, NMAX + 1 ) = J
203 AB( 1, NMAX + J ) = J
213 CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
214 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
215 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
222 CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
223 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
224 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
231 AB( J, NMAX + 1 ) = N - J + 1
232 AB( 1, NMAX + J ) = N - J + 1
240 CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
241 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
242 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
249 CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
250 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
251 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
280 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
286 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
291 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
292 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C )
297 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
303 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
357 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
375 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
379 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
380 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
381 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
382 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
383 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
423 IF( LDC.LT.NMAX )
426 IF( LDC.GT.NMAX )
447 IF( LDA.LT.NMAX )
450 IF( LDA.GT.NMAX )
456 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
472 IF( LDB.LT.NMAX )
475 IF( LDB.GT.NMAX )
481 CALL DMAKE( 'GE', ' ', ' ', MB, NB, B, NMAX, BB,
492 CALL DMAKE( 'GE', ' ', ' ', M, N, C, NMAX,
579 $ ALPHA, A, NMAX, B, NMAX, BETA,
580 $ C, NMAX, CT, G, CC, LDC, EPS,
638 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
656 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
660 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
661 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
662 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
663 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
664 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
704 IF( LDC.LT.NMAX )
707 IF( LDC.GT.NMAX )
714 IF( LDB.LT.NMAX )
717 IF( LDB.GT.NMAX )
723 CALL DMAKE( 'GE', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
737 IF( LDA.LT.NMAX )
740 IF( LDA.GT.NMAX )
749 CALL DMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
760 CALL DMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
845 $ NMAX, B, NMAX, BETA, C, NMAX,
850 $ NMAX, A, NMAX, BETA, C, NMAX,
908 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
926 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA local
930 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
931 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
932 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
933 $ C( NMAX, NMAX ), CT( NMAX ), G( NMAX )
968 DO 20 J = 1, NMAX
969 DO 10 I = 1, NMAX
981 IF( LDB.LT.NMAX )
984 IF( LDB.GT.NMAX )
999 IF( LDA.LT.NMAX )
1002 IF( LDA.GT.NMAX )
1021 $ NMAX, AA, LDA, RESET, ZERO )
1025 CALL DMAKE( 'GE', ' ', ' ', M, N, B, NMAX,
1119 $ ALPHA, A, NMAX, B, NMAX,
1120 $ ZERO, C, NMAX, CT, G,
1125 $ ALPHA, B, NMAX, A, NMAX,
1126 $ ZERO, C, NMAX, CT, G,
1146 $ ONE, A, NMAX, C, NMAX,
1147 $ ZERO, B, NMAX, CT, G,
1152 $ ONE, C, NMAX, A, NMAX,
1153 $ ZERO, B, NMAX, CT, G,
1213 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1231 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1235 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1236 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1237 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1238 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1239 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
1277 IF( LDC.LT.NMAX )
1280 IF( LDC.GT.NMAX )
1300 IF( LDA.LT.NMAX )
1303 IF( LDA.GT.NMAX )
1309 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1324 CALL DMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1411 $ A( 1, JJ ), NMAX,
1412 $ A( 1, J ), NMAX, BETA,
1413 $ C( JJ, J ), NMAX, CT, G,
1418 $ A( JJ, 1 ), NMAX,
1419 $ A( J, 1 ), NMAX, BETA,
1420 $ C( JJ, J ), NMAX, CT, G,
1488 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1506 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1510 DOUBLE PRECISION AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1511 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1512 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1513 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1514 $ G( NMAX ), W( 2*NMAX )
1552 IF( LDC.LT.NMAX )
1555 IF( LDC.GT.NMAX )
1575 IF( LDA.LT.NMAX )
1578 IF( LDA.GT.NMAX )
1585 CALL DMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1588 CALL DMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1598 $ 2*NMAX, BB, LDB, RESET, ZERO )
1600 CALL DMAKE( 'GE', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1601 $ NMAX, BB, LDB, RESET, ZERO )
1616 CALL DMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1710 W( I ) = AB( ( J - 1 )*2*NMAX + K +
1712 W( K + I ) = AB( ( J - 1 )*2*NMAX +
1716 $ ALPHA, AB( JJAB ), 2*NMAX,
1717 $ W, 2*NMAX, BETA,
1718 $ C( JJ, J ), NMAX, CT, G,
1723 W( I ) = AB( ( K + I - 1 )*NMAX +
1725 W( K + I ) = AB( ( I - 1 )*NMAX +
1729 $ ALPHA, AB( JJ ), NMAX, W,
1730 $ 2*NMAX, BETA, C( JJ, J ),
1731 $ NMAX, CT, G, CC( JC ), LDC,
1740 $ JJAB = JJAB + 2*NMAX
2344 SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, argument
2368 INTEGER LDA, M, N, NMAX local
2373 DOUBLE PRECISION A( NMAX, * ), AA( * )