Lines Matching refs:NMAX
58 INTEGER NMAX
59 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 )
137 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
138 WRITE( NOUT, FMT = 9996 )NMAX
204 N = MIN( 32, NMAX )
209 AB( J, NMAX + 1 ) = J
210 AB( 1, NMAX + J ) = J
220 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
221 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
222 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
229 CALL CMMCH( 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 AB( J, NMAX + 1 ) = N - J + 1
239 AB( 1, NMAX + J ) = N - J + 1
247 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
248 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
249 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
256 CALL CMMCH( 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. )
288 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
294 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
299 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
300 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C )
305 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
311 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
367 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
387 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
391 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
392 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
393 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
394 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
395 $ CS( NMAX*NMAX ), CT( NMAX )
396 REAL G( NMAX )
437 IF( LDC.LT.NMAX )
440 IF( LDC.GT.NMAX )
461 IF( LDA.LT.NMAX )
464 IF( LDA.GT.NMAX )
470 CALL CMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
486 IF( LDB.LT.NMAX )
489 IF( LDB.GT.NMAX )
495 CALL CMAKE( 'GE', ' ', ' ', MB, NB, B, NMAX, BB,
506 CALL CMAKE( 'GE', ' ', ' ', M, N, C, NMAX,
593 $ ALPHA, A, NMAX, B, NMAX, BETA,
594 $ C, NMAX, CT, G, CC, LDC, EPS,
652 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
672 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
676 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
677 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
678 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
679 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
680 $ CS( NMAX*NMAX ), CT( NMAX )
681 REAL G( NMAX )
723 IF( LDC.LT.NMAX )
726 IF( LDC.GT.NMAX )
732 IF( LDB.LT.NMAX )
735 IF( LDB.GT.NMAX )
741 CALL CMAKE( 'GE', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
755 IF( LDA.LT.NMAX )
758 IF( LDA.GT.NMAX )
767 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX,
778 CALL CMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
868 $ NMAX, B, NMAX, BETA, C, NMAX,
873 $ NMAX, A, NMAX, BETA, C, NMAX,
931 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
951 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA
955 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
956 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
957 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
958 $ C( NMAX, NMAX ), CT( NMAX )
959 REAL G( NMAX )
995 DO 20 J = 1, NMAX
996 DO 10 I = 1, NMAX
1008 IF( LDB.LT.NMAX )
1011 IF( LDB.GT.NMAX )
1026 IF( LDA.LT.NMAX )
1029 IF( LDA.GT.NMAX )
1048 $ NMAX, AA, LDA, RESET, ZERO )
1052 CALL CMAKE( 'GE', ' ', ' ', M, N, B, NMAX,
1146 $ ALPHA, A, NMAX, B, NMAX,
1147 $ ZERO, C, NMAX, CT, G,
1152 $ ALPHA, B, NMAX, A, NMAX,
1153 $ ZERO, C, NMAX, CT, G,
1173 $ ONE, A, NMAX, C, NMAX,
1174 $ ZERO, B, NMAX, CT, G,
1179 $ ONE, C, NMAX, A, NMAX,
1180 $ ZERO, B, NMAX, CT, G,
1241 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1261 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1265 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1266 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1267 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1268 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1269 $ CS( NMAX*NMAX ), CT( NMAX )
1270 REAL G( NMAX )
1309 IF( LDC.LT.NMAX )
1312 IF( LDC.GT.NMAX )
1333 IF( LDA.LT.NMAX )
1336 IF( LDA.GT.NMAX )
1342 CALL CMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1370 $ NMAX, CC, LDC, RESET, ZERO )
1487 $ ALPHA, A( 1, JJ ), NMAX,
1488 $ A( 1, J ), NMAX, BETA,
1489 $ C( JJ, J ), NMAX, CT, G,
1494 $ ALPHA, A( JJ, 1 ), NMAX,
1495 $ A( J, 1 ), NMAX, BETA,
1496 $ C( JJ, J ), NMAX, CT, G,
1573 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1593 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1597 COMPLEX AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1598 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1599 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1600 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1601 $ W( 2*NMAX )
1602 REAL G( NMAX )
1641 IF( LDC.LT.NMAX )
1644 IF( LDC.GT.NMAX )
1665 IF( LDA.LT.NMAX )
1668 IF( LDA.GT.NMAX )
1675 CALL CMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1678 CALL CMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1688 $ 2*NMAX, BB, LDB, RESET, ZERO )
1690 CALL CMAKE( 'GE', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1691 $ NMAX, BB, LDB, RESET, ZERO )
1715 $ NMAX, CC, LDC, RESET, ZERO )
1832 $ NMAX + K + I )
1836 $ NMAX + I )
1840 $ NMAX + I )
1844 $ ONE, AB( JJAB ), 2*NMAX, W,
1845 $ 2*NMAX, BETA, C( JJ, J ),
1846 $ NMAX, CT, G, CC( JC ), LDC,
1853 $ I - 1 )*NMAX + J ) )
1855 $ AB( ( I - 1 )*NMAX +
1859 $ NMAX + J )
1861 $ AB( ( I - 1 )*NMAX +
1866 $ AB( JJ ), NMAX, W, 2*NMAX,
1867 $ BETA, C( JJ, J ), NMAX, CT,
1876 $ JJAB = JJAB + 2*NMAX
2871 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2899 INTEGER LDA, M, N, NMAX
2904 COMPLEX A( NMAX, * ), AA( * )
