Lines Matching refs:CALL
264 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
272 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
291 CALL DCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
302 140 CALL DCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
308 150 CALL DCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
315 160 CALL DCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
320 170 CALL DCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326 180 CALL DCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
332 190 CALL DCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
500 CALL DMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
522 CALL DMAKE( 'GE', ' ', ' ', 1, NL, X, 1, XX,
542 CALL DMAKE( 'GE', ' ', ' ', 1, ML, Y, 1,
571 * Call the subroutine.
580 CALL DGEMV( TRANS, M, N, ALPHA, AA,
590 CALL DGBMV( TRANS, M, N, KL, KU, ALPHA,
660 CALL DMVCH( TRANS, M, N, ALPHA, A,
713 9999 FORMAT( ' ', A6, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
720 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
726 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
841 CALL DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
851 CALL DMAKE( 'GE', ' ', ' ', 1, N, X, 1, XX,
871 CALL DMAKE( 'GE', ' ', ' ', 1, N, Y, 1, YY,
898 * Call the subroutine.
906 CALL DSYMV( UPLO, N, ALPHA, AA, LDA, XX,
915 CALL DSBMV( UPLO, N, K, ALPHA, AA, LDA,
923 CALL DSPMV( UPLO, N, ALPHA, AA, XX, INCX,
1001 CALL DMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1054 9999 FORMAT( ' ', A6, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1061 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1069 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1191 CALL DMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1201 CALL DMAKE( 'GE', ' ', ' ', 1, N, X, 1, XX,
1227 * Call the subroutine.
1236 CALL DTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1244 CALL DTBMV( UPLO, TRANS, DIAG, N, K, AA,
1252 CALL DTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1262 CALL DTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1270 CALL DTBSV( UPLO, TRANS, DIAG, N, K, AA,
1278 CALL DTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1348 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, X,
1362 CALL DMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1412 9999 FORMAT( ' ', A6, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1419 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1426 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1516 CALL DMAKE( 'GE', ' ', ' ', 1, M, X, 1, XX, ABS( INCX ),
1530 CALL DMAKE( 'GE', ' ', ' ', 1, N, Y, 1, YY,
1543 CALL DMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX,
1566 * Call the subroutine.
1573 CALL DGER( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1633 CALL DMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1676 9999 FORMAT( ' ', A6, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1683 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1687 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1785 CALL DMAKE( 'GE', ' ', ' ', 1, N, X, 1, XX, ABS( INCX ),
1799 CALL DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1818 * Call the subroutine.
1826 CALL DSYR( UPLO, N, ALPHA, XX, INCX, AA, LDA )
1833 CALL DSPR( UPLO, N, ALPHA, XX, INCX, AA )
1897 CALL DMVCH( 'N', LJ, 1, ALPHA, Z( JJ ), LJ, W,
1952 9999 FORMAT( ' ', A6, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1959 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1965 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2064 CALL DMAKE( 'GE', ' ', ' ', 1, N, X, 1, XX, ABS( INCX ),
2078 CALL DMAKE( 'GE', ' ', ' ', 1, N, Y, 1, YY,
2092 CALL DMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2116 * Call the subroutine.
2124 CALL DSYR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2132 CALL DSPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2209 CALL DMVCH( 'N', LJ, 2, ALPHA, Z( JJ, 1 ),
2267 9999 FORMAT( ' ', A6, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
2274 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
2280 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2325 CALL DGEMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2326 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2328 CALL DGEMV( 'N', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2329 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2331 CALL DGEMV( 'N', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2332 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2334 CALL DGEMV( 'N', 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2335 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2337 CALL DGEMV( 'N', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2338 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2340 CALL DGEMV( 'N', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2341 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2344 CALL DGBMV( '/', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2345 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2347 CALL DGBMV( 'N', -1, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2348 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2350 CALL DGBMV( 'N', 0, -1, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2351 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2353 CALL DGBMV( 'N', 0, 0, -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2354 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2356 CALL DGBMV( 'N', 2, 0, 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2357 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2359 CALL DGBMV( 'N', 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2360 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2362 CALL DGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2363 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2365 CALL DGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2366 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2369 CALL DSYMV( '/', 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2370 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2372 CALL DSYMV( 'U', -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2373 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2375 CALL DSYMV( 'U', 2, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2376 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2378 CALL DSYMV( 'U', 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2379 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2381 CALL DSYMV( 'U', 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2382 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2385 CALL DSBMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2386 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2388 CALL DSBMV( 'U', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2389 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2391 CALL DSBMV( 'U', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2392 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2394 CALL DSBMV( 'U', 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2395 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2397 CALL DSBMV( 'U', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2398 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2400 CALL DSBMV( 'U', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2401 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2404 CALL DSPMV( '/', 0, ALPHA, A, X, 1, BETA, Y, 1 )
2405 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2407 CALL DSPMV( 'U', -1, ALPHA, A, X, 1, BETA, Y, 1 )
2408 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2410 CALL DSPMV( 'U', 0, ALPHA, A, X, 0, BETA, Y, 1 )
2411 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2413 CALL DSPMV( 'U', 0, ALPHA, A, X, 1, BETA, Y, 0 )
2414 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2417 CALL DTRMV( '/', 'N', 'N', 0, A, 1, X, 1 )
2418 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2420 CALL DTRMV( 'U', '/', 'N', 0, A, 1, X, 1 )
2421 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2423 CALL DTRMV( 'U', 'N', '/', 0, A, 1, X, 1 )
2424 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2426 CALL DTRMV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2427 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2429 CALL DTRMV( 'U', 'N', 'N', 2, A, 1, X, 1 )
2430 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2432 CALL DTRMV( 'U', 'N', 'N', 0, A, 1, X, 0 )
2433 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2436 CALL DTBMV( '/', 'N', 'N', 0, 0, A, 1, X, 1 )
2437 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2439 CALL DTBMV( 'U', '/', 'N', 0, 0, A, 1, X, 1 )
2440 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2442 CALL DTBMV( 'U', 'N', '/', 0, 0, A, 1, X, 1 )
2443 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2445 CALL DTBMV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2446 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2448 CALL DTBMV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2449 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2451 CALL DTBMV( 'U', 'N', 'N', 0, 1, A, 1, X, 1 )
2452 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2454 CALL DTBMV( 'U', 'N', 'N', 0, 0, A, 1, X, 0 )
2455 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2458 CALL DTPMV( '/', 'N', 'N', 0, A, X, 1 )
2459 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2461 CALL DTPMV( 'U', '/', 'N', 0, A, X, 1 )
2462 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2464 CALL DTPMV( 'U', 'N', '/', 0, A, X, 1 )
2465 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2467 CALL DTPMV( 'U', 'N', 'N', -1, A, X, 1 )
2468 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2470 CALL DTPMV( 'U', 'N', 'N', 0, A, X, 0 )
2471 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2474 CALL DTRSV( '/', 'N', 'N', 0, A, 1, X, 1 )
2475 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2477 CALL DTRSV( 'U', '/', 'N', 0, A, 1, X, 1 )
2478 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2480 CALL DTRSV( 'U', 'N', '/', 0, A, 1, X, 1 )
2481 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2483 CALL DTRSV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2484 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2486 CALL DTRSV( 'U', 'N', 'N', 2, A, 1, X, 1 )
2487 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2489 CALL DTRSV( 'U', 'N', 'N', 0, A, 1, X, 0 )
2490 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2493 CALL DTBSV( '/', 'N', 'N', 0, 0, A, 1, X, 1 )
2494 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2496 CALL DTBSV( 'U', '/', 'N', 0, 0, A, 1, X, 1 )
2497 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2499 CALL DTBSV( 'U', 'N', '/', 0, 0, A, 1, X, 1 )
2500 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2502 CALL DTBSV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2503 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2505 CALL DTBSV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2506 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2508 CALL DTBSV( 'U', 'N', 'N', 0, 1, A, 1, X, 1 )
2509 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2511 CALL DTBSV( 'U', 'N', 'N', 0, 0, A, 1, X, 0 )
2512 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2515 CALL DTPSV( '/', 'N', 'N', 0, A, X, 1 )
2516 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2518 CALL DTPSV( 'U', '/', 'N', 0, A, X, 1 )
2519 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2521 CALL DTPSV( 'U', 'N', '/', 0, A, X, 1 )
2522 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2524 CALL DTPSV( 'U', 'N', 'N', -1, A, X, 1 )
2525 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2527 CALL DTPSV( 'U', 'N', 'N', 0, A, X, 0 )
2528 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2531 CALL DGER( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2532 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2534 CALL DGER( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2535 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2537 CALL DGER( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2538 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2540 CALL DGER( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2541 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2543 CALL DGER( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2544 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2547 CALL DSYR( '/', 0, ALPHA, X, 1, A, 1 )
2548 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2550 CALL DSYR( 'U', -1, ALPHA, X, 1, A, 1 )
2551 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2553 CALL DSYR( 'U', 0, ALPHA, X, 0, A, 1 )
2554 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2556 CALL DSYR( 'U', 2, ALPHA, X, 1, A, 1 )
2557 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2560 CALL DSPR( '/', 0, ALPHA, X, 1, A )
2561 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2563 CALL DSPR( 'U', -1, ALPHA, X, 1, A )
2564 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2566 CALL DSPR( 'U', 0, ALPHA, X, 0, A )
2567 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2570 CALL DSYR2( '/', 0, ALPHA, X, 1, Y, 1, A, 1 )
2571 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2573 CALL DSYR2( 'U', -1, ALPHA, X, 1, Y, 1, A, 1 )
2574 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2576 CALL DSYR2( 'U', 0, ALPHA, X, 0, Y, 1, A, 1 )
2577 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2579 CALL DSYR2( 'U', 0, ALPHA, X, 1, Y, 0, A, 1 )
2580 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2582 CALL DSYR2( 'U', 2, ALPHA, X, 1, Y, 1, A, 1 )
2583 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2586 CALL DSPR2( '/', 0, ALPHA, X, 1, Y, 1, A )
2587 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2589 CALL DSPR2( 'U', -1, ALPHA, X, 1, Y, 1, A )
2590 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2592 CALL DSPR2( 'U', 0, ALPHA, X, 0, Y, 1, A )
2593 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2595 CALL DSPR2( 'U', 0, ALPHA, X, 1, Y, 0, A )
2596 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
