Lines Matching refs:NMAX
106 INTEGER NMAX
107 PARAMETER ( NMAX = 65 )
119 COMPLEX*16 AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
120 $ ALF( NALMAX ), AS( NMAX*NMAX ),
121 $ BB( NMAX*NMAX ), BET( NBEMAX ),
122 $ BS( NMAX*NMAX ), C( NMAX, NMAX ),
123 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
124 $ W( 2*NMAX )
125 DOUBLE PRECISION G( NMAX )
185 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
186 WRITE( NOUT, FMT = 9996 )NMAX
245 N = MIN( 32, NMAX )
250 AB( J, NMAX + 1 ) = J
251 AB( 1, NMAX + J ) = J
261 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
262 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
263 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
270 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
271 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
272 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
279 AB( J, NMAX + 1 ) = N - J + 1
280 AB( 1, NMAX + J ) = N - J + 1
288 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
289 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
290 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
297 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
298 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
299 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
329 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
335 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
340 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
341 $ 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, BB, BS, C, CC, CS, CT, G, W )
408 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
428 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
432 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
433 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
434 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
435 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
436 $ CS( NMAX*NMAX ), CT( NMAX )
437 DOUBLE PRECISION G( NMAX )
478 IF( LDC.LT.NMAX )
481 IF( LDC.GT.NMAX )
502 IF( LDA.LT.NMAX )
505 IF( LDA.GT.NMAX )
511 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
527 IF( LDB.LT.NMAX )
530 IF( LDB.GT.NMAX )
536 CALL ZMAKE( 'GE', ' ', ' ', MB, NB, B, NMAX, BB,
547 CALL ZMAKE( 'GE', ' ', ' ', M, N, C, NMAX,
634 $ ALPHA, A, NMAX, B, NMAX, BETA,
635 $ C, NMAX, CT, G, CC, LDC, EPS,
693 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
713 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
717 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
718 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
719 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
720 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
721 $ CS( NMAX*NMAX ), CT( NMAX )
722 DOUBLE PRECISION G( NMAX )
764 IF( LDC.LT.NMAX )
767 IF( LDC.GT.NMAX )
773 IF( LDB.LT.NMAX )
776 IF( LDB.GT.NMAX )
782 CALL ZMAKE( 'GE', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
796 IF( LDA.LT.NMAX )
799 IF( LDA.GT.NMAX )
808 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX,
819 CALL ZMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
909 $ NMAX, B, NMAX, BETA, C, NMAX,
914 NMAX, A, NMAX, BETA, C, NMAX,
972 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
993 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA
997 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
998 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
999 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
1000 $ C( NMAX, NMAX ), CT( NMAX )
1001 DOUBLE PRECISION G( NMAX )
1037 DO 20 J = 1, NMAX
1038 DO 10 I = 1, NMAX
1050 IF( LDB.LT.NMAX )
1053 IF( LDB.GT.NMAX )
1068 IF( LDA.LT.NMAX )
1071 IF( LDA.GT.NMAX )
1090 $ NMAX, AA, LDA, RESET, ZERO )
1094 CALL ZMAKE( 'GE', ' ', ' ', M, N, B, NMAX,
1188 $ ALPHA, A, NMAX, B, NMAX,
1189 $ ZERO, C, NMAX, CT, G,
1194 $ ALPHA, B, NMAX, A, NMAX,
1195 $ ZERO, C, NMAX, CT, G,
1215 $ ONE, A, NMAX, C, NMAX,
1216 $ ZERO, B, NMAX, CT, G,
1221 $ ONE, C, NMAX, A, NMAX,
1222 $ ZERO, B, NMAX, CT, G,
1283 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1303 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1307 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1308 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1309 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1310 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1311 $ CS( NMAX*NMAX ), CT( NMAX )
1312 DOUBLE PRECISION G( NMAX )
1351 IF( LDC.LT.NMAX )
1354 IF( LDC.GT.NMAX )
1375 IF( LDA.LT.NMAX )
1378 IF( LDA.GT.NMAX )
1384 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1412 $ NMAX, CC, LDC, RESET, ZERO )
1529 $ ALPHA, A( 1, JJ ), NMAX,
1530 $ A( 1, J ), NMAX, BETA,
1531 $ C( JJ, J ), NMAX, CT, G,
1536 $ ALPHA, A( JJ, 1 ), NMAX,
1537 $ A( J, 1 ), NMAX, BETA,
1538 $ C( JJ, J ), NMAX, CT, G,
1615 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1636 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1640 COMPLEX*16 AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1641 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1642 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1643 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1644 $ W( 2*NMAX )
1645 DOUBLE PRECISION G( NMAX )
1684 IF( LDC.LT.NMAX )
1687 IF( LDC.GT.NMAX )
1708 IF( LDA.LT.NMAX )
1711 IF( LDA.GT.NMAX )
1718 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1721 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1731 $ 2*NMAX, BB, LDB, RESET, ZERO )
1733 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1734 $ NMAX, BB, LDB, RESET, ZERO )
1758 $ NMAX, CC, LDC, RESET, ZERO )
1875 $ NMAX + K + I )
1879 $ NMAX + I )
1883 $ NMAX + I )
1887 $ ONE, AB( JJAB ), 2*NMAX, W,
1888 $ 2*NMAX, BETA, C( JJ, J ),
1889 $ NMAX, CT, G, CC( JC ), LDC,
1896 $ I - 1 )*NMAX + J ) )
1898 $ AB( ( I - 1 )*NMAX +
1902 $ NMAX + J )
1904 $ AB( ( I - 1 )*NMAX +
1909 $ AB( JJ ), NMAX, W, 2*NMAX,
1910 $ BETA, C( JJ, J ), NMAX, CT,
1919 $ JJAB = JJAB + 2*NMAX
2932 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2961 INTEGER LDA, M, N, NMAX
2966 COMPLEX*16 A( NMAX, * ), AA( * )
