Lines Matching refs:NMAX
58 INTEGER NMAX variable
59 PARAMETER ( NMAX = 65 )
72 COMPLEX*16 AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
73 $ ALF( NALMAX ), AS( NMAX*NMAX ),
74 $ BB( NMAX*NMAX ), BET( NBEMAX ),
75 $ BS( NMAX*NMAX ), C( NMAX, NMAX ),
76 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
77 $ W( 2*NMAX )
78 DOUBLE PRECISION G( NMAX )
136 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
137 WRITE( NOUT, FMT = 9996 )NMAX
219 N = MIN( 32, NMAX )
224 AB( J, NMAX + 1 ) = J
225 AB( 1, NMAX + J ) = J
235 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
236 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
237 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
244 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
245 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
246 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
253 AB( J, NMAX + 1 ) = N - J + 1
254 AB( 1, NMAX + J ) = N - J + 1
262 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
263 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
264 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
271 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
272 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
273 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
304 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
310 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
318 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
324 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
331 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
332 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
337 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
338 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C,
346 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
352 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
360 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
366 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
427 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
448 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
452 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
453 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
454 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
455 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
456 $ CS( NMAX*NMAX ), CT( NMAX )
457 DOUBLE PRECISION G( NMAX )
498 IF( LDC.LT.NMAX )
501 IF( LDC.GT.NMAX )
522 IF( LDA.LT.NMAX )
525 IF( LDA.GT.NMAX )
531 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
547 IF( LDB.LT.NMAX )
550 IF( LDB.GT.NMAX )
556 CALL ZMAKE( 'ge', ' ', ' ', MB, NB, B, NMAX, BB,
567 CALL ZMAKE( 'ge', ' ', ' ', M, N, C, NMAX,
655 $ ALPHA, A, NMAX, B, NMAX, BETA,
656 $ C, NMAX, CT, G, CC, LDC, EPS,
757 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
778 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
782 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
783 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
784 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
785 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
786 $ CS( NMAX*NMAX ), CT( NMAX )
787 DOUBLE PRECISION G( NMAX )
829 IF( LDC.LT.NMAX )
832 IF( LDC.GT.NMAX )
838 IF( LDB.LT.NMAX )
841 IF( LDB.GT.NMAX )
847 CALL ZMAKE( 'ge', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
861 IF( LDA.LT.NMAX )
864 IF( LDA.GT.NMAX )
873 CALL ZMAKE(SNAME( 8: 9 ), UPLO, ' ', NA, NA, A, NMAX,
884 CALL ZMAKE( 'ge', ' ', ' ', M, N, C, NMAX, CC,
977 $ NMAX, B, NMAX, BETA, C, NMAX,
982 $ NMAX, A, NMAX, BETA, C, NMAX,
1079 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
1099 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA, IORDER local
1103 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1104 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1105 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
1106 $ C( NMAX, NMAX ), CT( NMAX )
1107 DOUBLE PRECISION G( NMAX )
1143 DO 20 J = 1, NMAX
1144 DO 10 I = 1, NMAX
1156 IF( LDB.LT.NMAX )
1159 IF( LDB.GT.NMAX )
1174 IF( LDA.LT.NMAX )
1177 IF( LDA.GT.NMAX )
1196 $ NMAX, AA, LDA, RESET, ZERO )
1200 CALL ZMAKE( 'ge', ' ', ' ', M, N, B, NMAX,
1296 $ ALPHA, A, NMAX, B, NMAX,
1297 $ ZERO, C, NMAX, CT, G,
1302 $ ALPHA, B, NMAX, A, NMAX,
1303 $ ZERO, C, NMAX, CT, G,
1323 $ ONE, A, NMAX, C, NMAX,
1324 $ ZERO, B, NMAX, CT, G,
1329 $ ONE, C, NMAX, A, NMAX,
1330 $ ZERO, B, NMAX, CT, G,
1442 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1463 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1467 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1468 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1469 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1470 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1471 $ CS( NMAX*NMAX ), CT( NMAX )
1472 DOUBLE PRECISION G( NMAX )
1511 IF( LDC.LT.NMAX )
1514 IF( LDC.GT.NMAX )
1535 IF( LDA.LT.NMAX )
1538 IF( LDA.GT.NMAX )
1544 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1572 $ NMAX, CC, LDC, RESET, ZERO )
1691 $ ALPHA, A( 1, JJ ), NMAX,
1692 $ A( 1, J ), NMAX, BETA,
1693 $ C( JJ, J ), NMAX, CT, G,
1698 $ ALPHA, A( JJ, 1 ), NMAX,
1699 $ A( J, 1 ), NMAX, BETA,
1700 $ C( JJ, J ), NMAX, CT, G,
1852 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1873 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA, IORDER local
1877 COMPLEX*16 AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1878 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1879 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1880 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1881 $ W( 2*NMAX )
1882 DOUBLE PRECISION G( NMAX )
1921 IF( LDC.LT.NMAX )
1924 IF( LDC.GT.NMAX )
1945 IF( LDA.LT.NMAX )
1948 IF( LDA.GT.NMAX )
1955 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1958 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1968 $ 2*NMAX, BB, LDB, RESET, ZERO )
1970 CALL ZMAKE( 'ge', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1971 $ NMAX, BB, LDB, RESET, ZERO )
1995 $ NMAX, CC, LDC, RESET, ZERO )
2116 $ NMAX + K + I )
2120 $ NMAX + I )
2124 $ NMAX + I )
2128 $ ONE, AB( JJAB ), 2*NMAX, W,
2129 $ 2*NMAX, BETA, C( JJ, J ),
2130 $ NMAX, CT, G, CC( JC ), LDC,
2137 $ I - 1 )*NMAX + J ) )
2139 $ AB( ( I - 1 )*NMAX +
2143 $ NMAX + J )
2145 $ AB( ( I - 1 )*NMAX +
2150 $ AB( JJ ), NMAX, W, 2*NMAX,
2151 $ BETA, C( JJ, J ), NMAX, CT,
2160 $ JJAB = JJAB + 2*NMAX
2305 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, argument
2334 INTEGER LDA, M, N, NMAX local
2339 COMPLEX*16 A( NMAX, * ), AA( * )