From 8bcbf5d7cae9a161bc15202c54808ce184c58e3d Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Thu, 23 Apr 2026 18:00:17 +0200 Subject: [PATCH 01/39] Remove type specifiers of intrinsic function ETIME, since it has no effect (flang warning) --- INSTALL/dsecnd_INT_ETIME.f | 1 - INSTALL/second_INT_ETIME.f | 1 - 2 files changed, 2 deletions(-) diff --git a/INSTALL/dsecnd_INT_ETIME.f b/INSTALL/dsecnd_INT_ETIME.f index ff1b309fc..759df7b56 100644 --- a/INSTALL/dsecnd_INT_ETIME.f +++ b/INSTALL/dsecnd_INT_ETIME.f @@ -47,7 +47,6 @@ DOUBLE PRECISION FUNCTION DSECND( ) REAL TARRAY( 2 ) * .. * .. Intrinsic Functions .. - REAL ETIME INTRINSIC ETIME * .. * .. Executable Statements .. diff --git a/INSTALL/second_INT_ETIME.f b/INSTALL/second_INT_ETIME.f index a20199dd6..67b94bf5c 100644 --- a/INSTALL/second_INT_ETIME.f +++ b/INSTALL/second_INT_ETIME.f @@ -47,7 +47,6 @@ REAL FUNCTION SECOND( ) REAL TARRAY( 2 ) * .. * .. Intrinsic Functions .. - REAL ETIME INTRINSIC ETIME * .. * .. Executable Statements .. From c59b28a9d15d455c818a2a63dc2203bcf644f158 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Thu, 23 Apr 2026 19:24:20 +0200 Subject: [PATCH 02/39] Fixed all lines that were longer than 72 characters. That caused the Intel Classic compiler to fail on Windows --- CBLAS/testing/c_dblat1.f | 2 +- CBLAS/testing/c_dblat2.f | 3 ++- CBLAS/testing/c_sblat1.f | 2 +- CBLAS/testing/c_sblat2.f | 3 ++- CBLAS/testing/c_zblat1.f | 2 +- TESTING/EIG/zchkhs.f | 4 ++-- TESTING/LIN/dchkaa.F | 4 ++-- TESTING/LIN/schkaa.F | 4 ++-- 8 files changed, 13 insertions(+), 11 deletions(-) diff --git a/CBLAS/testing/c_dblat1.f b/CBLAS/testing/c_dblat1.f index c27293920..046dd902e 100644 --- a/CBLAS/testing/c_dblat1.f +++ b/CBLAS/testing/c_dblat1.f @@ -273,7 +273,7 @@ SUBROUTINE CHECK2(SFAC) EXTERNAL DDOTTEST DOUBLE PRECISION DDOTTEST * .. External Subroutines .. - EXTERNAL DAXPYTEST, DCOPYTEST, DSWAPTEST, STEST, STEST1 + EXTERNAL DAXPYTEST, DCOPYTEST, DSWAPTEST, STEST, STEST1, + DAXPBYTEST * .. Intrinsic Functions .. INTRINSIC ABS, MIN diff --git a/CBLAS/testing/c_dblat2.f b/CBLAS/testing/c_dblat2.f index 757d1cc9c..dbe8599f5 100644 --- a/CBLAS/testing/c_dblat2.f +++ b/CBLAS/testing/c_dblat2.f @@ -881,7 +881,8 @@ SUBROUTINE DCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, LOGICAL LDE, LDERES EXTERNAL LDE, LDERES * .. External Subroutines .. - EXTERNAL DMAKE, DMVCH, CDSBMV, CDSPMV, CDSYMV, CDSKEWSYMV + EXTERNAL DMAKE, DMVCH, CDSBMV, CDSPMV, CDSYMV, + $ CDSKEWSYMV * .. Intrinsic Functions .. INTRINSIC ABS, MAX * .. Scalars in Common .. diff --git a/CBLAS/testing/c_sblat1.f b/CBLAS/testing/c_sblat1.f index 44e24e5d0..895ccd1e6 100644 --- a/CBLAS/testing/c_sblat1.f +++ b/CBLAS/testing/c_sblat1.f @@ -272,7 +272,7 @@ SUBROUTINE CHECK2(SFAC) REAL SDOTTEST EXTERNAL SDOTTEST * .. External Subroutines .. - EXTERNAL SAXPYTEST, SCOPYTEST, SSWAPTEST, STEST, STEST1 + EXTERNAL SAXPYTEST, SCOPYTEST, SSWAPTEST, STEST, STEST1, + SAXPBYTEST * .. Intrinsic Functions .. INTRINSIC ABS, MIN diff --git a/CBLAS/testing/c_sblat2.f b/CBLAS/testing/c_sblat2.f index 5e268895f..bf8d732bd 100644 --- a/CBLAS/testing/c_sblat2.f +++ b/CBLAS/testing/c_sblat2.f @@ -881,7 +881,8 @@ SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, LOGICAL LSE, LSERES EXTERNAL LSE, LSERES * .. External Subroutines .. - EXTERNAL SMAKE, SMVCH, CSSBMV, CSSPMV, CSSYMV, CSSKEWSYMV + EXTERNAL SMAKE, SMVCH, CSSBMV, CSSPMV, CSSYMV, + $ CSSKEWSYMV * .. Intrinsic Functions .. INTRINSIC ABS, MAX * .. Scalars in Common .. diff --git a/CBLAS/testing/c_zblat1.f b/CBLAS/testing/c_zblat1.f index 6454dba17..3a58615d7 100644 --- a/CBLAS/testing/c_zblat1.f +++ b/CBLAS/testing/c_zblat1.f @@ -308,7 +308,7 @@ SUBROUTINE CHECK2(SFAC) * .. External Functions .. EXTERNAL ZDOTCTEST, ZDOTUTEST * .. External Subroutines .. - EXTERNAL ZAXPYTEST, ZCOPYTEST, ZSWAPTEST, CTEST + EXTERNAL ZAXPYTEST, ZCOPYTEST, ZSWAPTEST, CTEST, + ZAXPBYTEST * .. Intrinsic Functions .. INTRINSIC ABS, MIN diff --git a/TESTING/EIG/zchkhs.f b/TESTING/EIG/zchkhs.f index 310f72a33..9975055c8 100644 --- a/TESTING/EIG/zchkhs.f +++ b/TESTING/EIG/zchkhs.f @@ -473,8 +473,8 @@ SUBROUTINE ZCHKHS( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. External Subroutines .. EXTERNAL DLAFTS, DLASUM, XERBLA, ZCOPY, ZGEHRD, ZGEMM, $ ZGET10, ZGET22, ZHSEIN, ZHSEQR, ZHST01, ZLACPY, - $ ZLASET, ZLATME, ZLATMR, ZLATMS, ZTREVC, ZTREVC3, - $ ZUNGHR, ZUNMHR + $ ZLASET, ZLATME, ZLATMR, ZLATMS, ZTREVC, + $ ZTREVC3, ZUNGHR, ZUNMHR * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, MAX, MIN, SQRT diff --git a/TESTING/LIN/dchkaa.F b/TESTING/LIN/dchkaa.F index 91ed65966..ce514d0f3 100644 --- a/TESTING/LIN/dchkaa.F +++ b/TESTING/LIN/dchkaa.F @@ -170,8 +170,8 @@ PROGRAM DCHKAA $ DCHKSY_AA, DCHKTB, DCHKTP, DCHKTR, DCHKTZ, $ DDRVGB, DDRVGE, DDRVGT, DDRVLS, DDRVPB, DDRVPO, $ DDRVPP, DDRVPT, DDRVSP, DDRVSY, DDRVSY_ROOK, - $ DDRVSY_RK, DDRVSY_AA, ILAVER, DCHKLQTP, DCHKQRT, - $ DCHKQRTP, DCHKLQT,DCHKTSQR + $ DDRVSY_RK, DDRVSY_AA, ILAVER, DCHKLQTP, + $ DCHKQRT, DCHKQRTP, DCHKLQT,DCHKTSQR * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schkaa.F b/TESTING/LIN/schkaa.F index ad6ea8776..20e5e52b4 100644 --- a/TESTING/LIN/schkaa.F +++ b/TESTING/LIN/schkaa.F @@ -168,8 +168,8 @@ PROGRAM SCHKAA $ SCHKSY_AA, SCHKTB, SCHKTP, SCHKTR, SCHKTZ, $ SDRVGB, SDRVGE, SDRVGT, SDRVLS, SDRVPB, SDRVPO, $ SDRVPP, SDRVPT, SDRVSP, SDRVSY, SDRVSY_ROOK, - $ SDRVSY_RK, SDRVSY_AA, ILAVER, SCHKLQTP, SCHKQRT, - $ SCHKQRTP, SCHKLQT, SCHKTSQR + $ SDRVSY_RK, SDRVSY_AA, ILAVER, SCHKLQTP, + $ SCHKQRT, SCHKQRTP, SCHKLQT, SCHKTSQR * .. * .. Scalars in Common .. LOGICAL LERR, OK From 8d8df5647191b7f374b594d69e7815a559247467 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Thu, 23 Apr 2026 20:16:36 +0200 Subject: [PATCH 03/39] Remove unnessesary blas lib from LAPACKE examples (caused warning from macOS linker) --- LAPACKE/example/CMakeLists.txt | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/LAPACKE/example/CMakeLists.txt b/LAPACKE/example/CMakeLists.txt index 509ee4ede..3c9f5c92f 100644 --- a/LAPACKE/example/CMakeLists.txt +++ b/LAPACKE/example/CMakeLists.txt @@ -3,10 +3,10 @@ add_executable(xexample_DGESV_colmajor example_DGESV_colmajor.c lapacke_example_ add_executable(xexample_DGELS_rowmajor example_DGELS_rowmajor.c lapacke_example_aux.c lapacke_example_aux.h) add_executable(xexample_DGELS_colmajor example_DGELS_colmajor.c lapacke_example_aux.c lapacke_example_aux.h) -target_link_libraries(xexample_DGESV_rowmajor ${LAPACKELIB} ${BLAS_LIBRARIES}) -target_link_libraries(xexample_DGESV_colmajor ${LAPACKELIB} ${BLAS_LIBRARIES}) -target_link_libraries(xexample_DGELS_rowmajor ${LAPACKELIB} ${BLAS_LIBRARIES}) -target_link_libraries(xexample_DGELS_colmajor ${LAPACKELIB} ${BLAS_LIBRARIES}) +target_link_libraries(xexample_DGESV_rowmajor ${LAPACKELIB}) +target_link_libraries(xexample_DGESV_colmajor ${LAPACKELIB}) +target_link_libraries(xexample_DGELS_rowmajor ${LAPACKELIB}) +target_link_libraries(xexample_DGELS_colmajor ${LAPACKELIB}) add_test(example_DGESV_rowmajor ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample_DGESV_rowmajor) add_test(example_DGESV_colmajor ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample_DGESV_colmajor) @@ -19,10 +19,10 @@ if(BUILD_INDEX64_EXT_API) add_executable(xexample_DGELS_rowmajor_64 example_DGELS_rowmajor_64.c lapacke_example_aux.c lapacke_example_aux.h) add_executable(xexample_DGELS_colmajor_64 example_DGELS_colmajor_64.c lapacke_example_aux.c lapacke_example_aux.h) - target_link_libraries(xexample_DGESV_rowmajor_64 ${LAPACKELIB} ${BLAS_LIBRARIES}) - target_link_libraries(xexample_DGESV_colmajor_64 ${LAPACKELIB} ${BLAS_LIBRARIES}) - target_link_libraries(xexample_DGELS_rowmajor_64 ${LAPACKELIB} ${BLAS_LIBRARIES}) - target_link_libraries(xexample_DGELS_colmajor_64 ${LAPACKELIB} ${BLAS_LIBRARIES}) + target_link_libraries(xexample_DGESV_rowmajor_64 ${LAPACKELIB}) + target_link_libraries(xexample_DGESV_colmajor_64 ${LAPACKELIB}) + target_link_libraries(xexample_DGELS_rowmajor_64 ${LAPACKELIB}) + target_link_libraries(xexample_DGELS_colmajor_64 ${LAPACKELIB}) add_test(example_DGESV_rowmajor_64 ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample_DGESV_rowmajor_64) add_test(example_DGESV_colmajor_64 ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample_DGESV_colmajor_64) From 1bc5d3a9ec39de0a3a423e6792e8243b93635bda Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Thu, 23 Apr 2026 20:32:07 +0200 Subject: [PATCH 04/39] Added fp-model=strict for Intel on Windows; disabled deprecation warnings for Intel Classic compilers --- CMAKE/CheckLAPACKCompilerFlags.cmake | 41 ++++++++++++++++++++++++++-- 1 file changed, 39 insertions(+), 2 deletions(-) diff --git a/CMAKE/CheckLAPACKCompilerFlags.cmake b/CMAKE/CheckLAPACKCompilerFlags.cmake index fe17a6c1e..aa09c1a2d 100644 --- a/CMAKE/CheckLAPACKCompilerFlags.cmake +++ b/CMAKE/CheckLAPACKCompilerFlags.cmake @@ -81,8 +81,24 @@ macro(CheckLAPACKCompilerFlags) set(FPE_EXIT_FLAG "[-/]fpe(-all=|)0") add_compile_options("$<$:-recursive>") - if(UNIX) - add_compile_options("$<$:SHELL:-fp-model strict>") + if(WIN32) + add_compile_options("$<$:/fp:strict>") + else() + add_compile_options("$<$:-fp-model=strict>") + endif() + + # disable: The Intel(R) Fortran Compiler Classic (ifort) is deprecated + if(CMAKE_Fortran_COMPILER_ID STREQUAL "Intel") + if(WIN32) + add_compile_options("$<$:/Qdiag-disable:10448>") + add_link_options("$<$:/Qdiag-disable:10448>") + + # Bad preprocessor line bogus warning + add_compile_options("$<$:/Qdiag-disable:5117>") + else() + add_compile_options("$<$:-diag-disable:10448>") + add_link_options("$<$:-diag-disable:10448>") + endif() endif() # SunPro F95 @@ -201,12 +217,33 @@ macro(CheckLAPACKCompilerFlags) endif() endif() + + else() message(WARNING "Fortran local arrays should be allocated on the stack." " Please use a compiler which guarantees that feature." " See https://github.com/Reference-LAPACK/lapack/pull/188 and references therein.") endif() + if(CMAKE_C_COMPILER_ID MATCHES "Intel") + if(WIN32) + add_compile_options("$<$:/fp:strict>") + else() + add_compile_options("$<$:-fp-model=strict>") + endif() + + # disable: The Intel(R) C++ Compiler Classic (ICC) is deprecated + if(CMAKE_C_COMPILER_ID STREQUAL "Intel") + if(WIN32) + add_compile_options("$<$:/Qdiag-disable:10441>") + add_link_options("$<$:/Qdiag-disable:10441>") + else() + add_compile_options("$<$:-diag-disable:10441>") + add_link_options("$<$:-diag-disable:10441>") + endif() + endif() + endif() + if("${CMAKE_Fortran_FLAGS_RELEASE}" MATCHES "O[3-9]") message(STATUS "Reducing RELEASE optimization level to O2") string(REGEX REPLACE "O[3-9]" "O2" CMAKE_Fortran_FLAGS_RELEASE From 2328018b6abde92937ca2fd175b5ecee6c2cfa8b Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Thu, 23 Apr 2026 20:32:44 +0200 Subject: [PATCH 05/39] Set C standard explicitly to C99 (needed by Intel classic compiler to support _Complex) --- CMakeLists.txt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/CMakeLists.txt b/CMakeLists.txt index 9570fe912..3cd20495d 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -10,6 +10,8 @@ set( ${LAPACK_MAJOR_VERSION}.${LAPACK_MINOR_VERSION}.${LAPACK_PATCH_VERSION} ) +set(CMAKE_C_STANDARD 99) + # Allow setting a prefix for the library names set(CMAKE_STATIC_LIBRARY_PREFIX "lib${LIBRARY_PREFIX}") set(CMAKE_SHARED_LIBRARY_PREFIX "lib${LIBRARY_PREFIX}") From 3afa8276ef871abd4c56b4021f2b6f4752d24a74 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Thu, 23 Apr 2026 01:36:22 +0200 Subject: [PATCH 06/39] Fix export & import of global CBLAS symbols for shared Windows builds --- CBLAS/include/cblas_globals.h | 19 +++++++ CBLAS/include/cblas_test.h | 1 + CBLAS/src/CMakeLists.txt | 3 + CBLAS/src/cblas_globals.c | 6 +- CBLAS/testing/CMakeLists.txt | 102 ++++++++++++---------------------- CBLAS/testing/c_c2chke.c | 1 - CBLAS/testing/c_c3chke.c | 1 - CBLAS/testing/c_d2chke.c | 1 - CBLAS/testing/c_d3chke.c | 1 - CBLAS/testing/c_s2chke.c | 1 - CBLAS/testing/c_s3chke.c | 1 - CBLAS/testing/c_xerbla.c | 1 - CBLAS/testing/c_z2chke.c | 1 - CBLAS/testing/c_z3chke.c | 1 - 14 files changed, 64 insertions(+), 76 deletions(-) create mode 100644 CBLAS/include/cblas_globals.h diff --git a/CBLAS/include/cblas_globals.h b/CBLAS/include/cblas_globals.h new file mode 100644 index 000000000..43dfbceaa --- /dev/null +++ b/CBLAS/include/cblas_globals.h @@ -0,0 +1,19 @@ +#ifndef CBLAS_GLOBALS_H +#define CBLAS_GLOBALS_H + +#if defined(_WIN32) + #if defined(CBLAS_DLL_EXPORTS) + #define CBLAS_GLOBAL_SYMBOL __declspec(dllexport) + #elif defined(CBLAS_DLL_IMPORTS) + #define CBLAS_GLOBAL_SYMBOL __declspec(dllimport) + #else + #define CBLAS_GLOBAL_SYMBOL + #endif +#else + #define CBLAS_GLOBAL_SYMBOL +#endif + +extern CBLAS_GLOBAL_SYMBOL int CBLAS_CallFromC; +extern CBLAS_GLOBAL_SYMBOL int RowMajorStrg; + +#endif diff --git a/CBLAS/include/cblas_test.h b/CBLAS/include/cblas_test.h index 782e1ac21..13c4e5115 100644 --- a/CBLAS/include/cblas_test.h +++ b/CBLAS/include/cblas_test.h @@ -5,6 +5,7 @@ #ifndef CBLAS_TEST_H #define CBLAS_TEST_H #include "cblas.h" +#include "cblas_globals.h" #include "cblas_mangling.h" /* It seems all current Fortran compilers put strlen at end. diff --git a/CBLAS/src/CMakeLists.txt b/CBLAS/src/CMakeLists.txt index b90aed116..72039e31c 100644 --- a/CBLAS/src/CMakeLists.txt +++ b/CBLAS/src/CMakeLists.txt @@ -119,6 +119,9 @@ list(REMOVE_DUPLICATES SOURCES) add_library(${CBLASLIB}_obj OBJECT ${SOURCES}) set_target_properties(${CBLASLIB}_obj PROPERTIES POSITION_INDEPENDENT_CODE ON) +if(WIN32 AND BUILD_SHARED_LIBS) + target_compile_definitions(${CBLASLIB}_obj PRIVATE CBLAS_DLL_EXPORTS) +endif() if(HAS_ATTRIBUTE_WEAK_SUPPORT) target_compile_definitions(${CBLASLIB}_obj PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) endif() diff --git a/CBLAS/src/cblas_globals.c b/CBLAS/src/cblas_globals.c index 5d91a18c9..1830257be 100644 --- a/CBLAS/src/cblas_globals.c +++ b/CBLAS/src/cblas_globals.c @@ -1,2 +1,4 @@ - int CBLAS_CallFromC=0; - int RowMajorStrg=0; +#include "cblas_globals.h" + +CBLAS_GLOBAL_SYMBOL int CBLAS_CallFromC = 0; +CBLAS_GLOBAL_SYMBOL int RowMajorStrg = 0; diff --git a/CBLAS/testing/CMakeLists.txt b/CBLAS/testing/CMakeLists.txt index db53c30fe..79d1d2354 100644 --- a/CBLAS/testing/CMakeLists.txt +++ b/CBLAS/testing/CMakeLists.txt @@ -26,43 +26,45 @@ macro(add_cblas_test output input target) endif() endmacro() +macro(configure_cblas_test_target target test_sources) + add_executable(${target} ${test_sources}) + + if(HAS_ATTRIBUTE_WEAK_SUPPORT) + target_compile_definitions(${target} PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) + endif() + + if(WIN32 AND BUILD_SHARED_LIBS) + target_compile_definitions(${target} PRIVATE CBLAS_DLL_IMPORTS) + endif() + + target_link_libraries(${target} PRIVATE ${CBLASLIB}) + target_include_directories(${target} PRIVATE ${LAPACK_BINARY_DIR}/test_include) +endmacro() # Object files for single precision real -set(STESTL1O c_sblas1.c) -set(STESTL2O c_sblas2.c c_s2chke.c auxiliary.c c_xerbla.c) -set(STESTL3O c_sblas3.c c_s3chke.c auxiliary.c c_xerbla.c) +set(STESTL1O c_sblat1.f c_sblas1.c) +set(STESTL2O c_sblat2.f c_sblas2.c c_s2chke.c auxiliary.c c_xerbla.c) +set(STESTL3O c_sblat3.f c_sblas3.c c_s3chke.c auxiliary.c c_xerbla.c) # Object files for double precision real -set(DTESTL1O c_dblas1.c) -set(DTESTL2O c_dblas2.c c_d2chke.c auxiliary.c c_xerbla.c) -set(DTESTL3O c_dblas3.c c_d3chke.c auxiliary.c c_xerbla.c) +set(DTESTL1O c_dblat1.f c_dblas1.c) +set(DTESTL2O c_dblat2.f c_dblas2.c c_d2chke.c auxiliary.c c_xerbla.c) +set(DTESTL3O c_dblat3.f c_dblas3.c c_d3chke.c auxiliary.c c_xerbla.c) # Object files for single precision complex set(CTESTL1O c_cblat1.f c_cblas1.c) -set(CTESTL2O c_cblas2.c c_c2chke.c auxiliary.c c_xerbla.c) -set(CTESTL3O c_cblas3.c c_c3chke.c auxiliary.c c_xerbla.c) +set(CTESTL2O c_cblat2.f c_cblas2.c c_c2chke.c auxiliary.c c_xerbla.c) +set(CTESTL3O c_cblat3.f c_cblas3.c c_c3chke.c auxiliary.c c_xerbla.c) # Object files for double precision complex -set(ZTESTL1O c_zblas1.c) -set(ZTESTL2O c_zblas2.c c_z2chke.c auxiliary.c c_xerbla.c) -set(ZTESTL3O c_zblas3.c c_z3chke.c auxiliary.c c_xerbla.c) - - +set(ZTESTL1O c_zblat1.f c_zblas1.c) +set(ZTESTL2O c_zblat2.f c_zblas2.c c_z2chke.c auxiliary.c c_xerbla.c) +set(ZTESTL3O c_zblat3.f c_zblas3.c c_z3chke.c auxiliary.c c_xerbla.c) if(BUILD_SINGLE) - add_executable(xscblat1 c_sblat1.f ${STESTL1O} ${LAPACK_BINARY_DIR}/test_include/cblas_test.h) - add_executable(xscblat2 c_sblat2.f ${STESTL2O} ${LAPACK_BINARY_DIR}/test_include/cblas_test.h) - add_executable(xscblat3 c_sblat3.f ${STESTL3O} ${LAPACK_BINARY_DIR}/test_include/cblas_test.h) - - if(HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(xscblat1 PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(xscblat2 PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(xscblat3 PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) - endif() - - target_link_libraries(xscblat1 ${CBLASLIB}) - target_link_libraries(xscblat2 ${CBLASLIB}) - target_link_libraries(xscblat3 ${CBLASLIB}) + configure_cblas_test_target(xscblat1 "${STESTL1O}") + configure_cblas_test_target(xscblat2 "${STESTL2O}") + configure_cblas_test_target(xscblat3 "${STESTL3O}") add_cblas_test(stest1.out "" xscblat1) add_cblas_test(stest2.out sin2 xscblat2) @@ -70,19 +72,9 @@ if(BUILD_SINGLE) endif() if(BUILD_DOUBLE) - add_executable(xdcblat1 c_dblat1.f ${DTESTL1O} ${LAPACK_BINARY_DIR}/test_include/cblas_test.h) - add_executable(xdcblat2 c_dblat2.f ${DTESTL2O} ${LAPACK_BINARY_DIR}/test_include/cblas_test.h) - add_executable(xdcblat3 c_dblat3.f ${DTESTL3O} ${LAPACK_BINARY_DIR}/test_include/cblas_test.h) - - if(HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(xdcblat1 PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(xdcblat2 PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(xdcblat3 PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) - endif() - - target_link_libraries(xdcblat1 ${CBLASLIB}) - target_link_libraries(xdcblat2 ${CBLASLIB}) - target_link_libraries(xdcblat3 ${CBLASLIB}) + configure_cblas_test_target(xdcblat1 "${DTESTL1O}") + configure_cblas_test_target(xdcblat2 "${DTESTL2O}") + configure_cblas_test_target(xdcblat3 "${DTESTL3O}") add_cblas_test(dtest1.out "" xdcblat1) add_cblas_test(dtest2.out din2 xdcblat2) @@ -90,19 +82,9 @@ if(BUILD_DOUBLE) endif() if(BUILD_COMPLEX) - add_executable(xccblat1 c_cblat1.f ${CTESTL1O} ${LAPACK_BINARY_DIR}/test_include/cblas_test.h) - add_executable(xccblat2 c_cblat2.f ${CTESTL2O} ${LAPACK_BINARY_DIR}/test_include/cblas_test.h) - add_executable(xccblat3 c_cblat3.f ${CTESTL3O} ${LAPACK_BINARY_DIR}/test_include/cblas_test.h) - - if(HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(xccblat1 PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(xccblat2 PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(xccblat3 PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) - endif() - - target_link_libraries(xccblat1 ${CBLASLIB} ${BLAS_LIBRARIES}) - target_link_libraries(xccblat2 ${CBLASLIB}) - target_link_libraries(xccblat3 ${CBLASLIB}) + configure_cblas_test_target(xccblat1 "${CTESTL1O}") + configure_cblas_test_target(xccblat2 "${CTESTL2O}") + configure_cblas_test_target(xccblat3 "${CTESTL3O}") add_cblas_test(ctest1.out "" xccblat1) add_cblas_test(ctest2.out cin2 xccblat2) @@ -110,19 +92,9 @@ if(BUILD_COMPLEX) endif() if(BUILD_COMPLEX16) - add_executable(xzcblat1 c_zblat1.f ${ZTESTL1O} ${LAPACK_BINARY_DIR}/test_include/cblas_test.h) - add_executable(xzcblat2 c_zblat2.f ${ZTESTL2O} ${LAPACK_BINARY_DIR}/test_include/cblas_test.h) - add_executable(xzcblat3 c_zblat3.f ${ZTESTL3O} ${LAPACK_BINARY_DIR}/test_include/cblas_test.h) - - if(HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(xzcblat1 PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(xzcblat2 PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(xzcblat3 PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) - endif() - - target_link_libraries(xzcblat1 ${CBLASLIB}) - target_link_libraries(xzcblat2 ${CBLASLIB}) - target_link_libraries(xzcblat3 ${CBLASLIB}) + configure_cblas_test_target(xzcblat1 "${ZTESTL1O}") + configure_cblas_test_target(xzcblat2 "${ZTESTL2O}") + configure_cblas_test_target(xzcblat3 "${ZTESTL3O}") add_cblas_test(ztest1.out "" xzcblat1) add_cblas_test(ztest2.out zin2 xzcblat2) diff --git a/CBLAS/testing/c_c2chke.c b/CBLAS/testing/c_c2chke.c index 09be46e4e..f4d66110a 100644 --- a/CBLAS/testing/c_c2chke.c +++ b/CBLAS/testing/c_c2chke.c @@ -41,7 +41,6 @@ void F77_c2chke(char *rout BETA[2] = {0.0,0.0}, RALPHA = 0.0; extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok; - extern int RowMajorStrg; extern char *cblas_rout; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT diff --git a/CBLAS/testing/c_c3chke.c b/CBLAS/testing/c_c3chke.c index 05109d4e0..1f0a57d7e 100644 --- a/CBLAS/testing/c_c3chke.c +++ b/CBLAS/testing/c_c3chke.c @@ -41,7 +41,6 @@ void F77_c3chke(char * rout BETA[2] = {0.0,0.0}, RALPHA = 0.0, RBETA = 0.0; extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok; - extern int RowMajorStrg; extern char *cblas_rout; cblas_ok = TRUE ; diff --git a/CBLAS/testing/c_d2chke.c b/CBLAS/testing/c_d2chke.c index 1ced3a649..b2f3cc8b2 100644 --- a/CBLAS/testing/c_d2chke.c +++ b/CBLAS/testing/c_d2chke.c @@ -39,7 +39,6 @@ void F77_d2chke(char *rout Y[2] = {0.0,0.0}, ALPHA=0.0, BETA=0.0; extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok; - extern int RowMajorStrg; extern char *cblas_rout; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT diff --git a/CBLAS/testing/c_d3chke.c b/CBLAS/testing/c_d3chke.c index 2bf062e53..2c41731f2 100644 --- a/CBLAS/testing/c_d3chke.c +++ b/CBLAS/testing/c_d3chke.c @@ -39,7 +39,6 @@ void F77_d3chke(char *rout C[2] = {0.0,0.0}, ALPHA=0.0, BETA=0.0; extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok; - extern int RowMajorStrg; extern char *cblas_rout; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT diff --git a/CBLAS/testing/c_s2chke.c b/CBLAS/testing/c_s2chke.c index 8a8550361..6f269b24e 100644 --- a/CBLAS/testing/c_s2chke.c +++ b/CBLAS/testing/c_s2chke.c @@ -39,7 +39,6 @@ void F77_s2chke(char *rout Y[2] = {0.0,0.0}, ALPHA=0.0, BETA=0.0; extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok; - extern int RowMajorStrg; extern char *cblas_rout; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT diff --git a/CBLAS/testing/c_s3chke.c b/CBLAS/testing/c_s3chke.c index 40c54fbf4..c87f86fb2 100644 --- a/CBLAS/testing/c_s3chke.c +++ b/CBLAS/testing/c_s3chke.c @@ -40,7 +40,6 @@ void F77_s3chke(char *rout C[2] = {0.0,0.0}, ALPHA=0.0, BETA=0.0; extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok; - extern int RowMajorStrg; extern char *cblas_rout; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT diff --git a/CBLAS/testing/c_xerbla.c b/CBLAS/testing/c_xerbla.c index 8a08f3ac8..058d02206 100644 --- a/CBLAS/testing/c_xerbla.c +++ b/CBLAS/testing/c_xerbla.c @@ -9,7 +9,6 @@ void cblas_xerbla(CBLAS_INT info, const char *rout, const char *form, ...) { extern CBLAS_INT cblas_lerr, cblas_info, cblas_ok; extern CBLAS_INT link_xerbla; - extern int RowMajorStrg; extern char *cblas_rout; /* Initially, c__3chke may call this routine with diff --git a/CBLAS/testing/c_z2chke.c b/CBLAS/testing/c_z2chke.c index f86c483c2..06fe043f6 100644 --- a/CBLAS/testing/c_z2chke.c +++ b/CBLAS/testing/c_z2chke.c @@ -41,7 +41,6 @@ void F77_z2chke(char *rout BETA[2] = {0.0,0.0}, RALPHA = 0.0; extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok; - extern int RowMajorStrg; extern char *cblas_rout; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT diff --git a/CBLAS/testing/c_z3chke.c b/CBLAS/testing/c_z3chke.c index 44febcaff..2eb79daf9 100644 --- a/CBLAS/testing/c_z3chke.c +++ b/CBLAS/testing/c_z3chke.c @@ -41,7 +41,6 @@ void F77_z3chke(char *rout BETA[2] = {0.0,0.0}, RALPHA = 0.0, RBETA = 0.0; extern CBLAS_INT cblas_info, cblas_lerr, cblas_ok; - extern int RowMajorStrg; extern char *cblas_rout; cblas_ok = TRUE ; From cd40e85a40024d7e51d30bbf398546c343dc76e1 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Thu, 23 Apr 2026 16:29:51 +0200 Subject: [PATCH 07/39] Remove unnecessary test_inlude directory in the build folder --- CBLAS/include/CMakeLists.txt | 2 -- CBLAS/testing/CMakeLists.txt | 1 - 2 files changed, 3 deletions(-) diff --git a/CBLAS/include/CMakeLists.txt b/CBLAS/include/CMakeLists.txt index a922fb446..d7aee02a4 100644 --- a/CBLAS/include/CMakeLists.txt +++ b/CBLAS/include/CMakeLists.txt @@ -17,8 +17,6 @@ if(CBLAS) install(FILES ${CBLAS_INCLUDE} DESTINATION ${CMAKE_INSTALL_INCLUDEDIR} COMPONENT Development) - - file(COPY cblas_test.h DESTINATION ${LAPACK_BINARY_DIR}/test_include) endif() # Create a header file for CBLAS routine mangling (cblas_mangling.h) diff --git a/CBLAS/testing/CMakeLists.txt b/CBLAS/testing/CMakeLists.txt index 79d1d2354..ab41d8db2 100644 --- a/CBLAS/testing/CMakeLists.txt +++ b/CBLAS/testing/CMakeLists.txt @@ -38,7 +38,6 @@ macro(configure_cblas_test_target target test_sources) endif() target_link_libraries(${target} PRIVATE ${CBLASLIB}) - target_include_directories(${target} PRIVATE ${LAPACK_BINARY_DIR}/test_include) endmacro() # Object files for single precision real From 1092f35f41bb79077dbc83176416bea799eba732 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Thu, 23 Apr 2026 16:31:29 +0200 Subject: [PATCH 08/39] Remove complex ?asum and ?nrm2 routines from real tests since they are already tested in the complex tests --- CBLAS/testing/c_dblas1.c | 10 ---------- CBLAS/testing/c_sblas1.c | 11 ----------- 2 files changed, 21 deletions(-) diff --git a/CBLAS/testing/c_dblas1.c b/CBLAS/testing/c_dblas1.c index ee120af59..bc4851012 100644 --- a/CBLAS/testing/c_dblas1.c +++ b/CBLAS/testing/c_dblas1.c @@ -74,16 +74,6 @@ void F77_dswap( const CBLAS_INT *N, double *X, const CBLAS_INT *incX, return; } -double F77_dzasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX) -{ - return cblas_dzasum(*N, X, *incX); -} - -double F77_dznrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX) -{ - return cblas_dznrm2(*N, X, *incX); -} - CBLAS_INT F77_idamax(const CBLAS_INT *N, const double *X, const CBLAS_INT *incX) { if (*N < 1 || *incX < 1) return(0); diff --git a/CBLAS/testing/c_sblas1.c b/CBLAS/testing/c_sblas1.c index 133944afb..fdbf3a114 100644 --- a/CBLAS/testing/c_sblas1.c +++ b/CBLAS/testing/c_sblas1.c @@ -27,17 +27,6 @@ void F77_saxpby(const CBLAS_INT *N, const float *alpha, const float *X, return; } - -float F77_scasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX) -{ - return cblas_scasum(*N, X, *incX); -} - -float F77_scnrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX) -{ - return cblas_scnrm2(*N, X, *incX); -} - void F77_scopy(const CBLAS_INT *N, const float *X, const CBLAS_INT *incX, float *Y, const CBLAS_INT *incY) { From 7cca0ea223848e2b72ceca5743b3333f5c29ee69 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Thu, 23 Apr 2026 16:32:39 +0200 Subject: [PATCH 09/39] Skip cblas xerbla tests for shared Windows builds, since weak symbols are not supported and the trick to load the test xerbla first doesn't work on Windows when using shared libraries. --- CBLAS/testing/c_c2chke.c | 7 +++++++ CBLAS/testing/c_c3chke.c | 7 +++++++ CBLAS/testing/c_d2chke.c | 7 +++++++ CBLAS/testing/c_d3chke.c | 7 +++++++ CBLAS/testing/c_s2chke.c | 7 +++++++ CBLAS/testing/c_s3chke.c | 7 +++++++ CBLAS/testing/c_z2chke.c | 7 +++++++ CBLAS/testing/c_z3chke.c | 7 +++++++ 8 files changed, 56 insertions(+) diff --git a/CBLAS/testing/c_c2chke.c b/CBLAS/testing/c_c2chke.c index f4d66110a..5a95acda9 100644 --- a/CBLAS/testing/c_c2chke.c +++ b/CBLAS/testing/c_c2chke.c @@ -44,6 +44,13 @@ void F77_c2chke(char *rout extern char *cblas_rout; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT + #ifdef CBLAS_DLL_IMPORTS + // Since Windows does not support weak symbols, and the trick below doesn't + // work for shared libraries on Windows, we skip the xerbla tests here. + printf("***** WARNING: Skipping xerbla tests since weak symbols are not supported on Windows *****\n"); + return; + #endif + if (link_xerbla) /* call these first to link */ { cblas_xerbla(cblas_info,cblas_rout,""); diff --git a/CBLAS/testing/c_c3chke.c b/CBLAS/testing/c_c3chke.c index 1f0a57d7e..4db5b691e 100644 --- a/CBLAS/testing/c_c3chke.c +++ b/CBLAS/testing/c_c3chke.c @@ -47,6 +47,13 @@ void F77_c3chke(char * rout cblas_lerr = PASSED ; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT + #ifdef CBLAS_DLL_IMPORTS + // Since Windows does not support weak symbols, and the trick below doesn't + // work for shared libraries on Windows, we skip the xerbla tests here. + printf("***** WARNING: Skipping xerbla tests since weak symbols are not supported on Windows *****\n"); + return; + #endif + if (link_xerbla) /* call these first to link */ { cblas_xerbla(cblas_info,cblas_rout,""); diff --git a/CBLAS/testing/c_d2chke.c b/CBLAS/testing/c_d2chke.c index b2f3cc8b2..a4ff18ea2 100644 --- a/CBLAS/testing/c_d2chke.c +++ b/CBLAS/testing/c_d2chke.c @@ -42,6 +42,13 @@ void F77_d2chke(char *rout extern char *cblas_rout; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT + #ifdef CBLAS_DLL_IMPORTS + // Since Windows does not support weak symbols, and the trick below doesn't + // work for shared libraries on Windows, we skip the xerbla tests here. + printf("***** WARNING: Skipping xerbla tests since weak symbols are not supported on Windows *****\n"); + return; + #endif + if (link_xerbla) /* call these first to link */ { cblas_xerbla(cblas_info,cblas_rout,""); diff --git a/CBLAS/testing/c_d3chke.c b/CBLAS/testing/c_d3chke.c index 2c41731f2..e8c119c2a 100644 --- a/CBLAS/testing/c_d3chke.c +++ b/CBLAS/testing/c_d3chke.c @@ -42,6 +42,13 @@ void F77_d3chke(char *rout extern char *cblas_rout; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT + #ifdef CBLAS_DLL_IMPORTS + // Since Windows does not support weak symbols, and the trick below doesn't + // work for shared libraries on Windows, we skip the xerbla tests here. + printf("***** WARNING: Skipping xerbla tests since weak symbols are not supported on Windows *****\n"); + return; + #endif + if (link_xerbla) /* call these first to link */ { cblas_xerbla(cblas_info,cblas_rout,""); diff --git a/CBLAS/testing/c_s2chke.c b/CBLAS/testing/c_s2chke.c index 6f269b24e..cf22db2cb 100644 --- a/CBLAS/testing/c_s2chke.c +++ b/CBLAS/testing/c_s2chke.c @@ -42,6 +42,13 @@ void F77_s2chke(char *rout extern char *cblas_rout; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT + #ifdef CBLAS_DLL_IMPORTS + // Since Windows does not support weak symbols, and the trick below doesn't + // work for shared libraries on Windows, we skip the xerbla tests here. + printf("***** WARNING: Skipping xerbla tests since weak symbols are not supported on Windows *****\n"); + return; + #endif + if (link_xerbla) /* call these first to link */ { cblas_xerbla(cblas_info,cblas_rout,""); diff --git a/CBLAS/testing/c_s3chke.c b/CBLAS/testing/c_s3chke.c index c87f86fb2..5ff05df3a 100644 --- a/CBLAS/testing/c_s3chke.c +++ b/CBLAS/testing/c_s3chke.c @@ -43,6 +43,13 @@ void F77_s3chke(char *rout extern char *cblas_rout; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT + #ifdef CBLAS_DLL_IMPORTS + // Since Windows does not support weak symbols, and the trick below doesn't + // work for shared libraries on Windows, we skip the xerbla tests here. + printf("***** WARNING: Skipping xerbla tests since weak symbols are not supported on Windows *****\n"); + return; + #endif + if (link_xerbla) /* call these first to link */ { cblas_xerbla(cblas_info,cblas_rout,""); diff --git a/CBLAS/testing/c_z2chke.c b/CBLAS/testing/c_z2chke.c index 06fe043f6..a54a219d2 100644 --- a/CBLAS/testing/c_z2chke.c +++ b/CBLAS/testing/c_z2chke.c @@ -44,6 +44,13 @@ void F77_z2chke(char *rout extern char *cblas_rout; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT + #ifdef CBLAS_DLL_IMPORTS + // Since Windows does not support weak symbols, and the trick below doesn't + // work for shared libraries on Windows, we skip the xerbla tests here. + printf("***** WARNING: Skipping xerbla tests since weak symbols are not supported on Windows *****\n"); + return; + #endif + if (link_xerbla) /* call these first to link */ { cblas_xerbla(cblas_info,cblas_rout,""); diff --git a/CBLAS/testing/c_z3chke.c b/CBLAS/testing/c_z3chke.c index 2eb79daf9..2e29e7d73 100644 --- a/CBLAS/testing/c_z3chke.c +++ b/CBLAS/testing/c_z3chke.c @@ -47,6 +47,13 @@ void F77_z3chke(char *rout cblas_lerr = PASSED ; #ifndef HAS_ATTRIBUTE_WEAK_SUPPORT + #ifdef CBLAS_DLL_IMPORTS + // Since Windows does not support weak symbols, and the trick below doesn't + // work for shared libraries on Windows, we skip the xerbla tests here. + printf("***** WARNING: Skipping xerbla tests since weak symbols are not supported on Windows *****\n"); + return; + #endif + if (link_xerbla) /* call these first to link */ { cblas_xerbla(cblas_info,cblas_rout,""); From 5a687f4922a4b7475ba809c2f9d43b342e52316e Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Thu, 23 Apr 2026 16:43:57 +0200 Subject: [PATCH 10/39] Remove the explicit __declspec(dllexport) since that is handles already by CMAKE_WINDOWS_EXPORT_ALL_SYMBOLS --- CBLAS/include/cblas_globals.h | 10 ++-------- CBLAS/src/CMakeLists.txt | 3 --- 2 files changed, 2 insertions(+), 11 deletions(-) diff --git a/CBLAS/include/cblas_globals.h b/CBLAS/include/cblas_globals.h index 43dfbceaa..819570a8d 100644 --- a/CBLAS/include/cblas_globals.h +++ b/CBLAS/include/cblas_globals.h @@ -1,14 +1,8 @@ #ifndef CBLAS_GLOBALS_H #define CBLAS_GLOBALS_H -#if defined(_WIN32) - #if defined(CBLAS_DLL_EXPORTS) - #define CBLAS_GLOBAL_SYMBOL __declspec(dllexport) - #elif defined(CBLAS_DLL_IMPORTS) - #define CBLAS_GLOBAL_SYMBOL __declspec(dllimport) - #else - #define CBLAS_GLOBAL_SYMBOL - #endif +#if defined(CBLAS_DLL_IMPORTS) + #define CBLAS_GLOBAL_SYMBOL __declspec(dllimport) #else #define CBLAS_GLOBAL_SYMBOL #endif diff --git a/CBLAS/src/CMakeLists.txt b/CBLAS/src/CMakeLists.txt index 72039e31c..b90aed116 100644 --- a/CBLAS/src/CMakeLists.txt +++ b/CBLAS/src/CMakeLists.txt @@ -119,9 +119,6 @@ list(REMOVE_DUPLICATES SOURCES) add_library(${CBLASLIB}_obj OBJECT ${SOURCES}) set_target_properties(${CBLASLIB}_obj PROPERTIES POSITION_INDEPENDENT_CODE ON) -if(WIN32 AND BUILD_SHARED_LIBS) - target_compile_definitions(${CBLASLIB}_obj PRIVATE CBLAS_DLL_EXPORTS) -endif() if(HAS_ATTRIBUTE_WEAK_SUPPORT) target_compile_definitions(${CBLASLIB}_obj PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) endif() From e18912f64760898e4c31878b94d87819d1d9ed09 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Fri, 24 Apr 2026 14:19:05 +0200 Subject: [PATCH 11/39] Use CMAKE_POSITION_INDEPENDENT_CODE instead of enabling PIC for each target individually --- BLAS/SRC/CMakeLists.txt | 3 --- CBLAS/src/CMakeLists.txt | 3 --- CMakeLists.txt | 5 ++++- LAPACKE/CMakeLists.txt | 4 ---- SRC/CMakeLists.txt | 4 ---- TESTING/MATGEN/CMakeLists.txt | 2 -- 6 files changed, 4 insertions(+), 17 deletions(-) diff --git a/BLAS/SRC/CMakeLists.txt b/BLAS/SRC/CMakeLists.txt index 501a3275f..d922da324 100644 --- a/BLAS/SRC/CMakeLists.txt +++ b/BLAS/SRC/CMakeLists.txt @@ -116,7 +116,6 @@ endif() list(REMOVE_DUPLICATES SOURCES) add_library(${BLASLIB}_obj OBJECT ${SOURCES}) -set_target_properties(${BLASLIB}_obj PROPERTIES POSITION_INDEPENDENT_CODE ON) if(BUILD_INDEX64_EXT_API) set(SOURCES_64_F) @@ -126,7 +125,6 @@ if(BUILD_INDEX64_EXT_API) file(GLOB SOURCES_64_F ${CMAKE_CURRENT_BINARY_DIR}/${BLASLIB}_64_obj/*.f*) add_library(${BLASLIB}_64_obj OBJECT ${SOURCES_64_F}) target_compile_options(${BLASLIB}_64_obj PRIVATE ${FOPT_ILP64}) - set_target_properties(${BLASLIB}_64_obj PROPERTIES POSITION_INDEPENDENT_CODE ON) #Add _64 suffix to all Fortran functions via macros foreach(F IN LISTS SOURCES_64_F) if(CMAKE_Fortran_COMPILER_ID STREQUAL "NAG" OR CMAKE_Fortran_COMPILER_ID MATCHES "Intel") @@ -164,7 +162,6 @@ set_target_properties( ${BLASLIB} PROPERTIES VERSION ${LAPACK_VERSION} SOVERSION ${LAPACK_MAJOR_VERSION} - POSITION_INDEPENDENT_CODE ON ) lapack_install_library(${BLASLIB}) diff --git a/CBLAS/src/CMakeLists.txt b/CBLAS/src/CMakeLists.txt index b90aed116..712eb4f29 100644 --- a/CBLAS/src/CMakeLists.txt +++ b/CBLAS/src/CMakeLists.txt @@ -118,7 +118,6 @@ endif() list(REMOVE_DUPLICATES SOURCES) add_library(${CBLASLIB}_obj OBJECT ${SOURCES}) -set_target_properties(${CBLASLIB}_obj PROPERTIES POSITION_INDEPENDENT_CODE ON) if(HAS_ATTRIBUTE_WEAK_SUPPORT) target_compile_definitions(${CBLASLIB}_obj PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) endif() @@ -141,7 +140,6 @@ if(BUILD_INDEX64_EXT_API) add_library(${CBLASLIB}_64_cobj OBJECT ${SOURCES_64_C}) add_library(${CBLASLIB}_64_fobj OBJECT ${SOURCES_64_F}) set_target_properties(${CBLASLIB}_64_cobj ${CBLASLIB}_64_fobj PROPERTIES - POSITION_INDEPENDENT_CODE ON Fortran_PREPROCESS ON LINKER_LANGUAGE C) target_compile_options(${CBLASLIB}_64_cobj PRIVATE -DWeirdNEC -DCBLAS_API64) @@ -173,7 +171,6 @@ set_target_properties( LINKER_LANGUAGE C VERSION ${LAPACK_VERSION} SOVERSION ${LAPACK_MAJOR_VERSION} - POSITION_INDEPENDENT_CODE ON ) target_include_directories(${CBLASLIB} PUBLIC diff --git a/CMakeLists.txt b/CMakeLists.txt index 3cd20495d..a041d5593 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -20,7 +20,10 @@ set(CMAKE_SHARED_LIBRARY_PREFIX "lib${LIBRARY_PREFIX}") set(CMAKE_MODULE_PATH "${LAPACK_SOURCE_DIR}/CMAKE" ${CMAKE_MODULE_PATH}) # Export all symbols on Windows when building shared libraries -SET(CMAKE_WINDOWS_EXPORT_ALL_SYMBOLS TRUE) +set(CMAKE_WINDOWS_EXPORT_ALL_SYMBOLS TRUE) + +# Enable position independent code for all targets by default +set(CMAKE_POSITION_INDEPENDENT_CODE TRUE) # Set a default build type if none was specified if(NOT CMAKE_BUILD_TYPE AND NOT CMAKE_CONFIGURATION_TYPES) diff --git a/LAPACKE/CMakeLists.txt b/LAPACKE/CMakeLists.txt index c339adffd..d6c98efcc 100644 --- a/LAPACKE/CMakeLists.txt +++ b/LAPACKE/CMakeLists.txt @@ -67,7 +67,6 @@ endif() list(APPEND SOURCES ${UTILS}) add_library(${LAPACKELIB}_obj OBJECT ${SOURCES}) -set_target_properties(${LAPACKELIB}_obj PROPERTIES POSITION_INDEPENDENT_CODE ON) if(BUILD_INDEX64_EXT_API) # 64bit Integer Extended Interface @@ -77,8 +76,6 @@ if(BUILD_INDEX64_EXT_API) list(REMOVE_ITEM SOURCES_64_C utils/lapacke_make_complex_float.c) list(REMOVE_ITEM SOURCES_64_C utils/lapacke_make_complex_double.c) add_library(${LAPACKELIB}_64_obj OBJECT ${SOURCES_64_C}) - set_target_properties(${LAPACKELIB}_64_obj PROPERTIES - POSITION_INDEPENDENT_CODE ON) target_compile_options(${LAPACKELIB}_64_obj PRIVATE -DLAPACK_ILP64 -DLAPACKE_API64 @@ -94,7 +91,6 @@ set_target_properties( LINKER_LANGUAGE C VERSION ${LAPACK_VERSION} SOVERSION ${LAPACK_MAJOR_VERSION} - POSITION_INDEPENDENT_CODE ON ) target_include_directories(${LAPACKELIB} PUBLIC $ diff --git a/SRC/CMakeLists.txt b/SRC/CMakeLists.txt index 33f2764d4..7cb87b0aa 100644 --- a/SRC/CMakeLists.txt +++ b/SRC/CMakeLists.txt @@ -524,14 +524,12 @@ list(REMOVE_DUPLICATES SOURCES) add_library(const_mod_file OBJECT ${CONSTMOD}) set_target_properties( const_mod_file PROPERTIES - POSITION_INDEPENDENT_CODE ON Fortran_PREPROCESS ON ) add_library(mod_files OBJECT ${NANMOD} $) set_target_properties( mod_files PROPERTIES - POSITION_INDEPENDENT_CODE ON Fortran_PREPROCESS ON ) @@ -539,7 +537,6 @@ add_library(${LAPACKLIB}_obj OBJECT ${SOURCES}) target_link_libraries(${LAPACKLIB}_obj mod_files) set_target_properties( ${LAPACKLIB}_obj PROPERTIES - POSITION_INDEPENDENT_CODE ON Fortran_PREPROCESS ON ) @@ -568,7 +565,6 @@ if(BUILD_INDEX64_EXT_API) target_compile_options(${LAPACKLIB}_64_obj PRIVATE ${FOPT_ILP64} -DLAPACK_64) set_target_properties( ${LAPACKLIB}_64_obj PROPERTIES - POSITION_INDEPENDENT_CODE ON Fortran_PREPROCESS ON ) endif() diff --git a/TESTING/MATGEN/CMakeLists.txt b/TESTING/MATGEN/CMakeLists.txt index 02e05a86d..37e487bc4 100644 --- a/TESTING/MATGEN/CMakeLists.txt +++ b/TESTING/MATGEN/CMakeLists.txt @@ -50,7 +50,6 @@ list(REMOVE_DUPLICATES SOURCES) add_library(${TMGLIB}_obj OBJECT ${SOURCES}) set_target_properties( ${TMGLIB}_obj PROPERTIES - POSITION_INDEPENDENT_CODE ON Fortran_PREPROCESS ON ) @@ -77,7 +76,6 @@ if(BUILD_INDEX64_EXT_API) target_compile_options(${TMGLIB}_64_obj PRIVATE "${FOPT_ILP64}" -DMATGEN_64) set_target_properties( ${TMGLIB}_64_obj PROPERTIES - POSITION_INDEPENDENT_CODE ON Fortran_PREPROCESS ON ) endif() From d620756357e1814fde4796b4cd1d2c24084b6cf1 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Fri, 24 Apr 2026 15:08:48 +0200 Subject: [PATCH 12/39] Bump required CMake version to 3.18 because we rely on Fortran_PREPROCESS --- CMakeLists.txt | 2 +- INSTALL/CMakeLists.txt | 2 +- LAPACKE/mangling/CMakeLists.txt | 2 +- TESTING/MATGEN/CMakeLists.txt | 1 - lapack_build.cmake | 2 +- 5 files changed, 4 insertions(+), 5 deletions(-) diff --git a/CMakeLists.txt b/CMakeLists.txt index a041d5593..defdb6b92 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -1,4 +1,4 @@ -cmake_minimum_required(VERSION 3.13) +cmake_minimum_required(VERSION 3.18) project(LAPACK C) diff --git a/INSTALL/CMakeLists.txt b/INSTALL/CMakeLists.txt index 5d34584ff..264ef602f 100644 --- a/INSTALL/CMakeLists.txt +++ b/INSTALL/CMakeLists.txt @@ -1,4 +1,4 @@ -cmake_minimum_required(VERSION 3.13) +cmake_minimum_required(VERSION 3.18) project(TIMING Fortran) # Add the CMake directory for custom CMake modules diff --git a/LAPACKE/mangling/CMakeLists.txt b/LAPACKE/mangling/CMakeLists.txt index a3e20ab79..5d2e46d92 100644 --- a/LAPACKE/mangling/CMakeLists.txt +++ b/LAPACKE/mangling/CMakeLists.txt @@ -1,4 +1,4 @@ -cmake_minimum_required(VERSION 3.13) +cmake_minimum_required(VERSION 3.18) project(MANGLING C Fortran) add_executable(xintface Fintface.f Cintface.c) diff --git a/TESTING/MATGEN/CMakeLists.txt b/TESTING/MATGEN/CMakeLists.txt index 37e487bc4..479afae27 100644 --- a/TESTING/MATGEN/CMakeLists.txt +++ b/TESTING/MATGEN/CMakeLists.txt @@ -60,7 +60,6 @@ if(BUILD_INDEX64_EXT_API) set(BUILD_INDEX64_EXT_API OFF) set(BUILD_INDEX64_EXT_API OFF PARENT_SCOPE) else() - cmake_minimum_required(VERSION 3.18) set(SOURCES_64) file(MAKE_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR}/${TMGLIB}_64_obj) file(COPY ${SOURCES} DESTINATION ${CMAKE_CURRENT_BINARY_DIR}/${TMGLIB}_64_obj) diff --git a/lapack_build.cmake b/lapack_build.cmake index 1460acaa2..628b3aa77 100644 --- a/lapack_build.cmake +++ b/lapack_build.cmake @@ -4,7 +4,7 @@ ## HINTS: ctest -Ddashboard_model=Nightly -S $(pwd)/lapack/lapack_build.cmake ## -cmake_minimum_required(VERSION 3.13) +cmake_minimum_required(VERSION 3.18) ################################################################### # The values in this section must always be provided ################################################################### From 76dee5d35764596fad8811eccd3cc691dfaf8f06 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Fri, 24 Apr 2026 18:13:22 +0200 Subject: [PATCH 13/39] Added CMake helper which generate a 64bit suffixed Fortran source from the original source file --- CMAKE/ExtendedAPIHelpers.cmake | 45 ++++++ CMAKE/Generate64BitSuffixedSource.cmake | 193 ++++++++++++++++++++++++ 2 files changed, 238 insertions(+) create mode 100644 CMAKE/ExtendedAPIHelpers.cmake create mode 100644 CMAKE/Generate64BitSuffixedSource.cmake diff --git a/CMAKE/ExtendedAPIHelpers.cmake b/CMAKE/ExtendedAPIHelpers.cmake new file mode 100644 index 000000000..8df1257e9 --- /dev/null +++ b/CMAKE/ExtendedAPIHelpers.cmake @@ -0,0 +1,45 @@ +include_guard(GLOBAL) + +set(EXTENDED_API_GENERATOR "${CMAKE_CURRENT_LIST_DIR}/Generate64BitSuffixedSource.cmake") + +# Generate 64-bit suffixed sources for the extended API. The generation happens +# at build time in the Generate64BitSuffixedSource.cmake script. +function(generate_64bit_suffixed_sources gen_target fortran_sources destination generated_sources) + get_filename_component(destination_abs "${destination}" ABSOLUTE BASE_DIR "${CMAKE_CURRENT_BINARY_DIR}") + set(generated_source_files) + + foreach(source IN LISTS fortran_sources) + get_filename_component(source_abs "${source}" ABSOLUTE BASE_DIR "${CMAKE_CURRENT_SOURCE_DIR}") + get_filename_component(source_name "${source}" NAME_WLE) + get_filename_component(source_ext "${source}" EXT) + set(output_file "${destination_abs}/${source_name}_64${source_ext}") + + set(_fortran_extensions ".f" ".F" ".f90" ".F90") + if(NOT source_ext IN_LIST _fortran_extensions) + message(WARNING "Skipping non-Fortran source '${source}' for target '${gen_target}'") + continue() + endif() + + add_custom_command( + OUTPUT "${output_file}" + COMMAND + "${CMAKE_COMMAND}" + "-DINPUT_FILE=${source_abs}" + "-DOUTPUT_FILE=${output_file}" + -P "${EXTENDED_API_GENERATOR}" + DEPENDS + "${source_abs}" + "${EXTENDED_API_GENERATOR}" + COMMENT "Generating ${source_name} for 64-bit extended API" + VERBATIM + ) + + list(APPEND generated_source_files "${output_file}") + endforeach() + + if(generated_source_files) + set_source_files_properties(${generated_source_files} PROPERTIES GENERATED TRUE) + endif() + + set(${generated_sources} ${generated_source_files} PARENT_SCOPE) +endfunction() diff --git a/CMAKE/Generate64BitSuffixedSource.cmake b/CMAKE/Generate64BitSuffixedSource.cmake new file mode 100644 index 000000000..ff094373f --- /dev/null +++ b/CMAKE/Generate64BitSuffixedSource.cmake @@ -0,0 +1,193 @@ +if(NOT DEFINED INPUT_FILE) + message(FATAL_ERROR "INPUT_FILE must be set") +endif() + +if(NOT DEFINED OUTPUT_FILE) + message(FATAL_ERROR "OUTPUT_FILE must be set") +endif() + +# Check whether the input file is fixed or free form based on its extension. +get_filename_component(input_extension "${INPUT_FILE}" LAST_EXT) +string(TOLOWER "${input_extension}" input_extension_lower) +if(input_extension_lower MATCHES "^\\.f(90|95|03|08)$") + set(_rewrite_source_is_free_form TRUE) +else() + set(_rewrite_source_is_free_form FALSE) +endif() + +# Check if line is a comment line based on the form of the Fortran source. +function(_is_fortran_comment_line line result) + if(_rewrite_source_is_free_form) + if("${line}" MATCHES "^[ \t]*!") + set(${result} TRUE PARENT_SCOPE) + else() + set(${result} FALSE PARENT_SCOPE) + endif() + elseif("${line}" MATCHES "^[cC\\*!]" OR "${line}" MATCHES "^[ \t]*!") + set(${result} TRUE PARENT_SCOPE) + else() + set(${result} FALSE PARENT_SCOPE) + endif() +endfunction() + +# Check if the line is a fixed-form continuation line. +function(_is_fixed_form_continuation_line line result) + if(_rewrite_source_is_free_form) + set(${result} FALSE PARENT_SCOPE) + return() + endif() + + string(LENGTH "${line}" line_length) + if(line_length GREATER 5) + string(SUBSTRING "${line}" 5 1 continuation_char) + if(NOT continuation_char STREQUAL " " AND NOT continuation_char STREQUAL "0") + set(${result} TRUE PARENT_SCOPE) + return() + endif() + endif() + + set(${result} FALSE PARENT_SCOPE) +endfunction() + +# Check if the line ends with a free-form continuation character. +function(_has_trailing_free_form_continuation line result) + if("${line}" MATCHES "&[ \t]*$") + set(${result} TRUE PARENT_SCOPE) + else() + set(${result} FALSE PARENT_SCOPE) + endif() +endfunction() + +# Remove leading and trailing continuation characters and whitespace +function(_normalize_fortran_statement_fragment line result) + if(_rewrite_source_is_free_form) + string(REGEX REPLACE "^[ \t]*&[ \t]*" "" fragment "${line}") + string(REGEX REPLACE "[ \t]*&[ \t]*$" "" fragment "${fragment}") + else() + string(SUBSTRING "${line}" 6 -1 fragment) + endif() + + set(${result} "${fragment}" PARENT_SCOPE) +endfunction() + +# Create one logical Fortran statement by appending all continuation lines. +function(_collect_logical_fortran_line line_list_name start_index logical_line next_index) + list(GET ${line_list_name} ${start_index} current_line) + _normalize_fortran_statement_fragment("${current_line}" merged_line) + + list(LENGTH ${line_list_name} raw_line_count) + set(last_line "${current_line}") + math(EXPR current_index "${start_index} + 1") + + while(current_index LESS raw_line_count) + list(GET ${line_list_name} ${current_index} continuation_line) + _is_fortran_comment_line("${continuation_line}" continuation_is_comment) + if(continuation_is_comment) + break() + endif() + + # Check for continuation based on the form of the Fortran source + if(_rewrite_source_is_free_form) + if("${last_line}" MATCHES "&[ \t]*$" OR "${continuation_line}" MATCHES "^[ \t]*&") + _normalize_fortran_statement_fragment("${continuation_line}" continuation_fragment) + else() + break() + endif() + else() + _is_fixed_form_continuation_line("${continuation_line}" is_fixed_form_continuation) + if(is_fixed_form_continuation) + _normalize_fortran_statement_fragment("${continuation_line}" continuation_fragment) + else() + break() + endif() + endif() + + string(APPEND merged_line " ${continuation_fragment}") + set(last_line "${continuation_line}") + math(EXPR current_index "${current_index} + 1") + endwhile() + + set(${logical_line} "${merged_line}" PARENT_SCOPE) + set(${next_index} ${current_index} PARENT_SCOPE) +endfunction() + +# Extract function/subroutine names from one logical Fortran statement. +function(_extract_symbols statement_text result) + set(symbols) + + if("${statement_text}" MATCHES "(external|EXTERNAL)") + string(REGEX REPLACE + "^[a-zA-Z0-9_ *]*(external|EXTERNAL)[ ]*" "" + external_names "${statement_text}") + string(REPLACE "," ";" external_names "${external_names}") + foreach(external_name IN LISTS external_names) + string(STRIP "${external_name}" external_name) + if(NOT external_name STREQUAL "") + list(APPEND symbols "${external_name}") + endif() + endforeach() + elseif("${statement_text}" MATCHES "(subroutine|SUBROUTINE|function|FUNCTION)") + string(REGEX REPLACE + "^[a-zA-Z0-9_ *]*(subroutine|SUBROUTINE|function|FUNCTION)[ ]*" "" + symbol_name "${statement_text}") + string(REGEX REPLACE "[(].*$" "" symbol_name "${symbol_name}") + string(STRIP "${symbol_name}" symbol_name) + if(NOT symbol_name STREQUAL "") + list(APPEND symbols "${symbol_name}") + endif() + endif() + + set(${result} ${symbols} PARENT_SCOPE) +endfunction() + +get_filename_component(output_dir "${OUTPUT_FILE}" DIRECTORY) +file(MAKE_DIRECTORY "${output_dir}") + +file(READ "${INPUT_FILE}" source_content) +set(rewritten_content "${source_content}") + +# Extract symbol names from the source file +file(STRINGS "${INPUT_FILE}" raw_lines) +set(symbol_names) +list(LENGTH raw_lines raw_line_count) +set(line_index 0) +while(line_index LESS raw_line_count) + list(GET raw_lines ${line_index} current_line) + _is_fortran_comment_line("${current_line}" is_comment_line) + if(is_comment_line) + math(EXPR line_index "${line_index} + 1") + continue() + endif() + + _collect_logical_fortran_line(raw_lines ${line_index} logical_line next_index) + _extract_symbols("${logical_line}" symbols) + if(symbols) + list(APPEND symbol_names ${symbols}) + endif() + set(line_index ${next_index}) +endwhile() +list(REMOVE_DUPLICATES symbol_names) + +# Replace symbol names with their suffixed versions in the source content +foreach(symbol_name IN LISTS symbol_names) + set(symbol_variants "${symbol_name}") + string(TOLOWER "${symbol_name}" symbol_lower) + string(TOUPPER "${symbol_name}" symbol_upper) + foreach(symbol_variant "${symbol_lower}" "${symbol_upper}") + string( + REGEX REPLACE + "(^|[^A-Za-z0-9_])${symbol_variant}([^A-Za-z0-9_]|$)" + "\\1${symbol_variant}_64\\2" + rewritten_content + "${rewritten_content}" + ) + endforeach() +endforeach() + +if(EXISTS "${OUTPUT_FILE}") + file(READ "${OUTPUT_FILE}" existing_output) +endif() + +if(NOT DEFINED existing_output OR NOT existing_output STREQUAL rewritten_content) + file(WRITE "${OUTPUT_FILE}" "${rewritten_content}") +endif() From 01ad09c38bd125da9de57037fc25f4727c235297 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 27 Apr 2026 16:19:46 +0200 Subject: [PATCH 14/39] New 64bit extended APi generator works --- BLAS/SRC/CMakeLists.txt | 125 +- CBLAS/src/CMakeLists.txt | 185 +- CMAKE/ExtendedAPIHelpers.cmake | 30 +- CMAKE/Generate64BitSuffixedSource.cmake | 5 +- LAPACKE/CMakeLists.txt | 25 +- SRC/CMakeLists.txt | 60 +- SRC/lapack_64.h | 2293 ----------------------- TESTING/MATGEN/CMakeLists.txt | 39 +- TESTING/MATGEN/matgen_64.h | 81 - 9 files changed, 206 insertions(+), 2637 deletions(-) delete mode 100644 SRC/lapack_64.h delete mode 100644 TESTING/MATGEN/matgen_64.h diff --git a/BLAS/SRC/CMakeLists.txt b/BLAS/SRC/CMakeLists.txt index d922da324..501560531 100644 --- a/BLAS/SRC/CMakeLists.txt +++ b/BLAS/SRC/CMakeLists.txt @@ -31,31 +31,31 @@ set(LAPACK_INSTALL_EXPORT_NAME ${BLASLIB}-targets) -set(SBLAS1 isamax.f sasum.f saxpy.f saxpby.f scopy.f sdot.f snrm2.f90 - srot.f srotg.f90 sscal.f sswap.f sdsdot.f srotmg.f srotm.f) +set(SBLAS1 + isamax.f sasum.f saxpy.f saxpby.f scopy.f sdot.f snrm2.f90 srot.f srotg.f90 + sscal.f sswap.f sdsdot.f srotmg.f srotm.f) -set(CBLAS1 scabs1.f scasum.f scnrm2.f90 icamax.f90 caxpy.f caxpby.f ccopy.f - cdotc.f cdotu.f csscal.f crotg.f90 cscal.f cswap.f csrot.f) +set(CBLAS1 + scabs1.f scasum.f scnrm2.f90 icamax.f90 caxpy.f caxpby.f ccopy.f cdotc.f + cdotu.f csscal.f crotg.f90 cscal.f cswap.f csrot.f) -set(DBLAS1 idamax.f dasum.f daxpy.f daxpby.f dcopy.f ddot.f dnrm2.f90 - drot.f drotg.f90 dscal.f dsdot.f dswap.f drotmg.f drotm.f) +set(DBLAS1 + idamax.f dasum.f daxpy.f daxpby.f dcopy.f ddot.f dnrm2.f90 drot.f drotg.f90 + dscal.f dsdot.f dswap.f drotmg.f drotm.f) set(DB1AUX sscal.f isamax.f) -set(ZBLAS1 dcabs1.f dzasum.f dznrm2.f90 izamax.f90 zaxpy.f zaxpby.f zcopy.f - zdotc.f zdotu.f zdscal.f zrotg.f90 zscal.f zswap.f zdrot.f) +set(ZBLAS1 + dcabs1.f dzasum.f dznrm2.f90 izamax.f90 zaxpy.f zaxpby.f zcopy.f zdotc.f + zdotu.f zdscal.f zrotg.f90 zscal.f zswap.f zdrot.f) set(CB1AUX - isamax.f idamax.f - sasum.f saxpy.f scopy.f sdot.f sgemm.f sgemv.f snrm2.f90 srot.f sscal.f - sswap.f) + isamax.f idamax.f sasum.f saxpy.f scopy.f sdot.f sgemm.f sgemv.f snrm2.f90 + srot.f sscal.f sswap.f) set(ZB1AUX - icamax.f90 idamax.f - cgemm.f cherk.f cscal.f ctrsm.f - dasum.f daxpy.f dcopy.f ddot.f dgemm.f dgemv.f dnrm2.f90 drot.f dscal.f - dswap.f - scabs1.f) + icamax.f90 idamax.f cgemm.f cherk.f cscal.f ctrsm.f dasum.f daxpy.f dcopy.f + ddot.f dgemm.f dgemv.f dnrm2.f90 drot.f dscal.f dswap.f scabs1.f) #--------------------------------------------------------------------- # Auxiliary routines needed by both the Level 2 and Level 3 BLAS @@ -65,38 +65,40 @@ set(ALLBLAS lsame.f xerbla.f xerbla_array.f) #--------------------------------------------------------- # Level 2 BLAS #--------------------------------------------------------- -set(SBLAS2 sgemv.f sgbmv.f ssymv.f ssbmv.f sspmv.f - strmv.f stbmv.f stpmv.f strsv.f stbsv.f stpsv.f - sger.f ssyr.f sspr.f ssyr2.f sspr2.f - sskewsymv.f sskewsyr2.f) +set(SBLAS2 + sgemv.f sgbmv.f ssymv.f ssbmv.f sspmv.f strmv.f stbmv.f stpmv.f strsv.f + stbsv.f stpsv.f sger.f ssyr.f sspr.f ssyr2.f sspr2.f sskewsymv.f sskewsyr2.f) -set(CBLAS2 cgemv.f cgbmv.f chemv.f chbmv.f chpmv.f - ctrmv.f ctbmv.f ctpmv.f ctrsv.f ctbsv.f ctpsv.f - cgerc.f cgeru.f cher.f chpr.f cher2.f chpr2.f) +set(CBLAS2 + cgemv.f cgbmv.f chemv.f chbmv.f chpmv.f ctrmv.f ctbmv.f ctpmv.f ctrsv.f + ctbsv.f ctpsv.f cgerc.f cgeru.f cher.f chpr.f cher2.f chpr2.f) -set(DBLAS2 dgemv.f dgbmv.f dsymv.f dsbmv.f dspmv.f - dtrmv.f dtbmv.f dtpmv.f dtrsv.f dtbsv.f dtpsv.f - dger.f dsyr.f dspr.f dsyr2.f dspr2.f - dskewsymv.f dskewsyr2.f) +set(DBLAS2 + dgemv.f dgbmv.f dsymv.f dsbmv.f dspmv.f dtrmv.f dtbmv.f dtpmv.f dtrsv.f + dtbsv.f dtpsv.f dger.f dsyr.f dspr.f dsyr2.f dspr2.f dskewsymv.f dskewsyr2.f) -set(ZBLAS2 zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f - ztrmv.f ztbmv.f ztpmv.f ztrsv.f ztbsv.f ztpsv.f - zgerc.f zgeru.f zher.f zhpr.f zher2.f zhpr2.f) +set(ZBLAS2 + zgemv.f zgbmv.f zhemv.f zhbmv.f zhpmv.f ztrmv.f ztbmv.f ztpmv.f ztrsv.f + ztbsv.f ztpsv.f zgerc.f zgeru.f zher.f zhpr.f zher2.f zhpr2.f) #--------------------------------------------------------- # Level 3 BLAS #--------------------------------------------------------- -set(SBLAS3 sgemm.f ssymm.f ssyrk.f ssyr2k.f strmm.f strsm.f sgemmtr.f - sskewsymm.f sskewsyr2k.f) +set(SBLAS3 + sgemm.f ssymm.f ssyrk.f ssyr2k.f strmm.f strsm.f sgemmtr.f sskewsymm.f + sskewsyr2k.f) -set(CBLAS3 cgemm.f csymm.f csyrk.f csyr2k.f ctrmm.f ctrsm.f - chemm.f cherk.f cher2k.f cgemmtr.f) +set(CBLAS3 + cgemm.f csymm.f csyrk.f csyr2k.f ctrmm.f ctrsm.f chemm.f cherk.f cher2k.f + cgemmtr.f) -set(DBLAS3 dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f dgemmtr.f - dskewsymm.f dskewsyr2k.f) +set(DBLAS3 + dgemm.f dsymm.f dsyrk.f dsyr2k.f dtrmm.f dtrsm.f dgemmtr.f dskewsymm.f + dskewsyr2k.f) -set(ZBLAS3 zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f - zhemm.f zherk.f zher2k.f zgemmtr.f) +set(ZBLAS3 + zgemm.f zsymm.f zsyrk.f zsyr2k.f ztrmm.f ztrsm.f zhemm.f zherk.f zher2k.f + zgemmtr.f) set(SOURCES) @@ -118,44 +120,21 @@ list(REMOVE_DUPLICATES SOURCES) add_library(${BLASLIB}_obj OBJECT ${SOURCES}) if(BUILD_INDEX64_EXT_API) - set(SOURCES_64_F) - # Copy files so we can set source property specific to /${BLASLIB}_64_obj target - file(MAKE_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR}/${BLASLIB}_64_obj) - file(COPY ${SOURCES} DESTINATION ${CMAKE_CURRENT_BINARY_DIR}/${BLASLIB}_64_obj) - file(GLOB SOURCES_64_F ${CMAKE_CURRENT_BINARY_DIR}/${BLASLIB}_64_obj/*.f*) - add_library(${BLASLIB}_64_obj OBJECT ${SOURCES_64_F}) + include(ExtendedAPIHelpers) + generate_64bit_suffixed_sources(${BLASLIB} SOURCES SOURCES_64) + + add_library(${BLASLIB}_64_obj OBJECT ${SOURCES_64}) target_compile_options(${BLASLIB}_64_obj PRIVATE ${FOPT_ILP64}) - #Add _64 suffix to all Fortran functions via macros - foreach(F IN LISTS SOURCES_64_F) - if(CMAKE_Fortran_COMPILER_ID STREQUAL "NAG" OR CMAKE_Fortran_COMPILER_ID MATCHES "Intel") - set_source_files_properties(${F} PROPERTIES COMPILE_FLAGS "-fpp") - else() - set_source_files_properties(${F} PROPERTIES COMPILE_FLAGS "-cpp") - endif() - file(STRINGS ${F} ${F}.lst) - list(FILTER ${F}.lst INCLUDE REGEX "subroutine|SUBROUTINE|external|EXTERNAL|function|FUNCTION") - list(FILTER ${F}.lst EXCLUDE REGEX "^!.*") - list(FILTER ${F}.lst EXCLUDE REGEX "^[*].*") - list(FILTER ${F}.lst EXCLUDE REGEX "end|END") - foreach(FUNC IN LISTS ${F}.lst) - string(REGEX REPLACE "^[a-zA-Z0-9_ *]*(subroutine|SUBROUTINE|external|EXTERNAL|function|FUNCTION)[ ]*[*]?" "" FUNC ${FUNC}) - string(REGEX REPLACE "[(][a-zA-Z0-9_, )]*$" "" FUNC ${FUNC}) - string(STRIP ${FUNC} FUNC) - list(APPEND COPT_64_F "${FUNC}=${FUNC}_64") - endforeach() - list(REMOVE_DUPLICATES COPT_64_F) - set_source_files_properties(${F} PROPERTIES COMPILE_DEFINITIONS "${COPT_64_F}") - endforeach() endif() add_library(${BLASLIB} - $ - $<$: $>) + $ + $<$: $>) # For flang, use C linker instead of Fortran linker to avoid macOS-specific flags # that CMake adds (tested CMake 4.2). -if (CMAKE_Fortran_COMPILER_ID STREQUAL "LLVMFlang") - set_target_properties (${BLASLIB} PROPERTIES LINKER_LANGUAGE C) +if(CMAKE_Fortran_COMPILER_ID STREQUAL "LLVMFlang") + set_target_properties (${BLASLIB} PROPERTIES LINKER_LANGUAGE C) endif() set_target_properties( @@ -167,10 +146,10 @@ lapack_install_library(${BLASLIB}) add_library(BLAS::BLAS ALIAS ${BLASLIB}) install(EXPORT ${BLASLIB}-targets - FILE ${BLASLIB}-targets.cmake - NAMESPACE BLAS:: - DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/${LAPACKLIB}-${LAPACK_VERSION} - COMPONENT Development + FILE ${BLASLIB}-targets.cmake + NAMESPACE BLAS:: + DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/${LAPACKLIB}-${LAPACK_VERSION} + COMPONENT Development ) if( TEST_FORTRAN_COMPILER ) diff --git a/CBLAS/src/CMakeLists.txt b/CBLAS/src/CMakeLists.txt index 712eb4f29..15a82a38d 100644 --- a/CBLAS/src/CMakeLists.txt +++ b/CBLAS/src/CMakeLists.txt @@ -12,36 +12,40 @@ set(ERRHAND cblas_globals.c cblas_xerbla.c xerbla.c) # # Files for level 1 single precision real -set(SLEV1 cblas_srotg.c cblas_srotmg.c cblas_srot.c cblas_srotm.c - cblas_sswap.c cblas_sscal.c cblas_scopy.c cblas_saxpy.c - cblas_sdot.c cblas_sdsdot.c cblas_snrm2.c cblas_sasum.c - cblas_isamax.c sdotsub.f sdsdotsub.f snrm2sub.f sasumsub.f - isamaxsub.f cblas_saxpby.c) +set(SLEV1_C + cblas_srotg.c cblas_srotmg.c cblas_srot.c cblas_srotm.c cblas_sswap.c + cblas_sscal.c cblas_scopy.c cblas_saxpy.c cblas_sdot.c cblas_sdsdot.c + cblas_snrm2.c cblas_sasum.c cblas_isamax.c cblas_saxpby.c) + +set(SLEV1_F + sdotsub.f sdsdotsub.f snrm2sub.f sasumsub.f isamaxsub.f) # Files for level 1 double precision real -set(DLEV1 cblas_drotg.c cblas_drotmg.c cblas_drot.c cblas_drotm.c - cblas_dswap.c cblas_dscal.c cblas_dcopy.c cblas_daxpy.c - cblas_ddot.c cblas_dsdot.c cblas_dnrm2.c cblas_dasum.c - cblas_idamax.c ddotsub.f dsdotsub.f dnrm2sub.f - dasumsub.f idamaxsub.f cblas_daxpby.c) +set(DLEV1_C + cblas_drotg.c cblas_drotmg.c cblas_drot.c cblas_drotm.c cblas_dswap.c + cblas_dscal.c cblas_dcopy.c cblas_daxpy.c cblas_ddot.c cblas_dsdot.c + cblas_dnrm2.c cblas_dasum.c cblas_idamax.c cblas_daxpby.c) + +set(DLEV1_F + ddotsub.f dsdotsub.f dnrm2sub.f dasumsub.f idamaxsub.f) # Files for level 1 single precision complex -set(CLEV1 cblas_crotg.c cblas_csrot.c - cblas_cswap.c cblas_cscal.c cblas_csscal.c cblas_ccopy.c - cblas_caxpy.c cblas_cdotu_sub.c cblas_cdotc_sub.c - cblas_icamax.c cdotcsub.f cdotusub.f icamaxsub.f - cblas_scabs1.c scabs1sub.f cblas_caxpby.c) +set(CLEV1_C + cblas_crotg.c cblas_csrot.c cblas_cswap.c cblas_cscal.c cblas_csscal.c + cblas_ccopy.c cblas_caxpy.c cblas_cdotu_sub.c cblas_cdotc_sub.c cblas_scnrm2.c + cblas_scasum.c cblas_icamax.c cblas_scabs1.c cblas_caxpby.c) + +set(CLEV1_F + cdotcsub.f cdotusub.f icamaxsub.f scasumsub.f scnrm2sub.f scabs1sub.f) # Files for level 1 double precision complex -set(ZLEV1 cblas_zrotg.c cblas_zdrot.c - cblas_zswap.c cblas_zscal.c cblas_zdscal.c cblas_zcopy.c - cblas_zaxpy.c cblas_zdotu_sub.c cblas_zdotc_sub.c cblas_dznrm2.c - cblas_dzasum.c cblas_izamax.c zdotcsub.f zdotusub.f - dzasumsub.f dznrm2sub.f izamaxsub.f - cblas_dcabs1.c dcabs1sub.f cblas_zaxpby.c) +set(ZLEV1_C + cblas_zrotg.c cblas_zdrot.c cblas_zswap.c cblas_zscal.c cblas_zdscal.c + cblas_zcopy.c cblas_zaxpy.c cblas_zdotu_sub.c cblas_zdotc_sub.c cblas_dznrm2.c + cblas_dzasum.c cblas_izamax.c cblas_dcabs1.c cblas_zaxpby.c) -# Common files for level 1 single precision -set(SCLEV1 cblas_scasum.c scasumsub.f cblas_scnrm2.c scnrm2sub.f) +set(ZLEV1_F + zdotcsub.f zdotusub.f izamaxsub.f dzasumsub.f dznrm2sub.f dcabs1sub.f) # # @@ -52,28 +56,32 @@ set(SCLEV1 cblas_scasum.c scasumsub.f cblas_scnrm2.c scnrm2sub.f) # # Files for level 2 single precision real -set(SLEV2 cblas_sgemv.c cblas_sgbmv.c cblas_sger.c cblas_ssbmv.c cblas_sspmv.c - cblas_sspr.c cblas_sspr2.c cblas_ssymv.c cblas_ssyr.c cblas_ssyr2.c - cblas_stbmv.c cblas_stbsv.c cblas_stpmv.c cblas_stpsv.c cblas_strmv.c - cblas_strsv.c cblas_sskewsymv.c cblas_sskewsyr2.c) +set(SLEV2 + cblas_sgemv.c cblas_sgbmv.c cblas_sger.c cblas_ssbmv.c cblas_sspmv.c + cblas_sspr.c cblas_sspr2.c cblas_ssymv.c cblas_ssyr.c cblas_ssyr2.c + cblas_stbmv.c cblas_stbsv.c cblas_stpmv.c cblas_stpsv.c cblas_strmv.c + cblas_strsv.c cblas_sskewsymv.c cblas_sskewsyr2.c) # Files for level 2 double precision real -set(DLEV2 cblas_dgemv.c cblas_dgbmv.c cblas_dger.c cblas_dsbmv.c cblas_dspmv.c - cblas_dspr.c cblas_dspr2.c cblas_dsymv.c cblas_dsyr.c cblas_dsyr2.c - cblas_dtbmv.c cblas_dtbsv.c cblas_dtpmv.c cblas_dtpsv.c cblas_dtrmv.c - cblas_dtrsv.c cblas_dskewsymv.c cblas_dskewsyr2.c) +set(DLEV2 + cblas_dgemv.c cblas_dgbmv.c cblas_dger.c cblas_dsbmv.c cblas_dspmv.c + cblas_dspr.c cblas_dspr2.c cblas_dsymv.c cblas_dsyr.c cblas_dsyr2.c + cblas_dtbmv.c cblas_dtbsv.c cblas_dtpmv.c cblas_dtpsv.c cblas_dtrmv.c + cblas_dtrsv.c cblas_dskewsymv.c cblas_dskewsyr2.c) # Files for level 2 single precision complex -set(CLEV2 cblas_cgemv.c cblas_cgbmv.c cblas_chemv.c cblas_chbmv.c cblas_chpmv.c - cblas_ctrmv.c cblas_ctbmv.c cblas_ctpmv.c cblas_ctrsv.c cblas_ctbsv.c - cblas_ctpsv.c cblas_cgeru.c cblas_cgerc.c cblas_cher.c cblas_cher2.c - cblas_chpr.c cblas_chpr2.c) +set(CLEV2 + cblas_cgemv.c cblas_cgbmv.c cblas_chemv.c cblas_chbmv.c cblas_chpmv.c + cblas_ctrmv.c cblas_ctbmv.c cblas_ctpmv.c cblas_ctrsv.c cblas_ctbsv.c + cblas_ctpsv.c cblas_cgeru.c cblas_cgerc.c cblas_cher.c cblas_cher2.c + cblas_chpr.c cblas_chpr2.c) # Files for level 2 double precision complex -set(ZLEV2 cblas_zgemv.c cblas_zgbmv.c cblas_zhemv.c cblas_zhbmv.c cblas_zhpmv.c - cblas_ztrmv.c cblas_ztbmv.c cblas_ztpmv.c cblas_ztrsv.c cblas_ztbsv.c - cblas_ztpsv.c cblas_zgeru.c cblas_zgerc.c cblas_zher.c cblas_zher2.c - cblas_zhpr.c cblas_zhpr2.c) +set(ZLEV2 + cblas_zgemv.c cblas_zgbmv.c cblas_zhemv.c cblas_zhbmv.c cblas_zhpmv.c + cblas_ztrmv.c cblas_ztbmv.c cblas_ztpmv.c cblas_ztrsv.c cblas_ztbsv.c + cblas_ztpsv.c cblas_zgeru.c cblas_zgerc.c cblas_zher.c cblas_zher2.c + cblas_zhpr.c cblas_zhpr2.c) # # @@ -84,87 +92,76 @@ set(ZLEV2 cblas_zgemv.c cblas_zgbmv.c cblas_zhemv.c cblas_zhbmv.c cblas_zhpmv.c # # Files for level 3 single precision real -set(SLEV3 cblas_sgemm.c cblas_ssymm.c cblas_ssyrk.c cblas_ssyr2k.c cblas_strmm.c - cblas_strsm.c cblas_sgemmtr.c cblas_sskewsymm.c cblas_sskewsyr2k.c) +set(SLEV3 + cblas_sgemm.c cblas_ssymm.c cblas_ssyrk.c cblas_ssyr2k.c cblas_strmm.c + cblas_strsm.c cblas_sgemmtr.c cblas_sskewsymm.c cblas_sskewsyr2k.c) # Files for level 3 double precision real -set(DLEV3 cblas_dgemm.c cblas_dsymm.c cblas_dsyrk.c cblas_dsyr2k.c cblas_dtrmm.c - cblas_dtrsm.c cblas_dgemmtr.c cblas_dskewsymm.c cblas_dskewsyr2k.c) +set(DLEV3 + cblas_dgemm.c cblas_dsymm.c cblas_dsyrk.c cblas_dsyr2k.c cblas_dtrmm.c + cblas_dtrsm.c cblas_dgemmtr.c cblas_dskewsymm.c cblas_dskewsyr2k.c) # Files for level 3 single precision complex -set(CLEV3 cblas_cgemm.c cblas_csymm.c cblas_chemm.c cblas_cherk.c - cblas_cher2k.c cblas_ctrmm.c cblas_ctrsm.c cblas_csyrk.c - cblas_csyr2k.c cblas_cgemmtr.c) +set(CLEV3 + cblas_cgemm.c cblas_csymm.c cblas_chemm.c cblas_cherk.c cblas_cher2k.c + cblas_ctrmm.c cblas_ctrsm.c cblas_csyrk.c cblas_csyr2k.c cblas_cgemmtr.c) # Files for level 3 double precision complex -set(ZLEV3 cblas_zgemm.c cblas_zsymm.c cblas_zhemm.c cblas_zherk.c - cblas_zher2k.c cblas_ztrmm.c cblas_ztrsm.c cblas_zsyrk.c - cblas_zsyr2k.c cblas_zgemmtr.c) - +set(ZLEV3 + cblas_zgemm.c cblas_zsymm.c cblas_zhemm.c cblas_zherk.c cblas_zher2k.c + cblas_ztrmm.c cblas_ztrsm.c cblas_zsyrk.c cblas_zsyr2k.c cblas_zgemmtr.c) -set(SOURCES) +set(SOURCES_C) +set(SOURCES_F) if(BUILD_SINGLE) - list(APPEND SOURCES ${SLEV1} ${SCLEV1} ${SLEV2} ${SLEV3} ${ERRHAND}) + list(APPEND SOURCES_C ${SLEV1_C} ${SLEV2} ${SLEV3} ${ERRHAND}) + list(APPEND SOURCES_F ${SLEV1_F}) endif() if(BUILD_DOUBLE) - list(APPEND SOURCES ${DLEV1} ${DLEV2} ${DLEV3} ${ERRHAND}) + list(APPEND SOURCES_C ${DLEV1_C} ${DLEV2} ${DLEV3} ${ERRHAND}) + list(APPEND SOURCES_F ${DLEV1_F}) endif() if(BUILD_COMPLEX) - list(APPEND SOURCES ${CLEV1} ${SCLEV1} ${CLEV2} ${CLEV3} ${ERRHAND}) + list(APPEND SOURCES_C ${CLEV1_C} ${CLEV2} ${CLEV3} ${ERRHAND}) + list(APPEND SOURCES_F ${CLEV1_F}) endif() if(BUILD_COMPLEX16) - list(APPEND SOURCES ${ZLEV1} ${ZLEV2} ${ZLEV3} ${ERRHAND}) + list(APPEND SOURCES_C ${ZLEV1_C} ${ZLEV2} ${ZLEV3} ${ERRHAND}) + list(APPEND SOURCES_F ${ZLEV1_F}) endif() -list(REMOVE_DUPLICATES SOURCES) +list(REMOVE_DUPLICATES SOURCES_C) +list(REMOVE_DUPLICATES SOURCES_F) -add_library(${CBLASLIB}_obj OBJECT ${SOURCES}) +add_library(${CBLASLIB}_obj OBJECT ${SOURCES_C} ${SOURCES_F}) if(HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(${CBLASLIB}_obj PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) + target_compile_definitions(${CBLASLIB}_obj PRIVATE + "$<$:HAS_ATTRIBUTE_WEAK_SUPPORT>") endif() if(BUILD_INDEX64_EXT_API) - # 64bit Integer Interface - # Define list of C files - set(SOURCES_64_C) - list(APPEND SOURCES_64_C ${SOURCES}) - list(FILTER SOURCES_64_C EXCLUDE REGEX "\.f$") + include(ExtendedAPIHelpers) + + # Define list of C files for 64bit interface + set(SOURCES_64_C ${SOURCES_C}) list(REMOVE_ITEM SOURCES_64_C cblas_globals.c) - # Define list of Fortran files - set(SOURCES_64_F) - list(APPEND SOURCES_64_F ${SOURCES}) - list(FILTER SOURCES_64_F INCLUDE REGEX "\.f$") - # Copy files so we can set source property specific to /${CBLASLIB}_64_obj target - file(MAKE_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR}/${CBLASLIB}_64_fobj) - file(COPY ${SOURCES_64_F} DESTINATION ${CMAKE_CURRENT_BINARY_DIR}/${CBLASLIB}_64_fobj) - file(GLOB SOURCES_64_F ${CMAKE_CURRENT_BINARY_DIR}/${CBLASLIB}_64_fobj/*) - add_library(${CBLASLIB}_64_cobj OBJECT ${SOURCES_64_C}) - add_library(${CBLASLIB}_64_fobj OBJECT ${SOURCES_64_F}) - set_target_properties(${CBLASLIB}_64_cobj ${CBLASLIB}_64_fobj PROPERTIES - Fortran_PREPROCESS ON - LINKER_LANGUAGE C) - target_compile_options(${CBLASLIB}_64_cobj PRIVATE -DWeirdNEC -DCBLAS_API64) - target_compile_options(${CBLASLIB}_64_fobj PRIVATE ${FOPT_ILP64}) + + # Generate list of Fortran files for 64bit interface + generate_64bit_suffixed_sources(${CBLASLIB} SOURCES_F SOURCES_64_F) + + add_library(${CBLASLIB}_64_obj OBJECT ${SOURCES_64_C} ${SOURCES_64_F}) + target_compile_definitions(${CBLASLIB}_64_obj PRIVATE + "$<$:WeirdNEC>" "$<$:CBLAS_API64>") + target_compile_options(${CBLASLIB}_64_obj PRIVATE + "$<$:${FOPT_ILP64}>") if(HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(${CBLASLIB}_64_cobj PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) + target_compile_definitions(${CBLASLIB}_64_obj PRIVATE + "$<$:HAS_ATTRIBUTE_WEAK_SUPPORT>") endif() - #Add suffix to all Fortran functions via macros - foreach(F IN LISTS SOURCES_64_F) - set(COPT_64_F) - file(STRINGS ${F} ${F}.lst) - list(FILTER ${F}.lst INCLUDE REGEX "subroutine|external") - foreach(FUNC IN LISTS ${F}.lst) - string(REGEX REPLACE "[ ]*(subroutine|external)[ ]*" "" FUNC ${FUNC}) - string(REGEX REPLACE "[(][a-zA-Z0-9, ]*[)]" "" FUNC ${FUNC}) - list(APPEND COPT_64_F "-D${FUNC}=${FUNC}_64") - endforeach() - set_source_files_properties(${F} PROPERTIES COMPILE_OPTIONS "${COPT_64_F}") - endforeach() endif() add_library(${CBLASLIB} - $ - $<$: $> - $<$: $>) + $ + $<$: $>) set_target_properties( ${CBLASLIB} PROPERTIES diff --git a/CMAKE/ExtendedAPIHelpers.cmake b/CMAKE/ExtendedAPIHelpers.cmake index 8df1257e9..0617bc772 100644 --- a/CMAKE/ExtendedAPIHelpers.cmake +++ b/CMAKE/ExtendedAPIHelpers.cmake @@ -1,25 +1,34 @@ include_guard(GLOBAL) -set(EXTENDED_API_GENERATOR "${CMAKE_CURRENT_LIST_DIR}/Generate64BitSuffixedSource.cmake") +set(EXTENDED_API_GENERATOR + "${CMAKE_CURRENT_LIST_DIR}/Generate64BitSuffixedSource.cmake" CACHE INTERNAL + "Script that generates 64-bit suffixed sources for the extended API") + +if(BUILD_INDEX64_EXT_API) + add_custom_target(64bit_codegen ALL + COMMENT "Generating 64-bit suffixed sources for extended API") +endif() # Generate 64-bit suffixed sources for the extended API. The generation happens # at build time in the Generate64BitSuffixedSource.cmake script. -function(generate_64bit_suffixed_sources gen_target fortran_sources destination generated_sources) - get_filename_component(destination_abs "${destination}" ABSOLUTE BASE_DIR "${CMAKE_CURRENT_BINARY_DIR}") +function(generate_64bit_suffixed_sources target source_list generated_sources) + get_filename_component(destination "${target}_64_sources" ABSOLUTE BASE_DIR "${CMAKE_CURRENT_BINARY_DIR}") set(generated_source_files) - foreach(source IN LISTS fortran_sources) + foreach(source IN LISTS ${source_list}) get_filename_component(source_abs "${source}" ABSOLUTE BASE_DIR "${CMAKE_CURRENT_SOURCE_DIR}") get_filename_component(source_name "${source}" NAME_WLE) get_filename_component(source_ext "${source}" EXT) - set(output_file "${destination_abs}/${source_name}_64${source_ext}") + set(output_file "${destination}/${source_name}_64${source_ext}") set(_fortran_extensions ".f" ".F" ".f90" ".F90") if(NOT source_ext IN_LIST _fortran_extensions) - message(WARNING "Skipping non-Fortran source '${source}' for target '${gen_target}'") + message(WARNING "Skipping non-Fortran source '${source}' for target '${target}'") continue() endif() + message("${EXTENDED_API_GENERATOR}") + add_custom_command( OUTPUT "${output_file}" COMMAND @@ -30,14 +39,17 @@ function(generate_64bit_suffixed_sources gen_target fortran_sources destination DEPENDS "${source_abs}" "${EXTENDED_API_GENERATOR}" - COMMENT "Generating ${source_name} for 64-bit extended API" - VERBATIM - ) + COMMENT "Generating 64-bit extended API source for ${source}" + VERBATIM) list(APPEND generated_source_files "${output_file}") endforeach() if(generated_source_files) + add_custom_target("${target}_64bit_codegen" ALL + DEPENDS ${generated_source_files} + COMMENT "Generating 64-bit suffixed sources for target ${target}") + add_dependencies(64bit_codegen "${target}_64bit_codegen") set_source_files_properties(${generated_source_files} PROPERTIES GENERATED TRUE) endif() diff --git a/CMAKE/Generate64BitSuffixedSource.cmake b/CMAKE/Generate64BitSuffixedSource.cmake index ff094373f..791bb8e09 100644 --- a/CMAKE/Generate64BitSuffixedSource.cmake +++ b/CMAKE/Generate64BitSuffixedSource.cmake @@ -64,7 +64,10 @@ function(_normalize_fortran_statement_fragment line result) string(REGEX REPLACE "^[ \t]*&[ \t]*" "" fragment "${line}") string(REGEX REPLACE "[ \t]*&[ \t]*$" "" fragment "${fragment}") else() - string(SUBSTRING "${line}" 6 -1 fragment) + string(LENGTH "${line}" line_length) + if(line_length GREATER 5) + string(SUBSTRING "${line}" 6 -1 fragment) + endif() endif() set(${result} "${fragment}" PARENT_SCOPE) diff --git a/LAPACKE/CMakeLists.txt b/LAPACKE/CMakeLists.txt index d6c98efcc..91ed61b3b 100644 --- a/LAPACKE/CMakeLists.txt +++ b/LAPACKE/CMakeLists.txt @@ -70,21 +70,20 @@ add_library(${LAPACKELIB}_obj OBJECT ${SOURCES}) if(BUILD_INDEX64_EXT_API) # 64bit Integer Extended Interface - set(SOURCES_64_C) - list(APPEND SOURCES_64_C ${SOURCES}) - list(REMOVE_ITEM SOURCES_64_C src/lapacke_nancheck.c) - list(REMOVE_ITEM SOURCES_64_C utils/lapacke_make_complex_float.c) - list(REMOVE_ITEM SOURCES_64_C utils/lapacke_make_complex_double.c) - add_library(${LAPACKELIB}_64_obj OBJECT ${SOURCES_64_C}) - target_compile_options(${LAPACKELIB}_64_obj PRIVATE - -DLAPACK_ILP64 - -DLAPACKE_API64 - -DWeirdNEC - -DCBLAS_API64) + set(SOURCES_64 ${SOURCES}) + list(REMOVE_ITEM SOURCES_64 + src/lapacke_nancheck.c + utils/lapacke_make_complex_float.c + utils/lapacke_make_complex_double.c) + + add_library(${LAPACKELIB}_64_obj OBJECT ${SOURCES_64}) + target_compile_definitions(${LAPACKELIB}_64_obj PRIVATE + LAPACK_ILP64 LAPACKE_API64 WeirdNEC CBLAS_API64) endif() -add_library(${LAPACKELIB} $ - $<$: $>) +add_library(${LAPACKELIB} + $ + $<$: $>) set_target_properties( ${LAPACKELIB} PROPERTIES diff --git a/SRC/CMakeLists.txt b/SRC/CMakeLists.txt index 7cb87b0aa..f86693f07 100644 --- a/SRC/CMakeLists.txt +++ b/SRC/CMakeLists.txt @@ -522,62 +522,34 @@ list(REMOVE_DUPLICATES SOURCES) # Use special target for MOD files to guarantee they are built before # any other files that depend on them add_library(const_mod_file OBJECT ${CONSTMOD}) -set_target_properties( - const_mod_file PROPERTIES - Fortran_PREPROCESS ON - ) +set_target_properties(const_mod_file PROPERTIES Fortran_PREPROCESS ON) add_library(mod_files OBJECT ${NANMOD} $) -set_target_properties( - mod_files PROPERTIES - Fortran_PREPROCESS ON - ) +set_target_properties(mod_files PROPERTIES Fortran_PREPROCESS ON) add_library(${LAPACKLIB}_obj OBJECT ${SOURCES}) target_link_libraries(${LAPACKLIB}_obj mod_files) -set_target_properties( - ${LAPACKLIB}_obj PROPERTIES - Fortran_PREPROCESS ON - ) +set_target_properties(${LAPACKLIB}_obj PROPERTIES Fortran_PREPROCESS ON) if(BUILD_INDEX64_EXT_API) - if(NOT CMAKE_Fortran_COMPILER_ID MATCHES ${INDEX64_EXT_API_COMPILERS}) - message(STATUS "Build Index-64 API as extended API with _64 suffix: skipped (unsupported Fortran compiler)") - # Disable extended API for LAPACK and LAPACKE as it depends on LAPACK build. - set(BUILD_INDEX64_EXT_API OFF) - set(BUILD_INDEX64_EXT_API OFF PARENT_SCOPE) - else() - cmake_minimum_required(VERSION 3.18) - set(SOURCES_64) - file(MAKE_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR}/${LAPACKLIB}_64_obj) - file(COPY ${SOURCES} DESTINATION ${CMAKE_CURRENT_BINARY_DIR}/${LAPACKLIB}_64_obj) - file(GLOB SOURCES_64 ${CMAKE_CURRENT_BINARY_DIR}/${LAPACKLIB}_64_obj/*.*) - list(REMOVE_ITEM SOURCES_64 la_xisnan.F90) - foreach(F IN LISTS SOURCES_64) - set(FFILE "") - file(READ ${F} FFILE) - file(WRITE ${F} "#include \"lapack_64.h\"\n") - file(APPEND ${F} "${FFILE}") - endforeach() - file(COPY lapack_64.h DESTINATION ${CMAKE_CURRENT_BINARY_DIR}/${LAPACKLIB}_64_obj) - add_library(${LAPACKLIB}_64_obj OBJECT ${SOURCES_64}) - target_link_libraries(${LAPACKLIB}_64_obj mod_files) - target_compile_options(${LAPACKLIB}_64_obj PRIVATE ${FOPT_ILP64} -DLAPACK_64) - set_target_properties( - ${LAPACKLIB}_64_obj PROPERTIES - Fortran_PREPROCESS ON - ) - endif() + include(ExtendedAPIHelpers) + generate_64bit_suffixed_sources(${LAPACKLIB} SOURCES SOURCES_64) + + add_library(${LAPACKLIB}_64_obj OBJECT ${SOURCES_64}) + target_link_libraries(${LAPACKLIB}_64_obj mod_files) + target_compile_options(${LAPACKLIB}_64_obj PRIVATE ${FOPT_ILP64}) + set_target_properties(${LAPACKLIB}_64_obj PROPERTIES Fortran_PREPROCESS ON) endif() add_library(${LAPACKLIB} $ $ $<$: $>) + # For flang, use C linker instead of Fortran linker to avoid macOS-specific flags # that CMake adds (tested CMake 4.2). -if (CMAKE_Fortran_COMPILER_ID STREQUAL "LLVMFlang") - set_target_properties (${LAPACKLIB} PROPERTIES LINKER_LANGUAGE C) +if(CMAKE_Fortran_COMPILER_ID STREQUAL "LLVMFlang") + set_target_properties (${LAPACKLIB} PROPERTIES LINKER_LANGUAGE C) endif() set_target_properties( ${LAPACKLIB} PROPERTIES @@ -585,8 +557,10 @@ set_target_properties( SOVERSION ${LAPACK_MAJOR_VERSION} ) -if( TEST_FORTRAN_COMPILER ) - add_dependencies( ${LAPACKLIB} run_test_zcomplexabs run_test_zcomplexdiv run_test_zcomplexmult run_test_zminMax ) +if(TEST_FORTRAN_COMPILER) + add_dependencies(${LAPACKLIB} + run_test_zcomplexabs run_test_zcomplexdiv + run_test_zcomplexmult run_test_zminMax) endif() if(USE_XBLAS) diff --git a/SRC/lapack_64.h b/SRC/lapack_64.h deleted file mode 100644 index 3b9d4275a..000000000 --- a/SRC/lapack_64.h +++ /dev/null @@ -1,2293 +0,0 @@ -#ifndef LAPACK_64_H -#define LAPACK_64_H -#ifdef LAPACK_64 - -#define BLAS_CGBMV_X BLAS_CGBMV_X_64 -#define BLAS_CGEMV_X BLAS_CGEMV_X_64 -#define BLAS_CHEMV_X BLAS_CHEMV_X_64 -#define BLAS_CSYMV_X BLAS_CSYMV_X_64 -#define BLAS_DGBMV_X BLAS_DGBMV_X_64 -#define BLAS_DGEMV_X BLAS_DGEMV_X_64 -#define BLAS_DSYMV_X BLAS_DSYMV_X_64 -#define BLAS_SGBMV_X BLAS_SGBMV_X_64 -#define BLAS_SGEMV_X BLAS_SGEMV_X_64 -#define BLAS_SSYMV_X BLAS_SSYMV_X_64 -#define BLAS_ZGBMV_X BLAS_ZGBMV_X_64 -#define BLAS_ZGEMV_X BLAS_ZGEMV_X_64 -#define BLAS_ZHEMV_X BLAS_ZHEMV_X_64 -#define BLAS_ZSYMV_X BLAS_ZSYMV_X_64 -#define CAXPY CAXPY_64 -#define CBBCSD CBBCSD_64 -#define CBDSQR CBDSQR_64 -#define CCOPY CCOPY_64 -#define CDOTC CDOTC_64 -#define CDOTU CDOTU_64 -#define CGBBRD CGBBRD_64 -#define CGBCON CGBCON_64 -#define CGBEQU CGBEQU_64 -#define CGBEQUB CGBEQUB_64 -#define CGBMV CGBMV_64 -#define CGBRFS CGBRFS_64 -#define CGBRFSX CGBRFSX_64 -#define CGBSV CGBSV_64 -#define CGBSVX CGBSVX_64 -#define CGBSVXX CGBSVXX_64 -#define CGBTF2 CGBTF2_64 -#define CGBTRF CGBTRF_64 -#define CGBTRS CGBTRS_64 -#define CGEBAK CGEBAK_64 -#define CGEBAL CGEBAL_64 -#define CGEBD2 CGEBD2_64 -#define CGEBRD CGEBRD_64 -#define CGECON CGECON_64 -#define CGEDMD CGEDMD_64 -#define CGEDMDQ CGEDMDQ_64 -#define CGEEQU CGEEQU_64 -#define CGEEQUB CGEEQUB_64 -#define CGEES CGEES_64 -#define CGEESX CGEESX_64 -#define CGEEV CGEEV_64 -#define CGEEVX CGEEVX_64 -#define CGEGS CGEGS_64 -#define CGEGV CGEGV_64 -#define CGEHD2 CGEHD2_64 -#define CGEHRD CGEHRD_64 -#define CGEJSV CGEJSV_64 -#define CGELQ CGELQ_64 -#define CGELQ2 CGELQ2_64 -#define CGELQF CGELQF_64 -#define CGELQS CGELQS_64 -#define CGELQT CGELQT_64 -#define CGELQT3 CGELQT3_64 -#define CGELRS CGELRS_64 -#define CGELS CGELS_64 -#define CGELSD CGELSD_64 -#define CGELSS CGELSS_64 -#define CGELST CGELST_64 -#define CGELSX CGELSX_64 -#define CGELSY CGELSY_64 -#define CGEMLQ CGEMLQ_64 -#define CGEMLQT CGEMLQT_64 -#define CGEMM CGEMM_64 -#define CGEMQR CGEMQR_64 -#define CGEMQRT CGEMQRT_64 -#define CGEMV CGEMV_64 -#define CGEQL2 CGEQL2_64 -#define CGEQLF CGEQLF_64 -#define CGEQP3 CGEQP3_64 -#define CGEQP3RK CGEQP3RK_64 -#define CGEQPF CGEQPF_64 -#define CGEQR CGEQR_64 -#define CGEQR2 CGEQR2_64 -#define CGEQR2P CGEQR2P_64 -#define CGEQRF CGEQRF_64 -#define CGEQRF CGEQRF_64 -#define CGEQRFP CGEQRFP_64 -#define CGEQRS CGEQRS_64 -#define CGEQRT CGEQRT_64 -#define CGEQRT2 CGEQRT2_64 -#define CGEQRT3 CGEQRT3_64 -#define CGERC CGERC_64 -#define CGERFS CGERFS_64 -#define CGERFSX CGERFSX_64 -#define CGERQ2 CGERQ2_64 -#define CGERQF CGERQF_64 -#define CGERU CGERU_64 -#define CGESC2 CGESC2_64 -#define CGESDD CGESDD_64 -#define CGESV CGESV_64 -#define CGESVD CGESVD_64 -#define CGESVDQ CGESVDQ_64 -#define CGESVDX CGESVDX_64 -#define CGESVJ CGESVJ_64 -#define CGESVX CGESVX_64 -#define CGESVXX CGESVXX_64 -#define CGETC2 CGETC2_64 -#define CGETF2 CGETF2_64 -#define CGETRF CGETRF_64 -#define CGETRF CGETRF_64 -#define CGETRF2 CGETRF2_64 -#define CGETRI CGETRI_64 -#define CGETRS CGETRS_64 -#define CGETSLS CGETSLS_64 -#define CGETSQRHRT CGETSQRHRT_64 -#define CGGBAK CGGBAK_64 -#define CGGBAL CGGBAL_64 -#define CGGES CGGES_64 -#define CGGES3 CGGES3_64 -#define CGGESX CGGESX_64 -#define CGGEV CGGEV_64 -#define CGGEV3 CGGEV3_64 -#define CGGEVX CGGEVX_64 -#define CGGGLM CGGGLM_64 -#define CGGHD3 CGGHD3_64 -#define CGGHRD CGGHRD_64 -#define CGGLSE CGGLSE_64 -#define CGGQRF CGGQRF_64 -#define CGGRQF CGGRQF_64 -#define CGGSVD CGGSVD_64 -#define CGGSVD3 CGGSVD3_64 -#define CGGSVP CGGSVP_64 -#define CGGSVP3 CGGSVP3_64 -#define CGSVJ0 CGSVJ0_64 -#define CGSVJ1 CGSVJ1_64 -#define CGTCON CGTCON_64 -#define CGTRFS CGTRFS_64 -#define CGTSV CGTSV_64 -#define CGTSVX CGTSVX_64 -#define CGTTRF CGTTRF_64 -#define CGTTRS CGTTRS_64 -#define CGTTS2 CGTTS2_64 -#define CHB2ST_KERNELS CHB2ST_KERNELS_64 -#define CHBEV CHBEV_64 -#define CHBEV_2STAGE CHBEV_2STAGE_64 -#define CHBEVD CHBEVD_64 -#define CHBEVD_2STAGE CHBEVD_2STAGE_64 -#define CHBEVX CHBEVX_64 -#define CHBEVX_2STAGE CHBEVX_2STAGE_64 -#define CHBGST CHBGST_64 -#define CHBGV CHBGV_64 -#define CHBGVD CHBGVD_64 -#define CHBGVX CHBGVX_64 -#define CHBMV CHBMV_64 -#define CHBTRD CHBTRD_64 -#define CHECON CHECON_64 -#define CHECON_3 CHECON_3_64 -#define CHECON_ROOK CHECON_ROOK_64 -#define CHEEQUB CHEEQUB_64 -#define CHEEV CHEEV_64 -#define CHEEV_2STAGE CHEEV_2STAGE_64 -#define CHEEVD CHEEVD_64 -#define CHEEVD_2STAGE CHEEVD_2STAGE_64 -#define CHEEVR CHEEVR_64 -#define CHEEVR_2STAGE CHEEVR_2STAGE_64 -#define CHEEVX CHEEVX_64 -#define CHEEVX_2STAGE CHEEVX_2STAGE_64 -#define CHEGS2 CHEGS2_64 -#define CHEGST CHEGST_64 -#define CHEGV CHEGV_64 -#define CHEGV_2STAGE CHEGV_2STAGE_64 -#define CHEGVD CHEGVD_64 -#define CHEGVX CHEGVX_64 -#define CHEMM CHEMM_64 -#define CHEMV CHEMV_64 -#define CHER CHER_64 -#define CHER2 CHER2_64 -#define CHER2K CHER2K_64 -#define CHERFS CHERFS_64 -#define CHERFSX CHERFSX_64 -#define CHERK CHERK_64 -#define CHESV CHESV_64 -#define CHESV_AA CHESV_AA_64 -#define CHESV_AA_2STAGE CHESV_AA_2STAGE_64 -#define CHESV_RK CHESV_RK_64 -#define CHESV_ROOK CHESV_ROOK_64 -#define CHESVX CHESVX_64 -#define CHESVXX CHESVXX_64 -#define CHESWAPR CHESWAPR_64 -#define CHETD2 CHETD2_64 -#define CHETF2 CHETF2_64 -#define CHETF2_RK CHETF2_RK_64 -#define CHETF2_ROOK CHETF2_ROOK_64 -#define CHETRD CHETRD_64 -#define CHETRD_2STAGE CHETRD_2STAGE_64 -#define CHETRD_HB2ST CHETRD_HB2ST_64 -#define CHETRD_HE2HB CHETRD_HE2HB_64 -#define CHETRF CHETRF_64 -#define CHETRF_AA CHETRF_AA_64 -#define CHETRF_AA_2STAGE CHETRF_AA_2STAGE_64 -#define CHETRF_RK CHETRF_RK_64 -#define CHETRF_ROOK CHETRF_ROOK_64 -#define CHETRI CHETRI_64 -#define CHETRI2 CHETRI2_64 -#define CHETRI2X CHETRI2X_64 -#define CHETRI_3 CHETRI_3_64 -#define CHETRI_3X CHETRI_3X_64 -#define CHETRI_ROOK CHETRI_ROOK_64 -#define CHETRS CHETRS_64 -#define CHETRS2 CHETRS2_64 -#define CHETRS_3 CHETRS_3_64 -#define CHETRS_AA CHETRS_AA_64 -#define CHETRS_AA_2STAGE CHETRS_AA_2STAGE_64 -#define CHETRS_ROOK CHETRS_ROOK_64 -#define CHFRK CHFRK_64 -#define CHGEQZ CHGEQZ_64 -#define CHLA_TRANSTYPE CHLA_TRANSTYPE_64 -#define CHPCON CHPCON_64 -#define CHPEV CHPEV_64 -#define CHPEVD CHPEVD_64 -#define CHPEVX CHPEVX_64 -#define CHPGST CHPGST_64 -#define CHPGV CHPGV_64 -#define CHPGVD CHPGVD_64 -#define CHPGVX CHPGVX_64 -#define CHPMV CHPMV_64 -#define CHPR CHPR_64 -#define CHPR2 CHPR2_64 -#define CHPRFS CHPRFS_64 -#define CHPSV CHPSV_64 -#define CHPSVX CHPSVX_64 -#define CHPTRD CHPTRD_64 -#define CHPTRF CHPTRF_64 -#define CHPTRI CHPTRI_64 -#define CHPTRS CHPTRS_64 -#define CHSEIN CHSEIN_64 -#define CHSEQR CHSEQR_64 -#define CLABRD CLABRD_64 -#define CLACGV CLACGV_64 -#define CLACN2 CLACN2_64 -#define CLACON CLACON_64 -#define CLACP2 CLACP2_64 -#define CLACPY CLACPY_64 -#define CLACRM CLACRM_64 -#define CLACRT CLACRT_64 -#define CLADIV CLADIV_64 -#define CLAED0 CLAED0_64 -#define CLAED7 CLAED7_64 -#define CLAED8 CLAED8_64 -#define CLAEIN CLAEIN_64 -#define CLAESY CLAESY_64 -#define CLAEV2 CLAEV2_64 -#define CLAG2Z CLAG2Z_64 -#define CLA_GBAMV CLA_GBAMV_64 -#define CLA_GBRCOND_C CLA_GBRCOND_C_64 -#define CLA_GBRCOND_X CLA_GBRCOND_X_64 -#define CLA_GBRFSX_EXTENDED CLA_GBRFSX_EXTENDED_64 -#define CLA_GBRPVGRW CLA_GBRPVGRW_64 -#define CLA_GEAMV CLA_GEAMV_64 -#define CLA_GERCOND_C CLA_GERCOND_C_64 -#define CLA_GERCOND_X CLA_GERCOND_X_64 -#define CLA_GERFSX_EXTENDED CLA_GERFSX_EXTENDED_64 -#define CLA_GERPVGRW CLA_GERPVGRW_64 -#define CLAGS2 CLAGS2_64 -#define CLAGTM CLAGTM_64 -#define CLA_HEAMV CLA_HEAMV_64 -#define CLAHEF CLAHEF_64 -#define CLAHEF_AA CLAHEF_AA_64 -#define CLAHEF_RK CLAHEF_RK_64 -#define CLAHEF_ROOK CLAHEF_ROOK_64 -#define CLA_HERCOND_C CLA_HERCOND_C_64 -#define CLA_HERCOND_X CLA_HERCOND_X_64 -#define CLA_HERFSX_EXTENDED CLA_HERFSX_EXTENDED_64 -#define CLA_HERPVGRW CLA_HERPVGRW_64 -#define CLAHQR CLAHQR_64 -#define CLAHR2 CLAHR2_64 -#define CLAHRD CLAHRD_64 -#define CLAIC1 CLAIC1_64 -#define CLA_LIN_BERR CLA_LIN_BERR_64 -#define CLALS0 CLALS0_64 -#define CLALSA CLALSA_64 -#define CLALSD CLALSD_64 -#define CLAMSWLQ CLAMSWLQ_64 -#define CLAMTSQR CLAMTSQR_64 -#define CLANGB CLANGB_64 -#define CLANGE CLANGE_64 -#define CLANGT CLANGT_64 -#define CLANHB CLANHB_64 -#define CLANHE CLANHE_64 -#define CLANHF CLANHF_64 -#define CLANHP CLANHP_64 -#define CLANHS CLANHS_64 -#define CLANHT CLANHT_64 -#define CLANSB CLANSB_64 -#define CLANSP CLANSP_64 -#define CLANSY CLANSY_64 -#define CLANTB CLANTB_64 -#define CLANTP CLANTP_64 -#define CLANTR CLANTR_64 -#define CLAPLL CLAPLL_64 -#define CLAPMR CLAPMR_64 -#define CLAPMT CLAPMT_64 -#define CLA_PORCOND_C CLA_PORCOND_C_64 -#define CLA_PORCOND_X CLA_PORCOND_X_64 -#define CLA_PORFSX_EXTENDED CLA_PORFSX_EXTENDED_64 -#define CLA_PORPVGRW CLA_PORPVGRW_64 -#define CLAQGB CLAQGB_64 -#define CLAQGE CLAQGE_64 -#define CLAQHB CLAQHB_64 -#define CLAQHE CLAQHE_64 -#define CLAQHP CLAQHP_64 -#define CLAQP2 CLAQP2_64 -#define CLAQP2RK CLAQP2RK_64 -#define CLAQP3RK CLAQP3RK_64 -#define CLAQPS CLAQPS_64 -#define CLAQR0 CLAQR0_64 -#define CLAQR1 CLAQR1_64 -#define CLAQR2 CLAQR2_64 -#define CLAQR3 CLAQR3_64 -#define CLAQR4 CLAQR4_64 -#define CLAQR5 CLAQR5_64 -#define CLAQSB CLAQSB_64 -#define CLAQSP CLAQSP_64 -#define CLAQSY CLAQSY_64 -#define CLAQZ0 CLAQZ0_64 -#define CLAQZ1 CLAQZ1_64 -#define CLAQZ2 CLAQZ2_64 -#define CLAQZ3 CLAQZ3_64 -#define CLAR1V CLAR1V_64 -#define CLAR2V CLAR2V_64 -#define CLARCM CLARCM_64 -#define CLARF CLARF_64 -#define CLARF1F CLARF1F_64 -#define CLARF1L CLARF1L_64 -#define CLARFB CLARFB_64 -#define CLARFB_GETT CLARFB_GETT_64 -#define CLARFG CLARFG_64 -#define CLARFGP CLARFGP_64 -#define CLARFT CLARFT_64 -#define CLARFT_LVL2 CLARFT_LVL2_64 -#define CLARFX CLARFX_64 -#define CLARFY CLARFY_64 -#define CLARGV CLARGV_64 -#define CLARNV CLARNV_64 -#define CLARRV CLARRV_64 -#define CLARSCL2 CLARSCL2_64 -#define CLARTG CLARTG_64 -#define CLARTV CLARTV_64 -#define CLARZ CLARZ_64 -#define CLARZB CLARZB_64 -#define CLARZT CLARZT_64 -#define CLASCL CLASCL_64 -#define CLASCL2 CLASCL2_64 -#define CLASET CLASET_64 -#define CLASR CLASR_64 -#define CLASSQ CLASSQ_64 -#define CLASWLQ CLASWLQ_64 -#define CLASWP CLASWP_64 -#define CLA_SYAMV CLA_SYAMV_64 -#define CLASYF CLASYF_64 -#define CLASYF_AA CLASYF_AA_64 -#define CLASYF_RK CLASYF_RK_64 -#define CLASYF_ROOK CLASYF_ROOK_64 -#define CLA_SYRCOND_C CLA_SYRCOND_C_64 -#define CLA_SYRCOND_X CLA_SYRCOND_X_64 -#define CLA_SYRFSX_EXTENDED CLA_SYRFSX_EXTENDED_64 -#define CLA_SYRPVGRW CLA_SYRPVGRW_64 -#define CLATBS CLATBS_64 -#define CLATDF CLATDF_64 -#define CLATPS CLATPS_64 -#define CLATRD CLATRD_64 -#define CLATRS CLATRS_64 -#define CLATRS3 CLATRS3_64 -#define CLATRZ CLATRZ_64 -#define CLATSQR CLATSQR_64 -#define CLATZM CLATZM_64 -#define CLAUNHR_COL_GETRFNP CLAUNHR_COL_GETRFNP_64 -#define CLAUNHR_COL_GETRFNP2 CLAUNHR_COL_GETRFNP2_64 -#define CLAUU2 CLAUU2_64 -#define CLAUUM CLAUUM_64 -#define CLA_WWADDW CLA_WWADDW_64 -#define CPBCON CPBCON_64 -#define CPBEQU CPBEQU_64 -#define CPBRFS CPBRFS_64 -#define CPBSTF CPBSTF_64 -#define CPBSV CPBSV_64 -#define CPBSVX CPBSVX_64 -#define CPBTF2 CPBTF2_64 -#define CPBTRF CPBTRF_64 -#define CPBTRS CPBTRS_64 -#define CPFTRF CPFTRF_64 -#define CPFTRI CPFTRI_64 -#define CPFTRS CPFTRS_64 -#define CPOCON CPOCON_64 -#define CPOEQU CPOEQU_64 -#define CPOEQUB CPOEQUB_64 -#define CPORFS CPORFS_64 -#define CPORFSX CPORFSX_64 -#define CPOSV CPOSV_64 -#define CPOSVX CPOSVX_64 -#define CPOSVXX CPOSVXX_64 -#define CPOTF2 CPOTF2_64 -#define CPOTRF CPOTRF_64 -#define CPOTRF CPOTRF_64 -#define CPOTRF2 CPOTRF2_64 -#define CPOTRI CPOTRI_64 -#define CPOTRS CPOTRS_64 -#define CPPCON CPPCON_64 -#define CPPEQU CPPEQU_64 -#define CPPRFS CPPRFS_64 -#define CPPSV CPPSV_64 -#define CPPSVX CPPSVX_64 -#define CPPTRF CPPTRF_64 -#define CPPTRI CPPTRI_64 -#define CPPTRS CPPTRS_64 -#define CPSTF2 CPSTF2_64 -#define CPSTRF CPSTRF_64 -#define CPTCON CPTCON_64 -#define CPTEQR CPTEQR_64 -#define CPTRFS CPTRFS_64 -#define CPTSV CPTSV_64 -#define CPTSVX CPTSVX_64 -#define CPTTRF CPTTRF_64 -#define CPTTRS CPTTRS_64 -#define CPTTS2 CPTTS2_64 -#define CROT CROT_64 -#define CRSCL CRSCL_64 -#define CSCAL CSCAL_64 -#define CSPCON CSPCON_64 -#define CSPMV CSPMV_64 -#define CSPR CSPR_64 -#define CSPRFS CSPRFS_64 -#define CSPSV CSPSV_64 -#define CSPSVX CSPSVX_64 -#define CSPTRF CSPTRF_64 -#define CSPTRI CSPTRI_64 -#define CSPTRS CSPTRS_64 -#define CSROT CSROT_64 -#define CSRSCL CSRSCL_64 -#define CSSCAL CSSCAL_64 -#define CSTEDC CSTEDC_64 -#define CSTEGR CSTEGR_64 -#define CSTEIN CSTEIN_64 -#define CSTEMR CSTEMR_64 -#define CSTEQR CSTEQR_64 -#define CSWAP CSWAP_64 -#define CSYCON CSYCON_64 -#define CSYCON_3 CSYCON_3_64 -#define CSYCON_ROOK CSYCON_ROOK_64 -#define CSYCONV CSYCONV_64 -#define CSYCONVF CSYCONVF_64 -#define CSYCONVF_ROOK CSYCONVF_ROOK_64 -#define CSYEQUB CSYEQUB_64 -#define CSYMV CSYMV_64 -#define CSYR CSYR_64 -#define CSYRFS CSYRFS_64 -#define CSYRFSX CSYRFSX_64 -#define CSYSV CSYSV_64 -#define CSYSV_AA CSYSV_AA_64 -#define CSYSV_AA_2STAGE CSYSV_AA_2STAGE_64 -#define CSYSV_RK CSYSV_RK_64 -#define CSYSV_ROOK CSYSV_ROOK_64 -#define CSYSVX CSYSVX_64 -#define CSYSVXX CSYSVXX_64 -#define CSYSWAPR CSYSWAPR_64 -#define CSYTF2 CSYTF2_64 -#define CSYTF2_RK CSYTF2_RK_64 -#define CSYTF2_ROOK CSYTF2_ROOK_64 -#define CSYTRF CSYTRF_64 -#define CSYTRF_AA CSYTRF_AA_64 -#define CSYTRF_AA_2STAGE CSYTRF_AA_2STAGE_64 -#define CSYTRF_RK CSYTRF_RK_64 -#define CSYTRF_ROOK CSYTRF_ROOK_64 -#define CSYTRI CSYTRI_64 -#define CSYTRI2 CSYTRI2_64 -#define CSYTRI2X CSYTRI2X_64 -#define CSYTRI_3 CSYTRI_3_64 -#define CSYTRI_3X CSYTRI_3X_64 -#define CSYTRI_ROOK CSYTRI_ROOK_64 -#define CSYTRS CSYTRS_64 -#define CSYTRS2 CSYTRS2_64 -#define CSYTRS_3 CSYTRS_3_64 -#define CSYTRS_AA CSYTRS_AA_64 -#define CSYTRS_AA_2STAGE CSYTRS_AA_2STAGE_64 -#define CSYTRS_ROOK CSYTRS_ROOK_64 -#define CTBCON CTBCON_64 -#define CTBMV CTBMV_64 -#define CTBRFS CTBRFS_64 -#define CTBSV CTBSV_64 -#define CTBTRS CTBTRS_64 -#define CTFSM CTFSM_64 -#define CTFTRI CTFTRI_64 -#define CTFTTP CTFTTP_64 -#define CTFTTR CTFTTR_64 -#define CTGEVC CTGEVC_64 -#define CTGEX2 CTGEX2_64 -#define CTGEXC CTGEXC_64 -#define CTGSEN CTGSEN_64 -#define CTGSJA CTGSJA_64 -#define CTGSNA CTGSNA_64 -#define CTGSY2 CTGSY2_64 -#define CTGSYL CTGSYL_64 -#define CTPCON CTPCON_64 -#define CTPLQT CTPLQT_64 -#define CTPLQT2 CTPLQT2_64 -#define CTPMLQT CTPMLQT_64 -#define CTPMQRT CTPMQRT_64 -#define CTPMV CTPMV_64 -#define CTPQRT CTPQRT_64 -#define CTPQRT2 CTPQRT2_64 -#define CTPRFB CTPRFB_64 -#define CTPRFS CTPRFS_64 -#define CTPSV CTPSV_64 -#define CTPTRI CTPTRI_64 -#define CTPTRS CTPTRS_64 -#define CTPTTF CTPTTF_64 -#define CTPTTR CTPTTR_64 -#define CTRCON CTRCON_64 -#define CTREVC CTREVC_64 -#define CTREVC3 CTREVC3_64 -#define CTREXC CTREXC_64 -#define CTRMM CTRMM_64 -#define CTRMV CTRMV_64 -#define CTRRFS CTRRFS_64 -#define CTRSEN CTRSEN_64 -#define CTRSM CTRSM_64 -#define CTRSNA CTRSNA_64 -#define CTRSV CTRSV_64 -#define CTRSYL CTRSYL_64 -#define CTRSYL3 CTRSYL3_64 -#define CTRTI2 CTRTI2_64 -#define CTRTRI CTRTRI_64 -#define CTRTRS CTRTRS_64 -#define CTRTTF CTRTTF_64 -#define CTRTTP CTRTTP_64 -#define CTZRQF CTZRQF_64 -#define CTZRZF CTZRZF_64 -#define CUNBDB CUNBDB_64 -#define CUNBDB1 CUNBDB1_64 -#define CUNBDB2 CUNBDB2_64 -#define CUNBDB3 CUNBDB3_64 -#define CUNBDB4 CUNBDB4_64 -#define CUNBDB5 CUNBDB5_64 -#define CUNBDB6 CUNBDB6_64 -#define CUNCSD CUNCSD_64 -#define CUNCSD2BY1 CUNCSD2BY1_64 -#define CUNG2L CUNG2L_64 -#define CUNG2R CUNG2R_64 -#define CUNGBR CUNGBR_64 -#define CUNGHR CUNGHR_64 -#define CUNGL2 CUNGL2_64 -#define CUNGLQ CUNGLQ_64 -#define CUNGQL CUNGQL_64 -#define CUNGQR CUNGQR_64 -#define CUNGR2 CUNGR2_64 -#define CUNGRQ CUNGRQ_64 -#define CUNGTR CUNGTR_64 -#define CUNGTSQR CUNGTSQR_64 -#define CUNGTSQR_ROW CUNGTSQR_ROW_64 -#define CUNHR_COL CUNHR_COL_64 -#define CUNM22 CUNM22_64 -#define CUNM2L CUNM2L_64 -#define CUNM2R CUNM2R_64 -#define CUNMBR CUNMBR_64 -#define CUNMHR CUNMHR_64 -#define CUNML2 CUNML2_64 -#define CUNMLQ CUNMLQ_64 -#define CUNMQL CUNMQL_64 -#define CUNMQR CUNMQR_64 -#define CUNMR2 CUNMR2_64 -#define CUNMR3 CUNMR3_64 -#define CUNMRQ CUNMRQ_64 -#define CUNMRZ CUNMRZ_64 -#define CUNMTR CUNMTR_64 -#define CUPGTR CUPGTR_64 -#define CUPMTR CUPMTR_64 -#define DASUM DASUM_64 -#define DAXPY DAXPY_64 -#define DBBCSD DBBCSD_64 -#define DBDSDC DBDSDC_64 -#define DBDSQR DBDSQR_64 -#define DBDSVDX DBDSVDX_64 -#define DCOPY DCOPY_64 -#define DDISNA DDISNA_64 -#define DDOT DDOT_64 -#define DGBBRD DGBBRD_64 -#define DGBCON DGBCON_64 -#define DGBEQU DGBEQU_64 -#define DGBEQUB DGBEQUB_64 -#define DGBMV DGBMV_64 -#define DGBRFS DGBRFS_64 -#define DGBRFSX DGBRFSX_64 -#define DGBSV DGBSV_64 -#define DGBSVX DGBSVX_64 -#define DGBSVXX DGBSVXX_64 -#define DGBTF2 DGBTF2_64 -#define DGBTRF DGBTRF_64 -#define DGBTRS DGBTRS_64 -#define DGEBAK DGEBAK_64 -#define DGEBAL DGEBAL_64 -#define DGEBD2 DGEBD2_64 -#define DGEBRD DGEBRD_64 -#define DGECON DGECON_64 -#define DGEDMD DGEDMD_64 -#define DGEDMD DGEDMD_64 -#define DGEDMDQ DGEDMDQ_64 -#define DGEEQU DGEEQU_64 -#define DGEEQUB DGEEQUB_64 -#define DGEES DGEES_64 -#define DGEESX DGEESX_64 -#define DGEEV DGEEV_64 -#define DGEEVX DGEEVX_64 -#define DGEGS DGEGS_64 -#define DGEGV DGEGV_64 -#define DGEHD2 DGEHD2_64 -#define DGEHRD DGEHRD_64 -#define DGEJSV DGEJSV_64 -#define DGELQ DGELQ_64 -#define DGELQ2 DGELQ2_64 -#define DGELQF DGELQF_64 -#define DGELQS DGELQS_64 -#define DGELQT DGELQT_64 -#define DGELQT3 DGELQT3_64 -#define DGELRS DGELRS_64 -#define DGELS DGELS_64 -#define DGELSD DGELSD_64 -#define DGELSS DGELSS_64 -#define DGELST DGELST_64 -#define DGELSX DGELSX_64 -#define DGELSY DGELSY_64 -#define DGEMLQ DGEMLQ_64 -#define DGEMLQT DGEMLQT_64 -#define DGEMM DGEMM_64 -#define DGEMQR DGEMQR_64 -#define DGEMQRT DGEMQRT_64 -#define DGEMV DGEMV_64 -#define DGEQL2 DGEQL2_64 -#define DGEQLF DGEQLF_64 -#define DGEQP3 DGEQP3_64 -#define DGEQP3RK DGEQP3RK_64 -#define DGEQPF DGEQPF_64 -#define DGEQR DGEQR_64 -#define DGEQR2 DGEQR2_64 -#define DGEQR2P DGEQR2P_64 -#define DGEQRF DGEQRF_64 -#define DGEQRF DGEQRF_64 -#define DGEQRFP DGEQRFP_64 -#define DGEQRS DGEQRS_64 -#define DGEQRT DGEQRT_64 -#define DGEQRT2 DGEQRT2_64 -#define DGEQRT3 DGEQRT3_64 -#define DGER DGER_64 -#define DGERFS DGERFS_64 -#define DGERFSX DGERFSX_64 -#define DGERQ2 DGERQ2_64 -#define DGERQF DGERQF_64 -#define DGESC2 DGESC2_64 -#define DGESDD DGESDD_64 -#define DGESV DGESV_64 -#define DGESVD DGESVD_64 -#define DGESVDQ DGESVDQ_64 -#define DGESVDX DGESVDX_64 -#define DGESVJ DGESVJ_64 -#define DGESVX DGESVX_64 -#define DGESVXX DGESVXX_64 -#define DGETC2 DGETC2_64 -#define DGETF2 DGETF2_64 -#define DGETRF DGETRF_64 -#define DGETRF DGETRF_64 -#define DGETRF2 DGETRF2_64 -#define DGETRI DGETRI_64 -#define DGETRS DGETRS_64 -#define DGETSLS DGETSLS_64 -#define DGETSQRHRT DGETSQRHRT_64 -#define DGGBAK DGGBAK_64 -#define DGGBAL DGGBAL_64 -#define DGGES DGGES_64 -#define DGGES3 DGGES3_64 -#define DGGESX DGGESX_64 -#define DGGEV DGGEV_64 -#define DGGEV3 DGGEV3_64 -#define DGGEVX DGGEVX_64 -#define DGGGLM DGGGLM_64 -#define DGGHD3 DGGHD3_64 -#define DGGHRD DGGHRD_64 -#define DGGLSE DGGLSE_64 -#define DGGQRF DGGQRF_64 -#define DGGRQF DGGRQF_64 -#define DGGSVD DGGSVD_64 -#define DGGSVD3 DGGSVD3_64 -#define DGGSVP DGGSVP_64 -#define DGGSVP3 DGGSVP3_64 -#define DGSVJ0 DGSVJ0_64 -#define DGSVJ1 DGSVJ1_64 -#define DGTCON DGTCON_64 -#define DGTRFS DGTRFS_64 -#define DGTSV DGTSV_64 -#define DGTSVX DGTSVX_64 -#define DGTTRF DGTTRF_64 -#define DGTTRS DGTTRS_64 -#define DGTTS2 DGTTS2_64 -#define DHGEQZ DHGEQZ_64 -#define DHSEIN DHSEIN_64 -#define DHSEQR DHSEQR_64 -#define DISNAN DISNAN_64 -#define DLABAD DLABAD_64 -#define DLABRD DLABRD_64 -#define DLACN2 DLACN2_64 -#define DLACON DLACON_64 -#define DLACPY DLACPY_64 -#define DLADIV DLADIV_64 -#define DLADIV1 DLADIV1_64 -#define DLADIV2 DLADIV2_64 -#define DLAE2 DLAE2_64 -#define DLAEBZ DLAEBZ_64 -#define DLAED0 DLAED0_64 -#define DLAED1 DLAED1_64 -#define DLAED2 DLAED2_64 -#define DLAED3 DLAED3_64 -#define DLAED4 DLAED4_64 -#define DLAED5 DLAED5_64 -#define DLAED6 DLAED6_64 -#define DLAED7 DLAED7_64 -#define DLAED8 DLAED8_64 -#define DLAED9 DLAED9_64 -#define DLAEDA DLAEDA_64 -#define DLAEIN DLAEIN_64 -#define DLAEV2 DLAEV2_64 -#define DLAEXC DLAEXC_64 -#define DLAG2 DLAG2_64 -#define DLAG2S DLAG2S_64 -#define DLA_GBAMV DLA_GBAMV_64 -#define DLA_GBRCOND DLA_GBRCOND_64 -#define DLA_GBRFSX_EXTENDED DLA_GBRFSX_EXTENDED_64 -#define DLA_GBRPVGRW DLA_GBRPVGRW_64 -#define DLA_GEAMV DLA_GEAMV_64 -#define DLA_GERCOND DLA_GERCOND_64 -#define DLA_GERFSX_EXTENDED DLA_GERFSX_EXTENDED_64 -#define DLA_GERPVGRW DLA_GERPVGRW_64 -#define DLAGS2 DLAGS2_64 -#define DLAGTF DLAGTF_64 -#define DLAGTM DLAGTM_64 -#define DLAGTS DLAGTS_64 -#define DLAGV2 DLAGV2_64 -#define DLAHQR DLAHQR_64 -#define DLAHR2 DLAHR2_64 -#define DLAHRD DLAHRD_64 -#define DLAIC1 DLAIC1_64 -#define DLAISNAN DLAISNAN_64 -#define DLA_LIN_BERR DLA_LIN_BERR_64 -#define DLALN2 DLALN2_64 -#define DLALS0 DLALS0_64 -#define DLALSA DLALSA_64 -#define DLALSD DLALSD_64 -#define DLAMC3 DLAMC3_64 -#define DLAMCH DLAMCH_64 -#define DLAMRG DLAMRG_64 -#define DLAMSWLQ DLAMSWLQ_64 -#define DLAMTSQR DLAMTSQR_64 -#define DLANEG DLANEG_64 -#define DLANGB DLANGB_64 -#define DLANGE DLANGE_64 -#define DLANGT DLANGT_64 -#define DLANHS DLANHS_64 -#define DLANSB DLANSB_64 -#define DLANSF DLANSF_64 -#define DLANSP DLANSP_64 -#define DLANST DLANST_64 -#define DLANSY DLANSY_64 -#define DLANTB DLANTB_64 -#define DLANTP DLANTP_64 -#define DLANTR DLANTR_64 -#define DLANV2 DLANV2_64 -#define DLAORHR_COL_GETRFNP DLAORHR_COL_GETRFNP_64 -#define DLAORHR_COL_GETRFNP2 DLAORHR_COL_GETRFNP2_64 -#define DLAPLL DLAPLL_64 -#define DLAPMR DLAPMR_64 -#define DLAPMT DLAPMT_64 -#define DLA_PORCOND DLA_PORCOND_64 -#define DLA_PORFSX_EXTENDED DLA_PORFSX_EXTENDED_64 -#define DLA_PORPVGRW DLA_PORPVGRW_64 -#define DLAPY2 DLAPY2_64 -#define DLAPY3 DLAPY3_64 -#define DLAQGB DLAQGB_64 -#define DLAQGE DLAQGE_64 -#define DLAQP2 DLAQP2_64 -#define DLAQP2RK DLAQP2RK_64 -#define DLAQP3RK DLAQP3RK_64 -#define DLAQPS DLAQPS_64 -#define DLAQR0 DLAQR0_64 -#define DLAQR1 DLAQR1_64 -#define DLAQR2 DLAQR2_64 -#define DLAQR3 DLAQR3_64 -#define DLAQR4 DLAQR4_64 -#define DLAQR5 DLAQR5_64 -#define DLAQSB DLAQSB_64 -#define DLAQSP DLAQSP_64 -#define DLAQSY DLAQSY_64 -#define DLAQTR DLAQTR_64 -#define DLAQZ0 DLAQZ0_64 -#define DLAQZ1 DLAQZ1_64 -#define DLAQZ2 DLAQZ2_64 -#define DLAQZ3 DLAQZ3_64 -#define DLAQZ4 DLAQZ4_64 -#define DLAR1V DLAR1V_64 -#define DLAR2V DLAR2V_64 -#define DLARF DLARF_64 -#define DLARF1F DLARF1F_64 -#define DLARF1L DLARF1L_64 -#define DLARFB DLARFB_64 -#define DLARFB_GETT DLARFB_GETT_64 -#define DLARFG DLARFG_64 -#define DLARFGP DLARFGP_64 -#define DLARFT DLARFT_64 -#define DLARFT_LVL2 DLARFT_LVL2_64 -#define DLARFX DLARFX_64 -#define DLARFY DLARFY_64 -#define DLARGV DLARGV_64 -#define DLARMM DLARMM_64 -#define DLARNV DLARNV_64 -#define DLARRA DLARRA_64 -#define DLARRB DLARRB_64 -#define DLARRC DLARRC_64 -#define DLARRD DLARRD_64 -#define DLARRE DLARRE_64 -#define DLARRF DLARRF_64 -#define DLARRJ DLARRJ_64 -#define DLARRK DLARRK_64 -#define DLARRR DLARRR_64 -#define DLARRV DLARRV_64 -#define DLARSCL2 DLARSCL2_64 -#define DLARTG DLARTG_64 -#define DLARTGP DLARTGP_64 -#define DLARTGS DLARTGS_64 -#define DLARTV DLARTV_64 -#define DLARUV DLARUV_64 -#define DLARZ DLARZ_64 -#define DLARZB DLARZB_64 -#define DLARZT DLARZT_64 -#define DLAS2 DLAS2_64 -#define DLASCL DLASCL_64 -#define DLASCL2 DLASCL2_64 -#define DLASD0 DLASD0_64 -#define DLASD1 DLASD1_64 -#define DLASD2 DLASD2_64 -#define DLASD3 DLASD3_64 -#define DLASD4 DLASD4_64 -#define DLASD5 DLASD5_64 -#define DLASD6 DLASD6_64 -#define DLASD7 DLASD7_64 -#define DLASD8 DLASD8_64 -#define DLASDA DLASDA_64 -#define DLASDQ DLASDQ_64 -#define DLASDT DLASDT_64 -#define DLASET DLASET_64 -#define DLASQ1 DLASQ1_64 -#define DLASQ2 DLASQ2_64 -#define DLASQ3 DLASQ3_64 -#define DLASQ4 DLASQ4_64 -#define DLASQ5 DLASQ5_64 -#define DLASQ6 DLASQ6_64 -#define DLASR DLASR_64 -#define DLASRT DLASRT_64 -#define DLASSQ DLASSQ_64 -#define DLASV2 DLASV2_64 -#define DLASWLQ DLASWLQ_64 -#define DLASWP DLASWP_64 -#define DLASY2 DLASY2_64 -#define DLA_SYAMV DLA_SYAMV_64 -#define DLASYF DLASYF_64 -#define DLASYF_AA DLASYF_AA_64 -#define DLASYF_RK DLASYF_RK_64 -#define DLASYF_ROOK DLASYF_ROOK_64 -#define DLA_SYRCOND DLA_SYRCOND_64 -#define DLA_SYRFSX_EXTENDED DLA_SYRFSX_EXTENDED_64 -#define DLA_SYRPVGRW DLA_SYRPVGRW_64 -#define DLAT2S DLAT2S_64 -#define DLATBS DLATBS_64 -#define DLATDF DLATDF_64 -#define DLATPS DLATPS_64 -#define DLATRD DLATRD_64 -#define DLATRS DLATRS_64 -#define DLATRS3 DLATRS3_64 -#define DLATRZ DLATRZ_64 -#define DLATSQR DLATSQR_64 -#define DLATZM DLATZM_64 -#define DLAUU2 DLAUU2_64 -#define DLAUUM DLAUUM_64 -#define DLA_WWADDW DLA_WWADDW_64 -#define DNRM2 DNRM2_64 -#define DOPGTR DOPGTR_64 -#define DOPMTR DOPMTR_64 -#define DORBDB DORBDB_64 -#define DORBDB1 DORBDB1_64 -#define DORBDB2 DORBDB2_64 -#define DORBDB3 DORBDB3_64 -#define DORBDB4 DORBDB4_64 -#define DORBDB5 DORBDB5_64 -#define DORBDB6 DORBDB6_64 -#define DORCSD DORCSD_64 -#define DORCSD2BY1 DORCSD2BY1_64 -#define DORG2L DORG2L_64 -#define DORG2R DORG2R_64 -#define DORGBR DORGBR_64 -#define DORGHR DORGHR_64 -#define DORGL2 DORGL2_64 -#define DORGLQ DORGLQ_64 -#define DORGQL DORGQL_64 -#define DORGQR DORGQR_64 -#define DORGR2 DORGR2_64 -#define DORGRQ DORGRQ_64 -#define DORGTR DORGTR_64 -#define DORGTSQR DORGTSQR_64 -#define DORGTSQR_ROW DORGTSQR_ROW_64 -#define DORHR_COL DORHR_COL_64 -#define DORM22 DORM22_64 -#define DORM2L DORM2L_64 -#define DORM2R DORM2R_64 -#define DORMBR DORMBR_64 -#define DORMHR DORMHR_64 -#define DORML2 DORML2_64 -#define DORMLQ DORMLQ_64 -#define DORMQL DORMQL_64 -#define DORMQR DORMQR_64 -#define DORMR2 DORMR2_64 -#define DORMR3 DORMR3_64 -#define DORMRQ DORMRQ_64 -#define DORMRZ DORMRZ_64 -#define DORMTR DORMTR_64 -#define DPBCON DPBCON_64 -#define DPBEQU DPBEQU_64 -#define DPBRFS DPBRFS_64 -#define DPBSTF DPBSTF_64 -#define DPBSV DPBSV_64 -#define DPBSVX DPBSVX_64 -#define DPBTF2 DPBTF2_64 -#define DPBTRF DPBTRF_64 -#define DPBTRS DPBTRS_64 -#define DPFTRF DPFTRF_64 -#define DPFTRI DPFTRI_64 -#define DPFTRS DPFTRS_64 -#define DPOCON DPOCON_64 -#define DPOEQU DPOEQU_64 -#define DPOEQUB DPOEQUB_64 -#define DPORFS DPORFS_64 -#define DPORFSX DPORFSX_64 -#define DPOSV DPOSV_64 -#define DPOSVX DPOSVX_64 -#define DPOSVXX DPOSVXX_64 -#define DPOTF2 DPOTF2_64 -#define DPOTRF DPOTRF_64 -#define DPOTRF DPOTRF_64 -#define DPOTRF2 DPOTRF2_64 -#define DPOTRI DPOTRI_64 -#define DPOTRS DPOTRS_64 -#define DPPCON DPPCON_64 -#define DPPEQU DPPEQU_64 -#define DPPRFS DPPRFS_64 -#define DPPSV DPPSV_64 -#define DPPSVX DPPSVX_64 -#define DPPTRF DPPTRF_64 -#define DPPTRI DPPTRI_64 -#define DPPTRS DPPTRS_64 -#define DPSTF2 DPSTF2_64 -#define DPSTRF DPSTRF_64 -#define DPTCON DPTCON_64 -#define DPTEQR DPTEQR_64 -#define DPTRFS DPTRFS_64 -#define DPTSV DPTSV_64 -#define DPTSVX DPTSVX_64 -#define DPTTRF DPTTRF_64 -#define DPTTRS DPTTRS_64 -#define DPTTS2 DPTTS2_64 -#define DROT DROT_64 -#define DROTM DROTM_64 -#define DROUNDUP_LWORK DROUNDUP_LWORK_64 -#define DRSCL DRSCL_64 -#define DSB2ST_KERNELS DSB2ST_KERNELS_64 -#define DSBEV DSBEV_64 -#define DSBEV_2STAGE DSBEV_2STAGE_64 -#define DSBEVD DSBEVD_64 -#define DSBEVD_2STAGE DSBEVD_2STAGE_64 -#define DSBEVX DSBEVX_64 -#define DSBEVX_2STAGE DSBEVX_2STAGE_64 -#define DSBGST DSBGST_64 -#define DSBGV DSBGV_64 -#define DSBGVD DSBGVD_64 -#define DSBGVX DSBGVX_64 -#define DSBMV DSBMV_64 -#define DSBTRD DSBTRD_64 -#define DSCAL DSCAL_64 -#define DSECND DSECND_64 -#define DSFRK DSFRK_64 -#define DSGESV DSGESV_64 -#define DSPCON DSPCON_64 -#define DSPEV DSPEV_64 -#define DSPEVD DSPEVD_64 -#define DSPEVX DSPEVX_64 -#define DSPGST DSPGST_64 -#define DSPGV DSPGV_64 -#define DSPGVD DSPGVD_64 -#define DSPGVX DSPGVX_64 -#define DSPMV DSPMV_64 -#define DSPOSV DSPOSV_64 -#define DSPR DSPR_64 -#define DSPR2 DSPR2_64 -#define DSPRFS DSPRFS_64 -#define DSPSV DSPSV_64 -#define DSPSVX DSPSVX_64 -#define DSPTRD DSPTRD_64 -#define DSPTRF DSPTRF_64 -#define DSPTRI DSPTRI_64 -#define DSPTRS DSPTRS_64 -#define DSTEBZ DSTEBZ_64 -#define DSTEDC DSTEDC_64 -#define DSTEGR DSTEGR_64 -#define DSTEIN DSTEIN_64 -#define DSTEMR DSTEMR_64 -#define DSTEQR DSTEQR_64 -#define DSTERF DSTERF_64 -#define DSTEV DSTEV_64 -#define DSTEVD DSTEVD_64 -#define DSTEVR DSTEVR_64 -#define DSTEVX DSTEVX_64 -#define DSWAP DSWAP_64 -#define DSYCON DSYCON_64 -#define DSYCON_3 DSYCON_3_64 -#define DSYCON_ROOK DSYCON_ROOK_64 -#define DSYCONV DSYCONV_64 -#define DSYCONVF DSYCONVF_64 -#define DSYCONVF_ROOK DSYCONVF_ROOK_64 -#define DSYEQUB DSYEQUB_64 -#define DSYEV DSYEV_64 -#define DSYEV_2STAGE DSYEV_2STAGE_64 -#define DSYEVD DSYEVD_64 -#define DSYEVD_2STAGE DSYEVD_2STAGE_64 -#define DSYEVR DSYEVR_64 -#define DSYEVR_2STAGE DSYEVR_2STAGE_64 -#define DSYEVX DSYEVX_64 -#define DSYEVX_2STAGE DSYEVX_2STAGE_64 -#define DSYGS2 DSYGS2_64 -#define DSYGST DSYGST_64 -#define DSYGV DSYGV_64 -#define DSYGV_2STAGE DSYGV_2STAGE_64 -#define DSYGVD DSYGVD_64 -#define DSYGVX DSYGVX_64 -#define DSYMM DSYMM_64 -#define DSYMV DSYMV_64 -#define DSYR DSYR_64 -#define DSYR2 DSYR2_64 -#define DSYR2K DSYR2K_64 -#define DSYRFS DSYRFS_64 -#define DSYRFSX DSYRFSX_64 -#define DSYRK DSYRK_64 -#define DSYSV DSYSV_64 -#define DSYSV_AA DSYSV_AA_64 -#define DSYSV_AA_2STAGE DSYSV_AA_2STAGE_64 -#define DSYSV_RK DSYSV_RK_64 -#define DSYSV_ROOK DSYSV_ROOK_64 -#define DSYSVX DSYSVX_64 -#define DSYSVXX DSYSVXX_64 -#define DSYSWAPR DSYSWAPR_64 -#define DSYTD2 DSYTD2_64 -#define DSYTF2 DSYTF2_64 -#define DSYTF2_RK DSYTF2_RK_64 -#define DSYTF2_ROOK DSYTF2_ROOK_64 -#define DSYTRD DSYTRD_64 -#define DSYTRD_2STAGE DSYTRD_2STAGE_64 -#define DSYTRD_SB2ST DSYTRD_SB2ST_64 -#define DSYTRD_SY2SB DSYTRD_SY2SB_64 -#define DSYTRF DSYTRF_64 -#define DSYTRF_AA DSYTRF_AA_64 -#define DSYTRF_AA_2STAGE DSYTRF_AA_2STAGE_64 -#define DSYTRF_RK DSYTRF_RK_64 -#define DSYTRF_ROOK DSYTRF_ROOK_64 -#define DSYTRI DSYTRI_64 -#define DSYTRI2 DSYTRI2_64 -#define DSYTRI2X DSYTRI2X_64 -#define DSYTRI_3 DSYTRI_3_64 -#define DSYTRI_3X DSYTRI_3X_64 -#define DSYTRI_ROOK DSYTRI_ROOK_64 -#define DSYTRS DSYTRS_64 -#define DSYTRS2 DSYTRS2_64 -#define DSYTRS_3 DSYTRS_3_64 -#define DSYTRS_AA DSYTRS_AA_64 -#define DSYTRS_AA_2STAGE DSYTRS_AA_2STAGE_64 -#define DSYTRS_ROOK DSYTRS_ROOK_64 -#define DTBCON DTBCON_64 -#define DTBMV DTBMV_64 -#define DTBRFS DTBRFS_64 -#define DTBSV DTBSV_64 -#define DTBTRS DTBTRS_64 -#define DTFSM DTFSM_64 -#define DTFTRI DTFTRI_64 -#define DTFTTP DTFTTP_64 -#define DTFTTR DTFTTR_64 -#define DTGEVC DTGEVC_64 -#define DTGEX2 DTGEX2_64 -#define DTGEXC DTGEXC_64 -#define DTGSEN DTGSEN_64 -#define DTGSJA DTGSJA_64 -#define DTGSNA DTGSNA_64 -#define DTGSY2 DTGSY2_64 -#define DTGSYL DTGSYL_64 -#define DTPCON DTPCON_64 -#define DTPLQT DTPLQT_64 -#define DTPLQT2 DTPLQT2_64 -#define DTPMLQT DTPMLQT_64 -#define DTPMQRT DTPMQRT_64 -#define DTPMV DTPMV_64 -#define DTPQRT DTPQRT_64 -#define DTPQRT2 DTPQRT2_64 -#define DTPRFB DTPRFB_64 -#define DTPRFS DTPRFS_64 -#define DTPSV DTPSV_64 -#define DTPTRI DTPTRI_64 -#define DTPTRS DTPTRS_64 -#define DTPTTF DTPTTF_64 -#define DTPTTR DTPTTR_64 -#define DTRCON DTRCON_64 -#define DTREVC DTREVC_64 -#define DTREVC3 DTREVC3_64 -#define DTREXC DTREXC_64 -#define DTRMM DTRMM_64 -#define DTRMV DTRMV_64 -#define DTRRFS DTRRFS_64 -#define DTRSEN DTRSEN_64 -#define DTRSM DTRSM_64 -#define DTRSNA DTRSNA_64 -#define DTRSV DTRSV_64 -#define DTRSYL DTRSYL_64 -#define DTRSYL3 DTRSYL3_64 -#define DTRTI2 DTRTI2_64 -#define DTRTRI DTRTRI_64 -#define DTRTRS DTRTRS_64 -#define DTRTTF DTRTTF_64 -#define DTRTTP DTRTTP_64 -#define DTZRQF DTZRQF_64 -#define DTZRZF DTZRZF_64 -#define DZASUM DZASUM_64 -#define DZNRM2 DZNRM2_64 -#define DZSUM1 DZSUM1_64 -#define ICAMAX ICAMAX_64 -#define ICMAX1 ICMAX1_64 -#define IDAMAX IDAMAX_64 -#define IEEECK IEEECK_64 -#define ILACLC ILACLC_64 -#define ILACLR ILACLR_64 -#define ILADIAG ILADIAG_64 -#define ILADLC ILADLC_64 -#define ILADLR ILADLR_64 -#define ILAENV ILAENV_64 -#define ILAENV2STAGE ILAENV2STAGE_64 -#define ILAPREC ILAPREC_64 -#define ILASLC ILASLC_64 -#define ILASLR ILASLR_64 -#define ILATRANS ILATRANS_64 -#define ILAUPLO ILAUPLO_64 -#define ILAVER ILAVER_64 -#define ILAZLC ILAZLC_64 -#define ILAZLR ILAZLR_64 -#define IPARAM2STAGE IPARAM2STAGE_64 -#define IPARMQ IPARMQ_64 -#define ISAMAX ISAMAX_64 -#define IZAMAX IZAMAX_64 -#define IZMAX1 IZMAX1_64 -#define LSAME LSAME_64 -#define LSAMEN LSAMEN_64 -#define SASUM SASUM_64 -#define SAXPY SAXPY_64 -#define SBBCSD SBBCSD_64 -#define SBDSDC SBDSDC_64 -#define SBDSQR SBDSQR_64 -#define SBDSVDX SBDSVDX_64 -#define SCASUM SCASUM_64 -#define SCNRM2 SCNRM2_64 -#define SCOPY SCOPY_64 -#define SCSUM1 SCSUM1_64 -#define SDISNA SDISNA_64 -#define SDOT SDOT_64 -#define SECOND SECOND_64 -#define SGBBRD SGBBRD_64 -#define SGBCON SGBCON_64 -#define SGBEQU SGBEQU_64 -#define SGBEQUB SGBEQUB_64 -#define SGBMV SGBMV_64 -#define SGBRFS SGBRFS_64 -#define SGBRFSX SGBRFSX_64 -#define SGBSV SGBSV_64 -#define SGBSVX SGBSVX_64 -#define SGBSVXX SGBSVXX_64 -#define SGBTF2 SGBTF2_64 -#define SGBTRF SGBTRF_64 -#define SGBTRS SGBTRS_64 -#define SGEBAK SGEBAK_64 -#define SGEBAL SGEBAL_64 -#define SGEBD2 SGEBD2_64 -#define SGEBRD SGEBRD_64 -#define SGECON SGECON_64 -#define SGEDMD SGEDMD_64 -#define SGEDMD SGEDMD_64 -#define SGEDMDQ SGEDMDQ_64 -#define SGEEQU SGEEQU_64 -#define SGEEQUB SGEEQUB_64 -#define SGEES SGEES_64 -#define SGEESX SGEESX_64 -#define SGEEV SGEEV_64 -#define SGEEVX SGEEVX_64 -#define SGEGS SGEGS_64 -#define SGEGV SGEGV_64 -#define SGEHD2 SGEHD2_64 -#define SGEHRD SGEHRD_64 -#define SGEJSV SGEJSV_64 -#define SGELQ SGELQ_64 -#define SGELQ2 SGELQ2_64 -#define SGELQF SGELQF_64 -#define SGELQT SGELQT_64 -#define SGELQS SGELQS_64 -#define SGELQT3 SGELQT3_64 -#define SGELS SGELS_64 -#define SGELRS SGELRS_64 -#define SGELSD SGELSD_64 -#define SGELSS SGELSS_64 -#define SGELST SGELST_64 -#define SGELSX SGELSX_64 -#define SGELSY SGELSY_64 -#define SGEMLQ SGEMLQ_64 -#define SGEMLQT SGEMLQT_64 -#define SGEMM SGEMM_64 -#define SGEMQR SGEMQR_64 -#define SGEMQRT SGEMQRT_64 -#define SGEMV SGEMV_64 -#define SGEQL2 SGEQL2_64 -#define SGEQLF SGEQLF_64 -#define SGEQP3 SGEQP3_64 -#define SGEQP3RK SGEQP3RK_64 -#define SGEQPF SGEQPF_64 -#define SGEQR SGEQR_64 -#define SGEQR2 SGEQR2_64 -#define SGEQR2P SGEQR2P_64 -#define SGEQRF SGEQRF_64 -#define SGEQRF SGEQRF_64 -#define SGEQRFP SGEQRFP_64 -#define SGEQRS SGEQRS_64 -#define SGEQRT SGEQRT_64 -#define SGEQRT2 SGEQRT2_64 -#define SGEQRT3 SGEQRT3_64 -#define SGER SGER_64 -#define SGERFS SGERFS_64 -#define SGERFSX SGERFSX_64 -#define SGERQ2 SGERQ2_64 -#define SGERQF SGERQF_64 -#define SGESC2 SGESC2_64 -#define SGESDD SGESDD_64 -#define SGESV SGESV_64 -#define SGESVD SGESVD_64 -#define SGESVDQ SGESVDQ_64 -#define SGESVDX SGESVDX_64 -#define SGESVJ SGESVJ_64 -#define SGESVX SGESVX_64 -#define SGESVXX SGESVXX_64 -#define SGETC2 SGETC2_64 -#define SGETF2 SGETF2_64 -#define SGETRF SGETRF_64 -#define SGETRF SGETRF_64 -#define SGETRF2 SGETRF2_64 -#define SGETRI SGETRI_64 -#define SGETRS SGETRS_64 -#define SGETSLS SGETSLS_64 -#define SGETSQRHRT SGETSQRHRT_64 -#define SGGBAK SGGBAK_64 -#define SGGBAL SGGBAL_64 -#define SGGES SGGES_64 -#define SGGES3 SGGES3_64 -#define SGGESX SGGESX_64 -#define SGGEV SGGEV_64 -#define SGGEV3 SGGEV3_64 -#define SGGEVX SGGEVX_64 -#define SGGGLM SGGGLM_64 -#define SGGHD3 SGGHD3_64 -#define SGGHRD SGGHRD_64 -#define SGGLSE SGGLSE_64 -#define SGGQRF SGGQRF_64 -#define SGGRQF SGGRQF_64 -#define SGGSVD SGGSVD_64 -#define SGGSVD3 SGGSVD3_64 -#define SGGSVP SGGSVP_64 -#define SGGSVP3 SGGSVP3_64 -#define SGSVJ0 SGSVJ0_64 -#define SGSVJ1 SGSVJ1_64 -#define SGTCON SGTCON_64 -#define SGTRFS SGTRFS_64 -#define SGTSV SGTSV_64 -#define SGTSVX SGTSVX_64 -#define SGTTRF SGTTRF_64 -#define SGTTRS SGTTRS_64 -#define SGTTS2 SGTTS2_64 -#define SHGEQZ SHGEQZ_64 -#define SHSEIN SHSEIN_64 -#define SHSEQR SHSEQR_64 -#define SISNAN SISNAN_64 -#define SLABAD SLABAD_64 -#define SLABRD SLABRD_64 -#define SLACN2 SLACN2_64 -#define SLACON SLACON_64 -#define SLACPY SLACPY_64 -#define SLADIV SLADIV_64 -#define SLADIV1 SLADIV1_64 -#define SLADIV2 SLADIV2_64 -#define SLAE2 SLAE2_64 -#define SLAEBZ SLAEBZ_64 -#define SLAED0 SLAED0_64 -#define SLAED1 SLAED1_64 -#define SLAED2 SLAED2_64 -#define SLAED3 SLAED3_64 -#define SLAED4 SLAED4_64 -#define SLAED5 SLAED5_64 -#define SLAED6 SLAED6_64 -#define SLAED7 SLAED7_64 -#define SLAED8 SLAED8_64 -#define SLAED9 SLAED9_64 -#define SLAEDA SLAEDA_64 -#define SLAEIN SLAEIN_64 -#define SLAEV2 SLAEV2_64 -#define SLAEXC SLAEXC_64 -#define SLAG2 SLAG2_64 -#define SLAG2D SLAG2D_64 -#define SLA_GBAMV SLA_GBAMV_64 -#define SLA_GBRCOND SLA_GBRCOND_64 -#define SLA_GBRFSX_EXTENDED SLA_GBRFSX_EXTENDED_64 -#define SLA_GBRPVGRW SLA_GBRPVGRW_64 -#define SLA_GEAMV SLA_GEAMV_64 -#define SLA_GERCOND SLA_GERCOND_64 -#define SLA_GERFSX_EXTENDED SLA_GERFSX_EXTENDED_64 -#define SLA_GERPVGRW SLA_GERPVGRW_64 -#define SLAGS2 SLAGS2_64 -#define SLAGTF SLAGTF_64 -#define SLAGTM SLAGTM_64 -#define SLAGTS SLAGTS_64 -#define SLAGV2 SLAGV2_64 -#define SLAHQR SLAHQR_64 -#define SLAHR2 SLAHR2_64 -#define SLAHRD SLAHRD_64 -#define SLAIC1 SLAIC1_64 -#define SLAISNAN SLAISNAN_64 -#define SLA_LIN_BERR SLA_LIN_BERR_64 -#define SLALN2 SLALN2_64 -#define SLALS0 SLALS0_64 -#define SLALSA SLALSA_64 -#define SLALSD SLALSD_64 -#define SLAMC3 SLAMC3_64 -#define SLAMCH SLAMCH_64 -#define SLAMRG SLAMRG_64 -#define SLAMSWLQ SLAMSWLQ_64 -#define SLAMTSQR SLAMTSQR_64 -#define SLANEG SLANEG_64 -#define SLANGB SLANGB_64 -#define SLANGE SLANGE_64 -#define SLANGT SLANGT_64 -#define SLANHS SLANHS_64 -#define SLANSB SLANSB_64 -#define SLANSF SLANSF_64 -#define SLANSP SLANSP_64 -#define SLANST SLANST_64 -#define SLANSY SLANSY_64 -#define SLANTB SLANTB_64 -#define SLANTP SLANTP_64 -#define SLANTR SLANTR_64 -#define SLANV2 SLANV2_64 -#define SLAORHR_COL_GETRFNP SLAORHR_COL_GETRFNP_64 -#define SLAORHR_COL_GETRFNP2 SLAORHR_COL_GETRFNP2_64 -#define SLAPLL SLAPLL_64 -#define SLAPMR SLAPMR_64 -#define SLAPMT SLAPMT_64 -#define SLA_PORCOND SLA_PORCOND_64 -#define SLA_PORFSX_EXTENDED SLA_PORFSX_EXTENDED_64 -#define SLA_PORPVGRW SLA_PORPVGRW_64 -#define SLAPY2 SLAPY2_64 -#define SLAPY3 SLAPY3_64 -#define SLAQGB SLAQGB_64 -#define SLAQGE SLAQGE_64 -#define SLAQP2 SLAQP2_64 -#define SLAQP2RK SLAQP2RK_64 -#define SLAQP3RK SLAQP3RK_64 -#define SLAQPS SLAQPS_64 -#define SLAQR0 SLAQR0_64 -#define SLAQR1 SLAQR1_64 -#define SLAQR2 SLAQR2_64 -#define SLAQR3 SLAQR3_64 -#define SLAQR4 SLAQR4_64 -#define SLAQR5 SLAQR5_64 -#define SLAQSB SLAQSB_64 -#define SLAQSP SLAQSP_64 -#define SLAQSY SLAQSY_64 -#define SLAQTR SLAQTR_64 -#define SLAQZ0 SLAQZ0_64 -#define SLAQZ1 SLAQZ1_64 -#define SLAQZ2 SLAQZ2_64 -#define SLAQZ3 SLAQZ3_64 -#define SLAQZ4 SLAQZ4_64 -#define SLAR1V SLAR1V_64 -#define SLAR2V SLAR2V_64 -#define SLARF SLARF_64 -#define SLARF1F SLARF1F_64 -#define SLARF1L SLARF1L_64 -#define SLARFB SLARFB_64 -#define SLARFB_GETT SLARFB_GETT_64 -#define SLARFG SLARFG_64 -#define SLARFGP SLARFGP_64 -#define SLARFT SLARFT_64 -#define SLARFT_LVL2 SLARFT_LVL2_64 -#define SLARFX SLARFX_64 -#define SLARFY SLARFY_64 -#define SLARGV SLARGV_64 -#define SLARMM SLARMM_64 -#define SLARNV SLARNV_64 -#define SLARRA SLARRA_64 -#define SLARRB SLARRB_64 -#define SLARRC SLARRC_64 -#define SLARRD SLARRD_64 -#define SLARRE SLARRE_64 -#define SLARRF SLARRF_64 -#define SLARRJ SLARRJ_64 -#define SLARRK SLARRK_64 -#define SLARRR SLARRR_64 -#define SLARRV SLARRV_64 -#define SLARSCL2 SLARSCL2_64 -#define SLARTG SLARTG_64 -#define SLARTGP SLARTGP_64 -#define SLARTGS SLARTGS_64 -#define SLARTV SLARTV_64 -#define SLARUV SLARUV_64 -#define SLARZ SLARZ_64 -#define SLARZB SLARZB_64 -#define SLARZT SLARZT_64 -#define SLAS2 SLAS2_64 -#define SLASCL SLASCL_64 -#define SLASCL2 SLASCL2_64 -#define SLASD0 SLASD0_64 -#define SLASD1 SLASD1_64 -#define SLASD2 SLASD2_64 -#define SLASD3 SLASD3_64 -#define SLASD4 SLASD4_64 -#define SLASD5 SLASD5_64 -#define SLASD6 SLASD6_64 -#define SLASD7 SLASD7_64 -#define SLASD8 SLASD8_64 -#define SLASDA SLASDA_64 -#define SLASDQ SLASDQ_64 -#define SLASDT SLASDT_64 -#define SLASET SLASET_64 -#define SLASQ1 SLASQ1_64 -#define SLASQ2 SLASQ2_64 -#define SLASQ3 SLASQ3_64 -#define SLASQ4 SLASQ4_64 -#define SLASQ5 SLASQ5_64 -#define SLASQ6 SLASQ6_64 -#define SLASR SLASR_64 -#define SLASRT SLASRT_64 -#define SLASSQ SLASSQ_64 -#define SLASV2 SLASV2_64 -#define SLASWLQ SLASWLQ_64 -#define SLASWP SLASWP_64 -#define SLASY2 SLASY2_64 -#define SLA_SYAMV SLA_SYAMV_64 -#define SLASYF SLASYF_64 -#define SLASYF_AA SLASYF_AA_64 -#define SLASYF_RK SLASYF_RK_64 -#define SLASYF_ROOK SLASYF_ROOK_64 -#define SLA_SYRCOND SLA_SYRCOND_64 -#define SLA_SYRFSX_EXTENDED SLA_SYRFSX_EXTENDED_64 -#define SLA_SYRPVGRW SLA_SYRPVGRW_64 -#define SLATBS SLATBS_64 -#define SLATDF SLATDF_64 -#define SLATPS SLATPS_64 -#define SLATRD SLATRD_64 -#define SLATRS SLATRS_64 -#define SLATRS3 SLATRS3_64 -#define SLATRZ SLATRZ_64 -#define SLATSQR SLATSQR_64 -#define SLATZM SLATZM_64 -#define SLAUU2 SLAUU2_64 -#define SLAUUM SLAUUM_64 -#define SLA_WWADDW SLA_WWADDW_64 -#define SNRM2 SNRM2_64 -#define SOPGTR SOPGTR_64 -#define SOPMTR SOPMTR_64 -#define SORBDB SORBDB_64 -#define SORBDB1 SORBDB1_64 -#define SORBDB2 SORBDB2_64 -#define SORBDB3 SORBDB3_64 -#define SORBDB4 SORBDB4_64 -#define SORBDB5 SORBDB5_64 -#define SORBDB6 SORBDB6_64 -#define SORCSD SORCSD_64 -#define SORCSD2BY1 SORCSD2BY1_64 -#define SORG2L SORG2L_64 -#define SORG2R SORG2R_64 -#define SORGBR SORGBR_64 -#define SORGHR SORGHR_64 -#define SORGL2 SORGL2_64 -#define SORGLQ SORGLQ_64 -#define SORGQL SORGQL_64 -#define SORGQR SORGQR_64 -#define SORGR2 SORGR2_64 -#define SORGRQ SORGRQ_64 -#define SORGTR SORGTR_64 -#define SORGTSQR SORGTSQR_64 -#define SORGTSQR_ROW SORGTSQR_ROW_64 -#define SORHR_COL SORHR_COL_64 -#define SORM22 SORM22_64 -#define SORM2L SORM2L_64 -#define SORM2R SORM2R_64 -#define SORMBR SORMBR_64 -#define SORMHR SORMHR_64 -#define SORML2 SORML2_64 -#define SORMLQ SORMLQ_64 -#define SORMQL SORMQL_64 -#define SORMQR SORMQR_64 -#define SORMR2 SORMR2_64 -#define SORMR3 SORMR3_64 -#define SORMRQ SORMRQ_64 -#define SORMRZ SORMRZ_64 -#define SORMTR SORMTR_64 -#define SPBCON SPBCON_64 -#define SPBEQU SPBEQU_64 -#define SPBRFS SPBRFS_64 -#define SPBSTF SPBSTF_64 -#define SPBSV SPBSV_64 -#define SPBSVX SPBSVX_64 -#define SPBTF2 SPBTF2_64 -#define SPBTRF SPBTRF_64 -#define SPBTRS SPBTRS_64 -#define SPFTRF SPFTRF_64 -#define SPFTRI SPFTRI_64 -#define SPFTRS SPFTRS_64 -#define SPOCON SPOCON_64 -#define SPOEQU SPOEQU_64 -#define SPOEQUB SPOEQUB_64 -#define SPORFS SPORFS_64 -#define SPORFSX SPORFSX_64 -#define SPOSV SPOSV_64 -#define SPOSVX SPOSVX_64 -#define SPOSVXX SPOSVXX_64 -#define SPOTF2 SPOTF2_64 -#define SPOTRF SPOTRF_64 -#define SPOTRF SPOTRF_64 -#define SPOTRF2 SPOTRF2_64 -#define SPOTRI SPOTRI_64 -#define SPOTRS SPOTRS_64 -#define SPPCON SPPCON_64 -#define SPPEQU SPPEQU_64 -#define SPPRFS SPPRFS_64 -#define SPPSV SPPSV_64 -#define SPPSVX SPPSVX_64 -#define SPPTRF SPPTRF_64 -#define SPPTRI SPPTRI_64 -#define SPPTRS SPPTRS_64 -#define SPSTF2 SPSTF2_64 -#define SPSTRF SPSTRF_64 -#define SPTCON SPTCON_64 -#define SPTEQR SPTEQR_64 -#define SPTRFS SPTRFS_64 -#define SPTSV SPTSV_64 -#define SPTSVX SPTSVX_64 -#define SPTTRF SPTTRF_64 -#define SPTTRS SPTTRS_64 -#define SPTTS2 SPTTS2_64 -#define SROT SROT_64 -#define SROTM SROTM_64 -#define SROUNDUP_LWORK SROUNDUP_LWORK_64 -#define SRSCL SRSCL_64 -#define SSB2ST_KERNELS SSB2ST_KERNELS_64 -#define SSBEV SSBEV_64 -#define SSBEV_2STAGE SSBEV_2STAGE_64 -#define SSBEVD SSBEVD_64 -#define SSBEVD_2STAGE SSBEVD_2STAGE_64 -#define SSBEVX SSBEVX_64 -#define SSBEVX_2STAGE SSBEVX_2STAGE_64 -#define SSBGST SSBGST_64 -#define SSBGV SSBGV_64 -#define SSBGVD SSBGVD_64 -#define SSBGVX SSBGVX_64 -#define SSBMV SSBMV_64 -#define SSBTRD SSBTRD_64 -#define SSCAL SSCAL_64 -#define SSFRK SSFRK_64 -#define SSPCON SSPCON_64 -#define SSPEV SSPEV_64 -#define SSPEVD SSPEVD_64 -#define SSPEVX SSPEVX_64 -#define SSPGST SSPGST_64 -#define SSPGV SSPGV_64 -#define SSPGVD SSPGVD_64 -#define SSPGVX SSPGVX_64 -#define SSPMV SSPMV_64 -#define SSPR SSPR_64 -#define SSPR2 SSPR2_64 -#define SSPRFS SSPRFS_64 -#define SSPSV SSPSV_64 -#define SSPSVX SSPSVX_64 -#define SSPTRD SSPTRD_64 -#define SSPTRF SSPTRF_64 -#define SSPTRI SSPTRI_64 -#define SSPTRS SSPTRS_64 -#define SSTEBZ SSTEBZ_64 -#define SSTEDC SSTEDC_64 -#define SSTEGR SSTEGR_64 -#define SSTEIN SSTEIN_64 -#define SSTEMR SSTEMR_64 -#define SSTEQR SSTEQR_64 -#define SSTERF SSTERF_64 -#define SSTEV SSTEV_64 -#define SSTEVD SSTEVD_64 -#define SSTEVR SSTEVR_64 -#define SSTEVX SSTEVX_64 -#define SSWAP SSWAP_64 -#define SSYCON SSYCON_64 -#define SSYCON_3 SSYCON_3_64 -#define SSYCON_ROOK SSYCON_ROOK_64 -#define SSYCONV SSYCONV_64 -#define SSYCONVF SSYCONVF_64 -#define SSYCONVF_ROOK SSYCONVF_ROOK_64 -#define SSYEQUB SSYEQUB_64 -#define SSYEV SSYEV_64 -#define SSYEV_2STAGE SSYEV_2STAGE_64 -#define SSYEVD SSYEVD_64 -#define SSYEVD_2STAGE SSYEVD_2STAGE_64 -#define SSYEVR SSYEVR_64 -#define SSYEVR_2STAGE SSYEVR_2STAGE_64 -#define SSYEVX SSYEVX_64 -#define SSYEVX_2STAGE SSYEVX_2STAGE_64 -#define SSYGS2 SSYGS2_64 -#define SSYGST SSYGST_64 -#define SSYGV SSYGV_64 -#define SSYGV_2STAGE SSYGV_2STAGE_64 -#define SSYGVD SSYGVD_64 -#define SSYGVX SSYGVX_64 -#define SSYMM SSYMM_64 -#define SSYMV SSYMV_64 -#define SSYR SSYR_64 -#define SSYR2 SSYR2_64 -#define SSYR2K SSYR2K_64 -#define SSYRFS SSYRFS_64 -#define SSYRFSX SSYRFSX_64 -#define SSYRK SSYRK_64 -#define SSYSV SSYSV_64 -#define SSYSV_AA SSYSV_AA_64 -#define SSYSV_AA_2STAGE SSYSV_AA_2STAGE_64 -#define SSYSV_RK SSYSV_RK_64 -#define SSYSV_ROOK SSYSV_ROOK_64 -#define SSYSVX SSYSVX_64 -#define SSYSVXX SSYSVXX_64 -#define SSYSWAPR SSYSWAPR_64 -#define SSYTD2 SSYTD2_64 -#define SSYTF2 SSYTF2_64 -#define SSYTF2_RK SSYTF2_RK_64 -#define SSYTF2_ROOK SSYTF2_ROOK_64 -#define SSYTRD SSYTRD_64 -#define SSYTRD_2STAGE SSYTRD_2STAGE_64 -#define SSYTRD_SB2ST SSYTRD_SB2ST_64 -#define SSYTRD_SY2SB SSYTRD_SY2SB_64 -#define SSYTRF SSYTRF_64 -#define SSYTRF_AA SSYTRF_AA_64 -#define SSYTRF_AA_2STAGE SSYTRF_AA_2STAGE_64 -#define SSYTRF_RK SSYTRF_RK_64 -#define SSYTRF_ROOK SSYTRF_ROOK_64 -#define SSYTRI SSYTRI_64 -#define SSYTRI2 SSYTRI2_64 -#define SSYTRI2X SSYTRI2X_64 -#define SSYTRI_3 SSYTRI_3_64 -#define SSYTRI_3X SSYTRI_3X_64 -#define SSYTRI_ROOK SSYTRI_ROOK_64 -#define SSYTRS SSYTRS_64 -#define SSYTRS2 SSYTRS2_64 -#define SSYTRS_3 SSYTRS_3_64 -#define SSYTRS_AA SSYTRS_AA_64 -#define SSYTRS_AA_2STAGE SSYTRS_AA_2STAGE_64 -#define SSYTRS_ROOK SSYTRS_ROOK_64 -#define STBCON STBCON_64 -#define STBMV STBMV_64 -#define STBRFS STBRFS_64 -#define STBSV STBSV_64 -#define STBTRS STBTRS_64 -#define STFSM STFSM_64 -#define STFTRI STFTRI_64 -#define STFTTP STFTTP_64 -#define STFTTR STFTTR_64 -#define STGEVC STGEVC_64 -#define STGEX2 STGEX2_64 -#define STGEXC STGEXC_64 -#define STGSEN STGSEN_64 -#define STGSJA STGSJA_64 -#define STGSNA STGSNA_64 -#define STGSY2 STGSY2_64 -#define STGSYL STGSYL_64 -#define STPCON STPCON_64 -#define STPLQT STPLQT_64 -#define STPLQT2 STPLQT2_64 -#define STPMLQT STPMLQT_64 -#define STPMQRT STPMQRT_64 -#define STPMV STPMV_64 -#define STPQRT STPQRT_64 -#define STPQRT2 STPQRT2_64 -#define STPRFB STPRFB_64 -#define STPRFS STPRFS_64 -#define STPSV STPSV_64 -#define STPTRI STPTRI_64 -#define STPTRS STPTRS_64 -#define STPTTF STPTTF_64 -#define STPTTR STPTTR_64 -#define STRCON STRCON_64 -#define STREVC STREVC_64 -#define STREVC3 STREVC3_64 -#define STREXC STREXC_64 -#define STRMM STRMM_64 -#define STRMV STRMV_64 -#define STRRFS STRRFS_64 -#define STRSEN STRSEN_64 -#define STRSM STRSM_64 -#define STRSNA STRSNA_64 -#define STRSV STRSV_64 -#define STRSYL STRSYL_64 -#define STRSYL3 STRSYL3_64 -#define STRTI2 STRTI2_64 -#define STRTRI STRTRI_64 -#define STRTRS STRTRS_64 -#define STRTTF STRTTF_64 -#define STRTTP STRTTP_64 -#define STZRQF STZRQF_64 -#define STZRZF STZRZF_64 -#define XERBLA XERBLA_64 -#define XERBLA_ARRAY XERBLA_ARRAY_64 -#define ZAXPY ZAXPY_64 -#define ZBBCSD ZBBCSD_64 -#define ZBDSQR ZBDSQR_64 -#define ZCGESV ZCGESV_64 -#define ZCOPY ZCOPY_64 -#define ZCPOSV ZCPOSV_64 -#define ZDOTC ZDOTC_64 -#define ZDOTU ZDOTU_64 -#define ZDROT ZDROT_64 -#define ZDRSCL ZDRSCL_64 -#define ZDSCAL ZDSCAL_64 -#define ZGBBRD ZGBBRD_64 -#define ZGBCON ZGBCON_64 -#define ZGBEQU ZGBEQU_64 -#define ZGBEQUB ZGBEQUB_64 -#define ZGBMV ZGBMV_64 -#define ZGBRFS ZGBRFS_64 -#define ZGBRFSX ZGBRFSX_64 -#define ZGBSV ZGBSV_64 -#define ZGBSVX ZGBSVX_64 -#define ZGBSVXX ZGBSVXX_64 -#define ZGBTF2 ZGBTF2_64 -#define ZGBTRF ZGBTRF_64 -#define ZGBTRS ZGBTRS_64 -#define ZGEBAK ZGEBAK_64 -#define ZGEBAL ZGEBAL_64 -#define ZGEBD2 ZGEBD2_64 -#define ZGEBRD ZGEBRD_64 -#define ZGECON ZGECON_64 -#define ZGEDMD ZGEDMD_64 -#define ZGEDMD ZGEDMD_64 -#define ZGEDMDQ ZGEDMDQ_64 -#define ZGEEQU ZGEEQU_64 -#define ZGEEQUB ZGEEQUB_64 -#define ZGEES ZGEES_64 -#define ZGEESX ZGEESX_64 -#define ZGEEV ZGEEV_64 -#define ZGEEVX ZGEEVX_64 -#define ZGEGS ZGEGS_64 -#define ZGEGV ZGEGV_64 -#define ZGEHD2 ZGEHD2_64 -#define ZGEHRD ZGEHRD_64 -#define ZGEJSV ZGEJSV_64 -#define ZGELQ ZGELQ_64 -#define ZGELQ2 ZGELQ2_64 -#define ZGELQF ZGELQF_64 -#define ZGELQS ZGELQS_64 -#define ZGELQT ZGELQT_64 -#define ZGELQT3 ZGELQT3_64 -#define ZGELS ZGELS_64 -#define ZGELRS ZGELRS_64 -#define ZGELSD ZGELSD_64 -#define ZGELSS ZGELSS_64 -#define ZGELST ZGELST_64 -#define ZGELSX ZGELSX_64 -#define ZGELSY ZGELSY_64 -#define ZGEMLQ ZGEMLQ_64 -#define ZGEMLQT ZGEMLQT_64 -#define ZGEMM ZGEMM_64 -#define ZGEMQR ZGEMQR_64 -#define ZGEMQRT ZGEMQRT_64 -#define ZGEMV ZGEMV_64 -#define ZGEQL2 ZGEQL2_64 -#define ZGEQLF ZGEQLF_64 -#define ZGEQP3 ZGEQP3_64 -#define ZGEQP3RK ZGEQP3RK_64 -#define ZGEQPF ZGEQPF_64 -#define ZGEQR ZGEQR_64 -#define ZGEQR2 ZGEQR2_64 -#define ZGEQR2P ZGEQR2P_64 -#define ZGEQRF ZGEQRF_64 -#define ZGEQRF ZGEQRF_64 -#define ZGEQRFP ZGEQRFP_64 -#define ZGEQRS ZGEQRS_64 -#define ZGEQRT ZGEQRT_64 -#define ZGEQRT2 ZGEQRT2_64 -#define ZGEQRT3 ZGEQRT3_64 -#define ZGERC ZGERC_64 -#define ZGERFS ZGERFS_64 -#define ZGERFSX ZGERFSX_64 -#define ZGERQ2 ZGERQ2_64 -#define ZGERQF ZGERQF_64 -#define ZGERU ZGERU_64 -#define ZGESC2 ZGESC2_64 -#define ZGESDD ZGESDD_64 -#define ZGESV ZGESV_64 -#define ZGESVD ZGESVD_64 -#define ZGESVDQ ZGESVDQ_64 -#define ZGESVDX ZGESVDX_64 -#define ZGESVJ ZGESVJ_64 -#define ZGESVX ZGESVX_64 -#define ZGESVXX ZGESVXX_64 -#define ZGETC2 ZGETC2_64 -#define ZGETF2 ZGETF2_64 -#define ZGETRF ZGETRF_64 -#define ZGETRF ZGETRF_64 -#define ZGETRF2 ZGETRF2_64 -#define ZGETRI ZGETRI_64 -#define ZGETRS ZGETRS_64 -#define ZGETSLS ZGETSLS_64 -#define ZGETSQRHRT ZGETSQRHRT_64 -#define ZGGBAK ZGGBAK_64 -#define ZGGBAL ZGGBAL_64 -#define ZGGES ZGGES_64 -#define ZGGES3 ZGGES3_64 -#define ZGGESX ZGGESX_64 -#define ZGGEV ZGGEV_64 -#define ZGGEV3 ZGGEV3_64 -#define ZGGEVX ZGGEVX_64 -#define ZGGGLM ZGGGLM_64 -#define ZGGHD3 ZGGHD3_64 -#define ZGGHRD ZGGHRD_64 -#define ZGGLSE ZGGLSE_64 -#define ZGGQRF ZGGQRF_64 -#define ZGGRQF ZGGRQF_64 -#define ZGGSVD ZGGSVD_64 -#define ZGGSVD3 ZGGSVD3_64 -#define ZGGSVP ZGGSVP_64 -#define ZGGSVP3 ZGGSVP3_64 -#define ZGSVJ0 ZGSVJ0_64 -#define ZGSVJ1 ZGSVJ1_64 -#define ZGTCON ZGTCON_64 -#define ZGTRFS ZGTRFS_64 -#define ZGTSV ZGTSV_64 -#define ZGTSVX ZGTSVX_64 -#define ZGTTRF ZGTTRF_64 -#define ZGTTRS ZGTTRS_64 -#define ZGTTS2 ZGTTS2_64 -#define ZHB2ST_KERNELS ZHB2ST_KERNELS_64 -#define ZHBEV ZHBEV_64 -#define ZHBEV_2STAGE ZHBEV_2STAGE_64 -#define ZHBEVD ZHBEVD_64 -#define ZHBEVD_2STAGE ZHBEVD_2STAGE_64 -#define ZHBEVX ZHBEVX_64 -#define ZHBEVX_2STAGE ZHBEVX_2STAGE_64 -#define ZHBGST ZHBGST_64 -#define ZHBGV ZHBGV_64 -#define ZHBGVD ZHBGVD_64 -#define ZHBGVX ZHBGVX_64 -#define ZHBMV ZHBMV_64 -#define ZHBTRD ZHBTRD_64 -#define ZHECON ZHECON_64 -#define ZHECON_3 ZHECON_3_64 -#define ZHECON_ROOK ZHECON_ROOK_64 -#define ZHEEQUB ZHEEQUB_64 -#define ZHEEV ZHEEV_64 -#define ZHEEV_2STAGE ZHEEV_2STAGE_64 -#define ZHEEVD ZHEEVD_64 -#define ZHEEVD_2STAGE ZHEEVD_2STAGE_64 -#define ZHEEVR ZHEEVR_64 -#define ZHEEVR_2STAGE ZHEEVR_2STAGE_64 -#define ZHEEVX ZHEEVX_64 -#define ZHEEVX_2STAGE ZHEEVX_2STAGE_64 -#define ZHEGS2 ZHEGS2_64 -#define ZHEGST ZHEGST_64 -#define ZHEGV ZHEGV_64 -#define ZHEGV_2STAGE ZHEGV_2STAGE_64 -#define ZHEGVD ZHEGVD_64 -#define ZHEGVX ZHEGVX_64 -#define ZHEMM ZHEMM_64 -#define ZHEMV ZHEMV_64 -#define ZHER ZHER_64 -#define ZHER2 ZHER2_64 -#define ZHER2K ZHER2K_64 -#define ZHERFS ZHERFS_64 -#define ZHERFSX ZHERFSX_64 -#define ZHERK ZHERK_64 -#define ZHESV ZHESV_64 -#define ZHESV_AA ZHESV_AA_64 -#define ZHESV_AA_2STAGE ZHESV_AA_2STAGE_64 -#define ZHESV_RK ZHESV_RK_64 -#define ZHESV_ROOK ZHESV_ROOK_64 -#define ZHESVX ZHESVX_64 -#define ZHESVXX ZHESVXX_64 -#define ZHESWAPR ZHESWAPR_64 -#define ZHETD2 ZHETD2_64 -#define ZHETF2 ZHETF2_64 -#define ZHETF2_RK ZHETF2_RK_64 -#define ZHETF2_ROOK ZHETF2_ROOK_64 -#define ZHETRD ZHETRD_64 -#define ZHETRD_2STAGE ZHETRD_2STAGE_64 -#define ZHETRD_HB2ST ZHETRD_HB2ST_64 -#define ZHETRD_HE2HB ZHETRD_HE2HB_64 -#define ZHETRF ZHETRF_64 -#define ZHETRF_AA ZHETRF_AA_64 -#define ZHETRF_AA_2STAGE ZHETRF_AA_2STAGE_64 -#define ZHETRF_RK ZHETRF_RK_64 -#define ZHETRF_ROOK ZHETRF_ROOK_64 -#define ZHETRI ZHETRI_64 -#define ZHETRI2 ZHETRI2_64 -#define ZHETRI2X ZHETRI2X_64 -#define ZHETRI_3 ZHETRI_3_64 -#define ZHETRI_3X ZHETRI_3X_64 -#define ZHETRI_ROOK ZHETRI_ROOK_64 -#define ZHETRS ZHETRS_64 -#define ZHETRS2 ZHETRS2_64 -#define ZHETRS_3 ZHETRS_3_64 -#define ZHETRS_AA ZHETRS_AA_64 -#define ZHETRS_AA_2STAGE ZHETRS_AA_2STAGE_64 -#define ZHETRS_ROOK ZHETRS_ROOK_64 -#define ZHFRK ZHFRK_64 -#define ZHGEQZ ZHGEQZ_64 -#define ZHPCON ZHPCON_64 -#define ZHPEV ZHPEV_64 -#define ZHPEVD ZHPEVD_64 -#define ZHPEVX ZHPEVX_64 -#define ZHPGST ZHPGST_64 -#define ZHPGV ZHPGV_64 -#define ZHPGVD ZHPGVD_64 -#define ZHPGVX ZHPGVX_64 -#define ZHPMV ZHPMV_64 -#define ZHPR ZHPR_64 -#define ZHPR2 ZHPR2_64 -#define ZHPRFS ZHPRFS_64 -#define ZHPSV ZHPSV_64 -#define ZHPSVX ZHPSVX_64 -#define ZHPTRD ZHPTRD_64 -#define ZHPTRF ZHPTRF_64 -#define ZHPTRI ZHPTRI_64 -#define ZHPTRS ZHPTRS_64 -#define ZHSEIN ZHSEIN_64 -#define ZHSEQR ZHSEQR_64 -#define ZLABRD ZLABRD_64 -#define ZLACGV ZLACGV_64 -#define ZLACN2 ZLACN2_64 -#define ZLACON ZLACON_64 -#define ZLACP2 ZLACP2_64 -#define ZLACPY ZLACPY_64 -#define ZLACRM ZLACRM_64 -#define ZLACRT ZLACRT_64 -#define ZLADIV ZLADIV_64 -#define ZLAED0 ZLAED0_64 -#define ZLAED7 ZLAED7_64 -#define ZLAED8 ZLAED8_64 -#define ZLAEIN ZLAEIN_64 -#define ZLAESY ZLAESY_64 -#define ZLAEV2 ZLAEV2_64 -#define ZLAG2C ZLAG2C_64 -#define ZLA_GBAMV ZLA_GBAMV_64 -#define ZLA_GBRCOND_C ZLA_GBRCOND_C_64 -#define ZLA_GBRCOND_X ZLA_GBRCOND_X_64 -#define ZLA_GBRFSX_EXTENDED ZLA_GBRFSX_EXTENDED_64 -#define ZLA_GBRPVGRW ZLA_GBRPVGRW_64 -#define ZLA_GEAMV ZLA_GEAMV_64 -#define ZLA_GERCOND_C ZLA_GERCOND_C_64 -#define ZLA_GERCOND_X ZLA_GERCOND_X_64 -#define ZLA_GERFSX_EXTENDED ZLA_GERFSX_EXTENDED_64 -#define ZLA_GERPVGRW ZLA_GERPVGRW_64 -#define ZLAGS2 ZLAGS2_64 -#define ZLAGTM ZLAGTM_64 -#define ZLA_HEAMV ZLA_HEAMV_64 -#define ZLAHEF ZLAHEF_64 -#define ZLAHEF_AA ZLAHEF_AA_64 -#define ZLAHEF_RK ZLAHEF_RK_64 -#define ZLAHEF_ROOK ZLAHEF_ROOK_64 -#define ZLA_HERCOND_C ZLA_HERCOND_C_64 -#define ZLA_HERCOND_X ZLA_HERCOND_X_64 -#define ZLA_HERFSX_EXTENDED ZLA_HERFSX_EXTENDED_64 -#define ZLA_HERPVGRW ZLA_HERPVGRW_64 -#define ZLAHQR ZLAHQR_64 -#define ZLAHR2 ZLAHR2_64 -#define ZLAHRD ZLAHRD_64 -#define ZLAIC1 ZLAIC1_64 -#define ZLA_LIN_BERR ZLA_LIN_BERR_64 -#define ZLALS0 ZLALS0_64 -#define ZLALSA ZLALSA_64 -#define ZLALSD ZLALSD_64 -#define ZLAMSWLQ ZLAMSWLQ_64 -#define ZLAMTSQR ZLAMTSQR_64 -#define ZLANGB ZLANGB_64 -#define ZLANGE ZLANGE_64 -#define ZLANGT ZLANGT_64 -#define ZLANHB ZLANHB_64 -#define ZLANHE ZLANHE_64 -#define ZLANHF ZLANHF_64 -#define ZLANHP ZLANHP_64 -#define ZLANHS ZLANHS_64 -#define ZLANHT ZLANHT_64 -#define ZLANSB ZLANSB_64 -#define ZLANSP ZLANSP_64 -#define ZLANSY ZLANSY_64 -#define ZLANTB ZLANTB_64 -#define ZLANTP ZLANTP_64 -#define ZLANTR ZLANTR_64 -#define ZLAPLL ZLAPLL_64 -#define ZLAPMR ZLAPMR_64 -#define ZLAPMT ZLAPMT_64 -#define ZLA_PORCOND_C ZLA_PORCOND_C_64 -#define ZLA_PORCOND_X ZLA_PORCOND_X_64 -#define ZLA_PORFSX_EXTENDED ZLA_PORFSX_EXTENDED_64 -#define ZLA_PORPVGRW ZLA_PORPVGRW_64 -#define ZLAQGB ZLAQGB_64 -#define ZLAQGE ZLAQGE_64 -#define ZLAQHB ZLAQHB_64 -#define ZLAQHE ZLAQHE_64 -#define ZLAQHP ZLAQHP_64 -#define ZLAQP2 ZLAQP2_64 -#define ZLAQP2RK ZLAQP2RK_64 -#define ZLAQP3RK ZLAQP3RK_64 -#define ZLAQPS ZLAQPS_64 -#define ZLAQR0 ZLAQR0_64 -#define ZLAQR1 ZLAQR1_64 -#define ZLAQR2 ZLAQR2_64 -#define ZLAQR3 ZLAQR3_64 -#define ZLAQR4 ZLAQR4_64 -#define ZLAQR5 ZLAQR5_64 -#define ZLAQSB ZLAQSB_64 -#define ZLAQSP ZLAQSP_64 -#define ZLAQSY ZLAQSY_64 -#define ZLAQZ0 ZLAQZ0_64 -#define ZLAQZ1 ZLAQZ1_64 -#define ZLAQZ2 ZLAQZ2_64 -#define ZLAQZ3 ZLAQZ3_64 -#define ZLAR1V ZLAR1V_64 -#define ZLAR2V ZLAR2V_64 -#define ZLARCM ZLARCM_64 -#define ZLARF ZLARF_64 -#define ZLARF1F ZLARF1F_64 -#define ZLARF1L ZLARF1L_64 -#define ZLARFB ZLARFB_64 -#define ZLARFB_GETT ZLARFB_GETT_64 -#define ZLARFG ZLARFG_64 -#define ZLARFGP ZLARFGP_64 -#define ZLARFT ZLARFT_64 -#define ZLARFT_LVL2 ZLARFT_LVL2_64 -#define ZLARFX ZLARFX_64 -#define ZLARFY ZLARFY_64 -#define ZLARGV ZLARGV_64 -#define ZLARNV ZLARNV_64 -#define ZLARRV ZLARRV_64 -#define ZLARSCL2 ZLARSCL2_64 -#define ZLARTG ZLARTG_64 -#define ZLARTV ZLARTV_64 -#define ZLARZ ZLARZ_64 -#define ZLARZB ZLARZB_64 -#define ZLARZT ZLARZT_64 -#define ZLASCL ZLASCL_64 -#define ZLASCL2 ZLASCL2_64 -#define ZLASET ZLASET_64 -#define ZLASR ZLASR_64 -#define ZLASSQ ZLASSQ_64 -#define ZLASWLQ ZLASWLQ_64 -#define ZLASWP ZLASWP_64 -#define ZLA_SYAMV ZLA_SYAMV_64 -#define ZLASYF ZLASYF_64 -#define ZLASYF_AA ZLASYF_AA_64 -#define ZLASYF_RK ZLASYF_RK_64 -#define ZLASYF_ROOK ZLASYF_ROOK_64 -#define ZLA_SYRCOND_C ZLA_SYRCOND_C_64 -#define ZLA_SYRCOND_X ZLA_SYRCOND_X_64 -#define ZLA_SYRFSX_EXTENDED ZLA_SYRFSX_EXTENDED_64 -#define ZLA_SYRPVGRW ZLA_SYRPVGRW_64 -#define ZLAT2C ZLAT2C_64 -#define ZLATBS ZLATBS_64 -#define ZLATDF ZLATDF_64 -#define ZLATPS ZLATPS_64 -#define ZLATRD ZLATRD_64 -#define ZLATRS ZLATRS_64 -#define ZLATRS3 ZLATRS3_64 -#define ZLATRZ ZLATRZ_64 -#define ZLATSQR ZLATSQR_64 -#define ZLATZM ZLATZM_64 -#define ZLAUNHR_COL_GETRFNP ZLAUNHR_COL_GETRFNP_64 -#define ZLAUNHR_COL_GETRFNP2 ZLAUNHR_COL_GETRFNP2_64 -#define ZLAUU2 ZLAUU2_64 -#define ZLAUUM ZLAUUM_64 -#define ZLA_WWADDW ZLA_WWADDW_64 -#define ZPBCON ZPBCON_64 -#define ZPBEQU ZPBEQU_64 -#define ZPBRFS ZPBRFS_64 -#define ZPBSTF ZPBSTF_64 -#define ZPBSV ZPBSV_64 -#define ZPBSVX ZPBSVX_64 -#define ZPBTF2 ZPBTF2_64 -#define ZPBTRF ZPBTRF_64 -#define ZPBTRS ZPBTRS_64 -#define ZPFTRF ZPFTRF_64 -#define ZPFTRI ZPFTRI_64 -#define ZPFTRS ZPFTRS_64 -#define ZPOCON ZPOCON_64 -#define ZPOEQU ZPOEQU_64 -#define ZPOEQUB ZPOEQUB_64 -#define ZPORFS ZPORFS_64 -#define ZPORFSX ZPORFSX_64 -#define ZPOSV ZPOSV_64 -#define ZPOSVX ZPOSVX_64 -#define ZPOSVXX ZPOSVXX_64 -#define ZPOTF2 ZPOTF2_64 -#define ZPOTRF ZPOTRF_64 -#define ZPOTRF ZPOTRF_64 -#define ZPOTRF2 ZPOTRF2_64 -#define ZPOTRI ZPOTRI_64 -#define ZPOTRS ZPOTRS_64 -#define ZPPCON ZPPCON_64 -#define ZPPEQU ZPPEQU_64 -#define ZPPRFS ZPPRFS_64 -#define ZPPSV ZPPSV_64 -#define ZPPSVX ZPPSVX_64 -#define ZPPTRF ZPPTRF_64 -#define ZPPTRI ZPPTRI_64 -#define ZPPTRS ZPPTRS_64 -#define ZPSTF2 ZPSTF2_64 -#define ZPSTRF ZPSTRF_64 -#define ZPTCON ZPTCON_64 -#define ZPTEQR ZPTEQR_64 -#define ZPTRFS ZPTRFS_64 -#define ZPTSV ZPTSV_64 -#define ZPTSVX ZPTSVX_64 -#define ZPTTRF ZPTTRF_64 -#define ZPTTRS ZPTTRS_64 -#define ZPTTS2 ZPTTS2_64 -#define ZROT ZROT_64 -#define ZRSCL ZRSCL_64 -#define ZSCAL ZSCAL_64 -#define ZSPCON ZSPCON_64 -#define ZSPMV ZSPMV_64 -#define ZSPR ZSPR_64 -#define ZSPRFS ZSPRFS_64 -#define ZSPSV ZSPSV_64 -#define ZSPSVX ZSPSVX_64 -#define ZSPTRF ZSPTRF_64 -#define ZSPTRI ZSPTRI_64 -#define ZSPTRS ZSPTRS_64 -#define ZSTEDC ZSTEDC_64 -#define ZSTEGR ZSTEGR_64 -#define ZSTEIN ZSTEIN_64 -#define ZSTEMR ZSTEMR_64 -#define ZSTEQR ZSTEQR_64 -#define ZSWAP ZSWAP_64 -#define ZSYCON ZSYCON_64 -#define ZSYCON_3 ZSYCON_3_64 -#define ZSYCON_ROOK ZSYCON_ROOK_64 -#define ZSYCONV ZSYCONV_64 -#define ZSYCONVF ZSYCONVF_64 -#define ZSYCONVF_ROOK ZSYCONVF_ROOK_64 -#define ZSYEQUB ZSYEQUB_64 -#define ZSYMV ZSYMV_64 -#define ZSYR ZSYR_64 -#define ZSYRFS ZSYRFS_64 -#define ZSYRFSX ZSYRFSX_64 -#define ZSYSV ZSYSV_64 -#define ZSYSV_AA ZSYSV_AA_64 -#define ZSYSV_AA_2STAGE ZSYSV_AA_2STAGE_64 -#define ZSYSV_RK ZSYSV_RK_64 -#define ZSYSV_ROOK ZSYSV_ROOK_64 -#define ZSYSVX ZSYSVX_64 -#define ZSYSVXX ZSYSVXX_64 -#define ZSYSWAPR ZSYSWAPR_64 -#define ZSYTF2 ZSYTF2_64 -#define ZSYTF2_RK ZSYTF2_RK_64 -#define ZSYTF2_ROOK ZSYTF2_ROOK_64 -#define ZSYTRF ZSYTRF_64 -#define ZSYTRF_AA ZSYTRF_AA_64 -#define ZSYTRF_AA_2STAGE ZSYTRF_AA_2STAGE_64 -#define ZSYTRF_RK ZSYTRF_RK_64 -#define ZSYTRF_ROOK ZSYTRF_ROOK_64 -#define ZSYTRI ZSYTRI_64 -#define ZSYTRI2 ZSYTRI2_64 -#define ZSYTRI2X ZSYTRI2X_64 -#define ZSYTRI_3 ZSYTRI_3_64 -#define ZSYTRI_3X ZSYTRI_3X_64 -#define ZSYTRI_ROOK ZSYTRI_ROOK_64 -#define ZSYTRS ZSYTRS_64 -#define ZSYTRS2 ZSYTRS2_64 -#define ZSYTRS_3 ZSYTRS_3_64 -#define ZSYTRS_AA ZSYTRS_AA_64 -#define ZSYTRS_AA_2STAGE ZSYTRS_AA_2STAGE_64 -#define ZSYTRS_ROOK ZSYTRS_ROOK_64 -#define ZTBCON ZTBCON_64 -#define ZTBMV ZTBMV_64 -#define ZTBRFS ZTBRFS_64 -#define ZTBSV ZTBSV_64 -#define ZTBTRS ZTBTRS_64 -#define ZTFSM ZTFSM_64 -#define ZTFTRI ZTFTRI_64 -#define ZTFTTP ZTFTTP_64 -#define ZTFTTR ZTFTTR_64 -#define ZTGEVC ZTGEVC_64 -#define ZTGEX2 ZTGEX2_64 -#define ZTGEXC ZTGEXC_64 -#define ZTGSEN ZTGSEN_64 -#define ZTGSJA ZTGSJA_64 -#define ZTGSNA ZTGSNA_64 -#define ZTGSY2 ZTGSY2_64 -#define ZTGSYL ZTGSYL_64 -#define ZTPCON ZTPCON_64 -#define ZTPLQT ZTPLQT_64 -#define ZTPLQT2 ZTPLQT2_64 -#define ZTPMLQT ZTPMLQT_64 -#define ZTPMQRT ZTPMQRT_64 -#define ZTPMV ZTPMV_64 -#define ZTPQRT ZTPQRT_64 -#define ZTPQRT2 ZTPQRT2_64 -#define ZTPRFB ZTPRFB_64 -#define ZTPRFS ZTPRFS_64 -#define ZTPSV ZTPSV_64 -#define ZTPTRI ZTPTRI_64 -#define ZTPTRS ZTPTRS_64 -#define ZTPTTF ZTPTTF_64 -#define ZTPTTR ZTPTTR_64 -#define ZTRCON ZTRCON_64 -#define ZTREVC ZTREVC_64 -#define ZTREVC3 ZTREVC3_64 -#define ZTREXC ZTREXC_64 -#define ZTRMM ZTRMM_64 -#define ZTRMV ZTRMV_64 -#define ZTRRFS ZTRRFS_64 -#define ZTRSEN ZTRSEN_64 -#define ZTRSM ZTRSM_64 -#define ZTRSNA ZTRSNA_64 -#define ZTRSV ZTRSV_64 -#define ZTRSYL ZTRSYL_64 -#define ZTRSYL3 ZTRSYL3_64 -#define ZTRTI2 ZTRTI2_64 -#define ZTRTRI ZTRTRI_64 -#define ZTRTRS ZTRTRS_64 -#define ZTRTTF ZTRTTF_64 -#define ZTRTTP ZTRTTP_64 -#define ZTZRQF ZTZRQF_64 -#define ZTZRZF ZTZRZF_64 -#define ZUNBDB ZUNBDB_64 -#define ZUNBDB1 ZUNBDB1_64 -#define ZUNBDB2 ZUNBDB2_64 -#define ZUNBDB3 ZUNBDB3_64 -#define ZUNBDB4 ZUNBDB4_64 -#define ZUNBDB5 ZUNBDB5_64 -#define ZUNBDB6 ZUNBDB6_64 -#define ZUNCSD ZUNCSD_64 -#define ZUNCSD2BY1 ZUNCSD2BY1_64 -#define ZUNG2L ZUNG2L_64 -#define ZUNG2R ZUNG2R_64 -#define ZUNGBR ZUNGBR_64 -#define ZUNGHR ZUNGHR_64 -#define ZUNGL2 ZUNGL2_64 -#define ZUNGLQ ZUNGLQ_64 -#define ZUNGQL ZUNGQL_64 -#define ZUNGQR ZUNGQR_64 -#define ZUNGR2 ZUNGR2_64 -#define ZUNGRQ ZUNGRQ_64 -#define ZUNGTR ZUNGTR_64 -#define ZUNGTSQR ZUNGTSQR_64 -#define ZUNGTSQR_ROW ZUNGTSQR_ROW_64 -#define ZUNHR_COL ZUNHR_COL_64 -#define ZUNM22 ZUNM22_64 -#define ZUNM2L ZUNM2L_64 -#define ZUNM2R ZUNM2R_64 -#define ZUNMBR ZUNMBR_64 -#define ZUNMHR ZUNMHR_64 -#define ZUNML2 ZUNML2_64 -#define ZUNMLQ ZUNMLQ_64 -#define ZUNMQL ZUNMQL_64 -#define ZUNMQR ZUNMQR_64 -#define ZUNMR2 ZUNMR2_64 -#define ZUNMR3 ZUNMR3_64 -#define ZUNMRQ ZUNMRQ_64 -#define ZUNMRZ ZUNMRZ_64 -#define ZUNMTR ZUNMTR_64 -#define ZUPGTR ZUPGTR_64 -#define ZUPMTR ZUPMTR_64 - -#endif -#endif diff --git a/TESTING/MATGEN/CMakeLists.txt b/TESTING/MATGEN/CMakeLists.txt index 479afae27..96ad04e43 100644 --- a/TESTING/MATGEN/CMakeLists.txt +++ b/TESTING/MATGEN/CMakeLists.txt @@ -48,41 +48,20 @@ endif() list(REMOVE_DUPLICATES SOURCES) add_library(${TMGLIB}_obj OBJECT ${SOURCES}) -set_target_properties( - ${TMGLIB}_obj PROPERTIES - Fortran_PREPROCESS ON - ) +set_target_properties(${TMGLIB}_obj PROPERTIES Fortran_PREPROCESS ON) if(BUILD_INDEX64_EXT_API) - if(NOT CMAKE_Fortran_COMPILER_ID MATCHES ${INDEX64_EXT_API_COMPILERS}) - message(STATUS "Build Index-64 API as extended API with _64 suffix: skipped (unsupported Fortran compiler)") - # Disable extended API for MATGEN and LAPACK. - set(BUILD_INDEX64_EXT_API OFF) - set(BUILD_INDEX64_EXT_API OFF PARENT_SCOPE) - else() - set(SOURCES_64) - file(MAKE_DIRECTORY ${CMAKE_CURRENT_BINARY_DIR}/${TMGLIB}_64_obj) - file(COPY ${SOURCES} DESTINATION ${CMAKE_CURRENT_BINARY_DIR}/${TMGLIB}_64_obj) - file(GLOB SOURCES_64 ${CMAKE_CURRENT_BINARY_DIR}/${TMGLIB}_64_obj/*.*) - foreach(F IN LISTS SOURCES_64) - set(FFILE "") - file(READ ${F} FFILE) - file(WRITE ${F} "#include \"matgen_64.h\"\n") - file(APPEND ${F} "${FFILE}") - endforeach() - file(COPY matgen_64.h DESTINATION ${CMAKE_CURRENT_BINARY_DIR}/${TMGLIB}_64_obj) - add_library(${TMGLIB}_64_obj OBJECT ${SOURCES_64}) - target_compile_options(${TMGLIB}_64_obj PRIVATE "${FOPT_ILP64}" -DMATGEN_64) - set_target_properties( - ${TMGLIB}_64_obj PROPERTIES - Fortran_PREPROCESS ON - ) - endif() + include(ExtendedAPIHelpers) + generate_64bit_suffixed_sources( ${TMGLIB} SOURCES SOURCES_64) + + add_library(${TMGLIB}_64_obj OBJECT ${SOURCES_64}) + target_compile_options(${TMGLIB}_64_obj PRIVATE "${FOPT_ILP64}") + set_target_properties(${TMGLIB}_64_obj PROPERTIES Fortran_PREPROCESS ON) endif() add_library(${TMGLIB} - $ - $<$: $>) + $ + $<$: $>) set_target_properties( ${TMGLIB} PROPERTIES diff --git a/TESTING/MATGEN/matgen_64.h b/TESTING/MATGEN/matgen_64.h deleted file mode 100644 index 827468ec7..000000000 --- a/TESTING/MATGEN/matgen_64.h +++ /dev/null @@ -1,81 +0,0 @@ -#ifndef MATGEN_64_H -#define MATGEN_64_H -#ifdef MATGEN_64 - -#define CLAGGE CLAGGE_64 -#define CLAGHE CLAGHE_64 -#define CLAGSY CLAGSY_64 -#define CLAHILB CLAHILB_64 -#define CLAKF2 CLAKF2_64 -#define CLARGE CLARGE_64 -#define CLARND CLARND_64 -#define CLAROR CLAROR_64 -#define CLAROT CLAROT_64 -#define CLATM1 CLATM1_64 -#define CLATM2 CLATM2_64 -#define CLATM3 CLATM3_64 -#define CLATM5 CLATM5_64 -#define CLATM6 CLATM6_64 -#define CLATME CLATME_64 -#define CLATMR CLATMR_64 -#define CLATMS CLATMS_64 -#define CLATMT CLATMT_64 -#define DLAGGE DLAGGE_64 -#define DLAGSY DLAGSY_64 -#define DLAHILB DLAHILB_64 -#define DLAKF2 DLAKF2_64 -#define DLARAN DLARAN_64 -#define DLARGE DLARGE_64 -#define DLARND DLARND_64 -#define DLAROR DLAROR_64 -#define DLAROT DLAROT_64 -#define DLATM1 DLATM1_64 -#define DLATM2 DLATM2_64 -#define DLATM3 DLATM3_64 -#define DLATM5 DLATM5_64 -#define DLATM6 DLATM6_64 -#define DLATM7 DLATM7_64 -#define DLATME DLATME_64 -#define DLATMR DLATMR_64 -#define DLATMS DLATMS_64 -#define DLATMT DLATMT_64 -#define SLAGGE SLAGGE_64 -#define SLAGSY SLAGSY_64 -#define SLAHILB SLAHILB_64 -#define SLAKF2 SLAKF2_64 -#define SLARAN SLARAN_64 -#define SLARGE SLARGE_64 -#define SLARND SLARND_64 -#define SLAROR SLAROR_64 -#define SLAROT SLAROT_64 -#define SLATM1 SLATM1_64 -#define SLATM2 SLATM2_64 -#define SLATM3 SLATM3_64 -#define SLATM5 SLATM5_64 -#define SLATM6 SLATM6_64 -#define SLATM7 SLATM7_64 -#define SLATME SLATME_64 -#define SLATMR SLATMR_64 -#define SLATMS SLATMS_64 -#define SLATMT SLATMT_64 -#define ZLAGGE ZLAGGE_64 -#define ZLAGHE ZLAGHE_64 -#define ZLAGSY ZLAGSY_64 -#define ZLAHILB ZLAHILB_64 -#define ZLAKF2 ZLAKF2_64 -#define ZLARGE ZLARGE_64 -#define ZLARND ZLARND_64 -#define ZLAROR ZLAROR_64 -#define ZLAROT ZLAROT_64 -#define ZLATM1 ZLATM1_64 -#define ZLATM2 ZLATM2_64 -#define ZLATM3 ZLATM3_64 -#define ZLATM5 ZLATM5_64 -#define ZLATM6 ZLATM6_64 -#define ZLATME ZLATME_64 -#define ZLATMR ZLATMR_64 -#define ZLATMS ZLATMS_64 -#define ZLATMT ZLATMT_64 - -#endif -#endif From 530d74ca3527f294ceeb8fcbcd5affe9599ddd70 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 27 Apr 2026 18:55:24 +0200 Subject: [PATCH 15/39] Added BUILD_DEFAULT_API CMake open to build only the 64bit extended API --- BLAS/SRC/CMakeLists.txt | 6 +- CBLAS/src/CMakeLists.txt | 25 +-- CMAKE/ExtendedAPIHelpers.cmake | 2 - CMAKE/Generate64BitSuffixedSource.cmake | 238 +++++++++++++++++++----- CMakeLists.txt | 16 +- LAPACKE/CMakeLists.txt | 17 +- LAPACKE/src/CMakeLists.txt | 4 +- LAPACKE/utils/CMakeLists.txt | 4 +- TESTING/MATGEN/CMakeLists.txt | 10 +- 9 files changed, 234 insertions(+), 88 deletions(-) diff --git a/BLAS/SRC/CMakeLists.txt b/BLAS/SRC/CMakeLists.txt index 501560531..b9b8be628 100644 --- a/BLAS/SRC/CMakeLists.txt +++ b/BLAS/SRC/CMakeLists.txt @@ -117,7 +117,9 @@ if(BUILD_COMPLEX16) endif() list(REMOVE_DUPLICATES SOURCES) -add_library(${BLASLIB}_obj OBJECT ${SOURCES}) +if(BUILD_DEFAULT_API) + add_library(${BLASLIB}_obj OBJECT ${SOURCES}) +endif() if(BUILD_INDEX64_EXT_API) include(ExtendedAPIHelpers) @@ -128,7 +130,7 @@ if(BUILD_INDEX64_EXT_API) endif() add_library(${BLASLIB} - $ + $<$: $> $<$: $>) # For flang, use C linker instead of Fortran linker to avoid macOS-specific flags diff --git a/CBLAS/src/CMakeLists.txt b/CBLAS/src/CMakeLists.txt index 15a82a38d..cea606dc6 100644 --- a/CBLAS/src/CMakeLists.txt +++ b/CBLAS/src/CMakeLists.txt @@ -1,7 +1,10 @@ # This Makefile compiles the CBLAS routines +# Sources that are shared accross all APIs +set(COMMON_SOURCES cblas_globals.c) + # Error handling routines for level 2 & 3 -set(ERRHAND cblas_globals.c cblas_xerbla.c xerbla.c) +set(ERRHAND cblas_xerbla.c xerbla.c) # # @@ -132,23 +135,21 @@ endif() list(REMOVE_DUPLICATES SOURCES_C) list(REMOVE_DUPLICATES SOURCES_F) -add_library(${CBLASLIB}_obj OBJECT ${SOURCES_C} ${SOURCES_F}) -if(HAS_ATTRIBUTE_WEAK_SUPPORT) - target_compile_definitions(${CBLASLIB}_obj PRIVATE - "$<$:HAS_ATTRIBUTE_WEAK_SUPPORT>") +if(BUILD_DEFAULT_API) + add_library(${CBLASLIB}_obj OBJECT ${COMMON_SOURCES} ${SOURCES_C} ${SOURCES_F}) + if(HAS_ATTRIBUTE_WEAK_SUPPORT) + target_compile_definitions(${CBLASLIB}_obj PRIVATE + "$<$:HAS_ATTRIBUTE_WEAK_SUPPORT>") + endif() +else() + add_library(${CBLASLIB}_obj OBJECT ${COMMON_SOURCES}) endif() if(BUILD_INDEX64_EXT_API) include(ExtendedAPIHelpers) - - # Define list of C files for 64bit interface - set(SOURCES_64_C ${SOURCES_C}) - list(REMOVE_ITEM SOURCES_64_C cblas_globals.c) - - # Generate list of Fortran files for 64bit interface generate_64bit_suffixed_sources(${CBLASLIB} SOURCES_F SOURCES_64_F) - add_library(${CBLASLIB}_64_obj OBJECT ${SOURCES_64_C} ${SOURCES_64_F}) + add_library(${CBLASLIB}_64_obj OBJECT ${SOURCES_C} ${SOURCES_64_F}) target_compile_definitions(${CBLASLIB}_64_obj PRIVATE "$<$:WeirdNEC>" "$<$:CBLAS_API64>") target_compile_options(${CBLASLIB}_64_obj PRIVATE diff --git a/CMAKE/ExtendedAPIHelpers.cmake b/CMAKE/ExtendedAPIHelpers.cmake index 0617bc772..0c83866f6 100644 --- a/CMAKE/ExtendedAPIHelpers.cmake +++ b/CMAKE/ExtendedAPIHelpers.cmake @@ -27,8 +27,6 @@ function(generate_64bit_suffixed_sources target source_list generated_sources) continue() endif() - message("${EXTENDED_API_GENERATOR}") - add_custom_command( OUTPUT "${output_file}" COMMAND diff --git a/CMAKE/Generate64BitSuffixedSource.cmake b/CMAKE/Generate64BitSuffixedSource.cmake index 791bb8e09..610926689 100644 --- a/CMAKE/Generate64BitSuffixedSource.cmake +++ b/CMAKE/Generate64BitSuffixedSource.cmake @@ -73,46 +73,46 @@ function(_normalize_fortran_statement_fragment line result) set(${result} "${fragment}" PARENT_SCOPE) endfunction() -# Create one logical Fortran statement by appending all continuation lines. -function(_collect_logical_fortran_line line_list_name start_index logical_line next_index) - list(GET ${line_list_name} ${start_index} current_line) - _normalize_fortran_statement_fragment("${current_line}" merged_line) - - list(LENGTH ${line_list_name} raw_line_count) - set(last_line "${current_line}") - math(EXPR current_index "${start_index} + 1") - - while(current_index LESS raw_line_count) - list(GET ${line_list_name} ${current_index} continuation_line) - _is_fortran_comment_line("${continuation_line}" continuation_is_comment) - if(continuation_is_comment) - break() +# Pop one physical source line from a newline-delimited string. Do not use a +# CMake list here: source comments may contain unmatched brackets, which changes +# how list semicolons are interpreted. +macro(_pop_source_line remaining_source line result) + if("${${remaining_source}}" STREQUAL "") + set(${line} "") + set(${result} FALSE) + else() + string(FIND "${${remaining_source}}" "\n" _source_line_newline_index) + if(_source_line_newline_index EQUAL -1) + set(${line} "${${remaining_source}}") + set(${remaining_source} "") + else() + string(SUBSTRING "${${remaining_source}}" 0 + ${_source_line_newline_index} ${line}) + math(EXPR _source_line_next_index + "${_source_line_newline_index} + 1") + string(SUBSTRING "${${remaining_source}}" + ${_source_line_next_index} -1 ${remaining_source}) endif() + set(${result} TRUE) + endif() +endmacro() - # Check for continuation based on the form of the Fortran source - if(_rewrite_source_is_free_form) - if("${last_line}" MATCHES "&[ \t]*$" OR "${continuation_line}" MATCHES "^[ \t]*&") - _normalize_fortran_statement_fragment("${continuation_line}" continuation_fragment) - else() - break() - endif() +# Peek at the next physical line without consuming it. +macro(_peek_source_line remaining_source line result) + if("${${remaining_source}}" STREQUAL "") + set(${line} "") + set(${result} FALSE) + else() + string(FIND "${${remaining_source}}" "\n" _source_line_newline_index) + if(_source_line_newline_index EQUAL -1) + set(${line} "${${remaining_source}}") else() - _is_fixed_form_continuation_line("${continuation_line}" is_fixed_form_continuation) - if(is_fixed_form_continuation) - _normalize_fortran_statement_fragment("${continuation_line}" continuation_fragment) - else() - break() - endif() + string(SUBSTRING "${${remaining_source}}" 0 + ${_source_line_newline_index} ${line}) endif() - - string(APPEND merged_line " ${continuation_fragment}") - set(last_line "${continuation_line}") - math(EXPR current_index "${current_index} + 1") - endwhile() - - set(${logical_line} "${merged_line}" PARENT_SCOPE) - set(${next_index} ${current_index} PARENT_SCOPE) -endfunction() + set(${result} TRUE) + endif() +endmacro() # Extract function/subroutine names from one logical Fortran statement. function(_extract_symbols statement_text result) @@ -120,8 +120,9 @@ function(_extract_symbols statement_text result) if("${statement_text}" MATCHES "(external|EXTERNAL)") string(REGEX REPLACE - "^[a-zA-Z0-9_ *]*(external|EXTERNAL)[ ]*" "" + "^.*(external|EXTERNAL)[ \t]*(::)?[ \t]*" "" external_names "${statement_text}") + string(REGEX REPLACE "^[ \t]*::[ \t]*" "" external_names "${external_names}") string(REPLACE "," ";" external_names "${external_names}") foreach(external_name IN LISTS external_names) string(STRIP "${external_name}" external_name) @@ -143,6 +144,110 @@ function(_extract_symbols statement_text result) set(${result} ${symbols} PARENT_SCOPE) endfunction() +# Find a safe fixed-form split point at or before the 72-column limit. +function(_find_fixed_form_split line result) + set(split_pos -1) + set(space_pos -1) + set(index 71) + + while(index GREATER 6) + string(SUBSTRING "${line}" ${index} 1 current_char) + if(current_char STREQUAL ",") + math(EXPR split_pos "${index} + 1") + break() + elseif(space_pos LESS 0 AND current_char MATCHES "[ \t]") + set(space_pos ${index}) + endif() + math(EXPR index "${index} - 1") + endwhile() + + if(split_pos LESS 0 AND NOT space_pos LESS 0) + set(split_pos ${space_pos}) + endif() + + set(${result} ${split_pos} PARENT_SCOPE) +endfunction() + +# Wrap one fixed-form physical line so generated sources remain valid with the +# standard 72-column statement field. +function(_wrap_fixed_form_line line result) + _is_fortran_comment_line("${line}" is_comment_line) + if(is_comment_line OR "${line}" MATCHES "^#") + set(${result} "${line}" PARENT_SCOPE) + return() + endif() + + set(wrapped_line "") + set(current_line "${line}") + + while(TRUE) + string(LENGTH "${current_line}" line_length) + if(NOT line_length GREATER 72) + if(wrapped_line STREQUAL "") + set(wrapped_line "${current_line}") + else() + string(APPEND wrapped_line "\n${current_line}") + endif() + break() + endif() + + _find_fixed_form_split("${current_line}" split_pos) + if(NOT split_pos GREATER 6) + if(wrapped_line STREQUAL "") + set(wrapped_line "${current_line}") + else() + string(APPEND wrapped_line "\n${current_line}") + endif() + break() + endif() + + string(SUBSTRING "${current_line}" 0 ${split_pos} line_head) + string(SUBSTRING "${current_line}" ${split_pos} -1 line_tail) + string(STRIP "${line_tail}" line_tail) + + if(wrapped_line STREQUAL "") + set(wrapped_line "${line_head}") + else() + string(APPEND wrapped_line "\n${line_head}") + endif() + + set(current_line " $ ${line_tail}") + endwhile() + + set(${result} "${wrapped_line}" PARENT_SCOPE) +endfunction() + +function(_wrap_fixed_form_source source_text result) + if(_rewrite_source_is_free_form) + set(${result} "${source_text}" PARENT_SCOPE) + return() + endif() + + string(REPLACE "\r\n" "\n" remaining_source "${source_text}") + string(REPLACE "\r" "\n" remaining_source "${remaining_source}") + set(wrapped_source "") + + while(TRUE) + string(FIND "${remaining_source}" "\n" newline_index) + if(newline_index EQUAL -1) + if(NOT remaining_source STREQUAL "") + _wrap_fixed_form_line("${remaining_source}" wrapped_line) + string(APPEND wrapped_source "${wrapped_line}") + endif() + break() + endif() + + string(SUBSTRING "${remaining_source}" 0 ${newline_index} source_line) + math(EXPR next_index "${newline_index} + 1") + string(SUBSTRING "${remaining_source}" ${next_index} -1 remaining_source) + + _wrap_fixed_form_line("${source_line}" wrapped_line) + string(APPEND wrapped_source "${wrapped_line}\n") + endwhile() + + set(${result} "${wrapped_source}" PARENT_SCOPE) +endfunction() + get_filename_component(output_dir "${OUTPUT_FILE}" DIRECTORY) file(MAKE_DIRECTORY "${output_dir}") @@ -150,26 +255,67 @@ file(READ "${INPUT_FILE}" source_content) set(rewritten_content "${source_content}") # Extract symbol names from the source file -file(STRINGS "${INPUT_FILE}" raw_lines) +string(REPLACE "\r\n" "\n" symbol_scan_source "${source_content}") +string(REPLACE "\r" "\n" symbol_scan_source "${symbol_scan_source}") set(symbol_names) -list(LENGTH raw_lines raw_line_count) -set(line_index 0) -while(line_index LESS raw_line_count) - list(GET raw_lines ${line_index} current_line) + +while(TRUE) + _pop_source_line(symbol_scan_source current_line has_line) + if(NOT has_line) + break() + endif() + _is_fortran_comment_line("${current_line}" is_comment_line) if(is_comment_line) - math(EXPR line_index "${line_index} + 1") continue() endif() - _collect_logical_fortran_line(raw_lines ${line_index} logical_line next_index) + _normalize_fortran_statement_fragment("${current_line}" logical_line) + set(last_line "${current_line}") + + while(TRUE) + _peek_source_line(symbol_scan_source continuation_line has_line) + if(NOT has_line) + break() + endif() + + _is_fortran_comment_line("${continuation_line}" continuation_is_comment) + if(continuation_is_comment) + break() + endif() + + set(consume_continuation FALSE) + if(_rewrite_source_is_free_form) + if("${last_line}" MATCHES "&[ \t]*$" OR + "${continuation_line}" MATCHES "^[ \t]*&") + set(consume_continuation TRUE) + endif() + else() + _is_fixed_form_continuation_line("${continuation_line}" + is_fixed_form_continuation) + if(is_fixed_form_continuation) + set(consume_continuation TRUE) + endif() + endif() + + if(NOT consume_continuation) + break() + endif() + + _pop_source_line(symbol_scan_source continuation_line has_line) + _normalize_fortran_statement_fragment("${continuation_line}" + continuation_fragment) + string(APPEND logical_line " ${continuation_fragment}") + set(last_line "${continuation_line}") + endwhile() + _extract_symbols("${logical_line}" symbols) if(symbols) list(APPEND symbol_names ${symbols}) endif() - set(line_index ${next_index}) endwhile() list(REMOVE_DUPLICATES symbol_names) +list(REMOVE_ITEM symbol_names ETIME etime ETIME_ etime_) # Replace symbol names with their suffixed versions in the source content foreach(symbol_name IN LISTS symbol_names) @@ -187,6 +333,8 @@ foreach(symbol_name IN LISTS symbol_names) endforeach() endforeach() +_wrap_fixed_form_source("${rewritten_content}" rewritten_content) + if(EXISTS "${OUTPUT_FILE}") file(READ "${OUTPUT_FILE}" existing_output) endif() diff --git a/CMakeLists.txt b/CMakeLists.txt index defdb6b92..9213ecb03 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -113,17 +113,11 @@ else() set(TMGLIB "tmglib") endif() -# By default build extended _64 API for supported compilers only. This needs -# CMake >= 3.18! Let's disable it by default for CMake < 3.18. -if(CMAKE_VERSION VERSION_LESS "3.18") - set(INDEX64_EXT_API_DEFAULT OFF) -else() - set(INDEX64_EXT_API_DEFAULT ON) -endif() -set(INDEX64_EXT_API_COMPILERS "Intel|GNU") -option(BUILD_INDEX64_EXT_API - "Build Index-64 API as extended API with _64 suffix (needs CMake >= 3.18)" - ${INDEX64_EXT_API_DEFAULT}) +option(BUILD_DEFAULT_API "Build default API. Disable and combine with -DBUILD_INDEX64_EXT_API=ON to build only extended API" ON) +message(STATUS "Build default API: ${BUILD_DEFAULT_API}") + +# By default build extended _64 API for supported compilers only. +option(BUILD_INDEX64_EXT_API "Build Index-64 API as extended API with _64 suffix" ON) message(STATUS "Build Index-64 API as extended API with _64 suffix: ${BUILD_INDEX64_EXT_API}") include(GNUInstallDirs) diff --git a/LAPACKE/CMakeLists.txt b/LAPACKE/CMakeLists.txt index 91ed61b3b..186f7c76a 100644 --- a/LAPACKE/CMakeLists.txt +++ b/LAPACKE/CMakeLists.txt @@ -33,6 +33,7 @@ message(STATUS "Build LAPACKE double precision real: ${LAPACKE_BUILD_DOUBLE}") message(STATUS "Build LAPACKE single precision complex: ${LAPACKE_BUILD_COMPLEX}") message(STATUS "Build LAPACKE double precision complex: ${LAPACKE_BUILD_COMPLEX16}") +append_subdir_files(COMMON_SOURCES "src") append_subdir_files(SOURCES "src") if (LAPACKE_BUILD_SINGLE) append_subdir_files(SOURCES_SINGLE "src") @@ -54,6 +55,7 @@ append_subdir_files(DEPRECATED "src") append_subdir_files(EXTENDED "src") append_subdir_files(MATGEN "src") append_subdir_files(UTILS "utils") +append_subdir_files(COMMON_UTILS "utils") if(BUILD_DEPRECATED) list(APPEND SOURCES ${DEPRECATED}) @@ -66,17 +68,14 @@ if(LAPACKE_WITH_TMG) endif() list(APPEND SOURCES ${UTILS}) -add_library(${LAPACKELIB}_obj OBJECT ${SOURCES}) +if(BUILD_DEFAULT_API) + add_library(${LAPACKELIB}_obj OBJECT ${COMMON_SOURCES} ${COMMON_UTILS} ${SOURCES}) +else() + add_library(${LAPACKELIB}_obj OBJECT ${COMMON_SOURCES} ${COMMON_UTILS}) +endif() if(BUILD_INDEX64_EXT_API) - # 64bit Integer Extended Interface - set(SOURCES_64 ${SOURCES}) - list(REMOVE_ITEM SOURCES_64 - src/lapacke_nancheck.c - utils/lapacke_make_complex_float.c - utils/lapacke_make_complex_double.c) - - add_library(${LAPACKELIB}_64_obj OBJECT ${SOURCES_64}) + add_library(${LAPACKELIB}_64_obj OBJECT ${SOURCES}) target_compile_definitions(${LAPACKELIB}_64_obj PRIVATE LAPACK_ILP64 LAPACKE_API64 WeirdNEC CBLAS_API64) endif() diff --git a/LAPACKE/src/CMakeLists.txt b/LAPACKE/src/CMakeLists.txt index 45307c180..a46bc5b77 100644 --- a/LAPACKE/src/CMakeLists.txt +++ b/LAPACKE/src/CMakeLists.txt @@ -1203,8 +1203,10 @@ lapacke_dtzrzf.c lapacke_dtzrzf_work.c ) -set(SOURCES +set(COMMON_SOURCES lapacke_nancheck.c +) +set(SOURCES lapacke_ilaver.c ) set(SOURCES_SINGLE diff --git a/LAPACKE/utils/CMakeLists.txt b/LAPACKE/utils/CMakeLists.txt index dfb9aa370..9c26984b7 100644 --- a/LAPACKE/utils/CMakeLists.txt +++ b/LAPACKE/utils/CMakeLists.txt @@ -1,3 +1,5 @@ +set(COMMON_UTILS lapacke_make_complex_float.c lapacke_make_complex_double.c) + set(UTILS lapacke_c_nancheck.c lapacke_d_nancheck.c lapacke_s_nancheck.c lapacke_z_nancheck.c lapacke_cgb_nancheck.c lapacke_dgb_nancheck.c lapacke_sgb_nancheck.c lapacke_zgb_trans.c @@ -39,8 +41,6 @@ lapacke_ctr_nancheck.c lapacke_dtr_nancheck.c lapacke_str_nancheck lapacke_ctr_trans.c lapacke_dtr_trans.c lapacke_str_trans.c lapacke_ztr_trans.c lapacke_ctz_nancheck.c lapacke_dtz_nancheck.c lapacke_stz_nancheck.c lapacke_ztz_nancheck.c lapacke_ctz_trans.c lapacke_dtz_trans.c lapacke_stz_trans.c lapacke_ztz_trans.c - -lapacke_make_complex_float.c lapacke_make_complex_double.c lapacke_lsame.c lapacke_xerbla.c ) diff --git a/TESTING/MATGEN/CMakeLists.txt b/TESTING/MATGEN/CMakeLists.txt index 96ad04e43..7bd2f9425 100644 --- a/TESTING/MATGEN/CMakeLists.txt +++ b/TESTING/MATGEN/CMakeLists.txt @@ -47,12 +47,14 @@ if(BUILD_COMPLEX16) endif() list(REMOVE_DUPLICATES SOURCES) -add_library(${TMGLIB}_obj OBJECT ${SOURCES}) -set_target_properties(${TMGLIB}_obj PROPERTIES Fortran_PREPROCESS ON) +if(BUILD_DEFAULT_API) + add_library(${TMGLIB}_obj OBJECT ${SOURCES}) + set_target_properties(${TMGLIB}_obj PROPERTIES Fortran_PREPROCESS ON) +endif() if(BUILD_INDEX64_EXT_API) include(ExtendedAPIHelpers) - generate_64bit_suffixed_sources( ${TMGLIB} SOURCES SOURCES_64) + generate_64bit_suffixed_sources(${TMGLIB} SOURCES SOURCES_64) add_library(${TMGLIB}_64_obj OBJECT ${SOURCES_64}) target_compile_options(${TMGLIB}_64_obj PRIVATE "${FOPT_ILP64}") @@ -60,7 +62,7 @@ if(BUILD_INDEX64_EXT_API) endif() add_library(${TMGLIB} - $ + $<$: $> $<$: $>) set_target_properties( From b92efb680aa6df879c235640d1d2c3b372dde896 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 27 Apr 2026 18:55:36 +0200 Subject: [PATCH 16/39] Added BUILD_DEFAULT_API CMake open to build only the 64bit extended API --- SRC/CMakeLists.txt | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/SRC/CMakeLists.txt b/SRC/CMakeLists.txt index f86693f07..34b178acf 100644 --- a/SRC/CMakeLists.txt +++ b/SRC/CMakeLists.txt @@ -527,9 +527,11 @@ set_target_properties(const_mod_file PROPERTIES Fortran_PREPROCESS ON) add_library(mod_files OBJECT ${NANMOD} $) set_target_properties(mod_files PROPERTIES Fortran_PREPROCESS ON) -add_library(${LAPACKLIB}_obj OBJECT ${SOURCES}) -target_link_libraries(${LAPACKLIB}_obj mod_files) -set_target_properties(${LAPACKLIB}_obj PROPERTIES Fortran_PREPROCESS ON) +if(BUILD_DEFAULT_API) + add_library(${LAPACKLIB}_obj OBJECT ${SOURCES}) + target_link_libraries(${LAPACKLIB}_obj mod_files) + set_target_properties(${LAPACKLIB}_obj PROPERTIES Fortran_PREPROCESS ON) +endif() if(BUILD_INDEX64_EXT_API) include(ExtendedAPIHelpers) @@ -543,7 +545,7 @@ endif() add_library(${LAPACKLIB} $ - $ + $<$: $> $<$: $>) # For flang, use C linker instead of Fortran linker to avoid macOS-specific flags From 2eaac71bfd3ae6da48086fca6f1ec54796d4d5dd Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 27 Apr 2026 18:55:54 +0200 Subject: [PATCH 17/39] Fixed missing EXTERNAL declarations in LAPACK sources --- SRC/cgeev.f | 2 +- SRC/clahef_rk.f | 4 ++-- SRC/clarft.f | 2 +- SRC/clatrs3.f | 2 +- SRC/cunbdb6.f | 1 + SRC/dgeev.f | 5 ++--- SRC/dlapy2.f | 1 + SRC/dlapy3.f | 1 + SRC/dlaqp2.f | 2 +- SRC/dlarft.f | 2 +- SRC/dlatrs3.f | 2 +- SRC/dopmtr.f | 2 +- SRC/dorbdb4.f | 4 ++-- SRC/dorbdb6.f | 1 + SRC/dorgr2.f | 2 +- SRC/sgeev.f | 2 +- SRC/sgges.f | 3 ++- SRC/sggev3.f | 2 +- SRC/slapy2.f | 1 + SRC/slapy3.f | 1 + SRC/slaqr2.f | 4 ++-- SRC/slarft.f | 2 +- SRC/slatrs3.f | 3 ++- SRC/sorbdb6.f | 1 + SRC/zgeev.f | 4 ++-- SRC/zgelss.f | 3 ++- SRC/zlarft.f | 2 +- SRC/zlatrs3.f | 2 +- SRC/zrscl.f | 2 +- SRC/zunbdb6.f | 1 + 30 files changed, 38 insertions(+), 28 deletions(-) diff --git a/SRC/cgeev.f b/SRC/cgeev.f index 865b07831..ca3a44689 100644 --- a/SRC/cgeev.f +++ b/SRC/cgeev.f @@ -221,7 +221,7 @@ SUBROUTINE CGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, INTEGER ISAMAX, ILAENV REAL SLAMCH, SCNRM2, CLANGE, $ SROUNDUP_LWORK - EXTERNAL LSAME, ISAMAX, ILAENV, + EXTERNAL LSAME, SISNAN, ISAMAX, ILAENV, $ SLAMCH, SCNRM2, CLANGE, $ SROUNDUP_LWORK * .. diff --git a/SRC/clahef_rk.f b/SRC/clahef_rk.f index 0c37ba3a7..15861e312 100644 --- a/SRC/clahef_rk.f +++ b/SRC/clahef_rk.f @@ -298,8 +298,8 @@ SUBROUTINE CLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, EXTERNAL LSAME, ICAMAX, SLAMCH * .. * .. External Subroutines .. - EXTERNAL CCOPY, CSSCAL, CGEMM, CGEMV, CLACGV, - $ CSWAP + EXTERNAL CCOPY, CSSCAL, CGEMM, CGEMMTR, CGEMV, + $ CLACGV, CSWAP * .. * .. Intrinsic Functions .. INTRINSIC ABS, CONJG, AIMAG, MAX, MIN, REAL, SQRT diff --git a/SRC/clarft.f b/SRC/clarft.f index 3bf2448ba..359f7bb37 100644 --- a/SRC/clarft.f +++ b/SRC/clarft.f @@ -188,7 +188,7 @@ RECURSIVE SUBROUTINE CLARFT( DIRECT, STOREV, N, K, V, LDV, * * .. External Subroutines .. * - EXTERNAL CTRMM,CGEMM,CLACPY + EXTERNAL CTRMM,CGEMM,CLACPY,CLARFT_LVL2 * * .. External Functions.. * diff --git a/SRC/clatrs3.f b/SRC/clatrs3.f index 1e2d11a17..d4f9c1b28 100644 --- a/SRC/clatrs3.f +++ b/SRC/clatrs3.f @@ -275,7 +275,7 @@ SUBROUTINE CLATRS3( UPLO, TRANS, DIAG, NORMIN, N, NRHS, A, LDA, $ CLANGE, SLARMM, SROUNDUP_LWORK * .. * .. External Subroutines .. - EXTERNAL CLATRS, CSSCAL, XERBLA + EXTERNAL CGEMM, CLATRS, CSSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN diff --git a/SRC/cunbdb6.f b/SRC/cunbdb6.f index 0ce344390..11824d4ba 100644 --- a/SRC/cunbdb6.f +++ b/SRC/cunbdb6.f @@ -185,6 +185,7 @@ SUBROUTINE CUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, * .. * .. External Functions .. REAL SLAMCH + EXTERNAL SLAMCH * .. * .. External Subroutines .. EXTERNAL CGEMV, CLASSQ, XERBLA diff --git a/SRC/dgeev.f b/SRC/dgeev.f index e74140c2b..2d0bbd2c6 100644 --- a/SRC/dgeev.f +++ b/SRC/dgeev.f @@ -230,9 +230,8 @@ SUBROUTINE DGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, LOGICAL LSAME, DISNAN INTEGER IDAMAX, ILAENV DOUBLE PRECISION DLAMCH, DLANGE, DLAPY2, DNRM2 - EXTERNAL LSAME, IDAMAX, ILAENV, DLAMCH, DLANGE, - $ DLAPY2, - $ DNRM2 + EXTERNAL LSAME, DISNAN, IDAMAX, ILAENV, + $ DLAMCH, DLANGE, DLAPY2, DNRM2 * .. * .. Intrinsic Functions .. INTRINSIC MAX, SQRT diff --git a/SRC/dlapy2.f b/SRC/dlapy2.f index 5b092c31d..71615eef0 100644 --- a/SRC/dlapy2.f +++ b/SRC/dlapy2.f @@ -86,6 +86,7 @@ DOUBLE PRECISION FUNCTION DLAPY2( X, Y ) * .. * .. External Subroutines .. DOUBLE PRECISION DLAMCH + EXTERNAL DLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT diff --git a/SRC/dlapy3.f b/SRC/dlapy3.f index 77548d73c..c678b9ff3 100644 --- a/SRC/dlapy3.f +++ b/SRC/dlapy3.f @@ -84,6 +84,7 @@ DOUBLE PRECISION FUNCTION DLAPY3( X, Y, Z ) * .. * .. External Subroutines .. DOUBLE PRECISION DLAMCH + EXTERNAL DLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, SQRT diff --git a/SRC/dlaqp2.f b/SRC/dlaqp2.f index d32f07548..a1dd23d9a 100644 --- a/SRC/dlaqp2.f +++ b/SRC/dlaqp2.f @@ -168,7 +168,7 @@ SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, DOUBLE PRECISION TEMP, TEMP2, TOL3Z * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARFG, DSWAP + EXTERNAL DLARF, DLARF1F, DLARFG, DSWAP * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT diff --git a/SRC/dlarft.f b/SRC/dlarft.f index fa2ea0d13..05d5b9e57 100644 --- a/SRC/dlarft.f +++ b/SRC/dlarft.f @@ -187,7 +187,7 @@ RECURSIVE SUBROUTINE DLARFT( DIRECT, STOREV, N, K, V, LDV, * * .. External Subroutines .. * - EXTERNAL DTRMM,DGEMM,DLACPY + EXTERNAL DTRMM,DGEMM,DLACPY,DLARFT_LVL2 * * .. External Functions.. * diff --git a/SRC/dlatrs3.f b/SRC/dlatrs3.f index ae94b8dff..857062e81 100644 --- a/SRC/dlatrs3.f +++ b/SRC/dlatrs3.f @@ -270,7 +270,7 @@ SUBROUTINE DLATRS3( UPLO, TRANS, DIAG, NORMIN, N, NRHS, A, LDA, $ LSAME * .. * .. External Subroutines .. - EXTERNAL DLATRS, DSCAL, XERBLA + EXTERNAL DGEMM, DLATRS, DSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN diff --git a/SRC/dopmtr.f b/SRC/dopmtr.f index 5646b8eac..e96335791 100644 --- a/SRC/dopmtr.f +++ b/SRC/dopmtr.f @@ -176,7 +176,7 @@ SUBROUTINE DOPMTR( SIDE, UPLO, TRANS, M, N, AP, TAU, C, LDC, EXTERNAL LSAME * .. * .. External Subroutines .. - EXTERNAL DLARF, XERBLA + EXTERNAL DLARF, DLARF1L, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/dorbdb4.f b/SRC/dorbdb4.f index 6a218fa8a..da75acdd1 100644 --- a/SRC/dorbdb4.f +++ b/SRC/dorbdb4.f @@ -237,8 +237,8 @@ SUBROUTINE DORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, LOGICAL LQUERY * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARFGP, DORBDB5, DROT, DSCAL, - $ XERBLA + EXTERNAL DLARF, DLARF1F, DLARFGP, DORBDB5, + $ DROT, DSCAL, XERBLA * .. * .. External Functions .. DOUBLE PRECISION DNRM2 diff --git a/SRC/dorbdb6.f b/SRC/dorbdb6.f index 82aa93a5a..b8205ef3f 100644 --- a/SRC/dorbdb6.f +++ b/SRC/dorbdb6.f @@ -184,6 +184,7 @@ SUBROUTINE DORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, * .. * .. External Functions .. DOUBLE PRECISION DLAMCH + EXTERNAL DLAMCH * .. * .. External Subroutines .. EXTERNAL DGEMV, DLASSQ, XERBLA diff --git a/SRC/dorgr2.f b/SRC/dorgr2.f index 43e731966..cc7e24db3 100644 --- a/SRC/dorgr2.f +++ b/SRC/dorgr2.f @@ -132,7 +132,7 @@ SUBROUTINE DORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) INTEGER I, II, J, L * .. * .. External Subroutines .. - EXTERNAL DLARF, DSCAL, XERBLA + EXTERNAL DLARF, DLARF1L, DSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/sgeev.f b/SRC/sgeev.f index e5e61395d..930c4cc82 100644 --- a/SRC/sgeev.f +++ b/SRC/sgeev.f @@ -232,7 +232,7 @@ SUBROUTINE SGEEV( JOBVL, JOBVR, N, A, LDA, WR, WI, VL, LDVL, INTEGER ISAMAX, ILAENV REAL SLAMCH, SLANGE, SLAPY2, SNRM2, $ SROUNDUP_LWORK - EXTERNAL LSAME, ISAMAX, ILAENV, + EXTERNAL LSAME, SISNAN, ISAMAX, ILAENV, $ SLAMCH, SLANGE, SLAPY2, $ SNRM2, SROUNDUP_LWORK * .. diff --git a/SRC/sgges.f b/SRC/sgges.f index b64599ca8..bd51d9aea 100644 --- a/SRC/sgges.f +++ b/SRC/sgges.f @@ -327,7 +327,8 @@ END FUNCTION SELCTG_PROC_TYPE * .. External Subroutines .. EXTERNAL SGEQRF, SGGBAK, SGGBAL, SGGHRD, SHGEQZ, $ SLACPY, - $ SLASCL, SLASET, SORGQR, SORMQR, STGSEN + $ SLASCL, SLASET, SORGQR, SORMQR, STGSEN, + $ XERBLA * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/sggev3.f b/SRC/sggev3.f index 2935541d5..230a6475b 100644 --- a/SRC/sggev3.f +++ b/SRC/sggev3.f @@ -261,7 +261,7 @@ SUBROUTINE SGGEV3( JOBVL, JOBVR, N, A, LDA, B, LDB, ALPHAR, EXTERNAL SGEQRF, SGGBAK, SGGBAL, $ SGGHD3, SLAQZ0, SLACPY, $ SLASCL, SLASET, SORGQR, - $ SORMQR, STGEVC + $ SORMQR, STGEVC, XERBLA * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/slapy2.f b/SRC/slapy2.f index 9937bc7cc..783efdabf 100644 --- a/SRC/slapy2.f +++ b/SRC/slapy2.f @@ -86,6 +86,7 @@ REAL FUNCTION SLAPY2( X, Y ) * .. * .. External Subroutines .. REAL SLAMCH + EXTERNAL SLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT diff --git a/SRC/slapy3.f b/SRC/slapy3.f index c1c4bd672..e67246cd0 100644 --- a/SRC/slapy3.f +++ b/SRC/slapy3.f @@ -84,6 +84,7 @@ REAL FUNCTION SLAPY3( X, Y, Z ) * .. * .. External Subroutines .. REAL SLAMCH + EXTERNAL SLAMCH * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, SQRT diff --git a/SRC/slaqr2.f b/SRC/slaqr2.f index 9ee1f8b6e..7c2790596 100644 --- a/SRC/slaqr2.f +++ b/SRC/slaqr2.f @@ -311,8 +311,8 @@ SUBROUTINE SLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, * .. External Subroutines .. EXTERNAL SCOPY, SGEHRD, SGEMM, SLACPY, $ SLAHQR, - $ SLANV2, SLARF1L, SLARFG, SLASET, SORMHR, - $ STREXC + $ SLANV2, SLARF1F, SLARF1L, SLARFG, + $ SLASET, SORMHR, STREXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, INT, MAX, MIN, REAL, SQRT diff --git a/SRC/slarft.f b/SRC/slarft.f index 3e0eac751..fd13304ba 100644 --- a/SRC/slarft.f +++ b/SRC/slarft.f @@ -187,7 +187,7 @@ RECURSIVE SUBROUTINE SLARFT( DIRECT, STOREV, N, K, V, LDV, * * .. External Subroutines .. * - EXTERNAL STRMM,SGEMM,SLACPY + EXTERNAL STRMM,SGEMM,SLACPY,SLARFT_LVL2 * * .. External Functions.. * diff --git a/SRC/slatrs3.f b/SRC/slatrs3.f index a01be4aa3..a5e102eac 100644 --- a/SRC/slatrs3.f +++ b/SRC/slatrs3.f @@ -270,7 +270,8 @@ SUBROUTINE SLATRS3( UPLO, TRANS, DIAG, NORMIN, N, NRHS, A, LDA, * .. * .. External Subroutines .. REAL SROUNDUP_LWORK - EXTERNAL SLATRS, SSCAL, SROUNDUP_LWORK, XERBLA + EXTERNAL SGEMM, SLATRS, SSCAL, SROUNDUP_LWORK, + $ XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN diff --git a/SRC/sorbdb6.f b/SRC/sorbdb6.f index 9fb29b038..ba373c254 100644 --- a/SRC/sorbdb6.f +++ b/SRC/sorbdb6.f @@ -184,6 +184,7 @@ SUBROUTINE SORBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, * .. * .. External Functions .. REAL SLAMCH + EXTERNAL SLAMCH * .. * .. External Subroutines .. EXTERNAL SGEMV, SLASSQ, XERBLA diff --git a/SRC/zgeev.f b/SRC/zgeev.f index 883b24c2a..7325c28d9 100644 --- a/SRC/zgeev.f +++ b/SRC/zgeev.f @@ -219,8 +219,8 @@ SUBROUTINE ZGEEV( JOBVL, JOBVR, N, A, LDA, W, VL, LDVL, VR, LOGICAL LSAME, DISNAN INTEGER IDAMAX, ILAENV DOUBLE PRECISION DLAMCH, DZNRM2, ZLANGE - EXTERNAL LSAME, IDAMAX, ILAENV, DLAMCH, DZNRM2, - $ ZLANGE + EXTERNAL LSAME, DISNAN, IDAMAX, ILAENV, + $ DLAMCH, DZNRM2, ZLANGE * .. * .. Intrinsic Functions .. INTRINSIC DBLE, DCMPLX, CONJG, AIMAG, MAX, SQRT diff --git a/SRC/zgelss.f b/SRC/zgelss.f index 5269eea78..a3f9079b0 100644 --- a/SRC/zgelss.f +++ b/SRC/zgelss.f @@ -214,7 +214,8 @@ SUBROUTINE ZGELSS( M, N, NRHS, A, LDA, B, LDB, S, RCOND, RANK, EXTERNAL DLASCL, DLASET, XERBLA, ZBDSQR, ZCOPY, $ ZDRSCL, $ ZGEBRD, ZGELQF, ZGEMM, ZGEMV, ZGEQRF, ZLACPY, - $ ZLASCL, ZLASET, ZUNGBR, ZUNMBR, ZUNMLQ + $ ZLASCL, ZLASET, ZUNGBR, ZUNMBR, ZUNMLQ, + $ ZUNMQR * .. * .. External Functions .. INTEGER ILAENV diff --git a/SRC/zlarft.f b/SRC/zlarft.f index efd52037d..8b65d2f60 100644 --- a/SRC/zlarft.f +++ b/SRC/zlarft.f @@ -188,7 +188,7 @@ RECURSIVE SUBROUTINE ZLARFT( DIRECT, STOREV, N, K, V, LDV, * * .. External Subroutines .. * - EXTERNAL ZTRMM,ZGEMM,ZLACPY + EXTERNAL ZTRMM,ZGEMM,ZLACPY,ZLARFT_LVL2 * * .. External Functions.. * diff --git a/SRC/zlatrs3.f b/SRC/zlatrs3.f index af5fc69a3..a91ffb3c4 100644 --- a/SRC/zlatrs3.f +++ b/SRC/zlatrs3.f @@ -274,7 +274,7 @@ SUBROUTINE ZLATRS3( UPLO, TRANS, DIAG, NORMIN, N, NRHS, A, LDA, $ DLARMM * .. * .. External Subroutines .. - EXTERNAL ZLATRS, ZDSCAL, XERBLA + EXTERNAL ZGEMM, ZLATRS, ZDSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN diff --git a/SRC/zrscl.f b/SRC/zrscl.f index 22c054422..524802b32 100644 --- a/SRC/zrscl.f +++ b/SRC/zrscl.f @@ -108,7 +108,7 @@ SUBROUTINE ZRSCL( N, A, X, INCX ) EXTERNAL DLAMCH, ZLADIV * .. * .. External Subroutines .. - EXTERNAL DSCAL, ZDSCAL, ZDRSCL + EXTERNAL DSCAL, ZDSCAL, ZDRSCL, ZSCAL * .. * .. Intrinsic Functions .. INTRINSIC ABS diff --git a/SRC/zunbdb6.f b/SRC/zunbdb6.f index 0d83cf519..680a5d0dc 100644 --- a/SRC/zunbdb6.f +++ b/SRC/zunbdb6.f @@ -185,6 +185,7 @@ SUBROUTINE ZUNBDB6( M1, M2, N, X1, INCX1, X2, INCX2, Q1, LDQ1, * .. * .. External Functions .. DOUBLE PRECISION DLAMCH + EXTERNAL DLAMCH * .. * .. External Subroutines .. EXTERNAL ZGEMV, ZLASSQ, XERBLA From 80b4f5328f633c7df4e94107bba4844edc6acbab Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Wed, 29 Apr 2026 15:20:01 +0100 Subject: [PATCH 18/39] Add missing EXTERNAL declarations in TESTING/EIG Co-authored-by: Copilot --- TESTING/EIG/cchkdmd.f90 | 3 ++- TESTING/EIG/cchkee.F | 3 ++- TESTING/EIG/cchkhb2stg.f | 5 +++-- TESTING/EIG/cckgsv.f | 3 ++- TESTING/EIG/cdrges3.f | 2 +- TESTING/EIG/cdrgev3.f | 2 +- TESTING/EIG/cglmts.f | 2 +- TESTING/EIG/cgqrts.f | 2 +- TESTING/EIG/chet22.f | 2 +- TESTING/EIG/clsets.f | 2 +- TESTING/EIG/dchksb2stg.f | 2 +- TESTING/EIG/ddrges3.f | 3 ++- TESTING/EIG/ddrgev3.f | 2 +- TESTING/EIG/ddrvbd.f | 2 +- TESTING/EIG/dget40.f | 2 +- TESTING/EIG/dsyl01.f | 2 +- TESTING/EIG/schksb2stg.f | 2 +- TESTING/EIG/sdrges3.f | 3 ++- TESTING/EIG/sdrgev3.f | 2 +- TESTING/EIG/sdrvbd.f | 2 +- TESTING/EIG/sget34.f | 2 +- TESTING/EIG/sglmts.f | 2 +- TESTING/EIG/sgqrts.f | 2 +- TESTING/EIG/slsets.f | 2 +- TESTING/EIG/ssyt22.f | 2 +- TESTING/EIG/zchkdmd.f90 | 2 +- TESTING/EIG/zchkee.F | 11 ++++++----- TESTING/EIG/zchkhb2stg.f | 5 +++-- TESTING/EIG/zdrges3.f | 2 +- TESTING/EIG/zdrgev3.f | 2 +- TESTING/EIG/zerrec.f | 3 ++- TESTING/EIG/zerred.f | 2 +- TESTING/EIG/zerrhs.f | 5 +++-- TESTING/EIG/zerrst.f | 3 ++- 34 files changed, 52 insertions(+), 41 deletions(-) diff --git a/TESTING/EIG/cchkdmd.f90 b/TESTING/EIG/cchkdmd.f90 index f8aa19a30..6fcda0888 100644 --- a/TESTING/EIG/cchkdmd.f90 +++ b/TESTING/EIG/cchkdmd.f90 @@ -82,7 +82,8 @@ PROGRAM DMD_TEST LOGICAL :: TEST_QRDMD !..... external subroutines (BLAS and LAPACK) - EXTERNAL CAXPY, CGEEV, CGEMM, CGEMV, CLASCL, XLAENV + EXTERNAL CAXPY, CGEEV, CGEMM, CGEMV, CLASCL, XLAENV, & + CLARNV, CLATMR !.....external subroutines DMD package ! subroutines under test EXTERNAL CGEDMD, CGEDMDQ diff --git a/TESTING/EIG/cchkee.F b/TESTING/EIG/cchkee.F index 638966afe..277f0afa9 100644 --- a/TESTING/EIG/cchkee.F +++ b/TESTING/EIG/cchkee.F @@ -1109,7 +1109,8 @@ PROGRAM CCHKEE $ CDRVSG, CDRVST, CDRVSX, CDRVVX, CERRBD, $ CERRED, CERRGG, CERRHS, CERRST, ILAVER, XLAENV, $ CDRGES3, CDRGEV3, - $ CCHKST2STG, CDRVST2STG, CCHKHB2STG + $ CCHKST2STG, CDRVST2STG, CCHKHB2STG, + $ CDRVSG2STG * .. * .. Intrinsic Functions .. INTRINSIC LEN, MIN diff --git a/TESTING/EIG/cchkhb2stg.f b/TESTING/EIG/cchkhb2stg.f index a8f7e5895..de5a7629a 100644 --- a/TESTING/EIG/cchkhb2stg.f +++ b/TESTING/EIG/cchkhb2stg.f @@ -388,8 +388,9 @@ SUBROUTINE CCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, EXTERNAL SLAMCH * .. * .. External Subroutines .. - EXTERNAL SLASUM, XERBLA, CHBT21, CHBTRD, CLACPY, CLASET, - $ CLATMR, CLATMS, CHETRD_HB2ST, CSTEQR + EXTERNAL SCOPY, SLASET, SLASUM, XERBLA, CHBT21, + $ CHBTRD, CLACPY, CLASET, CLATMR, CLATMS, + $ CHETRD_HB2ST, CSTEQR * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, CONJG, MAX, MIN, SQRT diff --git a/TESTING/EIG/cckgsv.f b/TESTING/EIG/cckgsv.f index 2f2b08171..467c075f7 100644 --- a/TESTING/EIG/cckgsv.f +++ b/TESTING/EIG/cckgsv.f @@ -235,7 +235,8 @@ SUBROUTINE CCKGSV( NM, MVAL, PVAL, NVAL, NMATS, ISEED, THRESH, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAHDG, ALAREQ, ALASUM, CLATMS, SLATB9, CGSVTS3 + EXTERNAL ALAHDG, ALAREQ, ALASUM, CLATMS, SLATB9, + $ CGGSVD3, CGSVTS3 * .. * .. Intrinsic Functions .. INTRINSIC ABS diff --git a/TESTING/EIG/cdrges3.f b/TESTING/EIG/cdrges3.f index 2aaaaaeba..cda55d3bd 100644 --- a/TESTING/EIG/cdrges3.f +++ b/TESTING/EIG/cdrges3.f @@ -437,7 +437,7 @@ SUBROUTINE CDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, CGET51, CGET54, CGGES3, CLACPY, CLARFG, - $ CLASET, CLATM4, CUNM2R, XERBLA + $ CLASET, CLATM4, CUNM2R, XERBLA, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, AIMAG, CONJG, MAX, MIN, REAL, SIGN diff --git a/TESTING/EIG/cdrgev3.f b/TESTING/EIG/cdrgev3.f index 5836890d3..4eb2f2a51 100644 --- a/TESTING/EIG/cdrgev3.f +++ b/TESTING/EIG/cdrgev3.f @@ -453,7 +453,7 @@ SUBROUTINE CDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, CGET52, CGGEV3, CLACPY, CLARFG, CLASET, - $ CLATM4, CUNM2R, XERBLA + $ CLATM4, CUNM2R, XERBLA, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, CONJG, MAX, MIN, REAL, SIGN diff --git a/TESTING/EIG/cglmts.f b/TESTING/EIG/cglmts.f index b906050a8..9bd27abc1 100644 --- a/TESTING/EIG/cglmts.f +++ b/TESTING/EIG/cglmts.f @@ -180,7 +180,7 @@ SUBROUTINE CGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, EXTERNAL SCASUM, SLAMCH, CLANGE * .. * .. External Subroutines .. - EXTERNAL CLACPY + EXTERNAL CCOPY, CGEMV, CGGGLM, CLACPY * * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/TESTING/EIG/cgqrts.f b/TESTING/EIG/cgqrts.f index b641c1820..a9dd8510c 100644 --- a/TESTING/EIG/cgqrts.f +++ b/TESTING/EIG/cgqrts.f @@ -210,7 +210,7 @@ SUBROUTINE CGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, EXTERNAL SLAMCH, CLANGE, CLANHE * .. * .. External Subroutines .. - EXTERNAL CGEMM, CLACPY, CLASET, CUNGQR, + EXTERNAL CGEMM, CGGQRF, CLACPY, CLASET, CUNGQR, $ CUNGRQ, CHERK * .. * .. Intrinsic Functions .. diff --git a/TESTING/EIG/chet22.f b/TESTING/EIG/chet22.f index 6ad378ad7..d5bc58a52 100644 --- a/TESTING/EIG/chet22.f +++ b/TESTING/EIG/chet22.f @@ -192,7 +192,7 @@ SUBROUTINE CHET22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, EXTERNAL CLANHE, SLAMCH * .. * .. External Subroutines .. - EXTERNAL CGEMM, CHEMM + EXTERNAL CGEMM, CHEMM, CUNT01 * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN, REAL diff --git a/TESTING/EIG/clsets.f b/TESTING/EIG/clsets.f index 2c185d5af..7e940230e 100644 --- a/TESTING/EIG/clsets.f +++ b/TESTING/EIG/clsets.f @@ -174,7 +174,7 @@ SUBROUTINE CLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, INTEGER INFO * .. * .. External Subroutines .. - EXTERNAL CGGLSE, CLACPY, CGET02 + EXTERNAL CCOPY, CGGLSE, CLACPY, CGET02 * .. * .. Executable Statements .. * diff --git a/TESTING/EIG/dchksb2stg.f b/TESTING/EIG/dchksb2stg.f index 6bc0ca532..4d5fdc665 100644 --- a/TESTING/EIG/dchksb2stg.f +++ b/TESTING/EIG/dchksb2stg.f @@ -377,7 +377,7 @@ SUBROUTINE DCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, * .. * .. External Subroutines .. EXTERNAL DLACPY, DLASET, DLASUM, DLATMR, DLATMS, DSBT21, - $ DSBTRD, XERBLA, DSYTRD_SB2ST, DSTEQR + $ DSBTRD, XERBLA, DSYTRD_SB2ST, DSTEQR, DCOPY * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, MAX, MIN, SQRT diff --git a/TESTING/EIG/ddrges3.f b/TESTING/EIG/ddrges3.f index 6d98d4bfa..a1f3722c6 100644 --- a/TESTING/EIG/ddrges3.f +++ b/TESTING/EIG/ddrges3.f @@ -453,7 +453,8 @@ SUBROUTINE DDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, DGET51, DGET53, DGET54, DGGES3, DLACPY, - $ DLARFG, DLASET, DLATM4, DORM2R, XERBLA + $ DLARFG, DLASET, DLATM4, DORM2R, XERBLA, + $ XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, MAX, MIN, SIGN diff --git a/TESTING/EIG/ddrgev3.f b/TESTING/EIG/ddrgev3.f index 145f08933..7436ce286 100644 --- a/TESTING/EIG/ddrgev3.f +++ b/TESTING/EIG/ddrgev3.f @@ -457,7 +457,7 @@ SUBROUTINE DDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, DGET52, DGGEV3, DLACPY, DLARFG, DLASET, - $ DLATM4, DORM2R, XERBLA + $ DLATM4, DORM2R, XERBLA, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, MAX, MIN, SIGN diff --git a/TESTING/EIG/ddrvbd.f b/TESTING/EIG/ddrvbd.f index 0e3e2b461..a0b65a6aa 100644 --- a/TESTING/EIG/ddrvbd.f +++ b/TESTING/EIG/ddrvbd.f @@ -421,7 +421,7 @@ SUBROUTINE DDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. External Subroutines .. EXTERNAL ALASVM, DBDT01, DGEJSV, DGESDD, DGESVD, $ DGESVDQ, DGESVDX, DGESVJ, DLACPY, DLASET, - $ DLATMS, DORT01, DORT03, XERBLA + $ DLATMS, DBDT05, DORT01, DORT03, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, INT, MAX, MIN diff --git a/TESTING/EIG/dget40.f b/TESTING/EIG/dget40.f index f0b6cacd0..384e0603b 100644 --- a/TESTING/EIG/dget40.f +++ b/TESTING/EIG/dget40.f @@ -120,7 +120,7 @@ SUBROUTINE DGET40( RMAX, LMAX, NINFO, KNT, NIN ) EXTERNAL DLAMCH * .. * .. External Subroutines .. - EXTERNAL DHST01, DLACPY, DLASET, DTGEXC + EXTERNAL DGET51, DHST01, DLACPY, DLASET, DTGEXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, SIGN diff --git a/TESTING/EIG/dsyl01.f b/TESTING/EIG/dsyl01.f index 0ea481382..66fa4c074 100644 --- a/TESTING/EIG/dsyl01.f +++ b/TESTING/EIG/dsyl01.f @@ -130,7 +130,7 @@ SUBROUTINE DSYL01( THRESH, NFAIL, RMAX, NINFO, KNT ) * .. External Functions .. LOGICAL DISNAN DOUBLE PRECISION DLAMCH, DLANGE - EXTERNAL DLAMCH, DLANGE + EXTERNAL DISNAN, DLAMCH, DLANGE * .. * .. External Subroutines .. EXTERNAL DLATMR, DLACPY, DGEMM, DTRSYL, DTRSYL3 diff --git a/TESTING/EIG/schksb2stg.f b/TESTING/EIG/schksb2stg.f index d9ec6db29..d93079517 100644 --- a/TESTING/EIG/schksb2stg.f +++ b/TESTING/EIG/schksb2stg.f @@ -377,7 +377,7 @@ SUBROUTINE SCHKSB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, * .. * .. External Subroutines .. EXTERNAL SLACPY, SLASET, SLASUM, SLATMR, SLATMS, SSBT21, - $ SSBTRD, XERBLA, SSYTRD_SB2ST, SSTEQR + $ SSBTRD, XERBLA, SSYTRD_SB2ST, SSTEQR, SCOPY * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, MAX, MIN, SQRT diff --git a/TESTING/EIG/sdrges3.f b/TESTING/EIG/sdrges3.f index b9abc64fd..7821f041a 100644 --- a/TESTING/EIG/sdrges3.f +++ b/TESTING/EIG/sdrges3.f @@ -453,7 +453,8 @@ SUBROUTINE SDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, SGET51, SGET53, SGET54, SGGES3, SLACPY, - $ SLARFG, SLASET, SLATM4, SORM2R, XERBLA + $ SLARFG, SLASET, SLATM4, SORM2R, XERBLA, + $ XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, REAL, SIGN diff --git a/TESTING/EIG/sdrgev3.f b/TESTING/EIG/sdrgev3.f index 772e47a55..6c0f9bb40 100644 --- a/TESTING/EIG/sdrgev3.f +++ b/TESTING/EIG/sdrgev3.f @@ -457,7 +457,7 @@ SUBROUTINE SDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, SGET52, SGGEV3, SLACPY, SLARFG, SLASET, - $ SLATM4, SORM2R, XERBLA + $ SLATM4, SORM2R, XERBLA, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, REAL, SIGN diff --git a/TESTING/EIG/sdrvbd.f b/TESTING/EIG/sdrvbd.f index 77abb532f..33ff68055 100644 --- a/TESTING/EIG/sdrvbd.f +++ b/TESTING/EIG/sdrvbd.f @@ -421,7 +421,7 @@ SUBROUTINE SDRVBD( NSIZES, MM, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. External Subroutines .. EXTERNAL ALASVM, SBDT01, SGEJSV, SGESDD, SGESVD, $ SGESVDQ, SGESVDX, SGESVJ, SLACPY, SLASET, - $ SLATMS, SORT01, SORT03, XERBLA + $ SLATMS, SBDT05, SORT01, SORT03, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC ABS, REAL, INT, MAX, MIN diff --git a/TESTING/EIG/sget34.f b/TESTING/EIG/sget34.f index 3d217775a..d8b49c342 100644 --- a/TESTING/EIG/sget34.f +++ b/TESTING/EIG/sget34.f @@ -117,7 +117,7 @@ SUBROUTINE SGET34( RMAX, LMAX, NINFO, KNT ) EXTERNAL SLAMCH * .. * .. External Subroutines .. - EXTERNAL SCOPY, SLAEXC + EXTERNAL SCOPY, SHST01, SLAEXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, REAL, SIGN, SQRT diff --git a/TESTING/EIG/sglmts.f b/TESTING/EIG/sglmts.f index 0add7d0a0..b4b3e228d 100644 --- a/TESTING/EIG/sglmts.f +++ b/TESTING/EIG/sglmts.f @@ -176,7 +176,7 @@ SUBROUTINE SGLMTS( N, M, P, A, AF, LDA, B, BF, LDB, D, DF, EXTERNAL SASUM, SLAMCH, SLANGE * .. * .. External Subroutines .. - EXTERNAL SLACPY + EXTERNAL SCOPY, SGEMV, SGGGLM, SLACPY * * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/TESTING/EIG/sgqrts.f b/TESTING/EIG/sgqrts.f index e292e897b..122c4effb 100644 --- a/TESTING/EIG/sgqrts.f +++ b/TESTING/EIG/sgqrts.f @@ -207,7 +207,7 @@ SUBROUTINE SGQRTS( N, M, P, A, AF, Q, R, LDA, TAUA, B, BF, Z, T, EXTERNAL SLAMCH, SLANGE, SLANSY * .. * .. External Subroutines .. - EXTERNAL SGEMM, SLACPY, SLASET, SORGQR, + EXTERNAL SGEMM, SGGQRF, SLACPY, SLASET, SORGQR, $ SORGRQ, SSYRK * .. * .. Intrinsic Functions .. diff --git a/TESTING/EIG/slsets.f b/TESTING/EIG/slsets.f index aecad49b9..53fc03af7 100644 --- a/TESTING/EIG/slsets.f +++ b/TESTING/EIG/slsets.f @@ -174,7 +174,7 @@ SUBROUTINE SLSETS( M, P, N, A, AF, LDA, B, BF, LDB, C, CF, INTEGER INFO * .. * .. External Subroutines .. - EXTERNAL SGGLSE, SLACPY, SGET02 + EXTERNAL SCOPY, SGGLSE, SLACPY, SGET02 * .. * .. Executable Statements .. * diff --git a/TESTING/EIG/ssyt22.f b/TESTING/EIG/ssyt22.f index ea88687c3..a2eef4373 100644 --- a/TESTING/EIG/ssyt22.f +++ b/TESTING/EIG/ssyt22.f @@ -184,7 +184,7 @@ SUBROUTINE SSYT22( ITYPE, UPLO, N, M, KBAND, A, LDA, D, E, U, LDU, EXTERNAL SLAMCH, SLANSY * .. * .. External Subroutines .. - EXTERNAL SGEMM, SSYMM + EXTERNAL SGEMM, SORT01, SSYMM * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN, REAL diff --git a/TESTING/EIG/zchkdmd.f90 b/TESTING/EIG/zchkdmd.f90 index 09c34f868..334befbd1 100644 --- a/TESTING/EIG/zchkdmd.f90 +++ b/TESTING/EIG/zchkdmd.f90 @@ -92,7 +92,7 @@ PROGRAM DMD_TEST ! subroutines under test EXTERNAL ZGEDMD, ZGEDMDQ !.....external functions (BLAS and LAPACK) - EXTERNAL DLAMCH, DZNRM2 + EXTERNAL DLAMCH, DZNRM2, ZLANGE REAL(KIND=WP) :: DLAMCH, DZNRM2 REAL(KIND=WP) :: ZLANGE EXTERNAL IZAMAX diff --git a/TESTING/EIG/zchkee.F b/TESTING/EIG/zchkee.F index 7261881b4..1a3e02478 100644 --- a/TESTING/EIG/zchkee.F +++ b/TESTING/EIG/zchkee.F @@ -1108,8 +1108,9 @@ PROGRAM ZCHKEE $ ZDRGES, ZDRGEV, ZDRGSX, ZDRGVX, ZDRVBD, ZDRVES, $ ZDRVEV, ZDRVSG, ZDRVST, ZDRVSX, ZDRVVX, $ ZERRBD, ZERRED, ZERRGG, ZERRHS, ZERRST, ILAVER, - $ ZDRGES3, ZDRGEV3, - $ ZCHKST2STG, ZDRVST2STG, ZCHKHB2STG + $ ZDRGES3, ZDRGEV3, + $ ZCHKST2STG, ZDRVST2STG, ZCHKHB2STG, + $ ZDRVSG2STG * .. * .. Intrinsic Functions .. INTRINSIC LEN, MIN @@ -1851,7 +1852,7 @@ PROGRAM ZCHKEE $ WRITE( NOUT, FMT = 9980 )'ZCHKHS', INFO 270 CONTINUE * - ELSE IF( LSAMEN( 3, C3, 'ZST' ) .OR. LSAMEN( 3, C3, 'SEP' ) + ELSE IF( LSAMEN( 3, C3, 'ZST' ) .OR. LSAMEN( 3, C3, 'SEP' ) $ .OR. LSAMEN( 3, C3, 'SE2' ) ) THEN * * ---------------------------------- @@ -2349,9 +2350,9 @@ PROGRAM ZCHKEE * $ A( 1, 2 ), NMAX, WORK, LWORK, RWORK, RESULT, * $ INFO ) CALL ZCHKHB2STG( NN, NVAL, NK, KVAL, MAXTYP, DOTYPE, ISEED, - $ THRESH, NOUT, A( 1, 1 ), NMAX, DR( 1, 1 ), + $ THRESH, NOUT, A( 1, 1 ), NMAX, DR( 1, 1 ), $ DR( 1, 2 ), DR( 1, 3 ), DR( 1, 4 ), DR( 1, 5 ), - $ A( 1, 2 ), NMAX, WORK, LWORK, RWORK, RESULT, + $ A( 1, 2 ), NMAX, WORK, LWORK, RWORK, RESULT, $ INFO ) IF( INFO.NE.0 ) $ WRITE( NOUT, FMT = 9980 )'ZCHKHB', INFO diff --git a/TESTING/EIG/zchkhb2stg.f b/TESTING/EIG/zchkhb2stg.f index ba576d36f..54b7a69b6 100644 --- a/TESTING/EIG/zchkhb2stg.f +++ b/TESTING/EIG/zchkhb2stg.f @@ -385,8 +385,9 @@ SUBROUTINE ZCHKHB2STG( NSIZES, NN, NWDTHS, KK, NTYPES, DOTYPE, EXTERNAL DLAMCH * .. * .. External Subroutines .. - EXTERNAL DLASUM, XERBLA, ZHBT21, ZHBTRD, ZLACPY, ZLASET, - $ ZLATMR, ZLATMS, ZHETRD_HB2ST, ZSTEQR + EXTERNAL DCOPY, DLASET, DLASUM, XERBLA, ZHBT21, + $ ZHBTRD, ZLACPY, ZLASET, ZLATMR, ZLATMS, + $ ZHETRD_HB2ST, ZSTEQR * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, DCONJG, MAX, MIN, SQRT diff --git a/TESTING/EIG/zdrges3.f b/TESTING/EIG/zdrges3.f index 87064ef23..21f50994d 100644 --- a/TESTING/EIG/zdrges3.f +++ b/TESTING/EIG/zdrges3.f @@ -437,7 +437,7 @@ SUBROUTINE ZDRGES3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, XERBLA, ZGET51, ZGET54, ZGGES3, ZLACPY, - $ ZLARFG, ZLASET, ZLATM4, ZUNM2R + $ ZLARFG, ZLASET, ZLATM4, ZUNM2R, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, DCONJG, DIMAG, MAX, MIN, SIGN diff --git a/TESTING/EIG/zdrgev3.f b/TESTING/EIG/zdrgev3.f index 4de01513a..e2ed7d440 100644 --- a/TESTING/EIG/zdrgev3.f +++ b/TESTING/EIG/zdrgev3.f @@ -453,7 +453,7 @@ SUBROUTINE ZDRGEV3( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, * .. * .. External Subroutines .. EXTERNAL ALASVM, XERBLA, ZGET52, ZGGEV3, ZLACPY, ZLARFG, - $ ZLASET, ZLATM4, ZUNM2R + $ ZLASET, ZLATM4, ZUNM2R, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, DCONJG, MAX, MIN, SIGN diff --git a/TESTING/EIG/zerrec.f b/TESTING/EIG/zerrec.f index cc3f48b48..36196bbf8 100644 --- a/TESTING/EIG/zerrec.f +++ b/TESTING/EIG/zerrec.f @@ -83,7 +83,8 @@ SUBROUTINE ZERREC( PATH, NUNIT ) $ C( NMAX, NMAX ), WORK( LW ), X( NMAX ) * .. * .. External Subroutines .. - EXTERNAL CHKXER, ZTREXC, ZTRSEN, ZTRSNA, ZTRSYL + EXTERNAL CHKXER, ZTREXC, ZTRSEN, ZTRSNA, ZTRSYL, + $ ZTRSYL3 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/EIG/zerred.f b/TESTING/EIG/zerred.f index eef38dda7..4d3fd1640 100644 --- a/TESTING/EIG/zerred.f +++ b/TESTING/EIG/zerred.f @@ -100,7 +100,7 @@ SUBROUTINE ZERRED( PATH, NUNIT ) $ VT( NMAX, NMAX ), W( 10*NMAX ), X( NMAX ) * .. * .. External Subroutines .. - EXTERNAL CHKXER, ZGEES, ZGEESX, ZGEEV, ZGEEVX, ZGESVJ, + EXTERNAL CHKXER, ZGEES, ZGEESX, ZGEEV, ZGEEVX, ZGEJSV, $ ZGESDD, ZGESVD, ZGESVDX, ZGESVDQ * .. * .. External Functions .. diff --git a/TESTING/EIG/zerrhs.f b/TESTING/EIG/zerrhs.f index f9e2e32dd..0526127bd 100644 --- a/TESTING/EIG/zerrhs.f +++ b/TESTING/EIG/zerrhs.f @@ -86,8 +86,9 @@ SUBROUTINE ZERRHS( PATH, NUNIT ) EXTERNAL LSAMEN * .. * .. External Subroutines .. - EXTERNAL CHKXER, ZGEBAK, ZGEBAL, ZGEHRD, ZHSEIN, ZHSEQR, - $ ZUNGHR, ZUNMHR, ZTREVC, ZTREVC3 + EXTERNAL CHKXER, ZGEBAK, ZGEBAL, ZGEHD2, ZGEHRD, + $ ZHSEIN, ZHSEQR, ZUNGHR, ZUNMHR, ZTREVC, + $ ZTREVC3 * .. * .. Intrinsic Functions .. INTRINSIC DBLE diff --git a/TESTING/EIG/zerrst.f b/TESTING/EIG/zerrst.f index 2a989a232..ac6b01513 100644 --- a/TESTING/EIG/zerrst.f +++ b/TESTING/EIG/zerrst.f @@ -99,7 +99,8 @@ SUBROUTINE ZERRST( PATH, NUNIT ) $ ZUNGTR, ZUNMTR, ZUPGTR, ZUPMTR, ZHETD2, $ ZHEEVD_2STAGE, ZHEEVR_2STAGE, ZHEEVX_2STAGE, $ ZHEEV_2STAGE, ZHBEV_2STAGE, ZHBEVD_2STAGE, - $ ZHBEVX_2STAGE, ZHETRD_2STAGE + $ ZHBEVX_2STAGE, ZHETRD_2STAGE, + $ ZHETRD_HE2HB, ZHETRD_HB2ST * .. * .. Scalars in Common .. LOGICAL LERR, OK From d31bf011419fc59130716ca56d8f1c8823770f30 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Sat, 2 May 2026 15:15:13 +0200 Subject: [PATCH 19/39] Add missing external declarations in TESTING/LIN (and removed unnecessary ones) --- TESTING/LIN/cchkaa.F | 5 ++++- TESTING/LIN/cchkhe.f | 2 +- TESTING/LIN/cchkhe_aa_2stage.f | 7 +++---- TESTING/LIN/cchklqt.f | 2 +- TESTING/LIN/cchklqtp.f | 2 +- TESTING/LIN/cchkqrt.f | 2 +- TESTING/LIN/cchkqrtp.f | 2 +- TESTING/LIN/cchkrfp.f | 2 +- TESTING/LIN/cchksy.f | 2 +- TESTING/LIN/cchksy_aa_2stage.f | 5 ++--- TESTING/LIN/cchktsqr.f | 3 +-- TESTING/LIN/cdrvhe_aa.f | 11 +++-------- TESTING/LIN/cdrvhe_aa_2stage.f | 11 +++-------- TESTING/LIN/cdrvhe_rk.f | 2 +- TESTING/LIN/cdrvls.f | 2 +- TESTING/LIN/cdrvrf3.f | 2 +- TESTING/LIN/cdrvsy_aa.f | 10 +++------- TESTING/LIN/cdrvsy_aa_2stage.f | 11 +++-------- TESTING/LIN/cdrvsy_rook.f | 6 +++--- TESTING/LIN/cerrhe.f | 4 ++-- TESTING/LIN/cerrsy.f | 3 ++- TESTING/LIN/cerrtsqr.f | 4 ++-- TESTING/LIN/cerrvx.f | 3 ++- TESTING/LIN/chet01_aa.f | 2 +- TESTING/LIN/clqt04.f | 6 +++++- TESTING/LIN/clqt05.f | 6 +++++- TESTING/LIN/cqrt04.f | 6 +++++- TESTING/LIN/cqrt05.f | 6 +++++- TESTING/LIN/csyt01_aa.f | 2 +- TESTING/LIN/ctsqr01.f | 6 +++++- TESTING/LIN/cunhr_col02.f | 4 ++-- TESTING/LIN/dchkaa.F | 3 ++- TESTING/LIN/dchklqt.f | 2 +- TESTING/LIN/dchklqtp.f | 2 +- TESTING/LIN/dchkqrt.f | 2 +- TESTING/LIN/dchkqrtp.f | 2 +- TESTING/LIN/dchkrfp.f | 2 +- TESTING/LIN/dchktsqr.f | 3 +-- TESTING/LIN/ddrvab.f | 2 +- TESTING/LIN/ddrvac.f | 7 +------ TESTING/LIN/ddrvgbx.f | 2 +- TESTING/LIN/ddrvrf3.f | 2 +- TESTING/LIN/ddrvsy_aa.f | 10 +++------- TESTING/LIN/ddrvsy_aa_2stage.f | 11 +++-------- TESTING/LIN/ddrvsy_rook.f | 6 ++---- TESTING/LIN/derrtsqr.f | 2 +- TESTING/LIN/dlqt04.f | 7 +++++-- TESTING/LIN/dlqt05.f | 7 +++++-- TESTING/LIN/dorhr_col02.f | 4 ++-- TESTING/LIN/dqrt04.f | 6 ++++-- TESTING/LIN/dqrt05.f | 7 +++++-- TESTING/LIN/dsyt01_aa.f | 2 +- TESTING/LIN/dtsqr01.f | 7 +++++-- TESTING/LIN/schkaa.F | 3 ++- TESTING/LIN/schklq.f | 2 +- TESTING/LIN/schklqt.f | 2 +- TESTING/LIN/schklqtp.f | 2 +- TESTING/LIN/schkqrt.f | 2 +- TESTING/LIN/schkqrtp.f | 2 +- TESTING/LIN/schkrfp.f | 2 +- TESTING/LIN/schksy.f | 4 ++-- TESTING/LIN/schksy_aa_2stage.f | 5 ++--- TESTING/LIN/schktsqr.f | 3 +-- TESTING/LIN/sdrvrf3.f | 2 +- TESTING/LIN/sdrvsy_aa.f | 10 +++------- TESTING/LIN/sdrvsy_aa_2stage.f | 11 +++-------- TESTING/LIN/sdrvsy_rook.f | 6 ++---- TESTING/LIN/serrtsqr.f | 4 ++-- TESTING/LIN/slqt04.f | 6 ++++-- TESTING/LIN/slqt05.f | 7 +++++-- TESTING/LIN/sorhr_col02.f | 4 ++-- TESTING/LIN/sqrt04.f | 3 +-- TESTING/LIN/sqrt05.f | 3 +-- TESTING/LIN/ssyt01_aa.f | 2 +- TESTING/LIN/stsqr01.f | 6 +++++- TESTING/LIN/zchkaa.F | 3 ++- TESTING/LIN/zchkhe.f | 2 +- TESTING/LIN/zchkhe_aa_2stage.f | 4 ++-- TESTING/LIN/zchklqt.f | 2 +- TESTING/LIN/zchklqtp.f | 2 +- TESTING/LIN/zchkqrt.f | 2 +- TESTING/LIN/zchkqrtp.f | 2 +- TESTING/LIN/zchkrfp.f | 2 +- TESTING/LIN/zchksy_aa_2stage.f | 5 ++--- TESTING/LIN/zchktsqr.f | 3 +-- TESTING/LIN/zdrvab.f | 2 +- TESTING/LIN/zdrvac.f | 2 +- TESTING/LIN/zdrvhe_aa.f | 11 +++-------- TESTING/LIN/zdrvhe_aa_2stage.f | 9 ++------- TESTING/LIN/zdrvls.f | 2 +- TESTING/LIN/zdrvrf3.f | 2 +- TESTING/LIN/zdrvsy_aa.f | 10 +++------- TESTING/LIN/zdrvsy_aa_2stage.f | 9 ++------- TESTING/LIN/zdrvsy_rook.f | 6 +++--- TESTING/LIN/zerrsy.f | 4 +++- TESTING/LIN/zerrtsqr.f | 4 ++-- TESTING/LIN/zerrvx.f | 11 ++++++----- TESTING/LIN/zhet01_aa.f | 2 +- TESTING/LIN/zlqt04.f | 5 ++++- TESTING/LIN/zlqt05.f | 6 +++++- TESTING/LIN/zpot06.f | 3 +-- TESTING/LIN/zqrt04.f | 5 ++++- TESTING/LIN/zqrt05.f | 7 +++++-- TESTING/LIN/zsyt01_aa.f | 2 +- TESTING/LIN/ztsqr01.f | 7 +++++-- TESTING/LIN/zunhr_col02.f | 4 ++-- 106 files changed, 232 insertions(+), 238 deletions(-) diff --git a/TESTING/LIN/cchkaa.F b/TESTING/LIN/cchkaa.F index a5a3428c1..790e3045e 100644 --- a/TESTING/LIN/cchkaa.F +++ b/TESTING/LIN/cchkaa.F @@ -177,7 +177,10 @@ PROGRAM CCHKAA $ CDRVHE_ROOK, CDRVHE_RK, CDRVHE_AA, CDRVHP, $ CDRVLS, CDRVPB, CDRVPO, CDRVPP, CDRVPT, CDRVSP, $ CDRVSY, CDRVSY_ROOK, CDRVSY_RK, CDRVSY_AA, - $ ILAVER, CCHKQRT, CCHKQRTP + $ ILAVER, CCHKQRT, CCHKQRTP, + $ CCHKLQT, CCHKLQTP, CCHKTSQR, + $ CCHKHE_AA_2STAGE, CDRVHE_AA_2STAGE, + $ CCHKSY_AA_2STAGE, CDRVSY_AA_2STAGE * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cchkhe.f b/TESTING/LIN/cchkhe.f index 61f1862f3..7797e14b4 100644 --- a/TESTING/LIN/cchkhe.f +++ b/TESTING/LIN/cchkhe.f @@ -221,7 +221,7 @@ SUBROUTINE CCHKHE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, EXTERNAL ALAERH, ALAHD, ALASUM, CERRHE, CGET04, CHECON, $ CHERFS, CHET01, CHETRF, CHETRI2, CHETRS, $ CLACPY, CLAIPD, CLARHS, CLATB4, CLATMS, CPOT02, - $ CPOT03, CPOT05, XLAENV + $ CPOT03, CPOT05, CHETRS2, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/cchkhe_aa_2stage.f b/TESTING/LIN/cchkhe_aa_2stage.f index d79978e55..09a6a3228 100644 --- a/TESTING/LIN/cchkhe_aa_2stage.f +++ b/TESTING/LIN/cchkhe_aa_2stage.f @@ -217,10 +217,9 @@ SUBROUTINE CCHKHE_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, CERRHE, CLACPY, - $ CLARHS, CLATB4, CLATMS, CPOT02, - $ CHETRF_AA_2STAGE, - $ CHETRS_AA_2STAGE, XLAENV + EXTERNAL ALAERH, ALAHD, ALASUM, CERRHE, CLACPY, + $ CLAIPD, CLARHS, CLATB4, CLATMS, CPOT02, + $ CHETRF_AA_2STAGE, CHETRS_AA_2STAGE, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/cchklqt.f b/TESTING/LIN/cchklqt.f index 7ec8b2c62..1c15e91e0 100644 --- a/TESTING/LIN/cchklqt.f +++ b/TESTING/LIN/cchklqt.f @@ -129,7 +129,7 @@ SUBROUTINE CCHKLQT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, CERRLQT, CLQT04 + EXTERNAL ALAHD, ALASUM, CERRLQT, CLQT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cchklqtp.f b/TESTING/LIN/cchklqtp.f index 987c0c365..1d6f00fa1 100644 --- a/TESTING/LIN/cchklqtp.f +++ b/TESTING/LIN/cchklqtp.f @@ -129,7 +129,7 @@ SUBROUTINE CCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, CERRLQTP, CLQT04 + EXTERNAL ALAHD, ALASUM, CERRLQTP, CLQT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cchkqrt.f b/TESTING/LIN/cchkqrt.f index 7aeb6df4b..f3ecfbfa6 100644 --- a/TESTING/LIN/cchkqrt.f +++ b/TESTING/LIN/cchkqrt.f @@ -129,7 +129,7 @@ SUBROUTINE CCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, CERRQRT, CQRT04 + EXTERNAL ALAHD, ALASUM, CERRQRT, CQRT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cchkqrtp.f b/TESTING/LIN/cchkqrtp.f index 6820c9004..e22c4f1e4 100644 --- a/TESTING/LIN/cchkqrtp.f +++ b/TESTING/LIN/cchkqrtp.f @@ -129,7 +129,7 @@ SUBROUTINE CCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, CERRQRTP + EXTERNAL ALAHD, ALASUM, CERRQRTP, CQRT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cchkrfp.f b/TESTING/LIN/cchkrfp.f index a926380d4..623656762 100644 --- a/TESTING/LIN/cchkrfp.f +++ b/TESTING/LIN/cchkrfp.f @@ -111,7 +111,7 @@ PROGRAM CCHKRFP * .. * .. External Subroutines .. EXTERNAL ILAVER, CDRVRFP, CDRVRF1, CDRVRF2, CDRVRF3, - + CDRVRF4 + + CDRVRF4, CERRRFP * .. * .. Executable Statements .. * diff --git a/TESTING/LIN/cchksy.f b/TESTING/LIN/cchksy.f index ce69f88b8..f33cb879f 100644 --- a/TESTING/LIN/cchksy.f +++ b/TESTING/LIN/cchksy.f @@ -221,7 +221,7 @@ SUBROUTINE CCHKSY( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, EXTERNAL ALAERH, ALAHD, ALASUM, CERRSY, CGET04, CLACPY, $ CLARHS, CLATB4, CLATMS, CLATSY, CPOT05, CSYCON, $ CSYRFS, CSYT01, CSYT02, CSYT03, CSYTRF, - $ CSYTRI2, CSYTRS, XLAENV + $ CSYTRI2, CSYTRS, CSYTRS2, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/cchksy_aa_2stage.f b/TESTING/LIN/cchksy_aa_2stage.f index bede7cca5..40bec5736 100644 --- a/TESTING/LIN/cchksy_aa_2stage.f +++ b/TESTING/LIN/cchksy_aa_2stage.f @@ -215,9 +215,8 @@ SUBROUTINE CCHKSY_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, * .. * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASUM, CERRSY, CLACPY, CLARHS, - $ CLATB4, CLATMS, CSYT02, CSYT01, - $ CSYTRF_AA_2STAGE, CSYTRS_AA_2STAGE, - $ XLAENV + $ CLATB4, CLATMS, CSYT02, CSYTRF_AA_2STAGE, + $ CSYTRS_AA_2STAGE, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/cchktsqr.f b/TESTING/LIN/cchktsqr.f index 0a85d7cf1..620fae085 100644 --- a/TESTING/LIN/cchktsqr.f +++ b/TESTING/LIN/cchktsqr.f @@ -129,8 +129,7 @@ SUBROUTINE CCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, CERRTSQR, - $ CTSQR01, XLAENV + EXTERNAL ALAHD, ALASUM, CERRTSQR, CTSQR01, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/cdrvhe_aa.f b/TESTING/LIN/cdrvhe_aa.f index 3a5b965fa..2f5794f33 100644 --- a/TESTING/LIN/cdrvhe_aa.f +++ b/TESTING/LIN/cdrvhe_aa.f @@ -193,15 +193,10 @@ SUBROUTINE CDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, INTEGER ISEED( 4 ), ISEEDY( 4 ) REAL RESULT( NTESTS ) * .. -* .. External Functions .. - REAL CLANHE, SGET06 - EXTERNAL CLANHE, SGET06 -* .. * .. External Subroutines .. - EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, - $ CGET04, CLACPY, CLARHS, CLATB4, CLATMS, - $ CHESV_AA, CHET01_AA, CPOT02, - $ CHETRF_AA + EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, CLACPY, + $ CLARHS, CLATB4, CLATMS, CHESV_AA, CHET01_AA, + $ CPOT02 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cdrvhe_aa_2stage.f b/TESTING/LIN/cdrvhe_aa_2stage.f index cb71a60b3..76d959625 100644 --- a/TESTING/LIN/cdrvhe_aa_2stage.f +++ b/TESTING/LIN/cdrvhe_aa_2stage.f @@ -195,15 +195,10 @@ SUBROUTINE CDRVHE_AA_2STAGE( INTEGER ISEED( 4 ), ISEEDY( 4 ) REAL RESULT( NTESTS ) * .. -* .. External Functions .. - REAL CLANHE, SGET06 - EXTERNAL CLANHE, SGET06 -* .. * .. External Subroutines .. - EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, - $ CGET04, CLACPY, CLARHS, CLATB4, CLATMS, - $ CHESV_AA_2STAGE, CPOT02, - $ CHETRF_AA_2STAGE + EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, CLACPY, + $ CLARHS, CLATB4, CLATMS, CHESV_AA_2STAGE, + $ CPOT02 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cdrvhe_rk.f b/TESTING/LIN/cdrvhe_rk.f index 30205622e..fff0c15e4 100644 --- a/TESTING/LIN/cdrvhe_rk.f +++ b/TESTING/LIN/cdrvhe_rk.f @@ -206,7 +206,7 @@ SUBROUTINE CDRVHE_RK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * .. External Subroutines .. EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, CGET04, $ CLACPY, CLARHS, CLATB4, CLATMS, CHESV_RK, - $ CHET01_3, CPOT02, CHETRF_RK, CHETRI_3 + $ CHET01_3, CPOT02, CHETRF_RK, CSYTRI_3 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cdrvls.f b/TESTING/LIN/cdrvls.f index 03b89b497..ac27456a4 100644 --- a/TESTING/LIN/cdrvls.f +++ b/TESTING/LIN/cdrvls.f @@ -253,7 +253,7 @@ SUBROUTINE CDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, EXTERNAL ALAERH, ALAHD, ALASVM, CERRLS, CGELS, CGELSD, $ CGELSS, CGELST, CGELSY, CGEMM, CGETSLS, CLACPY, $ CLARNV, CQRT13, CQRT15, CQRT16, CSSCAL, - $ SAXPY, XLAENV + $ CSCAL, SAXPY, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN, INT, REAL, SQRT diff --git a/TESTING/LIN/cdrvrf3.f b/TESTING/LIN/cdrvrf3.f index 3f4375893..7e8f20cb5 100644 --- a/TESTING/LIN/cdrvrf3.f +++ b/TESTING/LIN/cdrvrf3.f @@ -165,7 +165,7 @@ SUBROUTINE CDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, EXTERNAL SLAMCH, CLARND, CLANGE, LSAME * .. * .. External Subroutines .. - EXTERNAL CTRTTF, CGEQRF, CGEQLF, CTFSM, CTRSM + EXTERNAL CTRTTF, CGEQRF, CGELQF, CTFSM, CTRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, SQRT diff --git a/TESTING/LIN/cdrvsy_aa.f b/TESTING/LIN/cdrvsy_aa.f index 70291ee7a..7adfb5a38 100644 --- a/TESTING/LIN/cdrvsy_aa.f +++ b/TESTING/LIN/cdrvsy_aa.f @@ -195,14 +195,10 @@ SUBROUTINE CDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, INTEGER ISEED( 4 ), ISEEDY( 4 ) REAL RESULT( NTESTS ) * .. -* .. External Functions .. - REAL DGET06, CLANSY - EXTERNAL DGET06, CLANSY -* .. * .. External Subroutines .. - EXTERNAL ALADHD, ALAERH, ALASVM, CERRVX, CGET04, CLACPY, - $ CLARHS, CLASET, CLATB4, CLATMS, CSYT02, - $ CSYSV_AA, CSYT01_AA, CSYTRF_AA, XLAENV + EXTERNAL ALADHD, ALAERH, ALASVM, CERRVX, CLACPY, CLARHS, + $ CLATB4, CLATMS, CSYT02, CSYSV_AA, CSYT01_AA, + $ XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cdrvsy_aa_2stage.f b/TESTING/LIN/cdrvsy_aa_2stage.f index f33aef213..ddf04cf14 100644 --- a/TESTING/LIN/cdrvsy_aa_2stage.f +++ b/TESTING/LIN/cdrvsy_aa_2stage.f @@ -195,15 +195,10 @@ SUBROUTINE CDRVSY_AA_2STAGE( INTEGER ISEED( 4 ), ISEEDY( 4 ) REAL RESULT( NTESTS ) * .. -* .. External Functions .. - COMPLEX CLANSY, SGET06 - EXTERNAL CLANSY, SGET06 -* .. * .. External Subroutines .. - EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, - $ CGET04, CLACPY, CLARHS, CLATB4, CLATMS, - $ CSYSV_AA_2STAGE, CSYT01_AA, CSYT02, - $ CSYTRF_AA_2STAGE + EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, CLACPY, + $ CLARHS, CLATB4, CLATMS, CSYSV_AA_2STAGE, + $ CSYT02 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cdrvsy_rook.f b/TESTING/LIN/cdrvsy_rook.f index 586cee58f..dac323cf3 100644 --- a/TESTING/LIN/cdrvsy_rook.f +++ b/TESTING/LIN/cdrvsy_rook.f @@ -199,9 +199,9 @@ SUBROUTINE CDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * .. * .. External Subroutines .. EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, CERRVX, CGET04, - $ CLACPY, CLARHS, CLASET, CLATB4, CLATMS, CLATSY, - $ CPOT05, CSYSV_ROOK, CSYT01_ROOK, CSYT02, - $ CSYTRF_ROOK, CSYTRI_ROOK + $ CLACPY, CLARHS, CLATB4, CLATMS, CLATSY, + $ CSYSV_ROOK, CSYT01_ROOK, CSYT02, CSYTRF_ROOK, + $ CSYTRI_ROOK * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cerrhe.f b/TESTING/LIN/cerrhe.f index cbec38242..f14e432e5 100644 --- a/TESTING/LIN/cerrhe.f +++ b/TESTING/LIN/cerrhe.f @@ -86,8 +86,8 @@ SUBROUTINE CERRHE( PATH, NUNIT ) EXTERNAL LSAMEN * .. * .. External Subroutines .. - EXTERNAL ALAESM, CHECON, CSYCON_3, CHECON_ROOK, CHERFS, - $ CHETF2, CHETF2_RK, CHETF2_ROOK, CHETRF_AA, + EXTERNAL ALAESM, CHECON, CHECON_3, CHECON_ROOK, CHERFS, + $ CHETF2, CHETF2_RK, CHETF2_ROOK, CHETRF_AA, $ CHETRF, CHETRF_RK, CHETRF_ROOK, CHETRI, $ CHETRI_3, CHETRI_3X, CHETRI_ROOK, CHETRI2, $ CHETRI2X, CHETRS, CHETRS_3, CHETRS_ROOK, diff --git a/TESTING/LIN/cerrsy.f b/TESTING/LIN/cerrsy.f index fd84418fb..1151b797c 100644 --- a/TESTING/LIN/cerrsy.f +++ b/TESTING/LIN/cerrsy.f @@ -90,7 +90,8 @@ SUBROUTINE CERRSY( PATH, NUNIT ) $ CSYTF2, CSYTF2_RK, CSYTF2_ROOK, CSYTRF, $ CSYTRF_RK, CSYTRF_ROOK, CSYTRI, CSYTRI_3, $ CSYTRI_3X, CSYTRI_ROOK, CSYTRI2, CSYTRI2X, - $ CSYTRS, CSYTRS_3, CSYTRS_ROOK + $ CSYTRS, CSYTRS_3, CSYTRS_ROOK, CSYTRF_AA, + $ CSYTRS_AA, CSYTRF_AA_2STAGE, CSYTRS_AA_2STAGE * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cerrtsqr.f b/TESTING/LIN/cerrtsqr.f index 08cb5b6e5..fd0afdc67 100644 --- a/TESTING/LIN/cerrtsqr.f +++ b/TESTING/LIN/cerrtsqr.f @@ -77,8 +77,8 @@ SUBROUTINE CERRTSQR( PATH, NUNIT ) $ C( NMAX, NMAX ), TAU( 5 ) * .. * .. External Subroutines .. - EXTERNAL ALAESM, CHKXER, CGEQR, - $ CGEMQR, CGELQ, CGEMLQ + EXTERNAL ALAESM, CHKXER, CGEQR, CGEMQR, CGELQ, + $ CGEMLQ, CLATSQR, CLASWLQ * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/cerrvx.f b/TESTING/LIN/cerrvx.f index a86f0712e..54ab6044e 100644 --- a/TESTING/LIN/cerrvx.f +++ b/TESTING/LIN/cerrvx.f @@ -88,7 +88,8 @@ SUBROUTINE CERRVX( PATH, NUNIT ) * .. * .. External Subroutines .. EXTERNAL CGBSV, CGBSVX, CGESV, CGESVX, CGTSV, CGTSVX, - $ CHESV, CHESV_RK, CHESV_ROOK, CHESVX, CHKXER, + $ CHESV, CHESV_AA, CHESV_AA_2STAGE, CHESV_RK, + $ CHESV_ROOK, CHESVX, CHKXER, $ CHPSV, CHPSVX, CPBSV, CPBSVX, CPOSV, CPOSVX, $ CPPSV, CPPSVX, CPTSV, CPTSVX, CSPSV, CSPSVX, $ CSYSV, CSYSV_AA, CSYSV_RK, CSYSV_ROOK, diff --git a/TESTING/LIN/chet01_aa.f b/TESTING/LIN/chet01_aa.f index 5b1a1d708..6c709c3ff 100644 --- a/TESTING/LIN/chet01_aa.f +++ b/TESTING/LIN/chet01_aa.f @@ -157,7 +157,7 @@ SUBROUTINE CHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, EXTERNAL LSAME, SLAMCH, CLANHE * .. * .. External Subroutines .. - EXTERNAL CLASET, CLAVHE + EXTERNAL CLASET, CSWAP, CTRMM, CLACPY, CLACGV * .. * .. Intrinsic Functions .. INTRINSIC REAL diff --git a/TESTING/LIN/clqt04.f b/TESTING/LIN/clqt04.f index c444ce44c..fbdd303e8 100644 --- a/TESTING/LIN/clqt04.f +++ b/TESTING/LIN/clqt04.f @@ -107,7 +107,11 @@ SUBROUTINE CLQT04(M,N,NB,RESULT) REAL SLAMCH REAL CLANGE, CLANSY LOGICAL LSAME - EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME + EXTERNAL SLAMCH, CLANGE, CLANSY +* .. +* .. External Subroutines .. + EXTERNAL CLARNV, CLACPY, CGELQT, CLASET, CGEMLQT, CGEMM, + $ CHERK * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/clqt05.f b/TESTING/LIN/clqt05.f index 387b19d02..b7ba5f611 100644 --- a/TESTING/LIN/clqt05.f +++ b/TESTING/LIN/clqt05.f @@ -113,7 +113,11 @@ SUBROUTINE CLQT05(M,N,L,NB,RESULT) REAL SLAMCH REAL CLANGE, CLANSY LOGICAL LSAME - EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME + EXTERNAL SLAMCH, CLANGE, CLANSY +* .. +* .. External Subroutines .. + EXTERNAL CLASET, CLARNV, CLACPY, CTPLQT, CGEMLQT, CGEMM, + $ CHERK, CTPMLQT * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / diff --git a/TESTING/LIN/cqrt04.f b/TESTING/LIN/cqrt04.f index 711bf70cf..3393bad06 100644 --- a/TESTING/LIN/cqrt04.f +++ b/TESTING/LIN/cqrt04.f @@ -102,11 +102,15 @@ SUBROUTINE CQRT04(M,N,NB,RESULT) * .. Local Arrays .. INTEGER ISEED( 4 ) * .. +* .. External Subroutines .. + EXTERNAL CGEMM, CLACPY, CLARNV, CGEMQRT, CLASET, CGEQRT, + $ CHERK +* .. * .. External Functions .. REAL SLAMCH REAL CLANGE, CLANSY LOGICAL LSAME - EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME + EXTERNAL SLAMCH, CLANGE, CLANSY * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/cqrt05.f b/TESTING/LIN/cqrt05.f index d33ecc7c8..114131733 100644 --- a/TESTING/LIN/cqrt05.f +++ b/TESTING/LIN/cqrt05.f @@ -109,11 +109,15 @@ SUBROUTINE CQRT05(M,N,L,NB,RESULT) * .. Local Arrays .. INTEGER ISEED( 4 ) * .. +* .. External Subroutines .. + EXTERNAL CGEMM, CLARNV, CTPMQRT, CTPQRT, CGEMQRT, CHERK, + $ CLACPY, CLASET +* .. * .. External Functions .. REAL SLAMCH REAL CLANGE, CLANSY LOGICAL LSAME - EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME + EXTERNAL SLAMCH, CLANGE, CLANSY * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / diff --git a/TESTING/LIN/csyt01_aa.f b/TESTING/LIN/csyt01_aa.f index 48b4173ad..0fed0c136 100644 --- a/TESTING/LIN/csyt01_aa.f +++ b/TESTING/LIN/csyt01_aa.f @@ -157,7 +157,7 @@ SUBROUTINE CSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, EXTERNAL LSAME, SLAMCH, CLANSY * .. * .. External Subroutines .. - EXTERNAL CLASET, CLAVSY + EXTERNAL CLASET, CSWAP, CTRMM, CLACPY * .. * .. Intrinsic Functions .. INTRINSIC REAL diff --git a/TESTING/LIN/ctsqr01.f b/TESTING/LIN/ctsqr01.f index ca1bf5230..83ec69917 100644 --- a/TESTING/LIN/ctsqr01.f +++ b/TESTING/LIN/ctsqr01.f @@ -118,7 +118,11 @@ SUBROUTINE CTSQR01(TSSW, M, N, MB, NB, RESULT) REAL SLAMCH, CLANGE, CLANSY LOGICAL LSAME INTEGER ILAENV - EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME, ILAENV + EXTERNAL SLAMCH, CLANGE, CLANSY, LSAME +* .. +* .. External Subroutines .. + EXTERNAL CLARNV, CLACPY, CGELQ, CGEMLQ, CLASET, CGEMM, + $ CHERK, CGEQR, CGEMQR * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/cunhr_col02.f b/TESTING/LIN/cunhr_col02.f index 4a4f67791..b46600d6b 100644 --- a/TESTING/LIN/cunhr_col02.f +++ b/TESTING/LIN/cunhr_col02.f @@ -158,8 +158,8 @@ SUBROUTINE CUNHR_COL02( M, N, MB1, NB1, NB2, RESULT ) EXTERNAL SLAMCH, CLANGE, CLANSY * .. * .. External Subroutines .. - EXTERNAL CLACPY, CLARNV, CLASET, CGETSQRHRT, - $ CSCAL, CGEMM, CGEMQRT, CHERK + EXTERNAL CLACPY, CLARNV, CLASET, CGETSQRHRT, CGEMM, + $ CGEMQRT, CHERK * .. * .. Intrinsic Functions .. INTRINSIC CEILING, REAL, MAX, MIN diff --git a/TESTING/LIN/dchkaa.F b/TESTING/LIN/dchkaa.F index ce514d0f3..6756fb60b 100644 --- a/TESTING/LIN/dchkaa.F +++ b/TESTING/LIN/dchkaa.F @@ -171,7 +171,8 @@ PROGRAM DCHKAA $ DDRVGB, DDRVGE, DDRVGT, DDRVLS, DDRVPB, DDRVPO, $ DDRVPP, DDRVPT, DDRVSP, DDRVSY, DDRVSY_ROOK, $ DDRVSY_RK, DDRVSY_AA, ILAVER, DCHKLQTP, - $ DCHKQRT, DCHKQRTP, DCHKLQT,DCHKTSQR + $ DCHKQRT, DCHKQRTP, DCHKLQT, DCHKTSQR, + $ DCHKSY_AA_2STAGE, DDRVSY_AA_2STAGE * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/dchklqt.f b/TESTING/LIN/dchklqt.f index aa77d6a62..c57335259 100644 --- a/TESTING/LIN/dchklqt.f +++ b/TESTING/LIN/dchklqt.f @@ -129,7 +129,7 @@ SUBROUTINE DCHKLQT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQT, DLQT04 + EXTERNAL ALAHD, ALASUM, DERRLQT, DLQT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/dchklqtp.f b/TESTING/LIN/dchklqtp.f index d9251b1f0..e26e22951 100644 --- a/TESTING/LIN/dchklqtp.f +++ b/TESTING/LIN/dchklqtp.f @@ -129,7 +129,7 @@ SUBROUTINE DCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRLQTP, DLQT05 + EXTERNAL ALAHD, ALASUM, DERRLQTP, DLQT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/dchkqrt.f b/TESTING/LIN/dchkqrt.f index 566f273d4..b04309782 100644 --- a/TESTING/LIN/dchkqrt.f +++ b/TESTING/LIN/dchkqrt.f @@ -129,7 +129,7 @@ SUBROUTINE DCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRQRT, DQRT04 + EXTERNAL ALAHD, ALASUM, DERRQRT, DQRT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/dchkqrtp.f b/TESTING/LIN/dchkqrtp.f index 924ba7ea3..b2d069e03 100644 --- a/TESTING/LIN/dchkqrtp.f +++ b/TESTING/LIN/dchkqrtp.f @@ -129,7 +129,7 @@ SUBROUTINE DCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRQRTP + EXTERNAL ALAHD, ALASUM, DERRQRTP, DQRT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/dchkrfp.f b/TESTING/LIN/dchkrfp.f index 41d269b7e..c4290ff74 100644 --- a/TESTING/LIN/dchkrfp.f +++ b/TESTING/LIN/dchkrfp.f @@ -110,7 +110,7 @@ PROGRAM DCHKRFP * .. * .. External Subroutines .. EXTERNAL ILAVER, DDRVRFP, DDRVRF1, DDRVRF2, DDRVRF3, - + DDRVRF4 + + DDRVRF4, DERRRFP * .. * .. Executable Statements .. * diff --git a/TESTING/LIN/dchktsqr.f b/TESTING/LIN/dchktsqr.f index 27076b5c2..f6ba23adf 100644 --- a/TESTING/LIN/dchktsqr.f +++ b/TESTING/LIN/dchktsqr.f @@ -129,8 +129,7 @@ SUBROUTINE DCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, DERRTSQR, - $ DTSQR01, XLAENV + EXTERNAL ALAHD, ALASUM, DERRTSQR, DTSQR01, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/ddrvab.f b/TESTING/LIN/ddrvab.f index a56c77a9c..f24ac8d5f 100644 --- a/TESTING/LIN/ddrvab.f +++ b/TESTING/LIN/ddrvab.f @@ -194,7 +194,7 @@ SUBROUTINE DDRVAB( DOTYPE, NM, MVAL, NNS, * .. * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, DGET08, DLACPY, DLARHS, DLASET, - $ DLATB4, DLATMS + $ DLATB4, DLATMS, DSGESV * .. * .. Intrinsic Functions .. INTRINSIC DBLE, MAX, MIN, SQRT diff --git a/TESTING/LIN/ddrvac.f b/TESTING/LIN/ddrvac.f index ec54f573a..f7c4f6c27 100644 --- a/TESTING/LIN/ddrvac.f +++ b/TESTING/LIN/ddrvac.f @@ -186,13 +186,8 @@ SUBROUTINE DDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, * .. Local Variables .. INTEGER ITER, KASE * .. -* .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. External Subroutines .. - EXTERNAL ALAERH, DLACPY, - $ DLARHS, DLASET, DLATB4, DLATMS, + EXTERNAL ALAERH, ALAHD, DLACPY, DLARHS, DLATB4, DLATMS, $ DPOT06, DSPOSV * .. * .. Intrinsic Functions .. diff --git a/TESTING/LIN/ddrvgbx.f b/TESTING/LIN/ddrvgbx.f index e2a5ec15d..e8f00b65e 100644 --- a/TESTING/LIN/ddrvgbx.f +++ b/TESTING/LIN/ddrvgbx.f @@ -234,7 +234,7 @@ SUBROUTINE DDRVGB( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, A, LA, EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, DGBEQU, DGBSV, $ DGBSVX, DGBT01, DGBT02, DGBT05, DGBTRF, DGBTRS, $ DGET04, DLACPY, DLAQGB, DLARHS, DLASET, DLATB4, - $ DLATMS, XLAENV, DGBSVXX, DGBEQUB + $ DLATMS, XLAENV, DGBSVXX * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN diff --git a/TESTING/LIN/ddrvrf3.f b/TESTING/LIN/ddrvrf3.f index 37122e3c9..bf493f5ca 100644 --- a/TESTING/LIN/ddrvrf3.f +++ b/TESTING/LIN/ddrvrf3.f @@ -160,7 +160,7 @@ SUBROUTINE DDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, EXTERNAL DLAMCH, DLANGE, DLARND, LSAME * .. * .. External Subroutines .. - EXTERNAL DTRTTF, DGEQRF, DGEQLF, DTFSM, DTRSM + EXTERNAL DTRTTF, DGEQRF, DGELQF, DTFSM, DTRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, SQRT diff --git a/TESTING/LIN/ddrvsy_aa.f b/TESTING/LIN/ddrvsy_aa.f index 206b25ebe..66b2f92ca 100644 --- a/TESTING/LIN/ddrvsy_aa.f +++ b/TESTING/LIN/ddrvsy_aa.f @@ -191,14 +191,10 @@ SUBROUTINE DDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, INTEGER ISEED( 4 ), ISEEDY( 4 ) DOUBLE PRECISION RESULT( NTESTS ) * .. -* .. External Functions .. - DOUBLE PRECISION DGET06, DLANSY - EXTERNAL DGET06, DLANSY -* .. * .. External Subroutines .. - EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, DGET04, DLACPY, - $ DLARHS, DLASET, DLATB4, DLATMS, DPOT02, - $ DSYSV_AA, DSYT01_AA, DSYTRF_AA, XLAENV + EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, DLACPY, DLARHS, + $ DLATB4, DLATMS, DPOT02, DSYSV_AA, DSYT01_AA, + $ XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/ddrvsy_aa_2stage.f b/TESTING/LIN/ddrvsy_aa_2stage.f index 09dbea642..fc3a47bfb 100644 --- a/TESTING/LIN/ddrvsy_aa_2stage.f +++ b/TESTING/LIN/ddrvsy_aa_2stage.f @@ -195,15 +195,10 @@ SUBROUTINE DDRVSY_AA_2STAGE( INTEGER ISEED( 4 ), ISEEDY( 4 ) DOUBLE PRECISION RESULT( NTESTS ) * .. -* .. External Functions .. - DOUBLE PRECISION DLANSY, SGET06 - EXTERNAL DLANSY, SGET06 -* .. * .. External Subroutines .. - EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, DERRVX, - $ DGET04, DLACPY, DLARHS, DLATB4, DLATMS, - $ DSYSV_AA_2STAGE, DPOT02, - $ DSYTRF_AA_2STAGE + EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, DERRVX, DLACPY, + $ DLARHS, DLATB4, DLATMS, DSYSV_AA_2STAGE, + $ DPOT02 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/ddrvsy_rook.f b/TESTING/LIN/ddrvsy_rook.f index 9a8fd4172..b3327fedb 100644 --- a/TESTING/LIN/ddrvsy_rook.f +++ b/TESTING/LIN/ddrvsy_rook.f @@ -197,10 +197,8 @@ SUBROUTINE DDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * .. * .. External Subroutines .. EXTERNAL ALADHD, ALAERH, ALASVM, DERRVX, DGET04, DLACPY, - $ DLARHS, DLASET, DLATB4, DLATMS, DPOT02, DPOT05, - $ DSYSV_ROOK, DSYT01_ROOK, DSYTRF_ROOK, - $ DSYTRI_ROOK, - $ XLAENV + $ DLARHS, DLATB4, DLATMS, DPOT02, DSYSV_ROOK, + $ DSYT01_ROOK, DSYTRF_ROOK, DSYTRI_ROOK, XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/derrtsqr.f b/TESTING/LIN/derrtsqr.f index bc8128cd4..1c553802e 100644 --- a/TESTING/LIN/derrtsqr.f +++ b/TESTING/LIN/derrtsqr.f @@ -77,7 +77,7 @@ SUBROUTINE DERRTSQR( PATH, NUNIT ) $ C( NMAX, NMAX ), TAU( 5 ) * .. * .. External Subroutines .. - EXTERNAL ALAESM, CHKXER, DGEQR, + EXTERNAL ALAESM, CHKXER, DGEQR, DLATSQR, DLASWLQ, $ DGEMQR, DGELQ, DGEMLQ * .. * .. Scalars in Common .. diff --git a/TESTING/LIN/dlqt04.f b/TESTING/LIN/dlqt04.f index ef7e67538..1ba0bd65d 100644 --- a/TESTING/LIN/dlqt04.f +++ b/TESTING/LIN/dlqt04.f @@ -102,8 +102,11 @@ SUBROUTINE DLQT04(M,N,NB,RESULT) * .. * .. External Functions .. DOUBLE PRECISION DLAMCH, DLANGE, DLANSY - LOGICAL LSAME - EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME + EXTERNAL DLAMCH, DLANGE, DLANSY +* .. +* .. External Subroutines .. + EXTERNAL DLARNV, DLACPY, DGELQT, DLASET, DGEMLQT, DGEMM, + $ DSYRK * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/dlqt05.f b/TESTING/LIN/dlqt05.f index 7d2a2a104..b8438cd43 100644 --- a/TESTING/LIN/dlqt05.f +++ b/TESTING/LIN/dlqt05.f @@ -109,8 +109,11 @@ SUBROUTINE DLQT05(M,N,L,NB,RESULT) * .. * .. External Functions .. DOUBLE PRECISION DLAMCH, DLANGE, DLANSY - LOGICAL LSAME - EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME + EXTERNAL DLAMCH, DLANGE, DLANSY +* .. +* .. External Subroutines .. + EXTERNAL DLASET, DLARNV, DLACPY, DTPLQT, DGEMLQT, DGEMM, + $ DSYRK, DTPMLQT * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / diff --git a/TESTING/LIN/dorhr_col02.f b/TESTING/LIN/dorhr_col02.f index d4c438edb..326bb8b79 100644 --- a/TESTING/LIN/dorhr_col02.f +++ b/TESTING/LIN/dorhr_col02.f @@ -154,8 +154,8 @@ SUBROUTINE DORHR_COL02( M, N, MB1, NB1, NB2, RESULT ) EXTERNAL DLAMCH, DLANGE, DLANSY * .. * .. External Subroutines .. - EXTERNAL DLACPY, DLARNV, DLASET, DGETSQRHRT, - $ DSCAL, DGEMM, DGEMQRT, DSYRK + EXTERNAL DLACPY, DLARNV, DLASET, DGETSQRHRT, DGEMM, + $ DGEMQRT, DSYRK * .. * .. Intrinsic Functions .. INTRINSIC CEILING, DBLE, MAX, MIN diff --git a/TESTING/LIN/dqrt04.f b/TESTING/LIN/dqrt04.f index 6a7baea0f..5a19839c7 100644 --- a/TESTING/LIN/dqrt04.f +++ b/TESTING/LIN/dqrt04.f @@ -100,10 +100,12 @@ SUBROUTINE DQRT04(M,N,NB,RESULT) * .. Local Arrays .. INTEGER ISEED( 4 ) * .. +* .. External Subroutines .. + EXTERNAL DGEMM, DLACPY, DLARNV, DGEMQRT, DLASET, DGEQRT, DSYRK +* .. * .. External Functions .. DOUBLE PRECISION DLAMCH, DLANGE, DLANSY - LOGICAL LSAME - EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME + EXTERNAL DLAMCH, DLANGE, DLANSY * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/dqrt05.f b/TESTING/LIN/dqrt05.f index 2badd6d49..9bf6c8113 100644 --- a/TESTING/LIN/dqrt05.f +++ b/TESTING/LIN/dqrt05.f @@ -107,10 +107,13 @@ SUBROUTINE DQRT05(M,N,L,NB,RESULT) * .. Local Arrays .. INTEGER ISEED( 4 ) * .. +* .. External Subroutines .. + EXTERNAL DGEMM, DLARNV, DTPMQRT, DTPQRT, DGEMQRT, DSYRK, + $ DLACPY, DLASET +* .. * .. External Functions .. DOUBLE PRECISION DLAMCH, DLANGE, DLANSY - LOGICAL LSAME - EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME + EXTERNAL DLAMCH, DLANGE, DLANSY * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / diff --git a/TESTING/LIN/dsyt01_aa.f b/TESTING/LIN/dsyt01_aa.f index 7af9b3c3a..f28a77b95 100644 --- a/TESTING/LIN/dsyt01_aa.f +++ b/TESTING/LIN/dsyt01_aa.f @@ -154,7 +154,7 @@ SUBROUTINE DSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, EXTERNAL LSAME, DLAMCH, DLANSY * .. * .. External Subroutines .. - EXTERNAL DLASET, DLAVSY + EXTERNAL DLASET, DSWAP, DTRMM, DLACPY * .. * .. Intrinsic Functions .. INTRINSIC DBLE diff --git a/TESTING/LIN/dtsqr01.f b/TESTING/LIN/dtsqr01.f index 85733be4c..fb26eb151 100644 --- a/TESTING/LIN/dtsqr01.f +++ b/TESTING/LIN/dtsqr01.f @@ -117,8 +117,11 @@ SUBROUTINE DTSQR01(TSSW, M, N, MB, NB, RESULT) * .. External Functions .. DOUBLE PRECISION DLAMCH, DLANGE, DLANSY LOGICAL LSAME - INTEGER ILAENV - EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME, ILAENV + EXTERNAL DLAMCH, DLANGE, DLANSY, LSAME +* .. +* .. External Subroutines .. + EXTERNAL DLARNV, DLACPY, DGELQ, DGEMLQ, DLASET, DGEMM, + $ DSYRK, DGEQR, DGEMQR * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/schkaa.F b/TESTING/LIN/schkaa.F index 20e5e52b4..88082b725 100644 --- a/TESTING/LIN/schkaa.F +++ b/TESTING/LIN/schkaa.F @@ -169,7 +169,8 @@ PROGRAM SCHKAA $ SDRVGB, SDRVGE, SDRVGT, SDRVLS, SDRVPB, SDRVPO, $ SDRVPP, SDRVPT, SDRVSP, SDRVSY, SDRVSY_ROOK, $ SDRVSY_RK, SDRVSY_AA, ILAVER, SCHKLQTP, - $ SCHKQRT, SCHKQRTP, SCHKLQT, SCHKTSQR + $ SCHKQRT, SCHKQRTP, SCHKLQT, SCHKTSQR, + $ SCHKSY_AA_2STAGE, SDRVSY_AA_2STAGE * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schklq.f b/TESTING/LIN/schklq.f index d8be9862b..ecb7e7de0 100644 --- a/TESTING/LIN/schklq.f +++ b/TESTING/LIN/schklq.f @@ -238,7 +238,7 @@ SUBROUTINE SCHKLQ( DOTYPE, NM, MVAL, NN, NVAL, NNB, NBVAL, NXVAL, * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASUM, SERRLQ, SGET02, $ SLACPY, SLARHS, SLATB4, SLATMS, SLQT01, SLQT02, - $ SLQT03, XLAENV + $ SLQT03, SGELS, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/schklqt.f b/TESTING/LIN/schklqt.f index 2230583ba..82c94c7fe 100644 --- a/TESTING/LIN/schklqt.f +++ b/TESTING/LIN/schklqt.f @@ -129,7 +129,7 @@ SUBROUTINE SCHKLQT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRLQT, SLQT04 + EXTERNAL ALAHD, ALASUM, SERRLQT, SLQT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schklqtp.f b/TESTING/LIN/schklqtp.f index 20c0dd019..b7569684e 100644 --- a/TESTING/LIN/schklqtp.f +++ b/TESTING/LIN/schklqtp.f @@ -129,7 +129,7 @@ SUBROUTINE SCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRLQTP, SLQT05 + EXTERNAL ALAHD, ALASUM, SERRLQTP, SLQT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schkqrt.f b/TESTING/LIN/schkqrt.f index ed25a230d..a2e9d4283 100644 --- a/TESTING/LIN/schkqrt.f +++ b/TESTING/LIN/schkqrt.f @@ -126,7 +126,7 @@ SUBROUTINE SCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRQRT, SQRT04 + EXTERNAL ALAHD, ALASUM, SERRQRT, SQRT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schkqrtp.f b/TESTING/LIN/schkqrtp.f index eee963c47..98c28f166 100644 --- a/TESTING/LIN/schkqrtp.f +++ b/TESTING/LIN/schkqrtp.f @@ -129,7 +129,7 @@ SUBROUTINE SCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRQRTP, SQRT05 + EXTERNAL ALAHD, ALASUM, SERRQRTP, SQRT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/schkrfp.f b/TESTING/LIN/schkrfp.f index ab04f496b..be26151ad 100644 --- a/TESTING/LIN/schkrfp.f +++ b/TESTING/LIN/schkrfp.f @@ -109,7 +109,7 @@ PROGRAM SCHKRFP * .. * .. External Subroutines .. EXTERNAL ILAVER, SDRVRFP, SDRVRF1, SDRVRF2, SDRVRF3, - + SDRVRF4 + + SDRVRF4, SERRRFP * .. * .. Executable Statements .. * diff --git a/TESTING/LIN/schksy.f b/TESTING/LIN/schksy.f index cfa26e41c..a8de72ca6 100644 --- a/TESTING/LIN/schksy.f +++ b/TESTING/LIN/schksy.f @@ -216,8 +216,8 @@ SUBROUTINE SCHKSY( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASUM, SERRSY, SGET04, SLACPY, $ SLARHS, SLATB4, SLATMS, SPOT02, SPOT03, SPOT05, - $ SSYCON, SSYCONV, SSYRFS, SSYT01, SSYTRF, - $ SSYTRI2, SSYTRS, SSYTRS2, XLAENV + $ SSYCON, SSYRFS, SSYT01, SSYTRF, SSYTRI2, + $ SSYTRS, SSYTRS2, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/schksy_aa_2stage.f b/TESTING/LIN/schksy_aa_2stage.f index 6490cd7c3..4127d8be7 100644 --- a/TESTING/LIN/schksy_aa_2stage.f +++ b/TESTING/LIN/schksy_aa_2stage.f @@ -213,9 +213,8 @@ SUBROUTINE SCHKSY_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, * .. * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASUM, SERRSY, SLACPY, SLARHS, - $ SLATB4, SLATMS, SPOT02, SSYT01_AA, - $ SSYTRF_AA_2STAGE, SSYTRS_AA_2STAGE, - $ XLAENV + $ SLATB4, SLATMS, SPOT02, SSYTRF_AA_2STAGE, + $ SSYTRS_AA_2STAGE, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/schktsqr.f b/TESTING/LIN/schktsqr.f index 5d7aa2d37..9ff9f59e6 100644 --- a/TESTING/LIN/schktsqr.f +++ b/TESTING/LIN/schktsqr.f @@ -129,8 +129,7 @@ SUBROUTINE SCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, REAL RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, SERRTSQR, - $ STSQR01, XLAENV + EXTERNAL ALAHD, ALASUM, SERRTSQR, STSQR01, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/sdrvrf3.f b/TESTING/LIN/sdrvrf3.f index ba2461113..8ffb9b073 100644 --- a/TESTING/LIN/sdrvrf3.f +++ b/TESTING/LIN/sdrvrf3.f @@ -160,7 +160,7 @@ SUBROUTINE SDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, EXTERNAL SLAMCH, SLANGE, SLARND, LSAME * .. * .. External Subroutines .. - EXTERNAL STRTTF, SGEQRF, SGEQLF, STFSM, STRSM + EXTERNAL STRTTF, SGEQRF, SGELQF, STFSM, STRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, SQRT diff --git a/TESTING/LIN/sdrvsy_aa.f b/TESTING/LIN/sdrvsy_aa.f index e53db7309..f5c3119f6 100644 --- a/TESTING/LIN/sdrvsy_aa.f +++ b/TESTING/LIN/sdrvsy_aa.f @@ -191,14 +191,10 @@ SUBROUTINE SDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, INTEGER ISEED( 4 ), ISEEDY( 4 ) REAL RESULT( NTESTS ) * .. -* .. External Functions .. - REAL DGET06, SLANSY - EXTERNAL DGET06, SLANSY -* .. * .. External Subroutines .. - EXTERNAL ALADHD, ALAERH, ALASVM, SERRVX, SGET04, SLACPY, - $ SLARHS, SLASET, SLATB4, SLATMS, SPOT02, - $ SSYSV_AA, SSYT01_AA, SSYTRF_AA, XLAENV + EXTERNAL ALADHD, ALAERH, ALASVM, SERRVX, SLACPY, SLARHS, + $ SLATB4, SLATMS, SPOT02, SSYSV_AA, SSYT01_AA, + $ XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/sdrvsy_aa_2stage.f b/TESTING/LIN/sdrvsy_aa_2stage.f index 25e7fe0ec..74b1d3a9d 100644 --- a/TESTING/LIN/sdrvsy_aa_2stage.f +++ b/TESTING/LIN/sdrvsy_aa_2stage.f @@ -195,15 +195,10 @@ SUBROUTINE SDRVSY_AA_2STAGE( INTEGER ISEED( 4 ), ISEEDY( 4 ) REAL RESULT( NTESTS ) * .. -* .. External Functions .. - REAL SLANSY, SGET06 - EXTERNAL SLANSY, SGET06 -* .. * .. External Subroutines .. - EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, SERRVX, - $ SLACPY, SLARHS, SLATB4, SLATMS, - $ SSYSV_AA_2STAGE, SSYT01_AA, SPOT02, - $ SSYTRF_AA_2STAGE + EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, SERRVX, SLACPY, + $ SLARHS, SLATB4, SLATMS, SSYSV_AA_2STAGE, + $ SPOT02 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/sdrvsy_rook.f b/TESTING/LIN/sdrvsy_rook.f index 4ab67a81b..1b996cc4d 100644 --- a/TESTING/LIN/sdrvsy_rook.f +++ b/TESTING/LIN/sdrvsy_rook.f @@ -198,10 +198,8 @@ SUBROUTINE SDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * .. * .. External Subroutines .. EXTERNAL ALADHD, ALAERH, ALASVM, SERRVX, SGET04, SLACPY, - $ SLARHS, SLASET, SLATB4, SLATMS, SPOT02, SPOT05, - $ SSYSV_ROOK, SSYT01_ROOK, SSYTRF_ROOK, - $ SSYTRI_ROOK, - $ XLAENV + $ SLARHS, SLATB4, SLATMS, SPOT02, SSYSV_ROOK, + $ SSYT01_ROOK, SSYTRF_ROOK, SSYTRI_ROOK, XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/serrtsqr.f b/TESTING/LIN/serrtsqr.f index 0f431bec1..923d5a1b5 100644 --- a/TESTING/LIN/serrtsqr.f +++ b/TESTING/LIN/serrtsqr.f @@ -77,8 +77,8 @@ SUBROUTINE SERRTSQR( PATH, NUNIT ) $ C( NMAX, NMAX ), TAU( 5 ) * .. * .. External Subroutines .. - EXTERNAL ALAESM, CHKXER, SGEQR, - $ SGEMQR, SGELQ, SGEMLQ + EXTERNAL ALAESM, CHKXER, SGEQR, SGEMQR, SGELQ, + $ SGEMLQ, SLATSQR, SLASWLQ * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/slqt04.f b/TESTING/LIN/slqt04.f index c0ba81f74..4279cfd24 100644 --- a/TESTING/LIN/slqt04.f +++ b/TESTING/LIN/slqt04.f @@ -102,8 +102,10 @@ SUBROUTINE SLQT04(M,N,NB,RESULT) * .. * .. External Functions .. REAL SLAMCH, SLANGE, SLANSY - LOGICAL LSAME - EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME + EXTERNAL SLAMCH, SLANGE, SLANSY +* .. +* .. External Subroutines .. + EXTERNAL SLARNV, SLACPY, SGELQT, SLASET, SGEMLQT, SGEMM, SSYRK * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/slqt05.f b/TESTING/LIN/slqt05.f index 9afc37ef7..bbff1b450 100644 --- a/TESTING/LIN/slqt05.f +++ b/TESTING/LIN/slqt05.f @@ -108,8 +108,11 @@ SUBROUTINE SLQT05(M,N,L,NB,RESULT) * .. * .. External Functions .. REAL SLAMCH, SLANGE, SLANSY - LOGICAL LSAME - EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME + EXTERNAL SLAMCH, SLANGE, SLANSY +* .. +* .. External Subroutines .. + EXTERNAL SLASET, SLARNV, SLACPY, STPLQT, SGEMLQT, SGEMM, + $ SSYRK, STPMLQT * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / diff --git a/TESTING/LIN/sorhr_col02.f b/TESTING/LIN/sorhr_col02.f index 1cbe40577..3112f5993 100644 --- a/TESTING/LIN/sorhr_col02.f +++ b/TESTING/LIN/sorhr_col02.f @@ -154,8 +154,8 @@ SUBROUTINE SORHR_COL02( M, N, MB1, NB1, NB2, RESULT ) EXTERNAL SLAMCH, SLANGE, SLANSY * .. * .. External Subroutines .. - EXTERNAL SLACPY, SLARNV, SLASET, SGETSQRHRT, - $ SSCAL, SGEMM, SGEMQRT, SSYRK + EXTERNAL SLACPY, SLARNV, SLASET, SGETSQRHRT, SGEMM, + $ SGEMQRT, SSYRK * .. * .. Intrinsic Functions .. INTRINSIC CEILING, REAL, MAX, MIN diff --git a/TESTING/LIN/sqrt04.f b/TESTING/LIN/sqrt04.f index b088ba43e..a2b5011e7 100644 --- a/TESTING/LIN/sqrt04.f +++ b/TESTING/LIN/sqrt04.f @@ -106,8 +106,7 @@ SUBROUTINE SQRT04(M,N,NB,RESULT) * .. External Functions .. REAL SLAMCH REAL SLANGE, SLANSY - LOGICAL LSAME - EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME + EXTERNAL SLAMCH, SLANGE, SLANSY * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/sqrt05.f b/TESTING/LIN/sqrt05.f index 21ec97c1f..73b469570 100644 --- a/TESTING/LIN/sqrt05.f +++ b/TESTING/LIN/sqrt05.f @@ -114,8 +114,7 @@ SUBROUTINE SQRT05(M,N,L,NB,RESULT) * .. External Functions .. REAL SLAMCH REAL SLANGE, SLANSY - LOGICAL LSAME - EXTERNAL SLAMCH, SLANGE, SLANSY, LSAME + EXTERNAL SLAMCH, SLANGE, SLANSY * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / diff --git a/TESTING/LIN/ssyt01_aa.f b/TESTING/LIN/ssyt01_aa.f index 248a39794..5b27aceca 100644 --- a/TESTING/LIN/ssyt01_aa.f +++ b/TESTING/LIN/ssyt01_aa.f @@ -154,7 +154,7 @@ SUBROUTINE SSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, EXTERNAL LSAME, SLAMCH, SLANSY * .. * .. External Subroutines .. - EXTERNAL SLASET, SLAVSY, SSWAP, STRMM, SLACPY + EXTERNAL SLASET, SSWAP, STRMM, SLACPY * .. * .. Intrinsic Functions .. INTRINSIC REAL diff --git a/TESTING/LIN/stsqr01.f b/TESTING/LIN/stsqr01.f index 683c165ae..dc60c8b82 100644 --- a/TESTING/LIN/stsqr01.f +++ b/TESTING/LIN/stsqr01.f @@ -118,7 +118,11 @@ SUBROUTINE STSQR01(TSSW, M, N, MB, NB, RESULT) REAL SLAMCH, SLANGE, SLANSY LOGICAL LSAME INTEGER ILAENV - EXTERNAL SLAMCH, SLARNV, SLANGE, SLANSY, LSAME, ILAENV + EXTERNAL SLAMCH, SLARNV, SLANGE, SLANSY, LSAME +* .. +* .. External Subroutines .. + EXTERNAL SLACPY, SGELQ, SGEMLQ, SLASET, SGEMM, SSYRK, + $ SGEQR, SGEMQR * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zchkaa.F b/TESTING/LIN/zchkaa.F index 77a7a6cb3..ec16545dd 100644 --- a/TESTING/LIN/zchkaa.F +++ b/TESTING/LIN/zchkaa.F @@ -179,7 +179,8 @@ PROGRAM ZCHKAA $ ZDRVPO, ZDRVPP, ZDRVPT, ZDRVSP, ZDRVSY, $ ZDRVSY_ROOK, ZDRVSY_RK, ZDRVSY_AA, $ ZDRVSY_AA_2STAGE, ILAVER, ZCHKQRT, ZCHKQRTP, - $ ZCHKLQT, ZCHKLQTP, ZCHKTSQR + $ ZCHKLQT, ZCHKLQTP, ZCHKTSQR, + $ ZCHKHE_AA_2STAGE, ZCHKSY_AA_2STAGE * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zchkhe.f b/TESTING/LIN/zchkhe.f index 9ee0793b7..0f6dc3f06 100644 --- a/TESTING/LIN/zchkhe.f +++ b/TESTING/LIN/zchkhe.f @@ -221,7 +221,7 @@ SUBROUTINE ZCHKHE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, NSVAL, EXTERNAL ALAERH, ALAHD, ALASUM, XLAENV, ZERRHE, ZGET04, $ ZHECON, ZHERFS, ZHET01, ZHETRF, ZHETRI2, $ ZHETRS, ZLACPY, ZLAIPD, ZLARHS, ZLATB4, ZLATMS, - $ ZPOT02, ZPOT03, ZPOT05 + $ ZPOT02, ZPOT03, ZPOT05, ZHETRS2 * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zchkhe_aa_2stage.f b/TESTING/LIN/zchkhe_aa_2stage.f index 51082f1d0..d64b49ee8 100644 --- a/TESTING/LIN/zchkhe_aa_2stage.f +++ b/TESTING/LIN/zchkhe_aa_2stage.f @@ -216,8 +216,8 @@ SUBROUTINE ZCHKHE_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZERRHE, ZLACPY, - $ ZLARHS, ZLATB4, ZLATMS, ZPOT02, + EXTERNAL ALAERH, ALAHD, ALASUM, ZERRHE, ZLACPY, + $ ZLAIPD, ZLARHS, ZLATB4, ZLATMS, ZPOT02, $ ZHETRF_AA_2STAGE, ZHETRS_AA_2STAGE, $ XLAENV * .. diff --git a/TESTING/LIN/zchklqt.f b/TESTING/LIN/zchklqt.f index 680c1135e..4ef866485 100644 --- a/TESTING/LIN/zchklqt.f +++ b/TESTING/LIN/zchklqt.f @@ -129,7 +129,7 @@ SUBROUTINE ZCHKLQT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZERRLQT, ZLQT04 + EXTERNAL ALAHD, ALASUM, ZERRLQT, ZLQT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zchklqtp.f b/TESTING/LIN/zchklqtp.f index 75e3ddfb1..9a259dd2c 100644 --- a/TESTING/LIN/zchklqtp.f +++ b/TESTING/LIN/zchklqtp.f @@ -129,7 +129,7 @@ SUBROUTINE ZCHKLQTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZERRLQTP, ZLQT04 + EXTERNAL ALAHD, ALASUM, ZERRLQTP, ZLQT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zchkqrt.f b/TESTING/LIN/zchkqrt.f index cb07af72c..5efe73d49 100644 --- a/TESTING/LIN/zchkqrt.f +++ b/TESTING/LIN/zchkqrt.f @@ -128,7 +128,7 @@ SUBROUTINE ZCHKQRT( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZERRQRT, ZQRT04 + EXTERNAL ALAHD, ALASUM, ZERRQRT, ZQRT04 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zchkqrtp.f b/TESTING/LIN/zchkqrtp.f index 9337a6837..9bae06b3b 100644 --- a/TESTING/LIN/zchkqrtp.f +++ b/TESTING/LIN/zchkqrtp.f @@ -129,7 +129,7 @@ SUBROUTINE ZCHKQRTP( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZERRQRTP + EXTERNAL ALAHD, ALASUM, ZERRQRTP, ZQRT05 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zchkrfp.f b/TESTING/LIN/zchkrfp.f index b2af1e9fb..4c1b0e7a6 100644 --- a/TESTING/LIN/zchkrfp.f +++ b/TESTING/LIN/zchkrfp.f @@ -111,7 +111,7 @@ PROGRAM ZCHKRFP * .. * .. External Subroutines .. EXTERNAL ILAVER, ZDRVRFP, ZDRVRF1, ZDRVRF2, ZDRVRF3, - + ZDRVRF4 + + ZDRVRF4, ZERRRFP * .. * .. Executable Statements .. * diff --git a/TESTING/LIN/zchksy_aa_2stage.f b/TESTING/LIN/zchksy_aa_2stage.f index 4c8ff94f7..ab0195e1b 100644 --- a/TESTING/LIN/zchksy_aa_2stage.f +++ b/TESTING/LIN/zchksy_aa_2stage.f @@ -215,9 +215,8 @@ SUBROUTINE ZCHKSY_AA_2STAGE( DOTYPE, NN, NVAL, NNB, NBVAL, NNS, * .. * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ALASUM, ZERRSY, ZLACPY, ZLARHS, - $ ZLATB4, ZLATMS, ZSYT02, ZSYT01, - $ ZSYTRF_AA_2STAGE, ZSYTRS_AA_2STAGE, - $ XLAENV + $ ZLATB4, ZLATMS, ZSYT02, ZSYTRF_AA_2STAGE, + $ ZSYTRS_AA_2STAGE, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zchktsqr.f b/TESTING/LIN/zchktsqr.f index ca7828f1a..0ebe8b97b 100644 --- a/TESTING/LIN/zchktsqr.f +++ b/TESTING/LIN/zchktsqr.f @@ -129,8 +129,7 @@ SUBROUTINE ZCHKTSQR( THRESH, TSTERR, NM, MVAL, NN, NVAL, NNB, DOUBLE PRECISION RESULT( NTESTS ) * .. * .. External Subroutines .. - EXTERNAL ALAERH, ALAHD, ALASUM, ZERRTSQR, - $ ZTSQR01, XLAENV + EXTERNAL ALAHD, ALASUM, ZERRTSQR, ZTSQR01, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zdrvab.f b/TESTING/LIN/zdrvab.f index db7a7bd78..35dbc4077 100644 --- a/TESTING/LIN/zdrvab.f +++ b/TESTING/LIN/zdrvab.f @@ -196,7 +196,7 @@ SUBROUTINE ZDRVAB( DOTYPE, NM, MVAL, NNS, * .. * .. External Subroutines .. EXTERNAL ALAERH, ALAHD, ZGET08, ZLACPY, ZLARHS, ZLASET, - $ ZLATB4, ZLATMS + $ ZLATB4, ZLATMS, ZCGESV * .. * .. Intrinsic Functions .. INTRINSIC DCMPLX, DBLE, MAX, MIN, SQRT diff --git a/TESTING/LIN/zdrvac.f b/TESTING/LIN/zdrvac.f index 3a7d00da9..d2b0b5c07 100644 --- a/TESTING/LIN/zdrvac.f +++ b/TESTING/LIN/zdrvac.f @@ -189,7 +189,7 @@ SUBROUTINE ZDRVAC( DOTYPE, NM, MVAL, NNS, NSVAL, THRESH, NMAX, INTEGER ITER, KASE * .. * .. External Subroutines .. - EXTERNAL ALAERH, ZLACPY, ZLAIPD, + EXTERNAL ALAERH, ALAHD, ZLACPY, ZLAIPD, $ ZLARHS, ZLATB4, ZLATMS, $ ZPOT06, ZCPOSV * .. diff --git a/TESTING/LIN/zdrvhe_aa.f b/TESTING/LIN/zdrvhe_aa.f index 28f268c5c..f96a0059d 100644 --- a/TESTING/LIN/zdrvhe_aa.f +++ b/TESTING/LIN/zdrvhe_aa.f @@ -193,15 +193,10 @@ SUBROUTINE ZDRVHE_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, INTEGER ISEED( 4 ), ISEEDY( 4 ) DOUBLE PRECISION RESULT( NTESTS ) * .. -* .. External Functions .. - DOUBLE PRECISION DGET06, ZLANHE - EXTERNAL DGET06, ZLANHE -* .. * .. External Subroutines .. - EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX, ZGET04, - $ ZHESV_AA, ZHET01_AA, ZHETRF_AA, - $ ZHETRI2, ZLACPY, ZLAIPD, ZLARHS, ZLATB4, - $ ZLATMS, ZPOT02 + EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX, + $ ZHESV_AA, ZHET01_AA, ZLACPY, ZLAIPD, ZLARHS, + $ ZLATB4, ZLATMS, ZPOT02 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zdrvhe_aa_2stage.f b/TESTING/LIN/zdrvhe_aa_2stage.f index 9f6d5cba8..32fe434f8 100644 --- a/TESTING/LIN/zdrvhe_aa_2stage.f +++ b/TESTING/LIN/zdrvhe_aa_2stage.f @@ -195,15 +195,10 @@ SUBROUTINE ZDRVHE_AA_2STAGE( INTEGER ISEED( 4 ), ISEEDY( 4 ) DOUBLE PRECISION RESULT( NTESTS ) * .. -* .. External Functions .. - DOUBLE PRECISION DGET06, ZLANHE - EXTERNAL DGET06, ZLANHE -* .. * .. External Subroutines .. EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX, - $ ZGET04, ZLACPY, ZLARHS, ZLATB4, ZLATMS, - $ ZHESV_AA_2STAGE, ZHET01_AA, ZPOT02, - $ ZHETRF_AA_2STAGE + $ ZLACPY, ZLARHS, ZLATB4, ZLATMS, + $ ZHESV_AA_2STAGE, ZPOT02 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zdrvls.f b/TESTING/LIN/zdrvls.f index 49a2fdcd7..2fab34f59 100644 --- a/TESTING/LIN/zdrvls.f +++ b/TESTING/LIN/zdrvls.f @@ -252,7 +252,7 @@ SUBROUTINE ZDRVLS( DOTYPE, NM, MVAL, NN, NVAL, NNS, NSVAL, NNB, EXTERNAL ALAERH, ALAHD, ALASVM, DAXPY, ZERRLS, ZGELS, $ ZGELSD, ZGELSS, ZGELST, ZGELSY, ZGEMM, $ ZGETSLS, ZLACPY, ZLARNV, ZQRT13, ZQRT15, - $ ZQRT16, ZDSCAL, XLAENV + $ ZQRT16, ZDSCAL, ZSCAL, XLAENV * .. * .. Intrinsic Functions .. INTRINSIC DBLE, MAX, MIN, INT, SQRT diff --git a/TESTING/LIN/zdrvrf3.f b/TESTING/LIN/zdrvrf3.f index fb95dd55e..8ff14e9c7 100644 --- a/TESTING/LIN/zdrvrf3.f +++ b/TESTING/LIN/zdrvrf3.f @@ -165,7 +165,7 @@ SUBROUTINE ZDRVRF3( NOUT, NN, NVAL, THRESH, A, LDA, ARF, B1, B2, EXTERNAL DLAMCH, ZLARND, ZLANGE, LSAME * .. * .. External Subroutines .. - EXTERNAL ZTRTTF, ZGEQRF, ZGEQLF, ZTFSM, ZTRSM + EXTERNAL ZTRTTF, ZGEQRF, ZGELQF, ZTFSM, ZTRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, SQRT diff --git a/TESTING/LIN/zdrvsy_aa.f b/TESTING/LIN/zdrvsy_aa.f index 74aaf61a1..f1352291b 100644 --- a/TESTING/LIN/zdrvsy_aa.f +++ b/TESTING/LIN/zdrvsy_aa.f @@ -195,14 +195,10 @@ SUBROUTINE ZDRVSY_AA( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, INTEGER ISEED( 4 ), ISEEDY( 4 ) DOUBLE PRECISION RESULT( NTESTS ) * .. -* .. External Functions .. - DOUBLE PRECISION DGET06, ZLANSY - EXTERNAL DGET06, ZLANSY -* .. * .. External Subroutines .. - EXTERNAL ALADHD, ALAERH, ALASVM, ZERRVX, ZGET04, ZLACPY, - $ ZLARHS, ZLASET, ZLATB4, ZLATMS, ZSYT02, - $ ZSYSV_AA, ZSYT01_AA, ZSYTRF_AA, XLAENV + EXTERNAL ALADHD, ALAERH, ALASVM, ZERRVX, ZLACPY, + $ ZLARHS, ZLATB4, ZLATMS, ZSYT02, ZSYSV_AA, + $ ZSYT01_AA, XLAENV * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zdrvsy_aa_2stage.f b/TESTING/LIN/zdrvsy_aa_2stage.f index 744872db3..d9ac7a5aa 100644 --- a/TESTING/LIN/zdrvsy_aa_2stage.f +++ b/TESTING/LIN/zdrvsy_aa_2stage.f @@ -197,15 +197,10 @@ SUBROUTINE ZDRVSY_AA_2STAGE( INTEGER ISEED( 4 ), ISEEDY( 4 ) DOUBLE PRECISION RESULT( NTESTS ) * .. -* .. External Functions .. - DOUBLE PRECISION DGET06, ZLANSY - EXTERNAL DGET06, ZLANSY -* .. * .. External Subroutines .. EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX, - $ ZGET04, ZLACPY, ZLARHS, ZLATB4, ZLATMS, - $ ZSYSV_AA_2STAGE, ZSYT01_AA, ZSYT02, - $ ZSYTRF_AA_2STAGE + $ ZLACPY, ZLARHS, ZLATB4, ZLATMS, + $ ZSYSV_AA_2STAGE, ZSYT02 * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zdrvsy_rook.f b/TESTING/LIN/zdrvsy_rook.f index 8f1e16ddc..d96bfac72 100644 --- a/TESTING/LIN/zdrvsy_rook.f +++ b/TESTING/LIN/zdrvsy_rook.f @@ -200,9 +200,9 @@ SUBROUTINE ZDRVSY_ROOK( DOTYPE, NN, NVAL, NRHS, THRESH, TSTERR, * .. * .. External Subroutines .. EXTERNAL ALADHD, ALAERH, ALASVM, XLAENV, ZERRVX, ZGET04, - $ ZLACPY, ZLARHS, ZLASET, ZLATB4, ZLATMS, ZLATSY, - $ ZPOT05, ZSYSV_ROOK, ZSYT01_ROOK, ZSYT02, - $ ZSYTRF_ROOK, ZSYTRI_ROOK + $ ZLACPY, ZLARHS, ZLATB4, ZLATMS, ZLATSY, + $ ZSYSV_ROOK, ZSYT01_ROOK, ZSYT02, ZSYTRF_ROOK, + $ ZSYTRI_ROOK * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zerrsy.f b/TESTING/LIN/zerrsy.f index a948e0795..404eea7fc 100644 --- a/TESTING/LIN/zerrsy.f +++ b/TESTING/LIN/zerrsy.f @@ -90,7 +90,9 @@ SUBROUTINE ZERRSY( PATH, NUNIT ) $ ZSYTF2, ZSYTF2_RK, ZSYTF2_ROOK, ZSYTRF, $ ZSYTRF_RK, ZSYTRF_ROOK, ZSYTRI, ZSYTRI_3, $ ZSYTRI_3X, ZSYTRI_ROOK, ZSYTRI2, ZSYTRI2X, - $ ZSYTRS, ZSYTRS_3, ZSYTRS_ROOK + $ ZSYTRS, ZSYTRS_3, ZSYTRS_ROOK, ZSYTRF_AA, + $ ZSYTRS_AA, ZSYTRF_AA_2STAGE, + $ ZSYTRS_AA_2STAGE * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zerrtsqr.f b/TESTING/LIN/zerrtsqr.f index 01892844e..0580bd523 100644 --- a/TESTING/LIN/zerrtsqr.f +++ b/TESTING/LIN/zerrtsqr.f @@ -77,8 +77,8 @@ SUBROUTINE ZERRTSQR( PATH, NUNIT ) $ C( NMAX, NMAX ), TAU( 5 ) * .. * .. External Subroutines .. - EXTERNAL ALAESM, CHKXER, ZGEQR, - $ ZGEMQR, ZGELQ, ZGEMLQ + EXTERNAL ALAESM, CHKXER, ZGEQR, ZGEMQR, ZGELQ, + $ ZGEMLQ, ZLATSQR, ZLASWLQ * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zerrvx.f b/TESTING/LIN/zerrvx.f index 09d412d07..a2c1903b2 100644 --- a/TESTING/LIN/zerrvx.f +++ b/TESTING/LIN/zerrvx.f @@ -88,11 +88,12 @@ SUBROUTINE ZERRVX( PATH, NUNIT ) * .. * .. External Subroutines .. EXTERNAL CHKXER, ZGBSV, ZGBSVX, ZGESV, ZGESVX, ZGTSV, - $ ZGTSVX, ZHESV, ZHESV_RK, ZHESV_ROOK, ZHESVX, - $ ZHPSV, ZHPSVX, ZPBSV, ZPBSVX, ZPOSV, ZPOSVX, - $ ZPPSV, ZPPSVX, ZPTSV, ZPTSVX, ZSPSV, ZSPSVX, - $ ZSYSV, ZSYSV_AA, ZSYSV_RK, ZSYSV_ROOK, - $ ZSYSVX, ZHESV_AA_2STAGE + $ ZGTSVX, ZHESV, ZHESV_AA, ZHESV_RK, + $ ZHESV_ROOK, ZHESVX, ZHPSV, ZHPSVX, ZPBSV, + $ ZPBSVX, ZPOSV, ZPOSVX, ZPPSV, ZPPSVX, ZPTSV, + $ ZPTSVX, ZSPSV, ZSPSVX, ZSYSV, ZSYSV_AA, + $ ZSYSV_RK, ZSYSV_ROOK, ZSYSVX, + $ ZHESV_AA_2STAGE, ZSYSV_AA_2STAGE * .. * .. Scalars in Common .. LOGICAL LERR, OK diff --git a/TESTING/LIN/zhet01_aa.f b/TESTING/LIN/zhet01_aa.f index f1035c818..ceb1c69bd 100644 --- a/TESTING/LIN/zhet01_aa.f +++ b/TESTING/LIN/zhet01_aa.f @@ -157,7 +157,7 @@ SUBROUTINE ZHET01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, EXTERNAL LSAME, DLAMCH, ZLANHE * .. * .. External Subroutines .. - EXTERNAL ZLASET, ZLAVHE + EXTERNAL ZLASET, ZSWAP, ZTRMM, ZLACPY, ZLACGV * .. * .. Intrinsic Functions .. INTRINSIC DBLE diff --git a/TESTING/LIN/zlqt04.f b/TESTING/LIN/zlqt04.f index 3afa7c397..f7b47dee4 100644 --- a/TESTING/LIN/zlqt04.f +++ b/TESTING/LIN/zlqt04.f @@ -107,7 +107,10 @@ SUBROUTINE ZLQT04(M,N,NB,RESULT) DOUBLE PRECISION DLAMCH DOUBLE PRECISION ZLANGE, ZLANSY LOGICAL LSAME - EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME + EXTERNAL DLAMCH, ZLANGE, ZLANSY +* .. +* .. External Subroutines .. + EXTERNAL ZLARNV, ZLACPY, ZGELQT, ZLASET, ZGEMLQT, ZGEMM, ZHERK * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zlqt05.f b/TESTING/LIN/zlqt05.f index e845621a9..7bfb87309 100644 --- a/TESTING/LIN/zlqt05.f +++ b/TESTING/LIN/zlqt05.f @@ -113,7 +113,11 @@ SUBROUTINE ZLQT05(M,N,L,NB,RESULT) DOUBLE PRECISION DLAMCH DOUBLE PRECISION ZLANGE, ZLANSY LOGICAL LSAME - EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME + EXTERNAL DLAMCH, ZLANGE, ZLANSY +* .. +* .. External Subroutines .. + EXTERNAL ZLASET, ZLARNV, ZLACPY, ZTPLQT, ZGEMLQT, ZGEMM, + $ ZHERK, ZTPMLQT * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / diff --git a/TESTING/LIN/zpot06.f b/TESTING/LIN/zpot06.f index 34993e812..5d8a46f68 100644 --- a/TESTING/LIN/zpot06.f +++ b/TESTING/LIN/zpot06.f @@ -155,10 +155,9 @@ SUBROUTINE ZPOT06( UPLO, N, NRHS, A, LDA, X, LDX, B, LDB, COMPLEX*16 ZDUM * .. * .. External Functions .. - LOGICAL LSAME INTEGER IZAMAX DOUBLE PRECISION DLAMCH, ZLANSY - EXTERNAL LSAME, IZAMAX, DLAMCH, ZLANSY + EXTERNAL IZAMAX, DLAMCH, ZLANSY * .. * .. External Subroutines .. EXTERNAL ZHEMM diff --git a/TESTING/LIN/zqrt04.f b/TESTING/LIN/zqrt04.f index 3ca7199ce..20b1af73e 100644 --- a/TESTING/LIN/zqrt04.f +++ b/TESTING/LIN/zqrt04.f @@ -102,11 +102,14 @@ SUBROUTINE ZQRT04(M,N,NB,RESULT) * .. Local Arrays .. INTEGER ISEED( 4 ) * .. +* .. External Subroutines .. + EXTERNAL ZGEMM, ZLACPY, ZLARNV, ZGEMQRT, ZLASET, ZGEQRT, ZHERK +* .. * .. External Functions .. DOUBLE PRECISION DLAMCH DOUBLE PRECISION ZLANGE, ZLANSY LOGICAL LSAME - EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME + EXTERNAL DLAMCH, ZLANGE, ZLANSY * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zqrt05.f b/TESTING/LIN/zqrt05.f index 5677b7e76..25799ac5c 100644 --- a/TESTING/LIN/zqrt05.f +++ b/TESTING/LIN/zqrt05.f @@ -109,11 +109,14 @@ SUBROUTINE ZQRT05(M,N,L,NB,RESULT) * .. Local Arrays .. INTEGER ISEED( 4 ) * .. +* .. External Subroutines .. + EXTERNAL ZGEMM, ZLARNV, ZTPMQRT, ZTPQRT, ZGEMQRT, ZHERK, + $ ZLACPY, ZLASET +* .. * .. External Functions .. DOUBLE PRECISION DLAMCH DOUBLE PRECISION ZLANGE, ZLANSY - LOGICAL LSAME - EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME + EXTERNAL DLAMCH, ZLANGE, ZLANSY * .. * .. Data statements .. DATA ISEED / 1988, 1989, 1990, 1991 / diff --git a/TESTING/LIN/zsyt01_aa.f b/TESTING/LIN/zsyt01_aa.f index ed65a5128..e36cc8b7a 100644 --- a/TESTING/LIN/zsyt01_aa.f +++ b/TESTING/LIN/zsyt01_aa.f @@ -157,7 +157,7 @@ SUBROUTINE ZSYT01_AA( UPLO, N, A, LDA, AFAC, LDAFAC, IPIV, C, EXTERNAL LSAME, DLAMCH, ZLANSY * .. * .. External Subroutines .. - EXTERNAL ZLASET, ZLAVSY + EXTERNAL ZLASET, ZSWAP, ZTRMM, ZLACPY * .. * .. Intrinsic Functions .. INTRINSIC DBLE diff --git a/TESTING/LIN/ztsqr01.f b/TESTING/LIN/ztsqr01.f index f844d512b..524d2f26c 100644 --- a/TESTING/LIN/ztsqr01.f +++ b/TESTING/LIN/ztsqr01.f @@ -117,8 +117,11 @@ SUBROUTINE ZTSQR01(TSSW, M, N, MB, NB, RESULT) * .. External Functions .. DOUBLE PRECISION DLAMCH, ZLANGE, ZLANSY LOGICAL LSAME - INTEGER ILAENV - EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME, ILAENV + EXTERNAL DLAMCH, ZLANGE, ZLANSY, LSAME +* .. +* .. External Subroutines .. + EXTERNAL ZLARNV, ZLACPY, ZGELQ, ZGEMLQ, ZLASET, ZGEMM, + $ ZHERK, ZGEQR, ZGEMQR * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/TESTING/LIN/zunhr_col02.f b/TESTING/LIN/zunhr_col02.f index 1c2e71371..260215ae0 100644 --- a/TESTING/LIN/zunhr_col02.f +++ b/TESTING/LIN/zunhr_col02.f @@ -158,8 +158,8 @@ SUBROUTINE ZUNHR_COL02( M, N, MB1, NB1, NB2, RESULT ) EXTERNAL DLAMCH, ZLANGE, ZLANSY * .. * .. External Subroutines .. - EXTERNAL ZLACPY, ZLARNV, ZLASET, ZGETSQRHRT, - $ ZSCAL, ZGEMM, ZGEMQRT, ZHERK + EXTERNAL ZLACPY, ZLARNV, ZLASET, ZGETSQRHRT, ZGEMM, + $ ZGEMQRT, ZHERK * .. * .. Intrinsic Functions .. INTRINSIC CEILING, DBLE, MAX, MIN From a6c1fd808359e9e566e1e8fa7b79bdbc6649290e Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Sat, 2 May 2026 16:13:41 +0200 Subject: [PATCH 20/39] Removed unnecessary external declarations in TESTING/EIG --- TESTING/EIG/cbdt05.f | 6 ++---- TESTING/EIG/cchkee.F | 14 ++++++-------- TESTING/EIG/dbdt04.f | 3 +-- TESTING/EIG/dbdt05.f | 4 +--- TESTING/EIG/dchkbd.f | 4 ++-- TESTING/EIG/dchkdmd.f90 | 2 +- TESTING/EIG/dchkee.F | 11 +++++------ TESTING/EIG/ddrvst2stg.f | 11 +++++------ TESTING/EIG/dget40.f | 2 +- TESTING/EIG/sbdt04.f | 3 +-- TESTING/EIG/sbdt05.f | 4 +--- TESTING/EIG/schkbd.f | 4 ++-- TESTING/EIG/schkdmd.f90 | 2 +- TESTING/EIG/schkee.F | 11 +++++------ TESTING/EIG/sdrvst2stg.f | 11 +++++------ TESTING/EIG/zbdt05.f | 6 ++---- TESTING/EIG/zchkdmd.f90 | 1 - TESTING/EIG/zchkee.F | 14 ++++++-------- TESTING/EIG/zdrvst2stg.f | 8 ++++---- 19 files changed, 51 insertions(+), 70 deletions(-) diff --git a/TESTING/EIG/cbdt05.f b/TESTING/EIG/cbdt05.f index 80934f3eb..403efcf01 100644 --- a/TESTING/EIG/cbdt05.f +++ b/TESTING/EIG/cbdt05.f @@ -154,10 +154,8 @@ SUBROUTINE CBDT05( M, N, A, LDA, S, NS, U, LDU, REAL DUM( 1 ) * .. * .. External Functions .. - LOGICAL LSAME - INTEGER ISAMAX - REAL SASUM, SCASUM, SLAMCH, CLANGE - EXTERNAL LSAME, ISAMAX, SASUM, SCASUM, SLAMCH, CLANGE + REAL SCASUM, SLAMCH, CLANGE + EXTERNAL SCASUM, SLAMCH, CLANGE * .. * .. External Subroutines .. EXTERNAL CGEMM diff --git a/TESTING/EIG/cchkee.F b/TESTING/EIG/cchkee.F index 277f0afa9..6b2bca670 100644 --- a/TESTING/EIG/cchkee.F +++ b/TESTING/EIG/cchkee.F @@ -1103,14 +1103,12 @@ PROGRAM CCHKEE * .. * .. External Subroutines .. EXTERNAL ALAREQ, CCHKBB, CCHKBD, CCHKBK, CCHKBL, CCHKEC, - $ CCHKGG, CCHKGK, CCHKGL, CCHKHB, CCHKHS, CCHKST, - $ CCKCSD, CCKGLM, CCKGQR, CCKGSV, CCKLSE, CDRGES, - $ CDRGEV, CDRGSX, CDRGVX, CDRVBD, CDRVES, CDRVEV, - $ CDRVSG, CDRVST, CDRVSX, CDRVVX, CERRBD, - $ CERRED, CERRGG, CERRHS, CERRST, ILAVER, XLAENV, - $ CDRGES3, CDRGEV3, - $ CCHKST2STG, CDRVST2STG, CCHKHB2STG, - $ CDRVSG2STG + $ CCHKGG, CCHKGK, CCHKGL, CCHKHS, CCHKST, CCKCSD, + $ CCKGLM, CCKGQR, CCKGSV, CCKLSE, CDRGES, CDRGEV, + $ CDRGSX, CDRGVX, CDRVBD, CDRVES, CDRVEV, CDRVST, + $ CDRVSX, CDRVVX, CERRBD, CERRED, CERRGG, CERRHS, + $ CERRST, ILAVER, XLAENV, CDRGES3, CDRGEV3, + $ CCHKST2STG, CDRVST2STG, CCHKHB2STG, CDRVSG2STG * .. * .. Intrinsic Functions .. INTRINSIC LEN, MIN diff --git a/TESTING/EIG/dbdt04.f b/TESTING/EIG/dbdt04.f index 762b8373a..5753f0e9c 100644 --- a/TESTING/EIG/dbdt04.f +++ b/TESTING/EIG/dbdt04.f @@ -156,9 +156,8 @@ SUBROUTINE DBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER IDAMAX DOUBLE PRECISION DASUM, DLAMCH - EXTERNAL LSAME, IDAMAX, DASUM, DLAMCH + EXTERNAL LSAME, DASUM, DLAMCH * .. * .. External Subroutines .. EXTERNAL DGEMM diff --git a/TESTING/EIG/dbdt05.f b/TESTING/EIG/dbdt05.f index ca12e830b..68f4920bc 100644 --- a/TESTING/EIG/dbdt05.f +++ b/TESTING/EIG/dbdt05.f @@ -150,10 +150,8 @@ SUBROUTINE DBDT05( M, N, A, LDA, S, NS, U, LDU, DOUBLE PRECISION ANORM, EPS * .. * .. External Functions .. - LOGICAL LSAME - INTEGER IDAMAX DOUBLE PRECISION DASUM, DLAMCH, DLANGE - EXTERNAL LSAME, IDAMAX, DASUM, DLAMCH, DLANGE + EXTERNAL DASUM, DLAMCH, DLANGE * .. * .. External Subroutines .. EXTERNAL DGEMM diff --git a/TESTING/EIG/dchkbd.f b/TESTING/EIG/dchkbd.f index 92d4fff00..bd7d94424 100644 --- a/TESTING/EIG/dchkbd.f +++ b/TESTING/EIG/dchkbd.f @@ -539,8 +539,8 @@ SUBROUTINE DCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, DOUBLE PRECISION DUM( 1 ), DUMMA( 1 ), RESULT( 40 ) * .. * .. External Functions .. - DOUBLE PRECISION DLAMCH, DLARND, DSXT1 - EXTERNAL DLAMCH, DLARND, DSXT1 + DOUBLE PRECISION DLAMCH, DLARND + EXTERNAL DLAMCH, DLARND * .. * .. External Subroutines .. EXTERNAL ALASUM, DBDSDC, DBDSQR, DBDSVDX, DBDT01, diff --git a/TESTING/EIG/dchkdmd.f90 b/TESTING/EIG/dchkdmd.f90 index a2b996628..948f9dcb1 100644 --- a/TESTING/EIG/dchkdmd.f90 +++ b/TESTING/EIG/dchkdmd.f90 @@ -94,7 +94,7 @@ PROGRAM DMD_TEST LOGICAL TEST_QRDMD !..... external subroutines (BLAS and LAPACK) - EXTERNAL DAXPY, DGEEV, DGEMM, DGEMV, DLACPY, DLASCL + EXTERNAL DAXPY, DGEEV, DGEMM, DGEMV, DLASCL EXTERNAL DLARNV, DLATMR, XLAENV !.....external subroutines DMD package, part 1 ! subroutines under test diff --git a/TESTING/EIG/dchkee.F b/TESTING/EIG/dchkee.F index 20c4cb47c..07bb24e9f 100644 --- a/TESTING/EIG/dchkee.F +++ b/TESTING/EIG/dchkee.F @@ -1106,12 +1106,11 @@ PROGRAM DCHKEE * .. * .. External Subroutines .. EXTERNAL ALAREQ, DCHKBB, DCHKBD, DCHKBK, DCHKBL, DCHKEC, - $ DCHKGG, DCHKGK, DCHKGL, DCHKHS, DCHKSB, DCHKST, - $ DCKCSD, DCKGLM, DCKGQR, DCKGSV, DCKLSE, DDRGES, - $ DDRGEV, DDRGSX, DDRGVX, DDRVBD, DDRVES, DDRVEV, - $ DDRVSG, DDRVST, DDRVSX, DDRVVX, DERRBD, - $ DERRED, DERRGG, DERRHS, DERRST, ILAVER, XLAENV, - $ DDRGES3, DDRGEV3, + $ DCHKGG, DCHKGK, DCHKGL, DCHKHS, DCHKST, DCKCSD, + $ DCKGLM, DCKGQR, DCKGSV, DCKLSE, DDRGES, DDRGEV, + $ DDRGSX, DDRGVX, DDRVBD, DDRVES, DDRVEV, DDRVST, + $ DDRVSX, DDRVVX, DERRBD, DERRED, DERRGG, DERRHS, + $ DERRST, ILAVER, XLAENV, DDRGES3, DDRGEV3, $ DCHKST2STG, DDRVST2STG, DCHKSB2STG, DDRVSG2STG * .. * .. Intrinsic Functions .. diff --git a/TESTING/EIG/ddrvst2stg.f b/TESTING/EIG/ddrvst2stg.f index f1c848d07..dfccbc964 100644 --- a/TESTING/EIG/ddrvst2stg.f +++ b/TESTING/EIG/ddrvst2stg.f @@ -503,14 +503,13 @@ SUBROUTINE DDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, EXTERNAL DLAMCH, DLARND, DSXT1 * .. * .. External Subroutines .. - EXTERNAL ALASVM, DLACPY, DLAFTS, DLASET, DLATMR, - $ DLATMS, DSBEV, DSBEVD, DSBEVX, DSPEV, DSPEVD, - $ DSPEVX, DSTEV, DSTEVD, DSTEVR, DSTEVX, DSTT21, - $ DSTT22, DSYEV, DSYEVD, DSYEVR, DSYEVX, DSYT21, + EXTERNAL ALASVM, DLACPY, DLAFTS, DLASET, DLATMR, DLATMS, + $ DSBEV, DSBEVD, DSBEVX, DSPEV, DSPEVD, DSPEVX, + $ DSTEV, DSTEVD, DSTEVR, DSTEVX, DSTT21, DSTT22, + $ DSYEV, DSYEVD, DSYEVR, DSYEVX, DSYT21, $ DSYEVD_2STAGE, DSYEVR_2STAGE, DSYEVX_2STAGE, $ DSYEV_2STAGE, DSBEV_2STAGE, DSBEVD_2STAGE, - $ DSBEVX_2STAGE, DSYTRD_2STAGE, DSYTRD_SY2SB, - $ DSYTRD_SB2ST, DSYT22, XERBLA + $ DSBEVX_2STAGE, DSYT22, XERBLA * .. * .. Scalars in Common .. CHARACTER*32 SRNAMT diff --git a/TESTING/EIG/dget40.f b/TESTING/EIG/dget40.f index 384e0603b..f1ba47e71 100644 --- a/TESTING/EIG/dget40.f +++ b/TESTING/EIG/dget40.f @@ -120,7 +120,7 @@ SUBROUTINE DGET40( RMAX, LMAX, NINFO, KNT, NIN ) EXTERNAL DLAMCH * .. * .. External Subroutines .. - EXTERNAL DGET51, DHST01, DLACPY, DLASET, DTGEXC + EXTERNAL DGET51, DLACPY, DLASET, DTGEXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, SIGN diff --git a/TESTING/EIG/sbdt04.f b/TESTING/EIG/sbdt04.f index 0111b1a64..dc0361e9f 100644 --- a/TESTING/EIG/sbdt04.f +++ b/TESTING/EIG/sbdt04.f @@ -156,9 +156,8 @@ SUBROUTINE SBDT04( UPLO, N, D, E, S, NS, U, LDU, VT, LDVT, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ISAMAX REAL SASUM, SLAMCH - EXTERNAL LSAME, ISAMAX, SASUM, SLAMCH + EXTERNAL LSAME, SASUM, SLAMCH * .. * .. External Subroutines .. EXTERNAL SGEMM diff --git a/TESTING/EIG/sbdt05.f b/TESTING/EIG/sbdt05.f index b4c91c2cb..7ca10c544 100644 --- a/TESTING/EIG/sbdt05.f +++ b/TESTING/EIG/sbdt05.f @@ -150,10 +150,8 @@ SUBROUTINE SBDT05( M, N, A, LDA, S, NS, U, LDU, REAL ANORM, EPS * .. * .. External Functions .. - LOGICAL LSAME - INTEGER ISAMAX REAL SASUM, SLAMCH, SLANGE - EXTERNAL LSAME, ISAMAX, SASUM, SLAMCH, SLANGE + EXTERNAL SASUM, SLAMCH, SLANGE * .. * .. External Subroutines .. EXTERNAL SGEMM diff --git a/TESTING/EIG/schkbd.f b/TESTING/EIG/schkbd.f index 9fd4f3480..5c15e51ba 100644 --- a/TESTING/EIG/schkbd.f +++ b/TESTING/EIG/schkbd.f @@ -539,8 +539,8 @@ SUBROUTINE SCHKBD( NSIZES, MVAL, NVAL, NTYPES, DOTYPE, NRHS, REAL DUM( 1 ), DUMMA( 1 ), RESULT( 40 ) * .. * .. External Functions .. - REAL SLAMCH, SLARND, SSXT1 - EXTERNAL SLAMCH, SLARND, SSXT1 + REAL SLAMCH, SLARND + EXTERNAL SLAMCH, SLARND * .. * .. External Subroutines .. EXTERNAL ALASUM, SBDSDC, SBDSQR, SBDSVDX, SBDT01, diff --git a/TESTING/EIG/schkdmd.f90 b/TESTING/EIG/schkdmd.f90 index ce0166763..79bbb2ab3 100644 --- a/TESTING/EIG/schkdmd.f90 +++ b/TESTING/EIG/schkdmd.f90 @@ -94,7 +94,7 @@ PROGRAM DMD_TEST LOGICAL TEST_QRDMD !..... external subroutines (BLAS and LAPACK) - EXTERNAL SAXPY, SGEEV, SGEMM, SGEMV, SLACPY, SLASCL + EXTERNAL SAXPY, SGEEV, SGEMM, SGEMV, SLASCL EXTERNAL SLARNV, SLATMR, XLAENV !.....external subroutines DMD package, part 1 ! subroutines under test diff --git a/TESTING/EIG/schkee.F b/TESTING/EIG/schkee.F index fa780b695..4fa913e30 100644 --- a/TESTING/EIG/schkee.F +++ b/TESTING/EIG/schkee.F @@ -1106,12 +1106,11 @@ PROGRAM SCHKEE * .. * .. External Subroutines .. EXTERNAL ALAREQ, SCHKBB, SCHKBD, SCHKBK, SCHKBL, SCHKEC, - $ SCHKGG, SCHKGK, SCHKGL, SCHKHS, SCHKSB, SCHKST, - $ SCKCSD, SCKGLM, SCKGQR, SCKGSV, SCKLSE, SDRGES, - $ SDRGEV, SDRGSX, SDRGVX, SDRVBD, SDRVES, SDRVEV, - $ SDRVSG, SDRVST, SDRVSX, SDRVVX, SERRBD, - $ SERRED, SERRGG, SERRHS, SERRST, ILAVER, XLAENV, - $ SDRGES3, SDRGEV3, + $ SCHKGG, SCHKGK, SCHKGL, SCHKHS, SCHKST, SCKCSD, + $ SCKGLM, SCKGQR, SCKGSV, SCKLSE, SDRGES, SDRGEV, + $ SDRGSX, SDRGVX, SDRVBD, SDRVES, SDRVEV, SDRVST, + $ SDRVSX, SDRVVX, SERRBD, SERRED, SERRGG, SERRHS, + $ SERRST, ILAVER, XLAENV, SDRGES3, SDRGEV3, $ SCHKST2STG, SDRVST2STG, SCHKSB2STG, SDRVSG2STG * .. * .. Intrinsic Functions .. diff --git a/TESTING/EIG/sdrvst2stg.f b/TESTING/EIG/sdrvst2stg.f index f20d9fdf3..377fbd7f8 100644 --- a/TESTING/EIG/sdrvst2stg.f +++ b/TESTING/EIG/sdrvst2stg.f @@ -503,14 +503,13 @@ SUBROUTINE SDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, EXTERNAL SLAMCH, SLARND, SSXT1 * .. * .. External Subroutines .. - EXTERNAL ALASVM, SLACPY, SLAFTS, SLASET, SLATMR, - $ SLATMS, SSBEV, SSBEVD, SSBEVX, SSPEV, SSPEVD, - $ SSPEVX, SSTEV, SSTEVD, SSTEVR, SSTEVX, SSTT21, - $ SSTT22, SSYEV, SSYEVD, SSYEVR, SSYEVX, SSYT21, + EXTERNAL ALASVM, SLACPY, SLAFTS, SLASET, SLATMR, SLATMS, + $ SSBEV, SSBEVD, SSBEVX, SSPEV, SSPEVD, SSPEVX, + $ SSTEV, SSTEVD, SSTEVR, SSTEVX, SSTT21, SSTT22, + $ SSYEV, SSYEVD, SSYEVR, SSYEVX, SSYT21, $ SSYEVD_2STAGE, SSYEVR_2STAGE, SSYEVX_2STAGE, $ SSYEV_2STAGE, SSBEV_2STAGE, SSBEVD_2STAGE, - $ SSBEVX_2STAGE, SSYTRD_2STAGE, SSYTRD_SY2SB, - $ SSYTRD_SB2ST, SSYT22, XERBLA + $ SSBEVX_2STAGE, SSYT22, XERBLA * .. * .. Scalars in Common .. CHARACTER*32 SRNAMT diff --git a/TESTING/EIG/zbdt05.f b/TESTING/EIG/zbdt05.f index 2a4bf8201..db0c977b3 100644 --- a/TESTING/EIG/zbdt05.f +++ b/TESTING/EIG/zbdt05.f @@ -154,10 +154,8 @@ SUBROUTINE ZBDT05( M, N, A, LDA, S, NS, U, LDU, DOUBLE PRECISION DUM( 1 ) * .. * .. External Functions .. - LOGICAL LSAME - INTEGER IDAMAX - DOUBLE PRECISION DASUM, DZASUM, DLAMCH, ZLANGE - EXTERNAL LSAME, IDAMAX, DASUM, DZASUM, DLAMCH, ZLANGE + DOUBLE PRECISION DZASUM, DLAMCH, ZLANGE + EXTERNAL DZASUM, DLAMCH, ZLANGE * .. * .. External Subroutines .. EXTERNAL ZGEMM diff --git a/TESTING/EIG/zchkdmd.f90 b/TESTING/EIG/zchkdmd.f90 index 334befbd1..0224ae9d0 100644 --- a/TESTING/EIG/zchkdmd.f90 +++ b/TESTING/EIG/zchkdmd.f90 @@ -84,7 +84,6 @@ PROGRAM DMD_TEST LOGICAL :: TEST_QRDMD !.....external subroutines (BLAS and LAPACK) - EXTERNAL DAXPY, DGEEV, DGEMM, DGEMV, DLACPY, DLASCL EXTERNAL ZGEEV, ZGEMV, ZLASCL EXTERNAL ZLARNV, ZLATMR, XLAENV EXTERNAL ZAXPY, ZGEMM diff --git a/TESTING/EIG/zchkee.F b/TESTING/EIG/zchkee.F index 1a3e02478..3dc9ab4d8 100644 --- a/TESTING/EIG/zchkee.F +++ b/TESTING/EIG/zchkee.F @@ -1103,14 +1103,12 @@ PROGRAM ZCHKEE * .. * .. External Subroutines .. EXTERNAL ALAREQ, XLAENV, ZCHKBB, ZCHKBD, ZCHKBK, ZCHKBL, - $ ZCHKEC, ZCHKGG, ZCHKGK, ZCHKGL, ZCHKHB, ZCHKHS, - $ ZCHKST, ZCKCSD, ZCKGLM, ZCKGQR, ZCKGSV, ZCKLSE, - $ ZDRGES, ZDRGEV, ZDRGSX, ZDRGVX, ZDRVBD, ZDRVES, - $ ZDRVEV, ZDRVSG, ZDRVST, ZDRVSX, ZDRVVX, - $ ZERRBD, ZERRED, ZERRGG, ZERRHS, ZERRST, ILAVER, - $ ZDRGES3, ZDRGEV3, - $ ZCHKST2STG, ZDRVST2STG, ZCHKHB2STG, - $ ZDRVSG2STG + $ ZCHKEC, ZCHKGG, ZCHKGK, ZCHKGL, ZCHKHS, ZCHKST, + $ ZCKCSD, ZCKGLM, ZCKGQR, ZCKGSV, ZCKLSE, ZDRGES, + $ ZDRGEV, ZDRGSX, ZDRGVX, ZDRVBD, ZDRVES, ZDRVEV, + $ ZDRVST, ZDRVSX, ZDRVVX, ZERRBD, ZERRED, ZERRGG, + $ ZERRHS, ZERRST, ILAVER, ZDRGES3, ZDRGEV3, + $ ZCHKST2STG, ZDRVST2STG, ZCHKHB2STG, ZDRVSG2STG * .. * .. Intrinsic Functions .. INTRINSIC LEN, MIN diff --git a/TESTING/EIG/zdrvst2stg.f b/TESTING/EIG/zdrvst2stg.f index 5dd58c173..012ae271e 100644 --- a/TESTING/EIG/zdrvst2stg.f +++ b/TESTING/EIG/zdrvst2stg.f @@ -392,12 +392,12 @@ SUBROUTINE ZDRVST2STG( NSIZES, NN, NTYPES, DOTYPE, ISEED, THRESH, EXTERNAL DLAMCH, DLARND, DSXT1 * .. * .. External Subroutines .. - EXTERNAL ALASVM, DLAFTS, XERBLA, ZHBEV, ZHBEVD, - $ ZHBEVX, ZHEEV, ZHEEVD, ZHEEVR, ZHEEVX, ZHET21, - $ ZHET22, ZHPEV, ZHPEVD, ZHPEVX, ZLACPY, ZLASET, + EXTERNAL ALASVM, DLAFTS, XERBLA, ZHBEV, ZHBEVD, ZHBEVX, + $ ZHEEV, ZHEEVD, ZHEEVR, ZHEEVX, ZHET21, ZHET22, + $ ZHPEV, ZHPEVD, ZHPEVX, ZLACPY, ZLASET, $ ZHEEVD_2STAGE, ZHEEVR_2STAGE, ZHEEVX_2STAGE, $ ZHEEV_2STAGE, ZHBEV_2STAGE, ZHBEVD_2STAGE, - $ ZHBEVX_2STAGE, ZHETRD_2STAGE, ZLATMR, ZLATMS + $ ZHBEVX_2STAGE, ZLATMR, ZLATMS * .. * .. Intrinsic Functions .. INTRINSIC ABS, DBLE, INT, LOG, MAX, MIN, SQRT From d4fbf36e3784d9988046a342a6d28814a015cf59 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Sat, 2 May 2026 16:23:23 +0200 Subject: [PATCH 21/39] Add missing external declarations in CBLAS/TESTING --- CBLAS/testing/c_cblat3.f | 3 ++- CBLAS/testing/c_dblat2.f | 2 +- CBLAS/testing/c_zblat3.f | 3 ++- 3 files changed, 5 insertions(+), 3 deletions(-) diff --git a/CBLAS/testing/c_cblat3.f b/CBLAS/testing/c_cblat3.f index 3575e6d8f..1a84d9e7b 100644 --- a/CBLAS/testing/c_cblat3.f +++ b/CBLAS/testing/c_cblat3.f @@ -86,7 +86,8 @@ PROGRAM CBLAT3 LOGICAL LCE EXTERNAL SDIFF, LCE * .. External Subroutines .. - EXTERNAL CCHK1, CCHK2, CCHK3, CCHK4, CCHK5, CCHK6, CMMCH + EXTERNAL CCHK1, CCHK2, CCHK3, CCHK4, CCHK5, CCHK6, + $ CC3CHKE, CMMCH * .. Intrinsic Functions .. INTRINSIC MAX, MIN * .. Scalars in Common .. diff --git a/CBLAS/testing/c_dblat2.f b/CBLAS/testing/c_dblat2.f index dbe8599f5..bbf184571 100644 --- a/CBLAS/testing/c_dblat2.f +++ b/CBLAS/testing/c_dblat2.f @@ -1642,7 +1642,7 @@ SUBROUTINE DCHK4( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, LOGICAL LDE, LDERES EXTERNAL LDE, LDERES * .. External Subroutines .. - EXTERNAL DGER, DMAKE, DMVCH + EXTERNAL CDGER, DMAKE, DMVCH * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN * .. Scalars in Common .. diff --git a/CBLAS/testing/c_zblat3.f b/CBLAS/testing/c_zblat3.f index 8e5be3072..f5e3c852c 100644 --- a/CBLAS/testing/c_zblat3.f +++ b/CBLAS/testing/c_zblat3.f @@ -87,7 +87,8 @@ PROGRAM ZBLAT3 LOGICAL LZE EXTERNAL DDIFF, LZE * .. External Subroutines .. - EXTERNAL ZCHK1, ZCHK2, ZCHK3, ZCHK4, ZCHK5, ZCHK6, ZMMCH + EXTERNAL ZCHK1, ZCHK2, ZCHK3, ZCHK4, ZCHK5, ZCHK6, + $ CZ3CHKE, ZMMCH * .. Intrinsic Functions .. INTRINSIC MAX, MIN * .. Scalars in Common .. From b8c9a988dfa230335b914099d747b2ea7038dce2 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Sat, 2 May 2026 16:33:05 +0200 Subject: [PATCH 22/39] Add missing external declarations in SRC (and removed unused ones) --- SRC/VARIANTS/cholesky/RL/cpotrf.f | 2 +- SRC/VARIANTS/cholesky/RL/dpotrf.f | 2 +- SRC/VARIANTS/cholesky/RL/spotrf.f | 2 +- SRC/VARIANTS/cholesky/RL/zpotrf.f | 2 +- SRC/VARIANTS/cholesky/TOP/cpotrf.f | 2 +- SRC/VARIANTS/cholesky/TOP/dpotrf.f | 2 +- SRC/VARIANTS/cholesky/TOP/spotrf.f | 2 +- SRC/VARIANTS/cholesky/TOP/zpotrf.f | 2 +- SRC/cgedmd.f90 | 4 ++-- SRC/cgelq.f | 3 +-- SRC/cgeqr.f | 3 +-- SRC/chbev_2stage.f | 5 ++--- SRC/chesv_aa.f | 3 +-- SRC/chseqr.f | 3 +-- SRC/clahef_aa.f | 7 +++---- SRC/clahef_rk.f | 3 +-- SRC/claqr5.f | 3 +-- SRC/claswlq.f | 4 +--- SRC/clasyf_aa.f | 8 +++----- SRC/clatsqr.f | 5 ++--- SRC/crscl.f | 3 +-- SRC/csysv_aa.f | 3 +-- SRC/dgedmdq.f90 | 1 - SRC/dgelq.f | 4 ---- SRC/dgeqr.f | 4 ---- SRC/dlaqp2.f | 2 +- SRC/dlaqr5.f | 3 +-- SRC/dlaswlq.f | 4 ---- SRC/dlasyf_aa.f | 8 +++----- SRC/dlatsqr.f | 4 ---- SRC/dorbdb4.f | 3 +-- SRC/dorgr2.f | 2 +- SRC/dsysv_aa.f | 3 +-- SRC/ilaenv.f | 4 ++-- SRC/sgedmdq.f90 | 1 - SRC/sgelq.f | 3 +-- SRC/sgelqt.f | 2 +- SRC/sgeqr.f | 2 -- SRC/slaqr2.f | 6 ++---- SRC/slaqr5.f | 3 +-- SRC/slaswlq.f | 4 +--- SRC/slasyf_aa.f | 8 +++----- SRC/slatsqr.f | 2 -- SRC/zgedmd.f90 | 4 ++-- SRC/zgelq.f | 4 ---- SRC/zgeqr.f | 4 ---- SRC/zhbev_2stage.f | 5 ++--- SRC/zhesv_aa.f | 3 +-- SRC/zhesv_aa_2stage.f | 3 +-- SRC/zhetrf_aa.f | 3 +-- SRC/zlahef_aa.f | 7 +++---- SRC/zlaqr5.f | 3 +-- SRC/zlaswlq.f | 4 ---- SRC/zlasyf_aa.f | 8 +++----- SRC/zlatsqr.f | 4 ---- SRC/zrscl.f | 5 ++--- SRC/zsysv_aa.f | 3 +-- SRC/zsytrf_aa_2stage.f | 5 ++--- 58 files changed, 67 insertions(+), 144 deletions(-) diff --git a/SRC/VARIANTS/cholesky/RL/cpotrf.f b/SRC/VARIANTS/cholesky/RL/cpotrf.f index 99b509b47..ba15b3f4a 100644 --- a/SRC/VARIANTS/cholesky/RL/cpotrf.f +++ b/SRC/VARIANTS/cholesky/RL/cpotrf.f @@ -130,7 +130,7 @@ SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL CGEMM, CHERK, CPOTRF2, CTRSM, XERBLA + EXTERNAL CHERK, CPOTRF2, CTRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/RL/dpotrf.f b/SRC/VARIANTS/cholesky/RL/dpotrf.f index e1de96d9a..644bdf392 100644 --- a/SRC/VARIANTS/cholesky/RL/dpotrf.f +++ b/SRC/VARIANTS/cholesky/RL/dpotrf.f @@ -129,7 +129,7 @@ SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL DGEMM, DPOTRF2, DSYRK, DTRSM, XERBLA + EXTERNAL DPOTRF2, DSYRK, DTRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/RL/spotrf.f b/SRC/VARIANTS/cholesky/RL/spotrf.f index b739f622c..3303e5ad5 100644 --- a/SRC/VARIANTS/cholesky/RL/spotrf.f +++ b/SRC/VARIANTS/cholesky/RL/spotrf.f @@ -129,7 +129,7 @@ SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL SGEMM, SPOTRF2, SSYRK, STRSM, XERBLA + EXTERNAL SPOTRF2, SSYRK, STRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/RL/zpotrf.f b/SRC/VARIANTS/cholesky/RL/zpotrf.f index 1642a4797..37d6a277c 100644 --- a/SRC/VARIANTS/cholesky/RL/zpotrf.f +++ b/SRC/VARIANTS/cholesky/RL/zpotrf.f @@ -130,7 +130,7 @@ SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZGEMM, ZHERK, ZPOTRF2, ZTRSM + EXTERNAL XERBLA, ZHERK, ZPOTRF2, ZTRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/TOP/cpotrf.f b/SRC/VARIANTS/cholesky/TOP/cpotrf.f index a69779fce..70630788b 100644 --- a/SRC/VARIANTS/cholesky/TOP/cpotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/cpotrf.f @@ -130,7 +130,7 @@ SUBROUTINE CPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL CGEMM, CHERK, CPOTRF2, CTRSM, XERBLA + EXTERNAL CHERK, CPOTRF2, CTRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/TOP/dpotrf.f b/SRC/VARIANTS/cholesky/TOP/dpotrf.f index e992c8cfb..d78cae2e0 100644 --- a/SRC/VARIANTS/cholesky/TOP/dpotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/dpotrf.f @@ -129,7 +129,7 @@ SUBROUTINE DPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL DGEMM, DPOTRF2, DSYRK, DTRSM, XERBLA + EXTERNAL DPOTRF2, DSYRK, DTRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/TOP/spotrf.f b/SRC/VARIANTS/cholesky/TOP/spotrf.f index 5df525a52..5cf46bb6c 100644 --- a/SRC/VARIANTS/cholesky/TOP/spotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/spotrf.f @@ -129,7 +129,7 @@ SUBROUTINE SPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL SGEMM, SPOTRF2, SSYRK, STRSM, XERBLA + EXTERNAL SPOTRF2, SSYRK, STRSM, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/VARIANTS/cholesky/TOP/zpotrf.f b/SRC/VARIANTS/cholesky/TOP/zpotrf.f index ff0c07bd5..6dbd11f4e 100644 --- a/SRC/VARIANTS/cholesky/TOP/zpotrf.f +++ b/SRC/VARIANTS/cholesky/TOP/zpotrf.f @@ -130,7 +130,7 @@ SUBROUTINE ZPOTRF ( UPLO, N, A, LDA, INFO ) EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZGEMM, ZHERK, ZPOTRF2, ZTRSM + EXTERNAL XERBLA, ZHERK, ZPOTRF2, ZTRSM * .. * .. Intrinsic Functions .. INTRINSIC MAX, MIN diff --git a/SRC/cgedmd.f90 b/SRC/cgedmd.f90 index 9cc23e81e..dc7fc46ce 100644 --- a/SRC/cgedmd.f90 +++ b/SRC/cgedmd.f90 @@ -558,8 +558,8 @@ SUBROUTINE CGEDMD( JOBS, JOBZ, JOBR, JOBF, WHTSVD, & ! External functions (BLAS and LAPACK) ! ~~~~~~~~~~~~~~~~~ REAL(KIND=WP) CLANGE, SLAMCH, SCNRM2 - EXTERNAL CLANGE, SLAMCH, SCNRM2, ICAMAX - INTEGER ICAMAX + EXTERNAL SLAMCH, SCNRM2, ICAMAX + INTEGER ICAMAX LOGICAL SISNAN, LSAME EXTERNAL SISNAN, LSAME ! diff --git a/SRC/cgelq.f b/SRC/cgelq.f index 5a92164b7..59a136846 100644 --- a/SRC/cgelq.f +++ b/SRC/cgelq.f @@ -192,9 +192,8 @@ SUBROUTINE CGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWOPT, LWREQ * .. * .. External Functions .. - LOGICAL LSAME REAL SROUNDUP_LWORK - EXTERNAL LSAME, SROUNDUP_LWORK + EXTERNAL SROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL CGELQT, CLASWLQ, XERBLA diff --git a/SRC/cgeqr.f b/SRC/cgeqr.f index bb7d0a7b2..eb49fdc6d 100644 --- a/SRC/cgeqr.f +++ b/SRC/cgeqr.f @@ -194,9 +194,8 @@ SUBROUTINE CGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWREQ * .. * .. External Functions .. - LOGICAL LSAME REAL SROUNDUP_LWORK - EXTERNAL LSAME, SROUNDUP_LWORK + EXTERNAL SROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL CLATSQR, CGEQRT, XERBLA diff --git a/SRC/chbev_2stage.f b/SRC/chbev_2stage.f index 690dc0f10..27ec15e02 100644 --- a/SRC/chbev_2stage.f +++ b/SRC/chbev_2stage.f @@ -244,9 +244,8 @@ SUBROUTINE CHBEV_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, $ SROUNDUP_LWORK * .. * .. External Subroutines .. - EXTERNAL SSCAL, SSTERF, XERBLA, CLASCL, - $ CSTEQR, - $ CHETRD_2STAGE, CHETRD_HB2ST + EXTERNAL SSCAL, SSTERF, XERBLA, CLASCL, CSTEQR, + $ CHETRD_HB2ST * .. * .. Intrinsic Functions .. INTRINSIC REAL, SQRT diff --git a/SRC/chesv_aa.f b/SRC/chesv_aa.f index 132a29d82..28bfc23af 100644 --- a/SRC/chesv_aa.f +++ b/SRC/chesv_aa.f @@ -180,9 +180,8 @@ SUBROUTINE CHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV REAL SROUNDUP_LWORK - EXTERNAL LSAME, ILAENV, SROUNDUP_LWORK + EXTERNAL LSAME, SROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL XERBLA, CHETRF_AA, CHETRS_AA diff --git a/SRC/chseqr.f b/SRC/chseqr.f index 2696cf00a..78b948890 100644 --- a/SRC/chseqr.f +++ b/SRC/chseqr.f @@ -342,8 +342,7 @@ SUBROUTINE CHSEQR( JOB, COMPZ, N, ILO, IHI, H, LDH, W, Z, LDZ, * .. External Functions .. INTEGER ILAENV LOGICAL LSAME - REAL SROUNDUP_LWORK - EXTERNAL ILAENV, LSAME, SROUNDUP_LWORK + EXTERNAL ILAENV, LSAME * .. * .. External Subroutines .. EXTERNAL CCOPY, CLACPY, CLAHQR, CLAQR0, CLASET, diff --git a/SRC/clahef_aa.f b/SRC/clahef_aa.f index ad6ffaba9..817d139f9 100644 --- a/SRC/clahef_aa.f +++ b/SRC/clahef_aa.f @@ -166,12 +166,11 @@ SUBROUTINE CLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ICAMAX, ILAENV - EXTERNAL LSAME, ILAENV, ICAMAX + INTEGER ICAMAX + EXTERNAL LSAME, ICAMAX * .. * .. External Subroutines .. - EXTERNAL CLACGV, CGEMV, CSCAL, CAXPY, CCOPY, CSWAP, - $ CLASET, XERBLA + EXTERNAL CLACGV, CGEMV, CSCAL, CAXPY, CCOPY, CSWAP, CLASET * .. * .. Intrinsic Functions .. INTRINSIC REAL, CONJG, MAX diff --git a/SRC/clahef_rk.f b/SRC/clahef_rk.f index 15861e312..33a7aa3dd 100644 --- a/SRC/clahef_rk.f +++ b/SRC/clahef_rk.f @@ -298,8 +298,7 @@ SUBROUTINE CLAHEF_RK( UPLO, N, NB, KB, A, LDA, E, IPIV, W, LDW, EXTERNAL LSAME, ICAMAX, SLAMCH * .. * .. External Subroutines .. - EXTERNAL CCOPY, CSSCAL, CGEMM, CGEMMTR, CGEMV, - $ CLACGV, CSWAP + EXTERNAL CCOPY, CSSCAL, CGEMMTR, CGEMV, CLACGV, CSWAP * .. * .. Intrinsic Functions .. INTRINSIC ABS, CONJG, AIMAG, MAX, MIN, REAL, SQRT diff --git a/SRC/claqr5.f b/SRC/claqr5.f index 4ece3ca9d..96ea4f5be 100644 --- a/SRC/claqr5.f +++ b/SRC/claqr5.f @@ -299,8 +299,7 @@ SUBROUTINE CLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, COMPLEX VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL CGEMM, CLACPY, CLAQR1, CLARFG, CLASET, - $ CTRMM + EXTERNAL CGEMM, CLACPY, CLAQR1, CLARFG, CLASET * .. * .. Statement Functions .. REAL CABS1 diff --git a/SRC/claswlq.f b/SRC/claswlq.f index 835c67944..be633b8a6 100644 --- a/SRC/claswlq.f +++ b/SRC/claswlq.f @@ -187,10 +187,8 @@ SUBROUTINE CLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, INTEGER I, II, KK, CTR, MINMN, LWMIN * .. * .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - INTEGER ILAENV REAL SROUNDUP_LWORK - EXTERNAL LSAME, ILAENV, SROUNDUP_LWORK + EXTERNAL SROUNDUP_LWORK * .. * .. EXTERNAL SUBROUTINES .. EXTERNAL CGELQT, CTPLQT, XERBLA diff --git a/SRC/clasyf_aa.f b/SRC/clasyf_aa.f index 6931a04a0..02a48b6d4 100644 --- a/SRC/clasyf_aa.f +++ b/SRC/clasyf_aa.f @@ -166,13 +166,11 @@ SUBROUTINE CLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ICAMAX, ILAENV - EXTERNAL LSAME, ILAENV, ICAMAX + INTEGER ICAMAX + EXTERNAL LSAME, ICAMAX * .. * .. External Subroutines .. - EXTERNAL CAXPY, CGEMV, CSCAL, CCOPY, CSWAP, - $ CLASET, - $ XERBLA + EXTERNAL CAXPY, CGEMV, CSCAL, CCOPY, CSWAP, CLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/clatsqr.f b/SRC/clatsqr.f index 0392b3da7..c16f4331f 100644 --- a/SRC/clatsqr.f +++ b/SRC/clatsqr.f @@ -159,7 +159,7 @@ *> For more details of the overall algorithm, see the description of *> Sequential TSQR in Section 2.2 of [1]. *> -*> [1] “Communication-Optimal Parallel and Sequential QR and LU Factorizations,” +*> [1] “Communication-Optimal Parallel and Sequential QR and LU Factorizations,� *> J. Demmel, L. Grigori, M. Hoemmen, J. Langou, *> SIAM J. Sci. Comput, vol. 34, no. 1, 2012 *> \endverbatim @@ -190,9 +190,8 @@ SUBROUTINE CLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, INTEGER I, II, KK, CTR, LWMIN, MINMN * .. * .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME REAL SROUNDUP_LWORK - EXTERNAL LSAME, SROUNDUP_LWORK + EXTERNAL SROUNDUP_LWORK * .. * .. EXTERNAL SUBROUTINES .. EXTERNAL CGEQRT, CTPQRT, XERBLA diff --git a/SRC/crscl.f b/SRC/crscl.f index d59b049aa..730a4e9ba 100644 --- a/SRC/crscl.f +++ b/SRC/crscl.f @@ -105,8 +105,7 @@ SUBROUTINE CRSCL( N, A, X, INCX ) * .. * .. External Functions .. REAL SLAMCH - COMPLEX CLADIV - EXTERNAL SLAMCH, CLADIV + EXTERNAL SLAMCH * .. * .. External Subroutines .. EXTERNAL CSCAL, CSSCAL, CSRSCL diff --git a/SRC/csysv_aa.f b/SRC/csysv_aa.f index 469a961dc..8f9661806 100644 --- a/SRC/csysv_aa.f +++ b/SRC/csysv_aa.f @@ -180,9 +180,8 @@ SUBROUTINE CSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV REAL SROUNDUP_LWORK - EXTERNAL ILAENV, LSAME, SROUNDUP_LWORK + EXTERNAL LSAME, SROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL XERBLA, CSYTRF_AA, CSYTRS_AA diff --git a/SRC/dgedmdq.f90 b/SRC/dgedmdq.f90 index 75d9d18ee..ddcc947bb 100644 --- a/SRC/dgedmdq.f90 +++ b/SRC/dgedmdq.f90 @@ -633,7 +633,6 @@ SUBROUTINE DGEDMDQ( JOBS, JOBZ, JOBR, JOBQ, JOBT, JOBF, & ! ! External subroutines (BLAS and LAPACK) ! ~~~~~~~~~~~~~~~~~~~~ - EXTERNAL DGEMM EXTERNAL DGEDMD, DGEQRF, DLACPY, DLASET, DORGQR, & DORMQR, XERBLA ! diff --git a/SRC/dgelq.f b/SRC/dgelq.f index 98f4ba84c..3cbe50b63 100644 --- a/SRC/dgelq.f +++ b/SRC/dgelq.f @@ -191,10 +191,6 @@ SUBROUTINE DGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, LOGICAL LQUERY, LMINWS, MINT, MINW INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWOPT, LWREQ * .. -* .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. External Subroutines .. EXTERNAL DGELQT, DLASWLQ, XERBLA * .. diff --git a/SRC/dgeqr.f b/SRC/dgeqr.f index fe657da3c..873bf4013 100644 --- a/SRC/dgeqr.f +++ b/SRC/dgeqr.f @@ -193,10 +193,6 @@ SUBROUTINE DGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, LOGICAL LQUERY, LMINWS, MINT, MINW INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWREQ * .. -* .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. External Subroutines .. EXTERNAL DLATSQR, DGEQRT, XERBLA * .. diff --git a/SRC/dlaqp2.f b/SRC/dlaqp2.f index a1dd23d9a..625c1b1d1 100644 --- a/SRC/dlaqp2.f +++ b/SRC/dlaqp2.f @@ -168,7 +168,7 @@ SUBROUTINE DLAQP2( M, N, OFFSET, A, LDA, JPVT, TAU, VN1, VN2, DOUBLE PRECISION TEMP, TEMP2, TOL3Z * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARF1F, DLARFG, DSWAP + EXTERNAL DLARF1F, DLARFG, DSWAP * .. * .. Intrinsic Functions .. INTRINSIC ABS, MAX, MIN, SQRT diff --git a/SRC/dlaqr5.f b/SRC/dlaqr5.f index fe8719d7a..d9ecf5319 100644 --- a/SRC/dlaqr5.f +++ b/SRC/dlaqr5.f @@ -304,8 +304,7 @@ SUBROUTINE DLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, DOUBLE PRECISION VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL DGEMM, DLACPY, DLAQR1, DLARFG, DLASET, - $ DTRMM + EXTERNAL DGEMM, DLACPY, DLAQR1, DLARFG, DLASET * .. * .. Executable Statements .. * diff --git a/SRC/dlaswlq.f b/SRC/dlaswlq.f index 1fe888501..f9b1c0900 100644 --- a/SRC/dlaswlq.f +++ b/SRC/dlaswlq.f @@ -187,10 +187,6 @@ SUBROUTINE DLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, LOGICAL LQUERY INTEGER I, II, KK, CTR, MINMN, LWMIN * .. -* .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. EXTERNAL SUBROUTINES .. EXTERNAL DGELQT, DTPLQT, XERBLA * .. diff --git a/SRC/dlasyf_aa.f b/SRC/dlasyf_aa.f index 991ae005d..fc3d9a681 100644 --- a/SRC/dlasyf_aa.f +++ b/SRC/dlasyf_aa.f @@ -166,13 +166,11 @@ SUBROUTINE DLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, * .. * .. External Functions .. LOGICAL LSAME - INTEGER IDAMAX, ILAENV - EXTERNAL LSAME, ILAENV, IDAMAX + INTEGER IDAMAX + EXTERNAL LSAME, IDAMAX * .. * .. External Subroutines .. - EXTERNAL DGEMV, DAXPY, DCOPY, DSWAP, DSCAL, - $ DLASET, - $ XERBLA + EXTERNAL DGEMV, DAXPY, DCOPY, DSWAP, DSCAL, DLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/dlatsqr.f b/SRC/dlatsqr.f index 8c596ce2f..152f47ffc 100644 --- a/SRC/dlatsqr.f +++ b/SRC/dlatsqr.f @@ -188,10 +188,6 @@ SUBROUTINE DLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, * .. Local Scalars .. LOGICAL LQUERY INTEGER I, II, KK, CTR, MINMN, LWMIN -* .. -* .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME * .. EXTERNAL SUBROUTINES .. EXTERNAL DGEQRT, DTPQRT, XERBLA * .. INTRINSIC FUNCTIONS .. diff --git a/SRC/dorbdb4.f b/SRC/dorbdb4.f index da75acdd1..87712f4ab 100644 --- a/SRC/dorbdb4.f +++ b/SRC/dorbdb4.f @@ -237,8 +237,7 @@ SUBROUTINE DORBDB4( M, P, Q, X11, LDX11, X21, LDX21, THETA, LOGICAL LQUERY * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARF1F, DLARFGP, DORBDB5, - $ DROT, DSCAL, XERBLA + EXTERNAL DLARF1F, DLARFGP, DORBDB5, DROT, DSCAL, XERBLA * .. * .. External Functions .. DOUBLE PRECISION DNRM2 diff --git a/SRC/dorgr2.f b/SRC/dorgr2.f index cc7e24db3..caee9f8b6 100644 --- a/SRC/dorgr2.f +++ b/SRC/dorgr2.f @@ -132,7 +132,7 @@ SUBROUTINE DORGR2( M, N, K, A, LDA, TAU, WORK, INFO ) INTEGER I, II, J, L * .. * .. External Subroutines .. - EXTERNAL DLARF, DLARF1L, DSCAL, XERBLA + EXTERNAL DLARF1L, DSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/dsysv_aa.f b/SRC/dsysv_aa.f index 2757bff99..df8b85578 100644 --- a/SRC/dsysv_aa.f +++ b/SRC/dsysv_aa.f @@ -180,8 +180,7 @@ SUBROUTINE DSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV - EXTERNAL ILAENV, LSAME + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL XERBLA, DSYTRF_AA, DSYTRS_AA diff --git a/SRC/ilaenv.f b/SRC/ilaenv.f index e108108d7..58c26cd29 100644 --- a/SRC/ilaenv.f +++ b/SRC/ilaenv.f @@ -179,8 +179,8 @@ INTEGER FUNCTION ILAENV( ISPEC, NAME, OPTS, N1, N2, N3, N4 ) INTRINSIC CHAR, ICHAR, INT, MIN, REAL * .. * .. External Functions .. - INTEGER IEEECK, IPARMQ, IPARAM2STAGE - EXTERNAL IEEECK, IPARMQ, IPARAM2STAGE + INTEGER IEEECK, IPARMQ + EXTERNAL IEEECK, IPARMQ * .. * .. Executable Statements .. * diff --git a/SRC/sgedmdq.f90 b/SRC/sgedmdq.f90 index 6bb0a9ed0..e54380f65 100644 --- a/SRC/sgedmdq.f90 +++ b/SRC/sgedmdq.f90 @@ -633,7 +633,6 @@ SUBROUTINE SGEDMDQ( JOBS, JOBZ, JOBR, JOBQ, JOBT, JOBF, & ! ! External subroutines (BLAS and LAPACK) ! ~~~~~~~~~~~~~~~~~~~~ - EXTERNAL SGEMM EXTERNAL SGEDMD, SGEQRF, SLACPY, SLASET, SORGQR, & SORMQR, XERBLA ! diff --git a/SRC/sgelq.f b/SRC/sgelq.f index d985d0650..bbe12ba3b 100644 --- a/SRC/sgelq.f +++ b/SRC/sgelq.f @@ -192,9 +192,8 @@ SUBROUTINE SGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWOPT, LWREQ * .. * .. External Functions .. - LOGICAL LSAME REAL SROUNDUP_LWORK - EXTERNAL LSAME, SROUNDUP_LWORK + EXTERNAL SROUNDUP_LWORK * .. * .. External Subroutines .. EXTERNAL SGELQT, SLASWLQ, XERBLA diff --git a/SRC/sgelqt.f b/SRC/sgelqt.f index 642f6afb6..08ca23db3 100644 --- a/SRC/sgelqt.f +++ b/SRC/sgelqt.f @@ -144,7 +144,7 @@ SUBROUTINE SGELQT( M, N, MB, A, LDA, T, LDT, WORK, INFO ) INTEGER I, IB, IINFO, K * .. * .. External Subroutines .. - EXTERNAL SGEQRT2, SGEQRT3, SGELQT3, SLARFB, XERBLA + EXTERNAL SGELQT3, SLARFB, XERBLA * .. * .. Executable Statements .. * diff --git a/SRC/sgeqr.f b/SRC/sgeqr.f index b4403b679..7d4bda647 100644 --- a/SRC/sgeqr.f +++ b/SRC/sgeqr.f @@ -194,8 +194,6 @@ SUBROUTINE SGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWREQ * .. * .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME REAL SROUNDUP_LWORK EXTERNAL SROUNDUP_LWORK * .. diff --git a/SRC/slaqr2.f b/SRC/slaqr2.f index 7c2790596..5108e33d4 100644 --- a/SRC/slaqr2.f +++ b/SRC/slaqr2.f @@ -309,10 +309,8 @@ SUBROUTINE SLAQR2( WANTT, WANTZ, N, KTOP, KBOT, NW, H, LDH, EXTERNAL SLAMCH, SROUNDUP_LWORK * .. * .. External Subroutines .. - EXTERNAL SCOPY, SGEHRD, SGEMM, SLACPY, - $ SLAHQR, - $ SLANV2, SLARF1F, SLARF1L, SLARFG, - $ SLASET, SORMHR, STREXC + EXTERNAL SCOPY, SGEHRD, SGEMM, SLACPY, SLAHQR, SLANV2, + $ SLARF1F, SLARFG, SLASET, SORMHR, STREXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, INT, MAX, MIN, REAL, SQRT diff --git a/SRC/slaqr5.f b/SRC/slaqr5.f index aed50f618..b70e18a51 100644 --- a/SRC/slaqr5.f +++ b/SRC/slaqr5.f @@ -304,8 +304,7 @@ SUBROUTINE SLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, REAL VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL SGEMM, SLACPY, SLAQR1, SLARFG, SLASET, - $ STRMM + EXTERNAL SGEMM, SLACPY, SLAQR1, SLARFG, SLASET * .. * .. Executable Statements .. * diff --git a/SRC/slaswlq.f b/SRC/slaswlq.f index 08e7f3b9c..b7157fe6b 100644 --- a/SRC/slaswlq.f +++ b/SRC/slaswlq.f @@ -187,13 +187,11 @@ SUBROUTINE SLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, INTEGER I, II, KK, CTR, MINMN, LWMIN * .. * .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME REAL SROUNDUP_LWORK EXTERNAL SROUNDUP_LWORK * .. * .. EXTERNAL SUBROUTINES .. - EXTERNAL SGELQT, SGEQRT, STPLQT, STPQRT, XERBLA + EXTERNAL SGELQT, STPLQT, XERBLA * .. * .. INTRINSIC FUNCTIONS .. INTRINSIC MAX, MIN, MOD diff --git a/SRC/slasyf_aa.f b/SRC/slasyf_aa.f index d45bbb99c..93b0e504e 100644 --- a/SRC/slasyf_aa.f +++ b/SRC/slasyf_aa.f @@ -166,13 +166,11 @@ SUBROUTINE SLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ISAMAX, ILAENV - EXTERNAL LSAME, ILAENV, ISAMAX + INTEGER ISAMAX + EXTERNAL LSAME, ISAMAX * .. * .. External Subroutines .. - EXTERNAL SAXPY, SGEMV, SSCAL, SCOPY, SSWAP, - $ SLASET, - $ XERBLA + EXTERNAL SAXPY, SGEMV, SSCAL, SCOPY, SSWAP, SLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/slatsqr.f b/SRC/slatsqr.f index daeaf61b8..068bf4563 100644 --- a/SRC/slatsqr.f +++ b/SRC/slatsqr.f @@ -190,8 +190,6 @@ SUBROUTINE SLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, INTEGER I, II, KK, CTR, MINMN, LWMIN * .. * .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME REAL SROUNDUP_LWORK EXTERNAL SROUNDUP_LWORK * .. diff --git a/SRC/zgedmd.f90 b/SRC/zgedmd.f90 index 7e40a3f1b..86f0c322b 100644 --- a/SRC/zgedmd.f90 +++ b/SRC/zgedmd.f90 @@ -558,8 +558,8 @@ SUBROUTINE ZGEDMD( JOBS, JOBZ, JOBR, JOBF, WHTSVD, & ! External functions (BLAS and LAPACK) ! ~~~~~~~~~~~~~~~~~ REAL(KIND=WP) ZLANGE, DLAMCH, DZNRM2 - EXTERNAL ZLANGE, DLAMCH, DZNRM2, IZAMAX - INTEGER IZAMAX + EXTERNAL DLAMCH, DZNRM2, IZAMAX + INTEGER IZAMAX LOGICAL DISNAN, LSAME EXTERNAL DISNAN, LSAME ! diff --git a/SRC/zgelq.f b/SRC/zgelq.f index fc5bceb5f..87ac03018 100644 --- a/SRC/zgelq.f +++ b/SRC/zgelq.f @@ -191,10 +191,6 @@ SUBROUTINE ZGELQ( M, N, A, LDA, T, TSIZE, WORK, LWORK, LOGICAL LQUERY, LMINWS, MINT, MINW INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWOPT, LWREQ * .. -* .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. External Subroutines .. EXTERNAL ZGELQT, ZLASWLQ, XERBLA * .. diff --git a/SRC/zgeqr.f b/SRC/zgeqr.f index 65a543d2b..62ce9b8f7 100644 --- a/SRC/zgeqr.f +++ b/SRC/zgeqr.f @@ -193,10 +193,6 @@ SUBROUTINE ZGEQR( M, N, A, LDA, T, TSIZE, WORK, LWORK, LOGICAL LQUERY, LMINWS, MINT, MINW INTEGER MB, NB, MINTSZ, NBLCKS, LWMIN, LWREQ * .. -* .. External Functions .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. External Subroutines .. EXTERNAL ZLATSQR, ZGEQRT, XERBLA * .. diff --git a/SRC/zhbev_2stage.f b/SRC/zhbev_2stage.f index 257edbd63..0358ebf9b 100644 --- a/SRC/zhbev_2stage.f +++ b/SRC/zhbev_2stage.f @@ -243,9 +243,8 @@ SUBROUTINE ZHBEV_2STAGE( JOBZ, UPLO, N, KD, AB, LDAB, W, Z, EXTERNAL LSAME, DLAMCH, ZLANHB, ILAENV2STAGE * .. * .. External Subroutines .. - EXTERNAL DSCAL, DSTERF, XERBLA, ZLASCL, - $ ZSTEQR, - $ ZHETRD_2STAGE, ZHETRD_HB2ST + EXTERNAL DSCAL, DSTERF, XERBLA, ZLASCL, ZSTEQR, + $ ZHETRD_HB2ST * .. * .. Intrinsic Functions .. INTRINSIC DBLE, SQRT diff --git a/SRC/zhesv_aa.f b/SRC/zhesv_aa.f index 13910d09a..43975d000 100644 --- a/SRC/zhesv_aa.f +++ b/SRC/zhesv_aa.f @@ -180,8 +180,7 @@ SUBROUTINE ZHESV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV - EXTERNAL LSAME, ILAENV + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL XERBLA, ZHETRF_AA, ZHETRS_AA diff --git a/SRC/zhesv_aa_2stage.f b/SRC/zhesv_aa_2stage.f index cb744541e..7360b633f 100644 --- a/SRC/zhesv_aa_2stage.f +++ b/SRC/zhesv_aa_2stage.f @@ -211,8 +211,7 @@ SUBROUTINE ZHESV_AA_2STAGE( UPLO, N, NRHS, A, LDA, TB, LTB, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV - EXTERNAL LSAME, ILAENV + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL XERBLA, ZHETRF_AA_2STAGE, diff --git a/SRC/zhetrf_aa.f b/SRC/zhetrf_aa.f index 079fc51a4..e64f3f88a 100644 --- a/SRC/zhetrf_aa.f +++ b/SRC/zhetrf_aa.f @@ -163,8 +163,7 @@ SUBROUTINE ZHETRF_AA( UPLO, N, A, LDA, IPIV, EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL ZLAHEF_AA, ZGEMM, ZGEMV, ZCOPY, ZSCAL, ZSWAP, - $ XERBLA + EXTERNAL ZLAHEF_AA, ZGEMM, ZCOPY, ZSCAL, ZSWAP, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC DBLE, DCONJG, MAX diff --git a/SRC/zlahef_aa.f b/SRC/zlahef_aa.f index 3952668bb..ae355b707 100644 --- a/SRC/zlahef_aa.f +++ b/SRC/zlahef_aa.f @@ -166,12 +166,11 @@ SUBROUTINE ZLAHEF_AA( UPLO, J1, M, NB, A, LDA, IPIV, * .. * .. External Functions .. LOGICAL LSAME - INTEGER IZAMAX, ILAENV - EXTERNAL LSAME, ILAENV, IZAMAX + INTEGER IZAMAX + EXTERNAL LSAME, IZAMAX * .. * .. External Subroutines .. - EXTERNAL ZGEMM, ZGEMV, ZAXPY, ZLACGV, ZCOPY, ZSCAL, - $ ZSWAP, ZLASET, XERBLA + EXTERNAL ZGEMV, ZAXPY, ZLACGV, ZCOPY, ZSCAL, ZSWAP, ZLASET * .. * .. Intrinsic Functions .. INTRINSIC DBLE, DCONJG, MAX diff --git a/SRC/zlaqr5.f b/SRC/zlaqr5.f index 54da1d4e9..a940f24c7 100644 --- a/SRC/zlaqr5.f +++ b/SRC/zlaqr5.f @@ -299,8 +299,7 @@ SUBROUTINE ZLAQR5( WANTT, WANTZ, KACC22, N, KTOP, KBOT, NSHFTS, COMPLEX*16 VT( 3 ) * .. * .. External Subroutines .. - EXTERNAL ZGEMM, ZLACPY, ZLAQR1, ZLARFG, ZLASET, - $ ZTRMM + EXTERNAL ZGEMM, ZLACPY, ZLAQR1, ZLARFG, ZLASET * .. * .. Statement Functions .. DOUBLE PRECISION CABS1 diff --git a/SRC/zlaswlq.f b/SRC/zlaswlq.f index 0cfd5b8f3..da1cc9c32 100644 --- a/SRC/zlaswlq.f +++ b/SRC/zlaswlq.f @@ -185,10 +185,6 @@ SUBROUTINE ZLASWLQ( M, N, MB, NB, A, LDA, T, LDT, WORK, LWORK, LOGICAL LQUERY INTEGER I, II, KK, CTR, MINMN, LWMIN * .. -* .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. EXTERNAL SUBROUTINES .. EXTERNAL ZGELQT, ZTPLQT, XERBLA * .. diff --git a/SRC/zlasyf_aa.f b/SRC/zlasyf_aa.f index 230b66851..aa005b7a4 100644 --- a/SRC/zlasyf_aa.f +++ b/SRC/zlasyf_aa.f @@ -166,13 +166,11 @@ SUBROUTINE ZLASYF_AA( UPLO, J1, M, NB, A, LDA, IPIV, * .. * .. External Functions .. LOGICAL LSAME - INTEGER IZAMAX, ILAENV - EXTERNAL LSAME, ILAENV, IZAMAX + INTEGER IZAMAX + EXTERNAL LSAME, IZAMAX * .. * .. External Subroutines .. - EXTERNAL ZGEMV, ZAXPY, ZSCAL, ZCOPY, ZSWAP, - $ ZLASET, - $ XERBLA + EXTERNAL ZGEMV, ZAXPY, ZSCAL, ZCOPY, ZSWAP, ZLASET * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/zlatsqr.f b/SRC/zlatsqr.f index ffb402ebd..242fec724 100644 --- a/SRC/zlatsqr.f +++ b/SRC/zlatsqr.f @@ -189,10 +189,6 @@ SUBROUTINE ZLATSQR( M, N, MB, NB, A, LDA, T, LDT, WORK, LOGICAL LQUERY INTEGER I, II, KK, CTR, LWMIN, MINMN * .. -* .. EXTERNAL FUNCTIONS .. - LOGICAL LSAME - EXTERNAL LSAME -* .. * .. EXTERNAL SUBROUTINES .. EXTERNAL ZGEQRT, ZTPQRT, XERBLA * .. diff --git a/SRC/zrscl.f b/SRC/zrscl.f index 524802b32..356874f84 100644 --- a/SRC/zrscl.f +++ b/SRC/zrscl.f @@ -104,11 +104,10 @@ SUBROUTINE ZRSCL( N, A, X, INCX ) * .. * .. External Functions .. DOUBLE PRECISION DLAMCH - COMPLEX*16 ZLADIV - EXTERNAL DLAMCH, ZLADIV + EXTERNAL DLAMCH * .. * .. External Subroutines .. - EXTERNAL DSCAL, ZDSCAL, ZDRSCL, ZSCAL + EXTERNAL ZDSCAL, ZDRSCL, ZSCAL * .. * .. Intrinsic Functions .. INTRINSIC ABS diff --git a/SRC/zsysv_aa.f b/SRC/zsysv_aa.f index bf66ebdbc..8728acb91 100644 --- a/SRC/zsysv_aa.f +++ b/SRC/zsysv_aa.f @@ -180,8 +180,7 @@ SUBROUTINE ZSYSV_AA( UPLO, N, NRHS, A, LDA, IPIV, B, LDB, WORK, * .. * .. External Functions .. LOGICAL LSAME - INTEGER ILAENV - EXTERNAL ILAENV, LSAME + EXTERNAL LSAME * .. * .. External Subroutines .. EXTERNAL XERBLA, ZSYTRF_AA, ZSYTRS_AA diff --git a/SRC/zsytrf_aa_2stage.f b/SRC/zsytrf_aa_2stage.f index 8d47f220f..b68821c6d 100644 --- a/SRC/zsytrf_aa_2stage.f +++ b/SRC/zsytrf_aa_2stage.f @@ -189,9 +189,8 @@ SUBROUTINE ZSYTRF_AA_2STAGE( UPLO, N, A, LDA, TB, LTB, IPIV, EXTERNAL LSAME, ILAENV * .. * .. External Subroutines .. - EXTERNAL XERBLA, ZCOPY, ZGBTRF, ZGEMM, - $ ZGETRF, - $ ZLACPY, ZLASET, ZLASWP, ZTRSM, ZSWAP + EXTERNAL XERBLA, ZCOPY, ZGBTRF, ZGEMM, ZGETRF, ZLACPY, + $ ZLASET, ZTRSM, ZSWAP * .. * .. Intrinsic Functions .. INTRINSIC MIN, MAX From 7872e2d6e672fcc691acb0cf04d03c4818639fc1 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Sat, 2 May 2026 16:35:30 +0200 Subject: [PATCH 23/39] Fixed CBLAS symbol name: cblas_zaxbpy_64 -> cblas_zaxpby_64 --- CBLAS/include/cblas_64.h | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/CBLAS/include/cblas_64.h b/CBLAS/include/cblas_64.h index ebc1f1380..064ca447a 100644 --- a/CBLAS/include/cblas_64.h +++ b/CBLAS/include/cblas_64.h @@ -109,7 +109,7 @@ void cblas_zcopy_64(const int64_t N, const void *X, const int64_t incX, void *Y, const int64_t incY); void cblas_zaxpy_64(const int64_t N, const void *alpha, const void *X, const int64_t incX, void *Y, const int64_t incY); -void cblas_zaxbpy_64(const int64_t N, const void *alpha, const void *X, +void cblas_zaxpby_64(const int64_t N, const void *alpha, const void *X, const int64_t incX, const void *beta, void *Y, const int64_t incY); From b4ba901b2941cffff894a83bd2c0b156b8768f4d Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Sat, 2 May 2026 16:40:29 +0200 Subject: [PATCH 24/39] Added API_SUFFIX to CBLAS tests --- CBLAS/include/cblas_test.h | 339 +++++++------- CBLAS/testing/c_c2chke.c | 400 ++++++++-------- CBLAS/testing/c_c3chke.c | 914 ++++++++++++++++++------------------- CBLAS/testing/c_cblas1.c | 22 +- CBLAS/testing/c_cblas2.c | 118 ++--- CBLAS/testing/c_cblas3.c | 60 +-- CBLAS/testing/c_d2chke.c | 422 ++++++++--------- CBLAS/testing/c_d3chke.c | 860 +++++++++++++++++----------------- CBLAS/testing/c_dblas1.c | 22 +- CBLAS/testing/c_dblas2.c | 76 +-- CBLAS/testing/c_dblas3.c | 54 +-- CBLAS/testing/c_s2chke.c | 422 ++++++++--------- CBLAS/testing/c_s3chke.c | 860 +++++++++++++++++----------------- CBLAS/testing/c_sblas1.c | 24 +- CBLAS/testing/c_sblas2.c | 76 +-- CBLAS/testing/c_sblas3.c | 54 +-- CBLAS/testing/c_xerbla.c | 6 +- CBLAS/testing/c_z2chke.c | 400 ++++++++-------- CBLAS/testing/c_z3chke.c | 914 ++++++++++++++++++------------------- CBLAS/testing/c_zblas1.c | 22 +- CBLAS/testing/c_zblas2.c | 118 ++--- CBLAS/testing/c_zblas3.c | 60 +-- 22 files changed, 3124 insertions(+), 3119 deletions(-) diff --git a/CBLAS/include/cblas_test.h b/CBLAS/include/cblas_test.h index 13c4e5115..a48ed0d6f 100644 --- a/CBLAS/include/cblas_test.h +++ b/CBLAS/include/cblas_test.h @@ -8,6 +8,11 @@ #include "cblas_globals.h" #include "cblas_mangling.h" +#ifndef F77_GLOBAL_SUFFIX +#define F77_GLOBAL_SUFFIX(a,b) F77_GLOBAL_SUFFIX_(API_SUFFIX(a),API_SUFFIX(b)) +#define F77_GLOBAL_SUFFIX_(a,b) F77_GLOBAL(a,b) +#endif + /* It seems all current Fortran compilers put strlen at end. * Some historical compilers put strlen after the str argument * or make the str argument into a struct. */ @@ -31,182 +36,182 @@ typedef struct { float real; float imag; } CBLAS_TEST_COMPLEX; typedef struct { double real; double imag; } CBLAS_TEST_ZOMPLEX; -#define F77_xerbla F77_GLOBAL(xerbla,XERBLA) +#define F77_xerbla F77_GLOBAL_SUFFIX(xerbla,XERBLA) /* * Level 1 BLAS */ -#define F77_srotg F77_GLOBAL(srotgtest,SROTGTEST) -#define F77_srotmg F77_GLOBAL(srotmgtest,SROTMGTEST) -#define F77_srot F77_GLOBAL(srottest,SROTTEST) -#define F77_srotm F77_GLOBAL(srotmtest,SROTMTEST) -#define F77_drotg F77_GLOBAL(drotgtest,DROTGTEST) -#define F77_drotmg F77_GLOBAL(drotmgtest,DROTMGTEST) -#define F77_drot F77_GLOBAL(drottest,DROTTEST) -#define F77_drotm F77_GLOBAL(drotmtest,DROTMTEST) -#define F77_sswap F77_GLOBAL(sswaptest,SSWAPTEST) -#define F77_scopy F77_GLOBAL(scopytest,SCOPYTEST) -#define F77_saxpy F77_GLOBAL(saxpytest,SAXPYTEST) -#define F77_saxpby F77_GLOBAL(saxpbytest,SAXPBYTEST) -#define F77_isamax F77_GLOBAL(isamaxtest,ISAMAXTEST) -#define F77_dswap F77_GLOBAL(dswaptest,DSWAPTEST) -#define F77_dcopy F77_GLOBAL(dcopytest,DCOPYTEST) -#define F77_daxpy F77_GLOBAL(daxpytest,DAXPYTEST) -#define F77_daxpby F77_GLOBAL(daxpbytest,DAXPBYTEST) -#define F77_idamax F77_GLOBAL(idamaxtest,IDAMAXTEST) -#define F77_cswap F77_GLOBAL(cswaptest,CSWAPTEST) -#define F77_ccopy F77_GLOBAL(ccopytest,CCOPYTEST) -#define F77_caxpy F77_GLOBAL(caxpytest,CAXPYTEST) -#define F77_caxpby F77_GLOBAL(caxpbytest,CAXPBYTEST) -#define F77_icamax F77_GLOBAL(icamaxtest,ICAMAXTEST) -#define F77_zswap F77_GLOBAL(zswaptest,ZSWAPTEST) -#define F77_zcopy F77_GLOBAL(zcopytest,ZCOPYTEST) -#define F77_zaxpy F77_GLOBAL(zaxpytest,ZAXPYTEST) -#define F77_zaxpby F77_GLOBAL(zaxpbytest,ZAXPBYTEST) -#define F77_izamax F77_GLOBAL(izamaxtest,IZAMAXTEST) -#define F77_sdot F77_GLOBAL(sdottest,SDOTTEST) -#define F77_ddot F77_GLOBAL(ddottest,DDOTTEST) -#define F77_dsdot F77_GLOBAL(dsdottest,DSDOTTEST) -#define F77_sscal F77_GLOBAL(sscaltest,SSCALTEST) -#define F77_dscal F77_GLOBAL(dscaltest,DSCALTEST) -#define F77_cscal F77_GLOBAL(cscaltest,CSCALTEST) -#define F77_zscal F77_GLOBAL(zscaltest,ZSCALTEST) -#define F77_csscal F77_GLOBAL(csscaltest,CSSCALTEST) -#define F77_zdscal F77_GLOBAL(zdscaltest,ZDSCALTEST) -#define F77_cdotu F77_GLOBAL(cdotutest,CDOTUTEST) -#define F77_cdotc F77_GLOBAL(cdotctest,CDOTCTEST) -#define F77_zdotu F77_GLOBAL(zdotutest,ZDOTUTEST) -#define F77_zdotc F77_GLOBAL(zdotctest,ZDOTCTEST) -#define F77_snrm2 F77_GLOBAL(snrm2test,SNRM2TEST) -#define F77_sasum F77_GLOBAL(sasumtest,SASUMTEST) -#define F77_dnrm2 F77_GLOBAL(dnrm2test,DNRM2TEST) -#define F77_dasum F77_GLOBAL(dasumtest,DASUMTEST) -#define F77_scnrm2 F77_GLOBAL(scnrm2test,SCNRM2TEST) -#define F77_scasum F77_GLOBAL(scasumtest,SCASUMTEST) -#define F77_dznrm2 F77_GLOBAL(dznrm2test,DZNRM2TEST) -#define F77_dzasum F77_GLOBAL(dzasumtest,DZASUMTEST) -#define F77_sdsdot F77_GLOBAL(sdsdottest, SDSDOTTEST) +#define F77_srotg F77_GLOBAL_SUFFIX(srotgtest,SROTGTEST) +#define F77_srotmg F77_GLOBAL_SUFFIX(srotmgtest,SROTMGTEST) +#define F77_srot F77_GLOBAL_SUFFIX(srottest,SROTTEST) +#define F77_srotm F77_GLOBAL_SUFFIX(srotmtest,SROTMTEST) +#define F77_drotg F77_GLOBAL_SUFFIX(drotgtest,DROTGTEST) +#define F77_drotmg F77_GLOBAL_SUFFIX(drotmgtest,DROTMGTEST) +#define F77_drot F77_GLOBAL_SUFFIX(drottest,DROTTEST) +#define F77_drotm F77_GLOBAL_SUFFIX(drotmtest,DROTMTEST) +#define F77_sswap F77_GLOBAL_SUFFIX(sswaptest,SSWAPTEST) +#define F77_scopy F77_GLOBAL_SUFFIX(scopytest,SCOPYTEST) +#define F77_saxpy F77_GLOBAL_SUFFIX(saxpytest,SAXPYTEST) +#define F77_saxpby F77_GLOBAL_SUFFIX(saxpbytest,SAXPBYTEST) +#define F77_isamax F77_GLOBAL_SUFFIX(isamaxtest,ISAMAXTEST) +#define F77_dswap F77_GLOBAL_SUFFIX(dswaptest,DSWAPTEST) +#define F77_dcopy F77_GLOBAL_SUFFIX(dcopytest,DCOPYTEST) +#define F77_daxpy F77_GLOBAL_SUFFIX(daxpytest,DAXPYTEST) +#define F77_daxpby F77_GLOBAL_SUFFIX(daxpbytest,DAXPBYTEST) +#define F77_idamax F77_GLOBAL_SUFFIX(idamaxtest,IDAMAXTEST) +#define F77_cswap F77_GLOBAL_SUFFIX(cswaptest,CSWAPTEST) +#define F77_ccopy F77_GLOBAL_SUFFIX(ccopytest,CCOPYTEST) +#define F77_caxpy F77_GLOBAL_SUFFIX(caxpytest,CAXPYTEST) +#define F77_caxpby F77_GLOBAL_SUFFIX(caxpbytest,CAXPBYTEST) +#define F77_icamax F77_GLOBAL_SUFFIX(icamaxtest,ICAMAXTEST) +#define F77_zswap F77_GLOBAL_SUFFIX(zswaptest,ZSWAPTEST) +#define F77_zcopy F77_GLOBAL_SUFFIX(zcopytest,ZCOPYTEST) +#define F77_zaxpy F77_GLOBAL_SUFFIX(zaxpytest,ZAXPYTEST) +#define F77_zaxpby F77_GLOBAL_SUFFIX(zaxpbytest,ZAXPBYTEST) +#define F77_izamax F77_GLOBAL_SUFFIX(izamaxtest,IZAMAXTEST) +#define F77_sdot F77_GLOBAL_SUFFIX(sdottest,SDOTTEST) +#define F77_ddot F77_GLOBAL_SUFFIX(ddottest,DDOTTEST) +#define F77_dsdot F77_GLOBAL_SUFFIX(dsdottest,DSDOTTEST) +#define F77_sscal F77_GLOBAL_SUFFIX(sscaltest,SSCALTEST) +#define F77_dscal F77_GLOBAL_SUFFIX(dscaltest,DSCALTEST) +#define F77_cscal F77_GLOBAL_SUFFIX(cscaltest,CSCALTEST) +#define F77_zscal F77_GLOBAL_SUFFIX(zscaltest,ZSCALTEST) +#define F77_csscal F77_GLOBAL_SUFFIX(csscaltest,CSSCALTEST) +#define F77_zdscal F77_GLOBAL_SUFFIX(zdscaltest,ZDSCALTEST) +#define F77_cdotu F77_GLOBAL_SUFFIX(cdotutest,CDOTUTEST) +#define F77_cdotc F77_GLOBAL_SUFFIX(cdotctest,CDOTCTEST) +#define F77_zdotu F77_GLOBAL_SUFFIX(zdotutest,ZDOTUTEST) +#define F77_zdotc F77_GLOBAL_SUFFIX(zdotctest,ZDOTCTEST) +#define F77_snrm2 F77_GLOBAL_SUFFIX(snrm2test,SNRM2TEST) +#define F77_sasum F77_GLOBAL_SUFFIX(sasumtest,SASUMTEST) +#define F77_dnrm2 F77_GLOBAL_SUFFIX(dnrm2test,DNRM2TEST) +#define F77_dasum F77_GLOBAL_SUFFIX(dasumtest,DASUMTEST) +#define F77_scnrm2 F77_GLOBAL_SUFFIX(scnrm2test,SCNRM2TEST) +#define F77_scasum F77_GLOBAL_SUFFIX(scasumtest,SCASUMTEST) +#define F77_dznrm2 F77_GLOBAL_SUFFIX(dznrm2test,DZNRM2TEST) +#define F77_dzasum F77_GLOBAL_SUFFIX(dzasumtest,DZASUMTEST) +#define F77_sdsdot F77_GLOBAL_SUFFIX(sdsdottest, SDSDOTTEST) /* * Level 2 BLAS */ -#define F77_s2chke F77_GLOBAL(cs2chke,CS2CHKE) -#define F77_d2chke F77_GLOBAL(cd2chke,CD2CHKE) -#define F77_c2chke F77_GLOBAL(cc2chke,CC2CHKE) -#define F77_z2chke F77_GLOBAL(cz2chke,CZ2CHKE) -#define F77_ssymv F77_GLOBAL(cssymv,CSSYMV) -#define F77_ssbmv F77_GLOBAL(cssbmv,CSSBMV) -#define F77_sspmv F77_GLOBAL(csspmv,CSSPMV) -#define F77_sskewsymv F77_GLOBAL(csskewsymv,CSSKEWSYMV) -#define F77_sger F77_GLOBAL(csger,CSGER) -#define F77_ssyr F77_GLOBAL(cssyr,CSSYR) -#define F77_sspr F77_GLOBAL(csspr,CSSPR) -#define F77_ssyr2 F77_GLOBAL(cssyr2,CSSYR2) -#define F77_sspr2 F77_GLOBAL(csspr2,CSSPR2) -#define F77_sskewsyr2 F77_GLOBAL(csskewsyr2,CSSKEWSYR2) -#define F77_dsymv F77_GLOBAL(cdsymv,CDSYMV) -#define F77_dsbmv F77_GLOBAL(cdsbmv,CDSBMV) -#define F77_dspmv F77_GLOBAL(cdspmv,CDSPMV) -#define F77_dskewsymv F77_GLOBAL(cdskewsymv,CDSKEWSYMV) -#define F77_dger F77_GLOBAL(cdger,CDGER) -#define F77_dsyr F77_GLOBAL(cdsyr,CDSYR) -#define F77_dspr F77_GLOBAL(cdspr,CDSPR) -#define F77_dsyr2 F77_GLOBAL(cdsyr2,CDSYR2) -#define F77_dspr2 F77_GLOBAL(cdspr2,CDSPR2) -#define F77_dskewsyr2 F77_GLOBAL(cdskewsyr2,CDSKEWSYR2) -#define F77_chemv F77_GLOBAL(cchemv,CCHEMV) -#define F77_chbmv F77_GLOBAL(cchbmv,CCHBMV) -#define F77_chpmv F77_GLOBAL(cchpmv,CCHPMV) -#define F77_cgeru F77_GLOBAL(ccgeru,CCGERU) -#define F77_cgerc F77_GLOBAL(ccgerc,CCGERC) -#define F77_cher F77_GLOBAL(ccher,CCHER) -#define F77_chpr F77_GLOBAL(cchpr,CCHPR) -#define F77_cher2 F77_GLOBAL(ccher2,CCHER2) -#define F77_chpr2 F77_GLOBAL(cchpr2,CCHPR2) -#define F77_zhemv F77_GLOBAL(czhemv,CZHEMV) -#define F77_zhbmv F77_GLOBAL(czhbmv,CZHBMV) -#define F77_zhpmv F77_GLOBAL(czhpmv,CZHPMV) -#define F77_zgeru F77_GLOBAL(czgeru,CZGERU) -#define F77_zgerc F77_GLOBAL(czgerc,CZGERC) -#define F77_zher F77_GLOBAL(czher,CZHER) -#define F77_zhpr F77_GLOBAL(czhpr,CZHPR) -#define F77_zher2 F77_GLOBAL(czher2,CZHER2) -#define F77_zhpr2 F77_GLOBAL(czhpr2,CZHPR2) -#define F77_sgemv F77_GLOBAL(csgemv,CSGEMV) -#define F77_sgbmv F77_GLOBAL(csgbmv,CSGBMV) -#define F77_strmv F77_GLOBAL(cstrmv,CSTRMV) -#define F77_stbmv F77_GLOBAL(cstbmv,CSTBMV) -#define F77_stpmv F77_GLOBAL(cstpmv,CSTPMV) -#define F77_strsv F77_GLOBAL(cstrsv,CSTRSV) -#define F77_stbsv F77_GLOBAL(cstbsv,CSTBSV) -#define F77_stpsv F77_GLOBAL(cstpsv,CSTPSV) -#define F77_dgemv F77_GLOBAL(cdgemv,CDGEMV) -#define F77_dgbmv F77_GLOBAL(cdgbmv,CDGBMV) -#define F77_dtrmv F77_GLOBAL(cdtrmv,CDTRMV) -#define F77_dtbmv F77_GLOBAL(cdtbmv,CDTBMV) -#define F77_dtpmv F77_GLOBAL(cdtpmv,CDTPMV) -#define F77_dtrsv F77_GLOBAL(cdtrsv,CDTRSV) -#define F77_dtbsv F77_GLOBAL(cdtbsv,CDTBSV) -#define F77_dtpsv F77_GLOBAL(cdtpsv,CDTPSV) -#define F77_cgemv F77_GLOBAL(ccgemv,CCGEMV) -#define F77_cgbmv F77_GLOBAL(ccgbmv,CCGBMV) -#define F77_ctrmv F77_GLOBAL(cctrmv,CCTRMV) -#define F77_ctbmv F77_GLOBAL(cctbmv,CCTBMV) -#define F77_ctpmv F77_GLOBAL(cctpmv,CCTPMV) -#define F77_ctrsv F77_GLOBAL(cctrsv,CCTRSV) -#define F77_ctbsv F77_GLOBAL(cctbsv,CCTBSV) -#define F77_ctpsv F77_GLOBAL(cctpsv,CCTPSV) -#define F77_zgemv F77_GLOBAL(czgemv,CZGEMV) -#define F77_zgbmv F77_GLOBAL(czgbmv,CZGBMV) -#define F77_ztrmv F77_GLOBAL(cztrmv,CZTRMV) -#define F77_ztbmv F77_GLOBAL(cztbmv,CZTBMV) -#define F77_ztpmv F77_GLOBAL(cztpmv,CZTPMV) -#define F77_ztrsv F77_GLOBAL(cztrsv,CZTRSV) -#define F77_ztbsv F77_GLOBAL(cztbsv,CZTBSV) -#define F77_ztpsv F77_GLOBAL(cztpsv,CZTPSV) +#define F77_s2chke F77_GLOBAL_SUFFIX(cs2chke,CS2CHKE) +#define F77_d2chke F77_GLOBAL_SUFFIX(cd2chke,CD2CHKE) +#define F77_c2chke F77_GLOBAL_SUFFIX(cc2chke,CC2CHKE) +#define F77_z2chke F77_GLOBAL_SUFFIX(cz2chke,CZ2CHKE) +#define F77_ssymv F77_GLOBAL_SUFFIX(cssymv,CSSYMV) +#define F77_ssbmv F77_GLOBAL_SUFFIX(cssbmv,CSSBMV) +#define F77_sspmv F77_GLOBAL_SUFFIX(csspmv,CSSPMV) +#define F77_sskewsymv F77_GLOBAL_SUFFIX(csskewsymv,CSSKEWSYMV) +#define F77_sger F77_GLOBAL_SUFFIX(csger,CSGER) +#define F77_ssyr F77_GLOBAL_SUFFIX(cssyr,CSSYR) +#define F77_sspr F77_GLOBAL_SUFFIX(csspr,CSSPR) +#define F77_ssyr2 F77_GLOBAL_SUFFIX(cssyr2,CSSYR2) +#define F77_sspr2 F77_GLOBAL_SUFFIX(csspr2,CSSPR2) +#define F77_sskewsyr2 F77_GLOBAL_SUFFIX(csskewsyr2,CSSKEWSYR2) +#define F77_dsymv F77_GLOBAL_SUFFIX(cdsymv,CDSYMV) +#define F77_dsbmv F77_GLOBAL_SUFFIX(cdsbmv,CDSBMV) +#define F77_dspmv F77_GLOBAL_SUFFIX(cdspmv,CDSPMV) +#define F77_dskewsymv F77_GLOBAL_SUFFIX(cdskewsymv,CDSKEWSYMV) +#define F77_dger F77_GLOBAL_SUFFIX(cdger,CDGER) +#define F77_dsyr F77_GLOBAL_SUFFIX(cdsyr,CDSYR) +#define F77_dspr F77_GLOBAL_SUFFIX(cdspr,CDSPR) +#define F77_dsyr2 F77_GLOBAL_SUFFIX(cdsyr2,CDSYR2) +#define F77_dspr2 F77_GLOBAL_SUFFIX(cdspr2,CDSPR2) +#define F77_dskewsyr2 F77_GLOBAL_SUFFIX(cdskewsyr2,CDSKEWSYR2) +#define F77_chemv F77_GLOBAL_SUFFIX(cchemv,CCHEMV) +#define F77_chbmv F77_GLOBAL_SUFFIX(cchbmv,CCHBMV) +#define F77_chpmv F77_GLOBAL_SUFFIX(cchpmv,CCHPMV) +#define F77_cgeru F77_GLOBAL_SUFFIX(ccgeru,CCGERU) +#define F77_cgerc F77_GLOBAL_SUFFIX(ccgerc,CCGERC) +#define F77_cher F77_GLOBAL_SUFFIX(ccher,CCHER) +#define F77_chpr F77_GLOBAL_SUFFIX(cchpr,CCHPR) +#define F77_cher2 F77_GLOBAL_SUFFIX(ccher2,CCHER2) +#define F77_chpr2 F77_GLOBAL_SUFFIX(cchpr2,CCHPR2) +#define F77_zhemv F77_GLOBAL_SUFFIX(czhemv,CZHEMV) +#define F77_zhbmv F77_GLOBAL_SUFFIX(czhbmv,CZHBMV) +#define F77_zhpmv F77_GLOBAL_SUFFIX(czhpmv,CZHPMV) +#define F77_zgeru F77_GLOBAL_SUFFIX(czgeru,CZGERU) +#define F77_zgerc F77_GLOBAL_SUFFIX(czgerc,CZGERC) +#define F77_zher F77_GLOBAL_SUFFIX(czher,CZHER) +#define F77_zhpr F77_GLOBAL_SUFFIX(czhpr,CZHPR) +#define F77_zher2 F77_GLOBAL_SUFFIX(czher2,CZHER2) +#define F77_zhpr2 F77_GLOBAL_SUFFIX(czhpr2,CZHPR2) +#define F77_sgemv F77_GLOBAL_SUFFIX(csgemv,CSGEMV) +#define F77_sgbmv F77_GLOBAL_SUFFIX(csgbmv,CSGBMV) +#define F77_strmv F77_GLOBAL_SUFFIX(cstrmv,CSTRMV) +#define F77_stbmv F77_GLOBAL_SUFFIX(cstbmv,CSTBMV) +#define F77_stpmv F77_GLOBAL_SUFFIX(cstpmv,CSTPMV) +#define F77_strsv F77_GLOBAL_SUFFIX(cstrsv,CSTRSV) +#define F77_stbsv F77_GLOBAL_SUFFIX(cstbsv,CSTBSV) +#define F77_stpsv F77_GLOBAL_SUFFIX(cstpsv,CSTPSV) +#define F77_dgemv F77_GLOBAL_SUFFIX(cdgemv,CDGEMV) +#define F77_dgbmv F77_GLOBAL_SUFFIX(cdgbmv,CDGBMV) +#define F77_dtrmv F77_GLOBAL_SUFFIX(cdtrmv,CDTRMV) +#define F77_dtbmv F77_GLOBAL_SUFFIX(cdtbmv,CDTBMV) +#define F77_dtpmv F77_GLOBAL_SUFFIX(cdtpmv,CDTPMV) +#define F77_dtrsv F77_GLOBAL_SUFFIX(cdtrsv,CDTRSV) +#define F77_dtbsv F77_GLOBAL_SUFFIX(cdtbsv,CDTBSV) +#define F77_dtpsv F77_GLOBAL_SUFFIX(cdtpsv,CDTPSV) +#define F77_cgemv F77_GLOBAL_SUFFIX(ccgemv,CCGEMV) +#define F77_cgbmv F77_GLOBAL_SUFFIX(ccgbmv,CCGBMV) +#define F77_ctrmv F77_GLOBAL_SUFFIX(cctrmv,CCTRMV) +#define F77_ctbmv F77_GLOBAL_SUFFIX(cctbmv,CCTBMV) +#define F77_ctpmv F77_GLOBAL_SUFFIX(cctpmv,CCTPMV) +#define F77_ctrsv F77_GLOBAL_SUFFIX(cctrsv,CCTRSV) +#define F77_ctbsv F77_GLOBAL_SUFFIX(cctbsv,CCTBSV) +#define F77_ctpsv F77_GLOBAL_SUFFIX(cctpsv,CCTPSV) +#define F77_zgemv F77_GLOBAL_SUFFIX(czgemv,CZGEMV) +#define F77_zgbmv F77_GLOBAL_SUFFIX(czgbmv,CZGBMV) +#define F77_ztrmv F77_GLOBAL_SUFFIX(cztrmv,CZTRMV) +#define F77_ztbmv F77_GLOBAL_SUFFIX(cztbmv,CZTBMV) +#define F77_ztpmv F77_GLOBAL_SUFFIX(cztpmv,CZTPMV) +#define F77_ztrsv F77_GLOBAL_SUFFIX(cztrsv,CZTRSV) +#define F77_ztbsv F77_GLOBAL_SUFFIX(cztbsv,CZTBSV) +#define F77_ztpsv F77_GLOBAL_SUFFIX(cztpsv,CZTPSV) /* * Level 3 BLAS */ -#define F77_s3chke F77_GLOBAL(cs3chke,CS3CHKE) -#define F77_d3chke F77_GLOBAL(cd3chke,CD3CHKE) -#define F77_c3chke F77_GLOBAL(cc3chke,CC3CHKE) -#define F77_z3chke F77_GLOBAL(cz3chke,CZ3CHKE) -#define F77_chemm F77_GLOBAL(cchemm,CCHEMM) -#define F77_cherk F77_GLOBAL(ccherk,CCHERK) -#define F77_cher2k F77_GLOBAL(ccher2k,CCHER2K) -#define F77_zhemm F77_GLOBAL(czhemm,CZHEMM) -#define F77_zherk F77_GLOBAL(czherk,CZHERK) -#define F77_zher2k F77_GLOBAL(czher2k,CZHER2K) -#define F77_sgemm F77_GLOBAL(csgemm,CSGEMM) -#define F77_sgemmtr F77_GLOBAL(csgemmtr,CSGEMMTR) -#define F77_ssymm F77_GLOBAL(cssymm,CSSYMM) -#define F77_sskewsymm F77_GLOBAL(csskewsymm,CSSKEWSYMM) -#define F77_ssyrk F77_GLOBAL(cssyrk,CSSYRK) -#define F77_ssyr2k F77_GLOBAL(cssyr2k,CSSYR2K) -#define F77_sskewsyr2k F77_GLOBAL(csskewsyr2k,CSSKEWSYR2K) -#define F77_strmm F77_GLOBAL(cstrmm,CSTRMM) -#define F77_strsm F77_GLOBAL(cstrsm,CSTRSM) -#define F77_dgemm F77_GLOBAL(cdgemm,CDGEMM) -#define F77_dgemmtr F77_GLOBAL(cdgemmtr,CDGEMMTR) -#define F77_dsymm F77_GLOBAL(cdsymm,CDSYMM) -#define F77_dskewsymm F77_GLOBAL(cdskewsymm,CDSKEWSYMM) -#define F77_dsyrk F77_GLOBAL(cdsyrk,CDSYRK) -#define F77_dsyr2k F77_GLOBAL(cdsyr2k,CDSYR2K) -#define F77_dskewsyr2k F77_GLOBAL(cdskewsyr2k,CDSKEWSYR2K) -#define F77_dtrmm F77_GLOBAL(cdtrmm,CDTRMM) -#define F77_dtrsm F77_GLOBAL(cdtrsm,CDTRSM) -#define F77_cgemm F77_GLOBAL(ccgemm,CCGEMM) -#define F77_cgemmtr F77_GLOBAL(ccgemmtr,CCGEMMTR) -#define F77_csymm F77_GLOBAL(ccsymm,CCSYMM) -#define F77_csyrk F77_GLOBAL(ccsyrk,CCSYRK) -#define F77_csyr2k F77_GLOBAL(ccsyr2k,CCSYR2K) -#define F77_ctrmm F77_GLOBAL(cctrmm,CCTRMM) -#define F77_ctrsm F77_GLOBAL(cctrsm,CCTRSM) -#define F77_zgemm F77_GLOBAL(czgemm,CZGEMM) -#define F77_zgemmtr F77_GLOBAL(czgemmtr,CZGEMMTR) -#define F77_zsymm F77_GLOBAL(czsymm,CZSYMM) -#define F77_zsyrk F77_GLOBAL(czsyrk,CZSYRK) -#define F77_zsyr2k F77_GLOBAL(czsyr2k,CZSYR2K) -#define F77_ztrmm F77_GLOBAL(cztrmm,CZTRMM) -#define F77_ztrsm F77_GLOBAL(cztrsm, CZTRSM) +#define F77_s3chke F77_GLOBAL_SUFFIX(cs3chke,CS3CHKE) +#define F77_d3chke F77_GLOBAL_SUFFIX(cd3chke,CD3CHKE) +#define F77_c3chke F77_GLOBAL_SUFFIX(cc3chke,CC3CHKE) +#define F77_z3chke F77_GLOBAL_SUFFIX(cz3chke,CZ3CHKE) +#define F77_chemm F77_GLOBAL_SUFFIX(cchemm,CCHEMM) +#define F77_cherk F77_GLOBAL_SUFFIX(ccherk,CCHERK) +#define F77_cher2k F77_GLOBAL_SUFFIX(ccher2k,CCHER2K) +#define F77_zhemm F77_GLOBAL_SUFFIX(czhemm,CZHEMM) +#define F77_zherk F77_GLOBAL_SUFFIX(czherk,CZHERK) +#define F77_zher2k F77_GLOBAL_SUFFIX(czher2k,CZHER2K) +#define F77_sgemm F77_GLOBAL_SUFFIX(csgemm,CSGEMM) +#define F77_sgemmtr F77_GLOBAL_SUFFIX(csgemmtr,CSGEMMTR) +#define F77_ssymm F77_GLOBAL_SUFFIX(cssymm,CSSYMM) +#define F77_sskewsymm F77_GLOBAL_SUFFIX(csskewsymm,CSSKEWSYMM) +#define F77_ssyrk F77_GLOBAL_SUFFIX(cssyrk,CSSYRK) +#define F77_ssyr2k F77_GLOBAL_SUFFIX(cssyr2k,CSSYR2K) +#define F77_sskewsyr2k F77_GLOBAL_SUFFIX(csskewsyr2k,CSSKEWSYR2K) +#define F77_strmm F77_GLOBAL_SUFFIX(cstrmm,CSTRMM) +#define F77_strsm F77_GLOBAL_SUFFIX(cstrsm,CSTRSM) +#define F77_dgemm F77_GLOBAL_SUFFIX(cdgemm,CDGEMM) +#define F77_dgemmtr F77_GLOBAL_SUFFIX(cdgemmtr,CDGEMMTR) +#define F77_dsymm F77_GLOBAL_SUFFIX(cdsymm,CDSYMM) +#define F77_dskewsymm F77_GLOBAL_SUFFIX(cdskewsymm,CDSKEWSYMM) +#define F77_dsyrk F77_GLOBAL_SUFFIX(cdsyrk,CDSYRK) +#define F77_dsyr2k F77_GLOBAL_SUFFIX(cdsyr2k,CDSYR2K) +#define F77_dskewsyr2k F77_GLOBAL_SUFFIX(cdskewsyr2k,CDSKEWSYR2K) +#define F77_dtrmm F77_GLOBAL_SUFFIX(cdtrmm,CDTRMM) +#define F77_dtrsm F77_GLOBAL_SUFFIX(cdtrsm,CDTRSM) +#define F77_cgemm F77_GLOBAL_SUFFIX(ccgemm,CCGEMM) +#define F77_cgemmtr F77_GLOBAL_SUFFIX(ccgemmtr,CCGEMMTR) +#define F77_csymm F77_GLOBAL_SUFFIX(ccsymm,CCSYMM) +#define F77_csyrk F77_GLOBAL_SUFFIX(ccsyrk,CCSYRK) +#define F77_csyr2k F77_GLOBAL_SUFFIX(ccsyr2k,CCSYR2K) +#define F77_ctrmm F77_GLOBAL_SUFFIX(cctrmm,CCTRMM) +#define F77_ctrsm F77_GLOBAL_SUFFIX(cctrsm,CCTRSM) +#define F77_zgemm F77_GLOBAL_SUFFIX(czgemm,CZGEMM) +#define F77_zgemmtr F77_GLOBAL_SUFFIX(czgemmtr,CZGEMMTR) +#define F77_zsymm F77_GLOBAL_SUFFIX(czsymm,CZSYMM) +#define F77_zsyrk F77_GLOBAL_SUFFIX(czsyrk,CZSYRK) +#define F77_zsyr2k F77_GLOBAL_SUFFIX(czsyr2k,CZSYR2K) +#define F77_ztrmm F77_GLOBAL_SUFFIX(cztrmm,CZTRMM) +#define F77_ztrsm F77_GLOBAL_SUFFIX(cztrsm, CZTRSM) void get_transpose_type(char *type, CBLAS_TRANSPOSE *trans); void get_uplo_type(char *type, CBLAS_UPLO *uplo); diff --git a/CBLAS/testing/c_c2chke.c b/CBLAS/testing/c_c2chke.c index 5a95acda9..c07af1d40 100644 --- a/CBLAS/testing/c_c2chke.c +++ b/CBLAS/testing/c_c2chke.c @@ -53,7 +53,7 @@ void F77_c2chke(char *rout if (link_xerbla) /* call these first to link */ { - cblas_xerbla(cblas_info,cblas_rout,""); + API_SUFFIX(cblas_xerbla)(cblas_info,cblas_rout,""); F77_xerbla(cblas_rout,&cblas_info, 1); } #endif @@ -64,775 +64,775 @@ void F77_c2chke(char *rout if (strncmp( sf,"cblas_cgemv",11)==0) { cblas_rout = "cblas_cgemv"; cblas_info = 1; - cblas_cgemv(INVALID, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cgemv)(INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, INVALID, 0, 0, + API_SUFFIX(cblas_cgemv)(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_cgemv)(CblasColMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_cgemv)(CblasColMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cgemv)(CblasColMajor, CblasNoTrans, 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cgemv)(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_cgemv(CblasColMajor, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cgemv)(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, INVALID, 0, 0, + API_SUFFIX(cblas_cgemv)(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_cgemv)(CblasRowMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_cgemv)(CblasRowMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cgemv)(CblasRowMajor, CblasNoTrans, 0, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cgemv)(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_cgemv(CblasRowMajor, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cgemv)(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_cgbmv",11)==0) { cblas_rout = "cblas_cgbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_cgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, + API_SUFFIX(cblas_cgbmv)(INVALID, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, + API_SUFFIX(cblas_cgbmv)(CblasColMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, + API_SUFFIX(cblas_cgbmv)(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, + API_SUFFIX(cblas_cgbmv)(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, + API_SUFFIX(cblas_cgbmv)(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, + API_SUFFIX(cblas_cgbmv)(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, + API_SUFFIX(cblas_cgbmv)(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + API_SUFFIX(cblas_cgbmv)(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_cgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + API_SUFFIX(cblas_cgbmv)(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, + API_SUFFIX(cblas_cgbmv)(CblasRowMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, + API_SUFFIX(cblas_cgbmv)(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, + API_SUFFIX(cblas_cgbmv)(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, + API_SUFFIX(cblas_cgbmv)(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, + API_SUFFIX(cblas_cgbmv)(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, + API_SUFFIX(cblas_cgbmv)(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + API_SUFFIX(cblas_cgbmv)(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_cgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + API_SUFFIX(cblas_cgbmv)(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_chemv",11)==0) { cblas_rout = "cblas_chemv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_chemv(INVALID, CblasUpper, 0, + API_SUFFIX(cblas_chemv)(INVALID, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, INVALID, 0, + API_SUFFIX(cblas_chemv)(CblasColMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_chemv)(CblasColMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, CblasUpper, 2, + API_SUFFIX(cblas_chemv)(CblasColMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, CblasUpper, 0, + API_SUFFIX(cblas_chemv)(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_chemv(CblasColMajor, CblasUpper, 0, + API_SUFFIX(cblas_chemv)(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, INVALID, 0, + API_SUFFIX(cblas_chemv)(CblasRowMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_chemv)(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, CblasUpper, 2, + API_SUFFIX(cblas_chemv)(CblasRowMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, CblasUpper, 0, + API_SUFFIX(cblas_chemv)(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_chemv(CblasRowMajor, CblasUpper, 0, + API_SUFFIX(cblas_chemv)(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_chbmv",11)==0) { cblas_rout = "cblas_chbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_chbmv(INVALID, CblasUpper, 0, 0, + API_SUFFIX(cblas_chbmv)(INVALID, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, INVALID, 0, 0, + API_SUFFIX(cblas_chbmv)(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_chbmv)(CblasColMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_chbmv)(CblasColMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, 0, 1, + API_SUFFIX(cblas_chbmv)(CblasColMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, 0, 0, + API_SUFFIX(cblas_chbmv)(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_chbmv(CblasColMajor, CblasUpper, 0, 0, + API_SUFFIX(cblas_chbmv)(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, INVALID, 0, 0, + API_SUFFIX(cblas_chbmv)(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_chbmv)(CblasRowMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_chbmv)(CblasRowMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, 0, 1, + API_SUFFIX(cblas_chbmv)(CblasRowMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0, + API_SUFFIX(cblas_chbmv)(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_chbmv(CblasRowMajor, CblasUpper, 0, 0, + API_SUFFIX(cblas_chbmv)(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_chpmv",11)==0) { cblas_rout = "cblas_chpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_chpmv(INVALID, CblasUpper, 0, + API_SUFFIX(cblas_chpmv)(INVALID, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chpmv(CblasColMajor, INVALID, 0, + API_SUFFIX(cblas_chpmv)(CblasColMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chpmv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_chpmv)(CblasColMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_chpmv(CblasColMajor, CblasUpper, 0, + API_SUFFIX(cblas_chpmv)(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_chpmv(CblasColMajor, CblasUpper, 0, + API_SUFFIX(cblas_chpmv)(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_chpmv(CblasRowMajor, INVALID, 0, + API_SUFFIX(cblas_chpmv)(CblasRowMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_chpmv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_chpmv)(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_chpmv(CblasRowMajor, CblasUpper, 0, + API_SUFFIX(cblas_chpmv)(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_chpmv(CblasRowMajor, CblasUpper, 0, + API_SUFFIX(cblas_chpmv)(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctrmv",11)==0) { cblas_rout = "cblas_ctrmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmv)(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctrmv)(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_ctrmv)(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmv)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctrmv)(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_ctrmv)(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmv)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctbmv",11)==0) { cblas_rout = "cblas_ctbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_ctbmv)(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_ctbmv)(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctpmv",11)==0) { cblas_rout = "cblas_ctpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpmv)(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctpmv)(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_ctpmv)(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpmv)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctpmv)(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_ctpmv)(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpmv)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctrsv",11)==0) { cblas_rout = "cblas_ctrsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsv)(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctrsv)(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_ctrsv)(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsv)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctrsv)(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_ctrsv)(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsv)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctbsv",11)==0) { cblas_rout = "cblas_ctbsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_ctbsv)(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_ctbsv)(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctbsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_ctpsv",11)==0) { cblas_rout = "cblas_ctpsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpsv)(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctpsv)(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_ctpsv)(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpsv)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctpsv)(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_ctpsv)(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpsv)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctpsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_cgeru",10)==0) { cblas_rout = "cblas_cgeru"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_cgeru(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgeru)(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cgeru(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgeru)(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cgeru(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgeru)(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgeru(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgeru)(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_cgeru(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 ); + API_SUFFIX(cblas_cgeru)(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_cgeru(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgeru)(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_cgeru(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgeru)(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_cgeru(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgeru)(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgeru(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgeru)(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_cgeru(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 ); + API_SUFFIX(cblas_cgeru)(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_cgeru(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgeru)(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); } else if (strncmp( sf,"cblas_cgerc",10)==0) { cblas_rout = "cblas_cgerc"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_cgerc(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgerc)(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cgerc(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgerc)(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cgerc(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgerc)(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgerc(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgerc)(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_cgerc(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 ); + API_SUFFIX(cblas_cgerc)(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_cgerc(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgerc)(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_cgerc(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgerc)(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_cgerc(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgerc)(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgerc(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgerc)(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_cgerc(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 ); + API_SUFFIX(cblas_cgerc)(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_cgerc(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cgerc)(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); } else if (strncmp( sf,"cblas_cher2",11)==0) { cblas_rout = "cblas_cher2"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_cher2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cher2)(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cher2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cher2)(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cher2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cher2)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 ); + API_SUFFIX(cblas_cher2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_cher2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 ); + API_SUFFIX(cblas_cher2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_cher2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cher2)(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_cher2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cher2)(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_cher2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cher2)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 ); + API_SUFFIX(cblas_cher2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_cher2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 ); + API_SUFFIX(cblas_cher2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_cher2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_cher2)(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); } else if (strncmp( sf,"cblas_chpr2",11)==0) { cblas_rout = "cblas_chpr2"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_chpr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A ); + API_SUFFIX(cblas_chpr2)(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chpr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A ); + API_SUFFIX(cblas_chpr2)(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chpr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A ); + API_SUFFIX(cblas_chpr2)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_chpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A ); + API_SUFFIX(cblas_chpr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_chpr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A ); + API_SUFFIX(cblas_chpr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_chpr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A ); + API_SUFFIX(cblas_chpr2)(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_chpr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A ); + API_SUFFIX(cblas_chpr2)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_chpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A ); + API_SUFFIX(cblas_chpr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_chpr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A ); + API_SUFFIX(cblas_chpr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A ); chkxer(); } else if (strncmp( sf,"cblas_cher",10)==0) { cblas_rout = "cblas_cher"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_cher(INVALID, CblasUpper, 0, RALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_cher)(INVALID, CblasUpper, 0, RALPHA, X, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cher(CblasColMajor, INVALID, 0, RALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_cher)(CblasColMajor, INVALID, 0, RALPHA, X, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cher(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_cher)(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cher(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 ); + API_SUFFIX(cblas_cher)(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_cher(CblasColMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_cher)(CblasColMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_cher(CblasRowMajor, INVALID, 0, RALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_cher)(CblasRowMajor, INVALID, 0, RALPHA, X, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_cher(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_cher)(CblasRowMajor, CblasUpper, INVALID, RALPHA, X, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cher(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 ); + API_SUFFIX(cblas_cher)(CblasRowMajor, CblasUpper, 0, RALPHA, X, 0, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_cher(CblasRowMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_cher)(CblasRowMajor, CblasUpper, 2, RALPHA, X, 1, A, 1 ); chkxer(); } else if (strncmp( sf,"cblas_chpr",10)==0) { cblas_rout = "cblas_chpr"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_chpr(INVALID, CblasUpper, 0, RALPHA, X, 1, A ); + API_SUFFIX(cblas_chpr)(INVALID, CblasUpper, 0, RALPHA, X, 1, A ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A ); + API_SUFFIX(cblas_chpr)(CblasColMajor, INVALID, 0, RALPHA, X, 1, A ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A ); + API_SUFFIX(cblas_chpr)(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A ); + API_SUFFIX(cblas_chpr)(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chpr(CblasColMajor, INVALID, 0, RALPHA, X, 1, A ); + API_SUFFIX(cblas_chpr)(CblasColMajor, INVALID, 0, RALPHA, X, 1, A ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chpr(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A ); + API_SUFFIX(cblas_chpr)(CblasColMajor, CblasUpper, INVALID, RALPHA, X, 1, A ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A ); + API_SUFFIX(cblas_chpr)(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A ); chkxer(); } if (cblas_ok == TRUE) diff --git a/CBLAS/testing/c_c3chke.c b/CBLAS/testing/c_c3chke.c index 4db5b691e..63524ba45 100644 --- a/CBLAS/testing/c_c3chke.c +++ b/CBLAS/testing/c_c3chke.c @@ -56,7 +56,7 @@ void F77_c3chke(char * rout if (link_xerbla) /* call these first to link */ { - cblas_xerbla(cblas_info,cblas_rout,""); + API_SUFFIX(cblas_xerbla)(cblas_info,cblas_rout,""); F77_xerbla(cblas_rout,&cblas_info, 1); } #endif @@ -66,229 +66,229 @@ void F77_c3chke(char * rout cblas_rout = "cblas_cgemmtr" ; cblas_info = 1; - cblas_cgemmtr( INVALID, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cgemmtr)( INVALID, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemmtr( INVALID, CblasUpper, CblasNoTrans, CblasTrans, 0, 0, + API_SUFFIX(cblas_cgemmtr)( INVALID, CblasUpper, CblasNoTrans, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemmtr( INVALID, CblasUpper,CblasTrans, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cgemmtr)( INVALID, CblasUpper,CblasTrans, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemmtr( INVALID, CblasUpper, CblasTrans, CblasTrans, 0, 0, + API_SUFFIX(cblas_cgemmtr)( INVALID, CblasUpper, CblasTrans, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemmtr( INVALID, CblasLower, CblasNoTrans, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cgemmtr)( INVALID, CblasLower, CblasNoTrans, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemmtr( INVALID, CblasLower, CblasNoTrans, CblasTrans, 0, 0, + API_SUFFIX(cblas_cgemmtr)( INVALID, CblasLower, CblasNoTrans, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemmtr( INVALID, CblasLower,CblasTrans, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cgemmtr)( INVALID, CblasLower,CblasTrans, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemmtr( INVALID, CblasLower, CblasTrans, CblasTrans, 0, 0, + API_SUFFIX(cblas_cgemmtr)( INVALID, CblasLower, CblasTrans, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, INVALID, CblasNoTrans, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, INVALID, CblasNoTrans, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, INVALID, CblasNoTrans, CblasTrans, 0, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, INVALID, CblasNoTrans, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, INVALID, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, INVALID, CblasTrans, 0, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, INVALID, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, INVALID, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, INVALID, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, INVALID, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 0, INVALID, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 0, 2, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); /* Row Major */ cblas_info = 5; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, INVALID, 0, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, INVALID, 0, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, INVALID, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 0, INVALID, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, 2, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_cgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); @@ -296,402 +296,402 @@ void F77_c3chke(char * rout cblas_rout = "cblas_cgemm" ; cblas_info = 1; - cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, + API_SUFFIX(cblas_cgemm)( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, + API_SUFFIX(cblas_cgemm)( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, + API_SUFFIX(cblas_cgemm)( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_cgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0, + API_SUFFIX(cblas_cgemm)( INVALID, CblasTrans, CblasTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, INVALID, CblasTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, INVALID, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_cgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); } else if (strncmp( sf,"cblas_chemm" ,11)==0) { cblas_rout = "cblas_chemm" ; cblas_info = 1; - cblas_chemm( INVALID, CblasRight, CblasLower, 0, 0, + API_SUFFIX(cblas_chemm)( INVALID, CblasRight, CblasLower, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, INVALID, CblasUpper, 0, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, INVALID, CblasUpper, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasLeft, INVALID, 0, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasLeft, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasRight, CblasLower, INVALID, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasRight, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasRight, CblasLower, 0, INVALID, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasRight, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 2, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasRight, CblasUpper, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasRight, CblasLower, 2, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasRight, CblasLower, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasRight, CblasUpper, 2, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasRight, CblasUpper, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_chemm( CblasColMajor, CblasRight, CblasLower, 2, 0, + API_SUFFIX(cblas_chemm)( CblasColMajor, CblasRight, CblasLower, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasLeft, CblasLower, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasLeft, CblasLower, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_chemm( CblasRowMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_chemm)( CblasRowMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); @@ -699,175 +699,175 @@ void F77_c3chke(char * rout cblas_rout = "cblas_csymm" ; cblas_info = 1; - cblas_csymm( INVALID, CblasRight, CblasLower, 0, 0, + API_SUFFIX(cblas_csymm)( INVALID, CblasRight, CblasLower, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, INVALID, CblasUpper, 0, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, INVALID, CblasUpper, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasLeft, INVALID, 0, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasLeft, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasRight, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasRight, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasRight, CblasUpper, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasRight, CblasLower, 2, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasRight, CblasLower, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasRight, CblasUpper, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_csymm( CblasColMajor, CblasRight, CblasLower, 2, 0, + API_SUFFIX(cblas_csymm)( CblasColMajor, CblasRight, CblasLower, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasLeft, CblasLower, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasLeft, CblasLower, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_csymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_csymm)( CblasRowMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); @@ -875,279 +875,279 @@ void F77_c3chke(char * rout cblas_rout = "cblas_ctrmm" ; cblas_info = 1; - cblas_ctrmm( INVALID, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( INVALID, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, INVALID, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasUpper, INVALID, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrmm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); @@ -1155,279 +1155,279 @@ void F77_c3chke(char * rout cblas_rout = "cblas_ctrsm" ; cblas_info = 1; - cblas_ctrsm( INVALID, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( INVALID, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, INVALID, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasUpper, INVALID, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_ctrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_ctrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_ctrsm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); @@ -1435,111 +1435,111 @@ void F77_c3chke(char * rout cblas_rout = "cblas_cherk" ; cblas_info = 1; - cblas_cherk(INVALID, CblasUpper, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cherk)(INVALID, CblasUpper, CblasNoTrans, 0, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, INVALID, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cherk)(CblasColMajor, INVALID, CblasNoTrans, 0, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasUpper, CblasTrans, 0, 0, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasUpper, CblasTrans, 0, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, INVALID, 0, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasUpper, CblasConjTrans, INVALID, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, INVALID, 0, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasLower, CblasConjTrans, INVALID, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, 0, INVALID, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasUpper, CblasConjTrans, 0, INVALID, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_cherk(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, RALPHA, A, 1, RBETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_cherk(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_cherk(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, RALPHA, A, 1, RBETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_cherk(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, RALPHA, A, 1, RBETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, RALPHA, A, 1, RBETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, 0, 2, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasLower, CblasConjTrans, 0, 2, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cherk(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cherk(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, RALPHA, A, 2, RBETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cherk(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_cherk(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cherk)(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, RALPHA, A, 2, RBETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, RALPHA, A, 2, RBETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasUpper, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasUpper, CblasConjTrans, 2, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, RALPHA, A, 2, RBETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_cherk(CblasColMajor, CblasLower, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cherk)(CblasColMajor, CblasLower, CblasConjTrans, 2, 0, RALPHA, A, 1, RBETA, C, 1 ); chkxer(); @@ -1547,111 +1547,111 @@ void F77_c3chke(char * rout cblas_rout = "cblas_csyrk" ; cblas_info = 1; - cblas_csyrk(INVALID, CblasUpper, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_csyrk)(INVALID, CblasUpper, CblasNoTrans, 0, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, INVALID, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_csyrk)(CblasColMajor, INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasUpper, CblasConjTrans, 0, 0, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasUpper, CblasConjTrans, 0, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, INVALID, 0, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasLower, CblasTrans, INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, 0, INVALID, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasUpper, CblasTrans, 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, 0, INVALID, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasLower, CblasTrans, 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_csyrk(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, ALPHA, A, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_csyrk(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_csyrk(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, ALPHA, A, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_csyrk(CblasRowMajor, CblasLower, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, 0, 2, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasUpper, CblasTrans, 0, 2, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, 0, 2, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasLower, CblasTrans, 0, 2, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_csyrk(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_csyrk(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 2, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_csyrk(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_csyrk(CblasRowMajor, CblasLower, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyrk)(CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 2, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 2, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasUpper, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 2, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_csyrk(CblasColMajor, CblasLower, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyrk)(CblasColMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); @@ -1659,143 +1659,143 @@ void F77_c3chke(char * rout cblas_rout = "cblas_cher2k" ; cblas_info = 1; - cblas_cher2k(INVALID, CblasUpper, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cher2k)(INVALID, CblasUpper, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, INVALID, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasUpper, CblasTrans, 0, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasUpper, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, INVALID, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasUpper, CblasConjTrans, INVALID, 0, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, INVALID, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasLower, CblasConjTrans, INVALID, 0, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, INVALID, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasUpper, CblasConjTrans, 0, INVALID, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasLower, CblasConjTrans, 0, INVALID, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_cher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 2, RBETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_cher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, ALPHA, A, 1, B, 2, RBETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_cher2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 2, RBETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_cher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, ALPHA, A, 1, B, 2, RBETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, RBETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, RBETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, 2, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasLower, CblasConjTrans, 0, 2, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_cher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, RBETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_cher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, ALPHA, A, 2, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_cher2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, RBETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_cher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, ALPHA, A, 2, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 1, RBETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasUpper, CblasConjTrans, 0, 2, ALPHA, A, 2, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 1, RBETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 0, 2, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasLower, CblasConjTrans, 0, 2, ALPHA, A, 2, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_cher2k(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_cher2k(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasUpper, CblasConjTrans, 2, 0, ALPHA, A, 2, B, 2, RBETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_cher2k(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_cher2k(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, CblasLower, CblasConjTrans, 2, 0, ALPHA, A, 2, B, 2, RBETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, RBETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasUpper, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasUpper, CblasConjTrans, 2, 0, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, RBETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_cher2k(CblasColMajor, CblasLower, CblasConjTrans, 2, 0, + API_SUFFIX(cblas_cher2k)(CblasColMajor, CblasLower, CblasConjTrans, 2, 0, ALPHA, A, 1, B, 1, RBETA, C, 1 ); chkxer(); @@ -1803,143 +1803,143 @@ void F77_c3chke(char * rout cblas_rout = "cblas_csyr2k" ; cblas_info = 1; - cblas_csyr2k(INVALID, CblasUpper, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_csyr2k)(INVALID, CblasUpper, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, INVALID, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasUpper, CblasConjTrans, 0, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasUpper, CblasConjTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, INVALID, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasLower, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, INVALID, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasUpper, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 0, INVALID, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasLower, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_csyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_csyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_csyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_csyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, 2, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasUpper, CblasTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 0, 2, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasLower, CblasTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_csyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_csyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_csyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_csyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 0, 2, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasUpper, CblasTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 0, 2, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasLower, CblasTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_csyr2k(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_csyr2k(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_csyr2k(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_csyr2k(CblasRowMajor, CblasLower, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasUpper, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); diff --git a/CBLAS/testing/c_cblas1.c b/CBLAS/testing/c_cblas1.c index ddfd84490..7761f32e4 100644 --- a/CBLAS/testing/c_cblas1.c +++ b/CBLAS/testing/c_cblas1.c @@ -11,14 +11,14 @@ void F77_caxpy(const CBLAS_INT *N, const void *alpha, void *X, const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY) { - cblas_caxpy(*N, alpha, X, *incX, Y, *incY); + API_SUFFIX(cblas_caxpy)(*N, alpha, X, *incX, Y, *incY); return; } void F77_caxpby(const CBLAS_INT *N, const void *alpha, void *X, const CBLAS_INT *incX, const void *beta, void *Y, const CBLAS_INT *incY) { - cblas_caxpby(*N, alpha, X, *incX, beta, Y, *incY); + API_SUFFIX(cblas_caxpby)(*N, alpha, X, *incX, beta, Y, *incY); return; } @@ -26,57 +26,57 @@ void F77_caxpby(const CBLAS_INT *N, const void *alpha, void *X, void F77_ccopy(const CBLAS_INT *N, void *X, const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY) { - cblas_ccopy(*N, X, *incX, Y, *incY); + API_SUFFIX(cblas_ccopy)(*N, X, *incX, Y, *incY); return; } void F77_cdotc(const CBLAS_INT *N, void *X, const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY, void *dotc) { - cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); + API_SUFFIX(cblas_cdotc_sub)(*N, X, *incX, Y, *incY, dotc); return; } void F77_cdotu(const CBLAS_INT *N, void *X, const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY,void *dotu) { - cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); + API_SUFFIX(cblas_cdotu_sub)(*N, X, *incX, Y, *incY, dotu); return; } void F77_cscal(const CBLAS_INT *N, const void * *alpha, void *X, const CBLAS_INT *incX) { - cblas_cscal(*N, alpha, X, *incX); + API_SUFFIX(cblas_cscal)(*N, alpha, X, *incX); return; } void F77_csscal(const CBLAS_INT *N, const float *alpha, void *X, const CBLAS_INT *incX) { - cblas_csscal(*N, *alpha, X, *incX); + API_SUFFIX(cblas_csscal)(*N, *alpha, X, *incX); return; } void F77_cswap( const CBLAS_INT *N, void *X, const CBLAS_INT *incX, void *Y, const CBLAS_INT *incY) { - cblas_cswap(*N,X,*incX,Y,*incY); + API_SUFFIX(cblas_cswap)(*N,X,*incX,Y,*incY); return; } CBLAS_INT F77_icamax(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX) { if (*N < 1 || *incX < 1) return(0); - return (cblas_icamax(*N, X, *incX)+1); + return (API_SUFFIX(cblas_icamax)(*N, X, *incX)+1); } float F77_scnrm2(const CBLAS_INT *N, const void *X, const CBLAS_INT *incX) { - return cblas_scnrm2(*N, X, *incX); + return API_SUFFIX(cblas_scnrm2)(*N, X, *incX); } float F77_scasum(const CBLAS_INT *N, void *X, const CBLAS_INT *incX) { - return cblas_scasum(*N, X, *incX); + return API_SUFFIX(cblas_scasum)(*N, X, *incX); } diff --git a/CBLAS/testing/c_cblas2.c b/CBLAS/testing/c_cblas2.c index 38a089f0e..2f104c6fd 100644 --- a/CBLAS/testing/c_cblas2.c +++ b/CBLAS/testing/c_cblas2.c @@ -30,15 +30,15 @@ void F77_cgemv(CBLAS_INT *layout, char *transp, CBLAS_INT *m, CBLAS_INT *n, A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; } - cblas_cgemv( CblasRowMajor, trans, *m, *n, alpha, A, LDA, x, *incx, + API_SUFFIX(cblas_cgemv)( CblasRowMajor, trans, *m, *n, alpha, A, LDA, x, *incx, beta, y, *incy ); free(A); } else if (*layout == TEST_COL_MJR) - cblas_cgemv( CblasColMajor, trans, + API_SUFFIX(cblas_cgemv)( CblasColMajor, trans, *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); else - cblas_cgemv( UNDEFINED, trans, + API_SUFFIX(cblas_cgemv)( UNDEFINED, trans, *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); } @@ -81,15 +81,15 @@ void F77_cgbmv(CBLAS_INT *layout, char *transp, CBLAS_INT *m, CBLAS_INT *n, CBLA A[ LDA*j+irow ].imag=a[ (*lda)*(j-jcol)+i ].imag; } } - cblas_cgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, alpha, A, LDA, x, + API_SUFFIX(cblas_cgbmv)( CblasRowMajor, trans, *m, *n, *kl, *ku, alpha, A, LDA, x, *incx, beta, y, *incy ); free(A); } else if (*layout == TEST_COL_MJR) - cblas_cgbmv( CblasColMajor, trans, *m, *n, *kl, *ku, alpha, a, *lda, x, + API_SUFFIX(cblas_cgbmv)( CblasColMajor, trans, *m, *n, *kl, *ku, alpha, a, *lda, x, *incx, beta, y, *incy ); else - cblas_cgbmv( UNDEFINED, trans, *m, *n, *kl, *ku, alpha, a, *lda, x, + API_SUFFIX(cblas_cgbmv)( UNDEFINED, trans, *m, *n, *kl, *ku, alpha, a, *lda, x, *incx, beta, y, *incy ); } @@ -108,7 +108,7 @@ void F77_cgeru(CBLAS_INT *layout, CBLAS_INT *m, CBLAS_INT *n, CBLAS_TEST_COMPLEX A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; } - cblas_cgeru( CblasRowMajor, *m, *n, alpha, x, *incx, y, *incy, A, LDA ); + API_SUFFIX(cblas_cgeru)( CblasRowMajor, *m, *n, alpha, x, *incx, y, *incy, A, LDA ); for( i=0; i<*m; i++ ) for( j=0; j<*n; j++ ){ a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; @@ -117,9 +117,9 @@ void F77_cgeru(CBLAS_INT *layout, CBLAS_INT *m, CBLAS_INT *n, CBLAS_TEST_COMPLEX free(A); } else if (*layout == TEST_COL_MJR) - cblas_cgeru( CblasColMajor, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); + API_SUFFIX(cblas_cgeru)( CblasColMajor, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); else - cblas_cgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); + API_SUFFIX(cblas_cgeru)( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); } void F77_cgerc(CBLAS_INT *layout, CBLAS_INT *m, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha, @@ -136,7 +136,7 @@ void F77_cgerc(CBLAS_INT *layout, CBLAS_INT *m, CBLAS_INT *n, CBLAS_TEST_COMPLEX A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; } - cblas_cgerc( CblasRowMajor, *m, *n, alpha, x, *incx, y, *incy, A, LDA ); + API_SUFFIX(cblas_cgerc)( CblasRowMajor, *m, *n, alpha, x, *incx, y, *incy, A, LDA ); for( i=0; i<*m; i++ ) for( j=0; j<*n; j++ ){ a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; @@ -145,9 +145,9 @@ void F77_cgerc(CBLAS_INT *layout, CBLAS_INT *m, CBLAS_INT *n, CBLAS_TEST_COMPLEX free(A); } else if (*layout == TEST_COL_MJR) - cblas_cgerc( CblasColMajor, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); + API_SUFFIX(cblas_cgerc)( CblasColMajor, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); else - cblas_cgerc( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); + API_SUFFIX(cblas_cgerc)( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); } void F77_chemv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha, @@ -172,15 +172,15 @@ void F77_chemv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; } - cblas_chemv( CblasRowMajor, uplo, *n, alpha, A, LDA, x, *incx, + API_SUFFIX(cblas_chemv)( CblasRowMajor, uplo, *n, alpha, A, LDA, x, *incx, beta, y, *incy ); free(A); } else if (*layout == TEST_COL_MJR) - cblas_chemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, + API_SUFFIX(cblas_chemv)( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); else - cblas_chemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx, + API_SUFFIX(cblas_chemv)( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); } @@ -202,7 +202,7 @@ CBLAS_INT i,irow,j,jcol,LDA; if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_chbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, + API_SUFFIX(cblas_chbmv)(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, *incx, beta, y, *incy ); else { LDA = *k+2; @@ -239,16 +239,16 @@ CBLAS_INT i,irow,j,jcol,LDA; } } } - cblas_chbmv( CblasRowMajor, uplo, *n, *k, alpha, A, LDA, x, *incx, + API_SUFFIX(cblas_chbmv)( CblasRowMajor, uplo, *n, *k, alpha, A, LDA, x, *incx, beta, y, *incy ); free(A); } } else if (*layout == TEST_COL_MJR) - cblas_chbmv(CblasColMajor, uplo, *n, *k, alpha, a, *lda, x, *incx, + API_SUFFIX(cblas_chbmv)(CblasColMajor, uplo, *n, *k, alpha, a, *lda, x, *incx, beta, y, *incy ); else - cblas_chbmv(UNDEFINED, uplo, *n, *k, alpha, a, *lda, x, *incx, + API_SUFFIX(cblas_chbmv)(UNDEFINED, uplo, *n, *k, alpha, a, *lda, x, *incx, beta, y, *incy ); } @@ -267,7 +267,7 @@ void F77_chpmv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX get_uplo_type(uplow,&uplo); if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_chpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, + API_SUFFIX(cblas_chpmv)(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, beta, y, *incy); else { LDA = *n; @@ -298,17 +298,17 @@ void F77_chpmv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX AP[ k ].imag=A[ LDA*i+j ].imag; } } - cblas_chpmv( CblasRowMajor, uplo, *n, alpha, AP, x, *incx, beta, y, + API_SUFFIX(cblas_chpmv)( CblasRowMajor, uplo, *n, alpha, AP, x, *incx, beta, y, *incy ); free(A); free(AP); } } else if (*layout == TEST_COL_MJR) - cblas_chpmv( CblasColMajor, uplo, *n, alpha, ap, x, *incx, beta, y, + API_SUFFIX(cblas_chpmv)( CblasColMajor, uplo, *n, alpha, ap, x, *incx, beta, y, *incy ); else - cblas_chpmv( UNDEFINED, uplo, *n, alpha, ap, x, *incx, beta, y, + API_SUFFIX(cblas_chpmv)( UNDEFINED, uplo, *n, alpha, ap, x, *incx, beta, y, *incy ); } @@ -331,7 +331,7 @@ void F77_ctbmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_ctbmv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, + API_SUFFIX(cblas_ctbmv)(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, *incx); else { LDA = *k+2; @@ -368,15 +368,15 @@ void F77_ctbmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, } } } - cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, + API_SUFFIX(cblas_ctbmv)(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } } else if (*layout == TEST_COL_MJR) - cblas_ctbmv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); + API_SUFFIX(cblas_ctbmv)(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); else - cblas_ctbmv(UNDEFINED, uplo, trans, diag, *n, *k, a, *lda, x, *incx); + API_SUFFIX(cblas_ctbmv)(UNDEFINED, uplo, trans, diag, *n, *k, a, *lda, x, *incx); } void F77_ctbsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, @@ -399,7 +399,7 @@ void F77_ctbsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_ctbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, + API_SUFFIX(cblas_ctbsv)(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, *incx); else { LDA = *k+2; @@ -436,15 +436,15 @@ void F77_ctbsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, } } } - cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, + API_SUFFIX(cblas_ctbsv)(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } } else if (*layout == TEST_COL_MJR) - cblas_ctbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); + API_SUFFIX(cblas_ctbsv)(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); else - cblas_ctbsv(UNDEFINED, uplo, trans, diag, *n, *k, a, *lda, x, *incx); + API_SUFFIX(cblas_ctbsv)(UNDEFINED, uplo, trans, diag, *n, *k, a, *lda, x, *incx); } void F77_ctpmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, @@ -465,7 +465,7 @@ void F77_ctpmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_ctpmv( CblasRowMajor, UNDEFINED, trans, diag, *n, ap, x, *incx ); + API_SUFFIX(cblas_ctpmv)( CblasRowMajor, UNDEFINED, trans, diag, *n, ap, x, *incx ); else { LDA = *n; A=(CBLAS_TEST_COMPLEX*)malloc(LDA*LDA*sizeof(CBLAS_TEST_COMPLEX)); @@ -495,15 +495,15 @@ void F77_ctpmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, AP[ k ].imag=A[ LDA*i+j ].imag; } } - cblas_ctpmv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx ); + API_SUFFIX(cblas_ctpmv)( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx ); free(A); free(AP); } } else if (*layout == TEST_COL_MJR) - cblas_ctpmv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); + API_SUFFIX(cblas_ctpmv)( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); else - cblas_ctpmv( UNDEFINED, uplo, trans, diag, *n, ap, x, *incx ); + API_SUFFIX(cblas_ctpmv)( UNDEFINED, uplo, trans, diag, *n, ap, x, *incx ); } void F77_ctpsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, @@ -524,7 +524,7 @@ void F77_ctpsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_ctpsv( CblasRowMajor, UNDEFINED, trans, diag, *n, ap, x, *incx ); + API_SUFFIX(cblas_ctpsv)( CblasRowMajor, UNDEFINED, trans, diag, *n, ap, x, *incx ); else { LDA = *n; A=(CBLAS_TEST_COMPLEX*)malloc(LDA*LDA*sizeof(CBLAS_TEST_COMPLEX)); @@ -554,15 +554,15 @@ void F77_ctpsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, AP[ k ].imag=A[ LDA*i+j ].imag; } } - cblas_ctpsv( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx ); + API_SUFFIX(cblas_ctpsv)( CblasRowMajor, uplo, trans, diag, *n, AP, x, *incx ); free(A); free(AP); } } else if (*layout == TEST_COL_MJR) - cblas_ctpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); + API_SUFFIX(cblas_ctpsv)( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); else - cblas_ctpsv( UNDEFINED, uplo, trans, diag, *n, ap, x, *incx ); + API_SUFFIX(cblas_ctpsv)( UNDEFINED, uplo, trans, diag, *n, ap, x, *incx ); } void F77_ctrmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, @@ -590,13 +590,13 @@ void F77_ctrmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; } - cblas_ctrmv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx); + API_SUFFIX(cblas_ctrmv)(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx); free(A); } else if (*layout == TEST_COL_MJR) - cblas_ctrmv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx); + API_SUFFIX(cblas_ctrmv)(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx); else - cblas_ctrmv(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx); + API_SUFFIX(cblas_ctrmv)(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx); } void F77_ctrsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, CBLAS_INT *n, CBLAS_TEST_COMPLEX *a, CBLAS_INT *lda, CBLAS_TEST_COMPLEX *x, @@ -623,13 +623,13 @@ void F77_ctrsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; } - cblas_ctrsv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx ); + API_SUFFIX(cblas_ctrsv)(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx ); free(A); } else if (*layout == TEST_COL_MJR) - cblas_ctrsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); + API_SUFFIX(cblas_ctrsv)(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); else - cblas_ctrsv(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx ); + API_SUFFIX(cblas_ctrsv)(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx ); } void F77_chpr(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha, @@ -646,7 +646,7 @@ void F77_chpr(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha, if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_chpr(CblasRowMajor, UNDEFINED, *n, *alpha, x, *incx, ap ); + API_SUFFIX(cblas_chpr)(CblasRowMajor, UNDEFINED, *n, *alpha, x, *incx, ap ); else { LDA = *n; A = (CBLAS_TEST_COMPLEX* )malloc(LDA*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); @@ -676,7 +676,7 @@ void F77_chpr(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha, AP[ k ].imag=A[ LDA*i+j ].imag; } } - cblas_chpr(CblasRowMajor, uplo, *n, *alpha, x, *incx, AP ); + API_SUFFIX(cblas_chpr)(CblasRowMajor, uplo, *n, *alpha, x, *incx, AP ); if (uplo == CblasUpper) { for( i=0, k=0; i<*n; i++ ) for( j=i; j<*n; j++, k++ ){ @@ -706,9 +706,9 @@ void F77_chpr(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha, } } else if (*layout == TEST_COL_MJR) - cblas_chpr(CblasColMajor, uplo, *n, *alpha, x, *incx, ap ); + API_SUFFIX(cblas_chpr)(CblasColMajor, uplo, *n, *alpha, x, *incx, ap ); else - cblas_chpr(UNDEFINED, uplo, *n, *alpha, x, *incx, ap ); + API_SUFFIX(cblas_chpr)(UNDEFINED, uplo, *n, *alpha, x, *incx, ap ); } void F77_chpr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha, @@ -726,7 +726,7 @@ void F77_chpr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX if (*layout == TEST_ROW_MJR) { if (uplo != CblasUpper && uplo != CblasLower ) - cblas_chpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, + API_SUFFIX(cblas_chpr2)( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, *incy, ap ); else { LDA = *n; @@ -757,7 +757,7 @@ void F77_chpr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX AP[ k ].imag=A[ LDA*i+j ].imag; } } - cblas_chpr2( CblasRowMajor, uplo, *n, alpha, x, *incx, y, *incy, AP ); + API_SUFFIX(cblas_chpr2)( CblasRowMajor, uplo, *n, alpha, x, *incx, y, *incy, AP ); if (uplo == CblasUpper) { for( i=0, k=0; i<*n; i++ ) for( j=i; j<*n; j++, k++ ) { @@ -787,9 +787,9 @@ void F77_chpr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX } } else if (*layout == TEST_COL_MJR) - cblas_chpr2( CblasColMajor, uplo, *n, alpha, x, *incx, y, *incy, ap ); + API_SUFFIX(cblas_chpr2)( CblasColMajor, uplo, *n, alpha, x, *incx, y, *incy, ap ); else - cblas_chpr2( UNDEFINED, uplo, *n, alpha, x, *incx, y, *incy, ap ); + API_SUFFIX(cblas_chpr2)( UNDEFINED, uplo, *n, alpha, x, *incx, y, *incy, ap ); } void F77_cher(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha, @@ -814,7 +814,7 @@ void F77_cher(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha, A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; } - cblas_cher(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA ); + API_SUFFIX(cblas_cher)(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA ); for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) { a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; @@ -823,9 +823,9 @@ void F77_cher(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, float *alpha, free(A); } else if (*layout == TEST_COL_MJR) - cblas_cher( CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda ); + API_SUFFIX(cblas_cher)( CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda ); else - cblas_cher( UNDEFINED, uplo, *n, *alpha, x, *incx, a, *lda ); + API_SUFFIX(cblas_cher)( UNDEFINED, uplo, *n, *alpha, x, *incx, a, *lda ); } void F77_cher2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX *alpha, @@ -852,7 +852,7 @@ void F77_cher2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; } - cblas_cher2(CblasRowMajor, uplo, *n, alpha, x, *incx, y, *incy, A, LDA ); + API_SUFFIX(cblas_cher2)(CblasRowMajor, uplo, *n, alpha, x, *incx, y, *incy, A, LDA ); for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) { a[ (*lda)*j+i ].real=A[ LDA*i+j ].real; @@ -861,7 +861,7 @@ void F77_cher2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_TEST_COMPLEX free(A); } else if (*layout == TEST_COL_MJR) - cblas_cher2( CblasColMajor, uplo, *n, alpha, x, *incx, y, *incy, a, *lda); + API_SUFFIX(cblas_cher2)( CblasColMajor, uplo, *n, alpha, x, *incx, y, *incy, a, *lda); else - cblas_cher2( UNDEFINED, uplo, *n, alpha, x, *incx, y, *incy, a, *lda); + API_SUFFIX(cblas_cher2)( UNDEFINED, uplo, *n, alpha, x, *incx, y, *incy, a, *lda); } diff --git a/CBLAS/testing/c_cblas3.c b/CBLAS/testing/c_cblas3.c index 4d396fe67..9d8eaff36 100644 --- a/CBLAS/testing/c_cblas3.c +++ b/CBLAS/testing/c_cblas3.c @@ -73,7 +73,7 @@ void F77_cgemm(CBLAS_INT *layout, char *transpa, char *transpb, CBLAS_INT *m, CB C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_cgemm( CblasRowMajor, transa, transb, *m, *n, *k, alpha, A, LDA, + API_SUFFIX(cblas_cgemm)( CblasRowMajor, transa, transb, *m, *n, *k, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -85,10 +85,10 @@ void F77_cgemm(CBLAS_INT *layout, char *transpa, char *transpb, CBLAS_INT *m, CB free(C); } else if (*layout == TEST_COL_MJR) - cblas_cgemm( CblasColMajor, transa, transb, *m, *n, *k, alpha, a, *lda, + API_SUFFIX(cblas_cgemm)( CblasColMajor, transa, transb, *m, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_cgemm( UNDEFINED, transa, transb, *m, *n, *k, alpha, a, *lda, + API_SUFFIX(cblas_cgemm)( UNDEFINED, transa, transb, *m, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } @@ -152,7 +152,7 @@ void F77_cgemmtr(CBLAS_INT *layout, char *uplop, char *transpa, char *transpb, C C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_cgemmtr( CblasRowMajor, uplo, transa, transb, *n, *k, alpha, A, LDA, + API_SUFFIX(cblas_cgemmtr)( CblasRowMajor, uplo, transa, transb, *n, *k, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -164,10 +164,10 @@ void F77_cgemmtr(CBLAS_INT *layout, char *uplop, char *transpa, char *transpb, C free(C); } else if (*layout == TEST_COL_MJR) - cblas_cgemmtr( CblasColMajor, uplo, transa, transb, *n, *k, alpha, a, *lda, + API_SUFFIX(cblas_cgemmtr)( CblasColMajor, uplo, transa, transb, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_cgemmtr( UNDEFINED, uplo, transa, transb, *n, *k, alpha, a, *lda, + API_SUFFIX(cblas_cgemmtr)( UNDEFINED, uplo, transa, transb, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } @@ -222,7 +222,7 @@ void F77_chemm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_I C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_chemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, + API_SUFFIX(cblas_chemm)( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -234,10 +234,10 @@ void F77_chemm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_I free(C); } else if (*layout == TEST_COL_MJR) - cblas_chemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + API_SUFFIX(cblas_chemm)( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_chemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + API_SUFFIX(cblas_chemm)( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_csymm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_INT *n, @@ -282,7 +282,7 @@ void F77_csymm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_I for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) C[i*LDC+j]=c[j*(*ldc)+i]; - cblas_csymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, + API_SUFFIX(cblas_csymm)( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) @@ -292,10 +292,10 @@ void F77_csymm(CBLAS_INT *layout, char *rtlf, char *uplow, CBLAS_INT *m, CBLAS_I free(C); } else if (*layout == TEST_COL_MJR) - cblas_csymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + API_SUFFIX(cblas_csymm)( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_csymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, + API_SUFFIX(cblas_csymm)( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } @@ -341,7 +341,7 @@ void F77_cherk(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_cherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, + API_SUFFIX(cblas_cherk)(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -352,10 +352,10 @@ void F77_cherk(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS free(C); } else if (*layout == TEST_COL_MJR) - cblas_cherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, + API_SUFFIX(cblas_cherk)(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, c, *ldc ); else - cblas_cherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, + API_SUFFIX(cblas_cherk)(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, c, *ldc ); } @@ -401,7 +401,7 @@ void F77_csyrk(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_csyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, + API_SUFFIX(cblas_csyrk)(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -412,10 +412,10 @@ void F77_csyrk(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS free(C); } else if (*layout == TEST_COL_MJR) - cblas_csyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, + API_SUFFIX(cblas_csyrk)(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, c, *ldc ); else - cblas_csyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, + API_SUFFIX(cblas_csyrk)(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, c, *ldc ); } void F77_cher2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS_INT *k, @@ -468,7 +468,7 @@ void F77_cher2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLA C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_cher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, + API_SUFFIX(cblas_cher2k)(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, B, LDB, *beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -480,10 +480,10 @@ void F77_cher2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLA free(C); } else if (*layout == TEST_COL_MJR) - cblas_cher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, + API_SUFFIX(cblas_cher2k)(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, *beta, c, *ldc ); else - cblas_cher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, + API_SUFFIX(cblas_cher2k)(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, *beta, c, *ldc ); } void F77_csyr2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLAS_INT *k, @@ -536,7 +536,7 @@ void F77_csyr2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLA C[i*LDC+j].real=c[j*(*ldc)+i].real; C[i*LDC+j].imag=c[j*(*ldc)+i].imag; } - cblas_csyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, + API_SUFFIX(cblas_csyr2k)(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, B, LDB, beta, C, LDC ); for( j=0; j<*n; j++ ) for( i=0; i<*n; i++ ) { @@ -548,10 +548,10 @@ void F77_csyr2k(CBLAS_INT *layout, char *uplow, char *transp, CBLAS_INT *n, CBLA free(C); } else if (*layout == TEST_COL_MJR) - cblas_csyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, + API_SUFFIX(cblas_csyr2k)(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); else - cblas_csyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, + API_SUFFIX(cblas_csyr2k)(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, b, *ldb, beta, c, *ldc ); } void F77_ctrmm(CBLAS_INT *layout, char *rtlf, char *uplow, char *transp, char *diagn, @@ -599,7 +599,7 @@ void F77_ctrmm(CBLAS_INT *layout, char *rtlf, char *uplow, char *transp, char *d B[i*LDB+j].real=b[j*(*ldb)+i].real; B[i*LDB+j].imag=b[j*(*ldb)+i].imag; } - cblas_ctrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, + API_SUFFIX(cblas_ctrmm)(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, A, LDA, B, LDB ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -610,10 +610,10 @@ void F77_ctrmm(CBLAS_INT *layout, char *rtlf, char *uplow, char *transp, char *d free(B); } else if (*layout == TEST_COL_MJR) - cblas_ctrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, + API_SUFFIX(cblas_ctrmm)(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); else - cblas_ctrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, + API_SUFFIX(cblas_ctrmm)(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); } @@ -662,7 +662,7 @@ void F77_ctrsm(CBLAS_INT *layout, char *rtlf, char *uplow, char *transp, char *d B[i*LDB+j].real=b[j*(*ldb)+i].real; B[i*LDB+j].imag=b[j*(*ldb)+i].imag; } - cblas_ctrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, + API_SUFFIX(cblas_ctrsm)(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, A, LDA, B, LDB ); for( j=0; j<*n; j++ ) for( i=0; i<*m; i++ ) { @@ -673,9 +673,9 @@ void F77_ctrsm(CBLAS_INT *layout, char *rtlf, char *uplow, char *transp, char *d free(B); } else if (*layout == TEST_COL_MJR) - cblas_ctrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, + API_SUFFIX(cblas_ctrsm)(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); else - cblas_ctrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, + API_SUFFIX(cblas_ctrsm)(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, a, *lda, b, *ldb); } diff --git a/CBLAS/testing/c_d2chke.c b/CBLAS/testing/c_d2chke.c index a4ff18ea2..8d190c34c 100644 --- a/CBLAS/testing/c_d2chke.c +++ b/CBLAS/testing/c_d2chke.c @@ -51,7 +51,7 @@ void F77_d2chke(char *rout if (link_xerbla) /* call these first to link */ { - cblas_xerbla(cblas_info,cblas_rout,""); + API_SUFFIX(cblas_xerbla)(cblas_info,cblas_rout,""); F77_xerbla(cblas_rout,&cblas_info, 1); } #endif @@ -63,821 +63,821 @@ void F77_d2chke(char *rout if (strncmp( sf,"cblas_dgemv",11)==0) { cblas_rout = "cblas_dgemv"; cblas_info = 1; - cblas_dgemv(INVALID, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_dgemv)(INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, INVALID, 0, 0, + API_SUFFIX(cblas_dgemv)(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_dgemv)(CblasColMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_dgemv)(CblasColMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_dgemv)(CblasColMajor, CblasNoTrans, 2, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_dgemv)(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dgemv(CblasColMajor, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_dgemv)(CblasColMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, INVALID, 0, 0, + API_SUFFIX(cblas_dgemv)(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_dgemv)(CblasRowMajor, CblasNoTrans, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_dgemv)(CblasRowMajor, CblasNoTrans, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_dgemv)(CblasRowMajor, CblasNoTrans, 0, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_dgemv)(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dgemv(CblasRowMajor, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_dgemv)(CblasRowMajor, CblasNoTrans, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dgbmv",11)==0) { cblas_rout = "cblas_dgbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, + API_SUFFIX(cblas_dgbmv)(INVALID, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, + API_SUFFIX(cblas_dgbmv)(CblasColMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, + API_SUFFIX(cblas_dgbmv)(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, + API_SUFFIX(cblas_dgbmv)(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, + API_SUFFIX(cblas_dgbmv)(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, + API_SUFFIX(cblas_dgbmv)(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, + API_SUFFIX(cblas_dgbmv)(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + API_SUFFIX(cblas_dgbmv)(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_dgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, + API_SUFFIX(cblas_dgbmv)(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, + API_SUFFIX(cblas_dgbmv)(CblasRowMajor, INVALID, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, + API_SUFFIX(cblas_dgbmv)(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, + API_SUFFIX(cblas_dgbmv)(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, + API_SUFFIX(cblas_dgbmv)(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, + API_SUFFIX(cblas_dgbmv)(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, + API_SUFFIX(cblas_dgbmv)(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + API_SUFFIX(cblas_dgbmv)(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_dgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, + API_SUFFIX(cblas_dgbmv)(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dsymv",11)==0) { cblas_rout = "cblas_dsymv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dsymv(INVALID, CblasUpper, 0, + API_SUFFIX(cblas_dsymv)(INVALID, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, INVALID, 0, + API_SUFFIX(cblas_dsymv)(CblasColMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dsymv)(CblasColMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, CblasUpper, 2, + API_SUFFIX(cblas_dsymv)(CblasColMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, CblasUpper, 0, + API_SUFFIX(cblas_dsymv)(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dsymv(CblasColMajor, CblasUpper, 0, + API_SUFFIX(cblas_dsymv)(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, INVALID, 0, + API_SUFFIX(cblas_dsymv)(CblasRowMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dsymv)(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, CblasUpper, 2, + API_SUFFIX(cblas_dsymv)(CblasRowMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, CblasUpper, 0, + API_SUFFIX(cblas_dsymv)(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dsymv(CblasRowMajor, CblasUpper, 0, + API_SUFFIX(cblas_dsymv)(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dskewsymv",15)==0) { cblas_rout = "cblas_dskewsymv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dskewsymv(INVALID, CblasUpper, 0, + API_SUFFIX(cblas_dskewsymv)(INVALID, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dskewsymv(CblasColMajor, INVALID, 0, + API_SUFFIX(cblas_dskewsymv)(CblasColMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dskewsymv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dskewsymv)(CblasColMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dskewsymv(CblasColMajor, CblasUpper, 2, + API_SUFFIX(cblas_dskewsymv)(CblasColMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dskewsymv(CblasColMajor, CblasUpper, 0, + API_SUFFIX(cblas_dskewsymv)(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dskewsymv(CblasColMajor, CblasUpper, 0, + API_SUFFIX(cblas_dskewsymv)(CblasColMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dskewsymv(CblasRowMajor, INVALID, 0, + API_SUFFIX(cblas_dskewsymv)(CblasRowMajor, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dskewsymv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dskewsymv)(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dskewsymv(CblasRowMajor, CblasUpper, 2, + API_SUFFIX(cblas_dskewsymv)(CblasRowMajor, CblasUpper, 2, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dskewsymv(CblasRowMajor, CblasUpper, 0, + API_SUFFIX(cblas_dskewsymv)(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dskewsymv(CblasRowMajor, CblasUpper, 0, + API_SUFFIX(cblas_dskewsymv)(CblasRowMajor, CblasUpper, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dsbmv",11)==0) { cblas_rout = "cblas_dsbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dsbmv(INVALID, CblasUpper, 0, 0, + API_SUFFIX(cblas_dsbmv)(INVALID, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, INVALID, 0, 0, + API_SUFFIX(cblas_dsbmv)(CblasColMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_dsbmv)(CblasColMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_dsbmv)(CblasColMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, 0, 1, + API_SUFFIX(cblas_dsbmv)(CblasColMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0, + API_SUFFIX(cblas_dsbmv)(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dsbmv(CblasColMajor, CblasUpper, 0, 0, + API_SUFFIX(cblas_dsbmv)(CblasColMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, INVALID, 0, 0, + API_SUFFIX(cblas_dsbmv)(CblasRowMajor, INVALID, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_dsbmv)(CblasRowMajor, CblasUpper, INVALID, 0, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_dsbmv)(CblasRowMajor, CblasUpper, 0, INVALID, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 1, + API_SUFFIX(cblas_dsbmv)(CblasRowMajor, CblasUpper, 0, 1, ALPHA, A, 1, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0, + API_SUFFIX(cblas_dsbmv)(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dsbmv(CblasRowMajor, CblasUpper, 0, 0, + API_SUFFIX(cblas_dsbmv)(CblasRowMajor, CblasUpper, 0, 0, ALPHA, A, 1, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dspmv",11)==0) { cblas_rout = "cblas_dspmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dspmv(INVALID, CblasUpper, 0, + API_SUFFIX(cblas_dspmv)(INVALID, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dspmv(CblasColMajor, INVALID, 0, + API_SUFFIX(cblas_dspmv)(CblasColMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dspmv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dspmv)(CblasColMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dspmv(CblasColMajor, CblasUpper, 0, + API_SUFFIX(cblas_dspmv)(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dspmv(CblasColMajor, CblasUpper, 0, + API_SUFFIX(cblas_dspmv)(CblasColMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dspmv(CblasRowMajor, INVALID, 0, + API_SUFFIX(cblas_dspmv)(CblasRowMajor, INVALID, 0, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dspmv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dspmv)(CblasRowMajor, CblasUpper, INVALID, ALPHA, A, X, 1, BETA, Y, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dspmv(CblasRowMajor, CblasUpper, 0, + API_SUFFIX(cblas_dspmv)(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 0, BETA, Y, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dspmv(CblasRowMajor, CblasUpper, 0, + API_SUFFIX(cblas_dspmv)(CblasRowMajor, CblasUpper, 0, ALPHA, A, X, 1, BETA, Y, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtrmv",11)==0) { cblas_rout = "cblas_dtrmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmv)(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtrmv)(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dtrmv)(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmv)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtrmv)(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dtrmv)(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmv)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtbmv",11)==0) { cblas_rout = "cblas_dtbmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dtbmv)(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dtbmv)(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtpmv",11)==0) { cblas_rout = "cblas_dtpmv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpmv)(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtpmv)(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dtpmv)(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpmv)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpmv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtpmv)(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dtpmv)(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpmv)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpmv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtrsv",11)==0) { cblas_rout = "cblas_dtrsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsv)(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtrsv)(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dtrsv)(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsv)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtrsv)(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dtrsv)(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsv)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 2, A, 1, X, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtbsv",11)==0) { cblas_rout = "cblas_dtbsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dtbsv)(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dtbsv)(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, A, 1, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, A, 1, X, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, A, 1, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 1, A, 1, X, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtbsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, A, 1, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dtpsv",11)==0) { cblas_rout = "cblas_dtpsv"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpsv)(INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtpsv)(CblasColMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dtpsv)(CblasColMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpsv)(CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpsv)(CblasColMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtpsv)(CblasRowMajor, INVALID, CblasNoTrans, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dtpsv)(CblasRowMajor, CblasUpper, INVALID, CblasNonUnit, 0, A, X, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpsv)(CblasRowMajor, CblasUpper, CblasNoTrans, INVALID, 0, A, X, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, A, X, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtpsv)(CblasRowMajor, CblasUpper, CblasNoTrans, CblasNonUnit, 0, A, X, 0 ); chkxer(); } else if (strncmp( sf,"cblas_dger",10)==0) { cblas_rout = "cblas_dger"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dger(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dger)(INVALID, 0, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dger(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dger)(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dger(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dger)(CblasColMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dger(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 ); + API_SUFFIX(cblas_dger)(CblasColMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dger(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 ); + API_SUFFIX(cblas_dger)(CblasColMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dger(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dger)(CblasColMajor, 2, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dger(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dger)(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dger(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dger)(CblasRowMajor, 0, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dger(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 ); + API_SUFFIX(cblas_dger)(CblasRowMajor, 0, 0, ALPHA, X, 0, Y, 1, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dger(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 ); + API_SUFFIX(cblas_dger)(CblasRowMajor, 0, 0, ALPHA, X, 1, Y, 0, A, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dger(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dger)(CblasRowMajor, 0, 2, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); } else if (strncmp( sf,"cblas_dsyr2",11)==0) { cblas_rout = "cblas_dsyr2"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dsyr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dsyr2)(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dsyr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dsyr2)(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dsyr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dsyr2)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 ); + API_SUFFIX(cblas_dsyr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 ); + API_SUFFIX(cblas_dsyr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dsyr2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dsyr2)(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dsyr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dsyr2)(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dsyr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dsyr2)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 ); + API_SUFFIX(cblas_dsyr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 ); + API_SUFFIX(cblas_dsyr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dsyr2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dsyr2)(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); } else if (strncmp( sf,"cblas_dskewsyr2",15)==0) { cblas_rout = "cblas_dskewsyr2"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dskewsyr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dskewsyr2)(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dskewsyr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dskewsyr2)(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dskewsyr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dskewsyr2)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dskewsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 ); + API_SUFFIX(cblas_dskewsyr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dskewsyr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 ); + API_SUFFIX(cblas_dskewsyr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dskewsyr2(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dskewsyr2)(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dskewsyr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dskewsyr2)(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dskewsyr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dskewsyr2)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dskewsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 ); + API_SUFFIX(cblas_dskewsyr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dskewsyr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 ); + API_SUFFIX(cblas_dskewsyr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dskewsyr2(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 ); + API_SUFFIX(cblas_dskewsyr2)(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, Y, 1, A, 1 ); chkxer(); } else if (strncmp( sf,"cblas_dspr2",11)==0) { cblas_rout = "cblas_dspr2"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dspr2(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A ); + API_SUFFIX(cblas_dspr2)(INVALID, CblasUpper, 0, ALPHA, X, 1, Y, 1, A ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dspr2(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A ); + API_SUFFIX(cblas_dspr2)(CblasColMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dspr2(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A ); + API_SUFFIX(cblas_dspr2)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A ); + API_SUFFIX(cblas_dspr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dspr2(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A ); + API_SUFFIX(cblas_dspr2)(CblasColMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dspr2(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A ); + API_SUFFIX(cblas_dspr2)(CblasRowMajor, INVALID, 0, ALPHA, X, 1, Y, 1, A ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dspr2(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A ); + API_SUFFIX(cblas_dspr2)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, Y, 1, A ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A ); + API_SUFFIX(cblas_dspr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, Y, 1, A ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dspr2(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A ); + API_SUFFIX(cblas_dspr2)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 1, Y, 0, A ); chkxer(); } else if (strncmp( sf,"cblas_dsyr",10)==0) { cblas_rout = "cblas_dsyr"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dsyr(INVALID, CblasUpper, 0, ALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_dsyr)(INVALID, CblasUpper, 0, ALPHA, X, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dsyr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_dsyr)(CblasColMajor, INVALID, 0, ALPHA, X, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dsyr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_dsyr)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dsyr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 ); + API_SUFFIX(cblas_dsyr)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsyr(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_dsyr)(CblasColMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = TRUE; - cblas_dsyr(CblasRowMajor, INVALID, 0, ALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_dsyr)(CblasRowMajor, INVALID, 0, ALPHA, X, 1, A, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = TRUE; - cblas_dsyr(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_dsyr)(CblasRowMajor, CblasUpper, INVALID, ALPHA, X, 1, A, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dsyr(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 ); + API_SUFFIX(cblas_dsyr)(CblasRowMajor, CblasUpper, 0, ALPHA, X, 0, A, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsyr(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 ); + API_SUFFIX(cblas_dsyr)(CblasRowMajor, CblasUpper, 2, ALPHA, X, 1, A, 1 ); chkxer(); } else if (strncmp( sf,"cblas_dspr",10)==0) { cblas_rout = "cblas_dspr"; cblas_info = 1; RowMajorStrg = FALSE; - cblas_dspr(INVALID, CblasUpper, 0, ALPHA, X, 1, A ); + API_SUFFIX(cblas_dspr)(INVALID, CblasUpper, 0, ALPHA, X, 1, A ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A ); + API_SUFFIX(cblas_dspr)(CblasColMajor, INVALID, 0, ALPHA, X, 1, A ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A ); + API_SUFFIX(cblas_dspr)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A ); + API_SUFFIX(cblas_dspr)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dspr(CblasColMajor, INVALID, 0, ALPHA, X, 1, A ); + API_SUFFIX(cblas_dspr)(CblasColMajor, INVALID, 0, ALPHA, X, 1, A ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dspr(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A ); + API_SUFFIX(cblas_dspr)(CblasColMajor, CblasUpper, INVALID, ALPHA, X, 1, A ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A ); + API_SUFFIX(cblas_dspr)(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A ); chkxer(); } if (cblas_ok == TRUE) diff --git a/CBLAS/testing/c_d3chke.c b/CBLAS/testing/c_d3chke.c index e8c119c2a..959c5bea0 100644 --- a/CBLAS/testing/c_d3chke.c +++ b/CBLAS/testing/c_d3chke.c @@ -51,7 +51,7 @@ void F77_d3chke(char *rout if (link_xerbla) /* call these first to link */ { - cblas_xerbla(cblas_info,cblas_rout,""); + API_SUFFIX(cblas_xerbla)(cblas_info,cblas_rout,""); F77_xerbla(cblas_rout,&cblas_info, 1); } #endif @@ -64,229 +64,229 @@ void F77_d3chke(char *rout cblas_rout = "cblas_dgemmtr" ; cblas_info = 1; - cblas_dgemmtr( INVALID, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_dgemmtr)( INVALID, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemmtr( INVALID, CblasUpper, CblasNoTrans, CblasTrans, 0, 0, + API_SUFFIX(cblas_dgemmtr)( INVALID, CblasUpper, CblasNoTrans, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemmtr( INVALID, CblasUpper,CblasTrans, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_dgemmtr)( INVALID, CblasUpper,CblasTrans, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemmtr( INVALID, CblasUpper, CblasTrans, CblasTrans, 0, 0, + API_SUFFIX(cblas_dgemmtr)( INVALID, CblasUpper, CblasTrans, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemmtr( INVALID, CblasLower, CblasNoTrans, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_dgemmtr)( INVALID, CblasLower, CblasNoTrans, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemmtr( INVALID, CblasLower, CblasNoTrans, CblasTrans, 0, 0, + API_SUFFIX(cblas_dgemmtr)( INVALID, CblasLower, CblasNoTrans, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemmtr( INVALID, CblasLower,CblasTrans, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_dgemmtr)( INVALID, CblasLower,CblasTrans, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemmtr( INVALID, CblasLower, CblasTrans, CblasTrans, 0, 0, + API_SUFFIX(cblas_dgemmtr)( INVALID, CblasLower, CblasTrans, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, INVALID, CblasNoTrans, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, INVALID, CblasNoTrans, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, INVALID, CblasNoTrans, CblasTrans, 0, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, INVALID, CblasNoTrans, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, INVALID, CblasNoTrans, 0, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, INVALID, CblasTrans, 0, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, INVALID, CblasTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, INVALID, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, INVALID, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, INVALID, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 0, INVALID, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 0, 2, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); /* Row Major */ cblas_info = 5; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, INVALID, 0, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, INVALID, 0, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, INVALID, 0, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, INVALID, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, INVALID, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 0, INVALID, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, 2, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasColMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasNoTrans, CblasTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_dgemmtr( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, + API_SUFFIX(cblas_dgemmtr)( CblasRowMajor, CblasUpper, CblasTrans, CblasTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); @@ -294,227 +294,227 @@ void F77_d3chke(char *rout cblas_rout = "cblas_dgemm" ; cblas_info = 1; - cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, + API_SUFFIX(cblas_dgemm)( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, + API_SUFFIX(cblas_dgemm)( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, + API_SUFFIX(cblas_dgemm)( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 1; - cblas_dgemm( INVALID, CblasTrans, CblasTrans, 0, 0, 0, + API_SUFFIX(cblas_dgemm)( INVALID, CblasTrans, CblasTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, INVALID, CblasNoTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, INVALID, CblasTrans, 0, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, INVALID, CblasTrans, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, INVALID, 0, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, INVALID, 0, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasTrans, 0, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasNoTrans, 0, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, CblasTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, CblasNoTrans, 2, 0, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasNoTrans, CblasTrans, 2, 0, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasNoTrans, 2, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = FALSE; - cblas_dgemm( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasColMajor, CblasTrans, CblasTrans, 2, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, CblasTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, CblasNoTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, CblasTrans, 0, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, CblasNoTrans, 2, 0, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 9; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, CblasTrans, 2, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, CblasTrans, 0, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasNoTrans, 0, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasNoTrans, CblasTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, CblasNoTrans, 0, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 14; RowMajorStrg = TRUE; - cblas_dgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, + API_SUFFIX(cblas_dgemm)( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); @@ -522,175 +522,175 @@ void F77_d3chke(char *rout cblas_rout = "cblas_dsymm" ; cblas_info = 1; - cblas_dsymm( INVALID, CblasRight, CblasLower, 0, 0, + API_SUFFIX(cblas_dsymm)( INVALID, CblasRight, CblasLower, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, INVALID, CblasUpper, 0, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, INVALID, CblasUpper, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasLeft, INVALID, 0, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasLeft, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasRight, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasRight, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasRight, CblasUpper, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 2, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasRight, CblasLower, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasRight, CblasUpper, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dsymm( CblasColMajor, CblasRight, CblasLower, 2, 0, + API_SUFFIX(cblas_dsymm)( CblasColMajor, CblasRight, CblasLower, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasLeft, CblasLower, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasLeft, CblasLower, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_dsymm)( CblasRowMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); @@ -698,175 +698,175 @@ void F77_d3chke(char *rout cblas_rout = "cblas_dskewsymm" ; cblas_info = 1; - cblas_dskewsymm( INVALID, CblasRight, CblasLower, 0, 0, + API_SUFFIX(cblas_dskewsymm)( INVALID, CblasRight, CblasLower, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, INVALID, CblasUpper, 0, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, INVALID, CblasUpper, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasLeft, INVALID, 0, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasLeft, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasLeft, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasRight, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasLeft, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasRight, CblasLower, INVALID, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasRight, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasLeft, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasRight, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasLeft, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasRight, CblasLower, 0, INVALID, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasRight, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasRight, CblasUpper, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasRight, CblasLower, 2, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasRight, CblasLower, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasRight, CblasUpper, 2, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasRight, CblasUpper, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dskewsymm( CblasColMajor, CblasRight, CblasLower, 2, 0, + API_SUFFIX(cblas_dskewsymm)( CblasColMajor, CblasRight, CblasLower, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasLeft, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasRight, CblasUpper, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasLeft, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasRight, CblasLower, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasLeft, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasRight, CblasUpper, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasLeft, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasRight, CblasLower, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasLeft, CblasUpper, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasLeft, CblasLower, 2, 0, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasLeft, CblasLower, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasLeft, CblasLower, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasLeft, CblasUpper, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasRight, CblasUpper, 0, 2, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasRight, CblasUpper, 0, 2, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasLeft, CblasLower, 0, 2, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasLeft, CblasLower, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dskewsymm( CblasRowMajor, CblasRight, CblasLower, 0, 2, + API_SUFFIX(cblas_dskewsymm)( CblasRowMajor, CblasRight, CblasLower, 0, 2, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); @@ -874,279 +874,279 @@ void F77_d3chke(char *rout cblas_rout = "cblas_dtrmm" ; cblas_info = 1; - cblas_dtrmm( INVALID, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( INVALID, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, INVALID, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasUpper, INVALID, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrmm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrmm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrmm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); @@ -1154,280 +1154,280 @@ void F77_d3chke(char *rout cblas_rout = "cblas_dtrsm" ; cblas_info = 1; - cblas_dtrsm( INVALID, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( INVALID, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, INVALID, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, INVALID, CblasNoTrans, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, INVALID, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasUpper, INVALID, CblasNonUnit, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, INVALID, 0, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = FALSE; - cblas_dtrsm( CblasColMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasColMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 6; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, INVALID, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 7; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, INVALID, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 2, 0, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 2 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasUpper, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasLeft, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 1, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasLower, CblasNoTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); cblas_info = 12; RowMajorStrg = TRUE; - cblas_dtrsm( CblasRowMajor, CblasRight, CblasLower, CblasTrans, + API_SUFFIX(cblas_dtrsm)( CblasRowMajor, CblasRight, CblasLower, CblasTrans, CblasNonUnit, 0, 2, ALPHA, A, 2, B, 1 ); chkxer(); @@ -1435,111 +1435,111 @@ void F77_d3chke(char *rout cblas_rout = "cblas_dsyrk" ; cblas_info = 1; - cblas_dsyrk( INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( INVALID, CblasUpper, CblasNoTrans, 0, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasUpper, INVALID, 0, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasLower, CblasTrans, INVALID, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasUpper, CblasTrans, 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasLower, CblasTrans, 0, INVALID, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsyrk( CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, ALPHA, A, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsyrk( CblasRowMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsyrk( CblasRowMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, ALPHA, A, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsyrk( CblasRowMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasUpper, CblasTrans, 0, 2, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasLower, CblasTrans, 0, 2, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dsyrk( CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dsyrk( CblasRowMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 2, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dsyrk( CblasRowMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = TRUE; - cblas_dsyrk( CblasRowMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyrk)( CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 2, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 2, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 2, BETA, C, 1 ); chkxer(); cblas_info = 11; RowMajorStrg = FALSE; - cblas_dsyrk( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyrk)( CblasColMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, BETA, C, 1 ); chkxer(); @@ -1547,286 +1547,286 @@ void F77_d3chke(char *rout cblas_rout = "cblas_dsyr2k" ; cblas_info = 1; - cblas_dsyr2k( INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( INVALID, CblasUpper, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasUpper, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasLower, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasUpper, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasLower, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsyr2k( CblasRowMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dsyr2k( CblasRowMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasUpper, CblasTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasLower, CblasTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dsyr2k( CblasRowMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dsyr2k( CblasRowMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasUpper, CblasTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasLower, CblasTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dsyr2k( CblasRowMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dsyr2k( CblasRowMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dsyr2k( CblasRowMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dsyr2k( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dsyr2k)( CblasColMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); } else if (strncmp( sf,"cblas_dskewsyr2k" ,16)==0) { cblas_rout = "cblas_dskewsyr2k" ; cblas_info = 1; - cblas_dskewsyr2k( INVALID, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( INVALID, CblasUpper, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 2; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, INVALID, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, INVALID, CblasNoTrans, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 3; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasUpper, INVALID, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasUpper, INVALID, 0, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasUpper, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasUpper, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasLower, CblasNoTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 4; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasLower, CblasTrans, INVALID, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasUpper, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasUpper, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasLower, CblasNoTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 5; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasLower, CblasTrans, 0, INVALID, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dskewsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dskewsyr2k( CblasRowMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dskewsyr2k( CblasRowMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, ALPHA, A, 1, B, 2, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = TRUE; - cblas_dskewsyr2k( CblasRowMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasUpper, CblasTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 8; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasLower, CblasTrans, 0, 2, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dskewsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dskewsyr2k( CblasRowMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dskewsyr2k( CblasRowMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasLower, CblasNoTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = TRUE; - cblas_dskewsyr2k( CblasRowMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasUpper, CblasTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 1, BETA, C, 2 ); chkxer(); cblas_info = 10; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasLower, CblasTrans, 0, 2, ALPHA, A, 2, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dskewsyr2k( CblasRowMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dskewsyr2k( CblasRowMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dskewsyr2k( CblasRowMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = TRUE; - cblas_dskewsyr2k( CblasRowMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasRowMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasUpper, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasUpper, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasUpper, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasUpper, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasLower, CblasNoTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasLower, CblasNoTrans, 2, 0, ALPHA, A, 2, B, 2, BETA, C, 1 ); chkxer(); cblas_info = 13; RowMajorStrg = FALSE; - cblas_dskewsyr2k( CblasColMajor, CblasLower, CblasTrans, + API_SUFFIX(cblas_dskewsyr2k)( CblasColMajor, CblasLower, CblasTrans, 2, 0, ALPHA, A, 1, B, 1, BETA, C, 1 ); chkxer(); } diff --git a/CBLAS/testing/c_dblas1.c b/CBLAS/testing/c_dblas1.c index bc4851012..66b89fea8 100644 --- a/CBLAS/testing/c_dblas1.c +++ b/CBLAS/testing/c_dblas1.c @@ -10,20 +10,20 @@ #include "cblas.h" double F77_dasum(const CBLAS_INT *N, double *X, const CBLAS_INT *incX) { - return cblas_dasum(*N, X, *incX); + return API_SUFFIX(cblas_dasum)(*N, X, *incX); } void F77_daxpy(const CBLAS_INT *N, const double *alpha, const double *X, const CBLAS_INT *incX, double *Y, const CBLAS_INT *incY) { - cblas_daxpy(*N, *alpha, X, *incX, Y, *incY); + API_SUFFIX(cblas_daxpy)(*N, *alpha, X, *incX, Y, *incY); return; } void F77_daxpby(const CBLAS_INT *N, const double *alpha, const double *X, const CBLAS_INT *incX, const double *beta, double *Y, const CBLAS_INT *incY) { - cblas_daxpby(*N, *alpha, X, *incX, *beta, Y, *incY); + API_SUFFIX(cblas_daxpby)(*N, *alpha, X, *incX, *beta, Y, *incY); return; } @@ -31,24 +31,24 @@ void F77_daxpby(const CBLAS_INT *N, const double *alpha, const double *X, void F77_dcopy(const CBLAS_INT *N, double *X, const CBLAS_INT *incX, double *Y, const CBLAS_INT *incY) { - cblas_dcopy(*N, X, *incX, Y, *incY); + API_SUFFIX(cblas_dcopy)(*N, X, *incX, Y, *incY); return; } double F77_ddot(const CBLAS_INT *N, const double *X, const CBLAS_INT *incX, const double *Y, const CBLAS_INT *incY) { - return cblas_ddot(*N, X, *incX, Y, *incY); + return API_SUFFIX(cblas_ddot)(*N, X, *incX, Y, *incY); } double F77_dnrm2(const CBLAS_INT *N, const double *X, const CBLAS_INT *incX) { - return cblas_dnrm2(*N, X, *incX); + return API_SUFFIX(cblas_dnrm2)(*N, X, *incX); } void F77_drotg( double *a, double *b, double *c, double *s) { - cblas_drotg(a,b,c,s); + API_SUFFIX(cblas_drotg)(a,b,c,s); return; } @@ -56,26 +56,26 @@ void F77_drot( const CBLAS_INT *N, double *X, const CBLAS_INT *incX, double *Y, const CBLAS_INT *incY, const double *c, const double *s) { - cblas_drot(*N,X,*incX,Y,*incY,*c,*s); + API_SUFFIX(cblas_drot)(*N,X,*incX,Y,*incY,*c,*s); return; } void F77_dscal(const CBLAS_INT *N, const double *alpha, double *X, const CBLAS_INT *incX) { - cblas_dscal(*N, *alpha, X, *incX); + API_SUFFIX(cblas_dscal)(*N, *alpha, X, *incX); return; } void F77_dswap( const CBLAS_INT *N, double *X, const CBLAS_INT *incX, double *Y, const CBLAS_INT *incY) { - cblas_dswap(*N,X,*incX,Y,*incY); + API_SUFFIX(cblas_dswap)(*N,X,*incX,Y,*incY); return; } CBLAS_INT F77_idamax(const CBLAS_INT *N, const double *X, const CBLAS_INT *incX) { if (*N < 1 || *incX < 1) return(0); - return (cblas_idamax(*N, X, *incX)+1); + return (API_SUFFIX(cblas_idamax)(*N, X, *incX)+1); } diff --git a/CBLAS/testing/c_dblas2.c b/CBLAS/testing/c_dblas2.c index b80dad8b1..428f72a0a 100644 --- a/CBLAS/testing/c_dblas2.c +++ b/CBLAS/testing/c_dblas2.c @@ -27,15 +27,15 @@ void F77_dgemv(CBLAS_INT *layout, char *transp, CBLAS_INT *m, CBLAS_INT *n, doub for( i=0; i<*m; i++ ) for( j=0; j<*n; j++ ) A[ LDA*i+j ]=a[ (*lda)*j+i ]; - cblas_dgemv( CblasRowMajor, trans, + API_SUFFIX(cblas_dgemv)( CblasRowMajor, trans, *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy ); free(A); } else if (*layout == TEST_COL_MJR) - cblas_dgemv( CblasColMajor, trans, + API_SUFFIX(cblas_dgemv)( CblasColMajor, trans, *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy ); else - cblas_dgemv( UNDEFINED, trans, + API_SUFFIX(cblas_dgemv)( UNDEFINED, trans, *m, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy ); } @@ -54,14 +54,14 @@ void F77_dger(CBLAS_INT *layout, CBLAS_INT *m, CBLAS_INT *n, double *alpha, doub A[ LDA*i+j ]=a[ (*lda)*j+i ]; } - cblas_dger(CblasRowMajor, *m, *n, *alpha, x, *incx, y, *incy, A, LDA ); + API_SUFFIX(cblas_dger)(CblasRowMajor, *m, *n, *alpha, x, *incx, y, *incy, A, LDA ); for( i=0; i<*m; i++ ) for( j=0; j<*n; j++ ) a[ (*lda)*j+i ]=A[ LDA*i+j ]; free(A); } else - cblas_dger( CblasColMajor, *m, *n, *alpha, x, *incx, y, *incy, a, *lda ); + API_SUFFIX(cblas_dger)( CblasColMajor, *m, *n, *alpha, x, *incx, y, *incy, a, *lda ); } void F77_dtrmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, @@ -86,13 +86,13 @@ void F77_dtrmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) A[ LDA*i+j ]=a[ (*lda)*j+i ]; - cblas_dtrmv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx); + API_SUFFIX(cblas_dtrmv)(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx); free(A); } else if (*layout == TEST_COL_MJR) - cblas_dtrmv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx); + API_SUFFIX(cblas_dtrmv)(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx); else { - cblas_dtrmv(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx); + API_SUFFIX(cblas_dtrmv)(UNDEFINED, uplo, trans, diag, *n, a, *lda, x, *incx); } } @@ -118,11 +118,11 @@ void F77_dtrsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) A[ LDA*i+j ]=a[ (*lda)*j+i ]; - cblas_dtrsv(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx ); + API_SUFFIX(cblas_dtrsv)(CblasRowMajor, uplo, trans, diag, *n, A, LDA, x, *incx ); free(A); } else - cblas_dtrsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); + API_SUFFIX(cblas_dtrsv)(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); } void F77_dsymv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, double *alpha, double *a, CBLAS_INT *lda, double *x, CBLAS_INT *incx, double *beta, double *y, @@ -143,12 +143,12 @@ void F77_dsymv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, double *alpha, doub for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) A[ LDA*i+j ]=a[ (*lda)*j+i ]; - cblas_dsymv(CblasRowMajor, uplo, *n, *alpha, A, LDA, x, *incx, + API_SUFFIX(cblas_dsymv)(CblasRowMajor, uplo, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy ); free(A); } else - cblas_dsymv(CblasColMajor, uplo, *n, *alpha, a, *lda, x, *incx, + API_SUFFIX(cblas_dsymv)(CblasColMajor, uplo, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy ); } @@ -171,12 +171,12 @@ void F77_dskewsymv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, double *alpha, for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) A[ LDA*i+j ]=a[ (*lda)*j+i ]; - cblas_dskewsymv(CblasRowMajor, uplo, *n, *alpha, A, LDA, x, *incx, + API_SUFFIX(cblas_dskewsymv)(CblasRowMajor, uplo, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy ); free(A); } else - cblas_dskewsymv(CblasColMajor, uplo, *n, *alpha, a, *lda, x, *incx, + API_SUFFIX(cblas_dskewsymv)(CblasColMajor, uplo, *n, *alpha, a, *lda, x, *incx, *beta, y, *incy ); } @@ -198,14 +198,14 @@ void F77_dsyr(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, double *alpha, doubl for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) A[ LDA*i+j ]=a[ (*lda)*j+i ]; - cblas_dsyr(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA); + API_SUFFIX(cblas_dsyr)(CblasRowMajor, uplo, *n, *alpha, x, *incx, A, LDA); for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) a[ (*lda)*j+i ]=A[ LDA*i+j ]; free(A); } else - cblas_dsyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda); + API_SUFFIX(cblas_dsyr)(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda); } void F77_dsyr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, double *alpha, double *x, @@ -226,14 +226,14 @@ void F77_dsyr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, double *alpha, doub for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) A[ LDA*i+j ]=a[ (*lda)*j+i ]; - cblas_dsyr2(CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, A, LDA); + API_SUFFIX(cblas_dsyr2)(CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, A, LDA); for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) a[ (*lda)*j+i ]=A[ LDA*i+j ]; free(A); } else - cblas_dsyr2(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda); + API_SUFFIX(cblas_dsyr2)(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda); } void F77_dskewsyr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, double *alpha, double *x, @@ -254,14 +254,14 @@ void F77_dskewsyr2(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, double *alpha, for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) A[ LDA*i+j ]=a[ (*lda)*j+i ]; - cblas_dskewsyr2(CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, A, LDA); + API_SUFFIX(cblas_dskewsyr2)(CblasRowMajor, uplo, *n, *alpha, x, *incx, y, *incy, A, LDA); for( i=0; i<*n; i++ ) for( j=0; j<*n; j++ ) a[ (*lda)*j+i ]=A[ LDA*i+j ]; free(A); } else - cblas_dskewsyr2(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda); + API_SUFFIX(cblas_dskewsyr2)(CblasColMajor, uplo, *n, *alpha, x, *incx, y, *incy, a, *lda); } void F77_dgbmv(CBLAS_INT *layout, char *transp, CBLAS_INT *m, CBLAS_INT *n, CBLAS_INT *kl, CBLAS_INT *ku, @@ -297,12 +297,12 @@ void F77_dgbmv(CBLAS_INT *layout, char *transp, CBLAS_INT *m, CBLAS_INT *n, CBLA for( j=jcol; j<(*n+*kl); j++ ) A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; } - cblas_dgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha, + API_SUFFIX(cblas_dgbmv)( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha, A, LDA, x, *incx, *beta, y, *incy ); free(A); } else - cblas_dgbmv( CblasColMajor, trans, *m, *n, *kl, *ku, *alpha, + API_SUFFIX(cblas_dgbmv)( CblasColMajor, trans, *m, *n, *kl, *ku, *alpha, a, *lda, x, *incx, *beta, y, *incy ); } @@ -349,11 +349,11 @@ void F77_dtbmv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; } } - cblas_dtbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); + API_SUFFIX(cblas_dtbmv)(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } else - cblas_dtbmv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); + API_SUFFIX(cblas_dtbmv)(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); } void F77_dtbsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, @@ -399,11 +399,11 @@ void F77_dtbsv(CBLAS_INT *layout, char *uplow, char *transp, char *diagn, A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; } } - cblas_dtbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); + API_SUFFIX(cblas_dtbsv)(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, *incx); free(A); } else - cblas_dtbsv(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); + API_SUFFIX(cblas_dtbsv)(CblasColMajor, uplo, trans, diag, *n, *k, a, *lda, x, *incx); } void F77_dsbmv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_INT *k, double *alpha, @@ -446,12 +446,12 @@ void F77_dsbmv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, CBLAS_INT *k, doubl A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; } } - cblas_dsbmv(CblasRowMajor, uplo, *n, *k, *alpha, A, LDA, x, *incx, + API_SUFFIX(cblas_dsbmv)(CblasRowMajor, uplo, *n, *k, *alpha, A, LDA, x, *incx, *beta, y, *incy ); free(A); } else - cblas_dsbmv(CblasColMajor, uplo, *n, *k, *alpha, a, *lda, x, *incx, + API_SUFFIX(cblas_dsbmv)(CblasColMajor, uplo, *n, *k, *alpha, a, *lda, x, *incx, *beta, y, *incy ); } @@ -487,13 +487,13 @@ void F77_dspmv(CBLAS_INT *layout, char *uplow, CBLAS_INT *n, double *alpha, doub for( j=0; j Date: Mon, 4 May 2026 14:36:42 +0200 Subject: [PATCH 25/39] Added BUILD_DEFAULT_API guards around default CBLAS/LAPACKE examples --- CBLAS/examples/CMakeLists.txt | 14 ++++++++------ LAPACKE/example/CMakeLists.txt | 26 ++++++++++++++------------ 2 files changed, 22 insertions(+), 18 deletions(-) diff --git a/CBLAS/examples/CMakeLists.txt b/CBLAS/examples/CMakeLists.txt index 61042430e..a6fe68b86 100644 --- a/CBLAS/examples/CMakeLists.txt +++ b/CBLAS/examples/CMakeLists.txt @@ -1,11 +1,13 @@ -add_executable(xexample1_CBLAS cblas_example1.c) -add_executable(xexample2_CBLAS cblas_example2.c) +if(BUILD_DEFAULT_API) + add_executable(xexample1_CBLAS cblas_example1.c) + add_executable(xexample2_CBLAS cblas_example2.c) -target_link_libraries(xexample1_CBLAS ${CBLASLIB}) -target_link_libraries(xexample2_CBLAS ${CBLASLIB} ${BLAS_LIBRARIES}) + target_link_libraries(xexample1_CBLAS ${CBLASLIB}) + target_link_libraries(xexample2_CBLAS ${CBLASLIB} ${BLAS_LIBRARIES}) -add_test(example1_CBLAS ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample1_CBLAS) -add_test(example2_CBLAS ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample2_CBLAS) + add_test(example1_CBLAS ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample1_CBLAS) + add_test(example2_CBLAS ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample2_CBLAS) +endif() if(BUILD_INDEX64_EXT_API) add_executable(xexample1_64_CBLAS cblas_example1_64.c) diff --git a/LAPACKE/example/CMakeLists.txt b/LAPACKE/example/CMakeLists.txt index 3c9f5c92f..bddeeacff 100644 --- a/LAPACKE/example/CMakeLists.txt +++ b/LAPACKE/example/CMakeLists.txt @@ -1,17 +1,19 @@ -add_executable(xexample_DGESV_rowmajor example_DGESV_rowmajor.c lapacke_example_aux.c lapacke_example_aux.h) -add_executable(xexample_DGESV_colmajor example_DGESV_colmajor.c lapacke_example_aux.c lapacke_example_aux.h) -add_executable(xexample_DGELS_rowmajor example_DGELS_rowmajor.c lapacke_example_aux.c lapacke_example_aux.h) -add_executable(xexample_DGELS_colmajor example_DGELS_colmajor.c lapacke_example_aux.c lapacke_example_aux.h) +if(BUILD_DEFAULT_API) + add_executable(xexample_DGESV_rowmajor example_DGESV_rowmajor.c lapacke_example_aux.c lapacke_example_aux.h) + add_executable(xexample_DGESV_colmajor example_DGESV_colmajor.c lapacke_example_aux.c lapacke_example_aux.h) + add_executable(xexample_DGELS_rowmajor example_DGELS_rowmajor.c lapacke_example_aux.c lapacke_example_aux.h) + add_executable(xexample_DGELS_colmajor example_DGELS_colmajor.c lapacke_example_aux.c lapacke_example_aux.h) -target_link_libraries(xexample_DGESV_rowmajor ${LAPACKELIB}) -target_link_libraries(xexample_DGESV_colmajor ${LAPACKELIB}) -target_link_libraries(xexample_DGELS_rowmajor ${LAPACKELIB}) -target_link_libraries(xexample_DGELS_colmajor ${LAPACKELIB}) + target_link_libraries(xexample_DGESV_rowmajor ${LAPACKELIB}) + target_link_libraries(xexample_DGESV_colmajor ${LAPACKELIB}) + target_link_libraries(xexample_DGELS_rowmajor ${LAPACKELIB}) + target_link_libraries(xexample_DGELS_colmajor ${LAPACKELIB}) -add_test(example_DGESV_rowmajor ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample_DGESV_rowmajor) -add_test(example_DGESV_colmajor ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample_DGESV_colmajor) -add_test(example_DGELS_rowmajor ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample_DGELS_rowmajor) -add_test(example_DGELS_colmajor ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample_DGELS_colmajor) + add_test(example_DGESV_rowmajor ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample_DGESV_rowmajor) + add_test(example_DGESV_colmajor ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample_DGESV_colmajor) + add_test(example_DGELS_rowmajor ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample_DGELS_rowmajor) + add_test(example_DGELS_colmajor ${CMAKE_RUNTIME_OUTPUT_DIRECTORY}/xexample_DGELS_colmajor) +endif() if(BUILD_INDEX64_EXT_API) add_executable(xexample_DGESV_rowmajor_64 example_DGESV_rowmajor_64.c lapacke_example_aux.c lapacke_example_aux.h) From 932ae47213f764168234f06b5b866839e74940f5 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 4 May 2026 14:37:35 +0200 Subject: [PATCH 26/39] Added _64 suffixed LAPACK test suite targets --- TESTING/EIG/CMakeLists.txt | 178 ++++++++-------- TESTING/LIN/CMakeLists.txt | 424 +++++++++++++++++++------------------ 2 files changed, 317 insertions(+), 285 deletions(-) diff --git a/TESTING/EIG/CMakeLists.txt b/TESTING/EIG/CMakeLists.txt index 90937a796..0c9792b67 100644 --- a/TESTING/EIG/CMakeLists.txt +++ b/TESTING/EIG/CMakeLists.txt @@ -13,101 +13,113 @@ ######################################################################## set(AEIGTST - alahdg.f - alasum.f - alasvm.f - alareq.f - ilaenv.f - xerbla.f - xlaenv.f - chkxer.f) - -set(SCIGTST slafts.f slahd2.f slasum.f slatb9.f sstech.f sstect.f - ssvdch.f ssvdct.f ssxt1.f) - -set(SEIGTST schkee.F - sbdt01.f sbdt02.f sbdt03.f sbdt04.f sbdt05.f - schkbb.f schkbd.f schkbk.f schkbl.f schkec.f - schkgg.f schkgk.f schkgl.f schkhs.f schksb.f schkst.f schkst2stg.f schksb2stg.f - sckcsd.f sckglm.f sckgqr.f sckgsv.f scklse.f scsdts.f - sdrges.f sdrgev.f sdrges3.f sdrgev3.f sdrgsx.f sdrgvx.f - sdrvbd.f sdrves.f sdrvev.f sdrvsg.f sdrvsg2stg.f - sdrvst.f sdrvst2stg.f sdrvsx.f sdrvvx.f - serrbd.f serrec.f serred.f serrgg.f serrhs.f serrst.f - sget02.f sget10.f sget22.f sget23.f sget24.f sget31.f - sget32.f sget33.f sget34.f sget35.f sget36.f - sget37.f sget38.f sget39.f sget40.f sget51.f sget52.f sget53.f - sget54.f sglmts.f sgqrts.f sgrqts.f sgsvts3.f - shst01.f slarfy.f slarhs.f slatm4.f slctes.f slctsx.f slsets.f sort01.f - sort03.f ssbt21.f ssgt01.f sslect.f sspt21.f sstt21.f - sstt22.f ssyl01.f ssyt21.f ssyt22.f) + alahdg.f alasum.f alasvm.f alareq.f + ilaenv.f xerbla.f xlaenv.f chkxer.f) + +set(SCIGTST + slafts.f slahd2.f slasum.f slatb9.f sstech.f sstect.f + ssvdch.f ssvdct.f ssxt1.f) + +set(SEIGTST + schkee.F + sbdt01.f sbdt02.f sbdt03.f sbdt04.f sbdt05.f + schkbb.f schkbd.f schkbk.f schkbl.f schkec.f + schkgg.f schkgk.f schkgl.f schkhs.f schksb.f schkst.f schkst2stg.f schksb2stg.f + sckcsd.f sckglm.f sckgqr.f sckgsv.f scklse.f scsdts.f + sdrges.f sdrgev.f sdrges3.f sdrgev3.f sdrgsx.f sdrgvx.f + sdrvbd.f sdrves.f sdrvev.f sdrvsg.f sdrvsg2stg.f + sdrvst.f sdrvst2stg.f sdrvsx.f sdrvvx.f + serrbd.f serrec.f serred.f serrgg.f serrhs.f serrst.f + sget02.f sget10.f sget22.f sget23.f sget24.f sget31.f + sget32.f sget33.f sget34.f sget35.f sget36.f + sget37.f sget38.f sget39.f sget40.f sget51.f sget52.f sget53.f + sget54.f sglmts.f sgqrts.f sgrqts.f sgsvts3.f + shst01.f slarfy.f slarhs.f slatm4.f slctes.f slctsx.f slsets.f sort01.f + sort03.f ssbt21.f ssgt01.f sslect.f sspt21.f sstt21.f + sstt22.f ssyl01.f ssyt21.f ssyt22.f) set(SDMDEIGTST schkdmd.f90) -set(CEIGTST cchkee.F - cbdt01.f cbdt02.f cbdt03.f cbdt05.f - cchkbb.f cchkbd.f cchkbk.f cchkbl.f cchkec.f - cchkgg.f cchkgk.f cchkgl.f cchkhb.f cchkhs.f cchkst.f cchkst2stg.f cchkhb2stg.f - cckcsd.f cckglm.f cckgqr.f cckgsv.f ccklse.f ccsdts.f - cdrges.f cdrgev.f cdrges3.f cdrgev3.f cdrgsx.f cdrgvx.f - cdrvbd.f cdrves.f cdrvev.f cdrvsg.f cdrvsg2stg.f - cdrvst.f cdrvst2stg.f cdrvsx.f cdrvvx.f - cerrbd.f cerrec.f cerred.f cerrgg.f cerrhs.f cerrst.f - cget02.f cget10.f cget22.f cget23.f cget24.f - cget35.f cget36.f cget37.f cget38.f cget51.f cget52.f - cget54.f cglmts.f cgqrts.f cgrqts.f cgsvts3.f - chbt21.f chet21.f chet22.f chpt21.f chst01.f - clarfy.f clarhs.f clatm4.f clctes.f clctsx.f clsets.f csbmv.f - csgt01.f cslect.f csyl01.f - cstt21.f cstt22.f cunt01.f cunt03.f) +set(CEIGTST + cchkee.F + cbdt01.f cbdt02.f cbdt03.f cbdt05.f + cchkbb.f cchkbd.f cchkbk.f cchkbl.f cchkec.f + cchkgg.f cchkgk.f cchkgl.f cchkhb.f cchkhs.f cchkst.f cchkst2stg.f cchkhb2stg.f + cckcsd.f cckglm.f cckgqr.f cckgsv.f ccklse.f ccsdts.f + cdrges.f cdrgev.f cdrges3.f cdrgev3.f cdrgsx.f cdrgvx.f + cdrvbd.f cdrves.f cdrvev.f cdrvsg.f cdrvsg2stg.f + cdrvst.f cdrvst2stg.f cdrvsx.f cdrvvx.f + cerrbd.f cerrec.f cerred.f cerrgg.f cerrhs.f cerrst.f + cget02.f cget10.f cget22.f cget23.f cget24.f + cget35.f cget36.f cget37.f cget38.f cget51.f cget52.f + cget54.f cglmts.f cgqrts.f cgrqts.f cgsvts3.f + chbt21.f chet21.f chet22.f chpt21.f chst01.f + clarfy.f clarhs.f clatm4.f clctes.f clctsx.f clsets.f csbmv.f + csgt01.f cslect.f csyl01.f + cstt21.f cstt22.f cunt01.f cunt03.f) set(CDMDEIGTST cchkdmd.f90) -set(DZIGTST dlafts.f dlahd2.f dlasum.f dlatb9.f dstech.f dstect.f - dsvdch.f dsvdct.f dsxt1.f) - -set(DEIGTST dchkee.F - dbdt01.f dbdt02.f dbdt03.f dbdt04.f dbdt05.f - dchkbb.f dchkbd.f dchkbk.f dchkbl.f dchkec.f - dchkgg.f dchkgk.f dchkgl.f dchkhs.f dchksb.f dchkst.f dchkst2stg.f dchksb2stg.f - dckcsd.f dckglm.f dckgqr.f dckgsv.f dcklse.f dcsdts.f - ddrges.f ddrgev.f ddrges3.f ddrgev3.f ddrgsx.f ddrgvx.f - ddrvbd.f ddrves.f ddrvev.f ddrvsg.f ddrvsg2stg.f - ddrvst.f ddrvst2stg.f ddrvsx.f ddrvvx.f - derrbd.f derrec.f derred.f derrgg.f derrhs.f derrst.f - dget02.f dget10.f dget22.f dget23.f dget24.f dget31.f - dget32.f dget33.f dget34.f dget35.f dget36.f - dget37.f dget38.f dget39.f dget40.f dget51.f dget52.f dget53.f - dget54.f dglmts.f dgqrts.f dgrqts.f dgsvts3.f - dhst01.f dlarfy.f dlarhs.f dlatm4.f dlctes.f dlctsx.f dlsets.f dort01.f - dort03.f dsbt21.f dsgt01.f dslect.f dspt21.f dstt21.f - dstt22.f dsyl01.f dsyt21.f dsyt22.f) +set(DZIGTST + dlafts.f dlahd2.f dlasum.f dlatb9.f dstech.f dstect.f + dsvdch.f dsvdct.f dsxt1.f) + +set(DEIGTST + dchkee.F + dbdt01.f dbdt02.f dbdt03.f dbdt04.f dbdt05.f + dchkbb.f dchkbd.f dchkbk.f dchkbl.f dchkec.f + dchkgg.f dchkgk.f dchkgl.f dchkhs.f dchksb.f dchkst.f dchkst2stg.f dchksb2stg.f + dckcsd.f dckglm.f dckgqr.f dckgsv.f dcklse.f dcsdts.f + ddrges.f ddrgev.f ddrges3.f ddrgev3.f ddrgsx.f ddrgvx.f + ddrvbd.f ddrves.f ddrvev.f ddrvsg.f ddrvsg2stg.f + ddrvst.f ddrvst2stg.f ddrvsx.f ddrvvx.f + derrbd.f derrec.f derred.f derrgg.f derrhs.f derrst.f + dget02.f dget10.f dget22.f dget23.f dget24.f dget31.f + dget32.f dget33.f dget34.f dget35.f dget36.f + dget37.f dget38.f dget39.f dget40.f dget51.f dget52.f dget53.f + dget54.f dglmts.f dgqrts.f dgrqts.f dgsvts3.f + dhst01.f dlarfy.f dlarhs.f dlatm4.f dlctes.f dlctsx.f dlsets.f dort01.f + dort03.f dsbt21.f dsgt01.f dslect.f dspt21.f dstt21.f + dstt22.f dsyl01.f dsyt21.f dsyt22.f) set(DDMDEIGTST dchkdmd.f90) -set(ZEIGTST zchkee.F - zbdt01.f zbdt02.f zbdt03.f zbdt05.f - zchkbb.f zchkbd.f zchkbk.f zchkbl.f zchkec.f - zchkgg.f zchkgk.f zchkgl.f zchkhb.f zchkhs.f zchkst.f zchkst2stg.f zchkhb2stg.f - zckcsd.f zckglm.f zckgqr.f zckgsv.f zcklse.f zcsdts.f - zdrges.f zdrgev.f zdrges3.f zdrgev3.f zdrgsx.f zdrgvx.f - zdrvbd.f zdrves.f zdrvev.f zdrvsg.f zdrvsg2stg.f - zdrvst.f zdrvst2stg.f zdrvsx.f zdrvvx.f - zerrbd.f zerrec.f zerred.f zerrgg.f zerrhs.f zerrst.f - zget02.f zget10.f zget22.f zget23.f zget24.f - zget35.f zget36.f zget37.f zget38.f zget51.f zget52.f - zget54.f zglmts.f zgqrts.f zgrqts.f zgsvts3.f - zhbt21.f zhet21.f zhet22.f zhpt21.f zhst01.f - zlarfy.f zlarhs.f zlatm4.f zlctes.f zlctsx.f zlsets.f zsbmv.f - zsgt01.f zslect.f zsyl01.f - zstt21.f zstt22.f zunt01.f zunt03.f) +set(ZEIGTST + zchkee.F + zbdt01.f zbdt02.f zbdt03.f zbdt05.f + zchkbb.f zchkbd.f zchkbk.f zchkbl.f zchkec.f + zchkgg.f zchkgk.f zchkgl.f zchkhb.f zchkhs.f zchkst.f zchkst2stg.f zchkhb2stg.f + zckcsd.f zckglm.f zckgqr.f zckgsv.f zcklse.f zcsdts.f + zdrges.f zdrgev.f zdrges3.f zdrgev3.f zdrgsx.f zdrgvx.f + zdrvbd.f zdrves.f zdrvev.f zdrvsg.f zdrvsg2stg.f + zdrvst.f zdrvst2stg.f zdrvsx.f zdrvvx.f + zerrbd.f zerrec.f zerred.f zerrgg.f zerrhs.f zerrst.f + zget02.f zget10.f zget22.f zget23.f zget24.f + zget35.f zget36.f zget37.f zget38.f zget51.f zget52.f + zget54.f zglmts.f zgqrts.f zgrqts.f zgsvts3.f + zhbt21.f zhet21.f zhet22.f zhpt21.f zhst01.f + zlarfy.f zlarhs.f zlatm4.f zlctes.f zlctsx.f zlsets.f zsbmv.f + zsgt01.f zslect.f zsyl01.f + zstt21.f zstt22.f zunt01.f zunt03.f) set(ZDMDEIGTST zchkdmd.f90) -macro(add_eig_executable name) - add_executable(${name} ${ARGN}) - target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) -endmacro() +function(add_eig_executable name) + set(sources ${ARGN}) + if(BUILD_DEFAULT_API) + add_executable(${name} ${sources}) + target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) + endif() + + if(BUILD_INDEX64_EXT_API) + include(ExtendedAPIHelpers) + generate_64bit_suffixed_sources(${name}_64 ${sources} sources_64) + + add_executable(${name}_64 ${sources_64}) + target_compile_options(${name}_64 PRIVATE ${FOPT_ILP64}) + target_link_libraries(${name}_64 ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) + endif() +endfunction() if(BUILD_SINGLE) add_eig_executable(xeigtsts ${SEIGTST} ${SCIGTST} ${AEIGTST}) diff --git a/TESTING/LIN/CMakeLists.txt b/TESTING/LIN/CMakeLists.txt index e28818c76..6b3ba1b87 100644 --- a/TESTING/LIN/CMakeLists.txt +++ b/TESTING/LIN/CMakeLists.txt @@ -1,148 +1,150 @@ set(ALINTST - aladhd.f alaerh.f alaesm.f alahd.f alareq.f - alasum.f alasvm.f chkxer.f icopy.f ilaenv.f xlaenv.f xerbla.f) + aladhd.f alaerh.f alaesm.f alahd.f alareq.f + alasum.f alasvm.f chkxer.f icopy.f ilaenv.f xlaenv.f xerbla.f) set(SCLNTST slaord.f) set(DZLNTST dlaord.f) -set(SLINTST schkaa.F - schkeq.f schkgb.f schkge.f schkgt.f - schklq.f schkpb.f schkpo.f schkps.f schkpp.f - schkpt.f schkq3.f schkqp3rk.f schkql.f schkqr.f schkrq.f - schksp.f schksy.f schksy_rook.f schksy_rk.f - schksy_aa.f schksy_aa_2stage.f - schktb.f schktp.f schktr.f - schktz.f - sdrvgt.f sdrvls.f sdrvpb.f - sdrvpp.f sdrvpt.f sdrvsp.f sdrvsy_rook.f sdrvsy_rk.f - sdrvsy_aa.f sdrvsy_aa_2stage.f - serrgt.f serrlq.f serrls.f - serrps.f serrql.f serrqp.f serrqr.f - serrrq.f serrtr.f serrtz.f - sgbt01.f sgbt02.f sgbt05.f sgeqls.f - sgerqs.f sget01.f sget02.f - sget03.f sget04.f sget06.f sget07.f sgtt01.f sgtt02.f - sgtt05.f slaptm.f slarhs.f slatb4.f slatb5.f slattb.f slattp.f - slattr.f slavsp.f slavsy.f slavsy_rook.f slqt01.f slqt02.f - slqt03.f spbt01.f spbt02.f spbt05.f spot01.f - spot02.f spot03.f spot05.f spst01.f sppt01.f - sppt02.f sppt03.f sppt05.f sptt01.f sptt02.f - sptt05.f sqlt01.f sqlt02.f sqlt03.f sqpt01.f - sqrt01.f sqrt01p.f sqrt02.f sqrt03.f sqrt11.f sqrt12.f - sqrt13.f sqrt14.f sqrt15.f sqrt16.f sqrt17.f - srqt01.f srqt02.f srqt03.f srzt01.f srzt02.f - sspt01.f ssyt01.f ssyt01_rook.f ssyt01_3.f - ssyt01_aa.f - stbt02.f stbt03.f stbt05.f stbt06.f stpt01.f - stpt02.f stpt03.f stpt05.f stpt06.f strt01.f - strt02.f strt03.f strt05.f strt06.f - sgennd.f sqrt04.f sqrt05.f schkqrt.f serrqrt.f schkqrtp.f serrqrtp.f - schklqt.f schklqtp.f schktsqr.f - serrlqt.f serrlqtp.f serrtsqr.f stsqr01.f slqt04.f slqt05.f - schkorhr_col.f serrorhr_col.f sorhr_col01.f sorhr_col02.f) +set(SLINTST + schkaa.F schkeq.f schkgb.f schkge.f schkgt.f + schklq.f schkpb.f schkpo.f schkps.f schkpp.f + schkpt.f schkq3.f schkqp3rk.f schkql.f schkqr.f schkrq.f + schksp.f schksy.f schksy_rook.f schksy_rk.f + schksy_aa.f schksy_aa_2stage.f + schktb.f schktp.f schktr.f + schktz.f + sdrvgt.f sdrvls.f sdrvpb.f + sdrvpp.f sdrvpt.f sdrvsp.f sdrvsy_rook.f sdrvsy_rk.f + sdrvsy_aa.f sdrvsy_aa_2stage.f + serrgt.f serrlq.f serrls.f + serrps.f serrql.f serrqp.f serrqr.f + serrrq.f serrtr.f serrtz.f + sgbt01.f sgbt02.f sgbt05.f sgeqls.f + sgerqs.f sget01.f sget02.f + sget03.f sget04.f sget06.f sget07.f sgtt01.f sgtt02.f + sgtt05.f slaptm.f slarhs.f slatb4.f slatb5.f slattb.f slattp.f + slattr.f slavsp.f slavsy.f slavsy_rook.f slqt01.f slqt02.f + slqt03.f spbt01.f spbt02.f spbt05.f spot01.f + spot02.f spot03.f spot05.f spst01.f sppt01.f + sppt02.f sppt03.f sppt05.f sptt01.f sptt02.f + sptt05.f sqlt01.f sqlt02.f sqlt03.f sqpt01.f + sqrt01.f sqrt01p.f sqrt02.f sqrt03.f sqrt11.f sqrt12.f + sqrt13.f sqrt14.f sqrt15.f sqrt16.f sqrt17.f + srqt01.f srqt02.f srqt03.f srzt01.f srzt02.f + sspt01.f ssyt01.f ssyt01_rook.f ssyt01_3.f + ssyt01_aa.f + stbt02.f stbt03.f stbt05.f stbt06.f stpt01.f + stpt02.f stpt03.f stpt05.f stpt06.f strt01.f + strt02.f strt03.f strt05.f strt06.f + sgennd.f sqrt04.f sqrt05.f schkqrt.f serrqrt.f schkqrtp.f serrqrtp.f + schklqt.f schklqtp.f schktsqr.f + serrlqt.f serrlqtp.f serrtsqr.f stsqr01.f slqt04.f slqt05.f + schkorhr_col.f serrorhr_col.f sorhr_col01.f sorhr_col02.f) if(USE_XBLAS) - list(APPEND SLINTST sdrvgbx.f sdrvgex.f sdrvsyx.f sdrvpox.f - serrvxx.f serrgex.f serrsyx.f serrpox.f - sebchvxx.f) + list(APPEND SLINTST + sdrvgbx.f sdrvgex.f sdrvsyx.f sdrvpox.f + serrvxx.f serrgex.f serrsyx.f serrpox.f sebchvxx.f) else() - list(APPEND SLINTST sdrvgb.f sdrvge.f sdrvsy.f sdrvpo.f - serrvx.f serrge.f serrsy.f serrpo.f) + list(APPEND SLINTST + sdrvgb.f sdrvge.f sdrvsy.f sdrvpo.f + serrvx.f serrge.f serrsy.f serrpo.f) endif() -set(CLINTST cchkaa.F - cchkeq.f cchkgb.f cchkge.f cchkgt.f - cchkhe.f cchkhe_rook.f cchkhe_rk.f - cchkhe_aa.f cchkhe_aa_2stage.f - cchkhp.f cchklq.f cchkpb.f - cchkpo.f cchkps.f cchkpp.f cchkpt.f cchkq3.f cchkqp3rk.f cchkql.f - cchkqr.f cchkrq.f cchksp.f cchksy.f cchksy_rook.f cchksy_rk.f - cchksy_aa.f cchksy_aa_2stage.f - cchktb.f - cchktp.f cchktr.f cchktz.f - cdrvgt.f cdrvhe_rook.f cdrvhe_rk.f - cdrvhe_aa.f cdrvhe_aa_2stage.f cdrvsy_aa_2stage.f - cdrvhp.f - cdrvls.f cdrvpb.f cdrvpp.f cdrvpt.f - cdrvsp.f cdrvsy_rook.f cdrvsy_rk.f - cdrvsy_aa.f - cerrgt.f cerrlq.f - cerrls.f cerrps.f cerrql.f cerrqp.f - cerrqr.f cerrrq.f cerrtr.f cerrtz.f - cgbt01.f cgbt02.f cgbt05.f cgeqls.f - cgerqs.f cget01.f cget02.f - cget03.f cget04.f cget07.f cgtt01.f cgtt02.f - cgtt05.f chet01.f chet01_rook.f chet01_3.f - chet01_aa.f - chpt01.f claipd.f claptm.f clarhs.f clatb4.f clatb5.f - clatsp.f clatsy.f clattb.f clattp.f clattr.f - clavhe.f clavhe_rook.f clavhp.f clavsp.f clavsy.f clavsy_rook.f clqt01.f - clqt02.f clqt03.f cpbt01.f cpbt02.f cpbt05.f - cpot01.f cpot02.f cpot03.f cpot05.f cpst01.f - cppt01.f cppt02.f cppt03.f cppt05.f cptt01.f - cptt02.f cptt05.f cqlt01.f cqlt02.f cqlt03.f - cqpt01.f cqrt01.f cqrt01p.f cqrt02.f cqrt03.f cqrt11.f - cqrt12.f cqrt13.f cqrt14.f cqrt15.f cqrt16.f - cqrt17.f crqt01.f crqt02.f crqt03.f crzt01.f crzt02.f - csbmv.f cspt01.f - cspt02.f cspt03.f csyt01.f csyt01_rook.f csyt01_3.f - csyt01_aa.f - csyt02.f csyt03.f - ctbt02.f ctbt03.f ctbt05.f ctbt06.f ctpt01.f - ctpt02.f ctpt03.f ctpt05.f ctpt06.f ctrt01.f - ctrt02.f ctrt03.f ctrt05.f ctrt06.f - sget06.f cgennd.f - cqrt04.f cqrt05.f cchkqrt.f cerrqrt.f cchkqrtp.f cerrqrtp.f - cchklqt.f cchklqtp.f cchktsqr.f - cerrlqt.f cerrlqtp.f cerrtsqr.f ctsqr01.f clqt04.f clqt05.f - cchkunhr_col.f cerrunhr_col.f cunhr_col01.f cunhr_col02.f) +set(CLINTST + cchkaa.F cchkeq.f cchkgb.f cchkge.f cchkgt.f + cchkhe.f cchkhe_rook.f cchkhe_rk.f + cchkhe_aa.f cchkhe_aa_2stage.f + cchkhp.f cchklq.f cchkpb.f + cchkpo.f cchkps.f cchkpp.f cchkpt.f cchkq3.f cchkqp3rk.f cchkql.f + cchkqr.f cchkrq.f cchksp.f cchksy.f cchksy_rook.f cchksy_rk.f + cchksy_aa.f cchksy_aa_2stage.f + cchktb.f + cchktp.f cchktr.f cchktz.f + cdrvgt.f cdrvhe_rook.f cdrvhe_rk.f + cdrvhe_aa.f cdrvhe_aa_2stage.f cdrvsy_aa_2stage.f + cdrvhp.f + cdrvls.f cdrvpb.f cdrvpp.f cdrvpt.f + cdrvsp.f cdrvsy_rook.f cdrvsy_rk.f + cdrvsy_aa.f + cerrgt.f cerrlq.f + cerrls.f cerrps.f cerrql.f cerrqp.f + cerrqr.f cerrrq.f cerrtr.f cerrtz.f + cgbt01.f cgbt02.f cgbt05.f cgeqls.f + cgerqs.f cget01.f cget02.f + cget03.f cget04.f cget07.f cgtt01.f cgtt02.f + cgtt05.f chet01.f chet01_rook.f chet01_3.f + chet01_aa.f + chpt01.f claipd.f claptm.f clarhs.f clatb4.f clatb5.f + clatsp.f clatsy.f clattb.f clattp.f clattr.f + clavhe.f clavhe_rook.f clavhp.f clavsp.f clavsy.f clavsy_rook.f clqt01.f + clqt02.f clqt03.f cpbt01.f cpbt02.f cpbt05.f + cpot01.f cpot02.f cpot03.f cpot05.f cpst01.f + cppt01.f cppt02.f cppt03.f cppt05.f cptt01.f + cptt02.f cptt05.f cqlt01.f cqlt02.f cqlt03.f + cqpt01.f cqrt01.f cqrt01p.f cqrt02.f cqrt03.f cqrt11.f + cqrt12.f cqrt13.f cqrt14.f cqrt15.f cqrt16.f + cqrt17.f crqt01.f crqt02.f crqt03.f crzt01.f crzt02.f + csbmv.f cspt01.f + cspt02.f cspt03.f csyt01.f csyt01_rook.f csyt01_3.f + csyt01_aa.f + csyt02.f csyt03.f + ctbt02.f ctbt03.f ctbt05.f ctbt06.f ctpt01.f + ctpt02.f ctpt03.f ctpt05.f ctpt06.f ctrt01.f + ctrt02.f ctrt03.f ctrt05.f ctrt06.f + sget06.f cgennd.f + cqrt04.f cqrt05.f cchkqrt.f cerrqrt.f cchkqrtp.f cerrqrtp.f + cchklqt.f cchklqtp.f cchktsqr.f + cerrlqt.f cerrlqtp.f cerrtsqr.f ctsqr01.f clqt04.f clqt05.f + cchkunhr_col.f cerrunhr_col.f cunhr_col01.f cunhr_col02.f) if(USE_XBLAS) - list(APPEND CLINTST cdrvgbx.f cdrvgex.f cdrvhex.f cdrvsyx.f cdrvpox.f - cerrvxx.f cerrgex.f cerrhex.f cerrsyx.f cerrpox.f - cebchvxx.f) + list(APPEND CLINTST + cdrvgbx.f cdrvgex.f cdrvhex.f cdrvsyx.f cdrvpox.f + cerrvxx.f cerrgex.f cerrhex.f cerrsyx.f cerrpox.f cebchvxx.f) else() - list(APPEND CLINTST cdrvgb.f cdrvge.f cdrvhe.f cdrvsy.f cdrvpo.f - cerrvx.f cerrge.f cerrhe.f cerrsy.f cerrpo.f) + list(APPEND CLINTST + cdrvgb.f cdrvge.f cdrvhe.f cdrvsy.f cdrvpo.f + cerrvx.f cerrge.f cerrhe.f cerrsy.f cerrpo.f) endif() -set(DLINTST dchkaa.F - dchkeq.f dchkgb.f dchkge.f dchkgt.f - dchklq.f dchkpb.f dchkpo.f dchkps.f dchkpp.f - dchkpt.f dchkq3.f dchkqp3rk.f dchkql.f dchkqr.f dchkrq.f - dchksp.f dchksy.f dchksy_rook.f dchksy_rk.f - dchksy_aa.f dchksy_aa_2stage.f - dchktb.f dchktp.f dchktr.f - dchktz.f - ddrvgt.f ddrvls.f ddrvpb.f - ddrvpp.f ddrvpt.f ddrvsp.f ddrvsy_rook.f ddrvsy_rk.f - ddrvsy_aa.f ddrvsy_aa_2stage.f - derrgt.f derrlq.f derrls.f - derrps.f derrql.f derrqp.f derrqr.f - derrrq.f derrtr.f derrtz.f - dgbt01.f dgbt02.f dgbt05.f dgeqls.f - dgerqs.f dget01.f dget02.f - dget03.f dget04.f dget06.f dget07.f dgtt01.f dgtt02.f - dgtt05.f dlaptm.f dlarhs.f dlatb4.f dlatb5.f dlattb.f dlattp.f - dlattr.f dlavsp.f dlavsy.f dlavsy_rook.f dlqt01.f dlqt02.f - dlqt03.f dpbt01.f dpbt02.f dpbt05.f dpot01.f - dpot02.f dpot03.f dpot05.f dpst01.f dppt01.f - dppt02.f dppt03.f dppt05.f dptt01.f dptt02.f - dptt05.f dqlt01.f dqlt02.f dqlt03.f dqpt01.f - dqrt01.f dqrt01p.f dqrt02.f dqrt03.f dqrt11.f dqrt12.f - dqrt13.f dqrt14.f dqrt15.f dqrt16.f dqrt17.f - drqt01.f drqt02.f drqt03.f drzt01.f drzt02.f - dspt01.f dsyt01.f dsyt01_rook.f dsyt01_3.f - dsyt01_aa.f - dtbt02.f dtbt03.f dtbt05.f dtbt06.f dtpt01.f - dtpt02.f dtpt03.f dtpt05.f dtpt06.f dtrt01.f - dtrt02.f dtrt03.f dtrt05.f dtrt06.f - dgennd.f - dqrt04.f dqrt05.f dchkqrt.f derrqrt.f dchkqrtp.f derrqrtp.f - dchklq.f dchklqt.f dchklqtp.f dchktsqr.f - derrlqt.f derrlqtp.f derrtsqr.f dtsqr01.f dlqt04.f dlqt05.f - dchkorhr_col.f derrorhr_col.f dorhr_col01.f dorhr_col02.f) +set(DLINTST + dchkaa.F dchkeq.f dchkgb.f dchkge.f dchkgt.f + dchklq.f dchkpb.f dchkpo.f dchkps.f dchkpp.f + dchkpt.f dchkq3.f dchkqp3rk.f dchkql.f dchkqr.f dchkrq.f + dchksp.f dchksy.f dchksy_rook.f dchksy_rk.f + dchksy_aa.f dchksy_aa_2stage.f + dchktb.f dchktp.f dchktr.f + dchktz.f + ddrvgt.f ddrvls.f ddrvpb.f + ddrvpp.f ddrvpt.f ddrvsp.f ddrvsy_rook.f ddrvsy_rk.f + ddrvsy_aa.f ddrvsy_aa_2stage.f + derrgt.f derrlq.f derrls.f + derrps.f derrql.f derrqp.f derrqr.f + derrrq.f derrtr.f derrtz.f + dgbt01.f dgbt02.f dgbt05.f dgeqls.f + dgerqs.f dget01.f dget02.f + dget03.f dget04.f dget06.f dget07.f dgtt01.f dgtt02.f + dgtt05.f dlaptm.f dlarhs.f dlatb4.f dlatb5.f dlattb.f dlattp.f + dlattr.f dlavsp.f dlavsy.f dlavsy_rook.f dlqt01.f dlqt02.f + dlqt03.f dpbt01.f dpbt02.f dpbt05.f dpot01.f + dpot02.f dpot03.f dpot05.f dpst01.f dppt01.f + dppt02.f dppt03.f dppt05.f dptt01.f dptt02.f + dptt05.f dqlt01.f dqlt02.f dqlt03.f dqpt01.f + dqrt01.f dqrt01p.f dqrt02.f dqrt03.f dqrt11.f dqrt12.f + dqrt13.f dqrt14.f dqrt15.f dqrt16.f dqrt17.f + drqt01.f drqt02.f drqt03.f drzt01.f drzt02.f + dspt01.f dsyt01.f dsyt01_rook.f dsyt01_3.f + dsyt01_aa.f + dtbt02.f dtbt03.f dtbt05.f dtbt06.f dtpt01.f + dtpt02.f dtpt03.f dtpt05.f dtpt06.f dtrt01.f + dtrt02.f dtrt03.f dtrt05.f dtrt06.f + dgennd.f + dqrt04.f dqrt05.f dchkqrt.f derrqrt.f dchkqrtp.f derrqrtp.f + dchklq.f dchklqt.f dchklqtp.f dchktsqr.f + derrlqt.f derrlqtp.f derrtsqr.f dtsqr01.f dlqt04.f dlqt05.f + dchkorhr_col.f derrorhr_col.f dorhr_col01.f dorhr_col02.f) if(USE_XBLAS) list(APPEND DLINTST ddrvgbx.f ddrvgex.f ddrvsyx.f ddrvpox.f @@ -153,94 +155,112 @@ else() derrvx.f derrge.f derrsy.f derrpo.f) endif() -set(ZLINTST zchkaa.F - zchkeq.f zchkgb.f zchkge.f zchkgt.f - zchkhe.f zchkhe_rook.f zchkhe_rk.f - zchkhe_aa.f zchkhe_aa_2stage.f - zchkhp.f zchklq.f zchkpb.f - zchkpo.f zchkps.f zchkpp.f zchkpt.f zchkq3.f zchkqp3rk.f zchkql.f - zchkqr.f zchkrq.f zchksp.f zchksy.f zchksy_rook.f zchksy_rk.f - zchksy_aa.f zchksy_aa_2stage.f - zchktb.f - zchktp.f zchktr.f zchktz.f - zdrvgt.f zdrvhe_rook.f zdrvhe_rk.f - zdrvhe_aa.f zdrvhe_aa_2stage.f - zdrvhp.f - zdrvls.f zdrvpb.f zdrvpp.f zdrvpt.f - zdrvsp.f zdrvsy_rook.f zdrvsy_rk.f - zdrvsy_aa.f zdrvsy_aa_2stage.f - zerrgt.f zerrlq.f - zerrls.f zerrps.f zerrql.f zerrqp.f - zerrqr.f zerrrq.f zerrtr.f zerrtz.f - zgbt01.f zgbt02.f zgbt05.f zgeqls.f - zgerqs.f zget01.f zget02.f - zget03.f zget04.f zget07.f zgtt01.f zgtt02.f - zgtt05.f zhet01.f zhet01_rook.f zhet01_3.f - zhet01_aa.f - zhpt01.f zlaipd.f zlaptm.f zlarhs.f zlatb4.f zlatb5.f - zlatsp.f zlatsy.f zlattb.f zlattp.f zlattr.f - zlavhe.f zlavhe_rook.f zlavhp.f zlavsp.f zlavsy.f zlavsy_rook.f zlqt01.f - zlqt02.f zlqt03.f zpbt01.f zpbt02.f zpbt05.f - zpot01.f zpot02.f zpot03.f zpot05.f zpst01.f - zppt01.f zppt02.f zppt03.f zppt05.f zptt01.f - zptt02.f zptt05.f zqlt01.f zqlt02.f zqlt03.f - zqpt01.f zqrt01.f zqrt01p.f zqrt02.f zqrt03.f zqrt11.f - zqrt12.f zqrt13.f zqrt14.f zqrt15.f zqrt16.f - zqrt17.f zrqt01.f zrqt02.f zrqt03.f zrzt01.f zrzt02.f - zsbmv.f zspt01.f - zspt02.f zspt03.f zsyt01.f zsyt01_rook.f zsyt01_3.f - zsyt01_aa.f - zsyt02.f zsyt03.f - ztbt02.f ztbt03.f ztbt05.f ztbt06.f ztpt01.f - ztpt02.f ztpt03.f ztpt05.f ztpt06.f ztrt01.f - ztrt02.f ztrt03.f ztrt05.f ztrt06.f - dget06.f zgennd.f - zqrt04.f zqrt05.f zchkqrt.f zerrqrt.f zchkqrtp.f zerrqrtp.f - zchklqt.f zchklqtp.f zchktsqr.f - zerrlqt.f zerrlqtp.f zerrtsqr.f ztsqr01.f zlqt04.f zlqt05.f - zchkunhr_col.f zerrunhr_col.f zunhr_col01.f zunhr_col02.f) +set(ZLINTST + zchkaa.F zchkeq.f zchkgb.f zchkge.f zchkgt.f + zchkhe.f zchkhe_rook.f zchkhe_rk.f + zchkhe_aa.f zchkhe_aa_2stage.f + zchkhp.f zchklq.f zchkpb.f + zchkpo.f zchkps.f zchkpp.f zchkpt.f zchkq3.f zchkqp3rk.f zchkql.f + zchkqr.f zchkrq.f zchksp.f zchksy.f zchksy_rook.f zchksy_rk.f + zchksy_aa.f zchksy_aa_2stage.f + zchktb.f + zchktp.f zchktr.f zchktz.f + zdrvgt.f zdrvhe_rook.f zdrvhe_rk.f + zdrvhe_aa.f zdrvhe_aa_2stage.f + zdrvhp.f + zdrvls.f zdrvpb.f zdrvpp.f zdrvpt.f + zdrvsp.f zdrvsy_rook.f zdrvsy_rk.f + zdrvsy_aa.f zdrvsy_aa_2stage.f + zerrgt.f zerrlq.f + zerrls.f zerrps.f zerrql.f zerrqp.f + zerrqr.f zerrrq.f zerrtr.f zerrtz.f + zgbt01.f zgbt02.f zgbt05.f zgeqls.f + zgerqs.f zget01.f zget02.f + zget03.f zget04.f zget07.f zgtt01.f zgtt02.f + zgtt05.f zhet01.f zhet01_rook.f zhet01_3.f + zhet01_aa.f + zhpt01.f zlaipd.f zlaptm.f zlarhs.f zlatb4.f zlatb5.f + zlatsp.f zlatsy.f zlattb.f zlattp.f zlattr.f + zlavhe.f zlavhe_rook.f zlavhp.f zlavsp.f zlavsy.f zlavsy_rook.f zlqt01.f + zlqt02.f zlqt03.f zpbt01.f zpbt02.f zpbt05.f + zpot01.f zpot02.f zpot03.f zpot05.f zpst01.f + zppt01.f zppt02.f zppt03.f zppt05.f zptt01.f + zptt02.f zptt05.f zqlt01.f zqlt02.f zqlt03.f + zqpt01.f zqrt01.f zqrt01p.f zqrt02.f zqrt03.f zqrt11.f + zqrt12.f zqrt13.f zqrt14.f zqrt15.f zqrt16.f + zqrt17.f zrqt01.f zrqt02.f zrqt03.f zrzt01.f zrzt02.f + zsbmv.f zspt01.f + zspt02.f zspt03.f zsyt01.f zsyt01_rook.f zsyt01_3.f + zsyt01_aa.f + zsyt02.f zsyt03.f + ztbt02.f ztbt03.f ztbt05.f ztbt06.f ztpt01.f + ztpt02.f ztpt03.f ztpt05.f ztpt06.f ztrt01.f + ztrt02.f ztrt03.f ztrt05.f ztrt06.f + dget06.f zgennd.f + zqrt04.f zqrt05.f zchkqrt.f zerrqrt.f zchkqrtp.f zerrqrtp.f + zchklqt.f zchklqtp.f zchktsqr.f + zerrlqt.f zerrlqtp.f zerrtsqr.f ztsqr01.f zlqt04.f zlqt05.f + zchkunhr_col.f zerrunhr_col.f zunhr_col01.f zunhr_col02.f) if(USE_XBLAS) - list(APPEND ZLINTST zdrvgbx.f zdrvgex.f zdrvhex.f zdrvsyx.f zdrvpox.f - zerrvxx.f zerrgex.f zerrhex.f zerrsyx.f zerrpox.f - zebchvxx.f) + list(APPEND ZLINTST + zdrvgbx.f zdrvgex.f zdrvhex.f zdrvsyx.f zdrvpox.f + zerrvxx.f zerrgex.f zerrhex.f zerrsyx.f zerrpox.f zebchvxx.f) else() - list(APPEND ZLINTST zdrvgb.f zdrvge.f zdrvhe.f zdrvsy.f zdrvpo.f - zerrvx.f zerrge.f zerrhe.f zerrsy.f zerrpo.f) + list(APPEND ZLINTST + zdrvgb.f zdrvge.f zdrvhe.f zdrvsy.f zdrvpo.f + zerrvx.f zerrge.f zerrhe.f zerrsy.f zerrpo.f) endif() -set(DSLINTST dchkab.f - ddrvab.f ddrvac.f derrab.f derrac.f dget08.f - alaerh.f alahd.f aladhd.f alareq.f - chkxer.f dlarhs.f dlatb4.f xerbla.f - dget02.f dpot06.f) +set(DSLINTST + dchkab.f ddrvab.f ddrvac.f derrab.f derrac.f dget08.f + alaerh.f alahd.f aladhd.f alareq.f + chkxer.f dlarhs.f dlatb4.f xerbla.f + dget02.f dpot06.f) -set(ZCLINTST zchkab.f - zdrvab.f zdrvac.f zerrab.f zerrac.f zget08.f - alaerh.f alahd.f aladhd.f alareq.f - chkxer.f zget02.f zlarhs.f zlatb4.f - zsbmv.f xerbla.f zpot06.f zlaipd.f) +set(ZCLINTST + zchkab.f zdrvab.f zdrvac.f zerrab.f zerrac.f zget08.f + alaerh.f alahd.f aladhd.f alareq.f + chkxer.f zget02.f zlarhs.f zlatb4.f + zsbmv.f xerbla.f zpot06.f zlaipd.f) -set(SLINTSTRFP schkrfp.f sdrvrfp.f sdrvrf1.f sdrvrf2.f sdrvrf3.f sdrvrf4.f serrrfp.f - slatb4.f slarhs.f sget04.f spot01.f spot03.f spot02.f - chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f) +set(SLINTSTRFP + schkrfp.f sdrvrfp.f sdrvrf1.f sdrvrf2.f sdrvrf3.f sdrvrf4.f serrrfp.f + slatb4.f slarhs.f sget04.f spot01.f spot03.f spot02.f + chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f) -set(DLINTSTRFP dchkrfp.f ddrvrfp.f ddrvrf1.f ddrvrf2.f ddrvrf3.f ddrvrf4.f derrrfp.f - dlatb4.f dlarhs.f dget04.f dpot01.f dpot03.f dpot02.f - chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f) +set(DLINTSTRFP + dchkrfp.f ddrvrfp.f ddrvrf1.f ddrvrf2.f ddrvrf3.f ddrvrf4.f derrrfp.f + dlatb4.f dlarhs.f dget04.f dpot01.f dpot03.f dpot02.f + chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f) -set(CLINTSTRFP cchkrfp.f cdrvrfp.f cdrvrf1.f cdrvrf2.f cdrvrf3.f cdrvrf4.f cerrrfp.f +set(CLINTSTRFP + cchkrfp.f cdrvrfp.f cdrvrf1.f cdrvrf2.f cdrvrf3.f cdrvrf4.f cerrrfp.f claipd.f clatb4.f clarhs.f csbmv.f cget04.f cpot01.f cpot03.f cpot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f) -set(ZLINTSTRFP zchkrfp.f zdrvrfp.f zdrvrf1.f zdrvrf2.f zdrvrf3.f zdrvrf4.f zerrrfp.f +set(ZLINTSTRFP + zchkrfp.f zdrvrfp.f zdrvrf1.f zdrvrf2.f zdrvrf3.f zdrvrf4.f zerrrfp.f zlatb4.f zlaipd.f zlarhs.f zsbmv.f zget04.f zpot01.f zpot03.f zpot02.f chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f) -macro(add_lin_executable name) - add_executable(${name} ${ARGN}) - target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) -endmacro() +function(add_lin_executable name) + set(sources ${ARGN}) + + if(BUILD_DEFAULT_API) + add_executable(${name} ${sources}) + target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) + endif() + + if(BUILD_INDEX64_EXT_API) + include(ExtendedAPIHelpers) + generate_64bit_suffixed_sources(${name}_64 sources sources_64) + + add_executable(${name}_64 ${sources_64}) + target_compile_options(${name}_64 PRIVATE ${FOPT_ILP64}) + target_link_libraries(${name}_64 ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) + endif() +endfunction() if(BUILD_SINGLE) add_lin_executable(xlintsts ${ALINTST} ${SLINTST} ${SCLNTST}) From a59517ba04bd907655371619f29f2698cf7fb80f Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 4 May 2026 14:41:37 +0200 Subject: [PATCH 27/39] Added _64 suffixed CTests --- TESTING/CMakeLists.txt | 272 ++++++++++++++++++++++------------------- 1 file changed, 144 insertions(+), 128 deletions(-) diff --git a/TESTING/CMakeLists.txt b/TESTING/CMakeLists.txt index 58164e516..0cdd8d968 100644 --- a/TESTING/CMakeLists.txt +++ b/TESTING/CMakeLists.txt @@ -25,7 +25,7 @@ if(PYTHON_EXECUTABLE AND LAPACK_TESTING_USE_PYTHON) ) endif() -function(add_lapack_test output input target) +function(_add_lapack_test output input target) set(TEST_INPUT "${LAPACK_SOURCE_DIR}/TESTING/${input}") set(TEST_OUTPUT "${LAPACK_BINARY_DIR}/TESTING/${output}") string(REPLACE "." "_" input_name ${input}) @@ -47,151 +47,167 @@ function(add_lapack_test output input target) endif() endfunction() +function(add_lapack_test output input target) + if(BUILD_DEFAULT_API) + _add_lapack_test(${output} ${input} ${target}) + endif() + + if(BUILD_INDEX64_EXT_API) + get_filename_component(output_name "${output}" NAME_WE) + get_filename_component(output_ext "${output}" EXT) + _add_lapack_test("${output_name}_64${output_ext}" ${input} ${target}_64) + endif() +endfunction() + if(BUILD_SINGLE) -add_lapack_test(stest.out stest.in xlintsts) -# -# ======== SINGLE RFP LIN TESTS ======================== -add_lapack_test(stest_rfp.out stest_rfp.in xlintstrfs) -# -# ======== SINGLE EIG TESTS =========================== -add_lapack_test(snep.out nep.in xeigtsts) -add_lapack_test(ssep.out sep.in xeigtsts) -add_lapack_test(sse2.out se2.in xeigtsts) -add_lapack_test(ssvd.out svd.in xeigtsts) -add_lapack_test(sec.out sec.in xeigtsts) -add_lapack_test(sed.out sed.in xeigtsts) -add_lapack_test(sgg.out sgg.in xeigtsts) -add_lapack_test(sgd.out sgd.in xeigtsts) -add_lapack_test(ssb.out ssb.in xeigtsts) -add_lapack_test(ssg.out ssg.in xeigtsts) -add_lapack_test(sbal.out sbal.in xeigtsts) -add_lapack_test(sbak.out sbak.in xeigtsts) -add_lapack_test(sgbal.out sgbal.in xeigtsts) -add_lapack_test(sgbak.out sgbak.in xeigtsts) -add_lapack_test(sbb.out sbb.in xeigtsts) -add_lapack_test(sglm.out glm.in xeigtsts) -add_lapack_test(sgqr.out gqr.in xeigtsts) -add_lapack_test(sgsv.out gsv.in xeigtsts) -add_lapack_test(scsd.out csd.in xeigtsts) -add_lapack_test(slse.out lse.in xeigtsts) -# -# ======== SINGLE DMD EIG TESTS =========================== -add_lapack_test(sdmd.out sdmd.in xdmdeigtsts) + # ======== SINGLE LIN TESTS =========================== + add_lapack_test(stest.out stest.in xlintsts) + + # ======== SINGLE RFP LIN TESTS ======================== + add_lapack_test(stest_rfp.out stest_rfp.in xlintstrfs) + + # ======== SINGLE EIG TESTS =========================== + add_lapack_test(snep.out nep.in xeigtsts) + add_lapack_test(ssep.out sep.in xeigtsts) + add_lapack_test(sse2.out se2.in xeigtsts) + add_lapack_test(ssvd.out svd.in xeigtsts) + add_lapack_test(sec.out sec.in xeigtsts) + add_lapack_test(sed.out sed.in xeigtsts) + add_lapack_test(sgg.out sgg.in xeigtsts) + add_lapack_test(sgd.out sgd.in xeigtsts) + add_lapack_test(ssb.out ssb.in xeigtsts) + add_lapack_test(ssg.out ssg.in xeigtsts) + add_lapack_test(sbal.out sbal.in xeigtsts) + add_lapack_test(sbak.out sbak.in xeigtsts) + add_lapack_test(sgbal.out sgbal.in xeigtsts) + add_lapack_test(sgbak.out sgbak.in xeigtsts) + add_lapack_test(sbb.out sbb.in xeigtsts) + add_lapack_test(sglm.out glm.in xeigtsts) + add_lapack_test(sgqr.out gqr.in xeigtsts) + add_lapack_test(sgsv.out gsv.in xeigtsts) + add_lapack_test(scsd.out csd.in xeigtsts) + add_lapack_test(slse.out lse.in xeigtsts) + + # ======== SINGLE DMD EIG TESTS =========================== + add_lapack_test(sdmd.out sdmd.in xdmdeigtsts) endif() if(BUILD_DOUBLE) -# -# ======== DOUBLE LIN TESTS =========================== -add_lapack_test(dtest.out dtest.in xlintstd) -# -# ======== DOUBLE RFP LIN TESTS ======================== -add_lapack_test(dtest_rfp.out dtest_rfp.in xlintstrfd) -# -# ======== DOUBLE EIG TESTS =========================== -add_lapack_test(dnep.out nep.in xeigtstd) -add_lapack_test(dsep.out sep.in xeigtstd) -add_lapack_test(dse2.out se2.in xeigtstd) -add_lapack_test(dsvd.out svd.in xeigtstd) -add_lapack_test(dec.out dec.in xeigtstd) -add_lapack_test(ded.out ded.in xeigtstd) -add_lapack_test(dgg.out dgg.in xeigtstd) -add_lapack_test(dgd.out dgd.in xeigtstd) -add_lapack_test(dsb.out dsb.in xeigtstd) -add_lapack_test(dsg.out dsg.in xeigtstd) -add_lapack_test(dbal.out dbal.in xeigtstd) -add_lapack_test(dbak.out dbak.in xeigtstd) -add_lapack_test(dgbal.out dgbal.in xeigtstd) -add_lapack_test(dgbak.out dgbak.in xeigtstd) -add_lapack_test(dbb.out dbb.in xeigtstd) -add_lapack_test(dglm.out glm.in xeigtstd) -add_lapack_test(dgqr.out gqr.in xeigtstd) -add_lapack_test(dgsv.out gsv.in xeigtstd) -add_lapack_test(dcsd.out csd.in xeigtstd) -add_lapack_test(dlse.out lse.in xeigtstd) -# -# ======== DOUBLE DMD EIG TESTS =========================== -add_lapack_test(ddmd.out ddmd.in xdmdeigtstd) + # ======== DOUBLE LIN TESTS =========================== + add_lapack_test(dtest.out dtest.in xlintstd) + + # ======== DOUBLE RFP LIN TESTS ======================== + add_lapack_test(dtest_rfp.out dtest_rfp.in xlintstrfd) + + # ======== DOUBLE EIG TESTS =========================== + add_lapack_test(dnep.out nep.in xeigtstd) + add_lapack_test(dsep.out sep.in xeigtstd) + add_lapack_test(dse2.out se2.in xeigtstd) + add_lapack_test(dsvd.out svd.in xeigtstd) + add_lapack_test(dec.out dec.in xeigtstd) + add_lapack_test(ded.out ded.in xeigtstd) + add_lapack_test(dgg.out dgg.in xeigtstd) + add_lapack_test(dgd.out dgd.in xeigtstd) + add_lapack_test(dsb.out dsb.in xeigtstd) + add_lapack_test(dsg.out dsg.in xeigtstd) + add_lapack_test(dbal.out dbal.in xeigtstd) + add_lapack_test(dbak.out dbak.in xeigtstd) + add_lapack_test(dgbal.out dgbal.in xeigtstd) + add_lapack_test(dgbak.out dgbak.in xeigtstd) + add_lapack_test(dbb.out dbb.in xeigtstd) + add_lapack_test(dglm.out glm.in xeigtstd) + add_lapack_test(dgqr.out gqr.in xeigtstd) + add_lapack_test(dgsv.out gsv.in xeigtstd) + add_lapack_test(dcsd.out csd.in xeigtstd) + add_lapack_test(dlse.out lse.in xeigtstd) + + # ======== DOUBLE DMD EIG TESTS =========================== + add_lapack_test(ddmd.out ddmd.in xdmdeigtstd) endif() if(BUILD_COMPLEX) -add_lapack_test(ctest.out ctest.in xlintstc) -# -# ======== COMPLEX RFP LIN TESTS ======================== -add_lapack_test(ctest_rfp.out ctest_rfp.in xlintstrfc) -# -# ======== COMPLEX EIG TESTS =========================== -add_lapack_test(cnep.out nep.in xeigtstc) -add_lapack_test(csep.out sep.in xeigtstc) -add_lapack_test(cse2.out se2.in xeigtstc) -add_lapack_test(csvd.out svd.in xeigtstc) -add_lapack_test(cec.out cec.in xeigtstc) -add_lapack_test(ced.out ced.in xeigtstc) -add_lapack_test(cgg.out cgg.in xeigtstc) -add_lapack_test(cgd.out cgd.in xeigtstc) -add_lapack_test(csb.out csb.in xeigtstc) -add_lapack_test(csg.out csg.in xeigtstc) -add_lapack_test(cbal.out cbal.in xeigtstc) -add_lapack_test(cbak.out cbak.in xeigtstc) -add_lapack_test(cgbal.out cgbal.in xeigtstc) -add_lapack_test(cgbak.out cgbak.in xeigtstc) -add_lapack_test(cbb.out cbb.in xeigtstc) -add_lapack_test(cglm.out glm.in xeigtstc) -add_lapack_test(cgqr.out gqr.in xeigtstc) -add_lapack_test(cgsv.out gsv.in xeigtstc) -add_lapack_test(ccsd.out csd.in xeigtstc) -add_lapack_test(clse.out lse.in xeigtstc) -# -# ======== COMPLEX DMD EIG TESTS =========================== -add_lapack_test(cdmd.out cdmd.in xdmdeigtstc) + # ======== COMPLEX LIN TESTS ======================== + add_lapack_test(ctest.out ctest.in xlintstc) + + # ======== COMPLEX RFP LIN TESTS ======================== + add_lapack_test(ctest_rfp.out ctest_rfp.in xlintstrfc) + + # ======== COMPLEX EIG TESTS =========================== + add_lapack_test(cnep.out nep.in xeigtstc) + add_lapack_test(csep.out sep.in xeigtstc) + add_lapack_test(cse2.out se2.in xeigtstc) + add_lapack_test(csvd.out svd.in xeigtstc) + add_lapack_test(cec.out cec.in xeigtstc) + add_lapack_test(ced.out ced.in xeigtstc) + add_lapack_test(cgg.out cgg.in xeigtstc) + add_lapack_test(cgd.out cgd.in xeigtstc) + add_lapack_test(csb.out csb.in xeigtstc) + add_lapack_test(csg.out csg.in xeigtstc) + add_lapack_test(cbal.out cbal.in xeigtstc) + add_lapack_test(cbak.out cbak.in xeigtstc) + add_lapack_test(cgbal.out cgbal.in xeigtstc) + add_lapack_test(cgbak.out cgbak.in xeigtstc) + add_lapack_test(cbb.out cbb.in xeigtstc) + add_lapack_test(cglm.out glm.in xeigtstc) + add_lapack_test(cgqr.out gqr.in xeigtstc) + add_lapack_test(cgsv.out gsv.in xeigtstc) + add_lapack_test(ccsd.out csd.in xeigtstc) + add_lapack_test(clse.out lse.in xeigtstc) + + # ======== COMPLEX DMD EIG TESTS =========================== + add_lapack_test(cdmd.out cdmd.in xdmdeigtstc) endif() if(BUILD_COMPLEX16) -# -# ======== COMPLEX16 LIN TESTS ======================== -add_lapack_test(ztest.out ztest.in xlintstz) -# -# ======== COMPLEX16 RFP LIN TESTS ======================== -add_lapack_test(ztest_rfp.out ztest_rfp.in xlintstrfz) -# -# ======== COMPLEX16 EIG TESTS =========================== -add_lapack_test(znep.out nep.in xeigtstz) -add_lapack_test(zsep.out sep.in xeigtstz) -add_lapack_test(zse2.out se2.in xeigtstz) -add_lapack_test(zsvd.out svd.in xeigtstz) -add_lapack_test(zec.out zec.in xeigtstz) -add_lapack_test(zed.out zed.in xeigtstz) -add_lapack_test(zgg.out zgg.in xeigtstz) -add_lapack_test(zgd.out zgd.in xeigtstz) -add_lapack_test(zsb.out zsb.in xeigtstz) -add_lapack_test(zsg.out zsg.in xeigtstz) -add_lapack_test(zbal.out zbal.in xeigtstz) -add_lapack_test(zbak.out zbak.in xeigtstz) -add_lapack_test(zgbal.out zgbal.in xeigtstz) -add_lapack_test(zgbak.out zgbak.in xeigtstz) -add_lapack_test(zbb.out zbb.in xeigtstz) -add_lapack_test(zglm.out glm.in xeigtstz) -add_lapack_test(zgqr.out gqr.in xeigtstz) -add_lapack_test(zgsv.out gsv.in xeigtstz) -add_lapack_test(zcsd.out csd.in xeigtstz) -add_lapack_test(zlse.out lse.in xeigtstz) -# -# ======== COMPLEX16 DMD EIG TESTS =========================== -add_lapack_test(zdmd.out zdmd.in xdmdeigtstz) -# -# ======== COMPLEX16 WORKSPACE QUERY PRECISION TEST =========== -add_test(NAME LAPACK-test_wq_zrwork COMMAND $) + + # ======== COMPLEX16 LIN TESTS ======================== + add_lapack_test(ztest.out ztest.in xlintstz) + + # ======== COMPLEX16 RFP LIN TESTS ======================== + add_lapack_test(ztest_rfp.out ztest_rfp.in xlintstrfz) + + # ======== COMPLEX16 EIG TESTS =========================== + add_lapack_test(znep.out nep.in xeigtstz) + add_lapack_test(zsep.out sep.in xeigtstz) + add_lapack_test(zse2.out se2.in xeigtstz) + add_lapack_test(zsvd.out svd.in xeigtstz) + add_lapack_test(zec.out zec.in xeigtstz) + add_lapack_test(zed.out zed.in xeigtstz) + add_lapack_test(zgg.out zgg.in xeigtstz) + add_lapack_test(zgd.out zgd.in xeigtstz) + add_lapack_test(zsb.out zsb.in xeigtstz) + add_lapack_test(zsg.out zsg.in xeigtstz) + add_lapack_test(zbal.out zbal.in xeigtstz) + add_lapack_test(zbak.out zbak.in xeigtstz) + add_lapack_test(zgbal.out zgbal.in xeigtstz) + add_lapack_test(zgbak.out zgbak.in xeigtstz) + add_lapack_test(zbb.out zbb.in xeigtstz) + add_lapack_test(zglm.out glm.in xeigtstz) + add_lapack_test(zgqr.out gqr.in xeigtstz) + add_lapack_test(zgsv.out gsv.in xeigtstz) + add_lapack_test(zcsd.out csd.in xeigtstz) + add_lapack_test(zlse.out lse.in xeigtstz) + + # ======== COMPLEX16 DMD EIG TESTS =========================== + add_lapack_test(zdmd.out zdmd.in xdmdeigtstz) + + # ======== COMPLEX16 WORKSPACE QUERY PRECISION TEST =========== + if(BUILD_DEFAULT_API) + add_test(NAME LAPACK-test_wq_zrwork COMMAND $) + endif() + if(BUILD_INDEX64_EXT_API) + add_test(NAME LAPACK-test_wq_zrwork_64 COMMAND $) + endif() endif() if(BUILD_SINGLE AND BUILD_DOUBLE) -# -# ======== SINGLE-DOUBLE PROTO LIN TESTS ============== + # ======== SINGLE-DOUBLE PROTO LIN TESTS ============== add_lapack_test(dstest.out dstest.in xlintstds) endif() if(BUILD_COMPLEX AND BUILD_COMPLEX16) -# -# ======== COMPLEX-COMPLEX16 LIN TESTS ======================== + # ======== COMPLEX-COMPLEX16 LIN TESTS ======================== add_lapack_test(zctest.out zctest.in xlintstzc) endif() From 531e611e9282c9817cd3c16a10538a9f8df9aaeb Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 4 May 2026 14:52:10 +0200 Subject: [PATCH 28/39] Added _64 suffixed BLAS tests --- BLAS/TESTING/CMakeLists.txt | 37 +++++++++++++++++++++++++++++++------ 1 file changed, 31 insertions(+), 6 deletions(-) diff --git a/BLAS/TESTING/CMakeLists.txt b/BLAS/TESTING/CMakeLists.txt index 597e81738..0ea274772 100644 --- a/BLAS/TESTING/CMakeLists.txt +++ b/BLAS/TESTING/CMakeLists.txt @@ -1,12 +1,10 @@ -macro(add_blas_test name src) - get_filename_component(baseNAME ${src} NAME_WE) - set(TEST_INPUT "${CMAKE_CURRENT_SOURCE_DIR}/${baseNAME}.in") +function(_add_blas_test name src test_input) add_executable(${name} ${src}) target_link_libraries(${name} ${BLASLIB}) - if(EXISTS "${TEST_INPUT}") + if(EXISTS "${test_input}") add_test(NAME BLAS-${name} COMMAND "${CMAKE_COMMAND}" -DTEST=$ - -DINPUT=${TEST_INPUT} + -DINPUT=${test_input} -DINTDIR=${CMAKE_CFG_INTDIR} -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") else() @@ -21,7 +19,34 @@ macro(add_blas_test name src) if(CMAKE_Fortran_COMPILER_ID STREQUAL "NAG") target_compile_options(${name} PRIVATE "-Onopropagate") endif() -endmacro() +endfunction() + +function(add_blas_test name source) + get_filename_component(baseNAME ${input_src} NAME_WE) + set(test_input "${CMAKE_CURRENT_SOURCE_DIR}/${baseNAME}.in") + + if(BUILD_DEFAULT_API) + _add_blas_test(${name} ${source} "${test_input}") + endif() + + if(BUILD_INDEX64_EXT_API) + include(ExtendedAPIHelpers) + generate_64bit_suffixed_sources(${name}_64 source source_64) + + # Create 64-bit version of test input if it exists, replacing output + # file names with their 64-bit counterparts + if(EXISTS "${test_input}") + file(READ "${test_input}" test_input_content) + string(REPLACE "'${baseNAME}.out'" "'${baseNAME}_64.out'" + test_input_content "${test_input_content}") + set(test_input_64 "${CMAKE_CURRENT_BINARY_DIR}/${baseNAME}_64.in") + file(WRITE "${test_input_64}" "${test_input_content}") + endif() + + _add_blas_test(${name}_64 "${source_64}" "${test_input_64}") + target_compile_options(${name}_64 PRIVATE ${FOPT_ILP64}) + endif() +endfunction() if(BUILD_SINGLE) add_blas_test(xblat1s sblat1.f) From a32aa4b33dcaa7ffc7ef980ffbb9c4306c61fa5b Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 4 May 2026 15:05:05 +0200 Subject: [PATCH 29/39] Added _64 suffixed CBLAS tests Co-authored-by: Copilot --- CBLAS/testing/CMakeLists.txt | 99 ++++++++++++++++++++---------------- 1 file changed, 54 insertions(+), 45 deletions(-) diff --git a/CBLAS/testing/CMakeLists.txt b/CBLAS/testing/CMakeLists.txt index ab41d8db2..60309125e 100644 --- a/CBLAS/testing/CMakeLists.txt +++ b/CBLAS/testing/CMakeLists.txt @@ -3,7 +3,7 @@ # ####################################################################### -macro(add_cblas_test output input target) +function(add_cblas_ctest output input target) if(NOT "${input}" STREQUAL "") set(TEST_INPUT "${CMAKE_CURRENT_SOURCE_DIR}/${input}") endif() @@ -24,10 +24,10 @@ macro(add_cblas_test output input target) -DINTDIR=${CMAKE_CFG_INTDIR} -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") endif() -endmacro() +endfunction() -macro(configure_cblas_test_target target test_sources) - add_executable(${target} ${test_sources}) +function(add_cblas_test_target target) + add_executable(${target} ${ARGN}) if(HAS_ATTRIBUTE_WEAK_SUPPORT) target_compile_definitions(${target} PRIVATE HAS_ATTRIBUTE_WEAK_SUPPORT) @@ -38,64 +38,73 @@ macro(configure_cblas_test_target target test_sources) endif() target_link_libraries(${target} PRIVATE ${CBLASLIB}) -endmacro() +endfunction() + +function(add_cblas_test target output input f_source) + set(c_sources ${ARGN}) + + if(BUILD_DEFAULT_API) + add_cblas_test_target(${target} ${f_source} ${c_sources}) + add_cblas_ctest(${output} "${input}" ${target}) + endif() + + if(BUILD_INDEX64_EXT_API) + include(ExtendedAPIHelpers) + generate_64bit_suffixed_sources(${target} f_source f_source_64) + + add_cblas_test_target(${target}_64 ${f_source_64} ${c_sources}) + target_compile_definitions(${target}_64 PRIVATE + "$<$:WeirdNEC>" "$<$:CBLAS_API64>") + target_compile_options(${target}_64 PRIVATE + "$<$:${FOPT_ILP64}>") + + get_filename_component(output_name "${output}" NAME_WLE) + get_filename_component(output_ext "${output}" EXT) + set(output_64 "${output_name}_64${output_ext}") + add_cblas_ctest(${output_64} "${input}" ${target}_64) + endif() +endfunction() # Object files for single precision real -set(STESTL1O c_sblat1.f c_sblas1.c) -set(STESTL2O c_sblat2.f c_sblas2.c c_s2chke.c auxiliary.c c_xerbla.c) -set(STESTL3O c_sblat3.f c_sblas3.c c_s3chke.c auxiliary.c c_xerbla.c) +set(STESTL1O c_sblas1.c) +set(STESTL2O c_sblas2.c c_s2chke.c auxiliary.c c_xerbla.c) +set(STESTL3O c_sblas3.c c_s3chke.c auxiliary.c c_xerbla.c) # Object files for double precision real -set(DTESTL1O c_dblat1.f c_dblas1.c) -set(DTESTL2O c_dblat2.f c_dblas2.c c_d2chke.c auxiliary.c c_xerbla.c) -set(DTESTL3O c_dblat3.f c_dblas3.c c_d3chke.c auxiliary.c c_xerbla.c) +set(DTESTL1O c_dblas1.c) +set(DTESTL2O c_dblas2.c c_d2chke.c auxiliary.c c_xerbla.c) +set(DTESTL3O c_dblas3.c c_d3chke.c auxiliary.c c_xerbla.c) # Object files for single precision complex -set(CTESTL1O c_cblat1.f c_cblas1.c) -set(CTESTL2O c_cblat2.f c_cblas2.c c_c2chke.c auxiliary.c c_xerbla.c) -set(CTESTL3O c_cblat3.f c_cblas3.c c_c3chke.c auxiliary.c c_xerbla.c) +set(CTESTL1O c_cblas1.c) +set(CTESTL2O c_cblas2.c c_c2chke.c auxiliary.c c_xerbla.c) +set(CTESTL3O c_cblas3.c c_c3chke.c auxiliary.c c_xerbla.c) # Object files for double precision complex -set(ZTESTL1O c_zblat1.f c_zblas1.c) -set(ZTESTL2O c_zblat2.f c_zblas2.c c_z2chke.c auxiliary.c c_xerbla.c) -set(ZTESTL3O c_zblat3.f c_zblas3.c c_z3chke.c auxiliary.c c_xerbla.c) +set(ZTESTL1O c_zblas1.c) +set(ZTESTL2O c_zblas2.c c_z2chke.c auxiliary.c c_xerbla.c) +set(ZTESTL3O c_zblas3.c c_z3chke.c auxiliary.c c_xerbla.c) if(BUILD_SINGLE) - configure_cblas_test_target(xscblat1 "${STESTL1O}") - configure_cblas_test_target(xscblat2 "${STESTL2O}") - configure_cblas_test_target(xscblat3 "${STESTL3O}") - - add_cblas_test(stest1.out "" xscblat1) - add_cblas_test(stest2.out sin2 xscblat2) - add_cblas_test(stest3.out sin3 xscblat3) + add_cblas_test(xscblat1 stest1.out "" c_sblat1.f ${STESTL1O}) + add_cblas_test(xscblat2 stest2.out sin2 c_sblat2.f ${STESTL2O}) + add_cblas_test(xscblat3 stest3.out sin3 c_sblat3.f ${STESTL3O}) endif() if(BUILD_DOUBLE) - configure_cblas_test_target(xdcblat1 "${DTESTL1O}") - configure_cblas_test_target(xdcblat2 "${DTESTL2O}") - configure_cblas_test_target(xdcblat3 "${DTESTL3O}") - - add_cblas_test(dtest1.out "" xdcblat1) - add_cblas_test(dtest2.out din2 xdcblat2) - add_cblas_test(dtest3.out din3 xdcblat3) + add_cblas_test(xdcblat1 dtest1.out "" c_dblat1.f ${DTESTL1O}) + add_cblas_test(xdcblat2 dtest2.out din2 c_dblat2.f ${DTESTL2O}) + add_cblas_test(xdcblat3 dtest3.out din3 c_dblat3.f ${DTESTL3O}) endif() if(BUILD_COMPLEX) - configure_cblas_test_target(xccblat1 "${CTESTL1O}") - configure_cblas_test_target(xccblat2 "${CTESTL2O}") - configure_cblas_test_target(xccblat3 "${CTESTL3O}") - - add_cblas_test(ctest1.out "" xccblat1) - add_cblas_test(ctest2.out cin2 xccblat2) - add_cblas_test(ctest3.out cin3 xccblat3) + add_cblas_test(xccblat1 ctest1.out "" c_cblat1.f ${CTESTL1O}) + add_cblas_test(xccblat2 ctest2.out cin2 c_cblat2.f ${CTESTL2O}) + add_cblas_test(xccblat3 ctest3.out cin3 c_cblat3.f ${CTESTL3O}) endif() if(BUILD_COMPLEX16) - configure_cblas_test_target(xzcblat1 "${ZTESTL1O}") - configure_cblas_test_target(xzcblat2 "${ZTESTL2O}") - configure_cblas_test_target(xzcblat3 "${ZTESTL3O}") - - add_cblas_test(ztest1.out "" xzcblat1) - add_cblas_test(ztest2.out zin2 xzcblat2) - add_cblas_test(ztest3.out zin3 xzcblat3) + add_cblas_test(xzcblat1 ztest1.out "" c_zblat1.f ${ZTESTL1O}) + add_cblas_test(xzcblat2 ztest2.out zin2 c_zblat2.f ${ZTESTL2O}) + add_cblas_test(xzcblat3 ztest3.out zin3 c_zblat3.f ${ZTESTL3O}) endif() From 275bc4c7b34a7c0a076b15ad9f845ddf75043c28 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 4 May 2026 15:08:22 +0200 Subject: [PATCH 30/39] Add some more CMake messages during configure --- CMakeLists.txt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/CMakeLists.txt b/CMakeLists.txt index 9213ecb03..ab9d16a4d 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -94,6 +94,10 @@ endif() # By default static library option(BUILD_SHARED_LIBS "Build shared libraries" OFF) +message(STATUS "Build shared libraries: ${BUILD_SHARED_LIBS}") + +option(BUILD_DEFAULT_API "Build default API. Disable and combine with -DBUILD_INDEX64_EXT_API=ON to build only extended API" ON) +message(STATUS "Build default API: ${BUILD_DEFAULT_API}") # By default build index32 library option(BUILD_INDEX64 "Build Index-64 API libraries" OFF) @@ -112,9 +116,7 @@ else() set(LAPACKELIB "lapacke") set(TMGLIB "tmglib") endif() - -option(BUILD_DEFAULT_API "Build default API. Disable and combine with -DBUILD_INDEX64_EXT_API=ON to build only extended API" ON) -message(STATUS "Build default API: ${BUILD_DEFAULT_API}") +message(STATUS "Build default API with 64-bit integers: ${BUILD_INDEX64}") # By default build extended _64 API for supported compilers only. option(BUILD_INDEX64_EXT_API "Build Index-64 API as extended API with _64 suffix" ON) From fdee741c8aa4bf44ec372e0ba5efab03cae05fac Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 4 May 2026 16:49:03 +0200 Subject: [PATCH 31/39] Make sure to net generate 64bit suffixed source multiple times Co-authored-by: Copilot --- BLAS/TESTING/CMakeLists.txt | 4 ++-- CMAKE/ExtendedAPIHelpers.cmake | 40 +++++++++++++++++++++------------- TESTING/EIG/CMakeLists.txt | 7 +++++- TESTING/LIN/CMakeLists.txt | 7 +++++- 4 files changed, 39 insertions(+), 19 deletions(-) diff --git a/BLAS/TESTING/CMakeLists.txt b/BLAS/TESTING/CMakeLists.txt index 0ea274772..09882a90d 100644 --- a/BLAS/TESTING/CMakeLists.txt +++ b/BLAS/TESTING/CMakeLists.txt @@ -22,7 +22,7 @@ function(_add_blas_test name src test_input) endfunction() function(add_blas_test name source) - get_filename_component(baseNAME ${input_src} NAME_WE) + get_filename_component(baseNAME ${source} NAME_WE) set(test_input "${CMAKE_CURRENT_SOURCE_DIR}/${baseNAME}.in") if(BUILD_DEFAULT_API) @@ -31,7 +31,7 @@ function(add_blas_test name source) if(BUILD_INDEX64_EXT_API) include(ExtendedAPIHelpers) - generate_64bit_suffixed_sources(${name}_64 source source_64) + generate_64bit_suffixed_sources(${name} source source_64) # Create 64-bit version of test input if it exists, replacing output # file names with their 64-bit counterparts diff --git a/CMAKE/ExtendedAPIHelpers.cmake b/CMAKE/ExtendedAPIHelpers.cmake index 0c83866f6..6757cae27 100644 --- a/CMAKE/ExtendedAPIHelpers.cmake +++ b/CMAKE/ExtendedAPIHelpers.cmake @@ -13,6 +13,8 @@ endif() # at build time in the Generate64BitSuffixedSource.cmake script. function(generate_64bit_suffixed_sources target source_list generated_sources) get_filename_component(destination "${target}_64_sources" ABSOLUTE BASE_DIR "${CMAKE_CURRENT_BINARY_DIR}") + get_property(_generated_64bit_source_files GLOBAL PROPERTY EXTENDED_API_GENERATED_SOURCE_FILES) + set(new_generated_source_files) set(generated_source_files) foreach(source IN LISTS ${source_list}) @@ -27,28 +29,36 @@ function(generate_64bit_suffixed_sources target source_list generated_sources) continue() endif() - add_custom_command( - OUTPUT "${output_file}" - COMMAND - "${CMAKE_COMMAND}" - "-DINPUT_FILE=${source_abs}" - "-DOUTPUT_FILE=${output_file}" - -P "${EXTENDED_API_GENERATOR}" - DEPENDS - "${source_abs}" - "${EXTENDED_API_GENERATOR}" - COMMENT "Generating 64-bit extended API source for ${source}" - VERBATIM) + # Make sure we only have one custom command generating a given output file + if(NOT "${output_file}" IN_LIST _generated_64bit_source_files) + add_custom_command( + OUTPUT "${output_file}" + COMMAND + "${CMAKE_COMMAND}" + "-DINPUT_FILE=${source_abs}" + "-DOUTPUT_FILE=${output_file}" + -P "${EXTENDED_API_GENERATOR}" + DEPENDS + "${source_abs}" + "${EXTENDED_API_GENERATOR}" + COMMENT "Generating 64-bit extended API source for ${source}" + VERBATIM) + + list(APPEND new_generated_source_files "${output_file}") + endif() list(APPEND generated_source_files "${output_file}") endforeach() - if(generated_source_files) + # Make sure each generated source file is only part of one target to + # avoid multiple targets trying to generate the same file + if(new_generated_source_files) add_custom_target("${target}_64bit_codegen" ALL - DEPENDS ${generated_source_files} + DEPENDS ${new_generated_source_files} COMMENT "Generating 64-bit suffixed sources for target ${target}") add_dependencies(64bit_codegen "${target}_64bit_codegen") - set_source_files_properties(${generated_source_files} PROPERTIES GENERATED TRUE) + + set_property(GLOBAL APPEND PROPERTY EXTENDED_API_GENERATED_SOURCE_FILES ${new_generated_source_files}) endif() set(${generated_sources} ${generated_source_files} PARENT_SCOPE) diff --git a/TESTING/EIG/CMakeLists.txt b/TESTING/EIG/CMakeLists.txt index 0c9792b67..5f676e057 100644 --- a/TESTING/EIG/CMakeLists.txt +++ b/TESTING/EIG/CMakeLists.txt @@ -113,11 +113,16 @@ function(add_eig_executable name) if(BUILD_INDEX64_EXT_API) include(ExtendedAPIHelpers) - generate_64bit_suffixed_sources(${name}_64 ${sources} sources_64) + generate_64bit_suffixed_sources(${name} sources sources_64) add_executable(${name}_64 ${sources_64}) target_compile_options(${name}_64 PRIVATE ${FOPT_ILP64}) target_link_libraries(${name}_64 ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) + + # Add depedency to the global codegen target. Since we reuse the same + # generated source file for multiple tests, the generation could be + # triggered by multiple targets when building in parallel. + add_dependencies(${name}_64 64bit_codegen) endif() endfunction() diff --git a/TESTING/LIN/CMakeLists.txt b/TESTING/LIN/CMakeLists.txt index 6b3ba1b87..15f9671d9 100644 --- a/TESTING/LIN/CMakeLists.txt +++ b/TESTING/LIN/CMakeLists.txt @@ -254,11 +254,16 @@ function(add_lin_executable name) if(BUILD_INDEX64_EXT_API) include(ExtendedAPIHelpers) - generate_64bit_suffixed_sources(${name}_64 sources sources_64) + generate_64bit_suffixed_sources(${name} sources sources_64) add_executable(${name}_64 ${sources_64}) target_compile_options(${name}_64 PRIVATE ${FOPT_ILP64}) target_link_libraries(${name}_64 ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) + + # Add depedency to the global codegen target. Since we reuse the same + # generated source file for multiple tests, the generation could be + # triggered by multiple targets when building in parallel. + add_dependencies(${name}_64 64bit_codegen) endif() endfunction() From 3e31f5a1469079a77de2e16b518d3afd8c16bf83 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 4 May 2026 16:49:37 +0200 Subject: [PATCH 32/39] Remove old WIndows complex settings --- LAPACKE/CMakeLists.txt | 4 ---- 1 file changed, 4 deletions(-) diff --git a/LAPACKE/CMakeLists.txt b/LAPACKE/CMakeLists.txt index 186f7c76a..3a6212850 100644 --- a/LAPACKE/CMakeLists.txt +++ b/LAPACKE/CMakeLists.txt @@ -94,10 +94,6 @@ target_include_directories(${LAPACKELIB} PUBLIC $ $ ) -if(WIN32 AND NOT UNIX) - target_compile_definitions(${LAPACKELIB} PUBLIC HAVE_LAPACK_CONFIG_H LAPACK_COMPLEX_STRUCTURE) - message(STATUS "Windows BUILD") -endif() if(LAPACKE_WITH_TMG) target_link_libraries(${LAPACKELIB} PRIVATE ${TMGLIB}) From 0fdfcd6e8a161b2d406df0226b01d2d253fd3e7c Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 4 May 2026 17:46:06 +0200 Subject: [PATCH 33/39] Warn the user if Index-64 API is build as extended API and as the default API redundantly. Co-authored-by: Copilot --- CMakeLists.txt | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/CMakeLists.txt b/CMakeLists.txt index ab9d16a4d..9da99bdad 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -116,12 +116,18 @@ else() set(LAPACKELIB "lapacke") set(TMGLIB "tmglib") endif() -message(STATUS "Build default API with 64-bit integers: ${BUILD_INDEX64}") +message(STATUS "Build default API as Index-64: ${BUILD_INDEX64}") -# By default build extended _64 API for supported compilers only. +# By default build extended _64 API option(BUILD_INDEX64_EXT_API "Build Index-64 API as extended API with _64 suffix" ON) message(STATUS "Build Index-64 API as extended API with _64 suffix: ${BUILD_INDEX64_EXT_API}") +if(BUILD_INDEX64_EXT_API AND BUILD_INDEX64) + message(WARNING + "Building Index-64 API redundantly as extended API and default API." + "Consider disabling one of them (BUILD_INDEX64_EXT_API / BUILD_INDEX64).") +endif() + include(GNUInstallDirs) # Configure the warning and code coverage suppression file From de3200808fa6da1c2f43d342d2b861542cf85506 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 4 May 2026 18:17:39 +0200 Subject: [PATCH 34/39] Fix CMAKE while loops for older CMake versions --- CMAKE/Generate64BitSuffixedSource.cmake | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/CMAKE/Generate64BitSuffixedSource.cmake b/CMAKE/Generate64BitSuffixedSource.cmake index 610926689..d99e14955 100644 --- a/CMAKE/Generate64BitSuffixedSource.cmake +++ b/CMAKE/Generate64BitSuffixedSource.cmake @@ -180,7 +180,7 @@ function(_wrap_fixed_form_line line result) set(wrapped_line "") set(current_line "${line}") - while(TRUE) + while(1) string(LENGTH "${current_line}" line_length) if(NOT line_length GREATER 72) if(wrapped_line STREQUAL "") @@ -227,7 +227,7 @@ function(_wrap_fixed_form_source source_text result) string(REPLACE "\r" "\n" remaining_source "${remaining_source}") set(wrapped_source "") - while(TRUE) + while(1) string(FIND "${remaining_source}" "\n" newline_index) if(newline_index EQUAL -1) if(NOT remaining_source STREQUAL "") @@ -259,7 +259,7 @@ string(REPLACE "\r\n" "\n" symbol_scan_source "${source_content}") string(REPLACE "\r" "\n" symbol_scan_source "${symbol_scan_source}") set(symbol_names) -while(TRUE) +while(1) _pop_source_line(symbol_scan_source current_line has_line) if(NOT has_line) break() @@ -273,7 +273,7 @@ while(TRUE) _normalize_fortran_statement_fragment("${current_line}" logical_line) set(last_line "${current_line}") - while(TRUE) + while(1) _peek_source_line(symbol_scan_source continuation_line has_line) if(NOT has_line) break() From 9524bb79f0abdeed0241ea795027439302dee6f1 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 4 May 2026 18:22:18 +0200 Subject: [PATCH 35/39] Added _64 suffix to LAPACKE_lsame as well --- LAPACKE/include/lapack.h | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) diff --git a/LAPACKE/include/lapack.h b/LAPACKE/include/lapack.h index 2c41b984d..a14128cea 100644 --- a/LAPACKE/include/lapack.h +++ b/LAPACKE/include/lapack.h @@ -144,18 +144,6 @@ typedef lapack_logical (*LAPACK_Z_SELECT1) ( const lapack_complex_double* ); typedef lapack_logical (*LAPACK_Z_SELECT2) ( const lapack_complex_double*, const lapack_complex_double* ); -#define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME) -lapack_logical LAPACK_lsame_base( const char* ca, const char* cb -#ifdef LAPACK_FORTRAN_STRLEN_END - , FORTRAN_STRLEN, FORTRAN_STRLEN -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__) -#endif - /* * Integer specific API */ @@ -169,7 +157,17 @@ lapack_logical LAPACK_lsame_base( const char* ca, const char* cb #define LAPACK_GLOBAL_SUFFIX(a,b) LAPACK_GLOBAL(a,b) #endif - +#define LAPACK_lsame_base LAPACK_GLOBAL_SUFFIX(lsame,LSAME) +lapack_logical LAPACK_lsame_base( const char* ca, const char* cb +#ifdef LAPACK_FORTRAN_STRLEN_END + , FORTRAN_STRLEN, FORTRAN_STRLEN +#endif +); +#ifdef LAPACK_FORTRAN_STRLEN_END + #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__, 1, 1) +#else + #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__) +#endif /*----------------------------------------------------------------------------*/ /* This is in alphabetical order (ignoring leading precision). */ From 5a794042586fd1140ed9f66dec7168193eb3f9a3 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 4 May 2026 19:07:15 +0200 Subject: [PATCH 36/39] Fix replaced string literals in _64 suffixed sources --- BLAS/TESTING/CMakeLists.txt | 2 +- CMAKE/ExtendedAPIHelpers.cmake | 13 +++- CMAKE/Generate64BitSuffixedSource.cmake | 89 +++++++++++++++++++++++-- 3 files changed, 94 insertions(+), 10 deletions(-) diff --git a/BLAS/TESTING/CMakeLists.txt b/BLAS/TESTING/CMakeLists.txt index 09882a90d..b7baa2518 100644 --- a/BLAS/TESTING/CMakeLists.txt +++ b/BLAS/TESTING/CMakeLists.txt @@ -31,7 +31,7 @@ function(add_blas_test name source) if(BUILD_INDEX64_EXT_API) include(ExtendedAPIHelpers) - generate_64bit_suffixed_sources(${name} source source_64) + generate_64bit_suffixed_sources(${name} source source_64 NO_STRING_REPLACEMENTS) # Create 64-bit version of test input if it exists, replacing output # file names with their 64-bit counterparts diff --git a/CMAKE/ExtendedAPIHelpers.cmake b/CMAKE/ExtendedAPIHelpers.cmake index 6757cae27..85062eea1 100644 --- a/CMAKE/ExtendedAPIHelpers.cmake +++ b/CMAKE/ExtendedAPIHelpers.cmake @@ -12,6 +12,9 @@ endif() # Generate 64-bit suffixed sources for the extended API. The generation happens # at build time in the Generate64BitSuffixedSource.cmake script. function(generate_64bit_suffixed_sources target source_list generated_sources) + set(options NO_STRING_REPLACEMENTS) + cmake_parse_arguments(PARSE_ARGV 3 extended_api "${options}" "" "") + get_filename_component(destination "${target}_64_sources" ABSOLUTE BASE_DIR "${CMAKE_CURRENT_BINARY_DIR}") get_property(_generated_64bit_source_files GLOBAL PROPERTY EXTENDED_API_GENERATED_SOURCE_FILES) set(new_generated_source_files) @@ -31,12 +34,18 @@ function(generate_64bit_suffixed_sources target source_list generated_sources) # Make sure we only have one custom command generating a given output file if(NOT "${output_file}" IN_LIST _generated_64bit_source_files) + set(generator_args + "-DINPUT_FILE=${source_abs}" + "-DOUTPUT_FILE=${output_file}") + if(extended_api_NO_STRING_REPLACEMENTS) + list(APPEND generator_args "-DREPLACE_IN_STRINGS=OFF") + endif() + add_custom_command( OUTPUT "${output_file}" COMMAND "${CMAKE_COMMAND}" - "-DINPUT_FILE=${source_abs}" - "-DOUTPUT_FILE=${output_file}" + ${generator_args} -P "${EXTENDED_API_GENERATOR}" DEPENDS "${source_abs}" diff --git a/CMAKE/Generate64BitSuffixedSource.cmake b/CMAKE/Generate64BitSuffixedSource.cmake index d99e14955..6d852537f 100644 --- a/CMAKE/Generate64BitSuffixedSource.cmake +++ b/CMAKE/Generate64BitSuffixedSource.cmake @@ -6,6 +6,10 @@ if(NOT DEFINED OUTPUT_FILE) message(FATAL_ERROR "OUTPUT_FILE must be set") endif() +if(NOT DEFINED REPLACE_IN_STRINGS) + set(REPLACE_IN_STRINGS ON) +endif() + # Check whether the input file is fixed or free form based on its extension. get_filename_component(input_extension "${INPUT_FILE}" LAST_EXT) string(TOLOWER "${input_extension}" input_extension_lower) @@ -217,6 +221,8 @@ function(_wrap_fixed_form_line line result) set(${result} "${wrapped_line}" PARENT_SCOPE) endfunction() +# Wrap fixed-form Fortran source code to ensure it remains valid with +# the standard 72-column statement field. function(_wrap_fixed_form_source source_text result) if(_rewrite_source_is_free_form) set(${result} "${source_text}" PARENT_SCOPE) @@ -248,6 +254,65 @@ function(_wrap_fixed_form_source source_text result) set(${result} "${wrapped_source}" PARENT_SCOPE) endfunction() +# Protect string literals in the source content by replacing them with +# placeholders, and save the original literals in variables for later restoration. +function(_protect_fortran_string_literals input_text result count_result) + set(output_text "") + set(remaining_source "${input_text}") + set(literal_count 0) + set(string_literal_regex "'([^']|'')*'|\"([^\"]|\"\")*\"") + + while(NOT remaining_source STREQUAL "") + string(FIND "${remaining_source}" "\n" newline_index) + if(newline_index EQUAL -1) + set(current_line "${remaining_source}") + set(remaining_source "") + set(has_newline FALSE) + else() + string(SUBSTRING "${remaining_source}" 0 ${newline_index} current_line) + math(EXPR next_index "${newline_index} + 1") + string(SUBSTRING "${remaining_source}" ${next_index} -1 + remaining_source) + set(has_newline TRUE) + endif() + + string(REGEX MATCHALL "${string_literal_regex}" string_literals + "${current_line}") + foreach(string_literal IN LISTS string_literals) + set(placeholder "@@LAPACK_64_STRING_LITERAL_${literal_count}@@") + string(REPLACE "${string_literal}" "${placeholder}" current_line + "${current_line}") + set(protected_string_literal_${literal_count} "${string_literal}" + PARENT_SCOPE) + math(EXPR literal_count "${literal_count} + 1") + endforeach() + + string(APPEND output_text "${current_line}") + if(has_newline) + string(APPEND output_text "\n") + endif() + endwhile() + + set(${result} "${output_text}" PARENT_SCOPE) + set(${count_result} "${literal_count}" PARENT_SCOPE) +endfunction() + +# Restore string literals in the rewritten source content by replacing the +# placeholders with the original literals saved from the input content. +function(_restore_fortran_string_literals input_text literal_count result) + set(output_text "${input_text}") + if(literal_count GREATER 0) + math(EXPR last_literal_index "${literal_count} - 1") + foreach(index RANGE 0 ${last_literal_index}) + set(placeholder "@@LAPACK_64_STRING_LITERAL_${index}@@") + string(REPLACE "${placeholder}" "${protected_string_literal_${index}}" + output_text "${output_text}") + endforeach() + endif() + + set(${result} "${output_text}" PARENT_SCOPE) +endfunction() + get_filename_component(output_dir "${OUTPUT_FILE}" DIRECTORY) file(MAKE_DIRECTORY "${output_dir}") @@ -317,22 +382,32 @@ endwhile() list(REMOVE_DUPLICATES symbol_names) list(REMOVE_ITEM symbol_names ETIME etime ETIME_ etime_) +# If string literals should not be modified, protect them before performing replacements +if(NOT REPLACE_IN_STRINGS) + _protect_fortran_string_literals( + "${rewritten_content}" rewritten_content protected_string_literal_count) +endif() + # Replace symbol names with their suffixed versions in the source content foreach(symbol_name IN LISTS symbol_names) set(symbol_variants "${symbol_name}") string(TOLOWER "${symbol_name}" symbol_lower) string(TOUPPER "${symbol_name}" symbol_upper) foreach(symbol_variant "${symbol_lower}" "${symbol_upper}") - string( - REGEX REPLACE - "(^|[^A-Za-z0-9_])${symbol_variant}([^A-Za-z0-9_]|$)" - "\\1${symbol_variant}_64\\2" - rewritten_content - "${rewritten_content}" - ) + set(match_regex "(^|[^A-Za-z0-9_])${symbol_variant}([^A-Za-z0-9_]|$)") + set(replacement "\\1${symbol_variant}_64\\2") + string(REGEX REPLACE + "${match_regex}" "${replacement}" + rewritten_content "${rewritten_content}") endforeach() endforeach() +# Restore string literals if they were protected +if(NOT REPLACE_IN_STRINGS) + _restore_fortran_string_literals( + "${rewritten_content}" "${protected_string_literal_count}" rewritten_content) +endif() + _wrap_fixed_form_source("${rewritten_content}" rewritten_content) if(EXISTS "${OUTPUT_FILE}") From 01b6937a373ac52ee29e3dad278193e4111f753c Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Tue, 5 May 2026 17:44:57 +0200 Subject: [PATCH 37/39] NAG Fortran on Windows expected -i8 not /i8 --- CMAKE/CheckLAPACKCompilerFlags.cmake | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/CMAKE/CheckLAPACKCompilerFlags.cmake b/CMAKE/CheckLAPACKCompilerFlags.cmake index aa09c1a2d..4746c5ed9 100644 --- a/CMAKE/CheckLAPACKCompilerFlags.cmake +++ b/CMAKE/CheckLAPACKCompilerFlags.cmake @@ -24,11 +24,7 @@ macro(CheckLAPACKCompilerFlags) (CMAKE_Fortran_COMPILER_ID STREQUAL "XL")) # CMake 2.8 set(FOPT_ILP64 -qintsize=8) elseif(CMAKE_Fortran_COMPILER_ID STREQUAL "NAG") - if(WIN32) - set(FOPT_ILP64 /i8) - else() - set(FOPT_ILP64 -i8) - endif() + set(FOPT_ILP64 -i8) elseif(CMAKE_Fortran_COMPILER_ID STREQUAL "NVHPC") if(WIN32) set(FOPT_ILP64 /i8) From 04643e103e3f4c87afc1f465cab3cac7bac11bdb Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Mon, 11 May 2026 17:21:49 +0200 Subject: [PATCH 38/39] Added CI pipeline to test _64 extended API on its own. --- .github/workflows/cmake.yml | 55 +++++++++++++++++++++++++++++++------ 1 file changed, 47 insertions(+), 8 deletions(-) diff --git a/.github/workflows/cmake.yml b/.github/workflows/cmake.yml index e98f06e49..ee6339cd1 100644 --- a/.github/workflows/cmake.yml +++ b/.github/workflows/cmake.yml @@ -48,7 +48,7 @@ jobs: test-install-release: # Use GNU compilers - + # The CMake configure and build commands are platform agnostic and should work equally # well on Windows or Mac. You can convert this to a matrix build if you need # cross-platform coverage. @@ -66,9 +66,9 @@ jobs: fflags: [ "-Wall -Wno-unused-dummy-argument -Wno-unused-variable -Wno-unused-label -Werror=conversion -fimplicit-none -frecursive -fcheck=all", "-Wall -Wno-unused-dummy-argument -Wno-unused-variable -Wno-unused-label -Werror=conversion -fimplicit-none -frecursive -fcheck=all -fopenmp" ] - + steps: - + - name: Checkout LAPACK uses: actions/checkout@8e5e7e5ab8b370d6c329ec480221332ada57f0ab # v3.5.2 @@ -103,7 +103,7 @@ jobs: -D BUILD_SHARED_LIBS:BOOL=ON - name: Build - # Execute tests defined by the CMake configuration. + # Execute tests defined by the CMake configuration. # See https://cmake.org/cmake/help/latest/manual/ctest.1.html for more detail run: cmake --build build --config ${{env.BUILD_TYPE}} @@ -120,13 +120,52 @@ jobs: - name: Install run: cmake --build build --target install -j2 + test-extended-api-only: + runs-on: ubuntu-latest + + env: + BUILD_TYPE: Release + FFLAGS: "-Wall -Wno-unused-dummy-argument -Wno-unused-variable -Wno-unused-label -Werror=conversion -fimplicit-none -frecursive -fcheck=all" + + strategy: + fail-fast: true + matrix: + shared_libs: [ OFF, ON ] + + steps: + + - name: Checkout LAPACK + uses: actions/checkout@8e5e7e5ab8b370d6c329ec480221332ada57f0ab # v3.5.2 + + - name: Install ninja-build tool + uses: seanmiddleditch/gha-setup-ninja@16b940825621068d98711680b6c3ff92201f8fc0 # v3 + + - name: Configure CMake + run: > + cmake -B build -G Ninja + -D CMAKE_BUILD_TYPE=${{env.BUILD_TYPE}} + -D BUILD_SHARED_LIBS:BOOL=${{matrix.shared_libs}} + -D BUILD_DEFAULT_API:BOOL=OFF + -D BUILD_INDEX64_EXT_API:BOOL=ON + -D BUILD_TESTING:BOOL=ON + -D CBLAS:BOOL=ON + -D LAPACKE:BOOL=ON + -D LAPACKE_WITH_TMG:BOOL=ON + + - name: Build + run: cmake --build build --config ${{env.BUILD_TYPE}} + + - name: Test + working-directory: ${{github.workspace}}/build + run: ctest -C ${{env.BUILD_TYPE}} --schedule-random -j2 --output-on-failure --timeout 100 + coverage: - runs-on: ubuntu-latest + runs-on: ubuntu-latest env: BUILD_TYPE: Coverage FFLAGS: "-fopenmp" - steps: - + steps: + - name: Checkout LAPACK uses: actions/checkout@8e5e7e5ab8b370d6c329ec480221332ada57f0ab # v3.5.2 @@ -198,7 +237,7 @@ jobs: - name: Install ninja-build tool uses: seanmiddleditch/gha-setup-ninja@16b940825621068d98711680b6c3ff92201f8fc0 # v3 - + - name: Install APT packages run: | sudo apt update From 83fdf63e7f4aa33454ad285ee4ab6217b4fb1911 Mon Sep 17 00:00:00 2001 From: Simon Maertens Date: Wed, 13 May 2026 11:30:20 +0100 Subject: [PATCH 39/39] Don't generate _64 suffixed sources for XBLAS related routines, because XBLAS doesn't ship extended APIs. --- CMakeLists.txt | 3 +- LAPACKE/CMakeLists.txt | 7 +++- SRC/CMakeLists.txt | 23 ++++++----- TESTING/LIN/CMakeLists.txt | 83 ++++++++++++++++++++++++-------------- 4 files changed, 74 insertions(+), 42 deletions(-) diff --git a/CMakeLists.txt b/CMakeLists.txt index 9da99bdad..235f50eec 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -278,7 +278,8 @@ endif() option(USE_XBLAS "Build extended precision (needs XBLAS)" OFF) if(USE_XBLAS) - find_library(XBLAS_LIBRARY NAMES xblas) + find_library(XBLAS_LIBRARY NAMES xblas REQUIRED) + message(STATUS "Looking for XBLAS library: ${XBLAS_LIBRARY}") endif() option(USE_OPTIMIZED_LAPACK "Whether or not to use an optimized LAPACK library instead of included netlib LAPACK" OFF) diff --git a/LAPACKE/CMakeLists.txt b/LAPACKE/CMakeLists.txt index 3a6212850..f0e275938 100644 --- a/LAPACKE/CMakeLists.txt +++ b/LAPACKE/CMakeLists.txt @@ -60,8 +60,10 @@ append_subdir_files(COMMON_UTILS "utils") if(BUILD_DEPRECATED) list(APPEND SOURCES ${DEPRECATED}) endif() + +set(XSOURCES) if(USE_XBLAS) - list(APPEND SOURCES ${EXTENDED}) + list(APPEND XSOURCES ${EXTENDED}) endif() if(LAPACKE_WITH_TMG) list(APPEND SOURCES ${MATGEN}) @@ -69,7 +71,8 @@ endif() list(APPEND SOURCES ${UTILS}) if(BUILD_DEFAULT_API) - add_library(${LAPACKELIB}_obj OBJECT ${COMMON_SOURCES} ${COMMON_UTILS} ${SOURCES}) + add_library(${LAPACKELIB}_obj OBJECT + ${COMMON_SOURCES} ${COMMON_UTILS} ${SOURCES} ${XSOURCES}) else() add_library(${LAPACKELIB}_obj OBJECT ${COMMON_SOURCES} ${COMMON_UTILS}) endif() diff --git a/SRC/CMakeLists.txt b/SRC/CMakeLists.txt index 34b178acf..e5a97b2a8 100644 --- a/SRC/CMakeLists.txt +++ b/SRC/CMakeLists.txt @@ -496,26 +496,31 @@ if(BUILD_DEPRECATED) DEPRECATED/zggsvp.f DEPRECATED/zlahrd.f DEPRECATED/zlatzm.f DEPRECATED/ztzrqf.f) endif() -if(USE_XBLAS) - list(APPEND SLASRC ${SXLASRC}) - list(APPEND DLASRC ${DXLASRC}) - list(APPEND CLASRC ${CXLASRC}) - list(APPEND ZLASRC ${ZXLASRC}) -endif() - - set(SOURCES) +set(XSOURCES) if(BUILD_SINGLE) list(APPEND SOURCES ${SLASRC} ${DSLASRC} ${SCLAUX} ${ALLAUX}) + if(USE_XBLAS) + list(APPEND XSOURCES ${SXLASRC}) + endif() endif() if(BUILD_DOUBLE) list(APPEND SOURCES ${DLASRC} ${DSLASRC} ${DZLAUX} ${ALLAUX}) + if(USE_XBLAS) + list(APPEND XSOURCES ${DXLASRC}) + endif() endif() if(BUILD_COMPLEX) list(APPEND SOURCES ${CLASRC} ${ZCLASRC} ${SCLAUX} ${ALLAUX}) + if(USE_XBLAS) + list(APPEND XSOURCES ${CXLASRC}) + endif() endif() if(BUILD_COMPLEX16) list(APPEND SOURCES ${ZLASRC} ${ZCLASRC} ${DZLAUX} ${ALLAUX}) + if(USE_XBLAS) + list(APPEND XSOURCES ${ZXLASRC}) + endif() endif() list(REMOVE_DUPLICATES SOURCES) @@ -528,7 +533,7 @@ add_library(mod_files OBJECT ${NANMOD} $) set_target_properties(mod_files PROPERTIES Fortran_PREPROCESS ON) if(BUILD_DEFAULT_API) - add_library(${LAPACKLIB}_obj OBJECT ${SOURCES}) + add_library(${LAPACKLIB}_obj OBJECT ${SOURCES} ${XSOURCES}) target_link_libraries(${LAPACKLIB}_obj mod_files) set_target_properties(${LAPACKLIB}_obj PROPERTIES Fortran_PREPROCESS ON) endif() diff --git a/TESTING/LIN/CMakeLists.txt b/TESTING/LIN/CMakeLists.txt index 15f9671d9..a8029d21a 100644 --- a/TESTING/LIN/CMakeLists.txt +++ b/TESTING/LIN/CMakeLists.txt @@ -42,14 +42,16 @@ set(SLINTST serrlqt.f serrlqtp.f serrtsqr.f stsqr01.f slqt04.f slqt05.f schkorhr_col.f serrorhr_col.f sorhr_col01.f sorhr_col02.f) +set(SLINTST_NO_XBLAS + sdrvgb.f sdrvge.f sdrvsy.f sdrvpo.f + serrvx.f serrge.f serrsy.f serrpo.f) + if(USE_XBLAS) - list(APPEND SLINTST + set(SXLINTST sdrvgbx.f sdrvgex.f sdrvsyx.f sdrvpox.f serrvxx.f serrgex.f serrsyx.f serrpox.f sebchvxx.f) else() - list(APPEND SLINTST - sdrvgb.f sdrvge.f sdrvsy.f sdrvpo.f - serrvx.f serrge.f serrsy.f serrpo.f) + set(SXLINTST ${SLINTST_NO_XBLAS}) endif() set(CLINTST @@ -99,14 +101,16 @@ set(CLINTST cerrlqt.f cerrlqtp.f cerrtsqr.f ctsqr01.f clqt04.f clqt05.f cchkunhr_col.f cerrunhr_col.f cunhr_col01.f cunhr_col02.f) +set(CLINTST_NO_XBLAS + cdrvgb.f cdrvge.f cdrvhe.f cdrvsy.f cdrvpo.f + cerrvx.f cerrge.f cerrhe.f cerrsy.f cerrpo.f) + if(USE_XBLAS) - list(APPEND CLINTST + set(CXLINTST cdrvgbx.f cdrvgex.f cdrvhex.f cdrvsyx.f cdrvpox.f cerrvxx.f cerrgex.f cerrhex.f cerrsyx.f cerrpox.f cebchvxx.f) else() - list(APPEND CLINTST - cdrvgb.f cdrvge.f cdrvhe.f cdrvsy.f cdrvpo.f - cerrvx.f cerrge.f cerrhe.f cerrsy.f cerrpo.f) + set(CXLINTST ${CLINTST_NO_XBLAS}) endif() set(DLINTST @@ -146,13 +150,16 @@ set(DLINTST derrlqt.f derrlqtp.f derrtsqr.f dtsqr01.f dlqt04.f dlqt05.f dchkorhr_col.f derrorhr_col.f dorhr_col01.f dorhr_col02.f) +set(DLINTST_NO_XBLAS + ddrvgb.f ddrvge.f ddrvsy.f ddrvpo.f + derrvx.f derrge.f derrsy.f derrpo.f) + if(USE_XBLAS) - list(APPEND DLINTST ddrvgbx.f ddrvgex.f ddrvsyx.f ddrvpox.f - derrvxx.f derrgex.f derrsyx.f derrpox.f - debchvxx.f) + set(DXLINTST + ddrvgbx.f ddrvgex.f ddrvsyx.f ddrvpox.f + derrvxx.f derrgex.f derrsyx.f derrpox.f debchvxx.f) else() - list(APPEND DLINTST ddrvgb.f ddrvge.f ddrvsy.f ddrvpo.f - derrvx.f derrge.f derrsy.f derrpo.f) + set(DXLINTST ${DLINTST_NO_XBLAS}) endif() set(ZLINTST @@ -202,14 +209,16 @@ set(ZLINTST zerrlqt.f zerrlqtp.f zerrtsqr.f ztsqr01.f zlqt04.f zlqt05.f zchkunhr_col.f zerrunhr_col.f zunhr_col01.f zunhr_col02.f) +set(ZLINTST_NO_XBLAS + zdrvgb.f zdrvge.f zdrvhe.f zdrvsy.f zdrvpo.f + zerrvx.f zerrge.f zerrhe.f zerrsy.f zerrpo.f) + if(USE_XBLAS) - list(APPEND ZLINTST + set(ZXLINTST zdrvgbx.f zdrvgex.f zdrvhex.f zdrvsyx.f zdrvpox.f zerrvxx.f zerrgex.f zerrhex.f zerrsyx.f zerrpox.f zebchvxx.f) else() - list(APPEND ZLINTST - zdrvgb.f zdrvge.f zdrvhe.f zdrvsy.f zdrvpo.f - zerrvx.f zerrge.f zerrhe.f zerrsy.f zerrpo.f) + set(ZXLINTST ${ZLINTST_NO_XBLAS}) endif() set(DSLINTST @@ -245,7 +254,9 @@ set(ZLINTSTRFP chkxer.f xerbla.f alaerh.f aladhd.f alahd.f alasvm.f) function(add_lin_executable name) - set(sources ${ARGN}) + cmake_parse_arguments(PARSE_ARGV 1 LIN "" "" "SOURCES;DEFAULT_API;EXT_API") + set(sources ${LIN_SOURCES} ${LIN_DEFAULT_API}) + set(ext_sources ${LIN_SOURCES} ${LIN_EXT_API}) if(BUILD_DEFAULT_API) add_executable(${name} ${sources}) @@ -254,9 +265,9 @@ function(add_lin_executable name) if(BUILD_INDEX64_EXT_API) include(ExtendedAPIHelpers) - generate_64bit_suffixed_sources(${name} sources sources_64) + generate_64bit_suffixed_sources(${name} ext_sources ext_sources_64) - add_executable(${name}_64 ${sources_64}) + add_executable(${name}_64 ${ext_sources_64}) target_compile_options(${name}_64 PRIVATE ${FOPT_ILP64}) target_link_libraries(${name}_64 ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) @@ -268,29 +279,41 @@ function(add_lin_executable name) endfunction() if(BUILD_SINGLE) - add_lin_executable(xlintsts ${ALINTST} ${SLINTST} ${SCLNTST}) - add_lin_executable(xlintstrfs ${SLINTSTRFP}) + add_lin_executable(xlintsts + SOURCES ${ALINTST} ${SLINTST} ${SCLNTST} + DEFAULT_API ${SXLINTST} + EXT_API ${SLINTST_NO_XBLAS}) + add_lin_executable(xlintstrfs SOURCES ${SLINTSTRFP}) endif() if(BUILD_DOUBLE) - add_lin_executable(xlintstd ${ALINTST} ${DLINTST} ${DZLNTST}) - add_lin_executable(xlintstrfd ${DLINTSTRFP}) + add_lin_executable(xlintstd + SOURCES ${ALINTST} ${DLINTST} ${DZLNTST} + DEFAULT_API ${DXLINTST} + EXT_API ${DLINTST_NO_XBLAS}) + add_lin_executable(xlintstrfd SOURCES ${DLINTSTRFP}) endif() if(BUILD_SINGLE AND BUILD_DOUBLE) - add_lin_executable(xlintstds ${DSLINTST}) + add_lin_executable(xlintstds SOURCES ${DSLINTST}) endif() if(BUILD_COMPLEX) - add_lin_executable(xlintstc ${ALINTST} ${CLINTST} ${SCLNTST}) - add_lin_executable(xlintstrfc ${CLINTSTRFP}) + add_lin_executable(xlintstc + SOURCES ${ALINTST} ${CLINTST} ${SCLNTST} + DEFAULT_API ${CXLINTST} + EXT_API ${CLINTST_NO_XBLAS}) + add_lin_executable(xlintstrfc SOURCES ${CLINTSTRFP}) endif() if(BUILD_COMPLEX16) - add_lin_executable(xlintstz ${ALINTST} ${ZLINTST} ${DZLNTST}) - add_lin_executable(xlintstrfz ${ZLINTSTRFP}) + add_lin_executable(xlintstz + SOURCES ${ALINTST} ${ZLINTST} ${DZLNTST} + DEFAULT_API ${ZXLINTST} + EXT_API ${ZLINTST_NO_XBLAS}) + add_lin_executable(xlintstrfz SOURCES ${ZLINTSTRFP}) endif() if(BUILD_COMPLEX AND BUILD_COMPLEX16) - add_lin_executable(xlintstzc ${ZCLINTST}) + add_lin_executable(xlintstzc SOURCES ${ZCLINTST}) endif()