Lines Matching refs:NMAX
99 INTEGER NMAX variable
100 PARAMETER ( NMAX = 65 )
112 REAL AA( NMAX*NMAX ), AB( NMAX, 2*NMAX ),
113 $ ALF( NALMAX ), AS( NMAX*NMAX ),
114 $ BB( NMAX*NMAX ), BET( NBEMAX ),
115 $ BS( NMAX*NMAX ), C( NMAX, NMAX ),
116 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
117 $ G( NMAX ), W( 2*NMAX )
176 IF( IDIM( I ).LT.0.OR.IDIM( I ).GT.NMAX )THEN
177 WRITE( NOUT, FMT = 9996 )NMAX
236 N = MIN( 32, NMAX )
241 AB( J, NMAX + 1 ) = J
242 AB( 1, NMAX + J ) = J
252 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
253 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
254 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
261 CALL SMMCH( 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 AB( J, NMAX + 1 ) = N - J + 1
271 AB( 1, NMAX + J ) = N - J + 1
279 CALL SMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
280 $ AB( 1, NMAX + 1 ), NMAX, ZERO, C, NMAX, CT, G, CC,
281 $ NMAX, EPS, ERR, FATAL, NOUT, .TRUE. )
288 CALL SMMCH( 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. )
319 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
325 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
330 $ REWI, FATAL, NIDIM, IDIM, NALF, ALF, NMAX, AB,
331 $ AA, AS, AB( 1, NMAX + 1 ), BB, BS, CT, G, C )
336 $ NMAX, AB, AA, AS, AB( 1, NMAX + 1 ), BB, BS, C,
342 $ NMAX, AB, AA, AS, BB, BS, C, CC, CS, CT, G, W )
396 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
414 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
418 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
419 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
420 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
421 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
422 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
462 IF( LDC.LT.NMAX )
465 IF( LDC.GT.NMAX )
486 IF( LDA.LT.NMAX )
489 IF( LDA.GT.NMAX )
495 CALL SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
511 IF( LDB.LT.NMAX )
514 IF( LDB.GT.NMAX )
520 CALL SMAKE( 'GE', ' ', ' ', MB, NB, B, NMAX, BB,
531 CALL SMAKE( 'GE', ' ', ' ', M, N, C, NMAX,
618 $ ALPHA, A, NMAX, B, NMAX, BETA,
619 $ C, NMAX, CT, G, CC, LDC, EPS,
677 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
695 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
699 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
700 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
701 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
702 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
703 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
743 IF( LDC.LT.NMAX )
746 IF( LDC.GT.NMAX )
753 IF( LDB.LT.NMAX )
756 IF( LDB.GT.NMAX )
762 CALL SMAKE( 'GE', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
776 IF( LDA.LT.NMAX )
779 IF( LDA.GT.NMAX )
788 CALL SMAKE( 'SY', UPLO, ' ', NA, NA, A, NMAX, AA, LDA,
799 CALL SMAKE( 'GE', ' ', ' ', M, N, C, NMAX, CC,
884 $ NMAX, B, NMAX, BETA, C, NMAX,
889 $ NMAX, A, NMAX, BETA, C, NMAX,
947 $ FATAL, NIDIM, IDIM, NALF, ALF, NMAX, A, AA, AS, argument
965 INTEGER NALF, NIDIM, NMAX, NOUT, NTRA local
969 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
970 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
971 $ BB( NMAX*NMAX ), BS( NMAX*NMAX ),
972 $ C( NMAX, NMAX ), CT( NMAX ), G( NMAX )
1007 DO 20 J = 1, NMAX
1008 DO 10 I = 1, NMAX
1020 IF( LDB.LT.NMAX )
1023 IF( LDB.GT.NMAX )
1038 IF( LDA.LT.NMAX )
1041 IF( LDA.GT.NMAX )
1060 $ NMAX, AA, LDA, RESET, ZERO )
1064 CALL SMAKE( 'GE', ' ', ' ', M, N, B, NMAX,
1158 $ ALPHA, A, NMAX, B, NMAX,
1159 $ ZERO, C, NMAX, CT, G,
1164 $ ALPHA, B, NMAX, A, NMAX,
1165 $ ZERO, C, NMAX, CT, G,
1185 $ ONE, A, NMAX, C, NMAX,
1186 $ ZERO, B, NMAX, CT, G,
1191 $ ONE, C, NMAX, A, NMAX,
1192 $ ZERO, B, NMAX, CT, G,
1252 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1270 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1274 REAL A( NMAX, NMAX ), AA( NMAX*NMAX ), ALF( NALF ),
1275 $ AS( NMAX*NMAX ), B( NMAX, NMAX ),
1276 $ BB( NMAX*NMAX ), BET( NBET ), BS( NMAX*NMAX ),
1277 $ C( NMAX, NMAX ), CC( NMAX*NMAX ),
1278 $ CS( NMAX*NMAX ), CT( NMAX ), G( NMAX )
1316 IF( LDC.LT.NMAX )
1319 IF( LDC.GT.NMAX )
1339 IF( LDA.LT.NMAX )
1342 IF( LDA.GT.NMAX )
1348 CALL SMAKE( 'GE', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1363 CALL SMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1450 $ A( 1, JJ ), NMAX,
1451 $ A( 1, J ), NMAX, BETA,
1452 $ C( JJ, J ), NMAX, CT, G,
1457 $ A( JJ, 1 ), NMAX,
1458 $ A( J, 1 ), NMAX, BETA,
1459 $ C( JJ, J ), NMAX, CT, G,
1527 $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, argument
1545 INTEGER NALF, NBET, NIDIM, NMAX, NOUT, NTRA local
1549 REAL AA( NMAX*NMAX ), AB( 2*NMAX*NMAX ),
1550 $ ALF( NALF ), AS( NMAX*NMAX ), BB( NMAX*NMAX ),
1551 $ BET( NBET ), BS( NMAX*NMAX ), C( NMAX, NMAX ),
1552 $ CC( NMAX*NMAX ), CS( NMAX*NMAX ), CT( NMAX ),
1553 $ G( NMAX ), W( 2*NMAX )
1591 IF( LDC.LT.NMAX )
1594 IF( LDC.GT.NMAX )
1614 IF( LDA.LT.NMAX )
1617 IF( LDA.GT.NMAX )
1624 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1627 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1637 $ 2*NMAX, BB, LDB, RESET, ZERO )
1639 CALL SMAKE( 'GE', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1640 $ NMAX, BB, LDB, RESET, ZERO )
1655 CALL SMAKE( 'SY', UPLO, ' ', N, N, C, NMAX, CC,
1749 W( I ) = AB( ( J - 1 )*2*NMAX + K +
1751 W( K + I ) = AB( ( J - 1 )*2*NMAX +
1755 $ ALPHA, AB( JJAB ), 2*NMAX,
1756 $ W, 2*NMAX, BETA,
1757 $ C( JJ, J ), NMAX, CT, G,
1762 W( I ) = AB( ( K + I - 1 )*NMAX +
1764 W( K + I ) = AB( ( I - 1 )*NMAX +
1768 $ ALPHA, AB( JJ ), NMAX, W,
1769 $ 2*NMAX, BETA, C( JJ, J ),
1770 $ NMAX, CT, G, CC( JC ), LDC,
1779 $ JJAB = JJAB + 2*NMAX
2395 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, argument
2419 INTEGER LDA, M, N, NMAX local
2424 REAL A( NMAX, * ), AA( * )