floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Import LAPACK: CBLAS directory

This commit is contained in:
Martin Köhler 2016-10-26 15:02:41 +02:00
parent 4c024b85e4
commit 358ee318ed
8 changed files with 20 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lapack-netlib/CBLAS/CMakeLists.txt
View File

@ -65,9 +65,9 @@ if(ALL_TARGETS)
list(GET ALL_TARGETS 0 _cblas_config_build_guard_target) list(GET ALL_TARGETS 0 _cblas_config_build_guard_target)
endif() endif()
configure_file(${CMAKE_CURRENT_SOURCE_DIR}/CMAKE/cblas-config-version.cmake.in configure_file(${CMAKE_CURRENT_SOURCE_DIR}/cmake/cblas-config-version.cmake.in
${LAPACK_BINARY_DIR}/cblas-config-version.cmake @ONLY) ${LAPACK_BINARY_DIR}/cblas-config-version.cmake @ONLY)
configure_file(${CMAKE_CURRENT_SOURCE_DIR}/CMAKE/cblas-config-build.cmake.in configure_file(${CMAKE_CURRENT_SOURCE_DIR}/cmake/cblas-config-build.cmake.in
${LAPACK_BINARY_DIR}/cblas-config.cmake @ONLY) ${LAPACK_BINARY_DIR}/cblas-config.cmake @ONLY)

1
lapack-netlib/CBLAS/testing/CMakeLists.txt
View File

@ -16,7 +16,6 @@ macro(add_cblas_test output input target)
-DINTDIR=${CMAKE_CFG_INTDIR} -DINTDIR=${CMAKE_CFG_INTDIR}
-P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake")
else() else()
string(REPLACE "." "_" input_name ${input})
add_test(NAME CBLAS-${testName} COMMAND "${CMAKE_COMMAND}" add_test(NAME CBLAS-${testName} COMMAND "${CMAKE_COMMAND}"
-DTEST=$<TARGET_FILE:${target}> -DTEST=$<TARGET_FILE:${target}>
-DOUTPUT=${TEST_OUTPUT} -DOUTPUT=${TEST_OUTPUT}

2
lapack-netlib/CBLAS/testing/Makefile
View File

@ -41,7 +41,7 @@ all2: stest2 dtest2 ctest2 ztest2
all3: stest3 dtest3 ctest3 ztest3 all3: stest3 dtest3 ctest3 ztest3
clean: clean:
rm -f core *.o a.out x* rm -f core *.o *.out x*
cleanobj: cleanobj:
rm -f core *.o a.out rm -f core *.o a.out
cleanexe: cleanexe:

5
lapack-netlib/CBLAS/testing/c_cblat3.f
View File

@ -1365,8 +1365,9 @@
* *
150 CONTINUE 150 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, IF( TRACE )
$ M, N, ALPHA, LDA, LDB) $ CALL CPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
$ M, N, ALPHA, LDA, LDB)
* *
160 CONTINUE 160 CONTINUE
RETURN RETURN

5
lapack-netlib/CBLAS/testing/c_dblat3.f
View File

@ -1335,8 +1335,9 @@
* *
150 CONTINUE 150 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, IF( TRACE )
$ M, N, ALPHA, LDA, LDB) $ CALL DPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
$ M, N, ALPHA, LDA, LDB)
* *
160 CONTINUE 160 CONTINUE
RETURN RETURN

5
lapack-netlib/CBLAS/testing/c_sblat3.f
View File

@ -1339,8 +1339,9 @@
* *
150 CONTINUE 150 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, IF( TRACE )
$ M, N, ALPHA, LDA, LDB) $ CALL SPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
$ M, N, ALPHA, LDA, LDB)
* *
160 CONTINUE 160 CONTINUE
RETURN RETURN

10
lapack-netlib/CBLAS/testing/c_zblat2.f
View File

@ -1350,7 +1350,7 @@
* *
* Call the subroutine. * Call the subroutine.
* *
IF( SNAME( 4: 5 ).EQ.'mv' )THEN IF( SNAME( 10: 11 ).EQ.'mv' )THEN
IF( FULL )THEN IF( FULL )THEN
IF( TRACE ) IF( TRACE )
$ WRITE( NTRA, FMT = 9993 )NC, SNAME, $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
@ -1376,7 +1376,7 @@
CALL CZTPMV( IORDER, UPLO, TRANS, DIAG, CALL CZTPMV( IORDER, UPLO, TRANS, DIAG,
$ N, AA, XX, INCX ) $ N, AA, XX, INCX )
END IF END IF
ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
IF( FULL )THEN IF( FULL )THEN
IF( TRACE ) IF( TRACE )
$ WRITE( NTRA, FMT = 9993 )NC, SNAME, $ WRITE( NTRA, FMT = 9993 )NC, SNAME,
@ -1465,7 +1465,7 @@
END IF END IF
* *
IF( .NOT.NULL )THEN IF( .NOT.NULL )THEN
IF( SNAME( 4: 5 ).EQ.'mv' )THEN IF( SNAME( 10: 11 ).EQ.'mv' )THEN
* *
* Check the result. * Check the result.
* *
@ -1473,7 +1473,7 @@
$ INCX, ZERO, Z, INCX, XT, G, $ INCX, ZERO, Z, INCX, XT, G,
$ XX, EPS, ERR, FATAL, NOUT, $ XX, EPS, ERR, FATAL, NOUT,
$ .TRUE. ) $ .TRUE. )
ELSE IF( SNAME( 4: 5 ).EQ.'sv' )THEN ELSE IF( SNAME( 10: 11 ).EQ.'sv' )THEN
* *
* Compute approximation to original vector. * Compute approximation to original vector.
* *
@ -1611,7 +1611,7 @@
* .. Common blocks .. * .. Common blocks ..
COMMON /INFOC/INFOT, NOUTC, OK COMMON /INFOC/INFOT, NOUTC, OK
* .. Executable Statements .. * .. Executable Statements ..
CONJ = SNAME( 5: 5 ).EQ.'c' CONJ = SNAME( 11: 11 ).EQ.'c'
* Define the number of arguments. * Define the number of arguments.
NARGS = 9 NARGS = 9
* *

5
lapack-netlib/CBLAS/testing/c_zblat3.f
View File

@ -1366,8 +1366,9 @@
* *
150 CONTINUE 150 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG, IF( TRACE )
$ M, N, ALPHA, LDA, LDB) $ CALL ZPRCN3( NTRA, NC, SNAME, IORDER, SIDE, UPLO, TRANSA, DIAG,
$ M, N, ALPHA, LDA, LDB)
* *
160 CONTINUE 160 CONTINUE
RETURN RETURN