Lines Matching refs:CALL
270 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, 1, ZERO, Y, 1, YT, G,
278 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
297 CALL ZCHKE( ISNUM, SNAMES( ISNUM ), NOUT )
308 140 CALL ZCHK1( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
314 150 CALL ZCHK2( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
321 160 CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
326 170 CALL ZCHK4( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
332 180 CALL ZCHK5( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
338 190 CALL ZCHK6( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
512 CALL ZMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX, AA,
534 CALL ZMAKE( 'GE', ' ', ' ', 1, NL, X, 1, XX,
554 CALL ZMAKE( 'GE', ' ', ' ', 1, ML, Y, 1,
583 * Call the subroutine.
592 CALL ZGEMV( TRANS, M, N, ALPHA, AA,
602 CALL ZGBMV( TRANS, M, N, KL, KU, ALPHA,
672 CALL ZMVCH( TRANS, M, N, ALPHA, A,
725 9999 FORMAT( ' ', A6, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
732 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
739 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
858 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX, AA,
868 CALL ZMAKE( 'GE', ' ', ' ', 1, N, X, 1, XX,
888 CALL ZMAKE( 'GE', ' ', ' ', 1, N, Y, 1, YY,
915 * Call the subroutine.
923 CALL ZHEMV( UPLO, N, ALPHA, AA, LDA, XX,
932 CALL ZHBMV( UPLO, N, K, ALPHA, AA, LDA,
940 CALL ZHPMV( UPLO, N, ALPHA, AA, XX, INCX,
1018 CALL ZMVCH( 'N', N, N, ALPHA, A, NMAX, X,
1071 9999 FORMAT( ' ', A6, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1078 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1088 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1215 CALL ZMAKE( SNAME( 2: 3 ), UPLO, DIAG, N, N, A,
1225 CALL ZMAKE( 'GE', ' ', ' ', 1, N, X, 1, XX,
1251 * Call the subroutine.
1260 CALL ZTRMV( UPLO, TRANS, DIAG, N, AA, LDA,
1268 CALL ZTBMV( UPLO, TRANS, DIAG, N, K, AA,
1276 CALL ZTPMV( UPLO, TRANS, DIAG, N, AA, XX,
1286 CALL ZTRSV( UPLO, TRANS, DIAG, N, AA, LDA,
1294 CALL ZTBSV( UPLO, TRANS, DIAG, N, K, AA,
1302 CALL ZTPSV( UPLO, TRANS, DIAG, N, AA, XX,
1372 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, X,
1386 CALL ZMVCH( TRANS, N, N, ONE, A, NMAX, Z,
1436 9999 FORMAT( ' ', A6, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1443 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1450 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1547 CALL ZMAKE( 'GE', ' ', ' ', 1, M, X, 1, XX, ABS( INCX ),
1561 CALL ZMAKE( 'GE', ' ', ' ', 1, N, Y, 1, YY,
1574 CALL ZMAKE( SNAME( 2: 3 ), ' ', ' ', M, N, A, NMAX,
1597 * Call the subroutine.
1605 CALL ZGERC( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1610 CALL ZGERU( M, N, ALPHA, XX, INCX, YY, INCY, AA,
1673 CALL ZMVCH( 'N', M, 1, ALPHA, Z, NMAX, W, 1,
1716 9999 FORMAT( ' ', A6, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
1723 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
1728 9993 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1832 CALL ZMAKE( 'GE', ' ', ' ', 1, N, X, 1, XX, ABS( INCX ),
1847 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A, NMAX,
1866 * Call the subroutine.
1874 CALL ZHER( UPLO, N, RALPHA, XX, INCX, AA, LDA )
1881 CALL ZHPR( UPLO, N, RALPHA, XX, INCX, AA )
1945 CALL ZMVCH( 'N', LJ, 1, ALPHA, Z( JJ ), LJ, W,
2000 9999 FORMAT( ' ', A6, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
2007 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
2013 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2118 CALL ZMAKE( 'GE', ' ', ' ', 1, N, X, 1, XX, ABS( INCX ),
2132 CALL ZMAKE( 'GE', ' ', ' ', 1, N, Y, 1, YY,
2146 CALL ZMAKE( SNAME( 2: 3 ), UPLO, ' ', N, N, A,
2170 * Call the subroutine.
2178 CALL ZHER2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2186 CALL ZHPR2( UPLO, N, ALPHA, XX, INCX, YY, INCY,
2263 CALL ZMVCH( 'N', LJ, 2, ONE, Z( JJ, 1 ),
2321 9999 FORMAT( ' ', A6, ' PASSED THE COMPUTATIONAL TESTS (', I6, ' CALL',
2328 9996 FORMAT( ' ******* ', A6, ' FAILED ON CALL NUMBER:' )
2336 9992 FORMAT( ' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2382 CALL ZGEMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2383 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2385 CALL ZGEMV( 'N', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2386 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2388 CALL ZGEMV( 'N', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2389 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2391 CALL ZGEMV( 'N', 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2392 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2394 CALL ZGEMV( 'N', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2395 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2397 CALL ZGEMV( 'N', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2398 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2401 CALL ZGBMV( '/', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2402 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2404 CALL ZGBMV( 'N', -1, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2405 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2407 CALL ZGBMV( 'N', 0, -1, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2408 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2410 CALL ZGBMV( 'N', 0, 0, -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2411 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2413 CALL ZGBMV( 'N', 2, 0, 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2414 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2416 CALL ZGBMV( 'N', 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2417 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2419 CALL ZGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2420 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2422 CALL ZGBMV( 'N', 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2423 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2426 CALL ZHEMV( '/', 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2427 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2429 CALL ZHEMV( 'U', -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2430 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2432 CALL ZHEMV( 'U', 2, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2433 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2435 CALL ZHEMV( 'U', 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2436 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2438 CALL ZHEMV( 'U', 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2439 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2442 CALL ZHBMV( '/', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2443 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2445 CALL ZHBMV( 'U', -1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2446 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2448 CALL ZHBMV( 'U', 0, -1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2449 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2451 CALL ZHBMV( 'U', 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 )
2452 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2454 CALL ZHBMV( 'U', 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 )
2455 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2457 CALL ZHBMV( 'U', 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 )
2458 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2461 CALL ZHPMV( '/', 0, ALPHA, A, X, 1, BETA, Y, 1 )
2462 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2464 CALL ZHPMV( 'U', -1, ALPHA, A, X, 1, BETA, Y, 1 )
2465 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2467 CALL ZHPMV( 'U', 0, ALPHA, A, X, 0, BETA, Y, 1 )
2468 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2470 CALL ZHPMV( 'U', 0, ALPHA, A, X, 1, BETA, Y, 0 )
2471 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2474 CALL ZTRMV( '/', 'N', 'N', 0, A, 1, X, 1 )
2475 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2477 CALL ZTRMV( 'U', '/', 'N', 0, A, 1, X, 1 )
2478 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2480 CALL ZTRMV( 'U', 'N', '/', 0, A, 1, X, 1 )
2481 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2483 CALL ZTRMV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2484 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2486 CALL ZTRMV( 'U', 'N', 'N', 2, A, 1, X, 1 )
2487 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2489 CALL ZTRMV( 'U', 'N', 'N', 0, A, 1, X, 0 )
2490 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2493 CALL ZTBMV( '/', 'N', 'N', 0, 0, A, 1, X, 1 )
2494 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2496 CALL ZTBMV( 'U', '/', 'N', 0, 0, A, 1, X, 1 )
2497 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2499 CALL ZTBMV( 'U', 'N', '/', 0, 0, A, 1, X, 1 )
2500 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2502 CALL ZTBMV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2503 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2505 CALL ZTBMV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2506 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2508 CALL ZTBMV( 'U', 'N', 'N', 0, 1, A, 1, X, 1 )
2509 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2511 CALL ZTBMV( 'U', 'N', 'N', 0, 0, A, 1, X, 0 )
2512 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2515 CALL ZTPMV( '/', 'N', 'N', 0, A, X, 1 )
2516 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2518 CALL ZTPMV( 'U', '/', 'N', 0, A, X, 1 )
2519 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2521 CALL ZTPMV( 'U', 'N', '/', 0, A, X, 1 )
2522 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2524 CALL ZTPMV( 'U', 'N', 'N', -1, A, X, 1 )
2525 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2527 CALL ZTPMV( 'U', 'N', 'N', 0, A, X, 0 )
2528 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2531 CALL ZTRSV( '/', 'N', 'N', 0, A, 1, X, 1 )
2532 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2534 CALL ZTRSV( 'U', '/', 'N', 0, A, 1, X, 1 )
2535 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2537 CALL ZTRSV( 'U', 'N', '/', 0, A, 1, X, 1 )
2538 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2540 CALL ZTRSV( 'U', 'N', 'N', -1, A, 1, X, 1 )
2541 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2543 CALL ZTRSV( 'U', 'N', 'N', 2, A, 1, X, 1 )
2544 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2546 CALL ZTRSV( 'U', 'N', 'N', 0, A, 1, X, 0 )
2547 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2550 CALL ZTBSV( '/', 'N', 'N', 0, 0, A, 1, X, 1 )
2551 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2553 CALL ZTBSV( 'U', '/', 'N', 0, 0, A, 1, X, 1 )
2554 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2556 CALL ZTBSV( 'U', 'N', '/', 0, 0, A, 1, X, 1 )
2557 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2559 CALL ZTBSV( 'U', 'N', 'N', -1, 0, A, 1, X, 1 )
2560 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2562 CALL ZTBSV( 'U', 'N', 'N', 0, -1, A, 1, X, 1 )
2563 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2565 CALL ZTBSV( 'U', 'N', 'N', 0, 1, A, 1, X, 1 )
2566 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2568 CALL ZTBSV( 'U', 'N', 'N', 0, 0, A, 1, X, 0 )
2569 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2572 CALL ZTPSV( '/', 'N', 'N', 0, A, X, 1 )
2573 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2575 CALL ZTPSV( 'U', '/', 'N', 0, A, X, 1 )
2576 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2578 CALL ZTPSV( 'U', 'N', '/', 0, A, X, 1 )
2579 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2581 CALL ZTPSV( 'U', 'N', 'N', -1, A, X, 1 )
2582 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2584 CALL ZTPSV( 'U', 'N', 'N', 0, A, X, 0 )
2585 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2588 CALL ZGERC( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2589 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2591 CALL ZGERC( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2592 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2594 CALL ZGERC( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2595 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2597 CALL ZGERC( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2598 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2600 CALL ZGERC( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2601 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2604 CALL ZGERU( -1, 0, ALPHA, X, 1, Y, 1, A, 1 )
2605 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2607 CALL ZGERU( 0, -1, ALPHA, X, 1, Y, 1, A, 1 )
2608 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2610 CALL ZGERU( 0, 0, ALPHA, X, 0, Y, 1, A, 1 )
2611 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2613 CALL ZGERU( 0, 0, ALPHA, X, 1, Y, 0, A, 1 )
2614 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2616 CALL ZGERU( 2, 0, ALPHA, X, 1, Y, 1, A, 1 )
2617 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2620 CALL ZHER( '/', 0, RALPHA, X, 1, A, 1 )
2621 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2623 CALL ZHER( 'U', -1, RALPHA, X, 1, A, 1 )
2624 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2626 CALL ZHER( 'U', 0, RALPHA, X, 0, A, 1 )
2627 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2629 CALL ZHER( 'U', 2, RALPHA, X, 1, A, 1 )
2630 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2633 CALL ZHPR( '/', 0, RALPHA, X, 1, A )
2634 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2636 CALL ZHPR( 'U', -1, RALPHA, X, 1, A )
2637 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2639 CALL ZHPR( 'U', 0, RALPHA, X, 0, A )
2640 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2643 CALL ZHER2( '/', 0, ALPHA, X, 1, Y, 1, A, 1 )
2644 CALL
2646 CALL ZHER2( 'U', -1, ALPHA, X, 1, Y, 1, A, 1 )
2647 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2649 CALL ZHER2( 'U', 0, ALPHA, X, 0, Y, 1, A, 1 )
2650 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2652 CALL ZHER2( 'U', 0, ALPHA, X, 1, Y, 0, A, 1 )
2653 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2655 CALL ZHER2( 'U', 2, ALPHA, X, 1, Y, 1, A, 1 )
2656 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2659 CALL ZHPR2( '/', 0, ALPHA, X, 1, Y, 1, A )
2660 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2662 CALL ZHPR2( 'U', -1, ALPHA, X, 1, Y, 1, A )
2663 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2665 CALL ZHPR2( 'U', 0, ALPHA, X, 0, Y, 1, A )
2666 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
2668 CALL ZHPR2( 'U', 0, ALPHA, X, 1, Y, 0, A )
2669 CALL CHKXER( SRNAMT, INFOT, NOUT, LERR, OK )
