Lines Matching +full:test +full:- +full:cmake +full:- +full:minimum
3 * Test program for the COMPLEX Level 3 Blas.
6 * of the file are read using list-directed input, the last 9 records
11 * -1 UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
14 * T LOGICAL FLAG, T TO TEST ERROR EXITS.
15 * 2 0 TO TEST COLUMN-MAJOR, 1 TO TEST ROW-MAJOR, 2 TO TEST BOTH
16 * 16.0 THRESHOLD VALUE OF TEST RATIO
20 * (0.0,0.0) (1.0,0.0) (0.7,-0.9) VALUES OF ALPHA
22 * (0.0,0.0) (1.0,0.0) (1.3,-1.1) VALUES OF BETA
23 * cblas_cgemm T PUT F FOR NO TEST. SAME COLUMNS.
24 * cblas_chemm T PUT F FOR NO TEST. SAME COLUMNS.
25 * cblas_csymm T PUT F FOR NO TEST. SAME COLUMNS.
26 * cblas_ctrmm T PUT F FOR NO TEST. SAME COLUMNS.
27 * cblas_ctrsm T PUT F FOR NO TEST. SAME COLUMNS.
28 * cblas_cherk T PUT F FOR NO TEST. SAME COLUMNS.
29 * cblas_csyrk T PUT F FOR NO TEST. SAME COLUMNS.
30 * cblas_cher2k T PUT F FOR NO TEST. SAME COLUMNS.
31 * cblas_csyr2k T PUT F FOR NO TEST. SAME COLUMNS.
42 * -- Written on 8-February-1989.
120 * Read the flag that indicates whether row-major data layout to be tested.
122 * Read the threshold value of the test ratio
221 AB( I, J ) = MAX( I - J + 1, 0 )
228 CC( J ) = J*( ( J + 1 )*J )/2 - ( ( J + 1 )*J*( J - 1 ) )/3
252 AB( J, NMAX + 1 ) = N - J + 1
253 AB( 1, NMAX + J ) = N - J + 1
256 CC( N - J + 1 ) = J*( ( J + 1 )*J )/2 -
257 $ ( ( J + 1 )*J*( J - 1 ) )/3
279 * Test each subroutine in turn.
288 * Test error exits.
293 * Test computations.
299 * Test CGEMM, 01.
313 * Test CHEMM, 02, CSYMM, 03.
327 * Test CTRMM, 04, CTRSM, 05.
341 * Test CHERK, 06, CSYRK, 07.
355 * Test CHER2K, 08, CSYR2K, 09.
390 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
391 10001 FORMAT(' ROW-MAJOR DATA LAYOUT IS TESTED' )
392 10000 FORMAT(' COLUMN-MAJOR DATA LAYOUT IS TESTED' )
393 9999 FORMAT(' ROUTINES PASS COMPUTATIONAL TESTS IF TEST RATIO IS LES',
410 9989 FORMAT(' ERROR IN CMMCH - IN-LINE DOT PRODUCTS ARE BEING EVALU',
419 9985 FORMAT( /' ******* FATAL ERROR - TESTS ABANDONED *******' )
420 9984 FORMAT( ' ERROR-EXITS WILL NOT BE TESTED' )
432 * Auxiliary routine for test program for Level 3 Blas.
434 * -- Written on 8-February-1989.
473 EXTERNAL CCGEMM, CMAKE, CMMCH
495 * Set LDC to 1 more than minimum value if room.
519 * Set LDA to 1 more than minimum value if room.
530 CALL CMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
544 * Set LDB to 1 more than minimum value if room.
555 CALL CMAKE( 'ge', ' ', ' ', MB, NB, B, NMAX, BB,
566 CALL CMAKE( 'ge', ' ', ' ', M, N, C, NMAX,
606 * Check if error-exit was taken incorrectly.
697 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
698 $ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ',
699 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
700 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
701 $ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ',
702 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
703 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
705 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
707 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
713 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
762 * Auxiliary routine for test program for Level 3 Blas.
764 * -- Written on 8-February-1989.
803 EXTERNAL CCHEMM, CMAKE, CMMCH, CCSYMM
826 * Set LDC to 1 more than minimum value if room.
835 * Set LDB to 1 more than minimum value if room.
846 CALL CMAKE( 'ge', ' ', ' ', M, N, B, NMAX, BB, LDB, RESET,
858 * Set LDA to 1 more than minimum value if room.
872 CALL CMAKE(SNAME( 8: 9 ), UPLO, ' ', NA, NA, A, NMAX,
883 CALL CMAKE( 'ge', ' ', ' ', M, N, C, NMAX, CC,
928 * Check if error-exit was taken incorrectly.
1023 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1024 $ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ',
1025 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1026 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1027 $ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ',
1028 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1029 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1031 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1033 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1039 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1083 * Auxiliary routine for test program for Level 3 Blas.
1085 * -- Written on 8-February-1989.
1125 EXTERNAL CMAKE, CMMCH, CCTRMM, CCTRSM
1153 * Set LDB to 1 more than minimum value if room.
1171 * Set LDA to 1 more than minimum value if room.
1194 CALL CMAKE( 'tr', UPLO, DIAG, NA, NA, A,
1199 CALL CMAKE( 'ge', ' ', ' ', M, N, B, NMAX,
1247 * Check if error-exit was taken incorrectly.
1313 C( I, J ) = BB( I + ( J - 1 )*
1315 BB( I + ( J - 1 )*LDB ) = ALPHA*
1374 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1375 $ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ',
1376 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1377 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1378 $ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ',
1379 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1380 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1382 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1384 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1390 9994 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1447 * Auxiliary routine for test program for Level 3 Blas.
1449 * -- Written on 8-February-1989.
1488 EXTERNAL CCHERK, CMAKE, CMMCH, CCSYRK
1508 * Set LDC to 1 more than minimum value if room.
1532 * Set LDA to 1 more than minimum value if room.
1543 CALL CMAKE( 'ge', ' ', ' ', MA, NA, A, NMAX, AA, LDA,
1570 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
1622 * Check if error-exit was taken incorrectly.
1686 LJ = N - J + 1
1756 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
1757 $ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ',
1758 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1759 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
1760 $ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ',
1761 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
1762 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
1764 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
1766 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
1776 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
1857 * Auxiliary routine for test program for Level 3 Blas.
1859 * -- Written on 8-February-1989.
1898 EXTERNAL CCHER2K, CMAKE, CMMCH, CCSYR2K
1918 * Set LDC to 1 more than minimum value if room.
1942 * Set LDA to 1 more than minimum value if room.
1954 CALL CMAKE( 'ge', ' ', ' ', MA, NA, AB, 2*NMAX, AA,
1957 CALL CMAKE( 'ge', ' ', ' ', MA, NA, AB, NMAX, AA, LDA,
1966 CALL CMAKE( 'ge', ' ', ' ', MA, NA, AB( K + 1 ),
1969 CALL CMAKE( 'ge', ' ', ' ', MA, NA, AB( K*NMAX + 1 ),
1993 CALL CMAKE( SNAME( 8: 9 ), UPLO, ' ', N, N, C,
2047 * Check if error-exit was taken incorrectly.
2110 LJ = N - J + 1
2114 W( I ) = ALPHA*AB( ( J - 1 )*2*
2118 $ AB( ( J - 1 )*2*
2122 $ AB( ( J - 1 )*2*
2136 $ I - 1 )*NMAX + J ) )
2138 $ AB( ( I - 1 )*NMAX +
2141 W( I ) = ALPHA*AB( ( K + I - 1 )*
2144 $ AB( ( I - 1 )*NMAX +
2209 10003 FORMAT( ' ', A12,' COMPLETED THE ROW-MAJOR COMPUTATIONAL ',
2210 $ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ',
2211 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2212 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
2213 $ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ',
2214 $ 'RATIO ', F8.2, ' - SUSPECT *******' )
2215 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS',
2217 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
2219 9998 FORMAT(' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
2229 9992 FORMAT(' ******* FATAL ERROR - ERROR-EXIT TAKEN ON VALID CALL *',
2304 SUBROUTINE CMAKE(TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, subroutine
2313 * Auxiliary routine for test program for Level 3 Blas.
2315 * -- Written on 8-February-1989.
2325 PARAMETER ( ROGUE = ( -1.0E10, 1.0E10 ) )
2329 PARAMETER ( RROGUE = -1.0E10 )
2389 AA( I + ( J - 1 )*LDA ) = A( I, J )
2392 AA( I + ( J - 1 )*LDA ) = ROGUE
2400 IEND = J - 1
2412 DO 60 I = 1, IBEG - 1
2413 AA( I + ( J - 1 )*LDA ) = ROGUE
2416 AA( I + ( J - 1 )*LDA ) = A( I, J )
2419 AA( I + ( J - 1 )*LDA ) = ROGUE
2422 JJ = J + ( J - 1 )*LDA
2429 * End of CMAKE. argument
2438 * Auxiliary routine for test program for Level 3 Blas.
2440 * -- Written on 8-February-1989.
2581 ERRI = ABS1( CT( I ) - CC( I, J ) )/EPS
2611 9999 FORMAT(' ******* FATAL ERROR - COMPUTED RESULT IS LESS THAN HAL',
2624 * Auxiliary routine for test program for Level 3 Blas.
2626 * -- Written on 8-February-1989.
2658 * Auxiliary routine for test program for Level 3 Blas.
2660 * -- Written on 8-February-1989.
2693 DO 30 I = 1, IBEG - 1
2717 * distributed between -0.5 and 0.5.
2719 * Auxiliary routine for test program for Level 3 Blas.
2721 * -- Written on 8-February-1989.
2756 I = I - 1000*( I/1000 )
2757 J = J - 1000*( J/1000 )
2762 CBEG = CMPLX( ( I - 500 )/1001.0, ( J - 500 )/1001.0 )
2770 * Auxiliary routine for test program for Level 3 Blas.
2772 * -- Written on 8-February-1989.
2781 SDIFF = X - Y