diff --git a/.github/workflows/cmake.yml b/.github/workflows/cmake.yml index e98f06e49d..ee6339cd17 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 diff --git a/BLAS/SRC/CMakeLists.txt b/BLAS/SRC/CMakeLists.txt index 501a3275f2..b9b8be628b 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) @@ -115,65 +117,41 @@ if(BUILD_COMPLEX16) endif() list(REMOVE_DUPLICATES SOURCES) -add_library(${BLASLIB}_obj OBJECT ${SOURCES}) -set_target_properties(${BLASLIB}_obj PROPERTIES POSITION_INDEPENDENT_CODE ON) +if(BUILD_DEFAULT_API) + add_library(${BLASLIB}_obj OBJECT ${SOURCES}) +endif() 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}) - 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") - 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( ${BLASLIB} PROPERTIES VERSION ${LAPACK_VERSION} SOVERSION ${LAPACK_MAJOR_VERSION} - POSITION_INDEPENDENT_CODE ON ) 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/BLAS/TESTING/CMakeLists.txt b/BLAS/TESTING/CMakeLists.txt index 597e81738b..b7baa25180 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 ${source} 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} 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 + 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) diff --git a/CBLAS/examples/CMakeLists.txt b/CBLAS/examples/CMakeLists.txt index 61042430ee..a6fe68b867 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/CBLAS/include/CMakeLists.txt b/CBLAS/include/CMakeLists.txt index a922fb4463..d7aee02a48 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/include/cblas_64.h b/CBLAS/include/cblas_64.h index ebc1f1380e..064ca447af 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); diff --git a/CBLAS/include/cblas_globals.h b/CBLAS/include/cblas_globals.h new file mode 100644 index 0000000000..819570a8d8 --- /dev/null +++ b/CBLAS/include/cblas_globals.h @@ -0,0 +1,13 @@ +#ifndef CBLAS_GLOBALS_H +#define CBLAS_GLOBALS_H + +#if defined(CBLAS_DLL_IMPORTS) + #define CBLAS_GLOBAL_SYMBOL __declspec(dllimport) +#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 782e1ac218..a48ed0d6fd 100644 --- a/CBLAS/include/cblas_test.h +++ b/CBLAS/include/cblas_test.h @@ -5,8 +5,14 @@ #ifndef CBLAS_TEST_H #define CBLAS_TEST_H #include "cblas.h" +#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. */ @@ -30,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/src/CMakeLists.txt b/CBLAS/src/CMakeLists.txt index b90aed116c..cea606dc60 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) # # @@ -12,36 +15,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 +59,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,96 +95,80 @@ 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}) -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) +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) - # 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$") - 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 - POSITION_INDEPENDENT_CODE ON - 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}) + include(ExtendedAPIHelpers) + generate_64bit_suffixed_sources(${CBLASLIB} SOURCES_F 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 + "$<$:${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 LINKER_LANGUAGE C VERSION ${LAPACK_VERSION} SOVERSION ${LAPACK_MAJOR_VERSION} - POSITION_INDEPENDENT_CODE ON ) target_include_directories(${CBLASLIB} PUBLIC diff --git a/CBLAS/src/cblas_globals.c b/CBLAS/src/cblas_globals.c index 5d91a18c99..1830257bea 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 db53c30fe7..60309125ee 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,8 +24,46 @@ macro(add_cblas_test output input target) -DINTDIR=${CMAKE_CFG_INTDIR} -P "${LAPACK_SOURCE_DIR}/TESTING/runtest.cmake") endif() -endmacro() +endfunction() +function(add_cblas_test_target target) + add_executable(${target} ${ARGN}) + + 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}) +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_sblas1.c) @@ -38,7 +76,7 @@ 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(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) @@ -47,84 +85,26 @@ 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) - 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}) - - 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) - 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}) - - 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) - 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}) - - 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) - 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}) - - 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() diff --git a/CBLAS/testing/c_c2chke.c b/CBLAS/testing/c_c2chke.c index 09be46e4e5..c07af1d409 100644 --- a/CBLAS/testing/c_c2chke.c +++ b/CBLAS/testing/c_c2chke.c @@ -41,13 +41,19 @@ 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 + #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,""); + API_SUFFIX(cblas_xerbla)(cblas_info,cblas_rout,""); F77_xerbla(cblas_rout,&cblas_info, 1); } #endif @@ -58,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 05109d4e0a..63524ba455 100644 --- a/CBLAS/testing/c_c3chke.c +++ b/CBLAS/testing/c_c3chke.c @@ -41,16 +41,22 @@ 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 ; 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,""); + API_SUFFIX(cblas_xerbla)(cblas_info,cblas_rout,""); F77_xerbla(cblas_rout,&cblas_info, 1); } #endif @@ -60,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(); @@ -290,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(); @@ -693,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(); @@ -869,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(); @@ -1149,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(); @@ -1429,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(); @@ -1541,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(); @@ -1653,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(); @@ -1797,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 ddfd84490a..7761f32e4c 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 38a089f0e2..2f104c6fdb 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 4d396fe678..9d8eaff364 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_cblat3.f b/CBLAS/testing/c_cblat3.f index 3575e6d8f7..1a84d9e7b8 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_d2chke.c b/CBLAS/testing/c_d2chke.c index 1ced3a649e..8d190c34ce 100644 --- a/CBLAS/testing/c_d2chke.c +++ b/CBLAS/testing/c_d2chke.c @@ -39,13 +39,19 @@ 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 + #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,""); + API_SUFFIX(cblas_xerbla)(cblas_info,cblas_rout,""); F77_xerbla(cblas_rout,&cblas_info, 1); } #endif @@ -57,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 2bf062e532..959c5bea09 100644 --- a/CBLAS/testing/c_d3chke.c +++ b/CBLAS/testing/c_d3chke.c @@ -39,13 +39,19 @@ 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 + #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,""); + API_SUFFIX(cblas_xerbla)(cblas_info,cblas_rout,""); F77_xerbla(cblas_rout,&cblas_info, 1); } #endif @@ -58,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(); @@ -288,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(); @@ -516,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(); @@ -692,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(); @@ -868,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(); @@ -1148,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(); @@ -1429,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(); @@ -1541,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 ee120af594..66b89fea8c 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,36 +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; } -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); - 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 b80dad8b1e..428f72a0a0 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:-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 +213,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 diff --git a/CMAKE/ExtendedAPIHelpers.cmake b/CMAKE/ExtendedAPIHelpers.cmake new file mode 100644 index 0000000000..85062eea1e --- /dev/null +++ b/CMAKE/ExtendedAPIHelpers.cmake @@ -0,0 +1,74 @@ +include_guard(GLOBAL) + +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 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) + set(generated_source_files) + + 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}/${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 '${target}'") + continue() + endif() + + # 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}" + ${generator_args} + -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() + + # 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 ${new_generated_source_files} + COMMENT "Generating 64-bit suffixed sources for target ${target}") + add_dependencies(64bit_codegen "${target}_64bit_codegen") + + set_property(GLOBAL APPEND PROPERTY EXTENDED_API_GENERATED_SOURCE_FILES ${new_generated_source_files}) + 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 0000000000..6d852537fe --- /dev/null +++ b/CMAKE/Generate64BitSuffixedSource.cmake @@ -0,0 +1,419 @@ +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() + +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) +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(LENGTH "${line}" line_length) + if(line_length GREATER 5) + string(SUBSTRING "${line}" 6 -1 fragment) + endif() + endif() + + set(${result} "${fragment}" PARENT_SCOPE) +endfunction() + +# 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() + +# 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() + string(SUBSTRING "${${remaining_source}}" 0 + ${_source_line_newline_index} ${line}) + endif() + set(${result} TRUE) + endif() +endmacro() + +# 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 + "^.*(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) + 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() + +# 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(1) + 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() + +# 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) + return() + endif() + + string(REPLACE "\r\n" "\n" remaining_source "${source_text}") + string(REPLACE "\r" "\n" remaining_source "${remaining_source}") + set(wrapped_source "") + + while(1) + 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() + +# 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}") + +file(READ "${INPUT_FILE}" source_content) +set(rewritten_content "${source_content}") + +# Extract symbol names from the source file +string(REPLACE "\r\n" "\n" symbol_scan_source "${source_content}") +string(REPLACE "\r" "\n" symbol_scan_source "${symbol_scan_source}") +set(symbol_names) + +while(1) + _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) + continue() + endif() + + _normalize_fortran_statement_fragment("${current_line}" logical_line) + set(last_line "${current_line}") + + while(1) + _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() +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}") + 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}") + 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() diff --git a/CMakeLists.txt b/CMakeLists.txt index 9570fe912b..235f50eec4 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) @@ -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}") @@ -18,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) @@ -89,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) @@ -107,20 +116,18 @@ else() set(LAPACKELIB "lapacke") set(TMGLIB "tmglib") endif() +message(STATUS "Build default API as Index-64: ${BUILD_INDEX64}") -# 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}) +# 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 @@ -271,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/INSTALL/CMakeLists.txt b/INSTALL/CMakeLists.txt index 5d34584ff1..264ef602fb 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/INSTALL/dsecnd_INT_ETIME.f b/INSTALL/dsecnd_INT_ETIME.f index ff1b309fc7..759df7b562 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 a20199dd68..67b94bf5c1 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 .. diff --git a/LAPACKE/CMakeLists.txt b/LAPACKE/CMakeLists.txt index c339adffdb..f0e275938e 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,56 +55,48 @@ 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}) endif() + +set(XSOURCES) if(USE_XBLAS) - list(APPEND SOURCES ${EXTENDED}) + list(APPEND XSOURCES ${EXTENDED}) endif() if(LAPACKE_WITH_TMG) list(APPEND SOURCES ${MATGEN}) endif() list(APPEND SOURCES ${UTILS}) -add_library(${LAPACKELIB}_obj OBJECT ${SOURCES}) -set_target_properties(${LAPACKELIB}_obj PROPERTIES POSITION_INDEPENDENT_CODE ON) +if(BUILD_DEFAULT_API) + add_library(${LAPACKELIB}_obj OBJECT + ${COMMON_SOURCES} ${COMMON_UTILS} ${SOURCES} ${XSOURCES}) +else() + add_library(${LAPACKELIB}_obj OBJECT ${COMMON_SOURCES} ${COMMON_UTILS}) +endif() 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}) - set_target_properties(${LAPACKELIB}_64_obj PROPERTIES - POSITION_INDEPENDENT_CODE ON) - target_compile_options(${LAPACKELIB}_64_obj PRIVATE - -DLAPACK_ILP64 - -DLAPACKE_API64 - -DWeirdNEC - -DCBLAS_API64) + add_library(${LAPACKELIB}_64_obj OBJECT ${SOURCES}) + 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 LINKER_LANGUAGE C VERSION ${LAPACK_VERSION} SOVERSION ${LAPACK_MAJOR_VERSION} - POSITION_INDEPENDENT_CODE ON ) 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}) diff --git a/LAPACKE/example/CMakeLists.txt b/LAPACKE/example/CMakeLists.txt index 509ee4edea..bddeeacff6 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} ${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) -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) @@ -19,10 +21,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) diff --git a/LAPACKE/include/lapack.h b/LAPACKE/include/lapack.h index 2c41b984d2..a14128cea5 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). */ diff --git a/LAPACKE/mangling/CMakeLists.txt b/LAPACKE/mangling/CMakeLists.txt index a3e20ab79a..5d2e46d920 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/LAPACKE/src/CMakeLists.txt b/LAPACKE/src/CMakeLists.txt index 45307c1809..a46bc5b77e 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 dfb9aa3702..9c26984b7c 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/SRC/CMakeLists.txt b/SRC/CMakeLists.txt index 33f2764d4a..e5a97b2a87 100644 --- a/SRC/CMakeLists.txt +++ b/SRC/CMakeLists.txt @@ -496,92 +496,67 @@ 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) # 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 - POSITION_INDEPENDENT_CODE ON - 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 - POSITION_INDEPENDENT_CODE ON - 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 - POSITION_INDEPENDENT_CODE ON - Fortran_PREPROCESS ON - ) +if(BUILD_DEFAULT_API) + add_library(${LAPACKLIB}_obj OBJECT ${SOURCES} ${XSOURCES}) + target_link_libraries(${LAPACKLIB}_obj mod_files) + set_target_properties(${LAPACKLIB}_obj PROPERTIES Fortran_PREPROCESS ON) +endif() 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 - POSITION_INDEPENDENT_CODE ON - 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 @@ -589,8 +564,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/VARIANTS/cholesky/RL/cpotrf.f b/SRC/VARIANTS/cholesky/RL/cpotrf.f index 99b509b475..ba15b3f4a7 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 e1de96d9ad..644bdf3921 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 b739f622ca..3303e5ad54 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 1642a47977..37d6a277c9 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 a69779fced..70630788b8 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 e992c8cfba..d78cae2e09 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 5df525a528..5cf46bb6ce 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 ff0c07bd5e..6dbd11f4e2 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 9cc23e81e0..dc7fc46ce3 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/cgeev.f b/SRC/cgeev.f index 865b07831f..ca3a446897 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/cgelq.f b/SRC/cgelq.f index 5a92164b7e..59a136846f 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 bb7d0a7b27..eb49fdc6db 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 690dc0f100..27ec15e02d 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 132a29d821..28bfc23af4 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 2696cf00a1..78b9488907 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 ad6ffaba9e..817d139f96 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 0c37ba3a7d..33a7aa3dd1 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, 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 4ece3ca9d7..96ea4f5bee 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/clarft.f b/SRC/clarft.f index 3bf2448ba8..359f7bb373 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/claswlq.f b/SRC/claswlq.f index 835c679447..be633b8a62 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 6931a04a0f..02a48b6d42 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/clatrs3.f b/SRC/clatrs3.f index 1e2d11a178..d4f9c1b28b 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/clatsqr.f b/SRC/clatsqr.f index 0392b3da78..c16f4331f0 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 d59b049aa0..730a4e9ba1 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 469a961dc6..8f9661806b 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/cunbdb6.f b/SRC/cunbdb6.f index 0ce344390b..11824d4ba1 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/dgedmdq.f90 b/SRC/dgedmdq.f90 index 75d9d18ee3..ddcc947bb2 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/dgeev.f b/SRC/dgeev.f index e74140c2bc..2d0bbd2c6d 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/dgelq.f b/SRC/dgelq.f index 98f4ba84c9..3cbe50b63f 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 fe657da3c0..873bf4013a 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/dlapy2.f b/SRC/dlapy2.f index 5b092c31d8..71615eef0a 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 77548d73c3..c678b9ff31 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/dlaqr5.f b/SRC/dlaqr5.f index fe8719d7ad..d9ecf53194 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/dlarft.f b/SRC/dlarft.f index fa2ea0d134..05d5b9e570 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/dlaswlq.f b/SRC/dlaswlq.f index 9c4ceb19cd..569190f02c 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 991ae005d2..fc3d9a6814 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/dlatrs3.f b/SRC/dlatrs3.f index ae94b8dff1..857062e81c 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/dlatsqr.f b/SRC/dlatsqr.f index 8c596ce2fb..152f47ffc5 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/dopmtr.f b/SRC/dopmtr.f index 5646b8eacc..e96335791b 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 36ad19a09e..128b2d2129 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, DLARFGP, DORBDB5, DROT, DSCAL, - $ XERBLA + EXTERNAL DLARF1F, DLARFGP, DORBDB5, DROT, DSCAL, XERBLA * .. * .. External Functions .. DOUBLE PRECISION DNRM2 diff --git a/SRC/dorbdb6.f b/SRC/dorbdb6.f index 82aa93a5a3..b8205ef3fd 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 43e731966f..caee9f8b64 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 DLARF1L, DSCAL, XERBLA * .. * .. Intrinsic Functions .. INTRINSIC MAX diff --git a/SRC/dsysv_aa.f b/SRC/dsysv_aa.f index 2757bff994..df8b855781 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 e108108d7f..58c26cd299 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/lapack_64.h b/SRC/lapack_64.h deleted file mode 100644 index 3b9d4275a2..0000000000 --- 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/SRC/sgedmdq.f90 b/SRC/sgedmdq.f90 index 6bb0a9ed0a..e54380f650 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/sgeev.f b/SRC/sgeev.f index e5e61395d2..930c4cc821 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/sgelq.f b/SRC/sgelq.f index d985d06504..bbe12ba3b0 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/sgeqr.f b/SRC/sgeqr.f index b4403b6790..7d4bda6477 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/sgges.f b/SRC/sgges.f index e85f755a6a..759cade461 100644 --- a/SRC/sgges.f +++ b/SRC/sgges.f @@ -326,8 +326,8 @@ END FUNCTION SELCTG_PROC_TYPE * .. * .. External Subroutines .. EXTERNAL SGEQRF, SGGBAK, SGGBAL, SGGHRD, SHGEQZ, - $ SLACPY, - $ SLASCL, SLASET, SORGQR, SORMQR, STGSEN, XERBLA + $ SLACPY, SLASCL, SLASET, SORGQR, SORMQR, + $ STGSEN, XERBLA * .. * .. External Functions .. LOGICAL LSAME diff --git a/SRC/sggev3.f b/SRC/sggev3.f index 9fbe6bafef..98f782a3a1 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 9937bc7cc7..783efdabf0 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 c1c4bd6724..e67246cd05 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 0cc95b37ee..5108e33d48 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, 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 aed50f6181..b70e18a513 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/slarft.f b/SRC/slarft.f index 3e0eac751e..fd13304ba5 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/slaswlq.f b/SRC/slaswlq.f index 08e7f3b9c1..b7157fe6bf 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 d45bbb99c2..93b0e504e8 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/slatrs3.f b/SRC/slatrs3.f index a01be4aa37..a5e102eac3 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/slatsqr.f b/SRC/slatsqr.f index daeaf61b84..068bf4563b 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/sorbdb6.f b/SRC/sorbdb6.f index 9fb29b0383..ba373c2542 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/zgedmd.f90 b/SRC/zgedmd.f90 index 7e40a3f1b6..86f0c322be 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/zgeev.f b/SRC/zgeev.f index 883b24c2a3..7325c28d93 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/zgelq.f b/SRC/zgelq.f index fc5bceb5fa..87ac030188 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/zgelss.f b/SRC/zgelss.f index 5269eea789..a3f9079b09 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/zgeqr.f b/SRC/zgeqr.f index 65a543d2b8..62ce9b8f7c 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 257edbd638..0358ebf9bd 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 13910d09ae..43975d0004 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 cb744541e8..7360b633fe 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 accd750367..e64f3f88ae 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, 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 a109098784..ae355b7076 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 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 54da1d4e98..a940f24c7b 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/zlarft.f b/SRC/zlarft.f index efd52037d3..8b65d2f60e 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/zlaswlq.f b/SRC/zlaswlq.f index 0cfd5b8f3f..da1cc9c325 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 230b668515..aa005b7a45 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/zlatrs3.f b/SRC/zlatrs3.f index af5fc69a30..a91ffb3c41 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/zlatsqr.f b/SRC/zlatsqr.f index ffb402ebd8..242fec7243 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 558225c7dd..1f73b8a2e2 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 + EXTERNAL ZDSCAL, ZDRSCL, ZSCAL * .. * .. Intrinsic Functions .. INTRINSIC ABS diff --git a/SRC/zsysv_aa.f b/SRC/zsysv_aa.f index bf66ebdbcf..8728acb913 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 8d47f220fb..b68821c6d4 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 diff --git a/SRC/zunbdb6.f b/SRC/zunbdb6.f index 0d83cf5194..680a5d0dc8 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 diff --git a/TESTING/CMakeLists.txt b/TESTING/CMakeLists.txt index 58164e516b..0cdd8d9686 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() diff --git a/TESTING/EIG/CMakeLists.txt b/TESTING/EIG/CMakeLists.txt index 90937a796c..5f676e057f 100644 --- a/TESTING/EIG/CMakeLists.txt +++ b/TESTING/EIG/CMakeLists.txt @@ -13,101 +13,118 @@ ######################################################################## 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} 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() if(BUILD_SINGLE) add_eig_executable(xeigtsts ${SEIGTST} ${SCIGTST} ${AEIGTST}) diff --git a/TESTING/EIG/cbdt05.f b/TESTING/EIG/cbdt05.f index 80934f3ebf..403efcf019 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/cchkdmd.f90 b/TESTING/EIG/cchkdmd.f90 index f8aa19a30a..6fcda0888a 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 638966afe1..6b2bca6703 100644 --- a/TESTING/EIG/cchkee.F +++ b/TESTING/EIG/cchkee.F @@ -1103,13 +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 + $ 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/cchkhb2stg.f b/TESTING/EIG/cchkhb2stg.f index a8f7e58956..de5a7629a5 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 2f2b08171c..467c075f76 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 2aaaaaeba9..cda55d3bd8 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 5836890d37..4eb2f2a512 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 b906050a8d..9bd27abc1e 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 b641c1820f..a9dd8510c4 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 6ad378ad7d..d5bc58a521 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 2c185d5af3..7e940230ef 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/dbdt04.f b/TESTING/EIG/dbdt04.f index 762b8373a2..5753f0e9c3 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 ca12e830b8..68f4920bce 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 92d4fff006..bd7d944248 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 a2b9966288..948f9dcb13 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 20c4cb47c2..07bb24e9f9 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/dchksb2stg.f b/TESTING/EIG/dchksb2stg.f index 6bc0ca532e..4d5fdc665a 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 6d98d4bfad..a1f3722c69 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 145f08933d..7436ce286e 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 0e3e2b4612..a0b65a6aa3 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/ddrvst2stg.f b/TESTING/EIG/ddrvst2stg.f index f1c848d07f..dfccbc9646 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 f0b6cacd0f..f1ba47e71e 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, DLACPY, DLASET, DTGEXC * .. * .. Intrinsic Functions .. INTRINSIC ABS, SIGN diff --git a/TESTING/EIG/dsyl01.f b/TESTING/EIG/dsyl01.f index 0ea4813822..66fa4c0746 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/sbdt04.f b/TESTING/EIG/sbdt04.f index 0111b1a644..dc0361e9f7 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 b4c91c2cb7..7ca10c544b 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 9fd4f3480a..5c15e51ba3 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 ce0166763e..79bbb2ab31 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 fa780b695c..4fa913e301 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/schksb2stg.f b/TESTING/EIG/schksb2stg.f index d9ec6db295..d930795174 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 b9abc64fd2..7821f041a7 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 772e47a555..6c0f9bb40b 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 77abb532f4..33ff680555 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/sdrvst2stg.f b/TESTING/EIG/sdrvst2stg.f index f20d9fdf37..377fbd7f8f 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/sget34.f b/TESTING/EIG/sget34.f index 3d217775a0..d8b49c3426 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 0add7d0a0c..b4b3e228dd 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 e292e897b3..122c4effb5 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 aecad49b91..53fc03af79 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 ea88687c34..a2eef43736 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/zbdt05.f b/TESTING/EIG/zbdt05.f index 2a4bf82016..db0c977b31 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 09c34f8686..0224ae9d0f 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 @@ -92,7 +91,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 7261881b48..3dc9ab4d86 100644 --- a/TESTING/EIG/zchkee.F +++ b/TESTING/EIG/zchkee.F @@ -1103,13 +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 + $ 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 @@ -1851,7 +1850,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 +2348,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 ba576d36fa..54b7a69b6d 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/zchkhs.f b/TESTING/EIG/zchkhs.f index 310f72a333..9975055c8f 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/EIG/zdrges3.f b/TESTING/EIG/zdrges3.f index 87064ef239..21f50994da 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 4de01513a0..e2ed7d440d 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/zdrvst2stg.f b/TESTING/EIG/zdrvst2stg.f index 5dd58c173d..012ae271e2 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 diff --git a/TESTING/EIG/zerrec.f b/TESTING/EIG/zerrec.f index 76f863b3f8..06ba8aa004 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 2f6e114c7b..584db2f577 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 f7cd5b2900..395aa998e2 100644 --- a/TESTING/EIG/zerrhs.f +++ b/TESTING/EIG/zerrhs.f @@ -88,8 +88,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 2a989a232d..ac6b015133 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 diff --git a/TESTING/LIN/CMakeLists.txt b/TESTING/LIN/CMakeLists.txt index e28818c76b..a8029d21ab 100644 --- a/TESTING/LIN/CMakeLists.txt +++ b/TESTING/LIN/CMakeLists.txt @@ -1,271 +1,319 @@ 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) + +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 sdrvgbx.f sdrvgex.f sdrvsyx.f sdrvpox.f - serrvxx.f serrgex.f serrsyx.f serrpox.f - sebchvxx.f) + 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 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) + +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 cdrvgbx.f cdrvgex.f cdrvhex.f cdrvsyx.f cdrvpox.f - cerrvxx.f cerrgex.f cerrhex.f cerrsyx.f cerrpox.f - cebchvxx.f) + 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 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) + +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 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) + +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 zdrvgbx.f zdrvgex.f zdrvhex.f zdrvsyx.f zdrvpox.f - zerrvxx.f zerrgex.f zerrhex.f zerrsyx.f zerrpox.f - zebchvxx.f) + 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 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) + 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}) + target_link_libraries(${name} ${TMGLIB} ${LAPACK_LIBRARIES} ${BLAS_LIBRARIES}) + endif() + + if(BUILD_INDEX64_EXT_API) + include(ExtendedAPIHelpers) + generate_64bit_suffixed_sources(${name} ext_sources ext_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}) + + # 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() 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() diff --git a/TESTING/LIN/cchkaa.F b/TESTING/LIN/cchkaa.F index a5a3428c14..790e3045e2 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 61f1862f33..7797e14b46 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 d79978e557..09a6a3228b 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 7ec8b2c622..1c15e91e09 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 987c0c3654..1d6f00fa1b 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 7aeb6df4be..f3ecfbfa61 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 6820c90042..e22c4f1e46 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 a926380d4c..6236567625 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 ce69f88b8f..f33cb879f2 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 bede7cca5e..40bec57362 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 0a85d7cf1e..620fae0857 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 3a5b965faa..2f5794f33f 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 cb71a60b36..76d9596252 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 30205622e8..fff0c15e41 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 03b89b4973..ac27456a44 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 3f43758939..7e8f20cb5f 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 70291ee7a2..7adfb5a384 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 f33aef213f..ddf04cf147 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 586cee58ff..dac323cf3b 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 cbec382423..f14e432e5d 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 fd84418fbc..1151b797c8 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 08cb5b6e53..fd0afdc67a 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 a86f0712ec..54ab6044e1 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 5b1a1d708c..6c709c3ff5 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 c444ce44c1..fbdd303e87 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 387b19d027..b7ba5f6119 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 711bf70cfe..3393bad067 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 d33ecc7c83..1141317332 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 48b4173ad0..0fed0c1364 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 ca1bf5230e..83ec69917f 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 4a4f677911..b46600d6b6 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 91ed659661..6756fb60bd 100644 --- a/TESTING/LIN/dchkaa.F +++ b/TESTING/LIN/dchkaa.F @@ -170,8 +170,9 @@ 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, + $ 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 aa77d6a62e..c573352595 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 d9251b1f09..e26e229517 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 566f273d4e..b043097828 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 924ba7ea37..b2d069e039 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 41d269b7e8..c4290ff744 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 27076b5c26..f6ba23adf4 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 a56c77a9c3..f24ac8d5fb 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 ec54f573a7..f7c4f6c276 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 e2a5ec15de..e8f00b65e2 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 37122e3c92..bf493f5ca5 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 206b25ebed..66b2f92ca6 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 09dbea6422..fc3a47bfba 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 9a8fd4172d..b3327fedb5 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 bc8128cd44..1c553802e5 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 ef7e67538d..1ba0bd65d9 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 7d2a2a1042..b8438cd436 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 d4c438edb7..326bb8b792 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 6a7baea0f6..5a19839c71 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 2badd6d496..9bf6c8113f 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 7af9b3c3af..f28a77b950 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 85733be4c2..fb26eb1510 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 ad6ea87767..88082b725a 100644 --- a/TESTING/LIN/schkaa.F +++ b/TESTING/LIN/schkaa.F @@ -168,8 +168,9 @@ 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, + $ 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 d8be9862b4..ecb7e7de05 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 2230583bae..82c94c7fe5 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 20c0dd0199..b7569684e8 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 ed25a230d4..a2e9d42836 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 eee963c472..98c28f1661 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 ab04f496b8..be26151adb 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 cfa26e41cd..a8de72ca6b 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 6490cd7c37..4127d8be7c 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 5d7aa2d374..9ff9f59e68 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 ba24611139..8ffb9b0736 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 e53db7309e..f5c3119f61 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 25e7fe0eca..74b1d3a9d8 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 4ab67a81bd..1b996cc4da 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 0f431bec16..923d5a1b56 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 c0ba81f744..4279cfd241 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 9afc37ef7c..bbff1b4500 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 1cbe405779..3112f5993c 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 b088ba43e2..a2b5011e71 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 21ec97c1fa..73b4695709 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 248a39794f..5b27aceca3 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 683c165aef..dc60c8b829 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 77a7a6cb31..ec16545dd0 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 9ee0793b77..0f6dc3f06c 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 51082f1d0b..d64b49ee8c 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 680c1135e2..4ef8664852 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 75e3ddfb1d..9a259dd2cb 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 cb07af72ce..5efe73d49e 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 9337a68375..9bae06b3b3 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 b2af1e9fbb..4c1b0e7a63 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 4c8ff94f78..ab0195e1ba 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 ca7828f1ad..0ebe8b97b3 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 db7a7bd782..35dbc40772 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 3a7d00da91..d2b0b5c07f 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 28f268c5c6..f96a0059d9 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 9f6d5cba84..32fe434f8e 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 49a2fdcd75..2fab34f59b 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 fb95dd55e2..8ff14e9c7a 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 74aaf61a14..f1352291b8 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 744872db39..d9ac7a5aa5 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 8f1e16ddc8..d96bfac722 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 a948e0795b..404eea7fca 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 01892844e0..0580bd5237 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 09d412d07c..a2c1903b21 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 f1035c8180..ceb1c69bde 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 3afa7c397d..f7b47dee4d 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 e845621a96..7bfb873097 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 34993e8125..5d8a46f689 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 3ca7199cec..20b1af73eb 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 5677b7e76b..25799ac5c8 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 ed65a5128d..e36cc8b7a1 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 f844d512bc..524d2f26cb 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 1c2e713716..260215ae0f 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 diff --git a/TESTING/MATGEN/CMakeLists.txt b/TESTING/MATGEN/CMakeLists.txt index 02e05a86d4..7bd2f9425a 100644 --- a/TESTING/MATGEN/CMakeLists.txt +++ b/TESTING/MATGEN/CMakeLists.txt @@ -47,45 +47,23 @@ if(BUILD_COMPLEX16) endif() list(REMOVE_DUPLICATES SOURCES) -add_library(${TMGLIB}_obj OBJECT ${SOURCES}) -set_target_properties( - ${TMGLIB}_obj PROPERTIES - POSITION_INDEPENDENT_CODE ON - 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) - 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() - 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) - 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 - POSITION_INDEPENDENT_CODE ON - 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 827468ec77..0000000000 --- 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 diff --git a/lapack_build.cmake b/lapack_build.cmake index 1460acaa28..628b3aa77b 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 ###################################################################