Lines Matching refs:NMAX
57 INTEGER NMAX
58 PARAMETER ( NMAX = 65 )
71 COMPLEX AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
72 $ ALF( NALMAX ), AS( NMAX*NMAX ),
73 $ BB( NMAX*NMAX ), BET( NBEMAX ),
74 $ BS( NMAX*NMAX ), C( NMAX, NMAX ),
75 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
76 $ W( 2*NMAX )
77 REAL G( NMAX )
135 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
136 WRITE( NOUT, FMT = 9996 )NMAX
218 N = MIN( 32, NMAX )
223 AB( J, NMAX + 1 ) = J
224 AB( 1, NMAX + J ) = J
234 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
235 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
236 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
243 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
244 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
245 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
252 AB( J, NMAX + 1 ) = N - J + 1
253 AB( 1, NMAX + J ) = N - J + 1
261 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
262 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
263 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
270 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
271 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
272 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
303 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
309 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
317 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
323 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
330 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
331 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
336 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
337 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
345 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
351 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
359 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
365 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
426 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
447 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
451 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
452 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
453 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
454 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
455 $ CS( NMAX*NMAX ), CT( NMAX )
456 REAL G( NMAX )
497 IF( LDC.LT.NMAX )
500 IF( LDC.GT.NMAX )
521 IF( LDA.LT.NMAX )
524 IF( LDA.GT.NMAX )
530 CALL CMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
546 IF( LDB.LT.NMAX )
549 IF( LDB.GT.NMAX )
555 CALL CMAKE( 'ge', ' ', ' ', MB, NB, B, NMAX, BB,
566 CALL CMAKE( 'ge', ' ', ' ', M, N, C, NMAX,
654 $ ALPHA, A, NMAX, B, NMAX, BETA,
655 $ C, NMAX, CT, G, CC, LDC, EPS,
756 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
777 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
781 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
782 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
783 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
784 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
785 $ CS( NMAX*NMAX ), CT( NMAX )
786 REAL G( NMAX )
828 IF( LDC.LT.NMAX )
831 IF( LDC.GT.NMAX )
837 IF( LDB.LT.NMAX )
840 IF( LDB.GT.NMAX )
846 CALL CMAKE( 'ge', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
860 IF( LDA.LT.NMAX )
863 IF( LDA.GT.NMAX )
872 CALL CMAKE(SNAME( 8: 9 ), UPLO, ' ', NA, NA, A, NMAX,
883 CALL CMAKE( 'ge', ' ', ' ', M, N, C, NMAX, CC,
976 $ NMAX, B, NMAX, BETA, C, NMAX,
981 $ NMAX, A, NMAX, BETA, C, NMAX,
1078 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
1098 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER
1102 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1103 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1104 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
1105 $ C( NMAX, NMAX ), CT( NMAX )
1106 REAL G( NMAX )
1142 DO 20 J = 1, NMAX
1143 DO 10 I = 1, NMAX
1155 IF( LDB.LT.NMAX )
1158 IF( LDB.GT.NMAX )
1173 IF( LDA.LT.NMAX )
1176 IF( LDA.GT.NMAX )
1195 $ NMAX, AA, LDA, RESET, ZERO )
1199 CALL CMAKE( 'ge', ' ', ' ', M, N, B, NMAX,
1295 $ ALPHA, A, NMAX, B, NMAX,
1296 $ ZERO, C, NMAX, CT, G,
1301 $ ALPHA, B, NMAX, A, NMAX,
1302 $ ZERO, C, NMAX, CT, G,
1322 $ ONE, A, NMAX, C, NMAX,
1323 $ ZERO, B, NMAX, CT, G,
1328 $ ONE, C, NMAX, A, NMAX,
1329 $ ZERO, B, NMAX, CT, G,
1441 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1462 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
1466 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1467 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1468 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1469 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1470 $ CS( NMAX*NMAX ), CT( NMAX )
1471 REAL G( NMAX )
1510 IF( LDC.LT.NMAX )
1513 IF( LDC.GT.NMAX )
1534 IF( LDA.LT.NMAX )
1537 IF( LDA.GT.NMAX )
1543 CALL CMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1571 $ NMAX, CC, LDC, RESET, ZERO )
1690 $ ALPHA, A( 1, JJ ), NMAX,
1691 $ A( 1, J ), NMAX, BETA,
1692 $ C( JJ, J ), NMAX, CT, G,
1697 $ ALPHA, A( JJ, 1 ), NMAX,
1698 $ A( J, 1 ), NMAX, BETA,
1699 $ C( JJ, J ), NMAX, CT, G,
1851 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1872 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
1876 COMPLEX AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1877 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1878 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1879 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1880 $ W( 2*NMAX )
1881 REAL G( NMAX )
1920 IF( LDC.LT.NMAX )
1923 IF( LDC.GT.NMAX )
1944 IF( LDA.LT.NMAX )
1947 IF( LDA.GT.NMAX )
1954 CALL CMAKE( 'ge', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1957 CALL CMAKE( 'ge', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1967 $ 2*NMAX, BB, LDB, RESET, ZERO )
1969 CALL CMAKE( 'ge', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1970 $ NMAX, BB, LDB, RESET, ZERO )
1994 $ NMAX, CC, LDC, RESET, ZERO )
2115 $ NMAX + K + I )
2119 $ NMAX + I )
2123 $ NMAX + I )
2127 $ ONE, AB( JJAB ), 2*NMAX, W,
2128 $ 2*NMAX, BETA, C( JJ, J ),
2129 $ NMAX, CT, G, CC( JC ), LDC,
2136 $ I - 1 )*NMAX + J ) )
2138 $ AB( ( I - 1 )*NMAX +
2142 $ NMAX + J )
2144 $ AB( ( I - 1 )*NMAX +
2149 $ AB( JJ ), NMAX, W, 2*NMAX,
2150 $ BETA, C( JJ, J ), NMAX, CT,
2159 $ JJAB = JJAB + 2*NMAX
2304 SUBROUTINE CMAKE(TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2332 INTEGER LDA, M, N, NMAX
2337 COMPLEX A( NMAX, * ), AA( * )