Lines Matching refs:NMAX
59 INTEGER NMAX
60 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 )
138 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
139 WRITE( NOUT, FMT = 9996 )NMAX
205 N = MIN( 32, NMAX )
210 AB( J, NMAX + 1 ) = J
211 AB( 1, NMAX + J ) = J
221 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
222 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
223 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
230 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
231 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
232 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
239 AB( J, NMAX + 1 ) = N - J + 1
240 AB( 1, NMAX + J ) = N - J + 1
248 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
249 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
250 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
257 CALL ZMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
258 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
259 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
289 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
295 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
300 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
301 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C )
306 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
312 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
368 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
388 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
392 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
393 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
394 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
395 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
396 $ CS( NMAX*NMAX ), CT( NMAX )
397 DOUBLE PRECISION G( NMAX )
438 IF( LDC.LT.NMAX )
441 IF( LDC.GT.NMAX )
462 IF( LDA.LT.NMAX )
465 IF( LDA.GT.NMAX )
471 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
487 IF( LDB.LT.NMAX )
490 IF( LDB.GT.NMAX )
496 CALL ZMAKE( 'GE', ' ', ' ', MB, NB, B, NMAX, BB,
507 CALL ZMAKE( 'GE', ' ', ' ', M, N, C, NMAX,
594 $ ALPHA, A, NMAX, B, NMAX, BETA,
595 $ C, NMAX, CT, G, CC, LDC, EPS,
653 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
673 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
677 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
678 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
679 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
680 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
681 $ CS( NMAX*NMAX ), CT( NMAX )
682 DOUBLE PRECISION G( NMAX )
724 IF( LDC.LT.NMAX )
727 IF( LDC.GT.NMAX )
733 IF( LDB.LT.NMAX )
736 IF( LDB.GT.NMAX )
742 CALL ZMAKE( 'GE', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
756 IF( LDA.LT.NMAX )
759 IF( LDA.GT.NMAX )
768 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', NA, NA, A, NMAX,
779 CALL ZMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
869 $ NMAX, B, NMAX, BETA, C, NMAX,
874 $ NMAX, A, NMAX, BETA, C, NMAX,
932 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS,
953 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA
957 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
958 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
959 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
960 $ C( NMAX, NMAX ), CT( NMAX )
961 DOUBLE PRECISION G( NMAX )
997 DO 20 J = 1, NMAX
998 DO 10 I = 1, NMAX
1010 IF( LDB.LT.NMAX )
1013 IF( LDB.GT.NMAX )
1028 IF( LDA.LT.NMAX )
1031 IF( LDA.GT.NMAX )
1050 $ NMAX, AA, LDA, RESET, ZERO )
1054 CALL ZMAKE( 'GE', ' ', ' ', M, N, B, NMAX,
1148 $ ALPHA, A, NMAX, B, NMAX,
1149 $ ZERO, C, NMAX, CT, G,
1154 $ ALPHA, B, NMAX, A, NMAX,
1155 $ ZERO, C, NMAX, CT, G,
1175 $ ONE, A, NMAX, C, NMAX,
1176 $ ZERO, B, NMAX, CT, G,
1181 $ ONE, C, NMAX, A, NMAX,
1182 $ ZERO, B, NMAX, CT, G,
1243 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1263 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1267 COMPLEX*16 A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1268 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1269 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1270 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1271 $ CS( NMAX*NMAX ), CT( NMAX )
1272 DOUBLE PRECISION G( NMAX )
1311 IF( LDC.LT.NMAX )
1314 IF( LDC.GT.NMAX )
1335 IF( LDA.LT.NMAX )
1338 IF( LDA.GT.NMAX )
1344 NMAX, AA, LDA,
1372 $ NMAX, CC, LDC, RESET, ZERO )
1489 $ ALPHA, A( 1, JJ ), NMAX,
1490 $ A( 1, J ), NMAX, BETA,
1491 $ C( JJ, J ), NMAX, CT, G,
1496 $ ALPHA, A( JJ, 1 ), NMAX,
1497 $ A( J, 1 ), NMAX, BETA,
1498 $ C( JJ, J ), NMAX, CT, G,
1575 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
1596 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA
1600 COMPLEX*16 AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1601 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1602 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1603 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1604 $ W( 2*NMAX )
1605 DOUBLE PRECISION G( NMAX )
1644 IF( LDC.LT.NMAX )
1647 IF( LDC.GT.NMAX )
1668 IF( LDA.LT.NMAX )
1671 IF( LDA.GT.NMAX )
1678 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1681 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1691 $ 2*NMAX, BB, LDB, RESET, ZERO )
1693 CALL ZMAKE( 'GE', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1694 $ NMAX, BB, LDB, RESET, ZERO )
1718 $ NMAX, CC, LDC, RESET, ZERO )
1835 $ NMAX + K + I )
1839 $ NMAX + I )
1843 $ NMAX + I )
1847 $ ONE, AB( JJAB ), 2*NMAX, W,
1848 $ 2*NMAX, BETA, C( JJ, J ),
1849 $ NMAX, CT, G, CC( JC ), LDC,
1856 $ I - 1 )*NMAX + J ) )
1858 $ AB( ( I - 1 )*NMAX +
1862 $ NMAX + J )
1864 $ AB( ( I - 1 )*NMAX +
1869 $ AB( JJ ), NMAX, W, 2*NMAX,
1870 $ BETA, C( JJ, J ), NMAX, CT,
1879 $ JJAB = JJAB + 2*NMAX
2874 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,
2903 INTEGER LDA, M, N, NMAX
2908 COMPLEX*16 A( NMAX, * ), AA( * )
