Lines Matching refs:NMAX
52 INTEGER NMAX
53 PARAMETER ( NMAX = 65 )
66 REAL 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 )
129 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
130 WRITE( NOUT, FMT = 9996 )NMAX
212 N = MIN( 32, NMAX )
217 AB( J, NMAX + 1 ) = J
218 AB( 1, NMAX + J ) = J
228 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
229 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
230 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
237 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
238 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
239 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
246 AB( J, NMAX + 1 ) = N - J + 1
247 AB( 1, NMAX + J ) = N - J + 1
255 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
256 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
257 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
264 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
265 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
266 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
296 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
302 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
310 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
316 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
323 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
324 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
329 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
330 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
338 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
344 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
352 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
358 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
417 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
436 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
440 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
441 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 SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
533 IF( LDB.LT.NMAX )
536 IF( LDB.GT.NMAX )
542 CALL SMAKE( 'GE', ' ', ' ', MB, NB, B, NMAX, BB,
553 CALL SMAKE( 'GE', ' ', ' ', M, N, C, NMAX,
641 $ ALPHA, A, NMAX, B, NMAX, BETA,
642 $ C, NMAX, CT, G, CC, LDC, EPS,
745 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
764 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
768 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
769 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
770 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
771 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
772 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
812 IF( LDC.LT.NMAX )
815 IF( LDC.GT.NMAX )
822 IF( LDB.LT.NMAX )
825 IF( LDB.GT.NMAX )
831 CALL SMAKE( 'GE', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
845 IF( LDA.LT.NMAX )
848 IF( LDA.GT.NMAX )
857 CALL SMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
868 CALL SMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
954 $ NMAX, B, NMAX, BETA, C, NMAX,
959 $ NMAX, A, NMAX, BETA, C, NMAX,
1056 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
1074 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER
1078 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1079 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1080 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
1081 $ C( NMAX, NMAX ), CT( NMAX ), G( NMAX )
1116 DO 20 J = 1, NMAX
1117 DO 10 I = 1, NMAX
1129 IF( LDB.LT.NMAX )
1132 IF( LDB.GT.NMAX )
1147 IF( LDA.LT.NMAX )
1150 IF( LDA.GT.NMAX )
1169 $ NMAX, AA, LDA, RESET, ZERO )
1173 CALL SMAKE( 'GE', ' ', ' ', M, N, B, NMAX,
1269 $ ALPHA, A, NMAX, B, NMAX,
1270 $ ZERO, C, NMAX, CT, G,
1275 $ ALPHA, B, NMAX, A, NMAX,
1276 $ ZERO, C, NMAX, CT, G,
1296 $ ONE, A, NMAX, C, NMAX,
1297 $ ZERO, B, NMAX, CT, G,
1302 $ ONE, C, NMAX, A, NMAX,
1303 $ ZERO, B, NMAX, CT, G,
1414 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1433 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
1437 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1438 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1439 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1440 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1441 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
1479 IF( LDC.LT.NMAX )
1482 IF( LDC.GT.NMAX )
1502 IF( LDA.LT.NMAX )
1505 IF( LDA.GT.NMAX )
1511 CALL SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1526 CALL SMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1613 $ A( 1, JJ ), NMAX,
1614 $ A( 1, J ), NMAX, BETA,
1615 $ C( JJ, J ), NMAX, CT, G,
1620 $ A( JJ, 1 ), NMAX,
1621 $ A( J, 1 ), NMAX, BETA,
1622 $ C( JJ, J ), NMAX, CT, G,
1731 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1750 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER
1754 REAL AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1755 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1756 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1757 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1758 $ G( NMAX ), W( 2*NMAX )
1796 IF( LDC.LT.NMAX )
1799 IF( LDC.GT.NMAX )
1819 IF( LDA.LT.NMAX )
1822 IF( LDA.GT.NMAX )
1829 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1832 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1842 $ 2*NMAX, BB, LDB, RESET, ZERO )
1844 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1845 $ NMAX, BB, LDB, RESET, ZERO )
1860 CALL SMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1954 W( I ) = AB( ( J - 1 )*2*NMAX + K +
1956 W( K + I ) = AB( ( J - 1 )*2*NMAX +
1960 $ ALPHA, AB( JJAB ), 2*NMAX,
1961 $ W, 2*NMAX, BETA,
1962 $ C( JJ, J ), NMAX, CT, G,
1967 W( I ) = AB( ( K + I - 1 )*NMAX +
1969 W( K + I ) = AB( ( I - 1 )*NMAX +
1973 $ ALPHA, AB( JJ ), NMAX, W,
1974 $ 2*NMAX, BETA, C( JJ, J ),
1975 $ NMAX, CT, G, CC( JC ), LDC,
1984 $ JJAB = JJAB + 2*NMAX
2086 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2110 INTEGER LDA, M, N, NMAX
2115 REAL A( NMAX, * ), AA( * )
