Lines Matching refs:NMAX
104 INTEGER NMAX
105 PARAMETER ( NMAX = 65 )
117 COMPLEX AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
118 $ ALF( NALMAX ), AS( NMAX*NMAX ),
119 $ BB( NMAX*NMAX ), BET( NBEMAX ),
120 $ BS( NMAX*NMAX ), C( NMAX, NMAX ),
121 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
122 $ W( 2*NMAX )
123 REAL G( NMAX )
183 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
184 WRITE( NOUT, FMT = 9996 )NMAX
243 N = MIN( 32, NMAX )
248 AB( J, NMAX + 1 ) = J
249 AB( 1, NMAX + J ) = J
259 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
260 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
261 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
268 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
269 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
270 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
277 AB( J, NMAX + 1 ) = N - J + 1
278 AB( 1, NMAX + J ) = N - J + 1
286 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
287 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
288 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
295 CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
296 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
297 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
327 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
333 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
338 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
339 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C )
344 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
350 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
406 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
426 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
430 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
431 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
432 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
433 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
434 $ CS( NMAX*NMAX ), CT( NMAX )
435 REAL G( NMAX )
476 IF( LDC.LT.NMAX )
479 IF( LDC.GT.NMAX )
500 IF( LDA.LT.NMAX )
503 IF( LDA.GT.NMAX )
509 CALL CMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
525 IF( LDB.LT.NMAX )
528 IF( LDB.GT.NMAX )
534 CALL CMAKE( 'GE', ' ', ' ', MB, NB, B, NMAX, BB,
545 CALL CMAKE( 'GE', ' ', ' ', M, N, C, NMAX,
632 $ ALPHA, A, NMAX, B, NMAX, BETA,
633 $ C, NMAX, CT, G, CC, LDC, EPS,
691 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
711 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
715 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
716 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
717 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
718 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
719 $ CS( NMAX*NMAX ), CT( NMAX )
720 REAL G( NMAX )
762 IF( LDC.LT.NMAX )
765 IF( LDC.GT.NMAX )
771 IF( LDB.LT.NMAX )
774 IF( LDB.GT.NMAX )
780 CALL CMAKE( 'GE', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
794 IF( LDA.LT.NMAX )
797 IF( LDA.GT.NMAX )
806 CALL CMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX,
817 CALL CMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
907 $ NMAX, B, NMAX, BETA, C, NMAX,
912 $ NMAX, A, NMAX, BETA, C, NMAX,
970 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
990 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA
994 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
995 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
996 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
997 $ C( NMAX, NMAX ), CT( NMAX )
998 REAL G( NMAX )
1034 DO 20 J = 1, NMAX
1035 DO 10 I = 1, NMAX
1047 IF( LDB.LT.NMAX )
1050 IF( LDB.GT.NMAX )
1065 IF( LDA.LT.NMAX )
1068 IF( LDA.GT.NMAX )
1087 $ NMAX, AA, LDA, RESET, ZERO )
1091 CALL CMAKE( 'GE', ' ', ' ', M, N, B, NMAX,
1185 $ ALPHA, A, NMAX, B, NMAX,
1186 $ ZERO, C, NMAX, CT, G,
1191 $ ALPHA, B, NMAX, A, NMAX,
1192 $ ZERO, C, NMAX, CT, G,
1212 $ ONE, A, NMAX, C, NMAX,
1213 $ ZERO, B, NMAX, CT, G,
1218 $ ONE, C, NMAX, A, NMAX,
1219 $ ZERO, B, NMAX, CT, G,
1280 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1300 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1304 COMPLEX A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1305 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1306 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1307 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1308 $ CS( NMAX*NMAX ), CT( NMAX )
1309 REAL G( NMAX )
1348 IF( LDC.LT.NMAX )
1351 IF( LDC.GT.NMAX )
1372 IF( LDA.LT.NMAX )
1375 IF( LDA.GT.NMAX )
1381 CALL CMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1409 $ NMAX, CC, LDC, RESET, ZERO )
1526 $ ALPHA, A( 1, JJ ), NMAX,
1527 $ A( 1, J ), NMAX, BETA,
1528 $ C( JJ, J ), NMAX, CT, G,
1533 $ ALPHA, A( JJ, 1 ), NMAX,
1534 $ A( J, 1 ), NMAX, BETA,
1535 $ C( JJ, J ), NMAX, CT, G,
1612 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1632 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1636 COMPLEX AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1637 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1638 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1639 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1640 $ W( 2*NMAX )
1641 REAL G( NMAX )
1680 IF( LDC.LT.NMAX )
1683 IF( LDC.GT.NMAX )
1704 IF( LDA.LT.NMAX )
1707 IF( LDA.GT.NMAX )
1714 CALL CMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1717 CALL CMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1727 $ 2*NMAX, BB, LDB, RESET, ZERO )
1729 CALL CMAKE( 'GE', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1730 $ NMAX, BB, LDB, RESET, ZERO )
1754 $ NMAX, CC, LDC, RESET, ZERO )
1871 $ NMAX + K + I )
1875 $ NMAX + I )
1879 $ NMAX + I )
1883 $ ONE, AB( JJAB ), 2*NMAX, W,
1884 $ 2*NMAX, BETA, C( JJ, J ),
1885 $ NMAX, CT, G, CC( JC ), LDC,
1892 $ I - 1 )*NMAX + J ) )
1894 $ AB( ( I - 1 )*NMAX +
1898 $ NMAX + J )
1900 $ AB( ( I - 1 )*NMAX +
1905 $ AB( JJ ), NMAX, W, 2*NMAX,
1906 $ BETA, C( JJ, J ), NMAX, CT,
1915 $ JJAB = JJAB + 2*NMAX
2925 SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2953 INTEGER LDA, M, N, NMAX
2958 COMPLEX A( NMAX, * ), AA( * )
