Lines Matching refs:NMAX
52 INTEGER NMAX
53 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
213 N = MIN( 32, NMAX )
218 AB( J, NMAX + 1 ) = J
219 AB( 1, NMAX + J ) = J
229 CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
230 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
231 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
238 CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
239 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
240 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
247 AB( J, NMAX + 1 ) = N - J + 1
248 AB( 1, NMAX + J ) = N - J + 1
256 CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
257 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
258 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
265 CALL DMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
266 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
267 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
297 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
303 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
311 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
317 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
324 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
325 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
330 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
331 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
339 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
345 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
353 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
359 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
418 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
436 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
440 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
441 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
442 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
443 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
444 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
484 IF( LDC.LT.NMAX )
487 IF( LDC.GT.NMAX )
508 IF( LDA.LT.NMAX )
511 IF( LDA.GT.NMAX )
517 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
533 IF( LDB.LT.NMAX )
536 IF( LDB.GT.NMAX )
542 CALL DMAKE( 'GE', ' ', ' ', MB, NB, B, NMAX, BB,
553 CALL DMAKE( 'GE', ' ', ' ', M, N, C, NMAX,
641 $ ALPHA, A, NMAX, B, NMAX, BETA,
642 $ C, NMAX, CT, G, CC, LDC, EPS,
742 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
760 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
764 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
765 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
766 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
767 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
768 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
808 IF( LDC.LT.NMAX )
811 IF( LDC.GT.NMAX )
818 IF( LDB.LT.NMAX )
821 IF( LDB.GT.NMAX )
827 CALL DMAKE( 'GE', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
841 IF( LDA.LT.NMAX )
844 IF( LDA.GT.NMAX )
853 CALL DMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
864 CALL DMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
950 $ NMAX, B, NMAX, BETA, C, NMAX,
955 $ NMAX, A, NMAX, BETA, C, NMAX,
1052 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
1070 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER
1074 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1075 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1076 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
1077 $ C( NMAX, NMAX ), CT( NMAX ), G( NMAX )
1112 DO 20 J = 1, NMAX
1113 DO 10 I = 1, NMAX
1125 IF( LDB.LT.NMAX )
1128 IF( LDB.GT.NMAX )
1143 IF( LDA.LT.NMAX )
1146 IF( LDA.GT.NMAX )
1165 $ NMAX, AA, LDA, RESET, ZERO )
1169 CALL DMAKE( 'GE', ' ', ' ', M, N, B, NMAX,
1265 $ ALPHA, A, NMAX, B, NMAX,
1266 $ ZERO, C, NMAX, CT, G,
1271 $ ALPHA, B, NMAX, A, NMAX,
1272 $ ZERO, C, NMAX, CT, G,
1292 $ ONE, A, NMAX, C, NMAX,
1293 $ ZERO, B, NMAX, CT, G,
1298 $ ONE, C, NMAX, A, NMAX,
1299 $ ZERO, B, NMAX, CT, G,
1410 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1428 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
1432 DOUBLE PRECISION A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1433 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1434 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1435 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1436 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
1474 IF( LDC.LT.NMAX )
1477 IF( LDC.GT.NMAX )
1497 IF( LDA.LT.NMAX )
1500 IF( LDA.GT.NMAX )
1506 CALL DMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1521 CALL DMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1608 $ A( 1, JJ ), NMAX,
1609 $ A( 1, J ), NMAX, BETA,
1610 $ C( JJ, J ), NMAX, CT, G,
1615 $ A( JJ, 1 ), NMAX,
1616 $ A( J, 1 ), NMAX, BETA,
1617 $ C( JJ, J ), NMAX, CT, G,
1726 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1745 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
1749 DOUBLE PRECISION AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1750 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1751 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1752 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1753 $ G( NMAX ), W( 2*NMAX )
1791 IF( LDC.LT.NMAX )
1794 IF( LDC.GT.NMAX )
1814 IF( LDA.LT.NMAX )
1817 IF( LDA.GT.NMAX )
1824 CALL DMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1827 CALL DMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1837 $ 2*NMAX, BB, LDB, RESET, ZERO )
1839 CALL DMAKE( 'GE', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1840 $ NMAX, BB, LDB, RESET, ZERO )
1855 CALL DMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1950 W( I ) = AB( ( J - 1 )*2*NMAX + K +
1952 W( K + I ) = AB( ( J - 1 )*2*NMAX +
1956 $ ALPHA, AB( JJAB ), 2*NMAX,
1957 $ W, 2*NMAX, BETA,
1958 $ C( JJ, J ), NMAX, CT, G,
1963 W( I ) = AB( ( K + I - 1 )*NMAX +
1965 W( K + I ) = AB( ( I - 1 )*NMAX +
1969 $ ALPHA, AB( JJ ), NMAX, W,
1970 $ 2*NMAX, BETA, C( JJ, J ),
1971 $ NMAX, CT, G, CC( JC ), LDC,
1980 $ JJAB = JJAB + 2*NMAX
2082 SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2106 INTEGER LDA, M, N, NMAX
2111 DOUBLE PRECISION A( NMAX, * ), AA( * )