Browse Source
Remove all trailing whitespace except lapack-netlib
Signed-off-by: Timothy Gu <timothygu99@gmail.com>tags/v0.2.10.rc1^2
Timothy Gu
11 years ago
100 changed files with 2809 additions and 2809 deletions
Split View
Diff Options
-
+1 -1.travis.yml
-
+4 -4CONTRIBUTORS.md
-
+35 -35Changelog.txt
-
+1 -1GotoBLAS_01Readme.txt
-
+3 -3GotoBLAS_02QuickInstall.txt
-
+1 -1GotoBLAS_03FAQ.txt
-
+1 -1GotoBLAS_05LargePage.txt
-
+2 -2GotoBLAS_06WeirdPerformance.txt
-
+11 -11LICENSE
-
+5 -5Makefile
-
+1 -1Makefile.alpha
-
+1 -1Makefile.ia64
-
+4 -4Makefile.install
-
+4 -4Makefile.power
-
+9 -9Makefile.rule
-
+1 -1Makefile.sparc
-
+18 -18Makefile.system
-
+7 -7Makefile.tail
-
+2 -2Makefile.x86
-
+1 -1Makefile.x86_64
-
+7 -7README.md
-
+16 -16benchmark/cholesky.c
-
+16 -16benchmark/linpack.c
-
+9 -9c_check
-
+3 -3cblas.h
-
+3 -3cblas_noconst.h
-
+3 -3common.h
-
+13 -13common_arm.h
-
+13 -13common_arm64.h
-
+2 -2common_ia64.h
-
+62 -62common_interface.h
-
+9 -9common_level1.h
-
+8 -8common_level2.h
-
+4 -4common_level3.h
-
+3 -3common_linux.h
-
+23 -23common_mips64.h
-
+38 -38common_param.h
-
+1 -1common_power.h
-
+12 -12common_reference.h
-
+13 -13common_sparc.h
-
+3 -3common_thread.h
-
+6 -6common_x86.h
-
+6 -6common_x86_64.h
-
+2 -2cpuid.S
-
+4 -4cpuid_alpha.c
-
+4 -4cpuid_arm.c
-
+3 -3cpuid_ia64.c
-
+11 -11cpuid_mips.c
-
+1 -1cpuid_power.c
-
+34 -34cpuid_x86.c
-
+8 -8ctest/Makefile
-
+146 -146ctest/c_c2chke.c
-
+6 -6ctest/c_c3chke.c
-
+3 -3ctest/c_cblas1.c
-
+20 -20ctest/c_cblas2.c
-
+30 -30ctest/c_cblas3.c
-
+7 -7ctest/c_cblat2.f
-
+39 -39ctest/c_cblat3.f
-
+145 -145ctest/c_d2chke.c
-
+7 -7ctest/c_d3chke.c
-
+1 -1ctest/c_dblas1.c
-
+29 -29ctest/c_dblas2.c
-
+18 -18ctest/c_dblas3.c
-
+2 -2ctest/c_dblat1.f
-
+7 -7ctest/c_dblat2.f
-
+32 -32ctest/c_dblat3.f
-
+145 -145ctest/c_s2chke.c
-
+7 -7ctest/c_s3chke.c
-
+2 -2ctest/c_sblas1.c
-
+29 -29ctest/c_sblas2.c
-
+18 -18ctest/c_sblas3.c
-
+7 -7ctest/c_sblat2.f
-
+33 -33ctest/c_sblat3.f
-
+10 -10ctest/c_xerbla.c
-
+146 -146ctest/c_z2chke.c
-
+6 -6ctest/c_z3chke.c
-
+3 -3ctest/c_zblas1.c
-
+20 -20ctest/c_zblas2.c
-
+30 -30ctest/c_zblas3.c
-
+13 -13ctest/c_zblat2.f
-
+40 -40ctest/c_zblat3.f
-
+1065 -1065driver/level2/Makefile
-
+2 -2driver/level2/gbmv_k.c
-
+16 -16driver/level2/gbmv_thread.c
-
+11 -11driver/level2/gemv_thread.c
-
+14 -14driver/level2/ger_thread.c
-
+3 -3driver/level2/sbmv_k.c
-
+40 -40driver/level2/sbmv_thread.c
-
+1 -1driver/level2/spmv_k.c
-
+39 -39driver/level2/spmv_thread.c
-
+1 -1driver/level2/spr2_k.c
-
+32 -32driver/level2/spr2_thread.c
-
+1 -1driver/level2/spr_k.c
-
+28 -28driver/level2/spr_thread.c
-
+38 -38driver/level2/symv_thread.c
-
+1 -1driver/level2/syr2_k.c
-
+31 -31driver/level2/syr2_thread.c
-
+1 -1driver/level2/syr_k.c
-
+28 -28driver/level2/syr_thread.c
-
+4 -4driver/level2/tbmv_L.c
+ 1
- 1
.travis.yml
View File
| @@ -11,7 +11,7 @@ env: | |||
| before_install: | |||
| - sudo apt-get update -qq | |||
| - sudo apt-get install -qq gfortran | |||
| - sudo apt-get install -qq gfortran | |||
| - if [[ "$TARGET_BOX" == "WIN64" ]]; then sudo apt-get install -qq binutils-mingw-w64-x86-64 gcc-mingw-w64-x86-64 gfortran-mingw-w64-x86-64; fi | |||
| - if [[ "$TARGET_BOX" == "LINUX32" ]]; then sudo apt-get install -qq gcc-multilib gfortran-multilib; fi | |||
+ 4
- 4
CONTRIBUTORS.md
View File
| @@ -31,7 +31,7 @@ | |||
| * Improve the windows build. | |||
| * Chen Shaohu <huhumartinwar@gmail.com> | |||
| * Optimize GEMV on the Loongson 3A processor. | |||
| * Optimize GEMV on the Loongson 3A processor. | |||
| * Luo Wen | |||
| * Intern. Test Level-2 BLAS. | |||
| @@ -53,11 +53,11 @@ In chronological order: | |||
| * [2012-05-19] Fix building bug on FreeBSD and NetBSD. | |||
| * Sylvestre Ledru <https://github.com/sylvestre> | |||
| * [2012-07-01] Improve the detection of sparc. Fix building bug under | |||
| * [2012-07-01] Improve the detection of sparc. Fix building bug under | |||
| Hurd and kfreebsd. | |||
| * Jameson Nash <https://github.com/vtjnash> | |||
| * [2012-08-20] Provide support for passing CFLAGS, FFLAGS, PFLAGS, FPFLAGS to | |||
| * [2012-08-20] Provide support for passing CFLAGS, FFLAGS, PFLAGS, FPFLAGS to | |||
| make on the command line. | |||
| * Alexander Nasonov <alnsn@yandex.ru> | |||
| @@ -80,7 +80,7 @@ In chronological order: | |||
| * [2013-06-30] Add Intel Haswell support (using sandybridge optimizations). | |||
| * grisuthedragon <https://github.com/grisuthedragon> | |||
| * [2013-07-11] create openblas_get_parallel to retrieve information which parallelization | |||
| * [2013-07-11] create openblas_get_parallel to retrieve information which parallelization | |||
| model is used by OpenBLAS. | |||
| * Elliot Saba <staticfloat@gmail.com> | |||
+ 35
- 35
Changelog.txt
View File
| @@ -55,25 +55,25 @@ Version 0.2.7 | |||
| common: | |||
| * Support LSB (Linux Standard Base) 4.1. | |||
| e.g. make CC=lsbcc | |||
| * Include LAPACK 3.4.2 source codes to the repo. | |||
| * Include LAPACK 3.4.2 source codes to the repo. | |||
| Avoid downloading at compile time. | |||
| * Add NO_PARALLEL_MAKE flag to disable parallel make. | |||
| * Create openblas_get_parallel to retrieve information which | |||
| * Create openblas_get_parallel to retrieve information which | |||
| parallelization model is used by OpenBLAS. (Thank grisuthedragon) | |||
| * Detect LLVM/Clang compiler. The default compiler is Clang on Mac OS X. | |||
| * Change LIBSUFFIX from .lib to .a on windows. | |||
| * A work-around for dtrti_U single thread bug. Replace it with LAPACK codes. (#191) | |||
| x86/x86-64: | |||
| * Optimize c/zgemm, trsm, dgemv_n, ddot, daxpy, dcopy on | |||
| * Optimize c/zgemm, trsm, dgemv_n, ddot, daxpy, dcopy on | |||
| AMD Bulldozer. (Thank Werner Saar) | |||
| * Add Intel Haswell support (using Sandybridge optimizations). | |||
| (Thank Dan Luu) | |||
| * Add AMD Piledriver support (using Bulldozer optimizations). | |||
| * Fix the computational error in zgemm avx kernel on | |||
| * Fix the computational error in zgemm avx kernel on | |||
| Sandybridge. (#237) | |||
| * Fix the overflow bug in gemv. | |||
| * Fix the overflow bug in multi-threaded BLAS3, getrf when NUM_THREADS | |||
| * Fix the overflow bug in multi-threaded BLAS3, getrf when NUM_THREADS | |||
| is very large.(#214, #221, #246). | |||
| MIPS64: | |||
| * Support loongcc (Open64 based) compiler for ICT Loongson 3A/B. | |||
| @@ -110,7 +110,7 @@ common: | |||
| * Fixed NetBSD build. (#155) | |||
| * Fixed compilation with TARGET=GENERIC. (#160) | |||
| x86/x86-64: | |||
| * Restore the original CPU affinity when calling | |||
| * Restore the original CPU affinity when calling | |||
| openblas_set_num_threads(1) (#153) | |||
| * Fixed a SEGFAULT bug in dgemv_t when m is very large.(#154) | |||
| MIPS64: | |||
| @@ -120,13 +120,13 @@ Version 0.2.4 | |||
| 8-Oct-2012 | |||
| common: | |||
| * Upgraded LAPACK to 3.4.2 version. (#145) | |||
| * Provided support for passing CFLAGS, FFLAGS, PFLAGS, | |||
| * Provided support for passing CFLAGS, FFLAGS, PFLAGS, | |||
| FPFLAGS to make. (#137) | |||
| * f77blas.h:compatibility for compilers without C99 complex | |||
| * f77blas.h:compatibility for compilers without C99 complex | |||
| number support. (#141) | |||
| x86/x86-64: | |||
| * Added NO_AVX flag. Check OS supporting AVX on runtime. (#139) | |||
| * Fixed zdot incompatibility ABI issue with GCC 4.7 on | |||
| * Fixed zdot incompatibility ABI issue with GCC 4.7 on | |||
| Windows 32-bit. (#140) | |||
| MIPS64: | |||
| * Fixed the generation of shared library bug. | |||
| @@ -136,14 +136,14 @@ Version 0.2.3 | |||
| 20-Aug-2012 | |||
| common: | |||
| * Fixed LAPACK unstable bug about ?laswp. (#130) | |||
| * Fixed the shared library bug about unloading the library on | |||
| * Fixed the shared library bug about unloading the library on | |||
| Linux (#132). | |||
| * Fixed the compilation failure on BlueGene/P (TARGET=PPC440FP2) | |||
| Please use gcc and IBM xlf. (#134) | |||
| x86/x86-64: | |||
| * Supported goto_set_num_threads and openblas_set_num_threads | |||
| * Supported goto_set_num_threads and openblas_set_num_threads | |||
| APIs in Windows. They can set the number of threads on runtime. | |||
| ==================================================================== | |||
| Version 0.2.2 | |||
| 6-July-2012 | |||
| @@ -191,14 +191,14 @@ x86/x86_64: | |||
| * Auto-detect Intel Sandy Bridge Core i7-3xxx & Xeon E7 Westmere-EX. | |||
| * Test alpha=Nan in dscale. | |||
| * Fixed a SEGFAULT bug in samax on x86 windows. | |||
| ==================================================================== | |||
| Version 0.1.0 | |||
| 23-Mar-2012 | |||
| common: | |||
| * Set soname of shared library on Linux. | |||
| * Added LIBNAMESUFFIX flag in Makefile.rule. The user can use | |||
| this flag to control the library name, e.g. libopenblas.a, | |||
| * Added LIBNAMESUFFIX flag in Makefile.rule. The user can use | |||
| this flag to control the library name, e.g. libopenblas.a, | |||
| libopenblas_ifort.a or libopenblas_omp.a. | |||
| * Added GEMM_MULTITHREAD_THRESHOLD flag in Makefile.rule. | |||
| The lib use single thread in GEMM function with small matrices. | |||
| @@ -229,7 +229,7 @@ x86/x86_64: | |||
| Version 0.1 alpha2.4 | |||
| 18-Sep-2011 | |||
| common: | |||
| * Fixed a bug about installation. The header file "fblas77.h" | |||
| * Fixed a bug about installation. The header file "fblas77.h" | |||
| works fine now. | |||
| * Fixed #61 a building bug about setting TARGET and DYNAMIC_ARCH. | |||
| * Try to handle absolute path of shared library in OSX. (#57) | |||
| @@ -238,16 +238,16 @@ common: | |||
| $(PREFIX)/lib | |||
| x86/x86_64: | |||
| * Fixed #58 zdot/xdot SEGFAULT bug with GCC-4.6 on x86. According | |||
| to i386 calling convention, The callee should remove the first | |||
| hidden parameter.Thank Mr. John for this patch. | |||
| * Fixed #58 zdot/xdot SEGFAULT bug with GCC-4.6 on x86. According | |||
| to i386 calling convention, The callee should remove the first | |||
| hidden parameter.Thank Mr. John for this patch. | |||
| ==================================================================== | |||
| Version 0.1 alpha2.3 | |||
| 5-Sep-2011 | |||
| x86/x86_64: | |||
| * Added DTB_ENTRIES into dynamic arch setting parameters. Now, | |||
| * Added DTB_ENTRIES into dynamic arch setting parameters. Now, | |||
| it can read DTB_ENTRIES on runtime. (Refs issue #55 on github) | |||
| ==================================================================== | |||
| @@ -255,7 +255,7 @@ Version 0.1 alpha2.2 | |||
| 14-Jul-2011 | |||
| common: | |||
| * Fixed a building bug when DYNAMIC_ARCH=1 & INTERFACE64=1. | |||
| * Fixed a building bug when DYNAMIC_ARCH=1 & INTERFACE64=1. | |||
| (Refs issue #44 on github) | |||
| ==================================================================== | |||
| @@ -263,7 +263,7 @@ Version 0.1 alpha2.1 | |||
| 28-Jun-2011 | |||
| common: | |||
| * Stop the build and output the error message when detecting | |||
| * Stop the build and output the error message when detecting | |||
| fortran compiler failed. (Refs issue #42 on github) | |||
| ==================================================================== | |||
| @@ -271,16 +271,16 @@ Version 0.1 alpha2 | |||
| 23-Jun-2011 | |||
| common: | |||
| * Fixed blasint undefined bug in <cblas.h> file. Other software | |||
| * Fixed blasint undefined bug in <cblas.h> file. Other software | |||
| could include this header successfully(Refs issue #13 on github) | |||
| * Fixed the SEGFAULT bug on 64 cores. On SMP server, the number | |||
| of CPUs or cores should be less than or equal to 64.(Refs issue #14 | |||
| * Fixed the SEGFAULT bug on 64 cores. On SMP server, the number | |||
| of CPUs or cores should be less than or equal to 64.(Refs issue #14 | |||
| on github) | |||
| * Support "void goto_set_num_threads(int num_threads)" and "void | |||
| openblas_set_num_threads(int num_threads)" when USE_OPENMP=1 | |||
| * Added extern "C" to support C++. Thank Tasio for the patch(Refs | |||
| * Added extern "C" to support C++. Thank Tasio for the patch(Refs | |||
| issue #21 on github) | |||
| * Provided an error message when the arch is not supported.(Refs | |||
| * Provided an error message when the arch is not supported.(Refs | |||
| issue #19 on github) | |||
| * Fixed issue #23. Fixed a bug of f_check script about generating link flags. | |||
| * Added openblas_set_num_threads for Fortran. | |||
| @@ -298,7 +298,7 @@ x86/x86_64: | |||
| * Work-around #27 the low performance axpy issue with small imput size & multithreads. | |||
| MIPS64: | |||
| * Fixed #28 a wrong result of dsdot on Loongson3A/MIPS64. | |||
| * Fixed #28 a wrong result of dsdot on Loongson3A/MIPS64. | |||
| * Optimized single/double precision BLAS Level3 on Loongson3A/MIPS64. (Refs #2) | |||
| * Optimized single/double precision axpy function on Loongson3A/MIPS64. (Refs #3) | |||
| @@ -307,9 +307,9 @@ Version 0.1 alpha1 | |||
| 20-Mar-2011 | |||
| common: | |||
| * Support "make NO_LAPACK=1" to build the library without | |||
| * Support "make NO_LAPACK=1" to build the library without | |||
| LAPACK functions. | |||
| * Fixed randomly SEGFAULT when nodemask==NULL with above Linux 2.6.34. | |||
| * Fixed randomly SEGFAULT when nodemask==NULL with above Linux 2.6.34. | |||
| Thank Mr.Ei-ji Nakama providing this patch. (Refs issue #12 on github) | |||
| * Added DEBUG=1 rule in Makefile.rule to build debug version. | |||
| * Disable compiling quad precision in reference BLAS library(netlib BLAS). | |||
| @@ -318,15 +318,15 @@ common: | |||
| * Imported GotoBLAS2 1.13 BSD version | |||
| x86/x86_64: | |||
| * On x86 32bits, fixed a bug in zdot_sse2.S line 191. This would casue | |||
| * On x86 32bits, fixed a bug in zdot_sse2.S line 191. This would casue | |||
| zdotu & zdotc failures. Instead, work-around it. (Refs issue #8 #9 on github) | |||
| * Modified ?axpy functions to return same netlib BLAS results | |||
| * Modified ?axpy functions to return same netlib BLAS results | |||
| when incx==0 or incy==0 (Refs issue #7 on github) | |||
| * Modified ?swap functions to return same netlib BLAS results | |||
| * Modified ?swap functions to return same netlib BLAS results | |||
| when incx==0 or incy==0 (Refs issue #6 on github) | |||
| * Modified ?rot functions to return same netlib BLAS results | |||
| * Modified ?rot functions to return same netlib BLAS results | |||
| when incx==0 or incy==0 (Refs issue #4 on github) | |||
| * Detect Intel Westmere,Intel Clarkdale and Intel Arrandale | |||
| * Detect Intel Westmere,Intel Clarkdale and Intel Arrandale | |||
| to use Nehalem codes. | |||
| * Fixed a typo bug about compiling dynamic ARCH library. | |||
| MIPS64: | |||
+ 1
- 1
GotoBLAS_01Readme.txt
View File
| @@ -83,7 +83,7 @@ | |||
| 4. Suported precision | |||
| Now x86/x86_64 version support 80bit FP precision in addition to | |||
| normal double presicion and single precision. Currently only | |||
| normal double presicion and single precision. Currently only | |||
| gfortran supports 80bit FP with "REAL*10". | |||
+ 3
- 3
GotoBLAS_02QuickInstall.txt
View File
| @@ -32,9 +32,9 @@ | |||
| GotoBLAS2 build complete. | |||
| OS ... Linux | |||
| Architecture ... x86_64 | |||
| BINARY ... 64bit | |||
| OS ... Linux | |||
| Architecture ... x86_64 | |||
| BINARY ... 64bit | |||
| C compiler ... GCC (command line : gcc) | |||
| Fortran compiler ... PATHSCALE (command line : pathf90) | |||
| Library Name ... libgoto_barcelonap-r1.27.a (Multi threaded; Max | |||
+ 1
- 1
GotoBLAS_03FAQ.txt
View File
| @@ -56,7 +56,7 @@ | |||
| 1.6 Q I use OpenMP compiler. How can I use GotoBLAS2 with it? | |||
| A Please understand that OpenMP is a compromised method to use | |||
| A Please understand that OpenMP is a compromised method to use | |||
| thread. If you want to use OpenMP based code with GotoBLAS2, you | |||
| should enable "USE_OPENMP=1" in Makefile.rule. | |||
+ 1
- 1
GotoBLAS_05LargePage.txt
View File
| @@ -43,7 +43,7 @@ | |||
| F) Other aarchitecture which doesn't have Large TLB enhancement | |||
| If you have root permission, please install device driver which | |||
| located in drivers/mapper. | |||
| located in drivers/mapper. | |||
| $shell> cd drivers/mapper | |||
| $shell> make | |||
+ 2
- 2
GotoBLAS_06WeirdPerformance.txt
View File
| @@ -4,7 +4,7 @@ | |||
| probably you created too many threads or process. Basically GotoBLAS | |||
| assumes that available cores that you specify are exclusively for | |||
| BLAS computation. Even one small thread/process conflicts with BLAS | |||
| threads, performance will become worse. | |||
| threads, performance will become worse. | |||
| The best solution is to reduce your number of threads or insert | |||
| some synchronization mechanism and suspend your threads until BLAS | |||
| @@ -19,4 +19,4 @@ | |||
| Anyway, if you see any weird performance loss, it means your code or | |||
| algorithm is not optimal. | |||
| algorithm is not optimal. | |||
+ 11
- 11
LICENSE
View File
| @@ -12,17 +12,17 @@ met: | |||
| notice, this list of conditions and the following disclaimer in | |||
| the documentation and/or other materials provided with the | |||
| distribution. | |||
| 3. Neither the name of the ISCAS nor the names of its contributors may | |||
| be used to endorse or promote products derived from this software | |||
| 3. Neither the name of the ISCAS nor the names of its contributors may | |||
| be used to endorse or promote products derived from this software | |||
| without specific prior written permission. | |||
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" | |||
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||
| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE | |||
| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |||
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | |||
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, | |||
| OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | |||
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" | |||
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||
| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE | |||
| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |||
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | |||
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, | |||
| OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | |||
| USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | |||
+ 5
- 5
Makefile
View File
| @@ -4,7 +4,7 @@ include ./Makefile.system | |||
| BLASDIRS = interface driver/level2 driver/level3 driver/others | |||
| ifneq ($(DYNAMIC_ARCH), 1) | |||
| BLASDIRS += kernel | |||
| BLASDIRS += kernel | |||
| endif | |||
| ifdef UTEST_CHECK | |||
| @@ -153,7 +153,7 @@ endif | |||
| ifeq ($(EXPRECISION), 1) | |||
| @echo "#define EXPRECISION">> config_last.h | |||
| endif | |||
| ## | |||
| ## | |||
| ifeq ($(DYNAMIC_ARCH), 1) | |||
| @$(MAKE) -C kernel commonlibs || exit 1 | |||
| @for d in $(DYNAMIC_CORE) ; \ | |||
| @@ -187,7 +187,7 @@ blas : | |||
| fi; \ | |||
| done | |||
| hpl : | |||
| hpl : | |||
| ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX) | |||
| for d in $(BLASDIRS) ../laswp exports ; \ | |||
| do if test -d $$d; then \ | |||
| @@ -210,7 +210,7 @@ hpl_p : | |||
| done | |||
| ifeq ($(NO_LAPACK), 1) | |||
| netlib : | |||
| netlib : | |||
| else | |||
| netlib : lapack_prebuild | |||
| @@ -255,7 +255,7 @@ endif | |||
| -@cat make.inc >> $(NETLIB_LAPACK_DIR)/make.inc | |||
| endif | |||
| large.tgz : | |||
| large.tgz : | |||
| ifndef NOFORTRAN | |||
| if [ ! -a $< ]; then | |||
| -wget http://www.netlib.org/lapack/timing/large.tgz; | |||
+ 1
- 1
Makefile.alpha
View File
| @@ -50,7 +50,7 @@ endif | |||
| ifndef SMP | |||
| LIBCXML = -lcxml -lots -lm | |||
| LIBATLAS = -L/usr/lib/atlas3.7.8 -lf77blas -latlas -lm | |||
| LIBATLAS = -L/usr/lib/atlas3.7.8 -lf77blas -latlas -lm | |||
| else | |||
| LIBCXML = -lcxmlp -lots -lm | |||
| LIBATLAS = -L/usr/lib/atlas3.7.8p -llapack -lptcblas -lptf77blas -latlas -lpthread -lm | |||
+ 1
- 1
Makefile.ia64
View File
| @@ -16,7 +16,7 @@ LIBMLIB = ../../level1/others/libmisc.a -L/opt/intel/fc/ia64/9.1.040/lib -L/opt | |||
| LIBSCSL = -L/opt/scsl/1.4.1.0/lib -Wl,-rpath,/opt/scsl/1.4.1.0/lib -lscs | |||
| ifndef SMP | |||
| LIBATLAS = -L/usr/lib/atlas3.6.0 -lf77blas -latlas -lm | |||
| LIBATLAS = -L/usr/lib/atlas3.6.0 -lf77blas -latlas -lm | |||
| else | |||
| LIBATLAS = -L$(HOME)/misc/lib -L/usr/lib/atlas3.6.0p -llapack -lptcblas -lptf77blas -latlas -lpthread -lm | |||
| endif | |||
+ 4
- 4
Makefile.install
View File
| @@ -22,7 +22,7 @@ install : lib.grd | |||
| @-mkdir -p $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) | |||
| @-mkdir -p $(DESTDIR)$(OPENBLAS_BINARY_DIR) | |||
| @echo Generating openblas_config.h in $(DESTDIR)$(OPENBLAS_INCLUDE_DIR) | |||
| #for inc | |||
| #for inc | |||
| @echo \#ifndef OPENBLAS_CONFIG_H > $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h | |||
| @echo \#define OPENBLAS_CONFIG_H >> $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h | |||
| @awk 'NF {print $$1, "OPENBLAS_"$$2, $$3}' config_last.h >> $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h | |||
| @@ -50,14 +50,14 @@ ifndef NO_LAPACKE | |||
| @-install -pDm644 $(NETLIB_LAPACK_DIR)/lapacke/include/lapacke_utils.h $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/lapacke_utils.h | |||
| endif | |||
| #for install static library | |||
| #for install static library | |||
| ifndef NO_STATIC | |||
| @echo Copying the static library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) | |||
| @install -pm644 $(LIBNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) | |||
| @cd $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) ; \ | |||
| ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX) | |||
| endif | |||
| #for install shared library | |||
| #for install shared library | |||
| ifndef NO_SHARED | |||
| @echo Copying the shared library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) | |||
| ifeq ($(OSNAME), Linux) | |||
| @@ -76,7 +76,7 @@ ifeq ($(OSNAME), NetBSD) | |||
| @cd $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) ; \ | |||
| ln -fs $(LIBSONAME) $(LIBPREFIX).so | |||
| endif | |||
| ifeq ($(OSNAME), Darwin) | |||
| ifeq ($(OSNAME), Darwin) | |||
| @-cp $(LIBDYNNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) | |||
| @-install_name_tool -id $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBDYNNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBDYNNAME) | |||
| @-ln -fs $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBDYNNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBPREFIX).dylib | |||
+ 4
- 4
Makefile.power
View File
| @@ -5,7 +5,7 @@ FLAMEPATH = $(HOME)/flame/lib | |||
| #ifeq ($(CORE), CELL) | |||
| #CELL_SDK_ROOT = /opt/IBM/cell-sdk-1.1/sysroot/usr | |||
| #SPU_CC = spu-gcc | |||
| #EXTRALIB += -lspe | |||
| #EXTRALIB += -lspe | |||
| #endif | |||
| ifeq ($(OSNAME), Linux) | |||
| @@ -38,7 +38,7 @@ ASFLAGS = -a32 | |||
| endif | |||
| endif | |||
| # CCOMMON_OPT += -maltivec -mabi=altivec | |||
| # CCOMMON_OPT += -maltivec -mabi=altivec | |||
| LIBFLAME = -L$(FLAMEPATH) -llapack2flame -lflame-lapack -lflame-base $(LIBS) | |||
| @@ -57,7 +57,7 @@ endif | |||
| LIBVECLIB = -framework VecLib | |||
| ifndef SMP | |||
| LIBATLAS = -L/usr/lib/atlas3.7.11 -lf77blas -latlas -lg2c -lm | |||
| LIBATLAS = -L/usr/lib/atlas3.7.11 -lf77blas -latlas -lg2c -lm | |||
| LIBESSL = -lessl $(ESSLPATH) ../../level1/others/libmisc.a -lm | |||
| else | |||
| LIBATLAS = -L/usr/lib/atlas3.7.11p -lptf77blas -latlas -lm -lpthread | |||
| @@ -73,7 +73,7 @@ endif | |||
| LIBVECLIB = /System/Library/Frameworks/vecLib.framework/Versions/Current/vecLib | |||
| ifndef SMP | |||
| LIBATLAS = -L/usr/lib64/atlas3.7.11 -lf77blas -latlas -lg2c -lm | |||
| LIBATLAS = -L/usr/lib64/atlas3.7.11 -lf77blas -latlas -lg2c -lm | |||
| LIBESSL = -lessl $(ESSLPATH) -lm | |||
| else | |||
| LIBATLAS = -L/usr/lib64/atlas3.7.11p -lptf77blas -latlas -lm -lpthread | |||
+ 9
- 9
Makefile.rule
View File
| @@ -1,12 +1,12 @@ | |||
| # | |||
| # Beginning of user configuration | |||
| # Beginning of user configuration | |||
| # | |||
| # This library's version | |||
| VERSION = 0.2.9 | |||
| # If you set the suffix, the library name will be libopenblas_$(LIBNAMESUFFIX).a | |||
| # and libopenblas_$(LIBNAMESUFFIX).so. Meanwhile, the soname in shared library | |||
| # and libopenblas_$(LIBNAMESUFFIX).so. Meanwhile, the soname in shared library | |||
| # is libopenblas_$(LIBNAMESUFFIX).so.0. | |||
| # LIBNAMESUFFIX = omp | |||
| @@ -57,11 +57,11 @@ VERSION = 0.2.9 | |||
| # If you don't need CBLAS interface, please comment it in. | |||
| # NO_CBLAS = 1 | |||
| # If you only want CBLAS interface without installing Fortran compiler, | |||
| # If you only want CBLAS interface without installing Fortran compiler, | |||
| # please comment it in. | |||
| # ONLY_CBLAS = 1 | |||
| # If you don't need LAPACK, please comment it in. | |||
| # If you don't need LAPACK, please comment it in. | |||
| # If you set NO_LAPACK=1, the library automatically sets NO_LAPACKE=1. | |||
| # NO_LAPACK = 1 | |||
| @@ -84,7 +84,7 @@ NO_WARMUP = 1 | |||
| # If you want to disable CPU/Memory affinity on Linux. | |||
| NO_AFFINITY = 1 | |||
| # Don't use AVX kernel on Sandy Bridge. It is compatible with old compilers | |||
| # Don't use AVX kernel on Sandy Bridge. It is compatible with old compilers | |||
| # and OS. However, the performance is low. | |||
| # NO_AVX = 1 | |||
| @@ -112,8 +112,8 @@ NO_AFFINITY = 1 | |||
| # If you need to synchronize FP CSR between threads (for x86/x86_64 only). | |||
| # CONSISTENT_FPCSR = 1 | |||
| # If any gemm arguement m, n or k is less or equal this threshold, gemm will be execute | |||
| # with single thread. You can use this flag to avoid the overhead of multi-threading | |||
| # If any gemm arguement m, n or k is less or equal this threshold, gemm will be execute | |||
| # with single thread. You can use this flag to avoid the overhead of multi-threading | |||
| # in small matrix sizes. The default value is 4. | |||
| # GEMM_MULTITHREAD_THRESHOLD = 4 | |||
| @@ -128,7 +128,7 @@ NO_AFFINITY = 1 | |||
| # The installation directory. | |||
| # PREFIX = /opt/OpenBLAS | |||
| # Common Optimization Flag; | |||
| # Common Optimization Flag; | |||
| # The default -O2 is enough. | |||
| # COMMON_OPT = -O2 | |||
| @@ -143,5 +143,5 @@ COMMON_PROF = -pg | |||
| # DEBUG = 1 | |||
| # | |||
| # End of user configuration | |||
| # End of user configuration | |||
| # | |||
+ 1
- 1
Makefile.sparc
View File
| @@ -27,7 +27,7 @@ LIBNAME = $(LIBPREFIX).a | |||
| ifndef SMP | |||
| LIBCXML = -L/opt/SUNWspro/lib/v9 | |||
| LIBATLAS = -L$(HOME)/misc/lib -lf77blas -latlas -lm | |||
| LIBATLAS = -L$(HOME)/misc/lib -lf77blas -latlas -lm | |||
| else | |||
| LIBCXML = -lcxmlp -lots -lm | |||
| endif | |||
+ 18
- 18
Makefile.system
View File
| @@ -35,7 +35,7 @@ include $(TOPDIR)/$(MAKEFILE_RULE) | |||
| endif | |||
| # | |||
| # Beginning of system configuration | |||
| # Beginning of system configuration | |||
| # | |||
| ifndef HOSTCC | |||
| @@ -99,7 +99,7 @@ endif | |||
| ifndef GEMM_MULTITHREAD_THRESHOLD | |||
| GEMM_MULTITHREAD_THRESHOLD=4 | |||
| endif | |||
| GETARCH_FLAGS += -DGEMM_MULTITHREAD_THRESHOLD=$(GEMM_MULTITHREAD_THRESHOLD) | |||
| GETARCH_FLAGS += -DGEMM_MULTITHREAD_THRESHOLD=$(GEMM_MULTITHREAD_THRESHOLD) | |||
| ifeq ($(NO_AVX), 1) | |||
| GETARCH_FLAGS += -DNO_AVX | |||
| @@ -230,14 +230,14 @@ GCCVERSIONGT4 := $(shell expr `$(CC) -dumpversion | cut -f1 -d.` \> 4) | |||
| GCCMINORVERSIONGTEQ7 := $(shell expr `$(CC) -dumpversion | cut -f2 -d.` \>= 7) | |||
| ifeq ($(GCCVERSIONGT4), 1) | |||
| # GCC Majar version > 4 | |||
| # It is compatible with MSVC ABI. | |||
| # It is compatible with MSVC ABI. | |||
| CCOMMON_OPT += -DMS_ABI | |||
| endif | |||
| ifeq ($(GCCVERSIONGTEQ4), 1) | |||
| ifeq ($(GCCMINORVERSIONGTEQ7), 1) | |||
| # GCC Version >=4.7 | |||
| # It is compatible with MSVC ABI. | |||
| # It is compatible with MSVC ABI. | |||
| CCOMMON_OPT += -DMS_ABI | |||
| endif | |||
| endif | |||
| @@ -317,7 +317,7 @@ FCOMMON_OPT += -m128bit-long-double | |||
| endif | |||
| ifeq ($(C_COMPILER), CLANG) | |||
| EXPRECISION = 1 | |||
| CCOMMON_OPT += -DEXPRECISION | |||
| CCOMMON_OPT += -DEXPRECISION | |||
| FCOMMON_OPT += -m128bit-long-double | |||
| endif | |||
| endif | |||
| @@ -335,7 +335,7 @@ FCOMMON_OPT += -m128bit-long-double | |||
| endif | |||
| ifeq ($(C_COMPILER), CLANG) | |||
| EXPRECISION = 1 | |||
| CCOMMON_OPT += -DEXPRECISION | |||
| CCOMMON_OPT += -DEXPRECISION | |||
| FCOMMON_OPT += -m128bit-long-double | |||
| endif | |||
| endif | |||
| @@ -455,12 +455,12 @@ endif | |||
| BINARY_DEFINED = 1 | |||
| endif | |||
| ifeq ($(CORE), LOONGSON3A) | |||
| ifeq ($(CORE), LOONGSON3A) | |||
| CCOMMON_OPT += -march=mips64 | |||
| FCOMMON_OPT += -march=mips64 | |||
| endif | |||
| ifeq ($(CORE), LOONGSON3B) | |||
| ifeq ($(CORE), LOONGSON3B) | |||
| CCOMMON_OPT += -march=mips64 | |||
| FCOMMON_OPT += -march=mips64 | |||
| endif | |||
| @@ -530,7 +530,7 @@ CCOMMON_OPT += -DF_INTERFACE_GFORT | |||
| FCOMMON_OPT += -Wall | |||
| #Don't include -lgfortran, when NO_LAPACK=1 or lsbcc | |||
| ifneq ($(NO_LAPACK), 1) | |||
| EXTRALIB += -lgfortran | |||
| EXTRALIB += -lgfortran | |||
| endif | |||
| ifdef NO_BINARY_MODE | |||
| ifeq ($(ARCH), mips64) | |||
| @@ -657,11 +657,11 @@ FCOMMON_OPT += -n32 | |||
| else | |||
| FCOMMON_OPT += -n64 | |||
| endif | |||
| ifeq ($(CORE), LOONGSON3A) | |||
| ifeq ($(CORE), LOONGSON3A) | |||
| FCOMMON_OPT += -loongson3 -static | |||
| endif | |||
| ifeq ($(CORE), LOONGSON3B) | |||
| ifeq ($(CORE), LOONGSON3B) | |||
| FCOMMON_OPT += -loongson3 -static | |||
| endif | |||
| @@ -687,11 +687,11 @@ CCOMMON_OPT += -n32 | |||
| else | |||
| CCOMMON_OPT += -n64 | |||
| endif | |||
| ifeq ($(CORE), LOONGSON3A) | |||
| ifeq ($(CORE), LOONGSON3A) | |||
| CCOMMON_OPT += -loongson3 -static | |||
| endif | |||
| ifeq ($(CORE), LOONGSON3B) | |||
| ifeq ($(CORE), LOONGSON3B) | |||
| CCOMMON_OPT += -loongson3 -static | |||
| endif | |||
| @@ -736,7 +736,7 @@ endif | |||
| ifdef BINARY64 | |||
| ifdef INTERFACE64 | |||
| ifneq ($(INTERFACE64), 0) | |||
| CCOMMON_OPT += | |||
| CCOMMON_OPT += | |||
| #-DUSE64BITINT | |||
| endif | |||
| endif | |||
| @@ -744,14 +744,14 @@ endif | |||
| ifeq ($(NEED_PIC), 1) | |||
| ifeq ($(C_COMPILER), IBM) | |||
| CCOMMON_OPT += -qpic=large | |||
| CCOMMON_OPT += -qpic=large | |||
| else | |||
| CCOMMON_OPT += -fPIC | |||
| CCOMMON_OPT += -fPIC | |||
| endif | |||
| ifeq ($(F_COMPILER), SUN) | |||
| FCOMMON_OPT += -pic | |||
| else | |||
| FCOMMON_OPT += -fPIC | |||
| FCOMMON_OPT += -fPIC | |||
| endif | |||
| endif | |||
| @@ -929,7 +929,7 @@ LAPACK_FPFLAGS := $(FPFLAGS) | |||
| endif | |||
| LAPACK_CFLAGS = $(CFLAGS) | |||
| LAPACK_CFLAGS += -DHAVE_LAPACK_CONFIG_H | |||
| LAPACK_CFLAGS += -DHAVE_LAPACK_CONFIG_H | |||
| ifdef INTERFACE64 | |||
| ifneq ($(INTERFACE64), 0) | |||
| LAPACK_CFLAGS += -DLAPACK_ILP64 | |||
+ 7
- 7
Makefile.tail
View File
| @@ -57,7 +57,7 @@ commonlibs :: $(COMMONOBJS) | |||
| commonprof :: $(COMMONOBJS_P) | |||
| $(AR) $(ARFLAGS) -ru $(TOPDIR)/$(LIBNAME_P) $^ | |||
| quick : | |||
| quick : | |||
| $(MAKE) -C $(TOPDIR) libs | |||
| bms.$(SUFFIX):bm.c $(TOPDIR)/../bench/bmcommon.h | |||
| @@ -386,7 +386,7 @@ kbench_rank_k: kbench_rank_k.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(OBJS) $(LIBS | |||
| smallbench: smallbench.$(SUFFIX) $(BLASOBJS) $(COMMONOBJS) $(OBJS) $(LIBS) | |||
| $(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB) | |||
| smallbench.mkl: smallbench.$(SUFFIX) | |||
| smallbench.mkl: smallbench.$(SUFFIX) | |||
| $(CC) -o $(@F) $(CFLAGS) $^ $(LIBMKL) $(EXTRALIB) $(CEXTRALIB) | |||
| bench.sun: bench.$(SUFFIX) $(OBJS) | |||
| @@ -410,7 +410,7 @@ bench.acml: bench.$(SUFFIX) $(OBJS) | |||
| bench.flame: bench.$(SUFFIX) $(OBJS) | |||
| $(CC) -o $(@F) $(CFLAGS) $^ $(LIBFLAME) $(EXTRALIB) $(CEXTRALIB) | |||
| kbench.mkl: kbench.$(SUFFIX) $(OBJS) | |||
| kbench.mkl: kbench.$(SUFFIX) $(OBJS) | |||
| $(CC) -static -o $(@F) $(CFLAGS) $^ $(LIBMKL) $(EXTRALIB) $(CEXTRALIB) | |||
| bench.mkl: bench.$(SUFFIX) $(OBJS) | |||
| @@ -537,10 +537,10 @@ params.$(SUFFIX):param.c $(TOPDIR)/../bench/bmcommon.h | |||
| $(CC) $(CFLAGS) -UDOUBLE -UCOMPLEX -c $< -o $(@F) | |||
| paramd.$(SUFFIX):param.c $(TOPDIR)/../bench/bmcommon.h | |||
| $(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F) | |||
| $(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F) | |||
| paramq.$(SUFFIX):param.c $(TOPDIR)/../bench/bmcommon.h | |||
| $(CC) $(CFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F) | |||
| $(CC) $(CFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F) | |||
| paramc.$(SUFFIX):paramz.c $(TOPDIR)/../bench/bmcommon.h | |||
| $(CC) $(CFLAGS) -UDOUBLE -DCOMPLEX -c $< -o $(@F) | |||
| @@ -555,10 +555,10 @@ params-ex.$(SUFFIX):param-ex.c $(TOPDIR)/../bench/bmcommon.h | |||
| $(CC) $(CFLAGS) -UDOUBLE -UCOMPLEX -c $< -o $(@F) | |||
| paramd-ex.$(SUFFIX):param-ex.c $(TOPDIR)/../bench/bmcommon.h | |||
| $(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F) | |||
| $(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F) | |||
| paramq-ex.$(SUFFIX):param-ex.c $(TOPDIR)/../bench/bmcommon.h | |||
| $(CC) $(CFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F) | |||
| $(CC) $(CFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F) | |||
| paramc-ex.$(SUFFIX):paramz-ex.c $(TOPDIR)/../bench/bmcommon.h | |||
| $(CC) $(CFLAGS) -UDOUBLE -DCOMPLEX -c $< -o $(@F) | |||
+ 2
- 2
Makefile.x86
View File
| @@ -14,7 +14,7 @@ endif | |||
| # LIBMKL = -L$(MKLPATH)/32 -lmkl_lapack -lmkl_ia32 -lguide -lpthread -lm | |||
| ifndef SMP | |||
| LIBATLAS = -L$(ATLAS) -lf77blas -latlas -lg2c -lm | |||
| LIBATLAS = -L$(ATLAS) -lf77blas -latlas -lg2c -lm | |||
| else | |||
| LIBATLAS = -L$(ATLAS) -lptf77blas -latlas -lpthread -lg2c -lm | |||
| endif | |||
| @@ -50,7 +50,7 @@ LIBSUNPERF = -L/opt/SUNWspro/lib/sse2 -Wl,-R,/opt/SUNWspro/lib/sse2 -lsunperf | |||
| LIBVECLIB = /System/Library/Frameworks/vecLib.framework/Versions/Current/vecLib | |||
| ifndef SMP | |||
| LIBATLAS = -L$(ATLASPATH)/32 -lcblas -lf77blas -latlas -lm | |||
| LIBATLAS = -L$(ATLASPATH)/32 -lcblas -lf77blas -latlas -lm | |||
| else | |||
| LIBATLAS = -L$(ATLASPATH)/32 -lptf77blas -lptatlas -lpthread -lm | |||
| endif | |||
+ 1
- 1
Makefile.x86_64
View File
| @@ -28,7 +28,7 @@ endif | |||
| ifndef SMP | |||
| LIBATLAS = -L$(ATLASPATH)64 -llapack -lcblas -lf77blas -latlas -lm | |||
| LIBATLAS = -L$(ATLASPATH)64 -llapack -lcblas -lf77blas -latlas -lm | |||
| else | |||
| LIBATLAS = -L$(ATLASPATH)64 -llapack -lptcblas -lptf77blas -latlas -lpthread -lm | |||
| endif | |||
+ 7
- 7
README.md
View File
| @@ -3,7 +3,7 @@ | |||
| [](https://travis-ci.org/xianyi/OpenBLAS) | |||
| ## Introduction | |||
| OpenBLAS is an optimized BLAS library based on GotoBLAS2 1.13 BSD version. | |||
| OpenBLAS is an optimized BLAS library based on GotoBLAS2 1.13 BSD version. | |||
| Please read the documents on OpenBLAS wiki pages <http://github.com/xianyi/OpenBLAS/wiki>. | |||
| @@ -74,7 +74,7 @@ Please read GotoBLAS_01Readme.txt | |||
| ## Usages | |||
| Link with libopenblas.a or -lopenblas for shared library. | |||
| ### Set the number of threads with environment variables. | |||
| ### Set the number of threads with environment variables. | |||
| Examples: | |||
| @@ -84,7 +84,7 @@ Examples: | |||
| export GOTO_NUM_THREADS=4 | |||
| or | |||
| or | |||
| export OMP_NUM_THREADS=4 | |||
| @@ -92,7 +92,7 @@ The priorities are OPENBLAS_NUM_THREADS > GOTO_NUM_THREADS > OMP_NUM_THREADS. | |||
| If you compile this lib with USE_OPENMP=1, you should set OMP_NUM_THREADS environment variable. OpenBLAS ignores OPENBLAS_NUM_THREADS and GOTO_NUM_THREADS with USE_OPENMP=1. | |||
| ### Set the number of threads on runtime. | |||
| ### Set the number of threads on runtime. | |||
| We provided the below functions to control the number of threads on runtime. | |||
| @@ -116,12 +116,12 @@ Please see Changelog.txt to obtain the differences between GotoBLAS2 1.13 BSD ve | |||
| * Please read [Faq](https://github.com/xianyi/OpenBLAS/wiki/Faq) at first. | |||
| * Please use gcc version 4.6 and above to compile Sandy Bridge AVX kernels on Linux/MingW/BSD. | |||
| * Please use Clang version 3.1 and above to compile the library on Sandy Bridge microarchitecture. The Clang 3.0 will generate the wrong AVX binary code. | |||
| * The number of CPUs/Cores should less than or equal to 256. | |||
| * The number of CPUs/Cores should less than or equal to 256. | |||
| * On Linux, OpenBLAS sets the processor affinity by default. This may cause [the conflict with R parallel](https://stat.ethz.ch/pipermail/r-sig-hpc/2012-April/001348.html). You can build the library with NO_AFFINITY=1. | |||
| * On Loongson 3A. make test would be failed because of pthread_create error. The error code is EAGAIN. However, it will be OK when you run the same testcase on shell. | |||
| * On Loongson 3A. make test would be failed because of pthread_create error. The error code is EAGAIN. However, it will be OK when you run the same testcase on shell. | |||
| ## Contributing | |||
| 1. [Check for open issues](https://github.com/xianyi/OpenBLAS/issues) or open a fresh issue to start a discussion around a feature idea or a bug. | |||
| 1. [Check for open issues](https://github.com/xianyi/OpenBLAS/issues) or open a fresh issue to start a discussion around a feature idea or a bug. | |||
| 1. Fork the [OpenBLAS](https://github.com/xianyi/OpenBLAS) repository to start making your changes. | |||
| 1. Write a test which shows that the bug was fixed or that the feature works as expected. | |||
| 1. Send a pull request. Make sure to add yourself to `CONTRIBUTORS.md`. | |||
+ 16
- 16
benchmark/cholesky.c
View File
| @@ -78,29 +78,29 @@ int gettimeofday(struct timeval *tv, void *tz){ | |||
| FILETIME ft; | |||
| unsigned __int64 tmpres = 0; | |||
| static int tzflag; | |||
| if (NULL != tv) | |||
| { | |||
| GetSystemTimeAsFileTime(&ft); | |||
| tmpres |= ft.dwHighDateTime; | |||
| tmpres <<= 32; | |||
| tmpres |= ft.dwLowDateTime; | |||
| /*converting file time to unix epoch*/ | |||
| tmpres /= 10; /*convert into microseconds*/ | |||
| tmpres -= DELTA_EPOCH_IN_MICROSECS; | |||
| tmpres -= DELTA_EPOCH_IN_MICROSECS; | |||
| tv->tv_sec = (long)(tmpres / 1000000UL); | |||
| tv->tv_usec = (long)(tmpres % 1000000UL); | |||
| } | |||
| return 0; | |||
| } | |||
| #endif | |||
| static __inline double getmflops(int ratio, int m, double secs){ | |||
| double mm = (double)m; | |||
| double mulflops, addflops; | |||
| @@ -137,7 +137,7 @@ int MAIN__(int argc, char *argv[]){ | |||
| struct timeval start, stop; | |||
| double time1; | |||
| argc--;argv++; | |||
| argc--;argv++; | |||
| if (argc > 0) { from = atol(*argv); argc--; argv++;} | |||
| if (argc > 0) { to = MAX(atol(*argv), from); argc--; argv++;} | |||
| @@ -148,17 +148,17 @@ int MAIN__(int argc, char *argv[]){ | |||
| if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){ | |||
| fprintf(stderr,"Out of Memory!!\n");exit(1); | |||
| } | |||
| if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){ | |||
| fprintf(stderr,"Out of Memory!!\n");exit(1); | |||
| } | |||
| for(m = from; m <= to; m += step){ | |||
| fprintf(stderr, "M = %6d : ", (int)m); | |||
| for (uplos = 0; uplos < 2; uplos ++) { | |||
| #ifndef COMPLEX | |||
| if (uplos & 1) { | |||
| for (j = 0; j < m; j++) { | |||
| @@ -219,11 +219,11 @@ int MAIN__(int argc, char *argv[]){ | |||
| fprintf(stderr, "Info = %d\n", info); | |||
| exit(1); | |||
| } | |||
| time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6; | |||
| maxerr = 0.; | |||
| if (!(uplos & 1)) { | |||
| for (j = 0; j < m; j++) { | |||
| for(i = 0; i <= j; i++) { | |||
| @@ -247,8 +247,8 @@ int MAIN__(int argc, char *argv[]){ | |||
| } | |||
| } | |||
| } | |||
| fprintf(stderr, | |||
| fprintf(stderr, | |||
| #ifdef XDOUBLE | |||
| " %Le %10.3f MFlops", maxerr, | |||
| #else | |||
+ 16
- 16
benchmark/linpack.c
View File
| @@ -83,22 +83,22 @@ int gettimeofday(struct timeval *tv, void *tz){ | |||
| FILETIME ft; | |||
| unsigned __int64 tmpres = 0; | |||
| static int tzflag; | |||
| if (NULL != tv) | |||
| { | |||
| GetSystemTimeAsFileTime(&ft); | |||
| tmpres |= ft.dwHighDateTime; | |||
| tmpres <<= 32; | |||
| tmpres |= ft.dwLowDateTime; | |||
| /*converting file time to unix epoch*/ | |||
| tmpres /= 10; /*convert into microseconds*/ | |||
| tmpres -= DELTA_EPOCH_IN_MICROSECS; | |||
| tmpres -= DELTA_EPOCH_IN_MICROSECS; | |||
| tv->tv_sec = (long)(tmpres / 1000000UL); | |||
| tv->tv_usec = (long)(tmpres % 1000000UL); | |||
| } | |||
| return 0; | |||
| } | |||
| @@ -154,7 +154,7 @@ int MAIN__(int argc, char *argv[]){ | |||
| struct timeval start, stop; | |||
| double time1, time2; | |||
| argc--;argv++; | |||
| argc--;argv++; | |||
| if (argc > 0) { from = atol(*argv); argc--; argv++;} | |||
| if (argc > 0) { to = MAX(atol(*argv), from); argc--; argv++;} | |||
| @@ -165,15 +165,15 @@ int MAIN__(int argc, char *argv[]){ | |||
| if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){ | |||
| fprintf(stderr,"Out of Memory!!\n");exit(1); | |||
| } | |||
| if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * COMPSIZE)) == NULL){ | |||
| fprintf(stderr,"Out of Memory!!\n");exit(1); | |||
| } | |||
| if (( ipiv = (blasint *)malloc(sizeof(blasint) * to * COMPSIZE)) == NULL){ | |||
| fprintf(stderr,"Out of Memory!!\n");exit(1); | |||
| } | |||
| #ifdef linux | |||
| srandom(getpid()); | |||
| #endif | |||
| @@ -181,7 +181,7 @@ int MAIN__(int argc, char *argv[]){ | |||
| fprintf(stderr, " SIZE Residual Decompose Solve Total\n"); | |||
| for(m = from; m <= to; m += step){ | |||
| fprintf(stderr, " %6d : ", (int)m); | |||
| for(j = 0; j < m; j++){ | |||
| @@ -189,9 +189,9 @@ int MAIN__(int argc, char *argv[]){ | |||
| a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5; | |||
| } | |||
| } | |||
| for (i = 0; i < m * COMPSIZE; ++i) b[i] = 0.; | |||
| for (j = 0; j < m; ++j) { | |||
| for (i = 0; i < m * COMPSIZE; ++i) { | |||
| b[i] += a[i + j * m * COMPSIZE]; | |||
| @@ -208,7 +208,7 @@ int MAIN__(int argc, char *argv[]){ | |||
| fprintf(stderr, "Matrix is not singular .. %d\n", info); | |||
| exit(1); | |||
| } | |||
| time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6; | |||
| gettimeofday( &start, (struct timezone *)0); | |||
| @@ -221,7 +221,7 @@ int MAIN__(int argc, char *argv[]){ | |||
| fprintf(stderr, "Matrix is not singular .. %d\n", info); | |||
| exit(1); | |||
| } | |||
| time2 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6; | |||
| maxerr = 0.; | |||
| @@ -239,7 +239,7 @@ int MAIN__(int argc, char *argv[]){ | |||
| #endif | |||
| #endif | |||
| } | |||
| #ifdef XDOUBLE | |||
| fprintf(stderr," %Le ", maxerr); | |||
| #else | |||
| @@ -247,7 +247,7 @@ int MAIN__(int argc, char *argv[]){ | |||
| #endif | |||
| fprintf(stderr, | |||
| " %10.2f MFlops %10.2f MFlops %10.2f MFlops\n", | |||
| " %10.2f MFlops %10.2f MFlops %10.2f MFlops\n", | |||
| COMPSIZE * COMPSIZE * 2. / 3. * (double)m * (double)m * (double)m / time1 * 1.e-6, | |||
| COMPSIZE * COMPSIZE * 2. * (double)m * (double)m / time2 * 1.e-6, | |||
| COMPSIZE * COMPSIZE * (2. / 3. * (double)m * (double)m * (double)m + 2. * (double)m * (double)m) / (time1 + time2) * 1.e-6); | |||
+ 9
- 9
c_check
View File
| @@ -180,9 +180,9 @@ $linker_a = ""; | |||
| { | |||
| $link = `$compiler_name -c ctest2.c -o ctest2.o 2>&1 && $compiler_name $openmp -v ctest2.o -o ctest2 2>&1 && rm -f ctest2.o ctest2 ctest2.exe`; | |||
| $link =~ s/\-Y\sP\,/\-Y/g; | |||
| @flags = split(/[\s\,\n]/, $link); | |||
| # remove leading and trailing quotes from each flag. | |||
| @flags = map {s/^['"]|['"]$//g; $_} @flags; | |||
| @@ -193,15 +193,15 @@ $linker_a = ""; | |||
| && ($flags !~ /^-LIST:/) | |||
| && ($flags !~ /^-LANG:/) | |||
| ) { | |||
| $linker_L .= $flags . " " | |||
| $linker_L .= $flags . " " | |||
| } | |||
| if ($flags =~ /^\-Y/) { | |||
| $linker_L .= "-Wl,". $flags . " " | |||
| $linker_L .= "-Wl,". $flags . " " | |||
| } | |||
| if ( | |||
| ($flags =~ /^\-l/) | |||
| ($flags =~ /^\-l/) | |||
| && ($flags !~ /gfortranbegin/) | |||
| && ($flags !~ /frtbegin/) | |||
| && ($flags !~ /pathfstart/) | |||
| @@ -213,7 +213,7 @@ $linker_a = ""; | |||
| && ($flags !~ /advapi32/) | |||
| && ($flags !~ /shell32/) | |||
| ) { | |||
| $linker_l .= $flags . " " | |||
| $linker_l .= $flags . " " | |||
| } | |||
| $linker_a .= $flags . " " if $flags =~ /\.a$/; | |||
| @@ -250,9 +250,9 @@ print CONFFILE "#define __64BIT__\t1\n" if $binformat eq bin64; | |||
| print CONFFILE "#define FUNDERSCORE\t$need_fu\n" if $need_fu ne ""; | |||
| if ($os eq "LINUX") { | |||
| # @pthread = split(/\s+/, `nm /lib/libpthread.so* | grep _pthread_create`); | |||
| # if ($pthread[2] ne "") { | |||
| # print CONFFILE "#define PTHREAD_CREATE_FUNC $pthread[2]\n"; | |||
| # } else { | |||
+ 3
- 3
cblas.h
View File
| @@ -17,13 +17,13 @@ void goto_set_num_threads(int num_threads); | |||
| char* openblas_get_config(void); | |||
| /* Get the parallelization type which is used by OpenBLAS */ | |||
| int openblas_get_parallel(void); | |||
| int openblas_get_parallel(void); | |||
| /* OpenBLAS is compiled for sequential use */ | |||
| #define OPENBLAS_SEQUENTIAL 0 | |||
| /* OpenBLAS is compiled using normal threading model */ | |||
| #define OPENBLAS_THREAD 1 | |||
| #define OPENBLAS_THREAD 1 | |||
| /* OpenBLAS is compiled using OpenMP threading model */ | |||
| #define OPENBLAS_OPENMP 2 | |||
| #define OPENBLAS_OPENMP 2 | |||
| /* | |||
+ 3
- 3
cblas_noconst.h
View File
| @@ -17,13 +17,13 @@ void goto_set_num_threads(int num_threads); | |||
| char* openblas_get_config(void); | |||
| /* Get the parallelization type which is used by OpenBLAS */ | |||
| int openblas_get_parallel(void); | |||
| int openblas_get_parallel(void); | |||
| /* OpenBLAS is compiled for sequential use */ | |||
| #define OPENBLAS_SEQUENTIAL 0 | |||
| /* OpenBLAS is compiled using normal threading model */ | |||
| #define OPENBLAS_THREAD 1 | |||
| #define OPENBLAS_THREAD 1 | |||
| /* OpenBLAS is compiled using OpenMP threading model */ | |||
| #define OPENBLAS_OPENMP 2 | |||
| #define OPENBLAS_OPENMP 2 | |||
| #define CBLAS_INDEX size_t | |||
+ 3
- 3
common.h
View File
| @@ -531,7 +531,7 @@ static __inline void compinv(FLOAT *b, FLOAT ar, FLOAT ai){ | |||
| #ifndef UNIT | |||
| FLOAT ratio, den; | |||
| if ( | |||
| #ifdef XDOUBLE | |||
| (fabsl(ar)) >= (fabsl(ai)) | |||
| @@ -557,7 +557,7 @@ static __inline void compinv(FLOAT *b, FLOAT ar, FLOAT ai){ | |||
| b[0] = ONE; | |||
| b[1] = ZERO; | |||
| #endif | |||
| } | |||
| #endif | |||
| @@ -693,7 +693,7 @@ extern int gotoblas_profile; | |||
| #ifdef __cplusplus | |||
| } | |||
| #endif /* __cplusplus */ | |||
| #endif | |||
+ 13
- 13
common_arm.h
View File
| @@ -13,19 +13,19 @@ met: | |||
| notice, this list of conditions and the following disclaimer in | |||
| the documentation and/or other materials provided with the | |||
| distribution. | |||
| 3. Neither the name of the ISCAS nor the names of its contributors may | |||
| be used to endorse or promote products derived from this software | |||
| 3. Neither the name of the ISCAS nor the names of its contributors may | |||
| be used to endorse or promote products derived from this software | |||
| without specific prior written permission. | |||
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" | |||
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||
| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE | |||
| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |||
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | |||
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, | |||
| OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | |||
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" | |||
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||
| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE | |||
| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |||
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | |||
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, | |||
| OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | |||
| USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | |||
| **********************************************************************************/ | |||
| @@ -94,7 +94,7 @@ static void __inline blas_lock(volatile BLASULONG *address){ | |||
| "mov %0 , r3 \n\t" | |||
| : "=r"(ret), "=r"(address) | |||
| : "1"(address) | |||
| : "memory", "r2" , "r3" | |||
| : "memory", "r2" , "r3" | |||
| ); | |||
| @@ -143,7 +143,7 @@ static inline int blas_quickdivide(blasint x, blasint y){ | |||
| .func REALNAME ;\ | |||
| REALNAME: | |||
| #define EPILOGUE | |||
| #define EPILOGUE | |||
| #define PROFCODE | |||
+ 13
- 13
common_arm64.h
View File
| @@ -13,19 +13,19 @@ met: | |||
| notice, this list of conditions and the following disclaimer in | |||
| the documentation and/or other materials provided with the | |||
| distribution. | |||
| 3. Neither the name of the ISCAS nor the names of its contributors may | |||
| be used to endorse or promote products derived from this software | |||
| 3. Neither the name of the ISCAS nor the names of its contributors may | |||
| be used to endorse or promote products derived from this software | |||
| without specific prior written permission. | |||
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" | |||
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||
| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE | |||
| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |||
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | |||
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, | |||
| OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | |||
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" | |||
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||
| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE | |||
| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |||
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | |||
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, | |||
| OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | |||
| USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | |||
| **********************************************************************************/ | |||
| @@ -94,7 +94,7 @@ static void __inline blas_lock(volatile BLASULONG *address){ | |||
| "mov %0 , r3 \n\t" | |||
| : "=r"(ret), "=r"(address) | |||
| : "1"(address) | |||
| : "memory", "r2" , "r3" | |||
| : "memory", "r2" , "r3" | |||
| ); | |||
| @@ -143,7 +143,7 @@ static inline int blas_quickdivide(blasint x, blasint y){ | |||
| .func REALNAME ;\ | |||
| REALNAME: | |||
| #define EPILOGUE | |||
| #define EPILOGUE | |||
| #define PROFCODE | |||
+ 2
- 2
common_ia64.h
View File
| @@ -58,10 +58,10 @@ | |||
| static __inline void blas_lock(volatile unsigned long *address){ | |||
| unsigned long ret; | |||
| do { | |||
| while (*address) {YIELDING;}; | |||
| __asm__ __volatile__ ("mov ar.ccv=r0\n;;\n" | |||
| "cmpxchg4.acq %0=[%2],%1,ar.ccv\n" | |||
| : "=r"(ret) : "r"(1), "r"(address) | |||
+ 62
- 62
common_interface.h
View File
| @@ -238,17 +238,17 @@ void BLASFUNC(xgeru)(blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| void BLASFUNC(xgerc)(blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *, blasint *, xdouble *, blasint *); | |||
| void BLASFUNC(sgemv)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| void BLASFUNC(sgemv)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| float *, blasint *, float *, float *, blasint *); | |||
| void BLASFUNC(dgemv)(char *, blasint *, blasint *, double *, double *, blasint *, | |||
| void BLASFUNC(dgemv)(char *, blasint *, blasint *, double *, double *, blasint *, | |||
| double *, blasint *, double *, double *, blasint *); | |||
| void BLASFUNC(qgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| void BLASFUNC(qgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *, blasint *, xdouble *, xdouble *, blasint *); | |||
| void BLASFUNC(cgemv)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| void BLASFUNC(cgemv)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| float *, blasint *, float *, float *, blasint *); | |||
| void BLASFUNC(zgemv)(char *, blasint *, blasint *, double *, double *, blasint *, | |||
| void BLASFUNC(zgemv)(char *, blasint *, blasint *, double *, double *, blasint *, | |||
| double *, blasint *, double *, double *, blasint *); | |||
| void BLASFUNC(xgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| void BLASFUNC(xgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *, blasint *, xdouble *, xdouble *, blasint *); | |||
| void BLASFUNC(strsv) (char *, char *, char *, blasint *, float *, blasint *, | |||
| @@ -257,24 +257,24 @@ void BLASFUNC(dtrsv) (char *, char *, char *, blasint *, double *, blasint *, | |||
| double *, blasint *); | |||
| void BLASFUNC(qtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *, | |||
| xdouble *, blasint *); | |||
| void BLASFUNC(ctrsv) (char *, char *, char *, blasint *, float *, blasint *, | |||
| void BLASFUNC(ctrsv) (char *, char *, char *, blasint *, float *, blasint *, | |||
| float *, blasint *); | |||
| void BLASFUNC(ztrsv) (char *, char *, char *, blasint *, double *, blasint *, | |||
| void BLASFUNC(ztrsv) (char *, char *, char *, blasint *, double *, blasint *, | |||
| double *, blasint *); | |||
| void BLASFUNC(xtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *, | |||
| void BLASFUNC(xtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *, | |||
| xdouble *, blasint *); | |||
| void BLASFUNC(strmv) (char *, char *, char *, blasint *, float *, blasint *, | |||
| float *, blasint *); | |||
| void BLASFUNC(dtrmv) (char *, char *, char *, blasint *, double *, blasint *, | |||
| void BLASFUNC(dtrmv) (char *, char *, char *, blasint *, double *, blasint *, | |||
| double *, blasint *); | |||
| void BLASFUNC(qtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *, | |||
| void BLASFUNC(qtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *, | |||
| xdouble *, blasint *); | |||
| void BLASFUNC(ctrmv) (char *, char *, char *, blasint *, float *, blasint *, | |||
| void BLASFUNC(ctrmv) (char *, char *, char *, blasint *, float *, blasint *, | |||
| float *, blasint *); | |||
| void BLASFUNC(ztrmv) (char *, char *, char *, blasint *, double *, blasint *, | |||
| void BLASFUNC(ztrmv) (char *, char *, char *, blasint *, double *, blasint *, | |||
| double *, blasint *); | |||
| void BLASFUNC(xtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *, | |||
| void BLASFUNC(xtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *, | |||
| xdouble *, blasint *); | |||
| void BLASFUNC(stpsv) (char *, char *, char *, blasint *, float *, float *, blasint *); | |||
| @@ -305,24 +305,24 @@ void BLASFUNC(ctbsv) (char *, char *, char *, blasint *, blasint *, float *, bl | |||
| void BLASFUNC(ztbsv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *); | |||
| void BLASFUNC(xtbsv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *); | |||
| void BLASFUNC(ssymv) (char *, blasint *, float *, float *, blasint *, | |||
| void BLASFUNC(ssymv) (char *, blasint *, float *, float *, blasint *, | |||
| float *, blasint *, float *, float *, blasint *); | |||
| void BLASFUNC(dsymv) (char *, blasint *, double *, double *, blasint *, | |||
| void BLASFUNC(dsymv) (char *, blasint *, double *, double *, blasint *, | |||
| double *, blasint *, double *, double *, blasint *); | |||
| void BLASFUNC(qsymv) (char *, blasint *, xdouble *, xdouble *, blasint *, | |||
| void BLASFUNC(qsymv) (char *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *, blasint *, xdouble *, xdouble *, blasint *); | |||
| void BLASFUNC(csymv) (char *, blasint *, float *, float *, blasint *, | |||
| void BLASFUNC(csymv) (char *, blasint *, float *, float *, blasint *, | |||
| float *, blasint *, float *, float *, blasint *); | |||
| void BLASFUNC(zsymv) (char *, blasint *, double *, double *, blasint *, | |||
| void BLASFUNC(zsymv) (char *, blasint *, double *, double *, blasint *, | |||
| double *, blasint *, double *, double *, blasint *); | |||
| void BLASFUNC(xsymv) (char *, blasint *, xdouble *, xdouble *, blasint *, | |||
| void BLASFUNC(xsymv) (char *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *, blasint *, xdouble *, xdouble *, blasint *); | |||
| void BLASFUNC(sspmv) (char *, blasint *, float *, float *, | |||
| float *, blasint *, float *, float *, blasint *); | |||
| void BLASFUNC(dspmv) (char *, blasint *, double *, double *, | |||
| void BLASFUNC(dspmv) (char *, blasint *, double *, double *, | |||
| double *, blasint *, double *, double *, blasint *); | |||
| void BLASFUNC(qspmv) (char *, blasint *, xdouble *, xdouble *, | |||
| void BLASFUNC(qspmv) (char *, blasint *, xdouble *, xdouble *, | |||
| xdouble *, blasint *, xdouble *, xdouble *, blasint *); | |||
| void BLASFUNC(cspmv) (char *, blasint *, float *, float *, | |||
| float *, blasint *, float *, float *, blasint *); | |||
| @@ -344,17 +344,17 @@ void BLASFUNC(zsyr) (char *, blasint *, double *, double *, blasint *, | |||
| void BLASFUNC(xsyr) (char *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *, blasint *); | |||
| void BLASFUNC(ssyr2) (char *, blasint *, float *, | |||
| void BLASFUNC(ssyr2) (char *, blasint *, float *, | |||
| float *, blasint *, float *, blasint *, float *, blasint *); | |||
| void BLASFUNC(dsyr2) (char *, blasint *, double *, | |||
| void BLASFUNC(dsyr2) (char *, blasint *, double *, | |||
| double *, blasint *, double *, blasint *, double *, blasint *); | |||
| void BLASFUNC(qsyr2) (char *, blasint *, xdouble *, | |||
| void BLASFUNC(qsyr2) (char *, blasint *, xdouble *, | |||
| xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); | |||
| void BLASFUNC(csyr2) (char *, blasint *, float *, | |||
| void BLASFUNC(csyr2) (char *, blasint *, float *, | |||
| float *, blasint *, float *, blasint *, float *, blasint *); | |||
| void BLASFUNC(zsyr2) (char *, blasint *, double *, | |||
| void BLASFUNC(zsyr2) (char *, blasint *, double *, | |||
| double *, blasint *, double *, blasint *, double *, blasint *); | |||
| void BLASFUNC(xsyr2) (char *, blasint *, xdouble *, | |||
| void BLASFUNC(xsyr2) (char *, blasint *, xdouble *, | |||
| xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); | |||
| void BLASFUNC(sspr) (char *, blasint *, float *, float *, blasint *, | |||
| @@ -370,17 +370,17 @@ void BLASFUNC(zspr) (char *, blasint *, double *, double *, blasint *, | |||
| void BLASFUNC(xspr) (char *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *); | |||
| void BLASFUNC(sspr2) (char *, blasint *, float *, | |||
| void BLASFUNC(sspr2) (char *, blasint *, float *, | |||
| float *, blasint *, float *, blasint *, float *); | |||
| void BLASFUNC(dspr2) (char *, blasint *, double *, | |||
| void BLASFUNC(dspr2) (char *, blasint *, double *, | |||
| double *, blasint *, double *, blasint *, double *); | |||
| void BLASFUNC(qspr2) (char *, blasint *, xdouble *, | |||
| void BLASFUNC(qspr2) (char *, blasint *, xdouble *, | |||
| xdouble *, blasint *, xdouble *, blasint *, xdouble *); | |||
| void BLASFUNC(cspr2) (char *, blasint *, float *, | |||
| void BLASFUNC(cspr2) (char *, blasint *, float *, | |||
| float *, blasint *, float *, blasint *, float *); | |||
| void BLASFUNC(zspr2) (char *, blasint *, double *, | |||
| void BLASFUNC(zspr2) (char *, blasint *, double *, | |||
| double *, blasint *, double *, blasint *, double *); | |||
| void BLASFUNC(xspr2) (char *, blasint *, xdouble *, | |||
| void BLASFUNC(xspr2) (char *, blasint *, xdouble *, | |||
| xdouble *, blasint *, xdouble *, blasint *, xdouble *); | |||
| void BLASFUNC(cher) (char *, blasint *, float *, float *, blasint *, | |||
| @@ -394,25 +394,25 @@ void BLASFUNC(chpr) (char *, blasint *, float *, float *, blasint *, float * | |||
| void BLASFUNC(zhpr) (char *, blasint *, double *, double *, blasint *, double *); | |||
| void BLASFUNC(xhpr) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *); | |||
| void BLASFUNC(cher2) (char *, blasint *, float *, | |||
| void BLASFUNC(cher2) (char *, blasint *, float *, | |||
| float *, blasint *, float *, blasint *, float *, blasint *); | |||
| void BLASFUNC(zher2) (char *, blasint *, double *, | |||
| void BLASFUNC(zher2) (char *, blasint *, double *, | |||
| double *, blasint *, double *, blasint *, double *, blasint *); | |||
| void BLASFUNC(xher2) (char *, blasint *, xdouble *, | |||
| void BLASFUNC(xher2) (char *, blasint *, xdouble *, | |||
| xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); | |||
| void BLASFUNC(chpr2) (char *, blasint *, float *, | |||
| void BLASFUNC(chpr2) (char *, blasint *, float *, | |||
| float *, blasint *, float *, blasint *, float *); | |||
| void BLASFUNC(zhpr2) (char *, blasint *, double *, | |||
| void BLASFUNC(zhpr2) (char *, blasint *, double *, | |||
| double *, blasint *, double *, blasint *, double *); | |||
| void BLASFUNC(xhpr2) (char *, blasint *, xdouble *, | |||
| void BLASFUNC(xhpr2) (char *, blasint *, xdouble *, | |||
| xdouble *, blasint *, xdouble *, blasint *, xdouble *); | |||
| void BLASFUNC(chemv) (char *, blasint *, float *, float *, blasint *, | |||
| void BLASFUNC(chemv) (char *, blasint *, float *, float *, blasint *, | |||
| float *, blasint *, float *, float *, blasint *); | |||
| void BLASFUNC(zhemv) (char *, blasint *, double *, double *, blasint *, | |||
| void BLASFUNC(zhemv) (char *, blasint *, double *, double *, blasint *, | |||
| double *, blasint *, double *, double *, blasint *); | |||
| void BLASFUNC(xhemv) (char *, blasint *, xdouble *, xdouble *, blasint *, | |||
| void BLASFUNC(xhemv) (char *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *, blasint *, xdouble *, xdouble *, blasint *); | |||
| void BLASFUNC(chpmv) (char *, blasint *, float *, float *, | |||
| @@ -427,37 +427,37 @@ int BLASFUNC(dnorm)(char *, blasint *, blasint *, double *, blasint *); | |||
| int BLASFUNC(cnorm)(char *, blasint *, blasint *, float *, blasint *); | |||
| int BLASFUNC(znorm)(char *, blasint *, blasint *, double *, blasint *); | |||
| void BLASFUNC(sgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float *, float *, blasint *, | |||
| void BLASFUNC(sgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float *, float *, blasint *, | |||
| float *, blasint *, float *, float *, blasint *); | |||
| void BLASFUNC(dgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *, | |||
| void BLASFUNC(dgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *, | |||
| double *, blasint *, double *, double *, blasint *); | |||
| void BLASFUNC(qgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| void BLASFUNC(qgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *, blasint *, xdouble *, xdouble *, blasint *); | |||
| void BLASFUNC(cgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float *, float *, blasint *, | |||
| void BLASFUNC(cgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float *, float *, blasint *, | |||
| float *, blasint *, float *, float *, blasint *); | |||
| void BLASFUNC(zgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *, | |||
| void BLASFUNC(zgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *, | |||
| double *, blasint *, double *, double *, blasint *); | |||
| void BLASFUNC(xgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| void BLASFUNC(xgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *, blasint *, xdouble *, xdouble *, blasint *); | |||
| void BLASFUNC(ssbmv)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| void BLASFUNC(ssbmv)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| float *, blasint *, float *, float *, blasint *); | |||
| void BLASFUNC(dsbmv)(char *, blasint *, blasint *, double *, double *, blasint *, | |||
| void BLASFUNC(dsbmv)(char *, blasint *, blasint *, double *, double *, blasint *, | |||
| double *, blasint *, double *, double *, blasint *); | |||
| void BLASFUNC(qsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| void BLASFUNC(qsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *, blasint *, xdouble *, xdouble *, blasint *); | |||
| void BLASFUNC(csbmv)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| void BLASFUNC(csbmv)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| float *, blasint *, float *, float *, blasint *); | |||
| void BLASFUNC(zsbmv)(char *, blasint *, blasint *, double *, double *, blasint *, | |||
| void BLASFUNC(zsbmv)(char *, blasint *, blasint *, double *, double *, blasint *, | |||
| double *, blasint *, double *, double *, blasint *); | |||
| void BLASFUNC(xsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| void BLASFUNC(xsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *, blasint *, xdouble *, xdouble *, blasint *); | |||
| void BLASFUNC(chbmv)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| void BLASFUNC(chbmv)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| float *, blasint *, float *, float *, blasint *); | |||
| void BLASFUNC(zhbmv)(char *, blasint *, blasint *, double *, double *, blasint *, | |||
| void BLASFUNC(zhbmv)(char *, blasint *, blasint *, double *, double *, blasint *, | |||
| double *, blasint *, double *, double *, blasint *); | |||
| void BLASFUNC(xhbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| void BLASFUNC(xhbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, | |||
| xdouble *, blasint *, xdouble *, xdouble *, blasint *); | |||
| /* Level 3 routines */ | |||
| @@ -606,18 +606,18 @@ int BLASFUNC(sgemt)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| float *, blasint *); | |||
| int BLASFUNC(dgemt)(char *, blasint *, blasint *, double *, double *, blasint *, | |||
| double *, blasint *); | |||
| int BLASFUNC(cgemt)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| int BLASFUNC(cgemt)(char *, blasint *, blasint *, float *, float *, blasint *, | |||
| float *, blasint *); | |||
| int BLASFUNC(zgemt)(char *, blasint *, blasint *, double *, double *, blasint *, | |||
| double *, blasint *); | |||
| int BLASFUNC(sgema)(char *, char *, blasint *, blasint *, float *, | |||
| int BLASFUNC(sgema)(char *, char *, blasint *, blasint *, float *, | |||
| float *, blasint *, float *, float *, blasint *, float *, blasint *); | |||
| int BLASFUNC(dgema)(char *, char *, blasint *, blasint *, double *, | |||
| double *, blasint *, double*, double *, blasint *, double*, blasint *); | |||
| int BLASFUNC(cgema)(char *, char *, blasint *, blasint *, float *, | |||
| float *, blasint *, float *, float *, blasint *, float *, blasint *); | |||
| int BLASFUNC(zgema)(char *, char *, blasint *, blasint *, double *, | |||
| int BLASFUNC(zgema)(char *, char *, blasint *, blasint *, double *, | |||
| double *, blasint *, double*, double *, blasint *, double*, blasint *); | |||
| int BLASFUNC(sgems)(char *, char *, blasint *, blasint *, float *, | |||
| @@ -776,7 +776,7 @@ void BLASFUNC(zimatcopy) (char *, char *, blasint *, blasint *, double *, do | |||
| #ifdef __cplusplus | |||
| } | |||
| #endif /* __cplusplus */ | |||
| #endif | |||
+ 9
- 9
common_level1.h
View File
| @@ -54,11 +54,11 @@ double _Complex zdotu_k (BLASLONG, double *, BLASLONG, double *, BLASLONG); | |||
| xdouble _Complex xdotc_k (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | |||
| xdouble _Complex xdotu_k (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | |||
| int saxpy_k (BLASLONG, BLASLONG, BLASLONG, float, | |||
| int saxpy_k (BLASLONG, BLASLONG, BLASLONG, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); | |||
| int daxpy_k (BLASLONG, BLASLONG, BLASLONG, double, | |||
| int daxpy_k (BLASLONG, BLASLONG, BLASLONG, double, | |||
| double *, BLASLONG, double *, BLASLONG, double *, BLASLONG); | |||
| int qaxpy_k (BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| int qaxpy_k (BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | |||
| int caxpy_k (BLASLONG, BLASLONG, BLASLONG, float, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); | |||
| @@ -80,11 +80,11 @@ int ccopy_k(BLASLONG, float *, BLASLONG, float *, BLASLONG); | |||
| int zcopy_k(BLASLONG, double *, BLASLONG, double *, BLASLONG); | |||
| int xcopy_k(BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | |||
| int sswap_k (BLASLONG, BLASLONG, BLASLONG, float, | |||
| int sswap_k (BLASLONG, BLASLONG, BLASLONG, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); | |||
| int dswap_k (BLASLONG, BLASLONG, BLASLONG, double, | |||
| int dswap_k (BLASLONG, BLASLONG, BLASLONG, double, | |||
| double *, BLASLONG, double *, BLASLONG, double*, BLASLONG); | |||
| int qswap_k (BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| int qswap_k (BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble*, BLASLONG); | |||
| int cswap_k (BLASLONG, BLASLONG, BLASLONG, float, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); | |||
| @@ -156,11 +156,11 @@ BLASLONG icmin_k(BLASLONG, float *, BLASLONG); | |||
| BLASLONG izmin_k(BLASLONG, double *, BLASLONG); | |||
| BLASLONG ixmin_k(BLASLONG, xdouble *, BLASLONG); | |||
| int sscal_k(BLASLONG, BLASLONG, BLASLONG, float, | |||
| int sscal_k(BLASLONG, BLASLONG, BLASLONG, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); | |||
| int dscal_k(BLASLONG, BLASLONG, BLASLONG, double, | |||
| int dscal_k(BLASLONG, BLASLONG, BLASLONG, double, | |||
| double *, BLASLONG, double *, BLASLONG, double *, BLASLONG); | |||
| int qscal_k(BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| int qscal_k(BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | |||
| int cscal_k(BLASLONG, BLASLONG, BLASLONG, float, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); | |||
+ 8
- 8
common_level2.h
View File
| @@ -986,24 +986,24 @@ int cnorm_t(BLASLONG, BLASLONG, float *a, BLASLONG); | |||
| int znorm_n(BLASLONG, BLASLONG, double *a, BLASLONG); | |||
| int znorm_t(BLASLONG, BLASLONG, double *a, BLASLONG); | |||
| void sgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, | |||
| void sgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); | |||
| void sgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); | |||
| void dgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, | |||
| double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, void *buffer); | |||
| void dgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, | |||
| void dgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, | |||
| double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, void *buffer); | |||
| void qgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *buffer); | |||
| void qgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| void qgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *buffer); | |||
| void cgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); | |||
| void cgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float, | |||
| void cgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); | |||
| void cgbmv_r(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); | |||
| @@ -1052,24 +1052,24 @@ void xgbmv_s(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, | |||
| void xgbmv_d(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, | |||
| xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *buffer); | |||
| int sgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, | |||
| int sgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); | |||
| int sgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); | |||
| int dgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, | |||
| double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, double *buffer, int); | |||
| int dgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, | |||
| int dgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, | |||
| double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, double *buffer, int); | |||
| int qgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *buffer, int); | |||
| int qgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| int qgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *buffer, int); | |||
| int cgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float *, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); | |||
| int cgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float *, | |||
| int cgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float *, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); | |||
| int cgbmv_thread_r(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float *, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); | |||
+ 4
- 4
common_level3.h
View File
| @@ -47,9 +47,9 @@ __global__ void cuda_dgemm_kernel(int, int, int, double *, double *, double *); | |||
| extern "C" { | |||
| #endif | |||
| int sgemm_beta(BLASLONG, BLASLONG, BLASLONG, float, | |||
| int sgemm_beta(BLASLONG, BLASLONG, BLASLONG, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); | |||
| int dgemm_beta(BLASLONG, BLASLONG, BLASLONG, double, | |||
| int dgemm_beta(BLASLONG, BLASLONG, BLASLONG, double, | |||
| double *, BLASLONG, double *, BLASLONG, double *, BLASLONG); | |||
| int cgemm_beta(BLASLONG, BLASLONG, BLASLONG, float, float, | |||
| float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); | |||
| @@ -57,12 +57,12 @@ int zgemm_beta(BLASLONG, BLASLONG, BLASLONG, double, double, | |||
| double *, BLASLONG, double *, BLASLONG, double *, BLASLONG); | |||
| #ifdef EXPRECISION | |||
| int qgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| int qgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble, | |||
| xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | |||
| int xgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, | |||
| xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | |||
| #else | |||
| int qgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble *, | |||
| int qgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble *, | |||
| xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | |||
| int xgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble *, | |||
| xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); | |||
+ 3
- 3
common_linux.h
View File
| @@ -75,7 +75,7 @@ static inline int my_mbind(void *addr, unsigned long len, int mode, | |||
| // https://lsbbugs.linuxfoundation.org/show_bug.cgi?id=3482 | |||
| return 0; | |||
| #else | |||
| #if defined (LOONGSON3B) | |||
| #if defined (LOONGSON3B) | |||
| #if defined (__64BIT__) | |||
| return syscall(SYS_mbind, addr, len, mode, nodemask, maxnode, flags); | |||
| #else | |||
| @@ -99,9 +99,9 @@ static inline int my_set_mempolicy(int mode, const unsigned long *addr, unsigned | |||
| #endif | |||
| } | |||
| static inline int my_gettid(void) { | |||
| static inline int my_gettid(void) { | |||
| #ifdef SYS_gettid | |||
| return syscall(SYS_gettid); | |||
| return syscall(SYS_gettid); | |||
| #else | |||
| return getpid(); | |||
| #endif | |||
+ 23
- 23
common_mips64.h
View File
| @@ -13,19 +13,19 @@ met: | |||
| notice, this list of conditions and the following disclaimer in | |||
| the documentation and/or other materials provided with the | |||
| distribution. | |||
| 3. Neither the name of the ISCAS nor the names of its contributors may | |||
| be used to endorse or promote products derived from this software | |||
| 3. Neither the name of the ISCAS nor the names of its contributors may | |||
| be used to endorse or promote products derived from this software | |||
| without specific prior written permission. | |||
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" | |||
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||
| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE | |||
| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |||
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | |||
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, | |||
| OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | |||
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" | |||
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||
| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE | |||
| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |||
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | |||
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, | |||
| OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | |||
| USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | |||
| **********************************************************************************/ | |||
| @@ -111,9 +111,9 @@ static inline unsigned int rpcc(void){ | |||
| ".set pop": "=r"(ret):: "memory"); | |||
| #else | |||
| __asm__ __volatile__(".set push \n" | |||
| ".set mips32r2\n" | |||
| "rdhwr %0, $30 \n" | |||
| __asm__ __volatile__(".set push \n" | |||
| ".set mips32r2\n" | |||
| "rdhwr %0, $30 \n" | |||
| ".set pop" : "=r"(ret) : : "memory"); | |||
| #endif | |||
| return ret; | |||
| @@ -191,13 +191,13 @@ static inline int blas_quickdivide(blasint x, blasint y){ | |||
| #define CMPEQ c.eq.s | |||
| #define CMPLE c.le.s | |||
| #define CMPLT c.lt.s | |||
| #define PLU plu.ps | |||
| #define PLL pll.ps | |||
| #define PUU puu.ps | |||
| #define PUL pul.ps | |||
| #define MADPS madd.ps | |||
| #define CVTU cvt.s.pu | |||
| #define CVTL cvt.s.pl | |||
| #define PLU plu.ps | |||
| #define PLL pll.ps | |||
| #define PUU puu.ps | |||
| #define PUL pul.ps | |||
| #define MADPS madd.ps | |||
| #define CVTU cvt.s.pu | |||
| #define CVTL cvt.s.pl | |||
| #define NEG neg.s | |||
| #endif | |||
| @@ -279,9 +279,9 @@ REALNAME: ;\ | |||
| #if defined(LOONGSON3A) || defined(LOONGSON3B) | |||
| #define PREFETCHD_(x) ld $0, x | |||
| #define PREFETCHD(x) PREFETCHD_(x) | |||
| #define PREFETCHD(x) PREFETCHD_(x) | |||
| #else | |||
| #define PREFETCHD(x) | |||
| #define PREFETCHD(x) | |||
| #endif | |||
| #endif | |||
+ 38
- 38
common_param.h
View File
| @@ -87,12 +87,12 @@ BLASLONG (*ismin_k) (BLASLONG, float *, BLASLONG); | |||
| int (*sgemm_itcopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); | |||
| int (*sgemm_oncopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); | |||
| int (*sgemm_otcopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); | |||
| int (*strsm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*strsm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*strsm_kernel_RN)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*strsm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*strsm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); | |||
| int (*strsm_iunncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); | |||
| int (*strsm_iutucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); | |||
| @@ -114,7 +114,7 @@ BLASLONG (*ismin_k) (BLASLONG, float *, BLASLONG); | |||
| int (*strmm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*strmm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*strmm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*strmm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*strmm_iunncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*strmm_iutucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| @@ -131,7 +131,7 @@ BLASLONG (*ismin_k) (BLASLONG, float *, BLASLONG); | |||
| int (*strmm_olnncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*strmm_oltucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*strmm_oltncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*ssymm_iutcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*ssymm_iltcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*ssymm_outcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| @@ -176,12 +176,12 @@ BLASLONG (*idmin_k) (BLASLONG, double *, BLASLONG); | |||
| int (*dgemm_itcopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); | |||
| int (*dgemm_oncopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); | |||
| int (*dgemm_otcopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); | |||
| int (*dtrsm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*dtrsm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*dtrsm_kernel_RN)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*dtrsm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*dtrsm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); | |||
| int (*dtrsm_iunncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); | |||
| int (*dtrsm_iutucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); | |||
| @@ -203,7 +203,7 @@ BLASLONG (*idmin_k) (BLASLONG, double *, BLASLONG); | |||
| int (*dtrmm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*dtrmm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*dtrmm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*dtrmm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*dtrmm_iunncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*dtrmm_iutucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| @@ -220,7 +220,7 @@ BLASLONG (*idmin_k) (BLASLONG, double *, BLASLONG); | |||
| int (*dtrmm_olnncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*dtrmm_oltucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*dtrmm_oltncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*dsymm_iutcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*dsymm_iltcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*dsymm_outcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| @@ -267,12 +267,12 @@ BLASLONG (*iqmin_k) (BLASLONG, xdouble *, BLASLONG); | |||
| int (*qgemm_itcopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); | |||
| int (*qgemm_oncopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); | |||
| int (*qgemm_otcopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); | |||
| int (*qtrsm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*qtrsm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*qtrsm_kernel_RN)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*qtrsm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*qtrsm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); | |||
| int (*qtrsm_iunncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); | |||
| int (*qtrsm_iutucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); | |||
| @@ -294,7 +294,7 @@ BLASLONG (*iqmin_k) (BLASLONG, xdouble *, BLASLONG); | |||
| int (*qtrmm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*qtrmm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*qtrmm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*qtrmm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*qtrmm_iunncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*qtrmm_iutucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| @@ -311,7 +311,7 @@ BLASLONG (*iqmin_k) (BLASLONG, xdouble *, BLASLONG); | |||
| int (*qtrmm_olnncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*qtrmm_oltucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*qtrmm_oltncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*qsymm_iutcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*qsymm_iltcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*qsymm_outcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| @@ -372,7 +372,7 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); | |||
| int (*cgemm_itcopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); | |||
| int (*cgemm_oncopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); | |||
| int (*cgemm_otcopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); | |||
| int (*ctrsm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*ctrsm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*ctrsm_kernel_LR)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| @@ -381,7 +381,7 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); | |||
| int (*ctrsm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*ctrsm_kernel_RR)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*ctrsm_kernel_RC)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*ctrsm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); | |||
| int (*ctrsm_iunncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); | |||
| int (*ctrsm_iutucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); | |||
| @@ -407,7 +407,7 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); | |||
| int (*ctrmm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*ctrmm_kernel_LR)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*ctrmm_kernel_LC)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG); | |||
| int (*ctrmm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*ctrmm_iunncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*ctrmm_iutucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| @@ -424,7 +424,7 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); | |||
| int (*ctrmm_olnncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*ctrmm_oltucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*ctrmm_oltncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*csymm_iutcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*csymm_iltcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*csymm_outcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| @@ -443,7 +443,7 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); | |||
| int (*cgemm3m_itcopyb)(BLASLONG, BLASLONG, float *, BLASLONG, float *); | |||
| int (*cgemm3m_itcopyr)(BLASLONG, BLASLONG, float *, BLASLONG, float *); | |||
| int (*cgemm3m_itcopyi)(BLASLONG, BLASLONG, float *, BLASLONG, float *); | |||
| int (*cgemm3m_oncopyb)(BLASLONG, BLASLONG, float *, BLASLONG, float, float, float *); | |||
| int (*cgemm3m_oncopyr)(BLASLONG, BLASLONG, float *, BLASLONG, float, float, float *); | |||
| int (*cgemm3m_oncopyi)(BLASLONG, BLASLONG, float *, BLASLONG, float, float, float *); | |||
| @@ -457,21 +457,21 @@ BLASLONG (*icamin_k)(BLASLONG, float *, BLASLONG); | |||
| int (*csymm3m_ilcopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*csymm3m_iucopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*csymm3m_ilcopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*csymm3m_oucopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); | |||
| int (*csymm3m_olcopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); | |||
| int (*csymm3m_oucopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); | |||
| int (*csymm3m_olcopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); | |||
| int (*csymm3m_oucopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); | |||
| int (*csymm3m_olcopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); | |||
| int (*chemm3m_iucopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*chemm3m_ilcopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*chemm3m_iucopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*chemm3m_ilcopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*chemm3m_iucopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*chemm3m_ilcopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); | |||
| int (*chemm3m_oucopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); | |||
| int (*chemm3m_olcopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); | |||
| int (*chemm3m_oucopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *); | |||
| @@ -532,7 +532,7 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); | |||
| int (*zgemm_itcopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); | |||
| int (*zgemm_oncopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); | |||
| int (*zgemm_otcopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); | |||
| int (*ztrsm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*ztrsm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*ztrsm_kernel_LR)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| @@ -541,7 +541,7 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); | |||
| int (*ztrsm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*ztrsm_kernel_RR)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*ztrsm_kernel_RC)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*ztrsm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); | |||
| int (*ztrsm_iunncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); | |||
| int (*ztrsm_iutucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); | |||
| @@ -567,7 +567,7 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); | |||
| int (*ztrmm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*ztrmm_kernel_LR)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*ztrmm_kernel_LC)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG); | |||
| int (*ztrmm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*ztrmm_iunncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*ztrmm_iutucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| @@ -584,7 +584,7 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); | |||
| int (*ztrmm_olnncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*ztrmm_oltucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*ztrmm_oltncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*zsymm_iutcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*zsymm_iltcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*zsymm_outcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| @@ -603,7 +603,7 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); | |||
| int (*zgemm3m_itcopyb)(BLASLONG, BLASLONG, double *, BLASLONG, double *); | |||
| int (*zgemm3m_itcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, double *); | |||
| int (*zgemm3m_itcopyi)(BLASLONG, BLASLONG, double *, BLASLONG, double *); | |||
| int (*zgemm3m_oncopyb)(BLASLONG, BLASLONG, double *, BLASLONG, double, double, double *); | |||
| int (*zgemm3m_oncopyr)(BLASLONG, BLASLONG, double *, BLASLONG, double, double, double *); | |||
| int (*zgemm3m_oncopyi)(BLASLONG, BLASLONG, double *, BLASLONG, double, double, double *); | |||
| @@ -617,28 +617,28 @@ BLASLONG (*izamin_k)(BLASLONG, double *, BLASLONG); | |||
| int (*zsymm3m_ilcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*zsymm3m_iucopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*zsymm3m_ilcopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*zsymm3m_oucopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); | |||
| int (*zsymm3m_olcopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); | |||
| int (*zsymm3m_oucopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); | |||
| int (*zsymm3m_olcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); | |||
| int (*zsymm3m_oucopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); | |||
| int (*zsymm3m_olcopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); | |||
| int (*zhemm3m_iucopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*zhemm3m_ilcopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*zhemm3m_iucopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*zhemm3m_ilcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*zhemm3m_iucopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*zhemm3m_ilcopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); | |||
| int (*zhemm3m_oucopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); | |||
| int (*zhemm3m_olcopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); | |||
| int (*zhemm3m_oucopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); | |||
| int (*zhemm3m_olcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); | |||
| int (*zhemm3m_oucopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); | |||
| int (*zhemm3m_olcopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *); | |||
| int (*zneg_tcopy) (BLASLONG, BLASLONG, double *, BLASLONG, double *); | |||
| int (*zlaswp_ncopy) (BLASLONG, BLASLONG, BLASLONG, double *, BLASLONG, blasint *, double *); | |||
| @@ -694,7 +694,7 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); | |||
| int (*xgemm_itcopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); | |||
| int (*xgemm_oncopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); | |||
| int (*xgemm_otcopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); | |||
| int (*xtrsm_kernel_LN)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*xtrsm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*xtrsm_kernel_LR)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| @@ -703,7 +703,7 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); | |||
| int (*xtrsm_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*xtrsm_kernel_RR)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*xtrsm_kernel_RC)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*xtrsm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xtrsm_iunncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xtrsm_iutucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); | |||
| @@ -729,7 +729,7 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); | |||
| int (*xtrmm_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*xtrmm_kernel_LR)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*xtrmm_kernel_LC)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG); | |||
| int (*xtrmm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xtrmm_iunncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xtrmm_iutucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| @@ -746,7 +746,7 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); | |||
| int (*xtrmm_olnncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xtrmm_oltucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xtrmm_oltncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xsymm_iutcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xsymm_iltcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xsymm_outcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| @@ -765,7 +765,7 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); | |||
| int (*xgemm3m_itcopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); | |||
| int (*xgemm3m_itcopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); | |||
| int (*xgemm3m_itcopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); | |||
| int (*xgemm3m_oncopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble, xdouble *); | |||
| int (*xgemm3m_oncopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble, xdouble *); | |||
| int (*xgemm3m_oncopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble, xdouble *); | |||
| @@ -779,21 +779,21 @@ BLASLONG (*ixamin_k)(BLASLONG, xdouble *, BLASLONG); | |||
| int (*xsymm3m_ilcopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xsymm3m_iucopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xsymm3m_ilcopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xsymm3m_oucopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); | |||
| int (*xsymm3m_olcopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); | |||
| int (*xsymm3m_oucopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); | |||
| int (*xsymm3m_olcopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); | |||
| int (*xsymm3m_oucopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); | |||
| int (*xsymm3m_olcopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); | |||
| int (*xhemm3m_iucopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xhemm3m_ilcopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xhemm3m_iucopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xhemm3m_ilcopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xhemm3m_iucopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xhemm3m_ilcopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); | |||
| int (*xhemm3m_oucopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); | |||
| int (*xhemm3m_olcopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); | |||
| int (*xhemm3m_oucopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *); | |||
| @@ -902,7 +902,7 @@ extern gotoblas_t *gotoblas; | |||
| #else | |||
| #define DTB_ENTRIES DTB_DEFAULT_ENTRIES | |||
| #define DTB_ENTRIES DTB_DEFAULT_ENTRIES | |||
| #define GEMM_OFFSET_A GEMM_DEFAULT_OFFSET_A | |||
| #define GEMM_OFFSET_B GEMM_DEFAULT_OFFSET_B | |||
+ 1
- 1
common_power.h
View File
| @@ -114,7 +114,7 @@ static inline unsigned long getstackaddr(void){ | |||
| __asm__ __volatile__ ("mr %0, 1" | |||
| : "=r"(addr) : : "memory"); | |||
| return addr; | |||
| return addr; | |||
| }; | |||
| #if defined(OS_LINUX) || defined(OS_AIX) | |||
+ 12
- 12
common_reference.h
View File
| @@ -13,19 +13,19 @@ met: | |||
| notice, this list of conditions and the following disclaimer in | |||
| the documentation and/or other materials provided with the | |||
| distribution. | |||
| 3. Neither the name of the ISCAS nor the names of its contributors may | |||
| be used to endorse or promote products derived from this software | |||
| 3. Neither the name of the ISCAS nor the names of its contributors may | |||
| be used to endorse or promote products derived from this software | |||
| without specific prior written permission. | |||
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" | |||
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||
| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE | |||
| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |||
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | |||
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, | |||
| OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | |||
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" | |||
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||
| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE | |||
| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |||
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | |||
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, | |||
| OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | |||
| USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | |||
| **********************************************************************************/ | |||
| @@ -65,5 +65,5 @@ void BLASFUNC_REF(drotmg)(double *, double *, double *, double *, double *); | |||
| double BLASFUNC_REF(dsdot)(blasint *, float *, blasint *, float *, blasint*); | |||
| FLOATRET BLASFUNC_REF(samax) (blasint *, float *, blasint *); | |||
| #endif | |||
+ 13
- 13
common_sparc.h
View File
| @@ -130,7 +130,7 @@ static __inline int blas_quickdivide(blasint x, blasint y){ | |||
| #define FSQRT fsqrts | |||
| #define FDIV fdivs | |||
| #endif | |||
| #define HALT prefetch [%g0], 5 | |||
| #define FMADDS(rs1, rs2, rs3, rd) \ | |||
| @@ -170,19 +170,19 @@ static __inline int blas_quickdivide(blasint x, blasint y){ | |||
| .word ((2 << 30) | ((rd) << 25) | ( 0x36 << 19) | ( 0x7e << 5)) | |||
| #ifndef DOUBLE | |||
| #define FCLR(a) FCLRS(a) | |||
| #define FONE(a) FONES(a) | |||
| #define FMADD(a, b, c, d) FMADDS(a, b, c, d) | |||
| #define FMSUB(a, b, c, d) FMSUBS(a, b, c, d) | |||
| #define FNMADD(a, b, c, d) FNMADDS(a, b, c, d) | |||
| #define FNMSUB(a, b, c, d) FNMSUBS(a, b, c, d) | |||
| #define FCLR(a) FCLRS(a) | |||
| #define FONE(a) FONES(a) | |||
| #define FMADD(a, b, c, d) FMADDS(a, b, c, d) | |||
| #define FMSUB(a, b, c, d) FMSUBS(a, b, c, d) | |||
| #define FNMADD(a, b, c, d) FNMADDS(a, b, c, d) | |||
| #define FNMSUB(a, b, c, d) FNMSUBS(a, b, c, d) | |||
| #else | |||
| #define FCLR(a) FCLRD(a) | |||
| #define FONE(a) FONED(a) | |||
| #define FMADD(a, b, c, d) FMADDD(a, b, c, d) | |||
| #define FMSUB(a, b, c, d) FMSUBD(a, b, c, d) | |||
| #define FNMADD(a, b, c, d) FNMADDD(a, b, c, d) | |||
| #define FNMSUB(a, b, c, d) FNMSUBD(a, b, c, d) | |||
| #define FCLR(a) FCLRD(a) | |||
| #define FONE(a) FONED(a) | |||
| #define FMADD(a, b, c, d) FMADDD(a, b, c, d) | |||
| #define FMSUB(a, b, c, d) FMSUBD(a, b, c, d) | |||
| #define FNMADD(a, b, c, d) FNMADDD(a, b, c, d) | |||
| #define FNMSUB(a, b, c, d) FNMSUBD(a, b, c, d) | |||
| #endif | |||
| #ifndef F_INTERFACE | |||
+ 3
- 3
common_thread.h
View File
| @@ -176,7 +176,7 @@ int exec_blas(BLASLONG num_cpu, blas_param_t *param, void *buffer); | |||
| int blas_level1_thread(int mode, BLASLONG m, BLASLONG n, BLASLONG k, void *alpha, | |||
| void *a, BLASLONG lda, | |||
| void *b, BLASLONG ldb, | |||
| void *b, BLASLONG ldb, | |||
| void *c, BLASLONG ldc, int (*function)(), int threads); | |||
| int gemm_thread_m (int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG); | |||
| @@ -187,14 +187,14 @@ int gemm_thread_mn(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*functio | |||
| int gemm_thread_variable(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG, BLASLONG); | |||
| int trsm_thread(int mode, BLASLONG m, BLASLONG n, | |||
| int trsm_thread(int mode, BLASLONG m, BLASLONG n, | |||
| double alpha_r, double alpha_i, | |||
| void *a, BLASLONG lda, | |||
| void *c, BLASLONG ldc, int (*function)(), void *buffer); | |||
| int syrk_thread(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG); | |||
| int beta_thread(int mode, BLASLONG m, BLASLONG n, | |||
| int beta_thread(int mode, BLASLONG m, BLASLONG n, | |||
| double alpha_r, double alpha_i, | |||
| void *c, BLASLONG ldc, int (*fuction)()); | |||
+ 6
- 6
common_x86.h
View File
| @@ -55,7 +55,7 @@ static void __inline blas_lock(volatile BLASULONG *address){ | |||
| do { | |||
| while (*address) {YIELDING;}; | |||
| __asm__ __volatile__( | |||
| "xchgl %0, %1\n" | |||
| : "=r"(ret), "=m"(*address) | |||
| @@ -70,8 +70,8 @@ static __inline unsigned long long rpcc(void){ | |||
| unsigned int a, d; | |||
| __asm__ __volatile__ ("rdtsc" : "=a" (a), "=d" (d)); | |||
| return ((unsigned long long)a + ((unsigned long long)d << 32)); | |||
| return ((unsigned long long)a + ((unsigned long long)d << 32)); | |||
| }; | |||
| static __inline unsigned long getstackaddr(void){ | |||
| @@ -80,7 +80,7 @@ static __inline unsigned long getstackaddr(void){ | |||
| __asm__ __volatile__ ("mov %%esp, %0" | |||
| : "=r"(addr) : : "memory"); | |||
| return addr; | |||
| return addr; | |||
| }; | |||
| @@ -365,9 +365,9 @@ REALNAME: | |||
| #ifndef ALIGN_6 | |||
| #define ALIGN_6 .align 64 | |||
| #endif | |||
| // ffreep %st(0). | |||
| // ffreep %st(0). | |||
| // Because Clang didn't support ffreep, we directly use the opcode. | |||
| // Please check out http://www.sandpile.org/x86/opc_fpu.htm | |||
| // Please check out http://www.sandpile.org/x86/opc_fpu.htm | |||
| #ifndef ffreep | |||
| #define ffreep .byte 0xdf, 0xc0 # | |||
| #endif | |||
+ 6
- 6
common_x86_64.h
View File
| @@ -60,7 +60,7 @@ static void __inline blas_lock(volatile BLASULONG *address){ | |||
| do { | |||
| while (*address) {YIELDING;}; | |||
| __asm__ __volatile__( | |||
| "xchgl %0, %1\n" | |||
| : "=r"(ret), "=m"(*address) | |||
| @@ -74,8 +74,8 @@ static __inline BLASULONG rpcc(void){ | |||
| BLASULONG a, d; | |||
| __asm__ __volatile__ ("rdtsc" : "=a" (a), "=d" (d)); | |||
| return ((BLASULONG)a + ((BLASULONG)d << 32)); | |||
| return ((BLASULONG)a + ((BLASULONG)d << 32)); | |||
| } | |||
| #define RPCC64BIT | |||
| @@ -86,7 +86,7 @@ static __inline BLASULONG getstackaddr(void){ | |||
| __asm__ __volatile__ ("movq %%rsp, %0" | |||
| : "=r"(addr) : : "memory"); | |||
| return addr; | |||
| return addr; | |||
| } | |||
| static __inline void cpuid(int op, int *eax, int *ebx, int *ecx, int *edx){ | |||
| @@ -457,9 +457,9 @@ REALNAME: | |||
| #define ALIGN_6 .align 64 | |||
| #endif | |||
| // ffreep %st(0). | |||
| // ffreep %st(0). | |||
| // Because Clang didn't support ffreep, we directly use the opcode. | |||
| // Please check out http://www.sandpile.org/x86/opc_fpu.htm | |||
| // Please check out http://www.sandpile.org/x86/opc_fpu.htm | |||
| #ifndef ffreep | |||
| #define ffreep .byte 0xdf, 0xc0 # | |||
| #endif | |||
+ 2
- 2
cpuid.S
View File
| @@ -39,10 +39,10 @@ | |||
| #if defined(__APPLE__) && defined(__i386__) | |||
| /* Quick hack for Darwin/x86 */ | |||
| .text | |||
| .globl _cpuid | |||
| _cpuid: | |||
| _cpuid: | |||
| pushl %esi | |||
| pushl %ebx | |||
+ 4
- 4
cpuid_alpha.c
View File
| @@ -50,7 +50,7 @@ int implver(void){ | |||
| #endif | |||
| return arch; | |||
| } | |||
| void get_architecture(void){ | |||
| printf("ALPHA"); | |||
| } | |||
| @@ -67,7 +67,7 @@ void get_cpuconfig(void){ | |||
| printf("#define EV%d\n", implver() + 4); | |||
| switch (implver()){ | |||
| case 0: | |||
| case 0: | |||
| printf("#define L1_DATA_SIZE 16384\n"); | |||
| printf("#define L1_DATA_LINESIZE 32\n"); | |||
| printf("#define L2_SIZE 2097152\n"); | |||
| @@ -76,7 +76,7 @@ void get_cpuconfig(void){ | |||
| printf("#define DTB_SIZE 8192\n"); | |||
| break; | |||
| case 1: | |||
| case 1: | |||
| printf("#define L1_DATA_SIZE 16384\n"); | |||
| printf("#define L1_DATA_LINESIZE 32\n"); | |||
| printf("#define L2_SIZE 2097152\n"); | |||
| @@ -85,7 +85,7 @@ void get_cpuconfig(void){ | |||
| printf("#define DTB_SIZE 8192\n"); | |||
| break; | |||
| case 2: | |||
| case 2: | |||
| printf("#define L1_DATA_SIZE 32768\n"); | |||
| printf("#define L1_DATA_LINESIZE 64\n"); | |||
| printf("#define L2_SIZE 4194304\n"); | |||
+ 4
- 4
cpuid_arm.c
View File
| @@ -67,7 +67,7 @@ int get_feature(char *search) | |||
| t = strtok(p," "); | |||
| while( t = strtok(NULL," ")) | |||
| { | |||
| { | |||
| if (!strcmp(t, search)) { return(1); } | |||
| } | |||
| @@ -102,7 +102,7 @@ int detect(void) | |||
| if(p != NULL) | |||
| { | |||
| if (strstr(p, "ARMv7")) | |||
| if (strstr(p, "ARMv7")) | |||
| { | |||
| if ( get_feature("vfpv4")) | |||
| return CPU_ARMV7; | |||
| @@ -116,7 +116,7 @@ int detect(void) | |||
| } | |||
| if (strstr(p, "ARMv6")) | |||
| if (strstr(p, "ARMv6")) | |||
| { | |||
| if ( get_feature("vfp")) | |||
| return CPU_ARMV6; | |||
| @@ -248,7 +248,7 @@ void get_features(void) | |||
| t = strtok(p," "); | |||
| while( t = strtok(NULL," ")) | |||
| { | |||
| { | |||
| if (!strcmp(t, "vfp")) { printf("HAVE_VFP=1\n"); continue; } | |||
| if (!strcmp(t, "vfpv3")) { printf("HAVE_VFPV3=1\n"); continue; } | |||
| if (!strcmp(t, "vfpv4")) { printf("HAVE_VFPV4=1\n"); continue; } | |||
+ 3
- 3
cpuid_ia64.c
View File
| @@ -45,7 +45,7 @@ | |||
| #include <ia64intrin.h> | |||
| #endif | |||
| static inline unsigned long cpuid(unsigned long regnum){ | |||
| static inline unsigned long cpuid(unsigned long regnum){ | |||
| unsigned long value; | |||
| #ifdef __ECC | |||
| @@ -65,7 +65,7 @@ int get_vendor(void){ | |||
| cpuid0 = cpuid(0); | |||
| cpuid1 = cpuid(1); | |||
| *(unsigned long *)(&vendor[0]) = cpuid0; | |||
| *(unsigned long *)(&vendor[8]) = cpuid1; | |||
| vendor[17] = (char)0; | |||
| @@ -79,7 +79,7 @@ int get_cputype(int gettype){ | |||
| unsigned long cpuid3; | |||
| cpuid3 = cpuid(3); | |||
| switch (gettype) { | |||
| case GET_ARCHREV : | |||
| return BITMASK(cpuid3, 32, 0xff); | |||
+ 11
- 11
cpuid_mips.c
View File
| @@ -13,19 +13,19 @@ met: | |||
| notice, this list of conditions and the following disclaimer in | |||
| the documentation and/or other materials provided with the | |||
| distribution. | |||
| 3. Neither the name of the ISCAS nor the names of its contributors may | |||
| be used to endorse or promote products derived from this software | |||
| 3. Neither the name of the ISCAS nor the names of its contributors may | |||
| be used to endorse or promote products derived from this software | |||
| without specific prior written permission. | |||
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" | |||
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||
| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE | |||
| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |||
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | |||
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, | |||
| OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | |||
| THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" | |||
| AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | |||
| IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | |||
| ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE | |||
| LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | |||
| DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR | |||
| SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER | |||
| CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, | |||
| OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE | |||
| USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. | |||
| **********************************************************************************/ | |||
+ 1
- 1
cpuid_power.c
View File
| @@ -134,7 +134,7 @@ int detect(void){ | |||
| if (hostInfo.cpu_subtype == CPU_SUBTYPE_POWERPC_7450) return CPUTYPE_PPCG4; | |||
| if (hostInfo.cpu_subtype == CPU_SUBTYPE_POWERPC_970) return CPUTYPE_PPC970; | |||
| return CPUTYPE_PPC970; | |||
| #endif | |||
| } | |||
+ 34
- 34
cpuid_x86.c
View File
| @@ -93,7 +93,7 @@ void cpuid(unsigned int op, unsigned int *eax, unsigned int *ebx, unsigned int * | |||
| if ((current < start) || (current > stop)) current = start; | |||
| while ((count > 0) && (idlist[current].id != op)) { | |||
| current ++; | |||
| if (current > stop) current = start; | |||
| count --; | |||
| @@ -134,7 +134,7 @@ int support_avx(){ | |||
| #ifndef NO_AVX | |||
| int eax, ebx, ecx, edx; | |||
| int ret=0; | |||
| cpuid(1, &eax, &ebx, &ecx, &edx); | |||
| if ((ecx & (1 << 28)) != 0 && (ecx & (1 << 27)) != 0 && (ecx & (1 << 26)) != 0){ | |||
| xgetbv(0, &eax, &edx); | |||
| @@ -154,7 +154,7 @@ int get_vendor(void){ | |||
| char vendor[13]; | |||
| cpuid(0, &eax, &ebx, &ecx, &edx); | |||
| *(int *)(&vendor[0]) = ebx; | |||
| *(int *)(&vendor[4]) = edx; | |||
| *(int *)(&vendor[8]) = ecx; | |||
| @@ -175,7 +175,7 @@ int get_vendor(void){ | |||
| return VENDOR_UNKNOWN; | |||
| } | |||
| int get_cputype(int gettype){ | |||
| int eax, ebx, ecx, edx; | |||
| int extend_family, family; | |||
| @@ -184,7 +184,7 @@ int get_cputype(int gettype){ | |||
| int feature = 0; | |||
| cpuid(1, &eax, &ebx, &ecx, &edx); | |||
| switch (gettype) { | |||
| case GET_EXFAMILY : | |||
| return BITMASK(eax, 20, 0xff); | |||
| @@ -254,12 +254,12 @@ int get_cputype(int gettype){ | |||
| } | |||
| return feature; | |||
| } | |||
| int get_cacheinfo(int type, cache_info_t *cacheinfo){ | |||
| int eax, ebx, ecx, edx, cpuid_level; | |||
| int info[15]; | |||
| int i; | |||
| cache_info_t LC1, LD1, L2, L3, | |||
| cache_info_t LC1, LD1, L2, L3, | |||
| ITB, DTB, LITB, LDTB, | |||
| L2ITB, L2DTB, L2LITB, L2LDTB; | |||
| @@ -285,22 +285,22 @@ int get_cacheinfo(int type, cache_info_t *cacheinfo){ | |||
| info[ 0] = BITMASK(eax, 8, 0xff); | |||
| info[ 1] = BITMASK(eax, 16, 0xff); | |||
| info[ 2] = BITMASK(eax, 24, 0xff); | |||
| info[ 3] = BITMASK(ebx, 0, 0xff); | |||
| info[ 4] = BITMASK(ebx, 8, 0xff); | |||
| info[ 5] = BITMASK(ebx, 16, 0xff); | |||
| info[ 6] = BITMASK(ebx, 24, 0xff); | |||
| info[ 7] = BITMASK(ecx, 0, 0xff); | |||
| info[ 8] = BITMASK(ecx, 8, 0xff); | |||
| info[ 9] = BITMASK(ecx, 16, 0xff); | |||
| info[10] = BITMASK(ecx, 24, 0xff); | |||
| info[11] = BITMASK(edx, 0, 0xff); | |||
| info[12] = BITMASK(edx, 8, 0xff); | |||
| info[13] = BITMASK(edx, 16, 0xff); | |||
| info[14] = BITMASK(edx, 24, 0xff); | |||
| for (i = 0; i < 15; i++){ | |||
| switch (info[i]){ | |||
| @@ -866,7 +866,7 @@ int get_cacheinfo(int type, cache_info_t *cacheinfo){ | |||
| LITB.associative = BITMASK(eax, 8, 0xff); | |||
| if (LITB.associative == 0xff) LITB.associative = 0; | |||
| LITB.linesize = BITMASK(eax, 0, 0xff); | |||
| DTB.size = 4; | |||
| DTB.associative = BITMASK(ebx, 24, 0xff); | |||
| if (DTB.associative == 0xff) DTB.associative = 0; | |||
| @@ -898,7 +898,7 @@ int get_cacheinfo(int type, cache_info_t *cacheinfo){ | |||
| L2LITB.associative = BITMASK(eax, 8, 0xff); | |||
| if (L2LITB.associative == 0xff) L2LITB.associative = 0; | |||
| L2LITB.linesize = BITMASK(eax, 0, 0xff); | |||
| L2DTB.size = 4; | |||
| L2DTB.associative = BITMASK(ebx, 24, 0xff); | |||
| if (L2DTB.associative == 0xff) L2DTB.associative = 0; | |||
| @@ -922,7 +922,7 @@ int get_cacheinfo(int type, cache_info_t *cacheinfo){ | |||
| } | |||
| switch (type) { | |||
| case CACHE_INFO_L1_I : | |||
| *cacheinfo = LC1; | |||
| break; | |||
| @@ -984,7 +984,7 @@ int get_cpuname(void){ | |||
| return CPUTYPE_PENTIUM; | |||
| case 0x6: | |||
| switch (exmodel) { | |||
| case 0: | |||
| case 0: | |||
| switch (model) { | |||
| case 1: | |||
| case 3: | |||
| @@ -1024,8 +1024,8 @@ int get_cpuname(void){ | |||
| case 2: | |||
| switch (model) { | |||
| case 5: | |||
| //Intel Core (Clarkdale) / Core (Arrandale) | |||
| // Pentium (Clarkdale) / Pentium Mobile (Arrandale) | |||
| //Intel Core (Clarkdale) / Core (Arrandale) | |||
| // Pentium (Clarkdale) / Pentium Mobile (Arrandale) | |||
| // Xeon (Clarkdale), 32nm | |||
| return CPUTYPE_NEHALEM; | |||
| case 10: | |||
| @@ -1076,7 +1076,7 @@ int get_cpuname(void){ | |||
| else | |||
| return CPUTYPE_NEHALEM; | |||
| } | |||
| break; | |||
| break; | |||
| } | |||
| break; | |||
| case 0x7: | |||
| @@ -1121,7 +1121,7 @@ int get_cpuname(void){ | |||
| if(support_avx()) | |||
| return CPUTYPE_PILEDRIVER; | |||
| else | |||
| return CPUTYPE_BARCELONA; //OS don't support AVX. | |||
| return CPUTYPE_BARCELONA; //OS don't support AVX. | |||
| } | |||
| break; | |||
| case 5: | |||
| @@ -1305,7 +1305,7 @@ static char *lowercpuname[] = { | |||
| static char *corename[] = { | |||
| "UNKOWN", | |||
| "80486", | |||
| "80486", | |||
| "P5", | |||
| "P6", | |||
| "KATMAI", | |||
| @@ -1333,7 +1333,7 @@ static char *corename[] = { | |||
| static char *corename_lower[] = { | |||
| "unknown", | |||
| "80486", | |||
| "80486", | |||
| "p5", | |||
| "p6", | |||
| "katmai", | |||
| @@ -1434,8 +1434,8 @@ int get_coretype(void){ | |||
| case 2: | |||
| switch (model) { | |||
| case 5: | |||
| //Intel Core (Clarkdale) / Core (Arrandale) | |||
| // Pentium (Clarkdale) / Pentium Mobile (Arrandale) | |||
| //Intel Core (Clarkdale) / Core (Arrandale) | |||
| // Pentium (Clarkdale) / Pentium Mobile (Arrandale) | |||
| // Xeon (Clarkdale), 32nm | |||
| return CORE_NEHALEM; | |||
| case 10: | |||
| @@ -1485,7 +1485,7 @@ int get_coretype(void){ | |||
| else | |||
| return CORE_NEHALEM; | |||
| } | |||
| break; | |||
| break; | |||
| } | |||
| break; | |||
| @@ -1499,8 +1499,8 @@ int get_coretype(void){ | |||
| if (family <= 0x5) return CORE_80486; | |||
| if (family <= 0xe) return CORE_ATHLON; | |||
| if (family == 0xf){ | |||
| if ((exfamily == 0) || (exfamily == 2)) return CORE_OPTERON; | |||
| else if (exfamily == 5) return CORE_BOBCAT; | |||
| if ((exfamily == 0) || (exfamily == 2)) return CORE_OPTERON; | |||
| else if (exfamily == 5) return CORE_BOBCAT; | |||
| else if (exfamily == 6) { | |||
| switch (model) { | |||
| case 1: | |||
| @@ -1513,7 +1513,7 @@ int get_coretype(void){ | |||
| if(support_avx()) | |||
| return CORE_PILEDRIVER; | |||
| else | |||
| return CORE_BARCELONA; //OS don't support AVX. | |||
| return CORE_BARCELONA; //OS don't support AVX. | |||
| } | |||
| }else return CORE_BARCELONA; | |||
| } | |||
| @@ -1547,14 +1547,14 @@ void get_cpuconfig(void){ | |||
| printf("#define L1_CODE_ASSOCIATIVE %d\n", info.associative); | |||
| printf("#define L1_CODE_LINESIZE %d\n", info.linesize); | |||
| } | |||
| get_cacheinfo(CACHE_INFO_L1_D, &info); | |||
| if (info.size > 0) { | |||
| printf("#define L1_DATA_SIZE %d\n", info.size * 1024); | |||
| printf("#define L1_DATA_ASSOCIATIVE %d\n", info.associative); | |||
| printf("#define L1_DATA_LINESIZE %d\n", info.linesize); | |||
| } | |||
| get_cacheinfo(CACHE_INFO_L2, &info); | |||
| if (info.size > 0) { | |||
| printf("#define L2_SIZE %d\n", info.size * 1024); | |||
| @@ -1567,21 +1567,21 @@ void get_cpuconfig(void){ | |||
| printf("#define L2_LINESIZE 64\n"); | |||
| } | |||
| get_cacheinfo(CACHE_INFO_L3, &info); | |||
| if (info.size > 0) { | |||
| printf("#define L3_SIZE %d\n", info.size * 1024); | |||
| printf("#define L3_ASSOCIATIVE %d\n", info.associative); | |||
| printf("#define L3_LINESIZE %d\n", info.linesize); | |||
| } | |||
| get_cacheinfo(CACHE_INFO_L1_ITB, &info); | |||
| if (info.size > 0) { | |||
| printf("#define ITB_SIZE %d\n", info.size * 1024); | |||
| printf("#define ITB_ASSOCIATIVE %d\n", info.associative); | |||
| printf("#define ITB_ENTRIES %d\n", info.linesize); | |||
| } | |||
| get_cacheinfo(CACHE_INFO_L1_DTB, &info); | |||
| if (info.size > 0) { | |||
| printf("#define DTB_SIZE %d\n", info.size * 1024); | |||
| @@ -1591,7 +1591,7 @@ void get_cpuconfig(void){ | |||
| //fall back for some virtual machines. | |||
| printf("#define DTB_DEFAULT_ENTRIES 32\n"); | |||
| } | |||
| features = get_cputype(GET_FEATURE); | |||
| if (features & HAVE_CMOV ) printf("#define HAVE_CMOV\n"); | |||
| @@ -1614,7 +1614,7 @@ void get_cpuconfig(void){ | |||
| if (features & HAVE_MISALIGNSSE) printf("#define HAVE_MISALIGNSSE\n"); | |||
| if (features & HAVE_128BITFPU) printf("#define HAVE_128BITFPU\n"); | |||
| if (features & HAVE_FASTMOVU) printf("#define HAVE_FASTMOVU\n"); | |||
| printf("#define NUM_SHAREDCACHE %d\n", get_cputype(GET_NUMSHARE) + 1); | |||
| printf("#define NUM_CORES %d\n", get_cputype(GET_NUMCORES) + 1); | |||
+ 8
- 8
ctest/Makefile
View File
| @@ -1,5 +1,5 @@ | |||
| # | |||
| # The Makefile compiles c wrappers and testers for CBLAS. | |||
| # The Makefile compiles c wrappers and testers for CBLAS. | |||
| # | |||
| TOPDIR = .. | |||
| @@ -27,13 +27,13 @@ ctestl2o = c_cblas2.o c_c2chke.o auxiliary.o c_xerbla.o constant.o | |||
| ctestl3o = c_cblas3.o c_c3chke.o auxiliary.o c_xerbla.o constant.o | |||
| ztestl1o = c_zblas1.o | |||
| ztestl1o = c_zblas1.o | |||
| ztestl2o = c_zblas2.o c_z2chke.o auxiliary.o c_xerbla.o constant.o | |||
| ztestl3o = c_zblas3.o c_z3chke.o auxiliary.o c_xerbla.o constant.o | |||
| all :: all1 all2 all3 | |||
| all :: all1 all2 all3 | |||
| all1: xscblat1 xdcblat1 xccblat1 xzcblat1 | |||
| ifeq ($(USE_OPENMP), 1) | |||
| @@ -75,10 +75,10 @@ else | |||
| endif | |||
| clean :: | |||
| rm -f x* | |||
| rm -f x* | |||
| FLDFLAGS = $(FFLAGS:-fPIC=) $(LDFLAGS) | |||
| CEXTRALIB = | |||
| CEXTRALIB = | |||
| # Single real | |||
| xscblat1: $(stestl1o) c_sblat1.o $(TOPDIR)/$(LIBNAME) | |||
| @@ -94,7 +94,7 @@ xdcblat2: $(dtestl2o) c_dblat2.o $(TOPDIR)/$(LIBNAME) | |||
| $(FC) $(FLDFLAGS) -o xdcblat2 c_dblat2.o $(dtestl2o) $(LIB) $(EXTRALIB) $(CEXTRALIB) | |||
| xdcblat3: $(dtestl3o) c_dblat3.o $(TOPDIR)/$(LIBNAME) | |||
| $(FC) $(FLDFLAGS) -o xdcblat3 c_dblat3.o $(dtestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB) | |||
| # Single complex | |||
| xccblat1: $(ctestl1o) c_cblat1.o $(TOPDIR)/$(LIBNAME) | |||
| $(FC) $(FLDFLAGS) -o xccblat1 c_cblat1.o $(ctestl1o) $(LIB) $(EXTRALIB) $(CEXTRALIB) | |||
| @@ -103,12 +103,12 @@ xccblat2: $(ctestl2o) c_cblat2.o $(TOPDIR)/$(LIBNAME) | |||
| xccblat3: $(ctestl3o) c_cblat3.o $(TOPDIR)/$(LIBNAME) | |||
| $(FC) $(FLDFLAGS) -o xccblat3 c_cblat3.o $(ctestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB) | |||
| # Double complex | |||
| # Double complex | |||
| xzcblat1: $(ztestl1o) c_zblat1.o $(TOPDIR)/$(LIBNAME) | |||
| $(FC) $(FLDFLAGS) -o xzcblat1 c_zblat1.o $(ztestl1o) $(LIB) $(EXTRALIB) $(CEXTRALIB) | |||
| xzcblat2: $(ztestl2o) c_zblat2.o $(TOPDIR)/$(LIBNAME) | |||
| $(FC) $(FLDFLAGS) -o xzcblat2 c_zblat2.o $(ztestl2o) $(LIB) $(EXTRALIB) $(CEXTRALIB) | |||
| xzcblat3: $(ztestl3o) c_zblat3.o $(TOPDIR)/$(LIBNAME) | |||
| $(FC) $(FLDFLAGS) -o xzcblat3 c_zblat3.o $(ztestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB) | |||
| include $(TOPDIR)/Makefile.tail | |||
+ 146
- 146
ctest/c_c2chke.c
View File
| @@ -26,11 +26,11 @@ void chkxer(void) { | |||
| void F77_c2chke(char *rout) { | |||
| char *sf = ( rout ) ; | |||
| float A[2] = {0.0,0.0}, | |||
| X[2] = {0.0,0.0}, | |||
| Y[2] = {0.0,0.0}, | |||
| float A[2] = {0.0,0.0}, | |||
| X[2] = {0.0,0.0}, | |||
| Y[2] = {0.0,0.0}, | |||
| ALPHA[2] = {0.0,0.0}, | |||
| BETA[2] = {0.0,0.0}, | |||
| BETA[2] = {0.0,0.0}, | |||
| RALPHA = 0.0; | |||
| extern int cblas_info, cblas_lerr, cblas_ok; | |||
| extern int RowMajorStrg; | |||
| @@ -48,588 +48,588 @@ 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| cblas_chemv(INVALID, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_chemv(CblasColMajor, INVALID, 0, | |||
| cblas_chemv(CblasColMajor, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_chemv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_chemv(CblasColMajor, CblasUpper, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_chemv(CblasColMajor, CblasUpper, 2, | |||
| cblas_chemv(CblasColMajor, CblasUpper, 2, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_chemv(CblasColMajor, CblasUpper, 0, | |||
| cblas_chemv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 11; RowMajorStrg = FALSE; | |||
| cblas_chemv(CblasColMajor, CblasUpper, 0, | |||
| cblas_chemv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_chemv(CblasRowMajor, INVALID, 0, | |||
| cblas_chemv(CblasRowMajor, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_chemv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_chemv(CblasRowMajor, CblasUpper, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_chemv(CblasRowMajor, CblasUpper, 2, | |||
| cblas_chemv(CblasRowMajor, CblasUpper, 2, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_chemv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_chemv(CblasRowMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 11; RowMajorStrg = TRUE; | |||
| cblas_chemv(CblasRowMajor, CblasUpper, 0, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| cblas_chpmv(INVALID, CblasUpper, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_chpmv(CblasColMajor, INVALID, 0, | |||
| cblas_chpmv(CblasColMajor, INVALID, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_chpmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_chpmv(CblasColMajor, CblasUpper, INVALID, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_chpmv(CblasColMajor, CblasUpper, 0, | |||
| cblas_chpmv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = FALSE; | |||
| cblas_chpmv(CblasColMajor, CblasUpper, 0, | |||
| cblas_chpmv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_chpmv(CblasRowMajor, INVALID, 0, | |||
| cblas_chpmv(CblasRowMajor, INVALID, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_chpmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_chpmv(CblasRowMajor, CblasUpper, INVALID, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_chpmv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_chpmv(CblasRowMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = TRUE; | |||
| cblas_chpmv(CblasRowMajor, CblasUpper, 0, | |||
| 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, | |||
| cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ctrmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ctrmv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| 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, | |||
| cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ctbmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ctbmv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = FALSE; | |||
| cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = TRUE; | |||
| cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| 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, | |||
| cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ctpmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ctpmv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| 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, | |||
| cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ctrsv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ctrsv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| 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, | |||
| cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ctbsv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ctbsv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = FALSE; | |||
| cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = TRUE; | |||
| cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| 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, | |||
| cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ctpsv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ctpsv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_cgeru",10)==0) { | |||
| @@ -818,7 +818,7 @@ void F77_c2chke(char *rout) { | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A ); | |||
| chkxer(); | |||
| } | |||
| } | |||
| if (cblas_ok == TRUE) | |||
| printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); | |||
| else | |||
+ 6
- 6
ctest/c_c3chke.c
View File
| @@ -30,7 +30,7 @@ void F77_c3chke(char * rout) { | |||
| B[4] = {0.0,0.0,0.0,0.0}, | |||
| C[4] = {0.0,0.0,0.0,0.0}, | |||
| ALPHA[2] = {0.0,0.0}, | |||
| BETA[2] = {0.0,0.0}, | |||
| BETA[2] = {0.0,0.0}, | |||
| RALPHA = 0.0, RBETA = 0.0; | |||
| extern int cblas_info, cblas_lerr, cblas_ok; | |||
| extern int RowMajorStrg; | |||
| @@ -49,15 +49,15 @@ void F77_c3chke(char * rout) { | |||
| cblas_rout = "cblas_cgemm" ; | |||
| cblas_info = 1; | |||
| cblas_cgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, | |||
| 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, | |||
| 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, | |||
| cblas_cgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, | |||
| ALPHA, A, 1, B, 1, BETA, C, 1 ); | |||
| chkxer(); | |||
| cblas_info = 1; | |||
| @@ -272,7 +272,7 @@ void F77_c3chke(char * rout) { | |||
| 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" ; | |||
| @@ -1696,7 +1696,7 @@ void F77_c3chke(char * rout) { | |||
| cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, | |||
| ALPHA, A, 1, B, 1, BETA, C, 1 ); | |||
| chkxer(); | |||
| } | |||
| if (cblas_ok == 1 ) | |||
+ 3
- 3
ctest/c_cblas1.c
View File
| @@ -16,21 +16,21 @@ void F77_caxpy(const int *N, const void *alpha, void *X, | |||
| return; | |||
| } | |||
| void F77_ccopy(const int *N, void *X, const int *incX, | |||
| void F77_ccopy(const int *N, void *X, const int *incX, | |||
| void *Y, const int *incY) | |||
| { | |||
| cblas_ccopy(*N, X, *incX, Y, *incY); | |||
| return; | |||
| } | |||
| void F77_cdotc(const int *N, void *X, const int *incX, | |||
| void F77_cdotc(const int *N, void *X, const int *incX, | |||
| void *Y, const int *incY, void *dotc) | |||
| { | |||
| cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); | |||
| return; | |||
| } | |||
| void F77_cdotu(const int *N, void *X, const int *incX, | |||
| void F77_cdotu(const int *N, void *X, const int *incX, | |||
| void *Y, const int *incY,void *dotu) | |||
| { | |||
| cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); | |||
+ 20
- 20
ctest/c_cblas2.c
View File
| @@ -8,9 +8,9 @@ | |||
| #include "common.h" | |||
| #include "cblas_test.h" | |||
| void F77_cgemv(int *order, char *transp, int *m, int *n, | |||
| void F77_cgemv(int *order, char *transp, int *m, int *n, | |||
| const void *alpha, | |||
| CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx, | |||
| CBLAS_TEST_COMPLEX *a, int *lda, const void *x, int *incx, | |||
| const void *beta, void *y, int *incy) { | |||
| CBLAS_TEST_COMPLEX *A; | |||
| @@ -38,9 +38,9 @@ void F77_cgemv(int *order, char *transp, int *m, int *n, | |||
| *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); | |||
| } | |||
| void F77_cgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, | |||
| CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, | |||
| CBLAS_TEST_COMPLEX *x, int *incx, | |||
| void F77_cgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, | |||
| CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, | |||
| CBLAS_TEST_COMPLEX *x, int *incx, | |||
| CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy) { | |||
| CBLAS_TEST_COMPLEX *A; | |||
| @@ -85,8 +85,8 @@ void F77_cgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, | |||
| *incx, beta, y, *incy ); | |||
| } | |||
| void F77_cgeru(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, | |||
| CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, | |||
| void F77_cgeru(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, | |||
| CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, | |||
| CBLAS_TEST_COMPLEX *a, int *lda){ | |||
| CBLAS_TEST_COMPLEX *A; | |||
| @@ -114,8 +114,8 @@ void F77_cgeru(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, | |||
| cblas_cgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); | |||
| } | |||
| void F77_cgerc(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, | |||
| CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, | |||
| void F77_cgerc(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, | |||
| CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy, | |||
| CBLAS_TEST_COMPLEX *a, int *lda) { | |||
| CBLAS_TEST_COMPLEX *A; | |||
| int i,j,LDA; | |||
| @@ -165,7 +165,7 @@ void F77_chemv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, | |||
| free(A); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_chemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, | |||
| cblas_chemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, | |||
| beta, y, *incy ); | |||
| else | |||
| cblas_chemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx, | |||
| @@ -173,7 +173,7 @@ void F77_chemv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, | |||
| } | |||
| void F77_chbmv(int *order, char *uplow, int *n, int *k, | |||
| CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, | |||
| CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, | |||
| CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *beta, | |||
| CBLAS_TEST_COMPLEX *y, int *incy){ | |||
| @@ -186,7 +186,7 @@ int i,irow,j,jcol,LDA; | |||
| if (*order == TEST_ROW_MJR) { | |||
| if (uplo != CblasUpper && uplo != CblasLower ) | |||
| cblas_chbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, | |||
| cblas_chbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, | |||
| *incx, beta, y, *incy ); | |||
| else { | |||
| LDA = *k+2; | |||
| @@ -237,7 +237,7 @@ int i,irow,j,jcol,LDA; | |||
| } | |||
| void F77_chpmv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, | |||
| CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, int *incx, | |||
| CBLAS_TEST_COMPLEX *ap, CBLAS_TEST_COMPLEX *x, int *incx, | |||
| CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy){ | |||
| CBLAS_TEST_COMPLEX *A, *AP; | |||
| @@ -247,7 +247,7 @@ void F77_chpmv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, | |||
| get_uplo_type(uplow,&uplo); | |||
| if (*order == TEST_ROW_MJR) { | |||
| if (uplo != CblasUpper && uplo != CblasLower ) | |||
| cblas_chpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, | |||
| cblas_chpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, | |||
| beta, y, *incy); | |||
| else { | |||
| LDA = *n; | |||
| @@ -344,7 +344,7 @@ void F77_ctbmv(int *order, char *uplow, char *transp, char *diagn, | |||
| } | |||
| } | |||
| } | |||
| cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, | |||
| cblas_ctbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, | |||
| *incx); | |||
| free(A); | |||
| } | |||
| @@ -371,7 +371,7 @@ void F77_ctbsv(int *order, char *uplow, char *transp, char *diagn, | |||
| if (*order == TEST_ROW_MJR) { | |||
| if (uplo != CblasUpper && uplo != CblasLower ) | |||
| cblas_ctbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, | |||
| cblas_ctbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, | |||
| *incx); | |||
| else { | |||
| LDA = *k+2; | |||
| @@ -408,7 +408,7 @@ void F77_ctbsv(int *order, char *uplow, char *transp, char *diagn, | |||
| } | |||
| } | |||
| } | |||
| cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, | |||
| cblas_ctbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, | |||
| x, *incx); | |||
| free(A); | |||
| } | |||
| @@ -674,7 +674,7 @@ void F77_chpr2(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, | |||
| if (*order == TEST_ROW_MJR) { | |||
| if (uplo != CblasUpper && uplo != CblasLower ) | |||
| cblas_chpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, | |||
| cblas_chpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, | |||
| *incy, ap ); | |||
| else { | |||
| LDA = *n; | |||
| @@ -752,7 +752,7 @@ void F77_cher(int *order, char *uplow, int *n, float *alpha, | |||
| LDA = *n+1; | |||
| A=(CBLAS_TEST_COMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_COMPLEX )); | |||
| for( i=0; i<*n; i++ ) | |||
| for( i=0; i<*n; i++ ) | |||
| for( j=0; j<*n; j++ ) { | |||
| A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; | |||
| A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; | |||
| @@ -786,7 +786,7 @@ void F77_cher2(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha, | |||
| LDA = *n+1; | |||
| A= ( CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); | |||
| for( i=0; i<*n; i++ ) | |||
| for( i=0; i<*n; i++ ) | |||
| for( j=0; j<*n; j++ ) { | |||
| A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; | |||
| A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; | |||
+ 30
- 30
ctest/c_cblas3.c
View File
| @@ -12,9 +12,9 @@ | |||
| #define TEST_ROW_MJR 1 | |||
| #define UNDEFINED -1 | |||
| void F77_cgemm(int *order, char *transpa, char *transpb, int *m, int *n, | |||
| void F77_cgemm(int *order, char *transpa, char *transpb, int *m, int *n, | |||
| int *k, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, | |||
| CBLAS_TEST_COMPLEX *b, int *ldb, CBLAS_TEST_COMPLEX *beta, | |||
| CBLAS_TEST_COMPLEX *b, int *ldb, CBLAS_TEST_COMPLEX *beta, | |||
| CBLAS_TEST_COMPLEX *c, int *ldc ) { | |||
| CBLAS_TEST_COMPLEX *A, *B, *C; | |||
| @@ -134,7 +134,7 @@ void F77_chemm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| 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, | |||
| 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++ ) { | |||
| @@ -146,10 +146,10 @@ void F77_chemm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_chemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, | |||
| 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, | |||
| cblas_chemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, | |||
| beta, c, *ldc ); | |||
| } | |||
| void F77_csymm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| @@ -190,7 +190,7 @@ void F77_csymm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| 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, | |||
| 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++ ) | |||
| @@ -200,15 +200,15 @@ void F77_csymm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_csymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, | |||
| 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, | |||
| cblas_csymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, | |||
| beta, c, *ldc ); | |||
| } | |||
| void F77_cherk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| float *alpha, CBLAS_TEST_COMPLEX *a, int *lda, | |||
| float *alpha, CBLAS_TEST_COMPLEX *a, int *lda, | |||
| float *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) { | |||
| int i,j,LDA,LDC; | |||
| @@ -245,7 +245,7 @@ void F77_cherk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| 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, | |||
| 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++ ) { | |||
| @@ -256,15 +256,15 @@ void F77_cherk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_cherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| 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, | |||
| cblas_cherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| c, *ldc ); | |||
| } | |||
| void F77_csyrk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, | |||
| CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, int *lda, | |||
| CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) { | |||
| int i,j,LDA,LDC; | |||
| @@ -301,7 +301,7 @@ void F77_csyrk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| 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, | |||
| 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++ ) { | |||
| @@ -312,10 +312,10 @@ void F77_csyrk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_csyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, | |||
| 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, | |||
| cblas_csyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, | |||
| c, *ldc ); | |||
| } | |||
| void F77_cher2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| @@ -364,7 +364,7 @@ void F77_cher2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| 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, | |||
| 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++ ) { | |||
| @@ -376,10 +376,10 @@ void F77_cher2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_cher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, | |||
| 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, | |||
| cblas_cher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, | |||
| b, *ldb, *beta, c, *ldc ); | |||
| } | |||
| void F77_csyr2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| @@ -428,7 +428,7 @@ void F77_csyr2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| 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, | |||
| 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++ ) { | |||
| @@ -440,14 +440,14 @@ void F77_csyr2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_csyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, | |||
| 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, | |||
| cblas_csyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, | |||
| b, *ldb, beta, c, *ldc ); | |||
| } | |||
| void F77_ctrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, | |||
| int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, | |||
| int *lda, CBLAS_TEST_COMPLEX *b, int *ldb) { | |||
| int i,j,LDA,LDB; | |||
| CBLAS_TEST_COMPLEX *A, *B; | |||
| @@ -487,7 +487,7 @@ void F77_ctrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| 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, | |||
| 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++ ) { | |||
| @@ -498,15 +498,15 @@ void F77_ctrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| free(B); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_ctrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, | |||
| 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, | |||
| cblas_ctrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, | |||
| a, *lda, b, *ldb); | |||
| } | |||
| void F77_ctrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, | |||
| int *m, int *n, CBLAS_TEST_COMPLEX *alpha, CBLAS_TEST_COMPLEX *a, | |||
| int *lda, CBLAS_TEST_COMPLEX *b, int *ldb) { | |||
| int i,j,LDA,LDB; | |||
| CBLAS_TEST_COMPLEX *A, *B; | |||
| @@ -546,7 +546,7 @@ void F77_ctrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| 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, | |||
| 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++ ) { | |||
| @@ -557,9 +557,9 @@ void F77_ctrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| free(B); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_ctrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, | |||
| 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, | |||
| cblas_ctrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, | |||
| a, *lda, b, *ldb); | |||
| } | |||
+ 7
- 7
ctest/c_cblat2.f
View File
| @@ -348,13 +348,13 @@ | |||
| 160 IF (CORDER) THEN | |||
| CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, | |||
| $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, | |||
| $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, | |||
| $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, | |||
| $ 0 ) | |||
| END IF | |||
| IF (RORDER) THEN | |||
| CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, | |||
| $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, | |||
| $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, | |||
| $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, | |||
| $ 1 ) | |||
| END IF | |||
| GO TO 200 | |||
| @@ -581,7 +581,7 @@ | |||
| CTRANS = ' CblasNoTrans' | |||
| ELSE IF (TRANS.EQ.'T')THEN | |||
| CTRANS = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTRANS = 'CblasConjTrans' | |||
| END IF | |||
| TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' | |||
| @@ -684,7 +684,7 @@ | |||
| * | |||
| * See what data changed inside subroutines. | |||
| * | |||
| * IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN | |||
| * IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN | |||
| ISAME( 1 ) = TRANS.EQ.TRANSS | |||
| ISAME( 2 ) = MS.EQ.M | |||
| ISAME( 3 ) = NS.EQ.N | |||
| @@ -925,7 +925,7 @@ | |||
| UPLO = ICH( IC: IC ) | |||
| IF (UPLO.EQ.'U')THEN | |||
| CUPLO = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CUPLO = ' CblasLower' | |||
| END IF | |||
| * | |||
| @@ -1284,7 +1284,7 @@ | |||
| UPLO = ICHU( ICU: ICU ) | |||
| IF (UPLO.EQ.'U')THEN | |||
| CUPLO = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CUPLO = ' CblasLower' | |||
| END IF | |||
| * | |||
| @@ -1294,7 +1294,7 @@ | |||
| CTRANS = ' CblasNoTrans' | |||
| ELSE IF (TRANS.EQ.'T')THEN | |||
| CTRANS = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTRANS = 'CblasConjTrans' | |||
| END IF | |||
| * | |||
+ 39
- 39
ctest/c_cblat3.f
View File
| @@ -424,7 +424,7 @@ | |||
| END | |||
| SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, | |||
| $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, | |||
| $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, | |||
| $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, | |||
| $ IORDER ) | |||
| * | |||
| * Tests CGEMM. | |||
| @@ -600,7 +600,7 @@ | |||
| IF( REWI ) | |||
| $ REWIND NTRA | |||
| CALL CCGEMM( IORDER, TRANSA, TRANSB, M, N, | |||
| $ K, ALPHA, AA, LDA, BB, LDB, | |||
| $ K, ALPHA, AA, LDA, BB, LDB, | |||
| $ BETA, CC, LDC ) | |||
| * | |||
| * Check if error-exit was taken incorrectly. | |||
| @@ -688,7 +688,7 @@ | |||
| * | |||
| 120 CONTINUE | |||
| WRITE( NOUT, FMT = 9996 )SNAME | |||
| CALL CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, | |||
| CALL CPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, | |||
| $ M, N, K, ALPHA, LDA, LDB, BETA, LDC) | |||
| * | |||
| 130 CONTINUE | |||
| @@ -724,24 +724,24 @@ | |||
| CHARACTER*1 TRANSA, TRANSB | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CTA,CTB | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CTA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CTA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTA = 'CblasConjTrans' | |||
| END IF | |||
| IF (TRANSB.EQ.'N')THEN | |||
| CTB = ' CblasNoTrans' | |||
| ELSE IF (TRANSB.EQ.'T')THEN | |||
| CTB = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTB = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB | |||
| @@ -754,7 +754,7 @@ | |||
| * | |||
| SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, | |||
| $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, | |||
| $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, | |||
| $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, | |||
| $ IORDER ) | |||
| * | |||
| * Tests CHEMM and CSYMM. | |||
| @@ -910,9 +910,9 @@ | |||
| * Call the subroutine. | |||
| * | |||
| IF( TRACE ) | |||
| $ CALL CPRCN2(NTRA, NC, SNAME, IORDER, | |||
| $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, | |||
| $ BETA, LDC) | |||
| $ CALL CPRCN2(NTRA, NC, SNAME, IORDER, | |||
| $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, | |||
| $ BETA, LDC) | |||
| IF( REWI ) | |||
| $ REWIND NTRA | |||
| IF( CONJ )THEN | |||
| @@ -1015,7 +1015,7 @@ | |||
| 110 CONTINUE | |||
| WRITE( NOUT, FMT = 9996 )SNAME | |||
| CALL CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, | |||
| $ LDB, BETA, LDC) | |||
| $ LDB, BETA, LDC) | |||
| * | |||
| 120 CONTINUE | |||
| RETURN | |||
| @@ -1050,20 +1050,20 @@ | |||
| CHARACTER*1 SIDE, UPLO | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CS,CU | |||
| IF (SIDE.EQ.'L')THEN | |||
| CS = ' CblasLeft' | |||
| ELSE | |||
| ELSE | |||
| CS = ' CblasRight' | |||
| END IF | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU | |||
| @@ -1401,22 +1401,22 @@ | |||
| CHARACTER*1 SIDE, UPLO, TRANSA, DIAG | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CS, CU, CA, CD | |||
| IF (SIDE.EQ.'L')THEN | |||
| CS = ' CblasLeft' | |||
| ELSE | |||
| ELSE | |||
| CS = ' CblasRight' | |||
| END IF | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (DIAG.EQ.'N')THEN | |||
| @@ -1426,7 +1426,7 @@ | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU | |||
| @@ -1787,22 +1787,22 @@ | |||
| CHARACTER*1 UPLO, TRANSA | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CU, CA | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA | |||
| @@ -1821,29 +1821,29 @@ | |||
| CHARACTER*1 UPLO, TRANSA | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CU, CA | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA | |||
| WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC | |||
| 9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) | |||
| 9994 FORMAT( 10X, 2( I3, ',' ), | |||
| 9994 FORMAT( 10X, 2( I3, ',' ), | |||
| $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' ) | |||
| END | |||
| * | |||
| @@ -2040,7 +2040,7 @@ | |||
| IF( REWI ) | |||
| $ REWIND NTRA | |||
| CALL CCSYR2K( IORDER, UPLO, TRANS, N, K, | |||
| $ ALPHA, AA, LDA, BB, LDB, BETA, | |||
| $ ALPHA, AA, LDA, BB, LDB, BETA, | |||
| $ CC, LDC ) | |||
| END IF | |||
| * | |||
| @@ -2240,22 +2240,22 @@ | |||
| CHARACTER*1 UPLO, TRANSA | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CU, CA | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA | |||
| @@ -2275,22 +2275,22 @@ | |||
| CHARACTER*1 UPLO, TRANSA | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CU, CA | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA | |||
+ 145
- 145
ctest/c_d2chke.c
View File
| @@ -26,9 +26,9 @@ void chkxer(void) { | |||
| void F77_d2chke(char *rout) { | |||
| char *sf = ( rout ) ; | |||
| double A[2] = {0.0,0.0}, | |||
| X[2] = {0.0,0.0}, | |||
| Y[2] = {0.0,0.0}, | |||
| double A[2] = {0.0,0.0}, | |||
| X[2] = {0.0,0.0}, | |||
| Y[2] = {0.0,0.0}, | |||
| ALPHA=0.0, BETA=0.0; | |||
| extern int cblas_info, cblas_lerr, cblas_ok; | |||
| extern int RowMajorStrg; | |||
| @@ -46,588 +46,588 @@ 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| cblas_dsymv(INVALID, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_dsymv(CblasColMajor, INVALID, 0, | |||
| cblas_dsymv(CblasColMajor, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_dsymv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_dsymv(CblasColMajor, CblasUpper, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_dsymv(CblasColMajor, CblasUpper, 2, | |||
| cblas_dsymv(CblasColMajor, CblasUpper, 2, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_dsymv(CblasColMajor, CblasUpper, 0, | |||
| cblas_dsymv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 11; RowMajorStrg = FALSE; | |||
| cblas_dsymv(CblasColMajor, CblasUpper, 0, | |||
| cblas_dsymv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_dsymv(CblasRowMajor, INVALID, 0, | |||
| cblas_dsymv(CblasRowMajor, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_dsymv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_dsymv(CblasRowMajor, CblasUpper, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_dsymv(CblasRowMajor, CblasUpper, 2, | |||
| cblas_dsymv(CblasRowMajor, CblasUpper, 2, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_dsymv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_dsymv(CblasRowMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 11; RowMajorStrg = TRUE; | |||
| cblas_dsymv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_dsymv(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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| 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, | |||
| cblas_dspmv(INVALID, CblasUpper, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_dspmv(CblasColMajor, INVALID, 0, | |||
| cblas_dspmv(CblasColMajor, INVALID, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_dspmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_dspmv(CblasColMajor, CblasUpper, INVALID, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_dspmv(CblasColMajor, CblasUpper, 0, | |||
| cblas_dspmv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = FALSE; | |||
| cblas_dspmv(CblasColMajor, CblasUpper, 0, | |||
| cblas_dspmv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_dspmv(CblasRowMajor, INVALID, 0, | |||
| cblas_dspmv(CblasRowMajor, INVALID, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_dspmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_dspmv(CblasRowMajor, CblasUpper, INVALID, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_dspmv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_dspmv(CblasRowMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = TRUE; | |||
| cblas_dspmv(CblasRowMajor, CblasUpper, 0, | |||
| 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, | |||
| cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_dtrmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_dtrmv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| 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, | |||
| cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_dtbmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_dtbmv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = FALSE; | |||
| cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = TRUE; | |||
| cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| 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, | |||
| cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_dtpmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_dtpmv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| 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, | |||
| cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_dtrsv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_dtrsv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| 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, | |||
| cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_dtbsv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_dtbsv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = FALSE; | |||
| cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = TRUE; | |||
| cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| 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, | |||
| cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_dtpsv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_dtpsv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_dger",10)==0) { | |||
| @@ -781,7 +781,7 @@ void F77_d2chke(char *rout) { | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A ); | |||
| chkxer(); | |||
| } | |||
| } | |||
| if (cblas_ok == TRUE) | |||
| printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); | |||
| else | |||
+ 7
- 7
ctest/c_d3chke.c
View File
| @@ -26,9 +26,9 @@ void chkxer(void) { | |||
| void F77_d3chke(char *rout) { | |||
| char *sf = ( rout ) ; | |||
| double A[2] = {0.0,0.0}, | |||
| B[2] = {0.0,0.0}, | |||
| C[2] = {0.0,0.0}, | |||
| double A[2] = {0.0,0.0}, | |||
| B[2] = {0.0,0.0}, | |||
| C[2] = {0.0,0.0}, | |||
| ALPHA=0.0, BETA=0.0; | |||
| extern int cblas_info, cblas_lerr, cblas_ok; | |||
| extern int RowMajorStrg; | |||
| @@ -39,7 +39,7 @@ void F77_d3chke(char *rout) { | |||
| cblas_xerbla(cblas_info,cblas_rout,""); | |||
| F77_xerbla(cblas_rout,&cblas_info); | |||
| } | |||
| cblas_ok = TRUE ; | |||
| cblas_lerr = PASSED ; | |||
| @@ -47,15 +47,15 @@ void F77_d3chke(char *rout) { | |||
| cblas_rout = "cblas_dgemm" ; | |||
| cblas_info = 1; | |||
| cblas_dgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, | |||
| 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, | |||
| 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, | |||
| cblas_dgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, | |||
| ALPHA, A, 1, B, 1, BETA, C, 1 ); | |||
| chkxer(); | |||
| cblas_info = 1; | |||
+ 1
- 1
ctest/c_dblas1.c
View File
| @@ -21,7 +21,7 @@ void F77_daxpy(const int *N, const double *alpha, const double *X, | |||
| return; | |||
| } | |||
| void F77_dcopy(const int *N, double *X, const int *incX, | |||
| void F77_dcopy(const int *N, double *X, const int *incX, | |||
| double *Y, const int *incY) | |||
| { | |||
| cblas_dcopy(*N, X, *incX, Y, *incY); | |||
+ 29
- 29
ctest/c_dblas2.c
View File
| @@ -8,8 +8,8 @@ | |||
| #include "common.h" | |||
| #include "cblas_test.h" | |||
| void F77_dgemv(int *order, char *transp, int *m, int *n, double *alpha, | |||
| double *a, int *lda, double *x, int *incx, double *beta, | |||
| void F77_dgemv(int *order, char *transp, int *m, int *n, double *alpha, | |||
| double *a, int *lda, double *x, int *incx, double *beta, | |||
| double *y, int *incy ) { | |||
| double *A; | |||
| @@ -23,7 +23,7 @@ void F77_dgemv(int *order, char *transp, int *m, int *n, double *alpha, | |||
| for( i=0; i<*m; i++ ) | |||
| for( j=0; j<*n; j++ ) | |||
| A[ LDA*i+j ]=a[ (*lda)*j+i ]; | |||
| cblas_dgemv( CblasRowMajor, trans, | |||
| cblas_dgemv( CblasRowMajor, trans, | |||
| *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy ); | |||
| free(A); | |||
| } | |||
| @@ -68,9 +68,9 @@ void F77_dtrmv(int *order, char *uplow, char *transp, char *diagn, | |||
| enum CBLAS_UPLO uplo; | |||
| enum CBLAS_DIAG diag; | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| if (*order == TEST_ROW_MJR) { | |||
| LDA = *n+1; | |||
| @@ -88,7 +88,7 @@ void F77_dtrmv(int *order, char *uplow, char *transp, char *diagn, | |||
| } | |||
| } | |||
| void F77_dtrsv(int *order, char *uplow, char *transp, char *diagn, | |||
| void F77_dtrsv(int *order, char *uplow, char *transp, char *diagn, | |||
| int *n, double *a, int *lda, double *x, int *incx ) { | |||
| double *A; | |||
| int i,j,LDA; | |||
| @@ -112,7 +112,7 @@ void F77_dtrsv(int *order, char *uplow, char *transp, char *diagn, | |||
| else | |||
| cblas_dtrsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); | |||
| } | |||
| void F77_dsymv(int *order, char *uplow, int *n, double *alpha, double *a, | |||
| void F77_dsymv(int *order, char *uplow, int *n, double *alpha, double *a, | |||
| int *lda, double *x, int *incx, double *beta, double *y, | |||
| int *incy) { | |||
| double *A; | |||
| @@ -136,7 +136,7 @@ void F77_dsymv(int *order, char *uplow, int *n, double *alpha, double *a, | |||
| *beta, y, *incy ); | |||
| } | |||
| void F77_dsyr(int *order, char *uplow, int *n, double *alpha, double *x, | |||
| void F77_dsyr(int *order, char *uplow, int *n, double *alpha, double *x, | |||
| int *incx, double *a, int *lda) { | |||
| double *A; | |||
| int i,j,LDA; | |||
| @@ -160,7 +160,7 @@ void F77_dsyr(int *order, char *uplow, int *n, double *alpha, double *x, | |||
| cblas_dsyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda); | |||
| } | |||
| void F77_dsyr2(int *order, char *uplow, int *n, double *alpha, double *x, | |||
| void F77_dsyr2(int *order, char *uplow, int *n, double *alpha, double *x, | |||
| int *incx, double *y, int *incy, double *a, int *lda) { | |||
| double *A; | |||
| int i,j,LDA; | |||
| @@ -185,7 +185,7 @@ void F77_dsyr2(int *order, char *uplow, int *n, double *alpha, double *x, | |||
| } | |||
| void F77_dgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, | |||
| double *alpha, double *a, int *lda, double *x, int *incx, | |||
| double *alpha, double *a, int *lda, double *x, int *incx, | |||
| double *beta, double *y, int *incy ) { | |||
| double *A; | |||
| @@ -213,7 +213,7 @@ void F77_dgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, | |||
| 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, | |||
| cblas_dgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha, | |||
| A, LDA, x, *incx, *beta, y, *incy ); | |||
| free(A); | |||
| } | |||
| @@ -230,9 +230,9 @@ void F77_dtbmv(int *order, char *uplow, char *transp, char *diagn, | |||
| enum CBLAS_UPLO uplo; | |||
| enum CBLAS_DIAG diag; | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| if (*order == TEST_ROW_MJR) { | |||
| LDA = *k+1; | |||
| @@ -276,9 +276,9 @@ void F77_dtbsv(int *order, char *uplow, char *transp, char *diagn, | |||
| enum CBLAS_UPLO uplo; | |||
| enum CBLAS_DIAG diag; | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| if (*order == TEST_ROW_MJR) { | |||
| LDA = *k+1; | |||
| @@ -315,7 +315,7 @@ void F77_dtbsv(int *order, char *uplow, char *transp, char *diagn, | |||
| } | |||
| void F77_dsbmv(int *order, char *uplow, int *n, int *k, double *alpha, | |||
| double *a, int *lda, double *x, int *incx, double *beta, | |||
| double *a, int *lda, double *x, int *incx, double *beta, | |||
| double *y, int *incy) { | |||
| double *A; | |||
| int i,j,irow,jcol,LDA; | |||
| @@ -387,13 +387,13 @@ void F77_dspmv(int *order, char *uplow, int *n, double *alpha, double *ap, | |||
| for( j=0; j<i+1; j++, k++ ) | |||
| AP[ k ]=A[ LDA*i+j ]; | |||
| } | |||
| cblas_dspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y, | |||
| cblas_dspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y, | |||
| *incy ); | |||
| free(A); | |||
| free(AP); | |||
| } | |||
| else | |||
| cblas_dspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y, | |||
| cblas_dspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y, | |||
| *incy ); | |||
| } | |||
| @@ -405,9 +405,9 @@ void F77_dtpmv(int *order, char *uplow, char *transp, char *diagn, | |||
| enum CBLAS_UPLO uplo; | |||
| enum CBLAS_DIAG diag; | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| if (*order == TEST_ROW_MJR) { | |||
| LDA = *n; | |||
| @@ -445,9 +445,9 @@ void F77_dtpsv(int *order, char *uplow, char *transp, char *diagn, | |||
| enum CBLAS_UPLO uplo; | |||
| enum CBLAS_DIAG diag; | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| if (*order == TEST_ROW_MJR) { | |||
| LDA = *n; | |||
| @@ -478,7 +478,7 @@ void F77_dtpsv(int *order, char *uplow, char *transp, char *diagn, | |||
| cblas_dtpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); | |||
| } | |||
| void F77_dspr(int *order, char *uplow, int *n, double *alpha, double *x, | |||
| void F77_dspr(int *order, char *uplow, int *n, double *alpha, double *x, | |||
| int *incx, double *ap ){ | |||
| double *A, *AP; | |||
| int i,j,k,LDA; | |||
| @@ -530,7 +530,7 @@ void F77_dspr(int *order, char *uplow, int *n, double *alpha, double *x, | |||
| cblas_dspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap ); | |||
| } | |||
| void F77_dspr2(int *order, char *uplow, int *n, double *alpha, double *x, | |||
| void F77_dspr2(int *order, char *uplow, int *n, double *alpha, double *x, | |||
| int *incx, double *y, int *incy, double *ap ){ | |||
| double *A, *AP; | |||
| int i,j,k,LDA; | |||
+ 18
- 18
ctest/c_dblas3.c
View File
| @@ -12,7 +12,7 @@ | |||
| #define TEST_ROW_MJR 1 | |||
| #define UNDEFINED -1 | |||
| void F77_dgemm(int *order, char *transpa, char *transpb, int *m, int *n, | |||
| void F77_dgemm(int *order, char *transpa, char *transpb, int *m, int *n, | |||
| int *k, double *alpha, double *a, int *lda, double *b, int *ldb, | |||
| double *beta, double *c, int *ldc ) { | |||
| @@ -111,7 +111,7 @@ void F77_dsymm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*m; i++ ) | |||
| C[i*LDC+j]=c[j*(*ldc)+i]; | |||
| cblas_dsymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB, | |||
| cblas_dsymm( 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++ ) | |||
| @@ -121,15 +121,15 @@ void F77_dsymm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_dsymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb, | |||
| cblas_dsymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb, | |||
| *beta, c, *ldc ); | |||
| else | |||
| cblas_dsymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb, | |||
| cblas_dsymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb, | |||
| *beta, c, *ldc ); | |||
| } | |||
| void F77_dsyrk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| double *alpha, double *a, int *lda, | |||
| double *alpha, double *a, int *lda, | |||
| double *beta, double *c, int *ldc ) { | |||
| int i,j,LDA,LDC; | |||
| @@ -160,7 +160,7 @@ void F77_dsyrk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| for( i=0; i<*n; i++ ) | |||
| for( j=0; j<*n; j++ ) | |||
| C[i*LDC+j]=c[j*(*ldc)+i]; | |||
| cblas_dsyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, | |||
| cblas_dsyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, | |||
| C, LDC ); | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*n; i++ ) | |||
| @@ -169,10 +169,10 @@ void F77_dsyrk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_dsyrk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| cblas_dsyrk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| c, *ldc ); | |||
| else | |||
| cblas_dsyrk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| cblas_dsyrk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| c, *ldc ); | |||
| } | |||
| @@ -215,7 +215,7 @@ void F77_dsyr2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| for( i=0; i<*n; i++ ) | |||
| for( j=0; j<*n; j++ ) | |||
| C[i*LDC+j]=c[j*(*ldc)+i]; | |||
| cblas_dsyr2k(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, | |||
| cblas_dsyr2k(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++ ) | |||
| @@ -225,14 +225,14 @@ void F77_dsyr2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_dsyr2k(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, | |||
| cblas_dsyr2k(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, | |||
| b, *ldb, *beta, c, *ldc ); | |||
| else | |||
| cblas_dsyr2k(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, | |||
| cblas_dsyr2k(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, | |||
| b, *ldb, *beta, c, *ldc ); | |||
| } | |||
| void F77_dtrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| int *m, int *n, double *alpha, double *a, int *lda, double *b, | |||
| int *m, int *n, double *alpha, double *a, int *lda, double *b, | |||
| int *ldb) { | |||
| int i,j,LDA,LDB; | |||
| double *A, *B; | |||
| @@ -266,7 +266,7 @@ void F77_dtrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| for( i=0; i<*m; i++ ) | |||
| for( j=0; j<*n; j++ ) | |||
| B[i*LDB+j]=b[j*(*ldb)+i]; | |||
| cblas_dtrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| cblas_dtrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| A, LDA, B, LDB ); | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*m; i++ ) | |||
| @@ -275,10 +275,10 @@ void F77_dtrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| free(B); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_dtrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| cblas_dtrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| a, *lda, b, *ldb); | |||
| else | |||
| cblas_dtrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha, | |||
| cblas_dtrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha, | |||
| a, *lda, b, *ldb); | |||
| } | |||
| @@ -317,7 +317,7 @@ void F77_dtrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| for( i=0; i<*m; i++ ) | |||
| for( j=0; j<*n; j++ ) | |||
| B[i*LDB+j]=b[j*(*ldb)+i]; | |||
| cblas_dtrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| cblas_dtrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| A, LDA, B, LDB ); | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*m; i++ ) | |||
| @@ -326,9 +326,9 @@ void F77_dtrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| free(B); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_dtrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| cblas_dtrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| a, *lda, b, *ldb); | |||
| else | |||
| cblas_dtrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha, | |||
| cblas_dtrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha, | |||
| a, *lda, b, *ldb); | |||
| } | |||
+ 2
- 2
ctest/c_dblat1.f
View File
| @@ -506,7 +506,7 @@ | |||
| 80 CONTINUE | |||
| MWPS(1) = 0.0 | |||
| DO 100 I = 2, 6 | |||
| MWPS(I) = 1.0 | |||
| MWPS(I) = 1.0 | |||
| 100 CONTINUE | |||
| DO 120 I = 7, 11 | |||
| MWPS(I) = -1.0 | |||
| @@ -589,7 +589,7 @@ | |||
| MWPSTX(K) = MWPTX(I,K) | |||
| MWPSTY(K) = MWPTY(I,K) | |||
| 180 CONTINUE | |||
| CALL DROTTEST(MWPN(I),COPYX,INCX,COPYY,INCY,MWPC(I),MWPS(I)) | |||
| CALL DROTTEST(MWPN(I),COPYX,INCX,COPYY,INCY,MWPC(I),MWPS(I)) | |||
| CALL STEST(5,COPYX,MWPSTX,MWPSTX,SFAC) | |||
| CALL STEST(5,COPYY,MWPSTY,MWPSTY,SFAC) | |||
| 200 CONTINUE | |||
+ 7
- 7
ctest/c_dblat2.f
View File
| @@ -572,7 +572,7 @@ | |||
| CTRANS = ' CblasNoTrans' | |||
| ELSE IF (TRANS.EQ.'T')THEN | |||
| CTRANS = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTRANS = 'CblasConjTrans' | |||
| END IF | |||
| TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' | |||
| @@ -921,7 +921,7 @@ | |||
| UPLO = ICH( IC: IC ) | |||
| IF (UPLO.EQ.'U')THEN | |||
| CUPLO = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CUPLO = ' CblasLower' | |||
| END IF | |||
| * | |||
| @@ -1215,7 +1215,7 @@ | |||
| LOGICAL LDE, LDERES | |||
| EXTERNAL LDE, LDERES | |||
| * .. External Subroutines .. | |||
| EXTERNAL DMAKE, DMVCH, CDTBMV, CDTBSV, CDTPMV, | |||
| EXTERNAL DMAKE, DMVCH, CDTBMV, CDTBSV, CDTPMV, | |||
| $ CDTPSV, CDTRMV, CDTRSV | |||
| * .. Intrinsic Functions .. | |||
| INTRINSIC ABS, MAX | |||
| @@ -1283,7 +1283,7 @@ | |||
| UPLO = ICHU( ICU: ICU ) | |||
| IF (UPLO.EQ.'U')THEN | |||
| CUPLO = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CUPLO = ' CblasLower' | |||
| END IF | |||
| * | |||
| @@ -1293,7 +1293,7 @@ | |||
| CTRANS = ' CblasNoTrans' | |||
| ELSE IF (TRANS.EQ.'T')THEN | |||
| CTRANS = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTRANS = 'CblasConjTrans' | |||
| END IF | |||
| * | |||
| @@ -1972,7 +1972,7 @@ | |||
| $ ALPHA, INCX, LDA | |||
| IF( REWI ) | |||
| $ REWIND NTRA | |||
| CALL CDSYR( IORDER, UPLO, N, ALPHA, XX, INCX, | |||
| CALL CDSYR( IORDER, UPLO, N, ALPHA, XX, INCX, | |||
| $ AA, LDA ) | |||
| ELSE IF( PACKED )THEN | |||
| IF( TRACE ) | |||
| @@ -2737,7 +2737,7 @@ | |||
| WRITE( NOUT, FMT = 9998 )I, YT( I ), | |||
| $ YY( 1 + ( I - 1 )*ABS( INCY ) ) | |||
| ELSE | |||
| WRITE( NOUT, FMT = 9998 )I, | |||
| WRITE( NOUT, FMT = 9998 )I, | |||
| $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I) | |||
| END IF | |||
| 60 CONTINUE | |||
+ 32
- 32
ctest/c_dblat3.f
View File
| @@ -675,7 +675,7 @@ | |||
| * | |||
| 120 CONTINUE | |||
| WRITE( NOUT, FMT = 9996 )SNAME | |||
| CALL DPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, | |||
| CALL DPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, | |||
| $ M, N, K, ALPHA, LDA, LDB, BETA, LDC) | |||
| * | |||
| 130 CONTINUE | |||
| @@ -710,24 +710,24 @@ | |||
| CHARACTER*1 TRANSA, TRANSB | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CTA,CTB | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CTA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CTA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTA = 'CblasConjTrans' | |||
| END IF | |||
| IF (TRANSB.EQ.'N')THEN | |||
| CTB = ' CblasNoTrans' | |||
| ELSE IF (TRANSB.EQ.'T')THEN | |||
| CTB = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTB = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB | |||
| @@ -891,9 +891,9 @@ | |||
| * Call the subroutine. | |||
| * | |||
| IF( TRACE ) | |||
| $ CALL DPRCN2(NTRA, NC, SNAME, IORDER, | |||
| $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, | |||
| $ BETA, LDC) | |||
| $ CALL DPRCN2(NTRA, NC, SNAME, IORDER, | |||
| $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, | |||
| $ BETA, LDC) | |||
| IF( REWI ) | |||
| $ REWIND NTRA | |||
| CALL CDSYMM( IORDER, SIDE, UPLO, M, N, ALPHA, | |||
| @@ -989,7 +989,7 @@ | |||
| 110 CONTINUE | |||
| WRITE( NOUT, FMT = 9996 )SNAME | |||
| CALL DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, | |||
| $ LDB, BETA, LDC) | |||
| $ LDB, BETA, LDC) | |||
| * | |||
| 120 CONTINUE | |||
| RETURN | |||
| @@ -1024,20 +1024,20 @@ | |||
| CHARACTER*1 SIDE, UPLO | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CS,CU | |||
| IF (SIDE.EQ.'L')THEN | |||
| CS = ' CblasLeft' | |||
| ELSE | |||
| ELSE | |||
| CS = ' CblasRight' | |||
| END IF | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU | |||
| @@ -1210,7 +1210,7 @@ | |||
| IF( REWI ) | |||
| $ REWIND NTRA | |||
| CALL CDTRSM( IORDER, SIDE, UPLO, TRANSA, | |||
| $ DIAG, M, N, ALPHA, AA, LDA, | |||
| $ DIAG, M, N, ALPHA, AA, LDA, | |||
| $ BB, LDB ) | |||
| END IF | |||
| * | |||
| @@ -1370,22 +1370,22 @@ | |||
| CHARACTER*1 SIDE, UPLO, TRANSA, DIAG | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CS, CU, CA, CD | |||
| IF (SIDE.EQ.'L')THEN | |||
| CS = ' CblasLeft' | |||
| ELSE | |||
| ELSE | |||
| CS = ' CblasRight' | |||
| END IF | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (DIAG.EQ.'N')THEN | |||
| @@ -1395,14 +1395,14 @@ | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU | |||
| WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB | |||
| 9995 FORMAT( 1X, I6, ': ', A12,'(', A14, ',', A14, ',', A14, ',') | |||
| 9994 FORMAT( 22X, 2( A14, ',') , 2( I3, ',' ), | |||
| 9994 FORMAT( 22X, 2( A14, ',') , 2( I3, ',' ), | |||
| $ F4.1, ', A,', I3, ', B,', I3, ').' ) | |||
| END | |||
| * | |||
| @@ -1696,36 +1696,36 @@ | |||
| CHARACTER*1 UPLO, TRANSA | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CU, CA | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA | |||
| WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC | |||
| 9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) | |||
| 9994 FORMAT( 20X, 2( I3, ',' ), | |||
| 9994 FORMAT( 20X, 2( I3, ',' ), | |||
| $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' ) | |||
| END | |||
| * | |||
| SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, | |||
| $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, | |||
| $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W, | |||
| $ IORDER ) | |||
| $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W, | |||
| $ IORDER ) | |||
| * | |||
| * Tests DSYR2K. | |||
| * | |||
| @@ -2053,29 +2053,29 @@ | |||
| CHARACTER*1 UPLO, TRANSA | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CU, CA | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA | |||
| WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC | |||
| 9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) | |||
| 9994 FORMAT( 20X, 2( I3, ',' ), | |||
| 9994 FORMAT( 20X, 2( I3, ',' ), | |||
| $ F4.1, ', A,', I3, ', B', I3, ',', F4.1, ', C,', I3, ').' ) | |||
| END | |||
| * | |||
+ 145
- 145
ctest/c_s2chke.c
View File
| @@ -26,9 +26,9 @@ void chkxer(void) { | |||
| void F77_s2chke(char *rout) { | |||
| char *sf = ( rout ) ; | |||
| float A[2] = {0.0,0.0}, | |||
| X[2] = {0.0,0.0}, | |||
| Y[2] = {0.0,0.0}, | |||
| float A[2] = {0.0,0.0}, | |||
| X[2] = {0.0,0.0}, | |||
| Y[2] = {0.0,0.0}, | |||
| ALPHA=0.0, BETA=0.0; | |||
| extern int cblas_info, cblas_lerr, cblas_ok; | |||
| extern int RowMajorStrg; | |||
| @@ -46,588 +46,588 @@ void F77_s2chke(char *rout) { | |||
| if (strncmp( sf,"cblas_sgemv",11)==0) { | |||
| cblas_rout = "cblas_sgemv"; | |||
| cblas_info = 1; | |||
| cblas_sgemv(INVALID, CblasNoTrans, 0, 0, | |||
| cblas_sgemv(INVALID, CblasNoTrans, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_sgemv(CblasColMajor, INVALID, 0, 0, | |||
| cblas_sgemv(CblasColMajor, INVALID, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_sgemv(CblasColMajor, CblasNoTrans, INVALID, 0, | |||
| cblas_sgemv(CblasColMajor, CblasNoTrans, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_sgemv(CblasColMajor, CblasNoTrans, 0, INVALID, | |||
| cblas_sgemv(CblasColMajor, CblasNoTrans, 0, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_sgemv(CblasColMajor, CblasNoTrans, 2, 0, | |||
| cblas_sgemv(CblasColMajor, CblasNoTrans, 2, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0, | |||
| cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 12; RowMajorStrg = FALSE; | |||
| cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0, | |||
| cblas_sgemv(CblasColMajor, CblasNoTrans, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; | |||
| cblas_sgemv(CblasRowMajor, INVALID, 0, 0, | |||
| cblas_sgemv(CblasRowMajor, INVALID, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_sgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, | |||
| cblas_sgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, | |||
| cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 2, | |||
| cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 2, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0, | |||
| cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 12; RowMajorStrg = TRUE; | |||
| cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0, | |||
| cblas_sgemv(CblasRowMajor, CblasNoTrans, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_sgbmv",11)==0) { | |||
| cblas_rout = "cblas_sgbmv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_sgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, | |||
| cblas_sgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_sgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, | |||
| cblas_sgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 11; RowMajorStrg = FALSE; | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 14; RowMajorStrg = FALSE; | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| cblas_sgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_sgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, | |||
| cblas_sgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 11; RowMajorStrg = TRUE; | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 14; RowMajorStrg = TRUE; | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| cblas_sgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_ssymv",11)==0) { | |||
| cblas_rout = "cblas_ssymv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_ssymv(INVALID, CblasUpper, 0, | |||
| cblas_ssymv(INVALID, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ssymv(CblasColMajor, INVALID, 0, | |||
| cblas_ssymv(CblasColMajor, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ssymv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ssymv(CblasColMajor, CblasUpper, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_ssymv(CblasColMajor, CblasUpper, 2, | |||
| cblas_ssymv(CblasColMajor, CblasUpper, 2, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_ssymv(CblasColMajor, CblasUpper, 0, | |||
| cblas_ssymv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 11; RowMajorStrg = FALSE; | |||
| cblas_ssymv(CblasColMajor, CblasUpper, 0, | |||
| cblas_ssymv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ssymv(CblasRowMajor, INVALID, 0, | |||
| cblas_ssymv(CblasRowMajor, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ssymv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ssymv(CblasRowMajor, CblasUpper, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_ssymv(CblasRowMajor, CblasUpper, 2, | |||
| cblas_ssymv(CblasRowMajor, CblasUpper, 2, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_ssymv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_ssymv(CblasRowMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 11; RowMajorStrg = TRUE; | |||
| cblas_ssymv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_ssymv(CblasRowMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_ssbmv",11)==0) { | |||
| cblas_rout = "cblas_ssbmv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_ssbmv(INVALID, CblasUpper, 0, 0, | |||
| cblas_ssbmv(INVALID, CblasUpper, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ssbmv(CblasColMajor, INVALID, 0, 0, | |||
| cblas_ssbmv(CblasColMajor, INVALID, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ssbmv(CblasColMajor, CblasUpper, INVALID, 0, | |||
| cblas_ssbmv(CblasColMajor, CblasUpper, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ssbmv(CblasColMajor, CblasUpper, 0, INVALID, | |||
| cblas_ssbmv(CblasColMajor, CblasUpper, 0, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_ssbmv(CblasColMajor, CblasUpper, 0, 1, | |||
| cblas_ssbmv(CblasColMajor, CblasUpper, 0, 1, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0, | |||
| cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 12; RowMajorStrg = FALSE; | |||
| cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0, | |||
| cblas_ssbmv(CblasColMajor, CblasUpper, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ssbmv(CblasRowMajor, INVALID, 0, 0, | |||
| cblas_ssbmv(CblasRowMajor, INVALID, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ssbmv(CblasRowMajor, CblasUpper, INVALID, 0, | |||
| cblas_ssbmv(CblasRowMajor, CblasUpper, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ssbmv(CblasRowMajor, CblasUpper, 0, INVALID, | |||
| cblas_ssbmv(CblasRowMajor, CblasUpper, 0, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 1, | |||
| cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 1, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0, | |||
| cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 12; RowMajorStrg = TRUE; | |||
| cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0, | |||
| cblas_ssbmv(CblasRowMajor, CblasUpper, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_sspmv",11)==0) { | |||
| cblas_rout = "cblas_sspmv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_sspmv(INVALID, CblasUpper, 0, | |||
| cblas_sspmv(INVALID, CblasUpper, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_sspmv(CblasColMajor, INVALID, 0, | |||
| cblas_sspmv(CblasColMajor, INVALID, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_sspmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_sspmv(CblasColMajor, CblasUpper, INVALID, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_sspmv(CblasColMajor, CblasUpper, 0, | |||
| cblas_sspmv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = FALSE; | |||
| cblas_sspmv(CblasColMajor, CblasUpper, 0, | |||
| cblas_sspmv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_sspmv(CblasRowMajor, INVALID, 0, | |||
| cblas_sspmv(CblasRowMajor, INVALID, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_sspmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_sspmv(CblasRowMajor, CblasUpper, INVALID, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_sspmv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_sspmv(CblasRowMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = TRUE; | |||
| cblas_sspmv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_sspmv(CblasRowMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_strmv",11)==0) { | |||
| cblas_rout = "cblas_strmv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_strmv(INVALID, CblasUpper, CblasNoTrans, | |||
| cblas_strmv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_strmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_strmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_strmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_strmv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_strmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_strmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_strmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_strmv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_stbmv",11)==0) { | |||
| cblas_rout = "cblas_stbmv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_stbmv(INVALID, CblasUpper, CblasNoTrans, | |||
| cblas_stbmv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_stbmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_stbmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_stbmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_stbmv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = FALSE; | |||
| cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_stbmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_stbmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_stbmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_stbmv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = TRUE; | |||
| cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_stpmv",11)==0) { | |||
| cblas_rout = "cblas_stpmv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_stpmv(INVALID, CblasUpper, CblasNoTrans, | |||
| cblas_stpmv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_stpmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_stpmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_stpmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_stpmv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_stpmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_stpmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_stpmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_stpmv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_strsv",11)==0) { | |||
| cblas_rout = "cblas_strsv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_strsv(INVALID, CblasUpper, CblasNoTrans, | |||
| cblas_strsv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_strsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_strsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_strsv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_strsv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_strsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_strsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_strsv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_strsv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_stbsv",11)==0) { | |||
| cblas_rout = "cblas_stbsv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_stbsv(INVALID, CblasUpper, CblasNoTrans, | |||
| cblas_stbsv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_stbsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_stbsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_stbsv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_stbsv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = FALSE; | |||
| cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_stbsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_stbsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_stbsv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_stbsv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = TRUE; | |||
| cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_stpsv",11)==0) { | |||
| cblas_rout = "cblas_stpsv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_stpsv(INVALID, CblasUpper, CblasNoTrans, | |||
| cblas_stpsv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_stpsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_stpsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_stpsv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_stpsv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_stpsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_stpsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_stpsv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_stpsv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_sger",10)==0) { | |||
| @@ -781,7 +781,7 @@ void F77_s2chke(char *rout) { | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_sspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A ); | |||
| chkxer(); | |||
| } | |||
| } | |||
| if (cblas_ok == TRUE) | |||
| printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); | |||
| else | |||
+ 7
- 7
ctest/c_s3chke.c
View File
| @@ -26,9 +26,9 @@ void chkxer(void) { | |||
| void F77_s3chke(char *rout) { | |||
| char *sf = ( rout ) ; | |||
| float A[2] = {0.0,0.0}, | |||
| B[2] = {0.0,0.0}, | |||
| C[2] = {0.0,0.0}, | |||
| float A[2] = {0.0,0.0}, | |||
| B[2] = {0.0,0.0}, | |||
| C[2] = {0.0,0.0}, | |||
| ALPHA=0.0, BETA=0.0; | |||
| extern int cblas_info, cblas_lerr, cblas_ok; | |||
| extern int RowMajorStrg; | |||
| @@ -39,22 +39,22 @@ void F77_s3chke(char *rout) { | |||
| cblas_xerbla(cblas_info,cblas_rout,""); | |||
| F77_xerbla(cblas_rout,&cblas_info); | |||
| } | |||
| cblas_ok = TRUE ; | |||
| cblas_lerr = PASSED ; | |||
| if (strncmp( sf,"cblas_sgemm" ,11)==0) { | |||
| cblas_rout = "cblas_sgemm" ; | |||
| cblas_info = 1; | |||
| cblas_sgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, | |||
| cblas_sgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, | |||
| ALPHA, A, 1, B, 1, BETA, C, 1 ); | |||
| chkxer(); | |||
| cblas_info = 1; | |||
| cblas_sgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, | |||
| cblas_sgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, | |||
| ALPHA, A, 1, B, 1, BETA, C, 1 ); | |||
| chkxer(); | |||
| cblas_info = 1; | |||
| cblas_sgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, | |||
| cblas_sgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, | |||
| ALPHA, A, 1, B, 1, BETA, C, 1 ); | |||
| chkxer(); | |||
| cblas_info = 1; | |||
+ 2
- 2
ctest/c_sblas1.c
View File
| @@ -31,14 +31,14 @@ float F77_scnrm2(blasint *N, const float *X, blasint *incX) | |||
| return cblas_scnrm2(*N, X, *incX); | |||
| } | |||
| void F77_scopy(blasint *N, const float *X, blasint *incX, | |||
| void F77_scopy(blasint *N, const float *X, blasint *incX, | |||
| float *Y, blasint *incY) | |||
| { | |||
| cblas_scopy(*N, X, *incX, Y, *incY); | |||
| return; | |||
| } | |||
| float F77_sdot(blasint *N, const float *X, blasint *incX, | |||
| float F77_sdot(blasint *N, const float *X, blasint *incX, | |||
| const float *Y, blasint *incY) | |||
| { | |||
| return cblas_sdot(*N, X, *incX, Y, *incY); | |||
+ 29
- 29
ctest/c_sblas2.c
View File
| @@ -8,8 +8,8 @@ | |||
| #include "common.h" | |||
| #include "cblas_test.h" | |||
| void F77_sgemv(int *order, char *transp, int *m, int *n, float *alpha, | |||
| float *a, int *lda, float *x, int *incx, float *beta, | |||
| void F77_sgemv(int *order, char *transp, int *m, int *n, float *alpha, | |||
| float *a, int *lda, float *x, int *incx, float *beta, | |||
| float *y, int *incy ) { | |||
| float *A; | |||
| @@ -23,7 +23,7 @@ void F77_sgemv(int *order, char *transp, int *m, int *n, float *alpha, | |||
| for( i=0; i<*m; i++ ) | |||
| for( j=0; j<*n; j++ ) | |||
| A[ LDA*i+j ]=a[ (*lda)*j+i ]; | |||
| cblas_sgemv( CblasRowMajor, trans, | |||
| cblas_sgemv( CblasRowMajor, trans, | |||
| *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy ); | |||
| free(A); | |||
| } | |||
| @@ -68,9 +68,9 @@ void F77_strmv(int *order, char *uplow, char *transp, char *diagn, | |||
| enum CBLAS_UPLO uplo; | |||
| enum CBLAS_DIAG diag; | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| if (*order == TEST_ROW_MJR) { | |||
| LDA = *n+1; | |||
| @@ -88,7 +88,7 @@ void F77_strmv(int *order, char *uplow, char *transp, char *diagn, | |||
| } | |||
| } | |||
| void F77_strsv(int *order, char *uplow, char *transp, char *diagn, | |||
| void F77_strsv(int *order, char *uplow, char *transp, char *diagn, | |||
| int *n, float *a, int *lda, float *x, int *incx ) { | |||
| float *A; | |||
| int i,j,LDA; | |||
| @@ -112,7 +112,7 @@ void F77_strsv(int *order, char *uplow, char *transp, char *diagn, | |||
| else | |||
| cblas_strsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); | |||
| } | |||
| void F77_ssymv(int *order, char *uplow, int *n, float *alpha, float *a, | |||
| void F77_ssymv(int *order, char *uplow, int *n, float *alpha, float *a, | |||
| int *lda, float *x, int *incx, float *beta, float *y, | |||
| int *incy) { | |||
| float *A; | |||
| @@ -136,7 +136,7 @@ void F77_ssymv(int *order, char *uplow, int *n, float *alpha, float *a, | |||
| *beta, y, *incy ); | |||
| } | |||
| void F77_ssyr(int *order, char *uplow, int *n, float *alpha, float *x, | |||
| void F77_ssyr(int *order, char *uplow, int *n, float *alpha, float *x, | |||
| int *incx, float *a, int *lda) { | |||
| float *A; | |||
| int i,j,LDA; | |||
| @@ -160,7 +160,7 @@ void F77_ssyr(int *order, char *uplow, int *n, float *alpha, float *x, | |||
| cblas_ssyr(CblasColMajor, uplo, *n, *alpha, x, *incx, a, *lda); | |||
| } | |||
| void F77_ssyr2(int *order, char *uplow, int *n, float *alpha, float *x, | |||
| void F77_ssyr2(int *order, char *uplow, int *n, float *alpha, float *x, | |||
| int *incx, float *y, int *incy, float *a, int *lda) { | |||
| float *A; | |||
| int i,j,LDA; | |||
| @@ -185,7 +185,7 @@ void F77_ssyr2(int *order, char *uplow, int *n, float *alpha, float *x, | |||
| } | |||
| void F77_sgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, | |||
| float *alpha, float *a, int *lda, float *x, int *incx, | |||
| float *alpha, float *a, int *lda, float *x, int *incx, | |||
| float *beta, float *y, int *incy ) { | |||
| float *A; | |||
| @@ -213,7 +213,7 @@ void F77_sgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, | |||
| for( j=jcol; j<(*n+*kl); j++ ) | |||
| A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; | |||
| } | |||
| cblas_sgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha, | |||
| cblas_sgbmv( CblasRowMajor, trans, *m, *n, *kl, *ku, *alpha, | |||
| A, LDA, x, *incx, *beta, y, *incy ); | |||
| free(A); | |||
| } | |||
| @@ -230,9 +230,9 @@ void F77_stbmv(int *order, char *uplow, char *transp, char *diagn, | |||
| enum CBLAS_UPLO uplo; | |||
| enum CBLAS_DIAG diag; | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| if (*order == TEST_ROW_MJR) { | |||
| LDA = *k+1; | |||
| @@ -276,9 +276,9 @@ void F77_stbsv(int *order, char *uplow, char *transp, char *diagn, | |||
| enum CBLAS_UPLO uplo; | |||
| enum CBLAS_DIAG diag; | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| if (*order == TEST_ROW_MJR) { | |||
| LDA = *k+1; | |||
| @@ -315,7 +315,7 @@ void F77_stbsv(int *order, char *uplow, char *transp, char *diagn, | |||
| } | |||
| void F77_ssbmv(int *order, char *uplow, int *n, int *k, float *alpha, | |||
| float *a, int *lda, float *x, int *incx, float *beta, | |||
| float *a, int *lda, float *x, int *incx, float *beta, | |||
| float *y, int *incy) { | |||
| float *A; | |||
| int i,j,irow,jcol,LDA; | |||
| @@ -387,12 +387,12 @@ void F77_sspmv(int *order, char *uplow, int *n, float *alpha, float *ap, | |||
| for( j=0; j<i+1; j++, k++ ) | |||
| AP[ k ]=A[ LDA*i+j ]; | |||
| } | |||
| cblas_sspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y, | |||
| cblas_sspmv( CblasRowMajor, uplo, *n, *alpha, AP, x, *incx, *beta, y, | |||
| *incy ); | |||
| free(A); free(AP); | |||
| } | |||
| else | |||
| cblas_sspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y, | |||
| cblas_sspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y, | |||
| *incy ); | |||
| } | |||
| @@ -404,9 +404,9 @@ void F77_stpmv(int *order, char *uplow, char *transp, char *diagn, | |||
| enum CBLAS_UPLO uplo; | |||
| enum CBLAS_DIAG diag; | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| if (*order == TEST_ROW_MJR) { | |||
| LDA = *n; | |||
| @@ -443,9 +443,9 @@ void F77_stpsv(int *order, char *uplow, char *transp, char *diagn, | |||
| enum CBLAS_UPLO uplo; | |||
| enum CBLAS_DIAG diag; | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| get_transpose_type(transp,&trans); | |||
| get_uplo_type(uplow,&uplo); | |||
| get_diag_type(diagn,&diag); | |||
| if (*order == TEST_ROW_MJR) { | |||
| LDA = *n; | |||
| @@ -475,7 +475,7 @@ void F77_stpsv(int *order, char *uplow, char *transp, char *diagn, | |||
| cblas_stpsv( CblasColMajor, uplo, trans, diag, *n, ap, x, *incx ); | |||
| } | |||
| void F77_sspr(int *order, char *uplow, int *n, float *alpha, float *x, | |||
| void F77_sspr(int *order, char *uplow, int *n, float *alpha, float *x, | |||
| int *incx, float *ap ){ | |||
| float *A, *AP; | |||
| int i,j,k,LDA; | |||
| @@ -526,7 +526,7 @@ void F77_sspr(int *order, char *uplow, int *n, float *alpha, float *x, | |||
| cblas_sspr( CblasColMajor, uplo, *n, *alpha, x, *incx, ap ); | |||
| } | |||
| void F77_sspr2(int *order, char *uplow, int *n, float *alpha, float *x, | |||
| void F77_sspr2(int *order, char *uplow, int *n, float *alpha, float *x, | |||
| int *incx, float *y, int *incy, float *ap ){ | |||
| float *A, *AP; | |||
| int i,j,k,LDA; | |||
+ 18
- 18
ctest/c_sblas3.c
View File
| @@ -9,7 +9,7 @@ | |||
| #include "common.h" | |||
| #include "cblas_test.h" | |||
| void F77_sgemm(int *order, char *transpa, char *transpb, int *m, int *n, | |||
| void F77_sgemm(int *order, char *transpa, char *transpb, int *m, int *n, | |||
| int *k, float *alpha, float *a, int *lda, float *b, int *ldb, | |||
| float *beta, float *c, int *ldc ) { | |||
| @@ -107,7 +107,7 @@ void F77_ssymm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*m; i++ ) | |||
| C[i*LDC+j]=c[j*(*ldc)+i]; | |||
| cblas_ssymm( CblasRowMajor, side, uplo, *m, *n, *alpha, A, LDA, B, LDB, | |||
| cblas_ssymm( 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++ ) | |||
| @@ -117,15 +117,15 @@ void F77_ssymm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_ssymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb, | |||
| cblas_ssymm( CblasColMajor, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb, | |||
| *beta, c, *ldc ); | |||
| else | |||
| cblas_ssymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb, | |||
| cblas_ssymm( UNDEFINED, side, uplo, *m, *n, *alpha, a, *lda, b, *ldb, | |||
| *beta, c, *ldc ); | |||
| } | |||
| void F77_ssyrk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| float *alpha, float *a, int *lda, | |||
| float *alpha, float *a, int *lda, | |||
| float *beta, float *c, int *ldc ) { | |||
| int i,j,LDA,LDC; | |||
| @@ -156,7 +156,7 @@ void F77_ssyrk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| for( i=0; i<*n; i++ ) | |||
| for( j=0; j<*n; j++ ) | |||
| C[i*LDC+j]=c[j*(*ldc)+i]; | |||
| cblas_ssyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, | |||
| cblas_ssyrk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, | |||
| C, LDC ); | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*n; i++ ) | |||
| @@ -165,10 +165,10 @@ void F77_ssyrk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_ssyrk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| cblas_ssyrk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| c, *ldc ); | |||
| else | |||
| cblas_ssyrk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| cblas_ssyrk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| c, *ldc ); | |||
| } | |||
| @@ -211,7 +211,7 @@ void F77_ssyr2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| for( i=0; i<*n; i++ ) | |||
| for( j=0; j<*n; j++ ) | |||
| C[i*LDC+j]=c[j*(*ldc)+i]; | |||
| cblas_ssyr2k(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, | |||
| cblas_ssyr2k(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++ ) | |||
| @@ -221,14 +221,14 @@ void F77_ssyr2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_ssyr2k(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, | |||
| cblas_ssyr2k(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, | |||
| b, *ldb, *beta, c, *ldc ); | |||
| else | |||
| cblas_ssyr2k(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, | |||
| cblas_ssyr2k(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, | |||
| b, *ldb, *beta, c, *ldc ); | |||
| } | |||
| void F77_strmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| int *m, int *n, float *alpha, float *a, int *lda, float *b, | |||
| int *m, int *n, float *alpha, float *a, int *lda, float *b, | |||
| int *ldb) { | |||
| int i,j,LDA,LDB; | |||
| float *A, *B; | |||
| @@ -262,7 +262,7 @@ void F77_strmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| for( i=0; i<*m; i++ ) | |||
| for( j=0; j<*n; j++ ) | |||
| B[i*LDB+j]=b[j*(*ldb)+i]; | |||
| cblas_strmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| cblas_strmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| A, LDA, B, LDB ); | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*m; i++ ) | |||
| @@ -271,10 +271,10 @@ void F77_strmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| free(B); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_strmm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| cblas_strmm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| a, *lda, b, *ldb); | |||
| else | |||
| cblas_strmm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha, | |||
| cblas_strmm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha, | |||
| a, *lda, b, *ldb); | |||
| } | |||
| @@ -313,7 +313,7 @@ void F77_strsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| for( i=0; i<*m; i++ ) | |||
| for( j=0; j<*n; j++ ) | |||
| B[i*LDB+j]=b[j*(*ldb)+i]; | |||
| cblas_strsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| cblas_strsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| A, LDA, B, LDB ); | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*m; i++ ) | |||
| @@ -322,9 +322,9 @@ void F77_strsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| free(B); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_strsm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| cblas_strsm(CblasColMajor, side, uplo, trans, diag, *m, *n, *alpha, | |||
| a, *lda, b, *ldb); | |||
| else | |||
| cblas_strsm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha, | |||
| cblas_strsm(UNDEFINED, side, uplo, trans, diag, *m, *n, *alpha, | |||
| a, *lda, b, *ldb); | |||
| } | |||
+ 7
- 7
ctest/c_sblat2.f
View File
| @@ -572,7 +572,7 @@ | |||
| CTRANS = ' CblasNoTrans' | |||
| ELSE IF (TRANS.EQ.'T')THEN | |||
| CTRANS = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTRANS = 'CblasConjTrans' | |||
| END IF | |||
| TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' | |||
| @@ -921,7 +921,7 @@ | |||
| UPLO = ICH( IC: IC ) | |||
| IF (UPLO.EQ.'U')THEN | |||
| CUPLO = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CUPLO = ' CblasLower' | |||
| END IF | |||
| * | |||
| @@ -1215,7 +1215,7 @@ | |||
| LOGICAL LSE, LSERES | |||
| EXTERNAL LSE, LSERES | |||
| * .. External Subroutines .. | |||
| EXTERNAL SMAKE, SMVCH, CSTBMV, CSTBSV, CSTPMV, | |||
| EXTERNAL SMAKE, SMVCH, CSTBMV, CSTBSV, CSTPMV, | |||
| $ CSTPSV, CSTRMV, CSTRSV | |||
| * .. Intrinsic Functions .. | |||
| INTRINSIC ABS, MAX | |||
| @@ -1283,7 +1283,7 @@ | |||
| UPLO = ICHU( ICU: ICU ) | |||
| IF (UPLO.EQ.'U')THEN | |||
| CUPLO = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CUPLO = ' CblasLower' | |||
| END IF | |||
| * | |||
| @@ -1293,7 +1293,7 @@ | |||
| CTRANS = ' CblasNoTrans' | |||
| ELSE IF (TRANS.EQ.'T')THEN | |||
| CTRANS = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTRANS = 'CblasConjTrans' | |||
| END IF | |||
| * | |||
| @@ -1972,7 +1972,7 @@ | |||
| $ ALPHA, INCX, LDA | |||
| IF( REWI ) | |||
| $ REWIND NTRA | |||
| CALL CSSYR( IORDER, UPLO, N, ALPHA, XX, INCX, | |||
| CALL CSSYR( IORDER, UPLO, N, ALPHA, XX, INCX, | |||
| $ AA, LDA ) | |||
| ELSE IF( PACKED )THEN | |||
| IF( TRACE ) | |||
| @@ -2737,7 +2737,7 @@ | |||
| WRITE( NOUT, FMT = 9998 )I, YT( I ), | |||
| $ YY( 1 + ( I - 1 )*ABS( INCY ) ) | |||
| ELSE | |||
| WRITE( NOUT, FMT = 9998 )I, | |||
| WRITE( NOUT, FMT = 9998 )I, | |||
| $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I) | |||
| END IF | |||
| 60 CONTINUE | |||
+ 33
- 33
ctest/c_sblat3.f
View File
| @@ -587,7 +587,7 @@ | |||
| IF( REWI ) | |||
| $ REWIND NTRA | |||
| CALL CSGEMM( IORDER, TRANSA, TRANSB, M, N, | |||
| $ K, ALPHA, AA, LDA, BB, LDB, | |||
| $ K, ALPHA, AA, LDA, BB, LDB, | |||
| $ BETA, CC, LDC ) | |||
| * | |||
| * Check if error-exit was taken incorrectly. | |||
| @@ -675,7 +675,7 @@ | |||
| * | |||
| 120 CONTINUE | |||
| WRITE( NOUT, FMT = 9996 )SNAME | |||
| CALL SPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, | |||
| CALL SPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, | |||
| $ M, N, K, ALPHA, LDA, LDB, BETA, LDC) | |||
| * | |||
| 130 CONTINUE | |||
| @@ -713,24 +713,24 @@ | |||
| CHARACTER*1 TRANSA, TRANSB | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CTA,CTB | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CTA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CTA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTA = 'CblasConjTrans' | |||
| END IF | |||
| IF (TRANSB.EQ.'N')THEN | |||
| CTB = ' CblasNoTrans' | |||
| ELSE IF (TRANSB.EQ.'T')THEN | |||
| CTB = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTB = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB | |||
| @@ -743,7 +743,7 @@ | |||
| * | |||
| SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, | |||
| $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, | |||
| $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, | |||
| $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, | |||
| $ IORDER ) | |||
| * | |||
| * Tests SSYMM. | |||
| @@ -895,9 +895,9 @@ | |||
| * Call the subroutine. | |||
| * | |||
| IF( TRACE ) | |||
| $ CALL SPRCN2(NTRA, NC, SNAME, IORDER, | |||
| $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, | |||
| $ BETA, LDC) | |||
| $ CALL SPRCN2(NTRA, NC, SNAME, IORDER, | |||
| $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, | |||
| $ BETA, LDC) | |||
| IF( REWI ) | |||
| $ REWIND NTRA | |||
| CALL CSSYMM( IORDER, SIDE, UPLO, M, N, ALPHA, | |||
| @@ -993,7 +993,7 @@ | |||
| 110 CONTINUE | |||
| WRITE( NOUT, FMT = 9996 )SNAME | |||
| CALL SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, | |||
| $ LDB, BETA, LDC) | |||
| $ LDB, BETA, LDC) | |||
| * | |||
| 120 CONTINUE | |||
| RETURN | |||
| @@ -1028,20 +1028,20 @@ | |||
| CHARACTER*1 SIDE, UPLO | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CS,CU | |||
| IF (SIDE.EQ.'L')THEN | |||
| CS = ' CblasLeft' | |||
| ELSE | |||
| ELSE | |||
| CS = ' CblasRight' | |||
| END IF | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU | |||
| @@ -1351,9 +1351,9 @@ | |||
| 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ', | |||
| $ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ', | |||
| $ 'RATIO ', F8.2, ' - SUSPECT *******' ) | |||
| 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS', | |||
| 10001 FORMAT( ' ', A12,' PASSED THE ROW-MAJOR COMPUTATIONAL TESTS', | |||
| $ ' (', I6, ' CALL', 'S)' ) | |||
| 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS', | |||
| 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS', | |||
| $ ' (', I6, ' CALL', 'S)' ) | |||
| 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH', | |||
| $ 'ANGED INCORRECTLY *******' ) | |||
| @@ -1374,22 +1374,22 @@ | |||
| CHARACTER*1 SIDE, UPLO, TRANSA, DIAG | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CS, CU, CA, CD | |||
| IF (SIDE.EQ.'L')THEN | |||
| CS = ' CblasLeft' | |||
| ELSE | |||
| ELSE | |||
| CS = ' CblasRight' | |||
| END IF | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (DIAG.EQ.'N')THEN | |||
| @@ -1399,14 +1399,14 @@ | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = 'CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = 'CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU | |||
| WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB | |||
| 9995 FORMAT( 1X, I6, ': ', A12,'(', A14, ',', A14, ',', A14, ',') | |||
| 9994 FORMAT( 22X, 2( A14, ',') , 2( I3, ',' ), | |||
| 9994 FORMAT( 22X, 2( A14, ',') , 2( I3, ',' ), | |||
| $ F4.1, ', A,', I3, ', B,', I3, ').' ) | |||
| END | |||
| * | |||
| @@ -1701,29 +1701,29 @@ | |||
| CHARACTER*1 UPLO, TRANSA | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CU, CA | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA | |||
| WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC | |||
| 9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) | |||
| 9994 FORMAT( 20X, 2( I3, ',' ), | |||
| 9994 FORMAT( 20X, 2( I3, ',' ), | |||
| $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' ) | |||
| END | |||
| * | |||
| @@ -2057,29 +2057,29 @@ | |||
| CHARACTER*1 UPLO, TRANSA | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CU, CA | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA | |||
| WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC | |||
| 9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) | |||
| 9994 FORMAT( 20X, 2( I3, ',' ), | |||
| 9994 FORMAT( 20X, 2( I3, ',' ), | |||
| $ F4.1, ', A,', I3, ', B', I3, ',', F4.1, ', C,', I3, ').' ) | |||
| END | |||
| * | |||
+ 10
- 10
ctest/c_xerbla.c
View File
| @@ -11,10 +11,10 @@ void cblas_xerbla(blasint info, char *rout, char *form, ...) | |||
| extern int link_xerbla; | |||
| extern int RowMajorStrg; | |||
| extern char *cblas_rout; | |||
| /* Initially, c__3chke will call this routine with | |||
| * global variable link_xerbla=1, and F77_xerbla will set link_xerbla=0. | |||
| * This is done to fool the linker into loading these subroutines first | |||
| /* Initially, c__3chke will call this routine with | |||
| * global variable link_xerbla=1, and F77_xerbla will set link_xerbla=0. | |||
| * This is done to fool the linker into loading these subroutines first | |||
| * instead of ones in the CBLAS or the legacy BLAS library. | |||
| */ | |||
| if (link_xerbla) return; | |||
| @@ -26,11 +26,11 @@ void cblas_xerbla(blasint info, char *rout, char *form, ...) | |||
| if (RowMajorStrg) | |||
| { | |||
| /* To properly check leading dimension problems in cblas__gemm, we | |||
| * need to do the following trick. When cblas__gemm is called with | |||
| * CblasRowMajor, the arguments A and B switch places in the call to | |||
| * f77__gemm. Thus when we test for bad leading dimension problems | |||
| * for A and B, lda is in position 11 instead of 9, and ldb is in | |||
| /* To properly check leading dimension problems in cblas__gemm, we | |||
| * need to do the following trick. When cblas__gemm is called with | |||
| * CblasRowMajor, the arguments A and B switch places in the call to | |||
| * f77__gemm. Thus when we test for bad leading dimension problems | |||
| * for A and B, lda is in position 11 instead of 9, and ldb is in | |||
| * position 9 instead of 11. | |||
| */ | |||
| if (strstr(rout,"gemm") != 0) | |||
| @@ -117,7 +117,7 @@ void F77_xerbla(char *srname, void *vinfo) | |||
| } | |||
| for(i=0; i < 6; i++) rout[i+6] = tolower(srname[i]); | |||
| for(i=11; i >= 9; i--) if (rout[i] == ' ') rout[i] = '\0'; | |||
| /* We increment *info by 1 since the CBLAS interface adds one more | |||
| * argument to all level 2 and 3 routines. | |||
| */ | |||
+ 146
- 146
ctest/c_z2chke.c
View File
| @@ -26,11 +26,11 @@ void chkxer(void) { | |||
| void F77_z2chke(char *rout) { | |||
| char *sf = ( rout ) ; | |||
| double A[2] = {0.0,0.0}, | |||
| X[2] = {0.0,0.0}, | |||
| Y[2] = {0.0,0.0}, | |||
| double A[2] = {0.0,0.0}, | |||
| X[2] = {0.0,0.0}, | |||
| Y[2] = {0.0,0.0}, | |||
| ALPHA[2] = {0.0,0.0}, | |||
| BETA[2] = {0.0,0.0}, | |||
| BETA[2] = {0.0,0.0}, | |||
| RALPHA = 0.0; | |||
| extern int cblas_info, cblas_lerr, cblas_ok; | |||
| extern int RowMajorStrg; | |||
| @@ -48,588 +48,588 @@ void F77_z2chke(char *rout) { | |||
| if (strncmp( sf,"cblas_zgemv",11)==0) { | |||
| cblas_rout = "cblas_zgemv"; | |||
| cblas_info = 1; | |||
| cblas_zgemv(INVALID, CblasNoTrans, 0, 0, | |||
| cblas_zgemv(INVALID, CblasNoTrans, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_zgemv(CblasColMajor, INVALID, 0, 0, | |||
| cblas_zgemv(CblasColMajor, INVALID, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_zgemv(CblasColMajor, CblasNoTrans, INVALID, 0, | |||
| cblas_zgemv(CblasColMajor, CblasNoTrans, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_zgemv(CblasColMajor, CblasNoTrans, 0, INVALID, | |||
| cblas_zgemv(CblasColMajor, CblasNoTrans, 0, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_zgemv(CblasColMajor, CblasNoTrans, 2, 0, | |||
| cblas_zgemv(CblasColMajor, CblasNoTrans, 2, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0, | |||
| cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 12; RowMajorStrg = FALSE; | |||
| cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0, | |||
| cblas_zgemv(CblasColMajor, CblasNoTrans, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; | |||
| cblas_zgemv(CblasRowMajor, INVALID, 0, 0, | |||
| cblas_zgemv(CblasRowMajor, INVALID, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_zgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, | |||
| cblas_zgemv(CblasRowMajor, CblasNoTrans, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, | |||
| cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 2, | |||
| cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 2, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0, | |||
| cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 12; RowMajorStrg = TRUE; | |||
| cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0, | |||
| cblas_zgemv(CblasRowMajor, CblasNoTrans, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_zgbmv",11)==0) { | |||
| cblas_rout = "cblas_zgbmv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, | |||
| cblas_zgbmv(INVALID, CblasNoTrans, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, | |||
| cblas_zgbmv(CblasColMajor, INVALID, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, INVALID, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, INVALID, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, 2, 0, 0, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 1, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 11; RowMajorStrg = FALSE; | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 14; RowMajorStrg = FALSE; | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| cblas_zgbmv(CblasColMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, | |||
| cblas_zgbmv(CblasRowMajor, INVALID, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, INVALID, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, INVALID, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, 2, 0, 0, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 1, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 11; RowMajorStrg = TRUE; | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 14; RowMajorStrg = TRUE; | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| cblas_zgbmv(CblasRowMajor, CblasNoTrans, 0, 0, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_zhemv",11)==0) { | |||
| cblas_rout = "cblas_zhemv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_zhemv(INVALID, CblasUpper, 0, | |||
| cblas_zhemv(INVALID, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_zhemv(CblasColMajor, INVALID, 0, | |||
| cblas_zhemv(CblasColMajor, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_zhemv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_zhemv(CblasColMajor, CblasUpper, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_zhemv(CblasColMajor, CblasUpper, 2, | |||
| cblas_zhemv(CblasColMajor, CblasUpper, 2, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_zhemv(CblasColMajor, CblasUpper, 0, | |||
| cblas_zhemv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 11; RowMajorStrg = FALSE; | |||
| cblas_zhemv(CblasColMajor, CblasUpper, 0, | |||
| cblas_zhemv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_zhemv(CblasRowMajor, INVALID, 0, | |||
| cblas_zhemv(CblasRowMajor, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_zhemv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_zhemv(CblasRowMajor, CblasUpper, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_zhemv(CblasRowMajor, CblasUpper, 2, | |||
| cblas_zhemv(CblasRowMajor, CblasUpper, 2, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_zhemv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_zhemv(CblasRowMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 11; RowMajorStrg = TRUE; | |||
| cblas_zhemv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_zhemv(CblasRowMajor, CblasUpper, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_zhbmv",11)==0) { | |||
| cblas_rout = "cblas_zhbmv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_zhbmv(INVALID, CblasUpper, 0, 0, | |||
| cblas_zhbmv(INVALID, CblasUpper, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_zhbmv(CblasColMajor, INVALID, 0, 0, | |||
| cblas_zhbmv(CblasColMajor, INVALID, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_zhbmv(CblasColMajor, CblasUpper, INVALID, 0, | |||
| cblas_zhbmv(CblasColMajor, CblasUpper, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_zhbmv(CblasColMajor, CblasUpper, 0, INVALID, | |||
| cblas_zhbmv(CblasColMajor, CblasUpper, 0, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_zhbmv(CblasColMajor, CblasUpper, 0, 1, | |||
| cblas_zhbmv(CblasColMajor, CblasUpper, 0, 1, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0, | |||
| cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 12; RowMajorStrg = FALSE; | |||
| cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0, | |||
| cblas_zhbmv(CblasColMajor, CblasUpper, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_zhbmv(CblasRowMajor, INVALID, 0, 0, | |||
| cblas_zhbmv(CblasRowMajor, INVALID, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_zhbmv(CblasRowMajor, CblasUpper, INVALID, 0, | |||
| cblas_zhbmv(CblasRowMajor, CblasUpper, INVALID, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_zhbmv(CblasRowMajor, CblasUpper, 0, INVALID, | |||
| cblas_zhbmv(CblasRowMajor, CblasUpper, 0, INVALID, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 1, | |||
| cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 1, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0, | |||
| cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0, | |||
| ALPHA, A, 1, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 12; RowMajorStrg = TRUE; | |||
| cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0, | |||
| cblas_zhbmv(CblasRowMajor, CblasUpper, 0, 0, | |||
| ALPHA, A, 1, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_zhpmv",11)==0) { | |||
| cblas_rout = "cblas_zhpmv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_zhpmv(INVALID, CblasUpper, 0, | |||
| cblas_zhpmv(INVALID, CblasUpper, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_zhpmv(CblasColMajor, INVALID, 0, | |||
| cblas_zhpmv(CblasColMajor, INVALID, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_zhpmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_zhpmv(CblasColMajor, CblasUpper, INVALID, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_zhpmv(CblasColMajor, CblasUpper, 0, | |||
| cblas_zhpmv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = FALSE; | |||
| cblas_zhpmv(CblasColMajor, CblasUpper, 0, | |||
| cblas_zhpmv(CblasColMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_zhpmv(CblasRowMajor, INVALID, 0, | |||
| cblas_zhpmv(CblasRowMajor, INVALID, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID, | |||
| ALPHA, A, X, 1, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_zhpmv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_zhpmv(CblasRowMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 0, BETA, Y, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = TRUE; | |||
| cblas_zhpmv(CblasRowMajor, CblasUpper, 0, | |||
| cblas_zhpmv(CblasRowMajor, CblasUpper, 0, | |||
| ALPHA, A, X, 1, BETA, Y, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_ztrmv",11)==0) { | |||
| cblas_rout = "cblas_ztrmv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans, | |||
| cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ztrmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ztrmv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_ztbmv",11)==0) { | |||
| cblas_rout = "cblas_ztbmv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans, | |||
| cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ztbmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ztbmv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = FALSE; | |||
| cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = TRUE; | |||
| cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_ztpmv",11)==0) { | |||
| cblas_rout = "cblas_ztpmv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans, | |||
| cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ztpmv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ztpmv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_ztrsv",11)==0) { | |||
| cblas_rout = "cblas_ztrsv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans, | |||
| cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ztrsv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ztrsv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = FALSE; | |||
| cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = FALSE; | |||
| cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 7; RowMajorStrg = TRUE; | |||
| cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 2, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 9; RowMajorStrg = TRUE; | |||
| cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_ztbsv",11)==0) { | |||
| cblas_rout = "cblas_ztbsv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans, | |||
| cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ztbsv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ztbsv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = FALSE; | |||
| cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, 0, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 6; RowMajorStrg = TRUE; | |||
| cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, INVALID, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 1, A, 1, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 10; RowMajorStrg = TRUE; | |||
| cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, 0, A, 1, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_ztpsv",11)==0) { | |||
| cblas_rout = "cblas_ztpsv"; | |||
| cblas_info = 1; RowMajorStrg = FALSE; | |||
| cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans, | |||
| cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = FALSE; | |||
| cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = FALSE; | |||
| cblas_ztpsv(CblasColMajor, CblasUpper, INVALID, | |||
| cblas_ztpsv(CblasColMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = FALSE; | |||
| cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = FALSE; | |||
| cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = FALSE; | |||
| cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| cblas_info = 2; RowMajorStrg = TRUE; | |||
| cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 3; RowMajorStrg = TRUE; | |||
| cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID, | |||
| cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID, | |||
| CblasNonUnit, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 4; RowMajorStrg = TRUE; | |||
| cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| INVALID, 0, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 5; RowMajorStrg = TRUE; | |||
| cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, INVALID, A, X, 1 ); | |||
| chkxer(); | |||
| cblas_info = 8; RowMajorStrg = TRUE; | |||
| cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, | |||
| CblasNonUnit, 0, A, X, 0 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_zgeru",10)==0) { | |||
| @@ -818,7 +818,7 @@ void F77_z2chke(char *rout) { | |||
| cblas_info = 6; RowMajorStrg = FALSE; | |||
| cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A ); | |||
| chkxer(); | |||
| } | |||
| } | |||
| if (cblas_ok == TRUE) | |||
| printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); | |||
| else | |||
+ 6
- 6
ctest/c_z3chke.c
View File
| @@ -30,7 +30,7 @@ void F77_z3chke(char * rout) { | |||
| B[4] = {0.0,0.0,0.0,0.0}, | |||
| C[4] = {0.0,0.0,0.0,0.0}, | |||
| ALPHA[2] = {0.0,0.0}, | |||
| BETA[2] = {0.0,0.0}, | |||
| BETA[2] = {0.0,0.0}, | |||
| RALPHA = 0.0, RBETA = 0.0; | |||
| extern int cblas_info, cblas_lerr, cblas_ok; | |||
| extern int RowMajorStrg; | |||
| @@ -49,15 +49,15 @@ void F77_z3chke(char * rout) { | |||
| cblas_rout = "cblas_zgemm" ; | |||
| cblas_info = 1; | |||
| cblas_zgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, | |||
| cblas_zgemm( INVALID, CblasNoTrans, CblasNoTrans, 0, 0, 0, | |||
| ALPHA, A, 1, B, 1, BETA, C, 1 ); | |||
| chkxer(); | |||
| cblas_info = 1; | |||
| cblas_zgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, | |||
| cblas_zgemm( INVALID, CblasNoTrans, CblasTrans, 0, 0, 0, | |||
| ALPHA, A, 1, B, 1, BETA, C, 1 ); | |||
| chkxer(); | |||
| cblas_info = 1; | |||
| cblas_zgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, | |||
| cblas_zgemm( INVALID, CblasTrans, CblasNoTrans, 0, 0, 0, | |||
| ALPHA, A, 1, B, 1, BETA, C, 1 ); | |||
| chkxer(); | |||
| cblas_info = 1; | |||
| @@ -272,7 +272,7 @@ void F77_z3chke(char * rout) { | |||
| cblas_zgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, | |||
| ALPHA, A, 1, B, 1, BETA, C, 1 ); | |||
| chkxer(); | |||
| } else if (strncmp( sf,"cblas_zhemm" ,11)==0) { | |||
| cblas_rout = "cblas_zhemm" ; | |||
| @@ -1696,7 +1696,7 @@ void F77_z3chke(char * rout) { | |||
| cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, | |||
| ALPHA, A, 1, B, 1, BETA, C, 1 ); | |||
| chkxer(); | |||
| } | |||
| if (cblas_ok == 1 ) | |||
+ 3
- 3
ctest/c_zblas1.c
View File
| @@ -16,21 +16,21 @@ void F77_zaxpy(const int *N, const void *alpha, void *X, | |||
| return; | |||
| } | |||
| void F77_zcopy(const int *N, void *X, const int *incX, | |||
| void F77_zcopy(const int *N, void *X, const int *incX, | |||
| void *Y, const int *incY) | |||
| { | |||
| cblas_zcopy(*N, X, *incX, Y, *incY); | |||
| return; | |||
| } | |||
| void F77_zdotc(const int *N, const void *X, const int *incX, | |||
| void F77_zdotc(const int *N, const void *X, const int *incX, | |||
| const void *Y, const int *incY,void *dotc) | |||
| { | |||
| cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc); | |||
| return; | |||
| } | |||
| void F77_zdotu(const int *N, void *X, const int *incX, | |||
| void F77_zdotu(const int *N, void *X, const int *incX, | |||
| void *Y, const int *incY,void *dotu) | |||
| { | |||
| cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu); | |||
+ 20
- 20
ctest/c_zblas2.c
View File
| @@ -8,9 +8,9 @@ | |||
| #include "common.h" | |||
| #include "cblas_test.h" | |||
| void F77_zgemv(int *order, char *transp, int *m, int *n, | |||
| void F77_zgemv(int *order, char *transp, int *m, int *n, | |||
| const void *alpha, | |||
| CBLAS_TEST_ZOMPLEX *a, int *lda, const void *x, int *incx, | |||
| CBLAS_TEST_ZOMPLEX *a, int *lda, const void *x, int *incx, | |||
| const void *beta, void *y, int *incy) { | |||
| CBLAS_TEST_ZOMPLEX *A; | |||
| @@ -38,9 +38,9 @@ void F77_zgemv(int *order, char *transp, int *m, int *n, | |||
| *m, *n, alpha, a, *lda, x, *incx, beta, y, *incy ); | |||
| } | |||
| void F77_zgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, | |||
| CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, | |||
| CBLAS_TEST_ZOMPLEX *x, int *incx, | |||
| void F77_zgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, | |||
| CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, | |||
| CBLAS_TEST_ZOMPLEX *x, int *incx, | |||
| CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy) { | |||
| CBLAS_TEST_ZOMPLEX *A; | |||
| @@ -85,8 +85,8 @@ void F77_zgbmv(int *order, char *transp, int *m, int *n, int *kl, int *ku, | |||
| *incx, beta, y, *incy ); | |||
| } | |||
| void F77_zgeru(int *order, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, | |||
| CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy, | |||
| void F77_zgeru(int *order, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, | |||
| CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy, | |||
| CBLAS_TEST_ZOMPLEX *a, int *lda){ | |||
| CBLAS_TEST_ZOMPLEX *A; | |||
| @@ -114,8 +114,8 @@ void F77_zgeru(int *order, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, | |||
| cblas_zgeru( UNDEFINED, *m, *n, alpha, x, *incx, y, *incy, a, *lda ); | |||
| } | |||
| void F77_zgerc(int *order, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, | |||
| CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy, | |||
| void F77_zgerc(int *order, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, | |||
| CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy, | |||
| CBLAS_TEST_ZOMPLEX *a, int *lda) { | |||
| CBLAS_TEST_ZOMPLEX *A; | |||
| int i,j,LDA; | |||
| @@ -165,7 +165,7 @@ void F77_zhemv(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, | |||
| free(A); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_zhemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, | |||
| cblas_zhemv( CblasColMajor, uplo, *n, alpha, a, *lda, x, *incx, | |||
| beta, y, *incy ); | |||
| else | |||
| cblas_zhemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx, | |||
| @@ -173,7 +173,7 @@ void F77_zhemv(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, | |||
| } | |||
| void F77_zhbmv(int *order, char *uplow, int *n, int *k, | |||
| CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, | |||
| CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, | |||
| CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *beta, | |||
| CBLAS_TEST_ZOMPLEX *y, int *incy){ | |||
| @@ -186,7 +186,7 @@ int i,irow,j,jcol,LDA; | |||
| if (*order == TEST_ROW_MJR) { | |||
| if (uplo != CblasUpper && uplo != CblasLower ) | |||
| cblas_zhbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, | |||
| cblas_zhbmv(CblasRowMajor, UNDEFINED, *n, *k, alpha, a, *lda, x, | |||
| *incx, beta, y, *incy ); | |||
| else { | |||
| LDA = *k+2; | |||
| @@ -237,7 +237,7 @@ int i,irow,j,jcol,LDA; | |||
| } | |||
| void F77_zhpmv(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, | |||
| CBLAS_TEST_ZOMPLEX *ap, CBLAS_TEST_ZOMPLEX *x, int *incx, | |||
| CBLAS_TEST_ZOMPLEX *ap, CBLAS_TEST_ZOMPLEX *x, int *incx, | |||
| CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy){ | |||
| CBLAS_TEST_ZOMPLEX *A, *AP; | |||
| @@ -247,7 +247,7 @@ void F77_zhpmv(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, | |||
| get_uplo_type(uplow,&uplo); | |||
| if (*order == TEST_ROW_MJR) { | |||
| if (uplo != CblasUpper && uplo != CblasLower ) | |||
| cblas_zhpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, | |||
| cblas_zhpmv(CblasRowMajor, UNDEFINED, *n, alpha, ap, x, *incx, | |||
| beta, y, *incy); | |||
| else { | |||
| LDA = *n; | |||
| @@ -344,7 +344,7 @@ void F77_ztbmv(int *order, char *uplow, char *transp, char *diagn, | |||
| } | |||
| } | |||
| } | |||
| cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, | |||
| cblas_ztbmv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, x, | |||
| *incx); | |||
| free(A); | |||
| } | |||
| @@ -371,7 +371,7 @@ void F77_ztbsv(int *order, char *uplow, char *transp, char *diagn, | |||
| if (*order == TEST_ROW_MJR) { | |||
| if (uplo != CblasUpper && uplo != CblasLower ) | |||
| cblas_ztbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, | |||
| cblas_ztbsv(CblasRowMajor, UNDEFINED, trans, diag, *n, *k, a, *lda, x, | |||
| *incx); | |||
| else { | |||
| LDA = *k+2; | |||
| @@ -408,7 +408,7 @@ void F77_ztbsv(int *order, char *uplow, char *transp, char *diagn, | |||
| } | |||
| } | |||
| } | |||
| cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, | |||
| cblas_ztbsv(CblasRowMajor, uplo, trans, diag, *n, *k, A, LDA, | |||
| x, *incx); | |||
| free(A); | |||
| } | |||
| @@ -674,7 +674,7 @@ void F77_zhpr2(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, | |||
| if (*order == TEST_ROW_MJR) { | |||
| if (uplo != CblasUpper && uplo != CblasLower ) | |||
| cblas_zhpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, | |||
| cblas_zhpr2( CblasRowMajor, UNDEFINED, *n, alpha, x, *incx, y, | |||
| *incy, ap ); | |||
| else { | |||
| LDA = *n; | |||
| @@ -752,7 +752,7 @@ void F77_zher(int *order, char *uplow, int *n, double *alpha, | |||
| LDA = *n+1; | |||
| A=(CBLAS_TEST_ZOMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_ZOMPLEX )); | |||
| for( i=0; i<*n; i++ ) | |||
| for( i=0; i<*n; i++ ) | |||
| for( j=0; j<*n; j++ ) { | |||
| A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; | |||
| A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; | |||
| @@ -786,7 +786,7 @@ void F77_zher2(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha, | |||
| LDA = *n+1; | |||
| A= ( CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) ); | |||
| for( i=0; i<*n; i++ ) | |||
| for( i=0; i<*n; i++ ) | |||
| for( j=0; j<*n; j++ ) { | |||
| A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; | |||
| A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; | |||
+ 30
- 30
ctest/c_zblas3.c
View File
| @@ -11,9 +11,9 @@ | |||
| #define TEST_ROW_MJR 1 | |||
| #define UNDEFINED -1 | |||
| void F77_zgemm(int *order, char *transpa, char *transpb, int *m, int *n, | |||
| void F77_zgemm(int *order, char *transpa, char *transpb, int *m, int *n, | |||
| int *k, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, | |||
| CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta, | |||
| CBLAS_TEST_ZOMPLEX *b, int *ldb, CBLAS_TEST_ZOMPLEX *beta, | |||
| CBLAS_TEST_ZOMPLEX *c, int *ldc ) { | |||
| CBLAS_TEST_ZOMPLEX *A, *B, *C; | |||
| @@ -133,7 +133,7 @@ void F77_zhemm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| C[i*LDC+j].real=c[j*(*ldc)+i].real; | |||
| C[i*LDC+j].imag=c[j*(*ldc)+i].imag; | |||
| } | |||
| cblas_zhemm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, | |||
| cblas_zhemm( 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++ ) { | |||
| @@ -145,10 +145,10 @@ void F77_zhemm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_zhemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, | |||
| cblas_zhemm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, | |||
| beta, c, *ldc ); | |||
| else | |||
| cblas_zhemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, | |||
| cblas_zhemm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, | |||
| beta, c, *ldc ); | |||
| } | |||
| void F77_zsymm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| @@ -189,7 +189,7 @@ void F77_zsymm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*m; i++ ) | |||
| C[i*LDC+j]=c[j*(*ldc)+i]; | |||
| cblas_zsymm( CblasRowMajor, side, uplo, *m, *n, alpha, A, LDA, B, LDB, | |||
| cblas_zsymm( 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++ ) | |||
| @@ -199,15 +199,15 @@ void F77_zsymm(int *order, char *rtlf, char *uplow, int *m, int *n, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_zsymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, | |||
| cblas_zsymm( CblasColMajor, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, | |||
| beta, c, *ldc ); | |||
| else | |||
| cblas_zsymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, | |||
| cblas_zsymm( UNDEFINED, side, uplo, *m, *n, alpha, a, *lda, b, *ldb, | |||
| beta, c, *ldc ); | |||
| } | |||
| void F77_zherk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| double *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, | |||
| double *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, | |||
| double *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) { | |||
| int i,j,LDA,LDC; | |||
| @@ -244,7 +244,7 @@ void F77_zherk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| C[i*LDC+j].real=c[j*(*ldc)+i].real; | |||
| C[i*LDC+j].imag=c[j*(*ldc)+i].imag; | |||
| } | |||
| cblas_zherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, | |||
| cblas_zherk(CblasRowMajor, uplo, trans, *n, *k, *alpha, A, LDA, *beta, | |||
| C, LDC ); | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*n; i++ ) { | |||
| @@ -255,15 +255,15 @@ void F77_zherk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_zherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| cblas_zherk(CblasColMajor, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| c, *ldc ); | |||
| else | |||
| cblas_zherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| cblas_zherk(UNDEFINED, uplo, trans, *n, *k, *alpha, a, *lda, *beta, | |||
| c, *ldc ); | |||
| } | |||
| void F77_zsyrk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, | |||
| CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda, | |||
| CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) { | |||
| int i,j,LDA,LDC; | |||
| @@ -300,7 +300,7 @@ void F77_zsyrk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| C[i*LDC+j].real=c[j*(*ldc)+i].real; | |||
| C[i*LDC+j].imag=c[j*(*ldc)+i].imag; | |||
| } | |||
| cblas_zsyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, | |||
| cblas_zsyrk(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, beta, | |||
| C, LDC ); | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*n; i++ ) { | |||
| @@ -311,10 +311,10 @@ void F77_zsyrk(int *order, char *uplow, char *transp, int *n, int *k, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_zsyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, | |||
| cblas_zsyrk(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, beta, | |||
| c, *ldc ); | |||
| else | |||
| cblas_zsyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, | |||
| cblas_zsyrk(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, beta, | |||
| c, *ldc ); | |||
| } | |||
| void F77_zher2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| @@ -363,7 +363,7 @@ void F77_zher2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| C[i*LDC+j].real=c[j*(*ldc)+i].real; | |||
| C[i*LDC+j].imag=c[j*(*ldc)+i].imag; | |||
| } | |||
| cblas_zher2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, | |||
| cblas_zher2k(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++ ) { | |||
| @@ -375,10 +375,10 @@ void F77_zher2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_zher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, | |||
| cblas_zher2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, | |||
| b, *ldb, *beta, c, *ldc ); | |||
| else | |||
| cblas_zher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, | |||
| cblas_zher2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, | |||
| b, *ldb, *beta, c, *ldc ); | |||
| } | |||
| void F77_zsyr2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| @@ -427,7 +427,7 @@ void F77_zsyr2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| C[i*LDC+j].real=c[j*(*ldc)+i].real; | |||
| C[i*LDC+j].imag=c[j*(*ldc)+i].imag; | |||
| } | |||
| cblas_zsyr2k(CblasRowMajor, uplo, trans, *n, *k, alpha, A, LDA, | |||
| cblas_zsyr2k(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++ ) { | |||
| @@ -439,14 +439,14 @@ void F77_zsyr2k(int *order, char *uplow, char *transp, int *n, int *k, | |||
| free(C); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_zsyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, | |||
| cblas_zsyr2k(CblasColMajor, uplo, trans, *n, *k, alpha, a, *lda, | |||
| b, *ldb, beta, c, *ldc ); | |||
| else | |||
| cblas_zsyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, | |||
| cblas_zsyr2k(UNDEFINED, uplo, trans, *n, *k, alpha, a, *lda, | |||
| b, *ldb, beta, c, *ldc ); | |||
| } | |||
| void F77_ztrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, | |||
| int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, | |||
| int *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) { | |||
| int i,j,LDA,LDB; | |||
| CBLAS_TEST_ZOMPLEX *A, *B; | |||
| @@ -486,7 +486,7 @@ void F77_ztrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| B[i*LDB+j].real=b[j*(*ldb)+i].real; | |||
| B[i*LDB+j].imag=b[j*(*ldb)+i].imag; | |||
| } | |||
| cblas_ztrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, | |||
| cblas_ztrmm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, | |||
| A, LDA, B, LDB ); | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*m; i++ ) { | |||
| @@ -497,15 +497,15 @@ void F77_ztrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| free(B); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_ztrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, | |||
| cblas_ztrmm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, | |||
| a, *lda, b, *ldb); | |||
| else | |||
| cblas_ztrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, | |||
| cblas_ztrmm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, | |||
| a, *lda, b, *ldb); | |||
| } | |||
| void F77_ztrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, | |||
| int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, CBLAS_TEST_ZOMPLEX *a, | |||
| int *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) { | |||
| int i,j,LDA,LDB; | |||
| CBLAS_TEST_ZOMPLEX *A, *B; | |||
| @@ -545,7 +545,7 @@ void F77_ztrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| B[i*LDB+j].real=b[j*(*ldb)+i].real; | |||
| B[i*LDB+j].imag=b[j*(*ldb)+i].imag; | |||
| } | |||
| cblas_ztrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, | |||
| cblas_ztrsm(CblasRowMajor, side, uplo, trans, diag, *m, *n, alpha, | |||
| A, LDA, B, LDB ); | |||
| for( j=0; j<*n; j++ ) | |||
| for( i=0; i<*m; i++ ) { | |||
| @@ -556,9 +556,9 @@ void F77_ztrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, | |||
| free(B); | |||
| } | |||
| else if (*order == TEST_COL_MJR) | |||
| cblas_ztrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, | |||
| cblas_ztrsm(CblasColMajor, side, uplo, trans, diag, *m, *n, alpha, | |||
| a, *lda, b, *ldb); | |||
| else | |||
| cblas_ztrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, | |||
| cblas_ztrsm(UNDEFINED, side, uplo, trans, diag, *m, *n, alpha, | |||
| a, *lda, b, *ldb); | |||
| } | |||
+ 13
- 13
ctest/c_zblat2.f
View File
| @@ -69,7 +69,7 @@ | |||
| INTEGER NSUBS | |||
| PARAMETER ( NSUBS = 17 ) | |||
| COMPLEX*16 ZERO, ONE | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| $ ONE = ( 1.0D0, 0.0D0 ) ) | |||
| DOUBLE PRECISION RZERO, RHALF, RONE | |||
| PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 ) | |||
| @@ -348,13 +348,13 @@ | |||
| 160 IF (CORDER) THEN | |||
| CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, | |||
| $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, | |||
| $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, | |||
| $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, | |||
| $ 0 ) | |||
| END IF | |||
| IF (RORDER) THEN | |||
| CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, | |||
| $ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, | |||
| $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, | |||
| $ NMAX, INCMAX, A, AA, AS, Y, YY, YS, YT, G, Z, | |||
| $ 1 ) | |||
| END IF | |||
| GO TO 200 | |||
| @@ -474,7 +474,7 @@ | |||
| * | |||
| * .. Parameters .. | |||
| COMPLEX*16 ZERO, HALF | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| $ HALF = ( 0.5D0, 0.0D0 ) ) | |||
| DOUBLE PRECISION RZERO | |||
| PARAMETER ( RZERO = 0.0D0 ) | |||
| @@ -582,7 +582,7 @@ | |||
| CTRANS = ' CblasNoTrans' | |||
| ELSE IF (TRANS.EQ.'T')THEN | |||
| CTRANS = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTRANS = 'CblasConjTrans' | |||
| END IF | |||
| TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' | |||
| @@ -685,7 +685,7 @@ | |||
| * | |||
| * See what data changed inside subroutines. | |||
| * | |||
| * IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN | |||
| * IF(TRANS .NE. 'C' .OR. (INCX .GT. 0 .AND. INCY .GT. 0)) THEN | |||
| ISAME( 1 ) = TRANS.EQ.TRANSS | |||
| ISAME( 2 ) = MS.EQ.M | |||
| ISAME( 3 ) = NS.EQ.N | |||
| @@ -927,7 +927,7 @@ | |||
| UPLO = ICH( IC: IC ) | |||
| IF (UPLO.EQ.'U')THEN | |||
| CUPLO = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CUPLO = ' CblasLower' | |||
| END IF | |||
| * | |||
| @@ -1287,7 +1287,7 @@ | |||
| UPLO = ICHU( ICU: ICU ) | |||
| IF (UPLO.EQ.'U')THEN | |||
| CUPLO = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CUPLO = ' CblasLower' | |||
| END IF | |||
| * | |||
| @@ -1297,7 +1297,7 @@ | |||
| CTRANS = ' CblasNoTrans' | |||
| ELSE IF (TRANS.EQ.'T')THEN | |||
| CTRANS = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTRANS = 'CblasConjTrans' | |||
| END IF | |||
| * | |||
| @@ -1569,7 +1569,7 @@ | |||
| * | |||
| * .. Parameters .. | |||
| COMPLEX*16 ZERO, HALF, ONE | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| $ HALF = ( 0.5D0, 0.0D0 ), | |||
| $ ONE = ( 1.0D0, 0.0D0 ) ) | |||
| DOUBLE PRECISION RZERO | |||
| @@ -1847,7 +1847,7 @@ | |||
| * | |||
| * .. Parameters .. | |||
| COMPLEX*16 ZERO, HALF, ONE | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| $ HALF = ( 0.5D0, 0.0D0 ), | |||
| $ ONE = ( 1.0D0, 0.0D0 ) ) | |||
| DOUBLE PRECISION RZERO | |||
| @@ -2141,7 +2141,7 @@ | |||
| * | |||
| * .. Parameters .. | |||
| COMPLEX*16 ZERO, HALF, ONE | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| $ HALF = ( 0.5D0, 0.0D0 ), | |||
| $ ONE = ( 1.0D0, 0.0D0 ) ) | |||
| DOUBLE PRECISION RZERO | |||
| @@ -2762,7 +2762,7 @@ | |||
| * | |||
| * .. Parameters .. | |||
| COMPLEX*16 ZERO, ONE | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| $ ONE = ( 1.0D0, 0.0D0 ) ) | |||
| COMPLEX*16 ROGUE | |||
| PARAMETER ( ROGUE = ( -1.0D10, 1.0D10 ) ) | |||
+ 40
- 40
ctest/c_zblat3.f
View File
| @@ -51,7 +51,7 @@ | |||
| INTEGER NSUBS | |||
| PARAMETER ( NSUBS = 9 ) | |||
| COMPLEX*16 ZERO, ONE | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), | |||
| $ ONE = ( 1.0D0, 0.0D0 ) ) | |||
| DOUBLE PRECISION RZERO, RHALF, RONE | |||
| PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 ) | |||
| @@ -425,7 +425,7 @@ | |||
| END | |||
| SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, | |||
| $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, | |||
| $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, | |||
| $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, | |||
| $ IORDER ) | |||
| * | |||
| * Tests ZGEMM. | |||
| @@ -601,7 +601,7 @@ | |||
| IF( REWI ) | |||
| $ REWIND NTRA | |||
| CALL CZGEMM( IORDER, TRANSA, TRANSB, M, N, | |||
| $ K, ALPHA, AA, LDA, BB, LDB, | |||
| $ K, ALPHA, AA, LDA, BB, LDB, | |||
| $ BETA, CC, LDC ) | |||
| * | |||
| * Check if error-exit was taken incorrectly. | |||
| @@ -689,7 +689,7 @@ | |||
| * | |||
| 120 CONTINUE | |||
| WRITE( NOUT, FMT = 9996 )SNAME | |||
| CALL ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, | |||
| CALL ZPRCN1(NOUT, NC, SNAME, IORDER, TRANSA, TRANSB, | |||
| $ M, N, K, ALPHA, LDA, LDB, BETA, LDC) | |||
| * | |||
| 130 CONTINUE | |||
| @@ -725,24 +725,24 @@ | |||
| CHARACTER*1 TRANSA, TRANSB | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CTA,CTB | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CTA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CTA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTA = 'CblasConjTrans' | |||
| END IF | |||
| IF (TRANSB.EQ.'N')THEN | |||
| CTB = ' CblasNoTrans' | |||
| ELSE IF (TRANSB.EQ.'T')THEN | |||
| CTB = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CTB = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB | |||
| @@ -755,7 +755,7 @@ | |||
| * | |||
| SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, | |||
| $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, | |||
| $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, | |||
| $ A, AA, AS, B, BB, BS, C, CC, CS, CT, G, | |||
| $ IORDER ) | |||
| * | |||
| * Tests ZHEMM and ZSYMM. | |||
| @@ -911,9 +911,9 @@ | |||
| * Call the subroutine. | |||
| * | |||
| IF( TRACE ) | |||
| $ CALL ZPRCN2(NTRA, NC, SNAME, IORDER, | |||
| $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, | |||
| $ BETA, LDC) | |||
| $ CALL ZPRCN2(NTRA, NC, SNAME, IORDER, | |||
| $ SIDE, UPLO, M, N, ALPHA, LDA, LDB, | |||
| $ BETA, LDC) | |||
| IF( REWI ) | |||
| $ REWIND NTRA | |||
| IF( CONJ )THEN | |||
| @@ -1016,7 +1016,7 @@ | |||
| 110 CONTINUE | |||
| WRITE( NOUT, FMT = 9996 )SNAME | |||
| CALL ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, | |||
| $ LDB, BETA, LDC) | |||
| $ LDB, BETA, LDC) | |||
| * | |||
| 120 CONTINUE | |||
| RETURN | |||
| @@ -1051,20 +1051,20 @@ | |||
| CHARACTER*1 SIDE, UPLO | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CS,CU | |||
| IF (SIDE.EQ.'L')THEN | |||
| CS = ' CblasLeft' | |||
| ELSE | |||
| ELSE | |||
| CS = ' CblasRight' | |||
| END IF | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU | |||
| @@ -1402,22 +1402,22 @@ | |||
| CHARACTER*1 SIDE, UPLO, TRANSA, DIAG | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CS, CU, CA, CD | |||
| IF (SIDE.EQ.'L')THEN | |||
| CS = ' CblasLeft' | |||
| ELSE | |||
| ELSE | |||
| CS = ' CblasRight' | |||
| END IF | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (DIAG.EQ.'N')THEN | |||
| @@ -1427,7 +1427,7 @@ | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU | |||
| @@ -1788,22 +1788,22 @@ | |||
| CHARACTER*1 UPLO, TRANSA | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CU, CA | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA | |||
| @@ -1822,29 +1822,29 @@ | |||
| CHARACTER*1 UPLO, TRANSA | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CU, CA | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA | |||
| WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC | |||
| 9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) | |||
| 9994 FORMAT( 10X, 2( I3, ',' ), | |||
| 9994 FORMAT( 10X, 2( I3, ',' ), | |||
| $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' ) | |||
| END | |||
| * | |||
| @@ -2041,7 +2041,7 @@ | |||
| IF( REWI ) | |||
| $ REWIND NTRA | |||
| CALL CZSYR2K( IORDER, UPLO, TRANS, N, K, | |||
| $ ALPHA, AA, LDA, BB, LDB, BETA, | |||
| $ ALPHA, AA, LDA, BB, LDB, BETA, | |||
| $ CC, LDC ) | |||
| END IF | |||
| * | |||
| @@ -2241,22 +2241,22 @@ | |||
| CHARACTER*1 UPLO, TRANSA | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CU, CA | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA | |||
| @@ -2276,22 +2276,22 @@ | |||
| CHARACTER*1 UPLO, TRANSA | |||
| CHARACTER*12 SNAME | |||
| CHARACTER*14 CRC, CU, CA | |||
| IF (UPLO.EQ.'U')THEN | |||
| CU = ' CblasUpper' | |||
| ELSE | |||
| ELSE | |||
| CU = ' CblasLower' | |||
| END IF | |||
| IF (TRANSA.EQ.'N')THEN | |||
| CA = ' CblasNoTrans' | |||
| ELSE IF (TRANSA.EQ.'T')THEN | |||
| CA = ' CblasTrans' | |||
| ELSE | |||
| ELSE | |||
| CA = 'CblasConjTrans' | |||
| END IF | |||
| IF (IORDER.EQ.1)THEN | |||
| CRC = ' CblasRowMajor' | |||
| ELSE | |||
| ELSE | |||
| CRC = ' CblasColMajor' | |||
| END IF | |||
| WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA | |||
+ 1065
- 1065
driver/level2/Makefile
File diff suppressed because it is too large
View File
+ 2
- 2
driver/level2/gbmv_k.c
View File
| @@ -84,12 +84,12 @@ void CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT alpha, | |||
| #ifndef TRANS | |||
| AXPYU_K(length, 0, 0, | |||
| alpha * X[i], | |||
| alpha * X[i], | |||
| a + start, 1, Y + start - offset_u, 1, NULL, 0); | |||
| #else | |||
| Y[i] += alpha * DOTU_K(length, a + start, 1, X + start - offset_u, 1); | |||
| #endif | |||
| offset_u --; | |||
| offset_l --; | |||
+ 16
- 16
driver/level2/gbmv_thread.c
View File
| @@ -105,13 +105,13 @@ static int gbmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F | |||
| args -> m, | |||
| #else | |||
| args -> n, | |||
| #endif | |||
| 0, 0, ZERO, | |||
| #endif | |||
| 0, 0, ZERO, | |||
| #ifdef COMPLEX | |||
| ZERO, | |||
| #endif | |||
| y, 1, NULL, 0, NULL, 0); | |||
| y, 1, NULL, 0, NULL, 0); | |||
| offset_u = ku - n_from; | |||
| offset_l = ku - n_from + args -> m; | |||
| @@ -157,7 +157,7 @@ static int gbmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F | |||
| x += COMPSIZE; | |||
| #endif | |||
| y += COMPSIZE; | |||
| offset_u --; | |||
| @@ -190,7 +190,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT | |||
| int mode = BLAS_DOUBLE | BLAS_REAL; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_REAL; | |||
| #endif | |||
| #endif | |||
| #else | |||
| #ifdef XDOUBLE | |||
| int mode = BLAS_XDOUBLE | BLAS_COMPLEX; | |||
| @@ -198,27 +198,27 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT | |||
| int mode = BLAS_DOUBLE | BLAS_COMPLEX; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_COMPLEX; | |||
| #endif | |||
| #endif | |||
| #endif | |||
| #endif | |||
| args.m = m; | |||
| args.n = n; | |||
| args.a = (void *)a; | |||
| args.b = (void *)x; | |||
| args.c = (void *)buffer; | |||
| args.lda = lda; | |||
| args.ldb = incx; | |||
| args.ldc = ku; | |||
| args.ldd = kl; | |||
| num_cpu = 0; | |||
| range_n[0] = 0; | |||
| i = n; | |||
| while (i > 0){ | |||
| width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); | |||
| @@ -227,7 +227,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT | |||
| if (i < width) width = i; | |||
| range_n[num_cpu + 1] = range_n[num_cpu] + width; | |||
| #ifndef TRANSA | |||
| range_m[num_cpu] = num_cpu * ((m + 15) & ~15); | |||
| #else | |||
| @@ -242,7 +242,7 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i -= width; | |||
| } | |||
| @@ -254,12 +254,12 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT | |||
| #else | |||
| queue[0].sb = buffer + num_cpu * (((n + 255) & ~255) + 16) * COMPSIZE; | |||
| #endif | |||
| queue[num_cpu - 1].next = NULL; | |||
| exec_blas(num_cpu, queue); | |||
| } | |||
| for (i = 1; i < num_cpu; i ++) { | |||
| AXPYU_K( | |||
| #ifndef TRANSA | |||
+ 11
- 11
driver/level2/gemv_thread.c
View File
| @@ -110,7 +110,7 @@ static int gemv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F | |||
| *((FLOAT *)args -> alpha + 1), | |||
| #endif | |||
| a, lda, x, incx, y, incy, buffer); | |||
| return 0; | |||
| } | |||
| @@ -134,7 +134,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| int mode = BLAS_DOUBLE | BLAS_REAL; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_REAL; | |||
| #endif | |||
| #endif | |||
| #else | |||
| #ifdef XDOUBLE | |||
| int mode = BLAS_XDOUBLE | BLAS_COMPLEX; | |||
| @@ -142,17 +142,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| int mode = BLAS_DOUBLE | BLAS_COMPLEX; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_COMPLEX; | |||
| #endif | |||
| #endif | |||
| #endif | |||
| #endif | |||
| args.m = m; | |||
| args.n = n; | |||
| args.a = (void *)a; | |||
| args.b = (void *)x; | |||
| args.c = (void *)y; | |||
| args.lda = lda; | |||
| args.ldb = incx; | |||
| args.ldc = incy; | |||
| @@ -164,14 +164,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| #endif | |||
| num_cpu = 0; | |||
| range[0] = 0; | |||
| #ifndef TRANSA | |||
| i = m; | |||
| #else | |||
| i = n; | |||
| #endif | |||
| while (i > 0){ | |||
| width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); | |||
| @@ -179,7 +179,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| if (i < width) width = i; | |||
| range[num_cpu + 1] = range[num_cpu] + width; | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = gemv_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -193,7 +193,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i -= width; | |||
| } | |||
| @@ -202,9 +202,9 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| queue[0].sa = NULL; | |||
| queue[0].sb = buffer; | |||
| queue[num_cpu - 1].next = NULL; | |||
| exec_blas(num_cpu, queue); | |||
| } | |||
| return 0; | |||
| } | |||
+ 14
- 14
driver/level2/ger_thread.c
View File
| @@ -102,7 +102,7 @@ static int ger_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| #endif | |||
| #endif | |||
| x, 1, a, 1, NULL, 0); | |||
| y += incy * COMPSIZE; | |||
| a += lda * COMPSIZE; | |||
| } | |||
| @@ -130,7 +130,7 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT * | |||
| int mode = BLAS_DOUBLE | BLAS_REAL; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_REAL; | |||
| #endif | |||
| #endif | |||
| #else | |||
| #ifdef XDOUBLE | |||
| int mode = BLAS_XDOUBLE | BLAS_COMPLEX; | |||
| @@ -138,17 +138,17 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT * | |||
| int mode = BLAS_DOUBLE | BLAS_COMPLEX; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_COMPLEX; | |||
| #endif | |||
| #endif | |||
| #endif | |||
| #endif | |||
| args.m = m; | |||
| args.n = n; | |||
| args.a = (void *)x; | |||
| args.b = (void *)y; | |||
| args.c = (void *)a; | |||
| args.lda = incx; | |||
| args.ldb = incy; | |||
| args.ldc = lda; | |||
| @@ -160,18 +160,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT * | |||
| #endif | |||
| num_cpu = 0; | |||
| range_n[0] = 0; | |||
| i = n; | |||
| while (i > 0){ | |||
| width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); | |||
| if (width < 4) width = 4; | |||
| if (i < width) width = i; | |||
| range_n[num_cpu + 1] = range_n[num_cpu] + width; | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = ger_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -179,19 +179,19 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT * | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i -= width; | |||
| } | |||
| if (num_cpu) { | |||
| queue[0].sa = NULL; | |||
| queue[0].sb = buffer; | |||
| queue[num_cpu - 1].next = NULL; | |||
| exec_blas(num_cpu, queue); | |||
| } | |||
| return 0; | |||
| } | |||
+ 3
- 3
driver/level2/sbmv_k.c
View File
| @@ -72,7 +72,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha, | |||
| if (length > k) length = k; | |||
| AXPYU_K(length + 1, 0, 0, | |||
| alpha * X[i], | |||
| alpha * X[i], | |||
| a + k - length, 1, Y + i - length, 1, NULL, 0); | |||
| Y[i] += alpha * DOTU_K(length, a + k - length, 1, X + i - length, 1); | |||
| #else | |||
| @@ -80,11 +80,11 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha, | |||
| if (n - i - 1 < k) length = n - i - 1; | |||
| AXPYU_K(length + 1, 0, 0, | |||
| alpha * X[i], | |||
| alpha * X[i], | |||
| a, 1, Y + i, 1, NULL, 0); | |||
| Y[i] += alpha * DOTU_K(length, a + 1, 1, X + i + 1, 1); | |||
| #endif | |||
| a += lda; | |||
| } | |||
+ 40
- 40
driver/level2/sbmv_thread.c
View File
| @@ -76,7 +76,7 @@ static int sbmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F | |||
| n_to = n; | |||
| //Use y as each thread's n* COMPSIZE elements in sb buffer | |||
| y = buffer; | |||
| y = buffer; | |||
| buffer += ((COMPSIZE * n + 1023) & ~1023); | |||
| if (range_m) { | |||
| @@ -94,12 +94,12 @@ static int sbmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F | |||
| buffer += ((COMPSIZE * n + 1023) & ~1023); | |||
| } | |||
| SCAL_K(n, 0, 0, ZERO, | |||
| SCAL_K(n, 0, 0, ZERO, | |||
| #ifdef COMPLEX | |||
| ZERO, | |||
| #endif | |||
| y, 1, NULL, 0, NULL, 0); | |||
| y, 1, NULL, 0, NULL, 0); | |||
| for (i = n_from; i < n_to; i++) { | |||
| #ifndef LOWER | |||
| @@ -193,7 +193,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| int mode = BLAS_DOUBLE | BLAS_REAL; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_REAL; | |||
| #endif | |||
| #endif | |||
| #else | |||
| #ifdef XDOUBLE | |||
| int mode = BLAS_XDOUBLE | BLAS_COMPLEX; | |||
| @@ -201,52 +201,52 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| int mode = BLAS_DOUBLE | BLAS_COMPLEX; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_COMPLEX; | |||
| #endif | |||
| #endif | |||
| #endif | |||
| #endif | |||
| args.n = n; | |||
| args.k = k; | |||
| args.a = (void *)a; | |||
| args.b = (void *)x; | |||
| args.c = (void *)buffer; | |||
| args.lda = lda; | |||
| args.ldb = incx; | |||
| args.ldc = incy; | |||
| dnum = (double)n * (double)n / (double)nthreads; | |||
| num_cpu = 0; | |||
| if (n < 2 * k) { | |||
| #ifndef LOWER | |||
| range_m[MAX_CPU_NUMBER] = n; | |||
| i = 0; | |||
| while (i < n){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(n - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| } else { | |||
| width = n - i; | |||
| } | |||
| if (width < 16) width = 16; | |||
| if (width > n - i) width = n - i; | |||
| } else { | |||
| width = n - i; | |||
| } | |||
| range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; | |||
| range_n[num_cpu] = num_cpu * (((n + 15) & ~15) + 16); | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = sbmv_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -255,37 +255,37 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| #else | |||
| range_m[0] = 0; | |||
| i = 0; | |||
| while (i < n){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(n - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| } else { | |||
| width = n - i; | |||
| } | |||
| if (width < 16) width = 16; | |||
| if (width > n - i) width = n - i; | |||
| } else { | |||
| width = n - i; | |||
| } | |||
| range_m[num_cpu + 1] = range_m[num_cpu] + width; | |||
| range_n[num_cpu] = num_cpu * (((n + 15) & ~15) + 16); | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = sbmv_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -294,29 +294,29 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| #endif | |||
| } else { | |||
| range_m[0] = 0; | |||
| i = n; | |||
| while (i > 0){ | |||
| width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); | |||
| if (width < 4) width = 4; | |||
| if (i < width) width = i; | |||
| range_m[num_cpu + 1] = range_m[num_cpu] + width; | |||
| range_n[num_cpu] = num_cpu * ((n + 15) & ~15); | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = sbmv_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -325,7 +325,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i -= width; | |||
| } | |||
| @@ -335,10 +335,10 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| queue[0].sa = NULL; | |||
| queue[0].sb = buffer; | |||
| queue[num_cpu - 1].next = NULL; | |||
| exec_blas(num_cpu, queue); | |||
| } | |||
| for (i = 1; i < num_cpu; i ++) { | |||
| AXPYU_K(n, 0, 0, | |||
| #ifndef COMPLEX | |||
| @@ -356,6 +356,6 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x | |||
| alpha[0], alpha[1], | |||
| #endif | |||
| buffer, 1, y, incy, NULL, 0); | |||
| return 0; | |||
| } | |||
+ 1
- 1
driver/level2/spmv_k.c
View File
| @@ -68,7 +68,7 @@ int CNAME(BLASLONG m, FLOAT alpha, FLOAT *a, | |||
| if (i > 0) Y[i] += alpha * DOTU_K(i, a, 1, X, 1); | |||
| AXPYU_K(i + 1, 0, 0, alpha * X[i], a, 1, Y, 1, NULL, 0); | |||
| a += i + 1; | |||
| #else | |||
| Y[i] += alpha * DOTU_K(m - i, a + i, 1, X + i, 1); | |||
| if (m - i > 1) AXPYU_K(m - i - 1, 0, 0, alpha * X[i], | |||
+ 39
- 39
driver/level2/spmv_thread.c
View File
| @@ -91,17 +91,17 @@ static int spmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F | |||
| } | |||
| #ifndef LOWER | |||
| SCAL_K(m_to, 0, 0, ZERO, | |||
| SCAL_K(m_to, 0, 0, ZERO, | |||
| #ifdef COMPLEX | |||
| ZERO, | |||
| #endif | |||
| y, 1, NULL, 0, NULL, 0); | |||
| y, 1, NULL, 0, NULL, 0); | |||
| #else | |||
| SCAL_K(args -> m - m_from, 0, 0, ZERO, | |||
| SCAL_K(args -> m - m_from, 0, 0, ZERO, | |||
| #ifdef COMPLEX | |||
| ZERO, | |||
| #endif | |||
| y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); | |||
| y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); | |||
| #endif | |||
| #ifndef LOWER | |||
| @@ -139,7 +139,7 @@ static int spmv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F | |||
| a, 1, y, 1, NULL, 0); | |||
| a += (i + 1) * COMPSIZE; | |||
| #else | |||
| #if !defined(HEMV) && !defined(HEMVREV) | |||
| result = MYDOT(args -> m - i , a + i * COMPSIZE, 1, x + i * COMPSIZE, 1); | |||
| @@ -198,7 +198,7 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, | |||
| int mode = BLAS_DOUBLE | BLAS_REAL; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_REAL; | |||
| #endif | |||
| #endif | |||
| #else | |||
| #ifdef XDOUBLE | |||
| int mode = BLAS_XDOUBLE | BLAS_COMPLEX; | |||
| @@ -206,31 +206,31 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, | |||
| int mode = BLAS_DOUBLE | BLAS_COMPLEX; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_COMPLEX; | |||
| #endif | |||
| #endif | |||
| #endif | |||
| #endif | |||
| args.m = m; | |||
| args.a = (void *)a; | |||
| args.b = (void *)x; | |||
| args.c = (void *)buffer; | |||
| args.ldb = incx; | |||
| args.ldc = incy; | |||
| dnum = (double)m * (double)m / (double)nthreads; | |||
| num_cpu = 0; | |||
| #ifndef LOWER | |||
| range_m[MAX_CPU_NUMBER] = m; | |||
| i = 0; | |||
| while (i < m){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(m - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| @@ -240,14 +240,14 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, | |||
| if (width < 16) width = 16; | |||
| if (width > m - i) width = m - i; | |||
| } else { | |||
| width = m - i; | |||
| } | |||
| range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; | |||
| range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = spmv_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -256,20 +256,20 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| #else | |||
| range_m[0] = 0; | |||
| i = 0; | |||
| while (i < m){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(m - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| @@ -279,14 +279,14 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, | |||
| if (width < 16) width = 16; | |||
| if (width > m - i) width = m - i; | |||
| } else { | |||
| width = m - i; | |||
| } | |||
| range_m[num_cpu + 1] = range_m[num_cpu] + width; | |||
| range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = spmv_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -295,44 +295,44 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| #endif | |||
| if (num_cpu) { | |||
| queue[0].sa = NULL; | |||
| queue[0].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE; | |||
| queue[num_cpu - 1].next = NULL; | |||
| exec_blas(num_cpu, queue); | |||
| } | |||
| for (i = 1; i < num_cpu; i ++) { | |||
| #ifndef LOWER | |||
| AXPYU_K(range_m[MAX_CPU_NUMBER - i], 0, 0, ONE, | |||
| #ifdef COMPLEX | |||
| ZERO, | |||
| ZERO, | |||
| #endif | |||
| buffer + range_n[i] * COMPSIZE, 1, buffer, 1, NULL, 0); | |||
| #else | |||
| AXPYU_K(m - range_m[i], 0, 0, ONE, | |||
| #ifdef COMPLEX | |||
| ZERO, | |||
| ZERO, | |||
| #endif | |||
| buffer + (range_n[i] + range_m[i]) * COMPSIZE, 1, buffer + range_m[i] * COMPSIZE, 1, NULL, 0); | |||
| #endif | |||
| } | |||
| AXPYU_K(m, 0, 0, | |||
| #ifndef COMPLEX | |||
| alpha, | |||
| @@ -340,6 +340,6 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y, | |||
| alpha[0], alpha[1], | |||
| #endif | |||
| buffer, 1, y, incy, NULL, 0); | |||
| return 0; | |||
| } | |||
+ 1
- 1
driver/level2/spr2_k.c
View File
| @@ -40,7 +40,7 @@ | |||
| #include <ctype.h> | |||
| #include "common.h" | |||
| int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx, | |||
| int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx, | |||
| FLOAT *y, BLASLONG incy, FLOAT *a, FLOAT *buffer){ | |||
| BLASLONG i; | |||
+ 32
- 32
driver/level2/spr2_thread.c
View File
| @@ -116,7 +116,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| #else | |||
| if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { | |||
| #ifndef LOWER | |||
| AXPYU_K(i + 1, 0, 0, | |||
| AXPYU_K(i + 1, 0, 0, | |||
| alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], | |||
| alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], | |||
| y, 1, a, 1, NULL, 0); | |||
| @@ -129,7 +129,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| } | |||
| if ((y[i * COMPSIZE + 0] != ZERO) || (y[i * COMPSIZE + 1] != ZERO)) { | |||
| #ifndef LOWER | |||
| AXPYU_K(i + 1, 0, 0, | |||
| AXPYU_K(i + 1, 0, 0, | |||
| alpha_r * y[i * COMPSIZE + 0] - alpha_i * y[i * COMPSIZE + 1], | |||
| alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1], | |||
| x, 1, a, 1, NULL, 0); | |||
| @@ -145,7 +145,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { | |||
| #ifndef HEMVREV | |||
| #ifndef LOWER | |||
| AXPYU_K(i + 1, 0, 0, | |||
| AXPYU_K(i + 1, 0, 0, | |||
| alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], | |||
| - alpha_i * x[i * COMPSIZE + 0] - alpha_r * x[i * COMPSIZE + 1], | |||
| y, 1, a, 1, NULL, 0); | |||
| @@ -157,7 +157,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| #endif | |||
| #else | |||
| #ifndef LOWER | |||
| AXPYC_K(i + 1, 0, 0, | |||
| AXPYC_K(i + 1, 0, 0, | |||
| alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], | |||
| alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], | |||
| y, 1, a, 1, NULL, 0); | |||
| @@ -172,7 +172,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| if ((y[i * COMPSIZE + 0] != ZERO) || (y[i * COMPSIZE + 1] != ZERO)) { | |||
| #ifndef HEMVREV | |||
| #ifndef LOWER | |||
| AXPYU_K(i + 1, 0, 0, | |||
| AXPYU_K(i + 1, 0, 0, | |||
| alpha_r * y[i * COMPSIZE + 0] + alpha_i * y[i * COMPSIZE + 1], | |||
| alpha_i * y[i * COMPSIZE + 0] - alpha_r * y[i * COMPSIZE + 1], | |||
| x, 1, a, 1, NULL, 0); | |||
| @@ -184,7 +184,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| #endif | |||
| #else | |||
| #ifndef LOWER | |||
| AXPYC_K(i + 1, 0, 0, | |||
| AXPYC_K(i + 1, 0, 0, | |||
| alpha_r * y[i * COMPSIZE + 0] + alpha_i * y[i * COMPSIZE + 1], | |||
| - alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1], | |||
| x, 1, a, 1, NULL, 0); | |||
| @@ -202,14 +202,14 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| a[ 1] = ZERO; | |||
| #endif | |||
| #endif | |||
| #ifndef LOWER | |||
| a += (i + 1) * COMPSIZE; | |||
| #else | |||
| a += (args -> m - i) * COMPSIZE; | |||
| #endif | |||
| } | |||
| return 0; | |||
| } | |||
| @@ -236,7 +236,7 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| int mode = BLAS_DOUBLE | BLAS_REAL; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_REAL; | |||
| #endif | |||
| #endif | |||
| #else | |||
| #ifdef XDOUBLE | |||
| int mode = BLAS_XDOUBLE | BLAS_COMPLEX; | |||
| @@ -244,16 +244,16 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| int mode = BLAS_DOUBLE | BLAS_COMPLEX; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_COMPLEX; | |||
| #endif | |||
| #endif | |||
| #endif | |||
| #endif | |||
| args.m = m; | |||
| args.a = (void *)x; | |||
| args.b = (void *)y; | |||
| args.c = (void *)a; | |||
| args.lda = incx; | |||
| args.ldb = incy; | |||
| #ifndef COMPLEX | |||
| @@ -264,16 +264,16 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| dnum = (double)m * (double)m / (double)nthreads; | |||
| num_cpu = 0; | |||
| #ifndef LOWER | |||
| range_m[MAX_CPU_NUMBER] = m; | |||
| i = 0; | |||
| while (i < m){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(m - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| @@ -283,13 +283,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| if (width < 16) width = 16; | |||
| if (width > m - i) width = m - i; | |||
| } else { | |||
| width = m - i; | |||
| } | |||
| range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = syr_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -298,20 +298,20 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| #else | |||
| range_m[0] = 0; | |||
| i = 0; | |||
| while (i < m){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(m - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| @@ -321,13 +321,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| if (width < 16) width = 16; | |||
| if (width > m - i) width = m - i; | |||
| } else { | |||
| width = m - i; | |||
| } | |||
| range_m[num_cpu + 1] = range_m[num_cpu] + width; | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = syr_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -336,21 +336,21 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| #endif | |||
| if (num_cpu) { | |||
| queue[0].sa = NULL; | |||
| queue[0].sb = buffer; | |||
| queue[num_cpu - 1].next = NULL; | |||
| exec_blas(num_cpu, queue); | |||
| } | |||
| return 0; | |||
| } | |||
+ 1
- 1
driver/level2/spr_k.c
View File
| @@ -38,7 +38,7 @@ | |||
| #include "common.h" | |||
| int CNAME(BLASLONG m, FLOAT alpha_r, | |||
| int CNAME(BLASLONG m, FLOAT alpha_r, | |||
| FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *buffer){ | |||
| BLASLONG i; | |||
+ 28
- 28
driver/level2/spr_thread.c
View File
| @@ -96,7 +96,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| #else | |||
| if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { | |||
| #ifndef LOWER | |||
| AXPYU_K(i + 1, 0, 0, | |||
| AXPYU_K(i + 1, 0, 0, | |||
| alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], | |||
| alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], | |||
| x, 1, a, 1, NULL, 0); | |||
| @@ -112,7 +112,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { | |||
| #ifndef HEMVREV | |||
| #ifndef LOWER | |||
| AXPYU_K(i + 1, 0, 0, | |||
| AXPYU_K(i + 1, 0, 0, | |||
| alpha_r * x[i * COMPSIZE + 0], - alpha_r * x[i * COMPSIZE + 1], | |||
| x, 1, a, 1, NULL, 0); | |||
| #else | |||
| @@ -122,7 +122,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| #endif | |||
| #else | |||
| #ifndef LOWER | |||
| AXPYC_K(i + 1, 0, 0, | |||
| AXPYC_K(i + 1, 0, 0, | |||
| alpha_r * x[i * COMPSIZE + 0], alpha_r * x[i * COMPSIZE + 1], | |||
| x, 1, a, 1, NULL, 0); | |||
| #else | |||
| @@ -145,7 +145,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| a += (args -> m - i) * COMPSIZE; | |||
| #endif | |||
| } | |||
| return 0; | |||
| } | |||
| @@ -172,7 +172,7 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu | |||
| int mode = BLAS_DOUBLE | BLAS_REAL; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_REAL; | |||
| #endif | |||
| #endif | |||
| #else | |||
| #ifdef XDOUBLE | |||
| int mode = BLAS_XDOUBLE | BLAS_COMPLEX; | |||
| @@ -180,15 +180,15 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu | |||
| int mode = BLAS_DOUBLE | BLAS_COMPLEX; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_COMPLEX; | |||
| #endif | |||
| #endif | |||
| #endif | |||
| #endif | |||
| args.m = m; | |||
| args.a = (void *)x; | |||
| args.b = (void *)a; | |||
| args.lda = incx; | |||
| #if !defined(COMPLEX) || defined(HEMV) || defined(HEMVREV) | |||
| @@ -199,16 +199,16 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu | |||
| dnum = (double)m * (double)m / (double)nthreads; | |||
| num_cpu = 0; | |||
| #ifndef LOWER | |||
| range_m[MAX_CPU_NUMBER] = m; | |||
| i = 0; | |||
| while (i < m){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(m - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| @@ -218,13 +218,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu | |||
| if (width < 16) width = 16; | |||
| if (width > m - i) width = m - i; | |||
| } else { | |||
| width = m - i; | |||
| } | |||
| range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = syr_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -233,20 +233,20 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| #else | |||
| range_m[0] = 0; | |||
| i = 0; | |||
| while (i < m){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(m - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| @@ -256,13 +256,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu | |||
| if (width < 16) width = 16; | |||
| if (width > m - i) width = m - i; | |||
| } else { | |||
| width = m - i; | |||
| } | |||
| range_m[num_cpu + 1] = range_m[num_cpu] + width; | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = syr_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -271,21 +271,21 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *bu | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| #endif | |||
| if (num_cpu) { | |||
| queue[0].sa = NULL; | |||
| queue[0].sb = buffer; | |||
| queue[num_cpu - 1].next = NULL; | |||
| exec_blas(num_cpu, queue); | |||
| } | |||
| return 0; | |||
| } | |||
+ 38
- 38
driver/level2/symv_thread.c
View File
| @@ -78,11 +78,11 @@ static int symv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F | |||
| #ifndef LOWER | |||
| SCAL_K(m_to, 0, 0, ZERO, | |||
| SCAL_K(m_to, 0, 0, ZERO, | |||
| #ifdef COMPLEX | |||
| ZERO, | |||
| #endif | |||
| y, 1, NULL, 0, NULL, 0); | |||
| y, 1, NULL, 0, NULL, 0); | |||
| MYSYMV_U (m_to, m_to - m_from, ONE, | |||
| #ifdef COMPLEX | |||
| @@ -92,11 +92,11 @@ static int symv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F | |||
| #else | |||
| SCAL_K(args -> m - m_from, 0, 0, ZERO, | |||
| SCAL_K(args -> m - m_from, 0, 0, ZERO, | |||
| #ifdef COMPLEX | |||
| ZERO, | |||
| #endif | |||
| y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); | |||
| y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); | |||
| MYSYMV_L (args -> m - m_from, m_to - m_from, ONE, | |||
| #ifdef COMPLEX | |||
| @@ -132,7 +132,7 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i | |||
| int mode = BLAS_DOUBLE | BLAS_REAL; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_REAL; | |||
| #endif | |||
| #endif | |||
| #else | |||
| #ifdef XDOUBLE | |||
| int mode = BLAS_XDOUBLE | BLAS_COMPLEX; | |||
| @@ -140,45 +140,45 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i | |||
| int mode = BLAS_DOUBLE | BLAS_COMPLEX; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_COMPLEX; | |||
| #endif | |||
| #endif | |||
| #endif | |||
| #endif | |||
| args.m = m; | |||
| args.a = (void *)a; | |||
| args.b = (void *)x; | |||
| args.c = (void *)buffer; | |||
| args.lda = lda; | |||
| args.ldb = incx; | |||
| args.ldc = incy; | |||
| dnum = (double)m * (double)m / (double)nthreads; | |||
| num_cpu = 0; | |||
| #ifndef LOWER | |||
| range_m[0] = 0; | |||
| i = 0; | |||
| while (i < m){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)i; | |||
| width = ((BLASLONG)(sqrt(di * di + dnum) - di) + mask) & ~mask; | |||
| if (width < 4) width = 4; | |||
| if (width > m - i) width = m - i; | |||
| } else { | |||
| width = m - i; | |||
| } | |||
| range_m[num_cpu + 1] = range_m[num_cpu] + width; | |||
| range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); | |||
| queue[MAX_CPU_NUMBER - num_cpu - 1].mode = mode; | |||
| queue[MAX_CPU_NUMBER - num_cpu - 1].routine = symv_kernel; | |||
| queue[MAX_CPU_NUMBER - num_cpu - 1].args = &args; | |||
| @@ -187,29 +187,29 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i | |||
| queue[MAX_CPU_NUMBER - num_cpu - 1].sa = NULL; | |||
| queue[MAX_CPU_NUMBER - num_cpu - 1].sb = NULL; | |||
| queue[MAX_CPU_NUMBER - num_cpu - 1].next = &queue[MAX_CPU_NUMBER - num_cpu]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| if (num_cpu) { | |||
| queue[MAX_CPU_NUMBER - num_cpu].sa = NULL; | |||
| queue[MAX_CPU_NUMBER - num_cpu].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE; | |||
| queue[MAX_CPU_NUMBER - 1].next = NULL; | |||
| exec_blas(num_cpu, &queue[MAX_CPU_NUMBER - num_cpu]); | |||
| } | |||
| #else | |||
| range_m[0] = 0; | |||
| i = 0; | |||
| while (i < m){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(m - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| @@ -219,14 +219,14 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i | |||
| if (width < 4) width = 4; | |||
| if (width > m - i) width = m - i; | |||
| } else { | |||
| width = m - i; | |||
| } | |||
| range_m[num_cpu + 1] = range_m[num_cpu] + width; | |||
| range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = symv_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -235,32 +235,32 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| if (num_cpu) { | |||
| queue[0].sa = NULL; | |||
| queue[0].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE; | |||
| queue[num_cpu - 1].next = NULL; | |||
| exec_blas(num_cpu, queue); | |||
| } | |||
| #endif | |||
| #ifndef LOWER | |||
| for (i = 0; i < num_cpu - 1; i ++) { | |||
| AXPYU_K(range_m[i + 1], 0, 0, ONE, | |||
| #ifdef COMPLEX | |||
| ZERO, | |||
| ZERO, | |||
| #endif | |||
| buffer + range_n[i] * COMPSIZE, 1, buffer + range_n[num_cpu - 1] * COMPSIZE, 1, NULL, 0); | |||
| } | |||
| } | |||
| AXPYU_K(m, 0, 0, | |||
| #ifndef COMPLEX | |||
| @@ -271,12 +271,12 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i | |||
| buffer + range_n[num_cpu - 1] * COMPSIZE, 1, y, incy, NULL, 0); | |||
| #else | |||
| for (i = 1; i < num_cpu; i ++) { | |||
| AXPYU_K(m - range_m[i], 0, 0, ONE, | |||
| #ifdef COMPLEX | |||
| ZERO, | |||
| ZERO, | |||
| #endif | |||
| buffer + (range_n[i] + range_m[i]) * COMPSIZE, 1, buffer + range_m[i] * COMPSIZE, 1, NULL, 0); | |||
| } | |||
| @@ -288,8 +288,8 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x, BLASLONG i | |||
| alpha[0], alpha[1], | |||
| #endif | |||
| buffer, 1, y, incy, NULL, 0); | |||
| #endif | |||
| return 0; | |||
| } | |||
+ 1
- 1
driver/level2/syr2_k.c
View File
| @@ -40,7 +40,7 @@ | |||
| #include <ctype.h> | |||
| #include "common.h" | |||
| int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx, | |||
| int CNAME(BLASLONG m, FLOAT alpha_r, FLOAT *x, BLASLONG incx, | |||
| FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer){ | |||
| BLASLONG i; | |||
+ 31
- 31
driver/level2/syr2_thread.c
View File
| @@ -112,7 +112,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| #else | |||
| if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { | |||
| #ifndef LOWER | |||
| AXPYU_K(i + 1, 0, 0, | |||
| AXPYU_K(i + 1, 0, 0, | |||
| alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], | |||
| alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], | |||
| y, 1, a, 1, NULL, 0); | |||
| @@ -125,7 +125,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| } | |||
| if ((y[i * COMPSIZE + 0] != ZERO) || (y[i * COMPSIZE + 1] != ZERO)) { | |||
| #ifndef LOWER | |||
| AXPYU_K(i + 1, 0, 0, | |||
| AXPYU_K(i + 1, 0, 0, | |||
| alpha_r * y[i * COMPSIZE + 0] - alpha_i * y[i * COMPSIZE + 1], | |||
| alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1], | |||
| x, 1, a, 1, NULL, 0); | |||
| @@ -141,7 +141,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { | |||
| #ifndef HERREV | |||
| #ifndef LOWER | |||
| AXPYU_K(i + 1, 0, 0, | |||
| AXPYU_K(i + 1, 0, 0, | |||
| alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], | |||
| - alpha_i * x[i * COMPSIZE + 0] - alpha_r * x[i * COMPSIZE + 1], | |||
| y, 1, a, 1, NULL, 0); | |||
| @@ -153,7 +153,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| #endif | |||
| #else | |||
| #ifndef LOWER | |||
| AXPYC_K(i + 1, 0, 0, | |||
| AXPYC_K(i + 1, 0, 0, | |||
| alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], | |||
| alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], | |||
| y, 1, a, 1, NULL, 0); | |||
| @@ -168,7 +168,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| if ((y[i * COMPSIZE + 0] != ZERO) || (y[i * COMPSIZE + 1] != ZERO)) { | |||
| #ifndef HERREV | |||
| #ifndef LOWER | |||
| AXPYU_K(i + 1, 0, 0, | |||
| AXPYU_K(i + 1, 0, 0, | |||
| alpha_r * y[i * COMPSIZE + 0] + alpha_i * y[i * COMPSIZE + 1], | |||
| alpha_i * y[i * COMPSIZE + 0] - alpha_r * y[i * COMPSIZE + 1], | |||
| x, 1, a, 1, NULL, 0); | |||
| @@ -180,7 +180,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| #endif | |||
| #else | |||
| #ifndef LOWER | |||
| AXPYC_K(i + 1, 0, 0, | |||
| AXPYC_K(i + 1, 0, 0, | |||
| alpha_r * y[i * COMPSIZE + 0] + alpha_i * y[i * COMPSIZE + 1], | |||
| - alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1], | |||
| x, 1, a, 1, NULL, 0); | |||
| @@ -197,7 +197,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| a += lda * COMPSIZE; | |||
| } | |||
| return 0; | |||
| } | |||
| @@ -224,7 +224,7 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| int mode = BLAS_DOUBLE | BLAS_REAL; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_REAL; | |||
| #endif | |||
| #endif | |||
| #else | |||
| #ifdef XDOUBLE | |||
| int mode = BLAS_XDOUBLE | BLAS_COMPLEX; | |||
| @@ -232,16 +232,16 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| int mode = BLAS_DOUBLE | BLAS_COMPLEX; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_COMPLEX; | |||
| #endif | |||
| #endif | |||
| #endif | |||
| #endif | |||
| args.m = m; | |||
| args.a = (void *)x; | |||
| args.b = (void *)y; | |||
| args.c = (void *)a; | |||
| args.lda = incx; | |||
| args.ldb = incy; | |||
| args.ldc = lda; | |||
| @@ -253,16 +253,16 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| dnum = (double)m * (double)m / (double)nthreads; | |||
| num_cpu = 0; | |||
| #ifndef LOWER | |||
| range_m[MAX_CPU_NUMBER] = m; | |||
| i = 0; | |||
| while (i < m){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(m - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| @@ -272,13 +272,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| if (width < 16) width = 16; | |||
| if (width > m - i) width = m - i; | |||
| } else { | |||
| width = m - i; | |||
| } | |||
| range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = syr_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -287,20 +287,20 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| #else | |||
| range_m[0] = 0; | |||
| i = 0; | |||
| while (i < m){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(m - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| @@ -310,13 +310,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| if (width < 16) width = 16; | |||
| if (width > m - i) width = m - i; | |||
| } else { | |||
| width = m - i; | |||
| } | |||
| range_m[num_cpu + 1] = range_m[num_cpu] + width; | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = syr_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -325,21 +325,21 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *y, BLASLONG | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| #endif | |||
| if (num_cpu) { | |||
| queue[0].sa = NULL; | |||
| queue[0].sb = buffer; | |||
| queue[num_cpu - 1].next = NULL; | |||
| exec_blas(num_cpu, queue); | |||
| } | |||
| return 0; | |||
| } | |||
+ 1
- 1
driver/level2/syr_k.c
View File
| @@ -38,7 +38,7 @@ | |||
| #include "common.h" | |||
| int CNAME(BLASLONG m, FLOAT alpha_r, | |||
| int CNAME(BLASLONG m, FLOAT alpha_r, | |||
| FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG lda, FLOAT *buffer){ | |||
| BLASLONG i; | |||
+ 28
- 28
driver/level2/syr_thread.c
View File
| @@ -95,7 +95,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| #else | |||
| if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { | |||
| #ifndef LOWER | |||
| AXPYU_K(i + 1, 0, 0, | |||
| AXPYU_K(i + 1, 0, 0, | |||
| alpha_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1], | |||
| alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], | |||
| x, 1, a, 1, NULL, 0); | |||
| @@ -111,7 +111,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { | |||
| #ifndef HERREV | |||
| #ifndef LOWER | |||
| AXPYU_K(i + 1, 0, 0, | |||
| AXPYU_K(i + 1, 0, 0, | |||
| alpha_r * x[i * COMPSIZE + 0], -alpha_r * x[i * COMPSIZE + 1], | |||
| x, 1, a, 1, NULL, 0); | |||
| #else | |||
| @@ -121,7 +121,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| #endif | |||
| #else | |||
| #ifndef LOWER | |||
| AXPYC_K(i + 1, 0, 0, | |||
| AXPYC_K(i + 1, 0, 0, | |||
| alpha_r * x[i * COMPSIZE + 0], alpha_r * x[i * COMPSIZE + 1], | |||
| x, 1, a, 1, NULL, 0); | |||
| #else | |||
| @@ -137,7 +137,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL | |||
| a += lda * COMPSIZE; | |||
| } | |||
| return 0; | |||
| } | |||
| @@ -164,7 +164,7 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG | |||
| int mode = BLAS_DOUBLE | BLAS_REAL; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_REAL; | |||
| #endif | |||
| #endif | |||
| #else | |||
| #ifdef XDOUBLE | |||
| int mode = BLAS_XDOUBLE | BLAS_COMPLEX; | |||
| @@ -172,15 +172,15 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG | |||
| int mode = BLAS_DOUBLE | BLAS_COMPLEX; | |||
| #else | |||
| int mode = BLAS_SINGLE | BLAS_COMPLEX; | |||
| #endif | |||
| #endif | |||
| #endif | |||
| #endif | |||
| args.m = m; | |||
| args.a = (void *)x; | |||
| args.b = (void *)a; | |||
| args.lda = incx; | |||
| args.ldb = lda; | |||
| #if !defined(COMPLEX) || defined(HER) || defined(HERREV) | |||
| @@ -191,16 +191,16 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG | |||
| dnum = (double)m * (double)m / (double)nthreads; | |||
| num_cpu = 0; | |||
| #ifndef LOWER | |||
| range_m[MAX_CPU_NUMBER] = m; | |||
| i = 0; | |||
| while (i < m){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(m - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| @@ -210,13 +210,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG | |||
| if (width < 16) width = 16; | |||
| if (width > m - i) width = m - i; | |||
| } else { | |||
| width = m - i; | |||
| } | |||
| range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = syr_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -225,20 +225,20 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| #else | |||
| range_m[0] = 0; | |||
| i = 0; | |||
| while (i < m){ | |||
| if (nthreads - num_cpu > 1) { | |||
| double di = (double)(m - i); | |||
| if (di * di - dnum > 0) { | |||
| width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; | |||
| @@ -248,13 +248,13 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG | |||
| if (width < 16) width = 16; | |||
| if (width > m - i) width = m - i; | |||
| } else { | |||
| width = m - i; | |||
| } | |||
| range_m[num_cpu + 1] = range_m[num_cpu] + width; | |||
| queue[num_cpu].mode = mode; | |||
| queue[num_cpu].routine = syr_kernel; | |||
| queue[num_cpu].args = &args; | |||
| @@ -263,21 +263,21 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG | |||
| queue[num_cpu].sa = NULL; | |||
| queue[num_cpu].sb = NULL; | |||
| queue[num_cpu].next = &queue[num_cpu + 1]; | |||
| num_cpu ++; | |||
| i += width; | |||
| } | |||
| #endif | |||
| if (num_cpu) { | |||
| queue[0].sa = NULL; | |||
| queue[0].sb = buffer; | |||
| queue[num_cpu - 1].next = NULL; | |||
| exec_blas(num_cpu, queue); | |||
| } | |||
| return 0; | |||
| } | |||
+ 4
- 4
driver/level2/tbmv_L.c
View File
| @@ -54,7 +54,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc | |||
| gemvbuffer = (FLOAT *)(((BLASLONG)buffer + n * sizeof(FLOAT) + 4095) & ~4095); | |||
| COPY_K(n, b, incb, buffer, 1); | |||
| } | |||
| a += (n - 1) * lda; | |||
| for (i = n - 1; i >= 0; i--) { | |||
| @@ -65,7 +65,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc | |||
| if (length > 0) { | |||
| AXPYU_K(length, 0, 0, | |||
| B[i], | |||
| B[i], | |||
| a + 1, 1, B + i + 1, 1, NULL, 0); | |||
| } | |||
| #endif | |||
| @@ -77,7 +77,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc | |||
| B[i] *= a[k]; | |||
| #endif | |||
| #endif | |||
| #ifdef TRANSA | |||
| length = i; | |||
| if (length > k) length = k; | |||
| @@ -89,7 +89,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc | |||
| a -= lda; | |||
| } | |||
| if (incb != 1) { | |||
| COPY_K(n, buffer, 1, b, incb); | |||
| } | |||