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

Merge branch 'develop' of https://github.com/TimothyGu/OpenBLAS into TimothyGu-develop 

Conflicts:
	driver/others/memory.c
This commit is contained in:
Zhang Xianyi 2014-06-28 20:51:31 +08:00
parent b82108f899 6c2ead30f0
commit 7a8949e0ce
1423 changed files with 21228 additions and 21228 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
.travis.yml
View File

@ -11,7 +11,7 @@ env:
before_install: before_install:
- sudo apt-get update -qq - 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" == "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 - if [[ "$TARGET_BOX" == "LINUX32" ]]; then sudo apt-get install -qq gcc-multilib gfortran-multilib; fi

8
CONTRIBUTORS.md
View File

@ -31,7 +31,7 @@
* Improve the windows build. * Improve the windows build.
* Chen Shaohu <huhumartinwar@gmail.com> * Chen Shaohu <huhumartinwar@gmail.com>
* Optimize GEMV on the Loongson 3A processor. * Optimize GEMV on the Loongson 3A processor.
* Luo Wen * Luo Wen
* Intern. Test Level-2 BLAS. * Intern. Test Level-2 BLAS.
@ -53,11 +53,11 @@ In chronological order:
* [2012-05-19] Fix building bug on FreeBSD and NetBSD. * [2012-05-19] Fix building bug on FreeBSD and NetBSD.
* Sylvestre Ledru <https://github.com/sylvestre> * 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. Hurd and kfreebsd.
* Jameson Nash <https://github.com/vtjnash> * 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. make on the command line.
* Alexander Nasonov <alnsn@yandex.ru> * Alexander Nasonov <alnsn@yandex.ru>
@ -80,7 +80,7 @@ In chronological order:
* [2013-06-30] Add Intel Haswell support (using sandybridge optimizations). * [2013-06-30] Add Intel Haswell support (using sandybridge optimizations).
* grisuthedragon <https://github.com/grisuthedragon> * 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. model is used by OpenBLAS.
* Elliot Saba <staticfloat@gmail.com> * Elliot Saba <staticfloat@gmail.com>

70
Changelog.txt
View File

@ -55,25 +55,25 @@ Version 0.2.7
common: common:
* Support LSB (Linux Standard Base) 4.1. * Support LSB (Linux Standard Base) 4.1.
e.g. make CC=lsbcc 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. Avoid downloading at compile time.
* Add NO_PARALLEL_MAKE flag to disable parallel make. * 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) parallelization model is used by OpenBLAS. (Thank grisuthedragon)
* Detect LLVM/Clang compiler. The default compiler is Clang on Mac OS X. * Detect LLVM/Clang compiler. The default compiler is Clang on Mac OS X.
* Change LIBSUFFIX from .lib to .a on windows. * Change LIBSUFFIX from .lib to .a on windows.
* A work-around for dtrti_U single thread bug. Replace it with LAPACK codes. (#191) * A work-around for dtrti_U single thread bug. Replace it with LAPACK codes. (#191)
x86/x86-64: 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) AMD Bulldozer. (Thank Werner Saar)
* Add Intel Haswell support (using Sandybridge optimizations). * Add Intel Haswell support (using Sandybridge optimizations).
(Thank Dan Luu) (Thank Dan Luu)
* Add AMD Piledriver support (using Bulldozer optimizations). * 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) Sandybridge. (#237)
* Fix the overflow bug in gemv. * 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). is very large.(#214, #221, #246).
MIPS64: MIPS64:
* Support loongcc (Open64 based) compiler for ICT Loongson 3A/B. * Support loongcc (Open64 based) compiler for ICT Loongson 3A/B.
@ -110,7 +110,7 @@ common:
* Fixed NetBSD build. (#155) * Fixed NetBSD build. (#155)
* Fixed compilation with TARGET=GENERIC. (#160) * Fixed compilation with TARGET=GENERIC. (#160)
x86/x86-64: x86/x86-64:
* Restore the original CPU affinity when calling * Restore the original CPU affinity when calling
openblas_set_num_threads(1) (#153) openblas_set_num_threads(1) (#153)
* Fixed a SEGFAULT bug in dgemv_t when m is very large.(#154) * Fixed a SEGFAULT bug in dgemv_t when m is very large.(#154)
MIPS64: MIPS64:
@ -120,13 +120,13 @@ Version 0.2.4
8-Oct-2012 8-Oct-2012
common: common:
* Upgraded LAPACK to 3.4.2 version. (#145) * 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) FPFLAGS to make. (#137)
* f77blas.h:compatibility for compilers without C99 complex * f77blas.h:compatibility for compilers without C99 complex
number support. (#141) number support. (#141)
x86/x86-64: x86/x86-64:
* Added NO_AVX flag. Check OS supporting AVX on runtime. (#139) * 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) Windows 32-bit. (#140)
MIPS64: MIPS64:
* Fixed the generation of shared library bug. * Fixed the generation of shared library bug.
@ -136,14 +136,14 @@ Version 0.2.3
20-Aug-2012 20-Aug-2012
common: common:
* Fixed LAPACK unstable bug about ?laswp. (#130) * 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). Linux (#132).
* Fixed the compilation failure on BlueGene/P (TARGET=PPC440FP2) * Fixed the compilation failure on BlueGene/P (TARGET=PPC440FP2)
Please use gcc and IBM xlf. (#134) Please use gcc and IBM xlf. (#134)
x86/x86-64: 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. APIs in Windows. They can set the number of threads on runtime.
==================================================================== ====================================================================
Version 0.2.2 Version 0.2.2
6-July-2012 6-July-2012
@ -191,14 +191,14 @@ x86/x86_64:
* Auto-detect Intel Sandy Bridge Core i7-3xxx & Xeon E7 Westmere-EX. * Auto-detect Intel Sandy Bridge Core i7-3xxx & Xeon E7 Westmere-EX.
* Test alpha=Nan in dscale. * Test alpha=Nan in dscale.
* Fixed a SEGFAULT bug in samax on x86 windows. * Fixed a SEGFAULT bug in samax on x86 windows.
==================================================================== ====================================================================
Version 0.1.0 Version 0.1.0
23-Mar-2012 23-Mar-2012
common: common:
* Set soname of shared library on Linux. * Set soname of shared library on Linux.
* Added LIBNAMESUFFIX flag in Makefile.rule. The user can use * Added LIBNAMESUFFIX flag in Makefile.rule. The user can use
this flag to control the library name, e.g. libopenblas.a, this flag to control the library name, e.g. libopenblas.a,
libopenblas_ifort.a or libopenblas_omp.a. libopenblas_ifort.a or libopenblas_omp.a.
* Added GEMM_MULTITHREAD_THRESHOLD flag in Makefile.rule. * Added GEMM_MULTITHREAD_THRESHOLD flag in Makefile.rule.
The lib use single thread in GEMM function with small matrices. The lib use single thread in GEMM function with small matrices.
@ -229,7 +229,7 @@ x86/x86_64:
Version 0.1 alpha2.4 Version 0.1 alpha2.4
18-Sep-2011 18-Sep-2011
common: common:
* Fixed a bug about installation. The header file "fblas77.h" * Fixed a bug about installation. The header file "fblas77.h"
works fine now. works fine now.
* Fixed #61 a building bug about setting TARGET and DYNAMIC_ARCH. * Fixed #61 a building bug about setting TARGET and DYNAMIC_ARCH.
* Try to handle absolute path of shared library in OSX. (#57) * Try to handle absolute path of shared library in OSX. (#57)
@ -238,16 +238,16 @@ common:
$(PREFIX)/lib $(PREFIX)/lib
x86/x86_64: x86/x86_64:
* Fixed #58 zdot/xdot SEGFAULT bug with GCC-4.6 on x86. According * Fixed #58 zdot/xdot SEGFAULT bug with GCC-4.6 on x86. According
to i386 calling convention, The callee should remove the first to i386 calling convention, The callee should remove the first
hidden parameter.Thank Mr. John for this patch. hidden parameter.Thank Mr. John for this patch.
==================================================================== ====================================================================
Version 0.1 alpha2.3 Version 0.1 alpha2.3
5-Sep-2011 5-Sep-2011
x86/x86_64: 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) it can read DTB_ENTRIES on runtime. (Refs issue #55 on github)
==================================================================== ====================================================================
@ -255,7 +255,7 @@ Version 0.1 alpha2.2
14-Jul-2011 14-Jul-2011
common: 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) (Refs issue #44 on github)
==================================================================== ====================================================================
@ -263,7 +263,7 @@ Version 0.1 alpha2.1
28-Jun-2011 28-Jun-2011
common: 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) fortran compiler failed. (Refs issue #42 on github)
==================================================================== ====================================================================
@ -271,16 +271,16 @@ Version 0.1 alpha2
23-Jun-2011 23-Jun-2011
common: 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) could include this header successfully(Refs issue #13 on github)
* Fixed the SEGFAULT bug on 64 cores. On SMP server, the number * 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 of CPUs or cores should be less than or equal to 64.(Refs issue #14
on github) on github)
* Support "void goto_set_num_threads(int num_threads)" and "void * Support "void goto_set_num_threads(int num_threads)" and "void
openblas_set_num_threads(int num_threads)" when USE_OPENMP=1 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) 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) issue #19 on github)
* Fixed issue #23. Fixed a bug of f_check script about generating link flags. * Fixed issue #23. Fixed a bug of f_check script about generating link flags.
* Added openblas_set_num_threads for Fortran. * 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. * Work-around #27 the low performance axpy issue with small imput size & multithreads.
MIPS64: 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 BLAS Level3 on Loongson3A/MIPS64. (Refs #2)
* Optimized single/double precision axpy function on Loongson3A/MIPS64. (Refs #3) * Optimized single/double precision axpy function on Loongson3A/MIPS64. (Refs #3)
@ -307,9 +307,9 @@ Version 0.1 alpha1
20-Mar-2011 20-Mar-2011
common: common:
* Support "make NO_LAPACK=1" to build the library without * Support "make NO_LAPACK=1" to build the library without
LAPACK functions. 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) Thank Mr.Ei-ji Nakama providing this patch. (Refs issue #12 on github)
* Added DEBUG=1 rule in Makefile.rule to build debug version. * Added DEBUG=1 rule in Makefile.rule to build debug version.
* Disable compiling quad precision in reference BLAS library(netlib BLAS). * Disable compiling quad precision in reference BLAS library(netlib BLAS).
@ -318,15 +318,15 @@ common:
* Imported GotoBLAS2 1.13 BSD version * Imported GotoBLAS2 1.13 BSD version
x86/x86_64: 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) 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) 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) 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) 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. to use Nehalem codes.
* Fixed a typo bug about compiling dynamic ARCH library. * Fixed a typo bug about compiling dynamic ARCH library.
MIPS64: MIPS64:

2
GotoBLAS_01Readme.txt
View File

@ -83,7 +83,7 @@
4. Suported precision 4. Suported precision
Now x86/x86_64 version support 80bit FP precision in addition to 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". gfortran supports 80bit FP with "REAL*10".

6
GotoBLAS_02QuickInstall.txt
View File

@ -32,9 +32,9 @@
GotoBLAS2 build complete. GotoBLAS2 build complete.
OS ... Linux OS ... Linux
Architecture ... x86_64 Architecture ... x86_64
BINARY ... 64bit BINARY ... 64bit
C compiler ... GCC (command line : gcc) C compiler ... GCC (command line : gcc)
Fortran compiler ... PATHSCALE (command line : pathf90) Fortran compiler ... PATHSCALE (command line : pathf90)
Library Name ... libgoto_barcelonap-r1.27.a (Multi threaded; Max Library Name ... libgoto_barcelonap-r1.27.a (Multi threaded; Max

2
GotoBLAS_03FAQ.txt
View File

@ -56,7 +56,7 @@
1.6 Q I use OpenMP compiler. How can I use GotoBLAS2 with it? 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 thread. If you want to use OpenMP based code with GotoBLAS2, you
should enable "USE_OPENMP=1" in Makefile.rule. should enable "USE_OPENMP=1" in Makefile.rule.

2
GotoBLAS_05LargePage.txt
View File

@ -43,7 +43,7 @@
F) Other aarchitecture which doesn't have Large TLB enhancement F) Other aarchitecture which doesn't have Large TLB enhancement
If you have root permission, please install device driver which If you have root permission, please install device driver which
located in drivers/mapper. located in drivers/mapper.
$shell> cd drivers/mapper $shell> cd drivers/mapper
$shell> make $shell> make

4
GotoBLAS_06WeirdPerformance.txt
View File

@ -4,7 +4,7 @@
probably you created too many threads or process. Basically GotoBLAS probably you created too many threads or process. Basically GotoBLAS
assumes that available cores that you specify are exclusively for assumes that available cores that you specify are exclusively for
BLAS computation. Even one small thread/process conflicts with BLAS 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 The best solution is to reduce your number of threads or insert
some synchronization mechanism and suspend your threads until BLAS 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 Anyway, if you see any weird performance loss, it means your code or
algorithm is not optimal. algorithm is not optimal.

22
LICENSE
View File

@ -12,17 +12,17 @@ met:
notice, this list of conditions and the following disclaimer in notice, this list of conditions and the following disclaimer in
the documentation and/or other materials provided with the the documentation and/or other materials provided with the
distribution. distribution.
3. Neither the name of the ISCAS nor the names of its contributors may 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 be used to endorse or promote products derived from this software
without specific prior written permission. without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 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 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. USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

10
Makefile
View File

@ -4,7 +4,7 @@ include ./Makefile.system
BLASDIRS = interface driver/level2 driver/level3 driver/others BLASDIRS = interface driver/level2 driver/level3 driver/others
ifneq ($(DYNAMIC_ARCH), 1) ifneq ($(DYNAMIC_ARCH), 1)
BLASDIRS += kernel BLASDIRS += kernel
endif endif
ifdef UTEST_CHECK ifdef UTEST_CHECK
@ -153,7 +153,7 @@ endif
ifeq ($(EXPRECISION), 1) ifeq ($(EXPRECISION), 1)
@echo "#define EXPRECISION">> config_last.h @echo "#define EXPRECISION">> config_last.h
endif endif
## ##
ifeq ($(DYNAMIC_ARCH), 1) ifeq ($(DYNAMIC_ARCH), 1)
@$(MAKE) -C kernel commonlibs || exit 1 @$(MAKE) -C kernel commonlibs || exit 1
@for d in $(DYNAMIC_CORE) ; \ @for d in $(DYNAMIC_CORE) ; \
@ -187,7 +187,7 @@ blas :
fi; \ fi; \
done done
hpl : hpl :
ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX) ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
for d in $(BLASDIRS) ../laswp exports ; \ for d in $(BLASDIRS) ../laswp exports ; \
do if test -d $$d; then \ do if test -d $$d; then \
@ -210,7 +210,7 @@ hpl_p :
done done
ifeq ($(NO_LAPACK), 1) ifeq ($(NO_LAPACK), 1)
netlib : netlib :
else else
netlib : lapack_prebuild netlib : lapack_prebuild
@ -255,7 +255,7 @@ endif
-@cat make.inc >> $(NETLIB_LAPACK_DIR)/make.inc -@cat make.inc >> $(NETLIB_LAPACK_DIR)/make.inc
endif endif
large.tgz : large.tgz :
ifndef NOFORTRAN ifndef NOFORTRAN
if [ ! -a $< ]; then if [ ! -a $< ]; then
-wget http://www.netlib.org/lapack/timing/large.tgz; -wget http://www.netlib.org/lapack/timing/large.tgz;

2
Makefile.alpha
View File

@ -50,7 +50,7 @@ endif
ifndef SMP ifndef SMP
LIBCXML = -lcxml -lots -lm 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 else
LIBCXML = -lcxmlp -lots -lm LIBCXML = -lcxmlp -lots -lm
LIBATLAS = -L/usr/lib/atlas3.7.8p -llapack -lptcblas -lptf77blas -latlas -lpthread -lm LIBATLAS = -L/usr/lib/atlas3.7.8p -llapack -lptcblas -lptf77blas -latlas -lpthread -lm

2
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 LIBSCSL = -L/opt/scsl/1.4.1.0/lib -Wl,-rpath,/opt/scsl/1.4.1.0/lib -lscs
ifndef SMP ifndef SMP
LIBATLAS = -L/usr/lib/atlas3.6.0 -lf77blas -latlas -lm LIBATLAS = -L/usr/lib/atlas3.6.0 -lf77blas -latlas -lm
else else
LIBATLAS = -L$(HOME)/misc/lib -L/usr/lib/atlas3.6.0p -llapack -lptcblas -lptf77blas -latlas -lpthread -lm LIBATLAS = -L$(HOME)/misc/lib -L/usr/lib/atlas3.6.0p -llapack -lptcblas -lptf77blas -latlas -lpthread -lm
endif endif

8
Makefile.install
View File

@ -22,7 +22,7 @@ install : lib.grd
@-mkdir -p $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) @-mkdir -p $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)
@-mkdir -p $(DESTDIR)$(OPENBLAS_BINARY_DIR) @-mkdir -p $(DESTDIR)$(OPENBLAS_BINARY_DIR)
@echo Generating openblas_config.h in $(DESTDIR)$(OPENBLAS_INCLUDE_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 \#ifndef OPENBLAS_CONFIG_H > $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h
@echo \#define 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 @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 @-install -pDm644 $(NETLIB_LAPACK_DIR)/lapacke/include/lapacke_utils.h $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/lapacke_utils.h
endif endif
#for install static library #for install static library
ifndef NO_STATIC ifndef NO_STATIC
@echo Copying the static library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) @echo Copying the static library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)
@install -pm644 $(LIBNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) @install -pm644 $(LIBNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)
@cd $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) ; \ @cd $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) ; \
ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX) ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
endif endif
#for install shared library #for install shared library
ifndef NO_SHARED ifndef NO_SHARED
@echo Copying the shared library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) @echo Copying the shared library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)
ifeq ($(OSNAME), Linux) ifeq ($(OSNAME), Linux)
@ -76,7 +76,7 @@ ifeq ($(OSNAME), NetBSD)
@cd $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) ; \ @cd $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) ; \
ln -fs $(LIBSONAME) $(LIBPREFIX).so ln -fs $(LIBSONAME) $(LIBPREFIX).so
endif endif
ifeq ($(OSNAME), Darwin) ifeq ($(OSNAME), Darwin)
@-cp $(LIBDYNNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR) @-cp $(LIBDYNNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)
@-install_name_tool -id $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBDYNNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBDYNNAME) @-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 @-ln -fs $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBDYNNAME) $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBPREFIX).dylib

8
Makefile.power
View File

@ -5,7 +5,7 @@ FLAMEPATH = $(HOME)/flame/lib
#ifeq ($(CORE), CELL) #ifeq ($(CORE), CELL)
#CELL_SDK_ROOT = /opt/IBM/cell-sdk-1.1/sysroot/usr #CELL_SDK_ROOT = /opt/IBM/cell-sdk-1.1/sysroot/usr
#SPU_CC = spu-gcc #SPU_CC = spu-gcc
#EXTRALIB += -lspe #EXTRALIB += -lspe
#endif #endif
ifeq ($(OSNAME), Linux) ifeq ($(OSNAME), Linux)
@ -38,7 +38,7 @@ ASFLAGS = -a32
endif endif
endif endif
# CCOMMON_OPT += -maltivec -mabi=altivec # CCOMMON_OPT += -maltivec -mabi=altivec
LIBFLAME = -L$(FLAMEPATH) -llapack2flame -lflame-lapack -lflame-base $(LIBS) LIBFLAME = -L$(FLAMEPATH) -llapack2flame -lflame-lapack -lflame-base $(LIBS)
@ -57,7 +57,7 @@ endif
LIBVECLIB = -framework VecLib LIBVECLIB = -framework VecLib
ifndef SMP 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 LIBESSL = -lessl $(ESSLPATH) ../../level1/others/libmisc.a -lm
else else
LIBATLAS = -L/usr/lib/atlas3.7.11p -lptf77blas -latlas -lm -lpthread 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 LIBVECLIB = /System/Library/Frameworks/vecLib.framework/Versions/Current/vecLib
ifndef SMP 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 LIBESSL = -lessl $(ESSLPATH) -lm
else else
LIBATLAS = -L/usr/lib64/atlas3.7.11p -lptf77blas -latlas -lm -lpthread LIBATLAS = -L/usr/lib64/atlas3.7.11p -lptf77blas -latlas -lm -lpthread

18
Makefile.rule
View File

@ -1,12 +1,12 @@
# #
# Beginning of user configuration # Beginning of user configuration
# #
# This library's version # This library's version
VERSION = 0.2.9 VERSION = 0.2.9
# If you set the suffix, the library name will be libopenblas_$(LIBNAMESUFFIX).a # 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. # is libopenblas_$(LIBNAMESUFFIX).so.0.
# LIBNAMESUFFIX = omp # LIBNAMESUFFIX = omp
@ -57,11 +57,11 @@ VERSION = 0.2.9
# If you don't need CBLAS interface, please comment it in. # If you don't need CBLAS interface, please comment it in.
# NO_CBLAS = 1 # 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. # please comment it in.
# ONLY_CBLAS = 1 # 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. # If you set NO_LAPACK=1, the library automatically sets NO_LAPACKE=1.
# NO_LAPACK = 1 # NO_LAPACK = 1
@ -84,7 +84,7 @@ NO_WARMUP = 1
# If you want to disable CPU/Memory affinity on Linux. # If you want to disable CPU/Memory affinity on Linux.
NO_AFFINITY = 1 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. # and OS. However, the performance is low.
# NO_AVX = 1 # NO_AVX = 1
@ -112,8 +112,8 @@ NO_AFFINITY = 1
# If you need to synchronize FP CSR between threads (for x86/x86_64 only). # If you need to synchronize FP CSR between threads (for x86/x86_64 only).
# CONSISTENT_FPCSR = 1 # CONSISTENT_FPCSR = 1
# If any gemm arguement m, n or k is less or equal this threshold, gemm will be execute # 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 # with single thread. You can use this flag to avoid the overhead of multi-threading
# in small matrix sizes. The default value is 4. # in small matrix sizes. The default value is 4.
# GEMM_MULTITHREAD_THRESHOLD = 4 # GEMM_MULTITHREAD_THRESHOLD = 4
@ -128,7 +128,7 @@ NO_AFFINITY = 1
# The installation directory. # The installation directory.
# PREFIX = /opt/OpenBLAS # PREFIX = /opt/OpenBLAS
# Common Optimization Flag; # Common Optimization Flag;
# The default -O2 is enough. # The default -O2 is enough.
# COMMON_OPT = -O2 # COMMON_OPT = -O2
@ -143,5 +143,5 @@ COMMON_PROF = -pg
# DEBUG = 1 # DEBUG = 1
# #
# End of user configuration # End of user configuration
# #

2
Makefile.sparc
View File

@ -27,7 +27,7 @@ LIBNAME = $(LIBPREFIX).a
ifndef SMP ifndef SMP
LIBCXML = -L/opt/SUNWspro/lib/v9 LIBCXML = -L/opt/SUNWspro/lib/v9
LIBATLAS = -L$(HOME)/misc/lib -lf77blas -latlas -lm LIBATLAS = -L$(HOME)/misc/lib -lf77blas -latlas -lm
else else
LIBCXML = -lcxmlp -lots -lm LIBCXML = -lcxmlp -lots -lm
endif endif

36
Makefile.system
View File

@ -35,7 +35,7 @@ include $(TOPDIR)/$(MAKEFILE_RULE)
endif endif
# #
# Beginning of system configuration # Beginning of system configuration
# #
ifndef HOSTCC ifndef HOSTCC
@ -99,7 +99,7 @@ endif
ifndef GEMM_MULTITHREAD_THRESHOLD ifndef GEMM_MULTITHREAD_THRESHOLD
GEMM_MULTITHREAD_THRESHOLD=4 GEMM_MULTITHREAD_THRESHOLD=4
endif endif
GETARCH_FLAGS += -DGEMM_MULTITHREAD_THRESHOLD=$(GEMM_MULTITHREAD_THRESHOLD) GETARCH_FLAGS += -DGEMM_MULTITHREAD_THRESHOLD=$(GEMM_MULTITHREAD_THRESHOLD)
ifeq ($(NO_AVX), 1) ifeq ($(NO_AVX), 1)
GETARCH_FLAGS += -DNO_AVX 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) GCCMINORVERSIONGTEQ7 := $(shell expr `$(CC) -dumpversion | cut -f2 -d.` \>= 7)
ifeq ($(GCCVERSIONGT4), 1) ifeq ($(GCCVERSIONGT4), 1)
# GCC Majar version > 4 # GCC Majar version > 4
# It is compatible with MSVC ABI. # It is compatible with MSVC ABI.
CCOMMON_OPT += -DMS_ABI CCOMMON_OPT += -DMS_ABI
endif endif
ifeq ($(GCCVERSIONGTEQ4), 1) ifeq ($(GCCVERSIONGTEQ4), 1)
ifeq ($(GCCMINORVERSIONGTEQ7), 1) ifeq ($(GCCMINORVERSIONGTEQ7), 1)
# GCC Version >=4.7 # GCC Version >=4.7
# It is compatible with MSVC ABI. # It is compatible with MSVC ABI.
CCOMMON_OPT += -DMS_ABI CCOMMON_OPT += -DMS_ABI
endif endif
endif endif
@ -317,7 +317,7 @@ FCOMMON_OPT += -m128bit-long-double
endif endif
ifeq ($(C_COMPILER), CLANG) ifeq ($(C_COMPILER), CLANG)
EXPRECISION = 1 EXPRECISION = 1
CCOMMON_OPT += -DEXPRECISION CCOMMON_OPT += -DEXPRECISION
FCOMMON_OPT += -m128bit-long-double FCOMMON_OPT += -m128bit-long-double
endif endif
endif endif
@ -335,7 +335,7 @@ FCOMMON_OPT += -m128bit-long-double
endif endif
ifeq ($(C_COMPILER), CLANG) ifeq ($(C_COMPILER), CLANG)
EXPRECISION = 1 EXPRECISION = 1
CCOMMON_OPT += -DEXPRECISION CCOMMON_OPT += -DEXPRECISION
FCOMMON_OPT += -m128bit-long-double FCOMMON_OPT += -m128bit-long-double
endif endif
endif endif
@ -455,12 +455,12 @@ endif
BINARY_DEFINED = 1 BINARY_DEFINED = 1
endif endif
ifeq ($(CORE), LOONGSON3A) ifeq ($(CORE), LOONGSON3A)
CCOMMON_OPT += -march=mips64 CCOMMON_OPT += -march=mips64
FCOMMON_OPT += -march=mips64 FCOMMON_OPT += -march=mips64
endif endif
ifeq ($(CORE), LOONGSON3B) ifeq ($(CORE), LOONGSON3B)
CCOMMON_OPT += -march=mips64 CCOMMON_OPT += -march=mips64
FCOMMON_OPT += -march=mips64 FCOMMON_OPT += -march=mips64
endif endif
@ -530,7 +530,7 @@ CCOMMON_OPT += -DF_INTERFACE_GFORT
FCOMMON_OPT += -Wall FCOMMON_OPT += -Wall
#Don't include -lgfortran, when NO_LAPACK=1 or lsbcc #Don't include -lgfortran, when NO_LAPACK=1 or lsbcc
ifneq ($(NO_LAPACK), 1) ifneq ($(NO_LAPACK), 1)
EXTRALIB += -lgfortran EXTRALIB += -lgfortran
endif endif
ifdef NO_BINARY_MODE ifdef NO_BINARY_MODE
ifeq ($(ARCH), mips64) ifeq ($(ARCH), mips64)
@ -657,11 +657,11 @@ FCOMMON_OPT += -n32
else else
FCOMMON_OPT += -n64 FCOMMON_OPT += -n64
endif endif
ifeq ($(CORE), LOONGSON3A) ifeq ($(CORE), LOONGSON3A)
FCOMMON_OPT += -loongson3 -static FCOMMON_OPT += -loongson3 -static
endif endif
ifeq ($(CORE), LOONGSON3B) ifeq ($(CORE), LOONGSON3B)
FCOMMON_OPT += -loongson3 -static FCOMMON_OPT += -loongson3 -static
endif endif
@ -687,11 +687,11 @@ CCOMMON_OPT += -n32
else else
CCOMMON_OPT += -n64 CCOMMON_OPT += -n64
endif endif
ifeq ($(CORE), LOONGSON3A) ifeq ($(CORE), LOONGSON3A)
CCOMMON_OPT += -loongson3 -static CCOMMON_OPT += -loongson3 -static
endif endif
ifeq ($(CORE), LOONGSON3B) ifeq ($(CORE), LOONGSON3B)
CCOMMON_OPT += -loongson3 -static CCOMMON_OPT += -loongson3 -static
endif endif
@ -736,7 +736,7 @@ endif
ifdef BINARY64 ifdef BINARY64
ifdef INTERFACE64 ifdef INTERFACE64
ifneq ($(INTERFACE64), 0) ifneq ($(INTERFACE64), 0)
CCOMMON_OPT += CCOMMON_OPT +=
#-DUSE64BITINT #-DUSE64BITINT
endif endif
endif endif
@ -744,14 +744,14 @@ endif
ifeq ($(NEED_PIC), 1) ifeq ($(NEED_PIC), 1)
ifeq ($(C_COMPILER), IBM) ifeq ($(C_COMPILER), IBM)
CCOMMON_OPT += -qpic=large CCOMMON_OPT += -qpic=large
else else
CCOMMON_OPT += -fPIC CCOMMON_OPT += -fPIC
endif endif
ifeq ($(F_COMPILER), SUN) ifeq ($(F_COMPILER), SUN)
FCOMMON_OPT += -pic FCOMMON_OPT += -pic
else else
FCOMMON_OPT += -fPIC FCOMMON_OPT += -fPIC
endif endif
endif endif
@ -929,7 +929,7 @@ LAPACK_FPFLAGS := $(FPFLAGS)
endif endif
LAPACK_CFLAGS = $(CFLAGS) LAPACK_CFLAGS = $(CFLAGS)
LAPACK_CFLAGS += -DHAVE_LAPACK_CONFIG_H LAPACK_CFLAGS += -DHAVE_LAPACK_CONFIG_H
ifdef INTERFACE64 ifdef INTERFACE64
ifneq ($(INTERFACE64), 0) ifneq ($(INTERFACE64), 0)
LAPACK_CFLAGS += -DLAPACK_ILP64 LAPACK_CFLAGS += -DLAPACK_ILP64

14
Makefile.tail
View File

@ -57,7 +57,7 @@ commonlibs :: $(COMMONOBJS)
commonprof :: $(COMMONOBJS_P) commonprof :: $(COMMONOBJS_P)
$(AR) $(ARFLAGS) -ru $(TOPDIR)/$(LIBNAME_P) $^ $(AR) $(ARFLAGS) -ru $(TOPDIR)/$(LIBNAME_P) $^
quick : quick :
$(MAKE) -C $(TOPDIR) libs $(MAKE) -C $(TOPDIR) libs
bms.$(SUFFIX):bm.c $(TOPDIR)/../bench/bmcommon.h 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) smallbench: smallbench.$(SUFFIX) $(BLASOBJS) $(COMMONOBJS) $(OBJS) $(LIBS)
$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB) $(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
smallbench.mkl: smallbench.$(SUFFIX) smallbench.mkl: smallbench.$(SUFFIX)
$(CC) -o $(@F) $(CFLAGS) $^ $(LIBMKL) $(EXTRALIB) $(CEXTRALIB) $(CC) -o $(@F) $(CFLAGS) $^ $(LIBMKL) $(EXTRALIB) $(CEXTRALIB)
bench.sun: bench.$(SUFFIX) $(OBJS) bench.sun: bench.$(SUFFIX) $(OBJS)
@ -410,7 +410,7 @@ bench.acml: bench.$(SUFFIX) $(OBJS)
bench.flame: bench.$(SUFFIX) $(OBJS) bench.flame: bench.$(SUFFIX) $(OBJS)
$(CC) -o $(@F) $(CFLAGS) $^ $(LIBFLAME) $(EXTRALIB) $(CEXTRALIB) $(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) $(CC) -static -o $(@F) $(CFLAGS) $^ $(LIBMKL) $(EXTRALIB) $(CEXTRALIB)
bench.mkl: bench.$(SUFFIX) $(OBJS) bench.mkl: bench.$(SUFFIX) $(OBJS)
@ -537,10 +537,10 @@ params.$(SUFFIX):param.c $(TOPDIR)/../bench/bmcommon.h
$(CC) $(CFLAGS) -UDOUBLE -UCOMPLEX -c $< -o $(@F) $(CC) $(CFLAGS) -UDOUBLE -UCOMPLEX -c $< -o $(@F)
paramd.$(SUFFIX):param.c $(TOPDIR)/../bench/bmcommon.h 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 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 paramc.$(SUFFIX):paramz.c $(TOPDIR)/../bench/bmcommon.h
$(CC) $(CFLAGS) -UDOUBLE -DCOMPLEX -c $< -o $(@F) $(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) $(CC) $(CFLAGS) -UDOUBLE -UCOMPLEX -c $< -o $(@F)
paramd-ex.$(SUFFIX):param-ex.c $(TOPDIR)/../bench/bmcommon.h 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 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 paramc-ex.$(SUFFIX):paramz-ex.c $(TOPDIR)/../bench/bmcommon.h
$(CC) $(CFLAGS) -UDOUBLE -DCOMPLEX -c $< -o $(@F) $(CC) $(CFLAGS) -UDOUBLE -DCOMPLEX -c $< -o $(@F)

4
Makefile.x86
View File

@ -14,7 +14,7 @@ endif
# LIBMKL = -L$(MKLPATH)/32 -lmkl_lapack -lmkl_ia32 -lguide -lpthread -lm # LIBMKL = -L$(MKLPATH)/32 -lmkl_lapack -lmkl_ia32 -lguide -lpthread -lm
ifndef SMP ifndef SMP
LIBATLAS = -L$(ATLAS) -lf77blas -latlas -lg2c -lm LIBATLAS = -L$(ATLAS) -lf77blas -latlas -lg2c -lm
else else
LIBATLAS = -L$(ATLAS) -lptf77blas -latlas -lpthread -lg2c -lm LIBATLAS = -L$(ATLAS) -lptf77blas -latlas -lpthread -lg2c -lm
endif 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 LIBVECLIB = /System/Library/Frameworks/vecLib.framework/Versions/Current/vecLib
ifndef SMP ifndef SMP
LIBATLAS = -L$(ATLASPATH)/32 -lcblas -lf77blas -latlas -lm LIBATLAS = -L$(ATLASPATH)/32 -lcblas -lf77blas -latlas -lm
else else
LIBATLAS = -L$(ATLASPATH)/32 -lptf77blas -lptatlas -lpthread -lm LIBATLAS = -L$(ATLASPATH)/32 -lptf77blas -lptatlas -lpthread -lm
endif endif

2
Makefile.x86_64
View File

@ -28,7 +28,7 @@ endif
ifndef SMP ifndef SMP
LIBATLAS = -L$(ATLASPATH)64 -llapack -lcblas -lf77blas -latlas -lm LIBATLAS = -L$(ATLASPATH)64 -llapack -lcblas -lf77blas -latlas -lm
else else
LIBATLAS = -L$(ATLASPATH)64 -llapack -lptcblas -lptf77blas -latlas -lpthread -lm LIBATLAS = -L$(ATLASPATH)64 -llapack -lptcblas -lptf77blas -latlas -lpthread -lm
endif endif

14
README.md
View File

@ -3,7 +3,7 @@
[![Build Status](https://travis-ci.org/xianyi/OpenBLAS.png?branch=develop)](https://travis-ci.org/xianyi/OpenBLAS) [![Build Status](https://travis-ci.org/xianyi/OpenBLAS.png?branch=develop)](https://travis-ci.org/xianyi/OpenBLAS)
## Introduction ## 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>. Please read the documents on OpenBLAS wiki pages <http://github.com/xianyi/OpenBLAS/wiki>.
@ -74,7 +74,7 @@ Please read GotoBLAS_01Readme.txt
## Usages ## Usages
Link with libopenblas.a or -lopenblas for shared library. 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: Examples:
@ -84,7 +84,7 @@ Examples:
export GOTO_NUM_THREADS=4 export GOTO_NUM_THREADS=4
or or
export OMP_NUM_THREADS=4 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. 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. 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 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 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. * 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 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 ## 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. 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. 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`. 1. Send a pull request. Make sure to add yourself to `CONTRIBUTORS.md`.

32
benchmark/cholesky.c
View File

@ -78,29 +78,29 @@ int gettimeofday(struct timeval *tv, void *tz){
FILETIME ft; FILETIME ft;
unsigned __int64 tmpres = 0; unsigned __int64 tmpres = 0;
static int tzflag; static int tzflag;
if (NULL != tv) if (NULL != tv)
{ {
GetSystemTimeAsFileTime(&ft); GetSystemTimeAsFileTime(&ft);
tmpres |= ft.dwHighDateTime; tmpres |= ft.dwHighDateTime;
tmpres <<= 32; tmpres <<= 32;
tmpres |= ft.dwLowDateTime; tmpres |= ft.dwLowDateTime;
/*converting file time to unix epoch*/ /*converting file time to unix epoch*/
tmpres /= 10; /*convert into microseconds*/ tmpres /= 10; /*convert into microseconds*/
tmpres -= DELTA_EPOCH_IN_MICROSECS; tmpres -= DELTA_EPOCH_IN_MICROSECS;
tv->tv_sec = (long)(tmpres / 1000000UL); tv->tv_sec = (long)(tmpres / 1000000UL);
tv->tv_usec = (long)(tmpres % 1000000UL); tv->tv_usec = (long)(tmpres % 1000000UL);
} }
return 0; return 0;
} }
#endif #endif
static __inline double getmflops(int ratio, int m, double secs){ static __inline double getmflops(int ratio, int m, double secs){
double mm = (double)m; double mm = (double)m;
double mulflops, addflops; double mulflops, addflops;
@ -137,7 +137,7 @@ int MAIN__(int argc, char *argv[]){
struct timeval start, stop; struct timeval start, stop;
double time1; double time1;
argc--;argv++; argc--;argv++;
if (argc > 0) { from = atol(*argv); argc--; argv++;} if (argc > 0) { from = atol(*argv); argc--; argv++;}
if (argc > 0) { to = MAX(atol(*argv), from); 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){ if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
fprintf(stderr,"Out of Memory!!\n");exit(1); fprintf(stderr,"Out of Memory!!\n");exit(1);
} }
if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){ if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
fprintf(stderr,"Out of Memory!!\n");exit(1); fprintf(stderr,"Out of Memory!!\n");exit(1);
} }
for(m = from; m <= to; m += step){ for(m = from; m <= to; m += step){
fprintf(stderr, "M = %6d : ", (int)m); fprintf(stderr, "M = %6d : ", (int)m);
for (uplos = 0; uplos < 2; uplos ++) { for (uplos = 0; uplos < 2; uplos ++) {
#ifndef COMPLEX #ifndef COMPLEX
if (uplos & 1) { if (uplos & 1) {
for (j = 0; j < m; j++) { for (j = 0; j < m; j++) {
@ -219,11 +219,11 @@ int MAIN__(int argc, char *argv[]){
fprintf(stderr, "Info = %d\n", info); fprintf(stderr, "Info = %d\n", info);
exit(1); exit(1);
} }
time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6; time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
maxerr = 0.; maxerr = 0.;
if (!(uplos & 1)) { if (!(uplos & 1)) {
for (j = 0; j < m; j++) { for (j = 0; j < m; j++) {
for(i = 0; i <= j; i++) { for(i = 0; i <= j; i++) {
@ -247,8 +247,8 @@ int MAIN__(int argc, char *argv[]){
} }
} }
} }
fprintf(stderr, fprintf(stderr,
#ifdef XDOUBLE #ifdef XDOUBLE
" %Le %10.3f MFlops", maxerr, " %Le %10.3f MFlops", maxerr,
#else #else

32
benchmark/linpack.c
View File

@ -83,22 +83,22 @@ int gettimeofday(struct timeval *tv, void *tz){
FILETIME ft; FILETIME ft;
unsigned __int64 tmpres = 0; unsigned __int64 tmpres = 0;
static int tzflag; static int tzflag;
if (NULL != tv) if (NULL != tv)
{ {
GetSystemTimeAsFileTime(&ft); GetSystemTimeAsFileTime(&ft);
tmpres |= ft.dwHighDateTime; tmpres |= ft.dwHighDateTime;
tmpres <<= 32; tmpres <<= 32;
tmpres |= ft.dwLowDateTime; tmpres |= ft.dwLowDateTime;
/*converting file time to unix epoch*/ /*converting file time to unix epoch*/
tmpres /= 10; /*convert into microseconds*/ tmpres /= 10; /*convert into microseconds*/
tmpres -= DELTA_EPOCH_IN_MICROSECS; tmpres -= DELTA_EPOCH_IN_MICROSECS;
tv->tv_sec = (long)(tmpres / 1000000UL); tv->tv_sec = (long)(tmpres / 1000000UL);
tv->tv_usec = (long)(tmpres % 1000000UL); tv->tv_usec = (long)(tmpres % 1000000UL);
} }
return 0; return 0;
} }
@ -154,7 +154,7 @@ int MAIN__(int argc, char *argv[]){
struct timeval start, stop; struct timeval start, stop;
double time1, time2; double time1, time2;
argc--;argv++; argc--;argv++;
if (argc > 0) { from = atol(*argv); argc--; argv++;} if (argc > 0) { from = atol(*argv); argc--; argv++;}
if (argc > 0) { to = MAX(atol(*argv), from); 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){ if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
fprintf(stderr,"Out of Memory!!\n");exit(1); fprintf(stderr,"Out of Memory!!\n");exit(1);
} }
if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * COMPSIZE)) == NULL){ if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * COMPSIZE)) == NULL){
fprintf(stderr,"Out of Memory!!\n");exit(1); fprintf(stderr,"Out of Memory!!\n");exit(1);
} }
if (( ipiv = (blasint *)malloc(sizeof(blasint) * to * COMPSIZE)) == NULL){ if (( ipiv = (blasint *)malloc(sizeof(blasint) * to * COMPSIZE)) == NULL){
fprintf(stderr,"Out of Memory!!\n");exit(1); fprintf(stderr,"Out of Memory!!\n");exit(1);
} }
#ifdef linux #ifdef linux
srandom(getpid()); srandom(getpid());
#endif #endif
@ -181,7 +181,7 @@ int MAIN__(int argc, char *argv[]){
fprintf(stderr, " SIZE Residual Decompose Solve Total\n"); fprintf(stderr, " SIZE Residual Decompose Solve Total\n");
for(m = from; m <= to; m += step){ for(m = from; m <= to; m += step){
fprintf(stderr, " %6d : ", (int)m); fprintf(stderr, " %6d : ", (int)m);
for(j = 0; j < m; j++){ 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; a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
} }
} }
for (i = 0; i < m * COMPSIZE; ++i) b[i] = 0.; for (i = 0; i < m * COMPSIZE; ++i) b[i] = 0.;
for (j = 0; j < m; ++j) { for (j = 0; j < m; ++j) {
for (i = 0; i < m * COMPSIZE; ++i) { for (i = 0; i < m * COMPSIZE; ++i) {
b[i] += a[i + j * m * COMPSIZE]; 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); fprintf(stderr, "Matrix is not singular .. %d\n", info);
exit(1); exit(1);
} }
time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6; time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
gettimeofday( &start, (struct timezone *)0); gettimeofday( &start, (struct timezone *)0);
@ -221,7 +221,7 @@ int MAIN__(int argc, char *argv[]){
fprintf(stderr, "Matrix is not singular .. %d\n", info); fprintf(stderr, "Matrix is not singular .. %d\n", info);
exit(1); exit(1);
} }
time2 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6; time2 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
maxerr = 0.; maxerr = 0.;
@ -239,7 +239,7 @@ int MAIN__(int argc, char *argv[]){
#endif #endif
#endif #endif
} }
#ifdef XDOUBLE #ifdef XDOUBLE
fprintf(stderr," %Le ", maxerr); fprintf(stderr," %Le ", maxerr);
#else #else
@ -247,7 +247,7 @@ int MAIN__(int argc, char *argv[]){
#endif #endif
fprintf(stderr, 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. / 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. * (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); COMPSIZE * COMPSIZE * (2. / 3. * (double)m * (double)m * (double)m + 2. * (double)m * (double)m) / (time1 + time2) * 1.e-6);

18
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 = `$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; $link =~ s/\-Y\sP\,/\-Y/g;
@flags = split(/[\s\,\n]/, $link); @flags = split(/[\s\,\n]/, $link);
# remove leading and trailing quotes from each flag. # remove leading and trailing quotes from each flag.
@flags = map {s/^['"]|['"]$//g; $_} @flags; @flags = map {s/^['"]|['"]$//g; $_} @flags;
@ -193,15 +193,15 @@ $linker_a = "";
&& ($flags !~ /^-LIST:/) && ($flags !~ /^-LIST:/)
&& ($flags !~ /^-LANG:/) && ($flags !~ /^-LANG:/)
) { ) {
$linker_L .= $flags . " " $linker_L .= $flags . " "
} }
if ($flags =~ /^\-Y/) { if ($flags =~ /^\-Y/) {
$linker_L .= "-Wl,". $flags . " " $linker_L .= "-Wl,". $flags . " "
} }
if ( if (
($flags =~ /^\-l/) ($flags =~ /^\-l/)
&& ($flags !~ /gfortranbegin/) && ($flags !~ /gfortranbegin/)
&& ($flags !~ /frtbegin/) && ($flags !~ /frtbegin/)
&& ($flags !~ /pathfstart/) && ($flags !~ /pathfstart/)
@ -213,7 +213,7 @@ $linker_a = "";
&& ($flags !~ /advapi32/) && ($flags !~ /advapi32/)
&& ($flags !~ /shell32/) && ($flags !~ /shell32/)
) { ) {
$linker_l .= $flags . " " $linker_l .= $flags . " "
} }
$linker_a .= $flags . " " if $flags =~ /\.a$/; $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 ""; print CONFFILE "#define FUNDERSCORE\t$need_fu\n" if $need_fu ne "";
if ($os eq "LINUX") { if ($os eq "LINUX") {
# @pthread = split(/\s+/, `nm /lib/libpthread.so* | grep _pthread_create`); # @pthread = split(/\s+/, `nm /lib/libpthread.so* | grep _pthread_create`);
# if ($pthread[2] ne "") { # if ($pthread[2] ne "") {
# print CONFFILE "#define PTHREAD_CREATE_FUNC $pthread[2]\n"; # print CONFFILE "#define PTHREAD_CREATE_FUNC $pthread[2]\n";
# } else { # } else {

6
cblas.h
View File

@ -17,13 +17,13 @@ void goto_set_num_threads(int num_threads);
char* openblas_get_config(void); char* openblas_get_config(void);
/* Get the parallelization type which is used by OpenBLAS */ /* 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 */ /* OpenBLAS is compiled for sequential use */
#define OPENBLAS_SEQUENTIAL 0 #define OPENBLAS_SEQUENTIAL 0
/* OpenBLAS is compiled using normal threading model */ /* OpenBLAS is compiled using normal threading model */
#define OPENBLAS_THREAD 1 #define OPENBLAS_THREAD 1
/* OpenBLAS is compiled using OpenMP threading model */ /* OpenBLAS is compiled using OpenMP threading model */
#define OPENBLAS_OPENMP 2 #define OPENBLAS_OPENMP 2
/* /*

6
cblas_noconst.h
View File

@ -17,13 +17,13 @@ void goto_set_num_threads(int num_threads);
char* openblas_get_config(void); char* openblas_get_config(void);
/* Get the parallelization type which is used by OpenBLAS */ /* 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 */ /* OpenBLAS is compiled for sequential use */
#define OPENBLAS_SEQUENTIAL 0 #define OPENBLAS_SEQUENTIAL 0
/* OpenBLAS is compiled using normal threading model */ /* OpenBLAS is compiled using normal threading model */
#define OPENBLAS_THREAD 1 #define OPENBLAS_THREAD 1
/* OpenBLAS is compiled using OpenMP threading model */ /* OpenBLAS is compiled using OpenMP threading model */
#define OPENBLAS_OPENMP 2 #define OPENBLAS_OPENMP 2
#define CBLAS_INDEX size_t #define CBLAS_INDEX size_t

6
common.h
View File

@ -536,7 +536,7 @@ static __inline void compinv(FLOAT *b, FLOAT ar, FLOAT ai){
#ifndef UNIT #ifndef UNIT
FLOAT ratio, den; FLOAT ratio, den;
if ( if (
#ifdef XDOUBLE #ifdef XDOUBLE
(fabsl(ar)) >= (fabsl(ai)) (fabsl(ar)) >= (fabsl(ai))
@ -562,7 +562,7 @@ static __inline void compinv(FLOAT *b, FLOAT ar, FLOAT ai){
b[0] = ONE; b[0] = ONE;
b[1] = ZERO; b[1] = ZERO;
#endif #endif
} }
#endif #endif
@ -698,7 +698,7 @@ extern int gotoblas_profile;
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif /* __cplusplus */ #endif /* __cplusplus */
#endif #endif

26
common_arm.h
View File

@ -13,19 +13,19 @@ met:
notice, this list of conditions and the following disclaimer in notice, this list of conditions and the following disclaimer in
the documentation and/or other materials provided with the the documentation and/or other materials provided with the
distribution. distribution.
3. Neither the name of the ISCAS nor the names of its contributors may 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 be used to endorse or promote products derived from this software
without specific prior written permission. without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 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 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. 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" "mov %0 , r3 \n\t"
: "=r"(ret), "=r"(address) : "=r"(ret), "=r"(address)
: "1"(address) : "1"(address)
: "memory", "r2" , "r3" : "memory", "r2" , "r3"
); );
@ -143,7 +143,7 @@ static inline int blas_quickdivide(blasint x, blasint y){
.func REALNAME ;\ .func REALNAME ;\
REALNAME: REALNAME:
#define EPILOGUE #define EPILOGUE
#define PROFCODE #define PROFCODE

26
common_arm64.h
View File

@ -13,19 +13,19 @@ met:
notice, this list of conditions and the following disclaimer in notice, this list of conditions and the following disclaimer in
the documentation and/or other materials provided with the the documentation and/or other materials provided with the
distribution. distribution.
3. Neither the name of the ISCAS nor the names of its contributors may 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 be used to endorse or promote products derived from this software
without specific prior written permission. without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 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 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. 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" "mov %0 , r3 \n\t"
: "=r"(ret), "=r"(address) : "=r"(ret), "=r"(address)
: "1"(address) : "1"(address)
: "memory", "r2" , "r3" : "memory", "r2" , "r3"
); );
@ -143,7 +143,7 @@ static inline int blas_quickdivide(blasint x, blasint y){
.func REALNAME ;\ .func REALNAME ;\
REALNAME: REALNAME:
#define EPILOGUE #define EPILOGUE
#define PROFCODE #define PROFCODE

4
common_ia64.h
View File

@ -58,10 +58,10 @@
static __inline void blas_lock(volatile unsigned long *address){ static __inline void blas_lock(volatile unsigned long *address){
unsigned long ret; unsigned long ret;
do { do {
while (*address) {YIELDING;}; while (*address) {YIELDING;};
__asm__ __volatile__ ("mov ar.ccv=r0\n;;\n" __asm__ __volatile__ ("mov ar.ccv=r0\n;;\n"
"cmpxchg4.acq %0=[%2],%1,ar.ccv\n" "cmpxchg4.acq %0=[%2],%1,ar.ccv\n"
: "=r"(ret) : "r"(1), "r"(address) : "=r"(ret) : "r"(1), "r"(address)

124
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 *, void BLASFUNC(xgerc)(blasint *, blasint *, xdouble *, xdouble *, blasint *,
xdouble *, blasint *, 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 *); 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 *); 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 *); 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 *); 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 *); 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 *); xdouble *, blasint *, xdouble *, xdouble *, blasint *);
void BLASFUNC(strsv) (char *, char *, char *, blasint *, float *, 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 *); double *, blasint *);
void BLASFUNC(qtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *, void BLASFUNC(qtrsv) (char *, char *, char *, blasint *, xdouble *, 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 *); float *, blasint *);
void BLASFUNC(ztrsv) (char *, char *, char *, blasint *, double *, blasint *, void BLASFUNC(ztrsv) (char *, char *, char *, blasint *, double *, 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 *); xdouble *, blasint *);
void BLASFUNC(strmv) (char *, char *, char *, blasint *, float *, blasint *, void BLASFUNC(strmv) (char *, char *, char *, blasint *, float *, 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 *); double *, blasint *);
void BLASFUNC(qtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *, void BLASFUNC(qtrmv) (char *, char *, char *, blasint *, xdouble *, 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 *); float *, blasint *);
void BLASFUNC(ztrmv) (char *, char *, char *, blasint *, double *, blasint *, void BLASFUNC(ztrmv) (char *, char *, char *, blasint *, double *, 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 *); xdouble *, blasint *);
void BLASFUNC(stpsv) (char *, char *, char *, blasint *, float *, float *, 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(ztbsv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *);
void BLASFUNC(xtbsv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, 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 *); 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 *); 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 *); 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 *); 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 *); 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 *); xdouble *, blasint *, xdouble *, xdouble *, blasint *);
void BLASFUNC(sspmv) (char *, blasint *, float *, float *, void BLASFUNC(sspmv) (char *, blasint *, float *, float *,
float *, blasint *, float *, float *, blasint *); float *, blasint *, float *, float *, blasint *);
void BLASFUNC(dspmv) (char *, blasint *, double *, double *, void BLASFUNC(dspmv) (char *, blasint *, double *, double *,
double *, blasint *, double *, double *, blasint *); double *, blasint *, double *, double *, blasint *);
void BLASFUNC(qspmv) (char *, blasint *, xdouble *, xdouble *, void BLASFUNC(qspmv) (char *, blasint *, xdouble *, xdouble *,
xdouble *, blasint *, xdouble *, xdouble *, blasint *); xdouble *, blasint *, xdouble *, xdouble *, blasint *);
void BLASFUNC(cspmv) (char *, blasint *, float *, float *, void BLASFUNC(cspmv) (char *, blasint *, float *, float *,
float *, blasint *, float *, float *, blasint *); 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 *, void BLASFUNC(xsyr) (char *, blasint *, xdouble *, xdouble *, blasint *,
xdouble *, blasint *); xdouble *, blasint *);
void BLASFUNC(ssyr2) (char *, blasint *, float *, void BLASFUNC(ssyr2) (char *, blasint *, float *,
float *, blasint *, float *, blasint *, float *, blasint *); float *, blasint *, float *, blasint *, float *, blasint *);
void BLASFUNC(dsyr2) (char *, blasint *, double *, void BLASFUNC(dsyr2) (char *, blasint *, double *,
double *, blasint *, double *, blasint *, double *, blasint *); double *, blasint *, double *, blasint *, double *, blasint *);
void BLASFUNC(qsyr2) (char *, blasint *, xdouble *, void BLASFUNC(qsyr2) (char *, blasint *, xdouble *,
xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
void BLASFUNC(csyr2) (char *, blasint *, float *, void BLASFUNC(csyr2) (char *, blasint *, float *,
float *, blasint *, float *, blasint *, float *, blasint *); float *, blasint *, float *, blasint *, float *, blasint *);
void BLASFUNC(zsyr2) (char *, blasint *, double *, void BLASFUNC(zsyr2) (char *, blasint *, double *,
double *, blasint *, double *, blasint *, double *, blasint *); double *, blasint *, double *, blasint *, double *, blasint *);
void BLASFUNC(xsyr2) (char *, blasint *, xdouble *, void BLASFUNC(xsyr2) (char *, blasint *, xdouble *,
xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
void BLASFUNC(sspr) (char *, blasint *, float *, float *, 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 *, void BLASFUNC(xspr) (char *, blasint *, xdouble *, xdouble *, blasint *,
xdouble *); xdouble *);
void BLASFUNC(sspr2) (char *, blasint *, float *, void BLASFUNC(sspr2) (char *, blasint *, float *,
float *, blasint *, float *, blasint *, float *); float *, blasint *, float *, blasint *, float *);
void BLASFUNC(dspr2) (char *, blasint *, double *, void BLASFUNC(dspr2) (char *, blasint *, double *,
double *, blasint *, double *, blasint *, double *); double *, blasint *, double *, blasint *, double *);
void BLASFUNC(qspr2) (char *, blasint *, xdouble *, void BLASFUNC(qspr2) (char *, blasint *, xdouble *,
xdouble *, blasint *, xdouble *, blasint *, xdouble *); xdouble *, blasint *, xdouble *, blasint *, xdouble *);
void BLASFUNC(cspr2) (char *, blasint *, float *, void BLASFUNC(cspr2) (char *, blasint *, float *,
float *, blasint *, float *, blasint *, float *); float *, blasint *, float *, blasint *, float *);
void BLASFUNC(zspr2) (char *, blasint *, double *, void BLASFUNC(zspr2) (char *, blasint *, double *,
double *, blasint *, double *, blasint *, double *); double *, blasint *, double *, blasint *, double *);
void BLASFUNC(xspr2) (char *, blasint *, xdouble *, void BLASFUNC(xspr2) (char *, blasint *, xdouble *,
xdouble *, blasint *, xdouble *, blasint *, xdouble *); xdouble *, blasint *, xdouble *, blasint *, xdouble *);
void BLASFUNC(cher) (char *, blasint *, float *, float *, blasint *, 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(zhpr) (char *, blasint *, double *, double *, blasint *, double *);
void BLASFUNC(xhpr) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *); 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 *); float *, blasint *, float *, blasint *, float *, blasint *);
void BLASFUNC(zher2) (char *, blasint *, double *, void BLASFUNC(zher2) (char *, blasint *, double *,
double *, blasint *, double *, blasint *, double *, blasint *); double *, blasint *, double *, blasint *, double *, blasint *);
void BLASFUNC(xher2) (char *, blasint *, xdouble *, void BLASFUNC(xher2) (char *, blasint *, xdouble *,
xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *);
void BLASFUNC(chpr2) (char *, blasint *, float *, void BLASFUNC(chpr2) (char *, blasint *, float *,
float *, blasint *, float *, blasint *, float *); float *, blasint *, float *, blasint *, float *);
void BLASFUNC(zhpr2) (char *, blasint *, double *, void BLASFUNC(zhpr2) (char *, blasint *, double *,
double *, blasint *, double *, blasint *, double *); double *, blasint *, double *, blasint *, double *);
void BLASFUNC(xhpr2) (char *, blasint *, xdouble *, void BLASFUNC(xhpr2) (char *, blasint *, xdouble *,
xdouble *, blasint *, xdouble *, 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 *); 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 *); 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 *); xdouble *, blasint *, xdouble *, xdouble *, blasint *);
void BLASFUNC(chpmv) (char *, blasint *, float *, float *, 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(cnorm)(char *, blasint *, blasint *, float *, blasint *);
int BLASFUNC(znorm)(char *, blasint *, blasint *, double *, 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 *); 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 *); 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 *); 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 *); 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 *); 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 *); 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 *); 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 *); 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 *); 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 *); 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 *); 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 *); 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 *); 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 *); 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 *); xdouble *, blasint *, xdouble *, xdouble *, blasint *);
/* Level 3 routines */ /* Level 3 routines */
@ -606,18 +606,18 @@ int BLASFUNC(sgemt)(char *, blasint *, blasint *, float *, float *, blasint *,
float *, blasint *); float *, blasint *);
int BLASFUNC(dgemt)(char *, blasint *, blasint *, double *, double *, blasint *, int BLASFUNC(dgemt)(char *, blasint *, blasint *, double *, double *, blasint *,
double *, blasint *); double *, blasint *);
int BLASFUNC(cgemt)(char *, blasint *, blasint *, float *, float *, blasint *, int BLASFUNC(cgemt)(char *, blasint *, blasint *, float *, float *, blasint *,
float *, blasint *); float *, blasint *);
int BLASFUNC(zgemt)(char *, blasint *, blasint *, double *, double *, blasint *, int BLASFUNC(zgemt)(char *, blasint *, blasint *, double *, double *, blasint *,
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 *); float *, blasint *, float *, float *, blasint *, float *, blasint *);
int BLASFUNC(dgema)(char *, char *, blasint *, blasint *, double *, int BLASFUNC(dgema)(char *, char *, blasint *, blasint *, double *,
double *, blasint *, double*, double *, blasint *, double*, blasint *); double *, blasint *, double*, double *, blasint *, double*, blasint *);
int BLASFUNC(cgema)(char *, char *, blasint *, blasint *, float *, int BLASFUNC(cgema)(char *, char *, blasint *, blasint *, float *,
float *, blasint *, float *, float *, blasint *, float *, blasint *); 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 *); double *, blasint *, double*, double *, blasint *, double*, blasint *);
int BLASFUNC(sgems)(char *, char *, blasint *, blasint *, float *, int BLASFUNC(sgems)(char *, char *, blasint *, blasint *, float *,
@ -776,7 +776,7 @@ void BLASFUNC(zimatcopy) (char *, char *, blasint *, blasint *, double *, do
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif /* __cplusplus */ #endif /* __cplusplus */
#endif #endif

18
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 xdotc_k (BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
xdouble _Complex xdotu_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); 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); 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); xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
int caxpy_k (BLASLONG, BLASLONG, BLASLONG, float, float, int caxpy_k (BLASLONG, BLASLONG, BLASLONG, float, float,
float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); 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 zcopy_k(BLASLONG, double *, BLASLONG, double *, BLASLONG);
int xcopy_k(BLASLONG, xdouble *, BLASLONG, xdouble *, 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); 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); 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); xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble*, BLASLONG);
int cswap_k (BLASLONG, BLASLONG, BLASLONG, float, float, int cswap_k (BLASLONG, BLASLONG, BLASLONG, float, float,
float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); float *, BLASLONG, float *, BLASLONG, float *, BLASLONG);
@ -156,11 +156,11 @@ BLASLONG icmin_k(BLASLONG, float *, BLASLONG);
BLASLONG izmin_k(BLASLONG, double *, BLASLONG); BLASLONG izmin_k(BLASLONG, double *, BLASLONG);
BLASLONG ixmin_k(BLASLONG, xdouble *, 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); 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); 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); xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
int cscal_k(BLASLONG, BLASLONG, BLASLONG, float, float, int cscal_k(BLASLONG, BLASLONG, BLASLONG, float, float,
float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); float *, BLASLONG, float *, BLASLONG, float *, BLASLONG);

16
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_n(BLASLONG, BLASLONG, double *a, BLASLONG);
int znorm_t(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); float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer);
void sgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, void sgbmv_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float,
float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer);
void dgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, void dgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double,
double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, void *buffer); 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); double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, void *buffer);
void qgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, void qgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble,
xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *buffer); 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); xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *buffer);
void cgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float, void cgbmv_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float,
float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); 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); float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer);
void cgbmv_r(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float, void cgbmv_r(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, float,
float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, void *buffer); 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, void xgbmv_d(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble,
xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, void *buffer); 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); float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int);
int sgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float, int sgbmv_thread_t(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float,
float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int);
int dgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double, int dgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, double,
double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, double *buffer, int); 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); double *, BLASLONG, double *, BLASLONG, double *, BLASLONG, double *buffer, int);
int qgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble, int qgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, xdouble,
xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *buffer, int); 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); xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *buffer, int);
int cgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float *, int cgbmv_thread_n(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float *,
float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); 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); float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int);
int cgbmv_thread_r(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float *, int cgbmv_thread_r(BLASLONG, BLASLONG, BLASLONG, BLASLONG, float *,
float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int); float *, BLASLONG, float *, BLASLONG, float *, BLASLONG, float *buffer, int);

8
common_level3.h
View File

@ -47,9 +47,9 @@ __global__ void cuda_dgemm_kernel(int, int, int, double *, double *, double *);
extern "C" { extern "C" {
#endif #endif
int sgemm_beta(BLASLONG, BLASLONG, BLASLONG, float, int sgemm_beta(BLASLONG, BLASLONG, BLASLONG, float,
float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); 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); double *, BLASLONG, double *, BLASLONG, double *, BLASLONG);
int cgemm_beta(BLASLONG, BLASLONG, BLASLONG, float, float, int cgemm_beta(BLASLONG, BLASLONG, BLASLONG, float, float,
float *, BLASLONG, float *, BLASLONG, float *, BLASLONG); float *, BLASLONG, float *, BLASLONG, float *, BLASLONG);
@ -57,12 +57,12 @@ int zgemm_beta(BLASLONG, BLASLONG, BLASLONG, double, double,
double *, BLASLONG, double *, BLASLONG, double *, BLASLONG); double *, BLASLONG, double *, BLASLONG, double *, BLASLONG);
#ifdef EXPRECISION #ifdef EXPRECISION
int qgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble, int qgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble,
xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
int xgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, int xgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble,
xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
#else #else
int qgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble *, int qgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble *,
xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);
int xgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble *, int xgemm_beta(BLASLONG, BLASLONG, BLASLONG, xdouble *,
xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG); xdouble *, BLASLONG, xdouble *, BLASLONG, xdouble *, BLASLONG);

6
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 // https://lsbbugs.linuxfoundation.org/show_bug.cgi?id=3482
return 0; return 0;
#else #else
#if defined (LOONGSON3B) #if defined (LOONGSON3B)
#if defined (__64BIT__) #if defined (__64BIT__)
return syscall(SYS_mbind, addr, len, mode, nodemask, maxnode, flags); return syscall(SYS_mbind, addr, len, mode, nodemask, maxnode, flags);
#else #else
@ -99,9 +99,9 @@ static inline int my_set_mempolicy(int mode, const unsigned long *addr, unsigned
#endif #endif
} }
static inline int my_gettid(void) { static inline int my_gettid(void) {
#ifdef SYS_gettid #ifdef SYS_gettid
return syscall(SYS_gettid); return syscall(SYS_gettid);
#else #else
return getpid(); return getpid();
#endif #endif

46
common_mips64.h
View File

@ -13,19 +13,19 @@ met:
notice, this list of conditions and the following disclaimer in notice, this list of conditions and the following disclaimer in
the documentation and/or other materials provided with the the documentation and/or other materials provided with the
distribution. distribution.
3. Neither the name of the ISCAS nor the names of its contributors may 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 be used to endorse or promote products derived from this software
without specific prior written permission. without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 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 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. 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"); ".set pop": "=r"(ret):: "memory");
#else #else
__asm__ __volatile__(".set push \n" __asm__ __volatile__(".set push \n"
".set mips32r2\n" ".set mips32r2\n"
"rdhwr %0, $30 \n" "rdhwr %0, $30 \n"
".set pop" : "=r"(ret) : : "memory"); ".set pop" : "=r"(ret) : : "memory");
#endif #endif
return ret; return ret;
@ -191,13 +191,13 @@ static inline int blas_quickdivide(blasint x, blasint y){
#define CMPEQ c.eq.s #define CMPEQ c.eq.s
#define CMPLE c.le.s #define CMPLE c.le.s
#define CMPLT c.lt.s #define CMPLT c.lt.s
#define PLU plu.ps #define PLU plu.ps
#define PLL pll.ps #define PLL pll.ps
#define PUU puu.ps #define PUU puu.ps
#define PUL pul.ps #define PUL pul.ps
#define MADPS madd.ps #define MADPS madd.ps
#define CVTU cvt.s.pu #define CVTU cvt.s.pu
#define CVTL cvt.s.pl #define CVTL cvt.s.pl
#define NEG neg.s #define NEG neg.s
#endif #endif
@ -279,9 +279,9 @@ REALNAME: ;\
#if defined(LOONGSON3A) || defined(LOONGSON3B) #if defined(LOONGSON3A) || defined(LOONGSON3B)
#define PREFETCHD_(x) ld $0, x #define PREFETCHD_(x) ld $0, x
#define PREFETCHD(x) PREFETCHD_(x) #define PREFETCHD(x) PREFETCHD_(x)
#else #else
#define PREFETCHD(x) #define PREFETCHD(x)
#endif #endif
#endif #endif

76
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_itcopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *);
int (*sgemm_oncopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); int (*sgemm_oncopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *);
int (*sgemm_otcopy )(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_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_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_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_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG);
int (*strsm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); int (*strsm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *);
int (*strsm_iunncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); int (*strsm_iunncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *);
int (*strsm_iutucopy)(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_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_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_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, float, float *, float *, float *, BLASLONG, BLASLONG);
int (*strmm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*strmm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*strmm_iunncopy)(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 *); 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_olnncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*strmm_oltucopy)(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 (*strmm_oltncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*ssymm_iutcopy)(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_iltcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*ssymm_outcopy)(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_itcopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *);
int (*dgemm_oncopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); int (*dgemm_oncopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *);
int (*dgemm_otcopy )(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_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_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_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_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG);
int (*dtrsm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); int (*dtrsm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *);
int (*dtrsm_iunncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); int (*dtrsm_iunncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *);
int (*dtrsm_iutucopy)(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_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_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_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, double, double *, double *, double *, BLASLONG, BLASLONG);
int (*dtrmm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*dtrmm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*dtrmm_iunncopy)(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 *); 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_olnncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*dtrmm_oltucopy)(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 (*dtrmm_oltncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*dsymm_iutcopy)(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_iltcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*dsymm_outcopy)(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_itcopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *);
int (*qgemm_oncopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); int (*qgemm_oncopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *);
int (*qgemm_otcopy )(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_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_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_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_kernel_RT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG);
int (*qtrsm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); int (*qtrsm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *);
int (*qtrsm_iunncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); int (*qtrsm_iunncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *);
int (*qtrsm_iutucopy)(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_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_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_kernel_LT)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG);
int (*qtrmm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*qtrmm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*qtrmm_iunncopy)(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 *); 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_olnncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*qtrmm_oltucopy)(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 (*qtrmm_oltncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*qsymm_iutcopy)(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_iltcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*qsymm_outcopy)(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_itcopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *);
int (*cgemm_oncopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *); int (*cgemm_oncopy )(BLASLONG, BLASLONG, float *, BLASLONG, float *);
int (*cgemm_otcopy )(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_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_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); 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_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_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_kernel_RC)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG);
int (*ctrsm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); int (*ctrsm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *);
int (*ctrsm_iunncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *); int (*ctrsm_iunncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, float *);
int (*ctrsm_iutucopy)(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_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_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_kernel_LC)(BLASLONG, BLASLONG, BLASLONG, float, float, float *, float *, float *, BLASLONG, BLASLONG);
int (*ctrmm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*ctrmm_iunucopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*ctrmm_iunncopy)(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 *); 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_olnncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*ctrmm_oltucopy)(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 (*ctrmm_oltncopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*csymm_iutcopy)(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_iltcopy)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*csymm_outcopy)(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_itcopyb)(BLASLONG, BLASLONG, float *, BLASLONG, float *);
int (*cgemm3m_itcopyr)(BLASLONG, BLASLONG, float *, BLASLONG, float *); int (*cgemm3m_itcopyr)(BLASLONG, BLASLONG, float *, BLASLONG, float *);
int (*cgemm3m_itcopyi)(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_oncopyb)(BLASLONG, BLASLONG, float *, BLASLONG, float, float, float *);
int (*cgemm3m_oncopyr)(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 *); 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_ilcopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*csymm3m_iucopyi)(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_ilcopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*csymm3m_oucopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, 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_olcopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *);
int (*csymm3m_oucopyr)(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_olcopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *);
int (*csymm3m_oucopyi)(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 (*csymm3m_olcopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *);
int (*chemm3m_iucopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *); int (*chemm3m_iucopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*chemm3m_ilcopyb)(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_iucopyr)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*chemm3m_ilcopyr)(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_iucopyi)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float *);
int (*chemm3m_ilcopyi)(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_oucopyb)(BLASLONG, BLASLONG, float *, BLASLONG, BLASLONG, BLASLONG, float, float, float *);
int (*chemm3m_olcopyb)(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 *); 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_itcopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *);
int (*zgemm_oncopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *); int (*zgemm_oncopy )(BLASLONG, BLASLONG, double *, BLASLONG, double *);
int (*zgemm_otcopy )(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_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_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); 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_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_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_kernel_RC)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG);
int (*ztrsm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); int (*ztrsm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *);
int (*ztrsm_iunncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *); int (*ztrsm_iunncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, double *);
int (*ztrsm_iutucopy)(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_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_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_kernel_LC)(BLASLONG, BLASLONG, BLASLONG, double, double, double *, double *, double *, BLASLONG, BLASLONG);
int (*ztrmm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*ztrmm_iunucopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*ztrmm_iunncopy)(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 *); 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_olnncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*ztrmm_oltucopy)(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 (*ztrmm_oltncopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*zsymm_iutcopy)(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_iltcopy)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*zsymm_outcopy)(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_itcopyb)(BLASLONG, BLASLONG, double *, BLASLONG, double *);
int (*zgemm3m_itcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, double *); int (*zgemm3m_itcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, double *);
int (*zgemm3m_itcopyi)(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_oncopyb)(BLASLONG, BLASLONG, double *, BLASLONG, double, double, double *);
int (*zgemm3m_oncopyr)(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 *); 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_ilcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*zsymm3m_iucopyi)(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_ilcopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*zsymm3m_oucopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, 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_olcopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *);
int (*zsymm3m_oucopyr)(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_olcopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *);
int (*zsymm3m_oucopyi)(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 (*zsymm3m_olcopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *);
int (*zhemm3m_iucopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *); int (*zhemm3m_iucopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*zhemm3m_ilcopyb)(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_iucopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*zhemm3m_ilcopyr)(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_iucopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double *);
int (*zhemm3m_ilcopyi)(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_oucopyb)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *);
int (*zhemm3m_olcopyb)(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_oucopyr)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *);
int (*zhemm3m_olcopyr)(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_oucopyi)(BLASLONG, BLASLONG, double *, BLASLONG, BLASLONG, BLASLONG, double, double, double *);
int (*zhemm3m_olcopyi)(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 (*zneg_tcopy) (BLASLONG, BLASLONG, double *, BLASLONG, double *);
int (*zlaswp_ncopy) (BLASLONG, BLASLONG, BLASLONG, double *, BLASLONG, blasint *, 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_itcopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *);
int (*xgemm_oncopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); int (*xgemm_oncopy )(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *);
int (*xgemm_otcopy )(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_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_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); 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_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_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_kernel_RC)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG);
int (*xtrsm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); int (*xtrsm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *);
int (*xtrsm_iunncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *); int (*xtrsm_iunncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, xdouble *);
int (*xtrsm_iutucopy)(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_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_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_kernel_LC)(BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *, xdouble *, xdouble *, BLASLONG, BLASLONG);
int (*xtrmm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xtrmm_iunucopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*xtrmm_iunncopy)(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 *); 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_olnncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*xtrmm_oltucopy)(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 (*xtrmm_oltncopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*xsymm_iutcopy)(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_iltcopy)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*xsymm_outcopy)(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_itcopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *);
int (*xgemm3m_itcopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *); int (*xgemm3m_itcopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble *);
int (*xgemm3m_itcopyi)(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_oncopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, xdouble, xdouble, xdouble *);
int (*xgemm3m_oncopyr)(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 *); 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_ilcopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*xsymm3m_iucopyi)(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_ilcopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*xsymm3m_oucopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, 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_olcopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *);
int (*xsymm3m_oucopyr)(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_olcopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *);
int (*xsymm3m_oucopyi)(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 (*xsymm3m_olcopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *);
int (*xhemm3m_iucopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *); int (*xhemm3m_iucopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*xhemm3m_ilcopyb)(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_iucopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*xhemm3m_ilcopyr)(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_iucopyi)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble *);
int (*xhemm3m_ilcopyi)(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_oucopyb)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *);
int (*xhemm3m_olcopyb)(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 *); int (*xhemm3m_oucopyr)(BLASLONG, BLASLONG, xdouble *, BLASLONG, BLASLONG, BLASLONG, xdouble, xdouble, xdouble *);
@ -902,7 +902,7 @@ extern gotoblas_t *gotoblas;
#else #else
#define DTB_ENTRIES DTB_DEFAULT_ENTRIES #define DTB_ENTRIES DTB_DEFAULT_ENTRIES
#define GEMM_OFFSET_A GEMM_DEFAULT_OFFSET_A #define GEMM_OFFSET_A GEMM_DEFAULT_OFFSET_A
#define GEMM_OFFSET_B GEMM_DEFAULT_OFFSET_B #define GEMM_OFFSET_B GEMM_DEFAULT_OFFSET_B

2
common_power.h
View File

@ -114,7 +114,7 @@ static inline unsigned long getstackaddr(void){
__asm__ __volatile__ ("mr %0, 1" __asm__ __volatile__ ("mr %0, 1"
: "=r"(addr) : : "memory"); : "=r"(addr) : : "memory");
return addr; return addr;
}; };
#if defined(OS_LINUX) || defined(OS_AIX) #if defined(OS_LINUX) || defined(OS_AIX)

24
common_reference.h
View File

@ -13,19 +13,19 @@ met:
notice, this list of conditions and the following disclaimer in notice, this list of conditions and the following disclaimer in
the documentation and/or other materials provided with the the documentation and/or other materials provided with the
distribution. distribution.
3. Neither the name of the ISCAS nor the names of its contributors may 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 be used to endorse or promote products derived from this software
without specific prior written permission. without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 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 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. 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*); double BLASFUNC_REF(dsdot)(blasint *, float *, blasint *, float *, blasint*);
FLOATRET BLASFUNC_REF(samax) (blasint *, float *, blasint *); FLOATRET BLASFUNC_REF(samax) (blasint *, float *, blasint *);
#endif #endif

26
common_sparc.h
View File

@ -130,7 +130,7 @@ static __inline int blas_quickdivide(blasint x, blasint y){
#define FSQRT fsqrts #define FSQRT fsqrts
#define FDIV fdivs #define FDIV fdivs
#endif #endif
#define HALT prefetch [%g0], 5 #define HALT prefetch [%g0], 5
#define FMADDS(rs1, rs2, rs3, rd) \ #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)) .word ((2 << 30) | ((rd) << 25) | ( 0x36 << 19) | ( 0x7e << 5))
#ifndef DOUBLE #ifndef DOUBLE
#define FCLR(a) FCLRS(a) #define FCLR(a) FCLRS(a)
#define FONE(a) FONES(a) #define FONE(a) FONES(a)
#define FMADD(a, b, c, d) FMADDS(a, b, c, d) #define FMADD(a, b, c, d) FMADDS(a, b, c, d)
#define FMSUB(a, b, c, d) FMSUBS(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 FNMADD(a, b, c, d) FNMADDS(a, b, c, d)
#define FNMSUB(a, b, c, d) FNMSUBS(a, b, c, d) #define FNMSUB(a, b, c, d) FNMSUBS(a, b, c, d)
#else #else
#define FCLR(a) FCLRD(a) #define FCLR(a) FCLRD(a)
#define FONE(a) FONED(a) #define FONE(a) FONED(a)
#define FMADD(a, b, c, d) FMADDD(a, b, c, d) #define FMADD(a, b, c, d) FMADDD(a, b, c, d)
#define FMSUB(a, b, c, d) FMSUBD(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 FNMADD(a, b, c, d) FNMADDD(a, b, c, d)
#define FNMSUB(a, b, c, d) FNMSUBD(a, b, c, d) #define FNMSUB(a, b, c, d) FNMSUBD(a, b, c, d)
#endif #endif
#ifndef F_INTERFACE #ifndef F_INTERFACE

6
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, int blas_level1_thread(int mode, BLASLONG m, BLASLONG n, BLASLONG k, void *alpha,
void *a, BLASLONG lda, void *a, BLASLONG lda,
void *b, BLASLONG ldb, void *b, BLASLONG ldb,
void *c, BLASLONG ldc, int (*function)(), int threads); void *c, BLASLONG ldc, int (*function)(), int threads);
int gemm_thread_m (int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG); 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 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, double alpha_r, double alpha_i,
void *a, BLASLONG lda, void *a, BLASLONG lda,
void *c, BLASLONG ldc, int (*function)(), void *buffer); void *c, BLASLONG ldc, int (*function)(), void *buffer);
int syrk_thread(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG); 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, double alpha_r, double alpha_i,
void *c, BLASLONG ldc, int (*fuction)()); void *c, BLASLONG ldc, int (*fuction)());

12
common_x86.h
View File

@ -55,7 +55,7 @@ static void __inline blas_lock(volatile BLASULONG *address){
do { do {
while (*address) {YIELDING;}; while (*address) {YIELDING;};
__asm__ __volatile__( __asm__ __volatile__(
"xchgl %0, %1\n" "xchgl %0, %1\n"
: "=r"(ret), "=m"(*address) : "=r"(ret), "=m"(*address)
@ -70,8 +70,8 @@ static __inline unsigned long long rpcc(void){
unsigned int a, d; unsigned int a, d;
__asm__ __volatile__ ("rdtsc" : "=a" (a), "=d" (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){ static __inline unsigned long getstackaddr(void){
@ -80,7 +80,7 @@ static __inline unsigned long getstackaddr(void){
__asm__ __volatile__ ("mov %%esp, %0" __asm__ __volatile__ ("mov %%esp, %0"
: "=r"(addr) : : "memory"); : "=r"(addr) : : "memory");
return addr; return addr;
}; };
@ -365,9 +365,9 @@ REALNAME:
#ifndef ALIGN_6 #ifndef ALIGN_6
#define ALIGN_6 .align 64 #define ALIGN_6 .align 64
#endif #endif
// ffreep %st(0). // ffreep %st(0).
// Because Clang didn't support ffreep, we directly use the opcode. // 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 #ifndef ffreep
#define ffreep .byte 0xdf, 0xc0 # #define ffreep .byte 0xdf, 0xc0 #
#endif #endif

12
common_x86_64.h
View File

@ -60,7 +60,7 @@ static void __inline blas_lock(volatile BLASULONG *address){
do { do {
while (*address) {YIELDING;}; while (*address) {YIELDING;};
__asm__ __volatile__( __asm__ __volatile__(
"xchgl %0, %1\n" "xchgl %0, %1\n"
: "=r"(ret), "=m"(*address) : "=r"(ret), "=m"(*address)
@ -74,8 +74,8 @@ static __inline BLASULONG rpcc(void){
BLASULONG a, d; BLASULONG a, d;
__asm__ __volatile__ ("rdtsc" : "=a" (a), "=d" (d)); __asm__ __volatile__ ("rdtsc" : "=a" (a), "=d" (d));
return ((BLASULONG)a + ((BLASULONG)d << 32)); return ((BLASULONG)a + ((BLASULONG)d << 32));
} }
#define RPCC64BIT #define RPCC64BIT
@ -86,7 +86,7 @@ static __inline BLASULONG getstackaddr(void){
__asm__ __volatile__ ("movq %%rsp, %0" __asm__ __volatile__ ("movq %%rsp, %0"
: "=r"(addr) : : "memory"); : "=r"(addr) : : "memory");
return addr; return addr;
} }
static __inline void cpuid(int op, int *eax, int *ebx, int *ecx, int *edx){ static __inline void cpuid(int op, int *eax, int *ebx, int *ecx, int *edx){
@ -457,9 +457,9 @@ REALNAME:
#define ALIGN_6 .align 64 #define ALIGN_6 .align 64
#endif #endif
// ffreep %st(0). // ffreep %st(0).
// Because Clang didn't support ffreep, we directly use the opcode. // 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 #ifndef ffreep
#define ffreep .byte 0xdf, 0xc0 # #define ffreep .byte 0xdf, 0xc0 #
#endif #endif

4
cpuid.S
View File

@ -39,10 +39,10 @@
#if defined(__APPLE__) && defined(__i386__) #if defined(__APPLE__) && defined(__i386__)
/* Quick hack for Darwin/x86 */ /* Quick hack for Darwin/x86 */
.text .text
.globl _cpuid .globl _cpuid
_cpuid: _cpuid:
pushl %esi pushl %esi
pushl %ebx pushl %ebx

8
cpuid_alpha.c
View File

@ -50,7 +50,7 @@ int implver(void){
#endif #endif
return arch; return arch;
} }
void get_architecture(void){ void get_architecture(void){
printf("ALPHA"); printf("ALPHA");
} }
@ -67,7 +67,7 @@ void get_cpuconfig(void){
printf("#define EV%d\n", implver() + 4); printf("#define EV%d\n", implver() + 4);
switch (implver()){ switch (implver()){
case 0: case 0:
printf("#define L1_DATA_SIZE 16384\n"); printf("#define L1_DATA_SIZE 16384\n");
printf("#define L1_DATA_LINESIZE 32\n"); printf("#define L1_DATA_LINESIZE 32\n");
printf("#define L2_SIZE 2097152\n"); printf("#define L2_SIZE 2097152\n");
@ -76,7 +76,7 @@ void get_cpuconfig(void){
printf("#define DTB_SIZE 8192\n"); printf("#define DTB_SIZE 8192\n");
break; break;
case 1: case 1:
printf("#define L1_DATA_SIZE 16384\n"); printf("#define L1_DATA_SIZE 16384\n");
printf("#define L1_DATA_LINESIZE 32\n"); printf("#define L1_DATA_LINESIZE 32\n");
printf("#define L2_SIZE 2097152\n"); printf("#define L2_SIZE 2097152\n");
@ -85,7 +85,7 @@ void get_cpuconfig(void){
printf("#define DTB_SIZE 8192\n"); printf("#define DTB_SIZE 8192\n");
break; break;
case 2: case 2:
printf("#define L1_DATA_SIZE 32768\n"); printf("#define L1_DATA_SIZE 32768\n");
printf("#define L1_DATA_LINESIZE 64\n"); printf("#define L1_DATA_LINESIZE 64\n");
printf("#define L2_SIZE 4194304\n"); printf("#define L2_SIZE 4194304\n");

8
cpuid_arm.c
View File

@ -67,7 +67,7 @@ int get_feature(char *search)
t = strtok(p," "); t = strtok(p," ");
while( t = strtok(NULL," ")) while( t = strtok(NULL," "))
{ {
if (!strcmp(t, search)) { return(1); } if (!strcmp(t, search)) { return(1); }
} }
@ -102,7 +102,7 @@ int detect(void)
if(p != NULL) if(p != NULL)
{ {
if (strstr(p, "ARMv7")) if (strstr(p, "ARMv7"))
{ {
if ( get_feature("vfpv4")) if ( get_feature("vfpv4"))
return CPU_ARMV7; return CPU_ARMV7;
@ -116,7 +116,7 @@ int detect(void)
} }
if (strstr(p, "ARMv6")) if (strstr(p, "ARMv6"))
{ {
if ( get_feature("vfp")) if ( get_feature("vfp"))
return CPU_ARMV6; return CPU_ARMV6;
@ -248,7 +248,7 @@ void get_features(void)
t = strtok(p," "); t = strtok(p," ");
while( t = strtok(NULL," ")) while( t = strtok(NULL," "))
{ {
if (!strcmp(t, "vfp")) { printf("HAVE_VFP=1\n"); continue; } if (!strcmp(t, "vfp")) { printf("HAVE_VFP=1\n"); continue; }
if (!strcmp(t, "vfpv3")) { printf("HAVE_VFPV3=1\n"); continue; } if (!strcmp(t, "vfpv3")) { printf("HAVE_VFPV3=1\n"); continue; }
if (!strcmp(t, "vfpv4")) { printf("HAVE_VFPV4=1\n"); continue; } if (!strcmp(t, "vfpv4")) { printf("HAVE_VFPV4=1\n"); continue; }

6
cpuid_ia64.c
View File

@ -45,7 +45,7 @@
#include <ia64intrin.h> #include <ia64intrin.h>
#endif #endif
static inline unsigned long cpuid(unsigned long regnum){ static inline unsigned long cpuid(unsigned long regnum){
unsigned long value; unsigned long value;
#ifdef __ECC #ifdef __ECC
@ -65,7 +65,7 @@ int get_vendor(void){
cpuid0 = cpuid(0); cpuid0 = cpuid(0);
cpuid1 = cpuid(1); cpuid1 = cpuid(1);
*(unsigned long *)(&vendor[0]) = cpuid0; *(unsigned long *)(&vendor[0]) = cpuid0;
*(unsigned long *)(&vendor[8]) = cpuid1; *(unsigned long *)(&vendor[8]) = cpuid1;
vendor[17] = (char)0; vendor[17] = (char)0;
@ -79,7 +79,7 @@ int get_cputype(int gettype){
unsigned long cpuid3; unsigned long cpuid3;
cpuid3 = cpuid(3); cpuid3 = cpuid(3);
switch (gettype) { switch (gettype) {
case GET_ARCHREV : case GET_ARCHREV :
return BITMASK(cpuid3, 32, 0xff); return BITMASK(cpuid3, 32, 0xff);

22
cpuid_mips.c
View File

@ -13,19 +13,19 @@ met:
notice, this list of conditions and the following disclaimer in notice, this list of conditions and the following disclaimer in
the documentation and/or other materials provided with the the documentation and/or other materials provided with the
distribution. distribution.
3. Neither the name of the ISCAS nor the names of its contributors may 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 be used to endorse or promote products derived from this software
without specific prior written permission. without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, 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 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. USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
**********************************************************************************/ **********************************************************************************/

2
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_7450) return CPUTYPE_PPCG4;
if (hostInfo.cpu_subtype == CPU_SUBTYPE_POWERPC_970) return CPUTYPE_PPC970; if (hostInfo.cpu_subtype == CPU_SUBTYPE_POWERPC_970) return CPUTYPE_PPC970;
return CPUTYPE_PPC970; return CPUTYPE_PPC970;
#endif #endif
} }

68
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; if ((current < start) || (current > stop)) current = start;
while ((count > 0) && (idlist[current].id != op)) { while ((count > 0) && (idlist[current].id != op)) {
current ++; current ++;
if (current > stop) current = start; if (current > stop) current = start;
count --; count --;
@ -134,7 +134,7 @@ int support_avx(){
#ifndef NO_AVX #ifndef NO_AVX
int eax, ebx, ecx, edx; int eax, ebx, ecx, edx;
int ret=0; int ret=0;
cpuid(1, &eax, &ebx, &ecx, &edx); cpuid(1, &eax, &ebx, &ecx, &edx);
if ((ecx & (1 << 28)) != 0 && (ecx & (1 << 27)) != 0 && (ecx & (1 << 26)) != 0){ if ((ecx & (1 << 28)) != 0 && (ecx & (1 << 27)) != 0 && (ecx & (1 << 26)) != 0){
xgetbv(0, &eax, &edx); xgetbv(0, &eax, &edx);
@ -154,7 +154,7 @@ int get_vendor(void){
char vendor[13]; char vendor[13];
cpuid(0, &eax, &ebx, &ecx, &edx); cpuid(0, &eax, &ebx, &ecx, &edx);
*(int *)(&vendor[0]) = ebx; *(int *)(&vendor[0]) = ebx;
*(int *)(&vendor[4]) = edx; *(int *)(&vendor[4]) = edx;
*(int *)(&vendor[8]) = ecx; *(int *)(&vendor[8]) = ecx;
@ -175,7 +175,7 @@ int get_vendor(void){
return VENDOR_UNKNOWN; return VENDOR_UNKNOWN;
} }
int get_cputype(int gettype){ int get_cputype(int gettype){
int eax, ebx, ecx, edx; int eax, ebx, ecx, edx;
int extend_family, family; int extend_family, family;
@ -184,7 +184,7 @@ int get_cputype(int gettype){
int feature = 0; int feature = 0;
cpuid(1, &eax, &ebx, &ecx, &edx); cpuid(1, &eax, &ebx, &ecx, &edx);
switch (gettype) { switch (gettype) {
case GET_EXFAMILY : case GET_EXFAMILY :
return BITMASK(eax, 20, 0xff); return BITMASK(eax, 20, 0xff);
@ -254,12 +254,12 @@ int get_cputype(int gettype){
} }
return feature; return feature;
} }
int get_cacheinfo(int type, cache_info_t *cacheinfo){ int get_cacheinfo(int type, cache_info_t *cacheinfo){
int eax, ebx, ecx, edx, cpuid_level; int eax, ebx, ecx, edx, cpuid_level;
int info[15]; int info[15];
int i; int i;
cache_info_t LC1, LD1, L2, L3, cache_info_t LC1, LD1, L2, L3,
ITB, DTB, LITB, LDTB, ITB, DTB, LITB, LDTB,
L2ITB, L2DTB, L2LITB, L2LDTB; L2ITB, L2DTB, L2LITB, L2LDTB;
@ -285,22 +285,22 @@ int get_cacheinfo(int type, cache_info_t *cacheinfo){
info[ 0] = BITMASK(eax, 8, 0xff); info[ 0] = BITMASK(eax, 8, 0xff);
info[ 1] = BITMASK(eax, 16, 0xff); info[ 1] = BITMASK(eax, 16, 0xff);
info[ 2] = BITMASK(eax, 24, 0xff); info[ 2] = BITMASK(eax, 24, 0xff);
info[ 3] = BITMASK(ebx, 0, 0xff); info[ 3] = BITMASK(ebx, 0, 0xff);
info[ 4] = BITMASK(ebx, 8, 0xff); info[ 4] = BITMASK(ebx, 8, 0xff);
info[ 5] = BITMASK(ebx, 16, 0xff); info[ 5] = BITMASK(ebx, 16, 0xff);
info[ 6] = BITMASK(ebx, 24, 0xff); info[ 6] = BITMASK(ebx, 24, 0xff);
info[ 7] = BITMASK(ecx, 0, 0xff); info[ 7] = BITMASK(ecx, 0, 0xff);
info[ 8] = BITMASK(ecx, 8, 0xff); info[ 8] = BITMASK(ecx, 8, 0xff);
info[ 9] = BITMASK(ecx, 16, 0xff); info[ 9] = BITMASK(ecx, 16, 0xff);
info[10] = BITMASK(ecx, 24, 0xff); info[10] = BITMASK(ecx, 24, 0xff);
info[11] = BITMASK(edx, 0, 0xff); info[11] = BITMASK(edx, 0, 0xff);
info[12] = BITMASK(edx, 8, 0xff); info[12] = BITMASK(edx, 8, 0xff);
info[13] = BITMASK(edx, 16, 0xff); info[13] = BITMASK(edx, 16, 0xff);
info[14] = BITMASK(edx, 24, 0xff); info[14] = BITMASK(edx, 24, 0xff);
for (i = 0; i < 15; i++){ for (i = 0; i < 15; i++){
switch (info[i]){ switch (info[i]){
@ -866,7 +866,7 @@ int get_cacheinfo(int type, cache_info_t *cacheinfo){
LITB.associative = BITMASK(eax, 8, 0xff); LITB.associative = BITMASK(eax, 8, 0xff);
if (LITB.associative == 0xff) LITB.associative = 0; if (LITB.associative == 0xff) LITB.associative = 0;
LITB.linesize = BITMASK(eax, 0, 0xff); LITB.linesize = BITMASK(eax, 0, 0xff);
DTB.size = 4; DTB.size = 4;
DTB.associative = BITMASK(ebx, 24, 0xff); DTB.associative = BITMASK(ebx, 24, 0xff);
if (DTB.associative == 0xff) DTB.associative = 0; 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); L2LITB.associative = BITMASK(eax, 8, 0xff);
if (L2LITB.associative == 0xff) L2LITB.associative = 0; if (L2LITB.associative == 0xff) L2LITB.associative = 0;
L2LITB.linesize = BITMASK(eax, 0, 0xff); L2LITB.linesize = BITMASK(eax, 0, 0xff);
L2DTB.size = 4; L2DTB.size = 4;
L2DTB.associative = BITMASK(ebx, 24, 0xff); L2DTB.associative = BITMASK(ebx, 24, 0xff);
if (L2DTB.associative == 0xff) L2DTB.associative = 0; if (L2DTB.associative == 0xff) L2DTB.associative = 0;
@ -922,7 +922,7 @@ int get_cacheinfo(int type, cache_info_t *cacheinfo){
} }
switch (type) { switch (type) {
case CACHE_INFO_L1_I : case CACHE_INFO_L1_I :
*cacheinfo = LC1; *cacheinfo = LC1;
break; break;
@ -984,7 +984,7 @@ int get_cpuname(void){
return CPUTYPE_PENTIUM; return CPUTYPE_PENTIUM;
case 0x6: case 0x6:
switch (exmodel) { switch (exmodel) {
case 0: case 0:
switch (model) { switch (model) {
case 1: case 1:
case 3: case 3:
@ -1024,8 +1024,8 @@ int get_cpuname(void){
case 2: case 2:
switch (model) { switch (model) {
case 5: case 5:
//Intel Core (Clarkdale) / Core (Arrandale) //Intel Core (Clarkdale) / Core (Arrandale)
// Pentium (Clarkdale) / Pentium Mobile (Arrandale) // Pentium (Clarkdale) / Pentium Mobile (Arrandale)
// Xeon (Clarkdale), 32nm // Xeon (Clarkdale), 32nm
return CPUTYPE_NEHALEM; return CPUTYPE_NEHALEM;
case 10: case 10:
@ -1076,7 +1076,7 @@ int get_cpuname(void){
else else
return CPUTYPE_NEHALEM; return CPUTYPE_NEHALEM;
} }
break; break;
} }
break; break;
case 0x7: case 0x7:
@ -1121,7 +1121,7 @@ int get_cpuname(void){
if(support_avx()) if(support_avx())
return CPUTYPE_PILEDRIVER; return CPUTYPE_PILEDRIVER;
else else
return CPUTYPE_BARCELONA; //OS don't support AVX. return CPUTYPE_BARCELONA; //OS don't support AVX.
} }
break; break;
case 5: case 5:
@ -1305,7 +1305,7 @@ static char *lowercpuname[] = {
static char *corename[] = { static char *corename[] = {
"UNKOWN", "UNKOWN",
"80486", "80486",
"P5", "P5",
"P6", "P6",
"KATMAI", "KATMAI",
@ -1333,7 +1333,7 @@ static char *corename[] = {
static char *corename_lower[] = { static char *corename_lower[] = {
"unknown", "unknown",
"80486", "80486",
"p5", "p5",
"p6", "p6",
"katmai", "katmai",
@ -1434,8 +1434,8 @@ int get_coretype(void){
case 2: case 2:
switch (model) { switch (model) {
case 5: case 5:
//Intel Core (Clarkdale) / Core (Arrandale) //Intel Core (Clarkdale) / Core (Arrandale)
// Pentium (Clarkdale) / Pentium Mobile (Arrandale) // Pentium (Clarkdale) / Pentium Mobile (Arrandale)
// Xeon (Clarkdale), 32nm // Xeon (Clarkdale), 32nm
return CORE_NEHALEM; return CORE_NEHALEM;
case 10: case 10:
@ -1485,7 +1485,7 @@ int get_coretype(void){
else else
return CORE_NEHALEM; return CORE_NEHALEM;
} }
break; break;
} }
break; break;
@ -1499,8 +1499,8 @@ int get_coretype(void){
if (family <= 0x5) return CORE_80486; if (family <= 0x5) return CORE_80486;
if (family <= 0xe) return CORE_ATHLON; if (family <= 0xe) return CORE_ATHLON;
if (family == 0xf){ if (family == 0xf){
if ((exfamily == 0) || (exfamily == 2)) return CORE_OPTERON; if ((exfamily == 0) || (exfamily == 2)) return CORE_OPTERON;
else if (exfamily == 5) return CORE_BOBCAT; else if (exfamily == 5) return CORE_BOBCAT;
else if (exfamily == 6) { else if (exfamily == 6) {
switch (model) { switch (model) {
case 1: case 1:
@ -1513,7 +1513,7 @@ int get_coretype(void){
if(support_avx()) if(support_avx())
return CORE_PILEDRIVER; return CORE_PILEDRIVER;
else else
return CORE_BARCELONA; //OS don't support AVX. return CORE_BARCELONA; //OS don't support AVX.
} }
}else return CORE_BARCELONA; }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_ASSOCIATIVE %d\n", info.associative);
printf("#define L1_CODE_LINESIZE %d\n", info.linesize); printf("#define L1_CODE_LINESIZE %d\n", info.linesize);
} }
get_cacheinfo(CACHE_INFO_L1_D, &info); get_cacheinfo(CACHE_INFO_L1_D, &info);
if (info.size > 0) { if (info.size > 0) {
printf("#define L1_DATA_SIZE %d\n", info.size * 1024); printf("#define L1_DATA_SIZE %d\n", info.size * 1024);
printf("#define L1_DATA_ASSOCIATIVE %d\n", info.associative); printf("#define L1_DATA_ASSOCIATIVE %d\n", info.associative);
printf("#define L1_DATA_LINESIZE %d\n", info.linesize); printf("#define L1_DATA_LINESIZE %d\n", info.linesize);
} }
get_cacheinfo(CACHE_INFO_L2, &info); get_cacheinfo(CACHE_INFO_L2, &info);
if (info.size > 0) { if (info.size > 0) {
printf("#define L2_SIZE %d\n", info.size * 1024); printf("#define L2_SIZE %d\n", info.size * 1024);
@ -1567,21 +1567,21 @@ void get_cpuconfig(void){
printf("#define L2_LINESIZE 64\n"); printf("#define L2_LINESIZE 64\n");
} }
get_cacheinfo(CACHE_INFO_L3, &info); get_cacheinfo(CACHE_INFO_L3, &info);
if (info.size > 0) { if (info.size > 0) {
printf("#define L3_SIZE %d\n", info.size * 1024); printf("#define L3_SIZE %d\n", info.size * 1024);
printf("#define L3_ASSOCIATIVE %d\n", info.associative); printf("#define L3_ASSOCIATIVE %d\n", info.associative);
printf("#define L3_LINESIZE %d\n", info.linesize); printf("#define L3_LINESIZE %d\n", info.linesize);
} }
get_cacheinfo(CACHE_INFO_L1_ITB, &info); get_cacheinfo(CACHE_INFO_L1_ITB, &info);
if (info.size > 0) { if (info.size > 0) {
printf("#define ITB_SIZE %d\n", info.size * 1024); printf("#define ITB_SIZE %d\n", info.size * 1024);
printf("#define ITB_ASSOCIATIVE %d\n", info.associative); printf("#define ITB_ASSOCIATIVE %d\n", info.associative);
printf("#define ITB_ENTRIES %d\n", info.linesize); printf("#define ITB_ENTRIES %d\n", info.linesize);
} }
get_cacheinfo(CACHE_INFO_L1_DTB, &info); get_cacheinfo(CACHE_INFO_L1_DTB, &info);
if (info.size > 0) { if (info.size > 0) {
printf("#define DTB_SIZE %d\n", info.size * 1024); printf("#define DTB_SIZE %d\n", info.size * 1024);
@ -1591,7 +1591,7 @@ void get_cpuconfig(void){
//fall back for some virtual machines. //fall back for some virtual machines.
printf("#define DTB_DEFAULT_ENTRIES 32\n"); printf("#define DTB_DEFAULT_ENTRIES 32\n");
} }
features = get_cputype(GET_FEATURE); features = get_cputype(GET_FEATURE);
if (features & HAVE_CMOV ) printf("#define HAVE_CMOV\n"); 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_MISALIGNSSE) printf("#define HAVE_MISALIGNSSE\n");
if (features & HAVE_128BITFPU) printf("#define HAVE_128BITFPU\n"); if (features & HAVE_128BITFPU) printf("#define HAVE_128BITFPU\n");
if (features & HAVE_FASTMOVU) printf("#define HAVE_FASTMOVU\n"); if (features & HAVE_FASTMOVU) printf("#define HAVE_FASTMOVU\n");
printf("#define NUM_SHAREDCACHE %d\n", get_cputype(GET_NUMSHARE) + 1); printf("#define NUM_SHAREDCACHE %d\n", get_cputype(GET_NUMSHARE) + 1);
printf("#define NUM_CORES %d\n", get_cputype(GET_NUMCORES) + 1); printf("#define NUM_CORES %d\n", get_cputype(GET_NUMCORES) + 1);

16
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 = .. 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 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 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 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 all1: xscblat1 xdcblat1 xccblat1 xzcblat1
ifeq ($(USE_OPENMP), 1) ifeq ($(USE_OPENMP), 1)
@ -75,10 +75,10 @@ else
endif endif
clean :: clean ::
rm -f x* rm -f x*
FLDFLAGS = $(FFLAGS:-fPIC=) $(LDFLAGS) FLDFLAGS = $(FFLAGS:-fPIC=) $(LDFLAGS)
CEXTRALIB = CEXTRALIB =
# Single real # Single real
xscblat1: $(stestl1o) c_sblat1.o $(TOPDIR)/$(LIBNAME) 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) $(FC) $(FLDFLAGS) -o xdcblat2 c_dblat2.o $(dtestl2o) $(LIB) $(EXTRALIB) $(CEXTRALIB)
xdcblat3: $(dtestl3o) c_dblat3.o $(TOPDIR)/$(LIBNAME) xdcblat3: $(dtestl3o) c_dblat3.o $(TOPDIR)/$(LIBNAME)
$(FC) $(FLDFLAGS) -o xdcblat3 c_dblat3.o $(dtestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB) $(FC) $(FLDFLAGS) -o xdcblat3 c_dblat3.o $(dtestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB)
# Single complex # Single complex
xccblat1: $(ctestl1o) c_cblat1.o $(TOPDIR)/$(LIBNAME) xccblat1: $(ctestl1o) c_cblat1.o $(TOPDIR)/$(LIBNAME)
$(FC) $(FLDFLAGS) -o xccblat1 c_cblat1.o $(ctestl1o) $(LIB) $(EXTRALIB) $(CEXTRALIB) $(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) xccblat3: $(ctestl3o) c_cblat3.o $(TOPDIR)/$(LIBNAME)
$(FC) $(FLDFLAGS) -o xccblat3 c_cblat3.o $(ctestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB) $(FC) $(FLDFLAGS) -o xccblat3 c_cblat3.o $(ctestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB)
# Double complex # Double complex
xzcblat1: $(ztestl1o) c_zblat1.o $(TOPDIR)/$(LIBNAME) xzcblat1: $(ztestl1o) c_zblat1.o $(TOPDIR)/$(LIBNAME)
$(FC) $(FLDFLAGS) -o xzcblat1 c_zblat1.o $(ztestl1o) $(LIB) $(EXTRALIB) $(CEXTRALIB) $(FC) $(FLDFLAGS) -o xzcblat1 c_zblat1.o $(ztestl1o) $(LIB) $(EXTRALIB) $(CEXTRALIB)
xzcblat2: $(ztestl2o) c_zblat2.o $(TOPDIR)/$(LIBNAME) xzcblat2: $(ztestl2o) c_zblat2.o $(TOPDIR)/$(LIBNAME)
$(FC) $(FLDFLAGS) -o xzcblat2 c_zblat2.o $(ztestl2o) $(LIB) $(EXTRALIB) $(CEXTRALIB) $(FC) $(FLDFLAGS) -o xzcblat2 c_zblat2.o $(ztestl2o) $(LIB) $(EXTRALIB) $(CEXTRALIB)
xzcblat3: $(ztestl3o) c_zblat3.o $(TOPDIR)/$(LIBNAME) xzcblat3: $(ztestl3o) c_zblat3.o $(TOPDIR)/$(LIBNAME)
$(FC) $(FLDFLAGS) -o xzcblat3 c_zblat3.o $(ztestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB) $(FC) $(FLDFLAGS) -o xzcblat3 c_zblat3.o $(ztestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB)
include $(TOPDIR)/Makefile.tail include $(TOPDIR)/Makefile.tail

292
ctest/c_c2chke.c
View File

@ -26,11 +26,11 @@ void chkxer(void) {
void F77_c2chke(char *rout) { void F77_c2chke(char *rout) {
char *sf = ( rout ) ; char *sf = ( rout ) ;
float A[2] = {0.0,0.0}, float A[2] = {0.0,0.0},
X[2] = {0.0,0.0}, X[2] = {0.0,0.0},
Y[2] = {0.0,0.0}, Y[2] = {0.0,0.0},
ALPHA[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; RALPHA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok; extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg; extern int RowMajorStrg;
@ -48,588 +48,588 @@ void F77_c2chke(char *rout) {
if (strncmp( sf,"cblas_cgemv",11)==0) { if (strncmp( sf,"cblas_cgemv",11)==0) {
cblas_rout = "cblas_cgemv"; cblas_rout = "cblas_cgemv";
cblas_info = 1; cblas_info = 1;
cblas_cgemv(INVALID, CblasNoTrans, 0, 0, cblas_cgemv(INVALID, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_cgbmv",11)==0) { } else if (strncmp( sf,"cblas_cgbmv",11)==0) {
cblas_rout = "cblas_cgbmv"; cblas_rout = "cblas_cgbmv";
cblas_info = 1; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 14; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 14; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_chemv",11)==0) { } else if (strncmp( sf,"cblas_chemv",11)==0) {
cblas_rout = "cblas_chemv"; cblas_rout = "cblas_chemv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_chemv(INVALID, CblasUpper, 0, cblas_chemv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_chemv(CblasColMajor, INVALID, 0, cblas_chemv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_chemv(CblasColMajor, CblasUpper, INVALID, cblas_chemv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_chemv(CblasColMajor, CblasUpper, 2, cblas_chemv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_chemv(CblasColMajor, CblasUpper, 0, cblas_chemv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = FALSE; cblas_info = 11; RowMajorStrg = FALSE;
cblas_chemv(CblasColMajor, CblasUpper, 0, cblas_chemv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_chemv(CblasRowMajor, INVALID, 0, cblas_chemv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_chemv(CblasRowMajor, CblasUpper, INVALID, cblas_chemv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; cblas_info = 6; RowMajorStrg = TRUE;
cblas_chemv(CblasRowMajor, CblasUpper, 2, cblas_chemv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_chemv(CblasRowMajor, CblasUpper, 0, cblas_chemv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = TRUE; cblas_info = 11; RowMajorStrg = TRUE;
cblas_chemv(CblasRowMajor, CblasUpper, 0, cblas_chemv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_chbmv",11)==0) { } else if (strncmp( sf,"cblas_chbmv",11)==0) {
cblas_rout = "cblas_chbmv"; cblas_rout = "cblas_chbmv";
cblas_info = 1; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_chpmv",11)==0) { } else if (strncmp( sf,"cblas_chpmv",11)==0) {
cblas_rout = "cblas_chpmv"; cblas_rout = "cblas_chpmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_chpmv(INVALID, CblasUpper, 0, cblas_chpmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_chpmv(CblasColMajor, INVALID, 0, cblas_chpmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_chpmv(CblasColMajor, CblasUpper, INVALID, cblas_chpmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; cblas_info = 7; RowMajorStrg = FALSE;
cblas_chpmv(CblasColMajor, CblasUpper, 0, cblas_chpmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 ); ALPHA, A, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = FALSE; cblas_info = 10; RowMajorStrg = FALSE;
cblas_chpmv(CblasColMajor, CblasUpper, 0, cblas_chpmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 ); ALPHA, A, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_chpmv(CblasRowMajor, INVALID, 0, cblas_chpmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_chpmv(CblasRowMajor, CblasUpper, INVALID, cblas_chpmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; cblas_info = 7; RowMajorStrg = TRUE;
cblas_chpmv(CblasRowMajor, CblasUpper, 0, cblas_chpmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 ); ALPHA, A, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = TRUE; cblas_info = 10; RowMajorStrg = TRUE;
cblas_chpmv(CblasRowMajor, CblasUpper, 0, cblas_chpmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 ); ALPHA, A, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ctrmv",11)==0) { } else if (strncmp( sf,"cblas_ctrmv",11)==0) {
cblas_rout = "cblas_ctrmv"; cblas_rout = "cblas_ctrmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans, cblas_ctrmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans, cblas_ctrmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ctrmv(CblasColMajor, CblasUpper, INVALID, cblas_ctrmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; cblas_info = 7; RowMajorStrg = FALSE;
cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; cblas_info = 9; RowMajorStrg = FALSE;
cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans, cblas_ctrmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID, cblas_ctrmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; cblas_info = 7; RowMajorStrg = TRUE;
cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; cblas_info = 9; RowMajorStrg = TRUE;
cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ctbmv",11)==0) { } else if (strncmp( sf,"cblas_ctbmv",11)==0) {
cblas_rout = "cblas_ctbmv"; cblas_rout = "cblas_ctbmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans, cblas_ctbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans, cblas_ctbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ctbmv(CblasColMajor, CblasUpper, INVALID, cblas_ctbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = FALSE; cblas_info = 10; RowMajorStrg = FALSE;
cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans, cblas_ctbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID, cblas_ctbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; cblas_info = 6; RowMajorStrg = TRUE;
cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = TRUE; cblas_info = 10; RowMajorStrg = TRUE;
cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ctpmv",11)==0) { } else if (strncmp( sf,"cblas_ctpmv",11)==0) {
cblas_rout = "cblas_ctpmv"; cblas_rout = "cblas_ctpmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans, cblas_ctpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans, cblas_ctpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ctpmv(CblasColMajor, CblasUpper, INVALID, cblas_ctpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans, cblas_ctpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID, cblas_ctpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ctrsv",11)==0) { } else if (strncmp( sf,"cblas_ctrsv",11)==0) {
cblas_rout = "cblas_ctrsv"; cblas_rout = "cblas_ctrsv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans, cblas_ctrsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans, cblas_ctrsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ctrsv(CblasColMajor, CblasUpper, INVALID, cblas_ctrsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; cblas_info = 7; RowMajorStrg = FALSE;
cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; cblas_info = 9; RowMajorStrg = FALSE;
cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans, cblas_ctrsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID, cblas_ctrsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; cblas_info = 7; RowMajorStrg = TRUE;
cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; cblas_info = 9; RowMajorStrg = TRUE;
cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ctbsv",11)==0) { } else if (strncmp( sf,"cblas_ctbsv",11)==0) {
cblas_rout = "cblas_ctbsv"; cblas_rout = "cblas_ctbsv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans, cblas_ctbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans, cblas_ctbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ctbsv(CblasColMajor, CblasUpper, INVALID, cblas_ctbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = FALSE; cblas_info = 10; RowMajorStrg = FALSE;
cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans, cblas_ctbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID, cblas_ctbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; cblas_info = 6; RowMajorStrg = TRUE;
cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = TRUE; cblas_info = 10; RowMajorStrg = TRUE;
cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ctpsv",11)==0) { } else if (strncmp( sf,"cblas_ctpsv",11)==0) {
cblas_rout = "cblas_ctpsv"; cblas_rout = "cblas_ctpsv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans, cblas_ctpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans, cblas_ctpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ctpsv(CblasColMajor, CblasUpper, INVALID, cblas_ctpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ctpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans, cblas_ctpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID, cblas_ctpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ctpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_cgeru",10)==0) { } else if (strncmp( sf,"cblas_cgeru",10)==0) {
@ -818,7 +818,7 @@ void F77_c2chke(char *rout) {
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A ); cblas_chpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
chkxer(); chkxer();
} }
if (cblas_ok == TRUE) if (cblas_ok == TRUE)
printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
else else

12
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}, B[4] = {0.0,0.0,0.0,0.0},
C[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}, ALPHA[2] = {0.0,0.0},
BETA[2] = {0.0,0.0}, BETA[2] = {0.0,0.0},
RALPHA = 0.0, RBETA = 0.0; RALPHA = 0.0, RBETA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok; extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg; extern int RowMajorStrg;
@ -49,15 +49,15 @@ void F77_c3chke(char * rout) {
cblas_rout = "cblas_cgemm" ; cblas_rout = "cblas_cgemm" ;
cblas_info = 1; 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 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
cblas_info = 1; 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 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
cblas_info = 1; 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 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
cblas_info = 1; cblas_info = 1;
@ -272,7 +272,7 @@ void F77_c3chke(char * rout) {
cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, cblas_cgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_chemm" ,11)==0) { } else if (strncmp( sf,"cblas_chemm" ,11)==0) {
cblas_rout = "cblas_chemm" ; cblas_rout = "cblas_chemm" ;
@ -1696,7 +1696,7 @@ void F77_c3chke(char * rout) {
cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, cblas_csyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
} }
if (cblas_ok == 1 ) if (cblas_ok == 1 )

6
ctest/c_cblas1.c
View File

@ -16,21 +16,21 @@ void F77_caxpy(const int *N, const void *alpha, void *X,
return; 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) void *Y, const int *incY)
{ {
cblas_ccopy(*N, X, *incX, Y, *incY); cblas_ccopy(*N, X, *incX, Y, *incY);
return; 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) void *Y, const int *incY, void *dotc)
{ {
cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc); cblas_cdotc_sub(*N, X, *incX, Y, *incY, dotc);
return; 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) void *Y, const int *incY,void *dotu)
{ {
cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu); cblas_cdotu_sub(*N, X, *incX, Y, *incY, dotu);

40
ctest/c_cblas2.c
View File

@ -8,9 +8,9 @@
#include "common.h" #include "common.h"
#include "cblas_test.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, 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) { const void *beta, void *y, int *incy) {
CBLAS_TEST_COMPLEX *A; 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 ); *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, 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 *alpha, CBLAS_TEST_COMPLEX *a, int *lda,
CBLAS_TEST_COMPLEX *x, int *incx, CBLAS_TEST_COMPLEX *x, int *incx,
CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy) { CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *y, int *incy) {
CBLAS_TEST_COMPLEX *A; 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 ); *incx, beta, y, *incy );
} }
void F77_cgeru(int *order, int *m, int *n, CBLAS_TEST_COMPLEX *alpha, 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 *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy,
CBLAS_TEST_COMPLEX *a, int *lda){ CBLAS_TEST_COMPLEX *a, int *lda){
CBLAS_TEST_COMPLEX *A; 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 ); 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, 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 *x, int *incx, CBLAS_TEST_COMPLEX *y, int *incy,
CBLAS_TEST_COMPLEX *a, int *lda) { CBLAS_TEST_COMPLEX *a, int *lda) {
CBLAS_TEST_COMPLEX *A; CBLAS_TEST_COMPLEX *A;
int i,j,LDA; int i,j,LDA;
@ -165,7 +165,7 @@ void F77_chemv(int *order, char *uplow, int *n, CBLAS_TEST_COMPLEX *alpha,
free(A); free(A);
} }
else if (*order == TEST_COL_MJR) 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 ); beta, y, *incy );
else else
cblas_chemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx, 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, 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 *x, int *incx, CBLAS_TEST_COMPLEX *beta,
CBLAS_TEST_COMPLEX *y, int *incy){ CBLAS_TEST_COMPLEX *y, int *incy){
@ -186,7 +186,7 @@ int i,irow,j,jcol,LDA;
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower ) 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 ); *incx, beta, y, *incy );
else { else {
LDA = *k+2; 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, 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 *beta, CBLAS_TEST_COMPLEX *y, int *incy){
CBLAS_TEST_COMPLEX *A, *AP; 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); get_uplo_type(uplow,&uplo);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower ) 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); beta, y, *incy);
else { else {
LDA = *n; 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); *incx);
free(A); free(A);
} }
@ -371,7 +371,7 @@ void F77_ctbsv(int *order, char *uplow, char *transp, char *diagn,
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower ) 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); *incx);
else { else {
LDA = *k+2; 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); x, *incx);
free(A); 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 (*order == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower ) 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 ); *incy, ap );
else { else {
LDA = *n; LDA = *n;
@ -752,7 +752,7 @@ void F77_cher(int *order, char *uplow, int *n, float *alpha,
LDA = *n+1; LDA = *n+1;
A=(CBLAS_TEST_COMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_COMPLEX )); 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++ ) { for( j=0; j<*n; j++ ) {
A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; 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; LDA = *n+1;
A= ( CBLAS_TEST_COMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_COMPLEX ) ); 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++ ) { for( j=0; j<*n; j++ ) {
A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;

60
ctest/c_cblas3.c
View File

@ -12,9 +12,9 @@
#define TEST_ROW_MJR 1 #define TEST_ROW_MJR 1
#define UNDEFINED -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, 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 *c, int *ldc ) {
CBLAS_TEST_COMPLEX *A, *B, *C; 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].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag; 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 ); beta, C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) { 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); beta, c, *ldc );
else 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 ); beta, c, *ldc );
} }
void F77_csymm(int *order, char *rtlf, char *uplow, int *m, int *n, 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( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) for( i=0; i<*m; i++ )
C[i*LDC+j]=c[j*(*ldc)+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 ); beta, C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); beta, c, *ldc );
else 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 ); beta, c, *ldc );
} }
void F77_cherk(int *order, char *uplow, char *transp, int *n, int *k, 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 ) { float *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) {
int i,j,LDA,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].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag; 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 ); C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) { 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); c, *ldc );
else 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 ); c, *ldc );
} }
void F77_csyrk(int *order, char *uplow, char *transp, int *n, int *k, 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 ) { CBLAS_TEST_COMPLEX *beta, CBLAS_TEST_COMPLEX *c, int *ldc ) {
int i,j,LDA,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].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag; 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 ); C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) { 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); c, *ldc );
else 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 ); c, *ldc );
} }
void F77_cher2k(int *order, char *uplow, char *transp, int *n, int *k, 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].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag; 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 ); B, LDB, *beta, C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) { 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); b, *ldb, *beta, c, *ldc );
else 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 ); b, *ldb, *beta, c, *ldc );
} }
void F77_csyr2k(int *order, char *uplow, char *transp, int *n, int *k, 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].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag; 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 ); B, LDB, beta, C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) { 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); b, *ldb, beta, c, *ldc );
else 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 ); b, *ldb, beta, c, *ldc );
} }
void F77_ctrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, 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 *lda, CBLAS_TEST_COMPLEX *b, int *ldb) {
int i,j,LDA,LDB; int i,j,LDA,LDB;
CBLAS_TEST_COMPLEX *A, *B; 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].real=b[j*(*ldb)+i].real;
B[i*LDB+j].imag=b[j*(*ldb)+i].imag; 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 ); A, LDA, B, LDB );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) { 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); free(B);
} }
else if (*order == TEST_COL_MJR) 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); a, *lda, b, *ldb);
else 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); a, *lda, b, *ldb);
} }
void F77_ctrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, 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 *lda, CBLAS_TEST_COMPLEX *b, int *ldb) {
int i,j,LDA,LDB; int i,j,LDA,LDB;
CBLAS_TEST_COMPLEX *A, *B; 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].real=b[j*(*ldb)+i].real;
B[i*LDB+j].imag=b[j*(*ldb)+i].imag; 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 ); A, LDA, B, LDB );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) { 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); free(B);
} }
else if (*order == TEST_COL_MJR) 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); a, *lda, b, *ldb);
else 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); a, *lda, b, *ldb);
} }

14
ctest/c_cblat2.f
View File

@ -348,13 +348,13 @@
160 IF (CORDER) THEN 160 IF (CORDER) THEN
CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
$ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, $ 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 ) $ 0 )
END IF END IF
IF (RORDER) THEN IF (RORDER) THEN
CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, CALL CCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
$ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, $ 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 ) $ 1 )
END IF END IF
GO TO 200 GO TO 200
@ -581,7 +581,7 @@
CTRANS = ' CblasNoTrans' CTRANS = ' CblasNoTrans'
ELSE IF (TRANS.EQ.'T')THEN ELSE IF (TRANS.EQ.'T')THEN
CTRANS = ' CblasTrans' CTRANS = ' CblasTrans'
ELSE ELSE
CTRANS = 'CblasConjTrans' CTRANS = 'CblasConjTrans'
END IF END IF
TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C'
@ -684,7 +684,7 @@
* *
* See what data changed inside subroutines. * 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( 1 ) = TRANS.EQ.TRANSS
ISAME( 2 ) = MS.EQ.M ISAME( 2 ) = MS.EQ.M
ISAME( 3 ) = NS.EQ.N ISAME( 3 ) = NS.EQ.N
@ -925,7 +925,7 @@
UPLO = ICH( IC: IC ) UPLO = ICH( IC: IC )
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CUPLO = ' CblasUpper' CUPLO = ' CblasUpper'
ELSE ELSE
CUPLO = ' CblasLower' CUPLO = ' CblasLower'
END IF END IF
* *
@ -1284,7 +1284,7 @@
UPLO = ICHU( ICU: ICU ) UPLO = ICHU( ICU: ICU )
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CUPLO = ' CblasUpper' CUPLO = ' CblasUpper'
ELSE ELSE
CUPLO = ' CblasLower' CUPLO = ' CblasLower'
END IF END IF
* *
@ -1294,7 +1294,7 @@
CTRANS = ' CblasNoTrans' CTRANS = ' CblasNoTrans'
ELSE IF (TRANS.EQ.'T')THEN ELSE IF (TRANS.EQ.'T')THEN
CTRANS = ' CblasTrans' CTRANS = ' CblasTrans'
ELSE ELSE
CTRANS = 'CblasConjTrans' CTRANS = 'CblasConjTrans'
END IF END IF
* *

78
ctest/c_cblat3.f
View File

@ -424,7 +424,7 @@
END END
SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE CCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
$ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ 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 ) $ IORDER )
* *
* Tests CGEMM. * Tests CGEMM.
@ -600,7 +600,7 @@
IF( REWI ) IF( REWI )
$ REWIND NTRA $ REWIND NTRA
CALL CCGEMM( IORDER, TRANSA, TRANSB, M, N, CALL CCGEMM( IORDER, TRANSA, TRANSB, M, N,
$ K, ALPHA, AA, LDA, BB, LDB, $ K, ALPHA, AA, LDA, BB, LDB,
$ BETA, CC, LDC ) $ BETA, CC, LDC )
* *
* Check if error-exit was taken incorrectly. * Check if error-exit was taken incorrectly.
@ -688,7 +688,7 @@
* *
120 CONTINUE 120 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME 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) $ M, N, K, ALPHA, LDA, LDB, BETA, LDC)
* *
130 CONTINUE 130 CONTINUE
@ -724,24 +724,24 @@
CHARACTER*1 TRANSA, TRANSB CHARACTER*1 TRANSA, TRANSB
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CTA,CTB CHARACTER*14 CRC, CTA,CTB
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CTA = ' CblasNoTrans' CTA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CTA = ' CblasTrans' CTA = ' CblasTrans'
ELSE ELSE
CTA = 'CblasConjTrans' CTA = 'CblasConjTrans'
END IF END IF
IF (TRANSB.EQ.'N')THEN IF (TRANSB.EQ.'N')THEN
CTB = ' CblasNoTrans' CTB = ' CblasNoTrans'
ELSE IF (TRANSB.EQ.'T')THEN ELSE IF (TRANSB.EQ.'T')THEN
CTB = ' CblasTrans' CTB = ' CblasTrans'
ELSE ELSE
CTB = 'CblasConjTrans' CTB = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
@ -754,7 +754,7 @@
* *
SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE CCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
$ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ 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 ) $ IORDER )
* *
* Tests CHEMM and CSYMM. * Tests CHEMM and CSYMM.
@ -910,9 +910,9 @@
* Call the subroutine. * Call the subroutine.
* *
IF( TRACE ) IF( TRACE )
$ CALL CPRCN2(NTRA, NC, SNAME, IORDER, $ CALL CPRCN2(NTRA, NC, SNAME, IORDER,
$ SIDE, UPLO, M, N, ALPHA, LDA, LDB, $ SIDE, UPLO, M, N, ALPHA, LDA, LDB,
$ BETA, LDC) $ BETA, LDC)
IF( REWI ) IF( REWI )
$ REWIND NTRA $ REWIND NTRA
IF( CONJ )THEN IF( CONJ )THEN
@ -1015,7 +1015,7 @@
110 CONTINUE 110 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, CALL CPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
$ LDB, BETA, LDC) $ LDB, BETA, LDC)
* *
120 CONTINUE 120 CONTINUE
RETURN RETURN
@ -1050,20 +1050,20 @@
CHARACTER*1 SIDE, UPLO CHARACTER*1 SIDE, UPLO
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CS,CU CHARACTER*14 CRC, CS,CU
IF (SIDE.EQ.'L')THEN IF (SIDE.EQ.'L')THEN
CS = ' CblasLeft' CS = ' CblasLeft'
ELSE ELSE
CS = ' CblasRight' CS = ' CblasRight'
END IF END IF
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
@ -1401,22 +1401,22 @@
CHARACTER*1 SIDE, UPLO, TRANSA, DIAG CHARACTER*1 SIDE, UPLO, TRANSA, DIAG
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CS, CU, CA, CD CHARACTER*14 CRC, CS, CU, CA, CD
IF (SIDE.EQ.'L')THEN IF (SIDE.EQ.'L')THEN
CS = ' CblasLeft' CS = ' CblasLeft'
ELSE ELSE
CS = ' CblasRight' CS = ' CblasRight'
END IF END IF
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (DIAG.EQ.'N')THEN IF (DIAG.EQ.'N')THEN
@ -1426,7 +1426,7 @@
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
@ -1787,22 +1787,22 @@
CHARACTER*1 UPLO, TRANSA CHARACTER*1 UPLO, TRANSA
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CU, CA CHARACTER*14 CRC, CU, CA
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
@ -1821,29 +1821,29 @@
CHARACTER*1 UPLO, TRANSA CHARACTER*1 UPLO, TRANSA
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CU, CA CHARACTER*14 CRC, CU, CA
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) 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, ').' ) $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' )
END END
* *
@ -2040,7 +2040,7 @@
IF( REWI ) IF( REWI )
$ REWIND NTRA $ REWIND NTRA
CALL CCSYR2K( IORDER, UPLO, TRANS, N, K, CALL CCSYR2K( IORDER, UPLO, TRANS, N, K,
$ ALPHA, AA, LDA, BB, LDB, BETA, $ ALPHA, AA, LDA, BB, LDB, BETA,
$ CC, LDC ) $ CC, LDC )
END IF END IF
* *
@ -2240,22 +2240,22 @@
CHARACTER*1 UPLO, TRANSA CHARACTER*1 UPLO, TRANSA
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CU, CA CHARACTER*14 CRC, CU, CA
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
@ -2275,22 +2275,22 @@
CHARACTER*1 UPLO, TRANSA CHARACTER*1 UPLO, TRANSA
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CU, CA CHARACTER*14 CRC, CU, CA
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA

290
ctest/c_d2chke.c
View File

@ -26,9 +26,9 @@ void chkxer(void) {
void F77_d2chke(char *rout) { void F77_d2chke(char *rout) {
char *sf = ( rout ) ; char *sf = ( rout ) ;
double A[2] = {0.0,0.0}, double A[2] = {0.0,0.0},
X[2] = {0.0,0.0}, X[2] = {0.0,0.0},
Y[2] = {0.0,0.0}, Y[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0; ALPHA=0.0, BETA=0.0;
extern int cblas_info, cblas_lerr, cblas_ok; extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg; extern int RowMajorStrg;
@ -46,588 +46,588 @@ void F77_d2chke(char *rout) {
if (strncmp( sf,"cblas_dgemv",11)==0) { if (strncmp( sf,"cblas_dgemv",11)==0) {
cblas_rout = "cblas_dgemv"; cblas_rout = "cblas_dgemv";
cblas_info = 1; cblas_info = 1;
cblas_dgemv(INVALID, CblasNoTrans, 0, 0, cblas_dgemv(INVALID, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_dgbmv",11)==0) { } else if (strncmp( sf,"cblas_dgbmv",11)==0) {
cblas_rout = "cblas_dgbmv"; cblas_rout = "cblas_dgbmv";
cblas_info = 1; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 14; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 14; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_dsymv",11)==0) { } else if (strncmp( sf,"cblas_dsymv",11)==0) {
cblas_rout = "cblas_dsymv"; cblas_rout = "cblas_dsymv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_dsymv(INVALID, CblasUpper, 0, cblas_dsymv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_dsymv(CblasColMajor, INVALID, 0, cblas_dsymv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_dsymv(CblasColMajor, CblasUpper, INVALID, cblas_dsymv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_dsymv(CblasColMajor, CblasUpper, 2, cblas_dsymv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_dsymv(CblasColMajor, CblasUpper, 0, cblas_dsymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = FALSE; cblas_info = 11; RowMajorStrg = FALSE;
cblas_dsymv(CblasColMajor, CblasUpper, 0, cblas_dsymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_dsymv(CblasRowMajor, INVALID, 0, cblas_dsymv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_dsymv(CblasRowMajor, CblasUpper, INVALID, cblas_dsymv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; cblas_info = 6; RowMajorStrg = TRUE;
cblas_dsymv(CblasRowMajor, CblasUpper, 2, cblas_dsymv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_dsymv(CblasRowMajor, CblasUpper, 0, cblas_dsymv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = TRUE; cblas_info = 11; RowMajorStrg = TRUE;
cblas_dsymv(CblasRowMajor, CblasUpper, 0, cblas_dsymv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_dsbmv",11)==0) { } else if (strncmp( sf,"cblas_dsbmv",11)==0) {
cblas_rout = "cblas_dsbmv"; cblas_rout = "cblas_dsbmv";
cblas_info = 1; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_dspmv",11)==0) { } else if (strncmp( sf,"cblas_dspmv",11)==0) {
cblas_rout = "cblas_dspmv"; cblas_rout = "cblas_dspmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_dspmv(INVALID, CblasUpper, 0, cblas_dspmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_dspmv(CblasColMajor, INVALID, 0, cblas_dspmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_dspmv(CblasColMajor, CblasUpper, INVALID, cblas_dspmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; cblas_info = 7; RowMajorStrg = FALSE;
cblas_dspmv(CblasColMajor, CblasUpper, 0, cblas_dspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 ); ALPHA, A, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = FALSE; cblas_info = 10; RowMajorStrg = FALSE;
cblas_dspmv(CblasColMajor, CblasUpper, 0, cblas_dspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 ); ALPHA, A, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_dspmv(CblasRowMajor, INVALID, 0, cblas_dspmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_dspmv(CblasRowMajor, CblasUpper, INVALID, cblas_dspmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; cblas_info = 7; RowMajorStrg = TRUE;
cblas_dspmv(CblasRowMajor, CblasUpper, 0, cblas_dspmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 ); ALPHA, A, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = TRUE; cblas_info = 10; RowMajorStrg = TRUE;
cblas_dspmv(CblasRowMajor, CblasUpper, 0, cblas_dspmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 ); ALPHA, A, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_dtrmv",11)==0) { } else if (strncmp( sf,"cblas_dtrmv",11)==0) {
cblas_rout = "cblas_dtrmv"; cblas_rout = "cblas_dtrmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans, cblas_dtrmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans, cblas_dtrmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_dtrmv(CblasColMajor, CblasUpper, INVALID, cblas_dtrmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; cblas_info = 7; RowMajorStrg = FALSE;
cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; cblas_info = 9; RowMajorStrg = FALSE;
cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans, cblas_dtrmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID, cblas_dtrmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; cblas_info = 7; RowMajorStrg = TRUE;
cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; cblas_info = 9; RowMajorStrg = TRUE;
cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_dtbmv",11)==0) { } else if (strncmp( sf,"cblas_dtbmv",11)==0) {
cblas_rout = "cblas_dtbmv"; cblas_rout = "cblas_dtbmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans, cblas_dtbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans, cblas_dtbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_dtbmv(CblasColMajor, CblasUpper, INVALID, cblas_dtbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = FALSE; cblas_info = 10; RowMajorStrg = FALSE;
cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans, cblas_dtbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID, cblas_dtbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; cblas_info = 6; RowMajorStrg = TRUE;
cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = TRUE; cblas_info = 10; RowMajorStrg = TRUE;
cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_dtpmv",11)==0) { } else if (strncmp( sf,"cblas_dtpmv",11)==0) {
cblas_rout = "cblas_dtpmv"; cblas_rout = "cblas_dtpmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans, cblas_dtpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans, cblas_dtpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_dtpmv(CblasColMajor, CblasUpper, INVALID, cblas_dtpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans, cblas_dtpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID, cblas_dtpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_dtrsv",11)==0) { } else if (strncmp( sf,"cblas_dtrsv",11)==0) {
cblas_rout = "cblas_dtrsv"; cblas_rout = "cblas_dtrsv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans, cblas_dtrsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans, cblas_dtrsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_dtrsv(CblasColMajor, CblasUpper, INVALID, cblas_dtrsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; cblas_info = 7; RowMajorStrg = FALSE;
cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; cblas_info = 9; RowMajorStrg = FALSE;
cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans, cblas_dtrsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID, cblas_dtrsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; cblas_info = 7; RowMajorStrg = TRUE;
cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; cblas_info = 9; RowMajorStrg = TRUE;
cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_dtbsv",11)==0) { } else if (strncmp( sf,"cblas_dtbsv",11)==0) {
cblas_rout = "cblas_dtbsv"; cblas_rout = "cblas_dtbsv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans, cblas_dtbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans, cblas_dtbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_dtbsv(CblasColMajor, CblasUpper, INVALID, cblas_dtbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = FALSE; cblas_info = 10; RowMajorStrg = FALSE;
cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans, cblas_dtbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID, cblas_dtbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; cblas_info = 6; RowMajorStrg = TRUE;
cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = TRUE; cblas_info = 10; RowMajorStrg = TRUE;
cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_dtpsv",11)==0) { } else if (strncmp( sf,"cblas_dtpsv",11)==0) {
cblas_rout = "cblas_dtpsv"; cblas_rout = "cblas_dtpsv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans, cblas_dtpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans, cblas_dtpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_dtpsv(CblasColMajor, CblasUpper, INVALID, cblas_dtpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_dtpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans, cblas_dtpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID, cblas_dtpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_dtpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_dger",10)==0) { } else if (strncmp( sf,"cblas_dger",10)==0) {
@ -781,7 +781,7 @@ void F77_d2chke(char *rout) {
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A ); cblas_dspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
chkxer(); chkxer();
} }
if (cblas_ok == TRUE) if (cblas_ok == TRUE)
printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
else else

14
ctest/c_d3chke.c
View File

@ -26,9 +26,9 @@ void chkxer(void) {
void F77_d3chke(char *rout) { void F77_d3chke(char *rout) {
char *sf = ( rout ) ; char *sf = ( rout ) ;
double A[2] = {0.0,0.0}, double A[2] = {0.0,0.0},
B[2] = {0.0,0.0}, B[2] = {0.0,0.0},
C[2] = {0.0,0.0}, C[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0; ALPHA=0.0, BETA=0.0;
extern int cblas_info, cblas_lerr, cblas_ok; extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg; extern int RowMajorStrg;
@ -39,7 +39,7 @@ void F77_d3chke(char *rout) {
cblas_xerbla(cblas_info,cblas_rout,""); cblas_xerbla(cblas_info,cblas_rout,"");
F77_xerbla(cblas_rout,&cblas_info); F77_xerbla(cblas_rout,&cblas_info);
} }
cblas_ok = TRUE ; cblas_ok = TRUE ;
cblas_lerr = PASSED ; cblas_lerr = PASSED ;
@ -47,15 +47,15 @@ void F77_d3chke(char *rout) {
cblas_rout = "cblas_dgemm" ; cblas_rout = "cblas_dgemm" ;
cblas_info = 1; 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 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
cblas_info = 1; 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 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
cblas_info = 1; 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 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
cblas_info = 1; cblas_info = 1;

2
ctest/c_dblas1.c
View File

@ -21,7 +21,7 @@ void F77_daxpy(const int *N, const double *alpha, const double *X,
return; 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) double *Y, const int *incY)
{ {
cblas_dcopy(*N, X, *incX, Y, *incY); cblas_dcopy(*N, X, *incX, Y, *incY);

58
ctest/c_dblas2.c
View File

@ -8,8 +8,8 @@
#include "common.h" #include "common.h"
#include "cblas_test.h" #include "cblas_test.h"
void F77_dgemv(int *order, char *transp, int *m, int *n, double *alpha, void F77_dgemv(int *order, char *transp, int *m, int *n, 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 *y, int *incy ) {
double *A; 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( i=0; i<*m; i++ )
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
A[ LDA*i+j ]=a[ (*lda)*j+i ]; 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 ); *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy );
free(A); free(A);
} }
@ -68,9 +68,9 @@ void F77_dtrmv(int *order, char *uplow, char *transp, char *diagn,
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
get_transpose_type(transp,&trans); get_transpose_type(transp,&trans);
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
get_diag_type(diagn,&diag); get_diag_type(diagn,&diag);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
LDA = *n+1; 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 ) { int *n, double *a, int *lda, double *x, int *incx ) {
double *A; double *A;
int i,j,LDA; int i,j,LDA;
@ -112,7 +112,7 @@ void F77_dtrsv(int *order, char *uplow, char *transp, char *diagn,
else else
cblas_dtrsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); 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 *lda, double *x, int *incx, double *beta, double *y,
int *incy) { int *incy) {
double *A; double *A;
@ -136,7 +136,7 @@ void F77_dsymv(int *order, char *uplow, int *n, double *alpha, double *a,
*beta, y, *incy ); *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) { int *incx, double *a, int *lda) {
double *A; double *A;
int i,j,LDA; 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); 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) { int *incx, double *y, int *incy, double *a, int *lda) {
double *A; double *A;
int i,j,LDA; 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, 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 *beta, double *y, int *incy ) {
double *A; 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++ ) for( j=jcol; j<(*n+*kl); j++ )
A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; 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 ); A, LDA, x, *incx, *beta, y, *incy );
free(A); free(A);
} }
@ -230,9 +230,9 @@ void F77_dtbmv(int *order, char *uplow, char *transp, char *diagn,
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
get_transpose_type(transp,&trans); get_transpose_type(transp,&trans);
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
get_diag_type(diagn,&diag); get_diag_type(diagn,&diag);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
LDA = *k+1; LDA = *k+1;
@ -276,9 +276,9 @@ void F77_dtbsv(int *order, char *uplow, char *transp, char *diagn,
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
get_transpose_type(transp,&trans); get_transpose_type(transp,&trans);
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
get_diag_type(diagn,&diag); get_diag_type(diagn,&diag);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
LDA = *k+1; 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, 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 *y, int *incy) {
double *A; double *A;
int i,j,irow,jcol,LDA; 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++ ) for( j=0; j<i+1; j++, k++ )
AP[ k ]=A[ LDA*i+j ]; 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 ); *incy );
free(A); free(A);
free(AP); free(AP);
} }
else else
cblas_dspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y, cblas_dspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,
*incy ); *incy );
} }
@ -405,9 +405,9 @@ void F77_dtpmv(int *order, char *uplow, char *transp, char *diagn,
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
get_transpose_type(transp,&trans); get_transpose_type(transp,&trans);
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
get_diag_type(diagn,&diag); get_diag_type(diagn,&diag);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
LDA = *n; LDA = *n;
@ -445,9 +445,9 @@ void F77_dtpsv(int *order, char *uplow, char *transp, char *diagn,
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
get_transpose_type(transp,&trans); get_transpose_type(transp,&trans);
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
get_diag_type(diagn,&diag); get_diag_type(diagn,&diag);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
LDA = *n; 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 ); 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 ){ int *incx, double *ap ){
double *A, *AP; double *A, *AP;
int i,j,k,LDA; 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 ); 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 ){ int *incx, double *y, int *incy, double *ap ){
double *A, *AP; double *A, *AP;
int i,j,k,LDA; int i,j,k,LDA;

36
ctest/c_dblas3.c
View File

@ -12,7 +12,7 @@
#define TEST_ROW_MJR 1 #define TEST_ROW_MJR 1
#define UNDEFINED -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, int *k, double *alpha, double *a, int *lda, double *b, int *ldb,
double *beta, double *c, int *ldc ) { 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( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) for( i=0; i<*m; i++ )
C[i*LDC+j]=c[j*(*ldc)+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 ); *beta, C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); *beta, c, *ldc );
else 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 ); *beta, c, *ldc );
} }
void F77_dsyrk(int *order, char *uplow, char *transp, int *n, int *k, 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 ) { double *beta, double *c, int *ldc ) {
int i,j,LDA,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( i=0; i<*n; i++ )
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
C[i*LDC+j]=c[j*(*ldc)+i]; 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 ); C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); c, *ldc );
else 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 ); 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( i=0; i<*n; i++ )
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
C[i*LDC+j]=c[j*(*ldc)+i]; 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 ); B, LDB, *beta, C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); b, *ldb, *beta, c, *ldc );
else 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 ); b, *ldb, *beta, c, *ldc );
} }
void F77_dtrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, 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 *ldb) {
int i,j,LDA,LDB; int i,j,LDA,LDB;
double *A, *B; 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( i=0; i<*m; i++ )
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
B[i*LDB+j]=b[j*(*ldb)+i]; 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 ); A, LDA, B, LDB );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) 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); free(B);
} }
else if (*order == TEST_COL_MJR) 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); a, *lda, b, *ldb);
else 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); 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( i=0; i<*m; i++ )
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
B[i*LDB+j]=b[j*(*ldb)+i]; 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 ); A, LDA, B, LDB );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) 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); free(B);
} }
else if (*order == TEST_COL_MJR) 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); a, *lda, b, *ldb);
else 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); a, *lda, b, *ldb);
} }

4
ctest/c_dblat1.f
View File

@ -506,7 +506,7 @@
80 CONTINUE 80 CONTINUE
MWPS(1) = 0.0 MWPS(1) = 0.0
DO 100 I = 2, 6 DO 100 I = 2, 6
MWPS(I) = 1.0 MWPS(I) = 1.0
100 CONTINUE 100 CONTINUE
DO 120 I = 7, 11 DO 120 I = 7, 11
MWPS(I) = -1.0 MWPS(I) = -1.0
@ -589,7 +589,7 @@
MWPSTX(K) = MWPTX(I,K) MWPSTX(K) = MWPTX(I,K)
MWPSTY(K) = MWPTY(I,K) MWPSTY(K) = MWPTY(I,K)
180 CONTINUE 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,COPYX,MWPSTX,MWPSTX,SFAC)
CALL STEST(5,COPYY,MWPSTY,MWPSTY,SFAC) CALL STEST(5,COPYY,MWPSTY,MWPSTY,SFAC)
200 CONTINUE 200 CONTINUE

14
ctest/c_dblat2.f
View File

@ -572,7 +572,7 @@
CTRANS = ' CblasNoTrans' CTRANS = ' CblasNoTrans'
ELSE IF (TRANS.EQ.'T')THEN ELSE IF (TRANS.EQ.'T')THEN
CTRANS = ' CblasTrans' CTRANS = ' CblasTrans'
ELSE ELSE
CTRANS = 'CblasConjTrans' CTRANS = 'CblasConjTrans'
END IF END IF
TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C'
@ -921,7 +921,7 @@
UPLO = ICH( IC: IC ) UPLO = ICH( IC: IC )
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CUPLO = ' CblasUpper' CUPLO = ' CblasUpper'
ELSE ELSE
CUPLO = ' CblasLower' CUPLO = ' CblasLower'
END IF END IF
* *
@ -1215,7 +1215,7 @@
LOGICAL LDE, LDERES LOGICAL LDE, LDERES
EXTERNAL LDE, LDERES EXTERNAL LDE, LDERES
* .. External Subroutines .. * .. External Subroutines ..
EXTERNAL DMAKE, DMVCH, CDTBMV, CDTBSV, CDTPMV, EXTERNAL DMAKE, DMVCH, CDTBMV, CDTBSV, CDTPMV,
$ CDTPSV, CDTRMV, CDTRSV $ CDTPSV, CDTRMV, CDTRSV
* .. Intrinsic Functions .. * .. Intrinsic Functions ..
INTRINSIC ABS, MAX INTRINSIC ABS, MAX
@ -1283,7 +1283,7 @@
UPLO = ICHU( ICU: ICU ) UPLO = ICHU( ICU: ICU )
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CUPLO = ' CblasUpper' CUPLO = ' CblasUpper'
ELSE ELSE
CUPLO = ' CblasLower' CUPLO = ' CblasLower'
END IF END IF
* *
@ -1293,7 +1293,7 @@
CTRANS = ' CblasNoTrans' CTRANS = ' CblasNoTrans'
ELSE IF (TRANS.EQ.'T')THEN ELSE IF (TRANS.EQ.'T')THEN
CTRANS = ' CblasTrans' CTRANS = ' CblasTrans'
ELSE ELSE
CTRANS = 'CblasConjTrans' CTRANS = 'CblasConjTrans'
END IF END IF
* *
@ -1972,7 +1972,7 @@
$ ALPHA, INCX, LDA $ ALPHA, INCX, LDA
IF( REWI ) IF( REWI )
$ REWIND NTRA $ REWIND NTRA
CALL CDSYR( IORDER, UPLO, N, ALPHA, XX, INCX, CALL CDSYR( IORDER, UPLO, N, ALPHA, XX, INCX,
$ AA, LDA ) $ AA, LDA )
ELSE IF( PACKED )THEN ELSE IF( PACKED )THEN
IF( TRACE ) IF( TRACE )
@ -2737,7 +2737,7 @@
WRITE( NOUT, FMT = 9998 )I, YT( I ), WRITE( NOUT, FMT = 9998 )I, YT( I ),
$ YY( 1 + ( I - 1 )*ABS( INCY ) ) $ YY( 1 + ( I - 1 )*ABS( INCY ) )
ELSE ELSE
WRITE( NOUT, FMT = 9998 )I, WRITE( NOUT, FMT = 9998 )I,
$ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I) $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I)
END IF END IF
60 CONTINUE 60 CONTINUE

64
ctest/c_dblat3.f
View File

@ -675,7 +675,7 @@
* *
120 CONTINUE 120 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME 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) $ M, N, K, ALPHA, LDA, LDB, BETA, LDC)
* *
130 CONTINUE 130 CONTINUE
@ -710,24 +710,24 @@
CHARACTER*1 TRANSA, TRANSB CHARACTER*1 TRANSA, TRANSB
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CTA,CTB CHARACTER*14 CRC, CTA,CTB
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CTA = ' CblasNoTrans' CTA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CTA = ' CblasTrans' CTA = ' CblasTrans'
ELSE ELSE
CTA = 'CblasConjTrans' CTA = 'CblasConjTrans'
END IF END IF
IF (TRANSB.EQ.'N')THEN IF (TRANSB.EQ.'N')THEN
CTB = ' CblasNoTrans' CTB = ' CblasNoTrans'
ELSE IF (TRANSB.EQ.'T')THEN ELSE IF (TRANSB.EQ.'T')THEN
CTB = ' CblasTrans' CTB = ' CblasTrans'
ELSE ELSE
CTB = 'CblasConjTrans' CTB = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
@ -891,9 +891,9 @@
* Call the subroutine. * Call the subroutine.
* *
IF( TRACE ) IF( TRACE )
$ CALL DPRCN2(NTRA, NC, SNAME, IORDER, $ CALL DPRCN2(NTRA, NC, SNAME, IORDER,
$ SIDE, UPLO, M, N, ALPHA, LDA, LDB, $ SIDE, UPLO, M, N, ALPHA, LDA, LDB,
$ BETA, LDC) $ BETA, LDC)
IF( REWI ) IF( REWI )
$ REWIND NTRA $ REWIND NTRA
CALL CDSYMM( IORDER, SIDE, UPLO, M, N, ALPHA, CALL CDSYMM( IORDER, SIDE, UPLO, M, N, ALPHA,
@ -989,7 +989,7 @@
110 CONTINUE 110 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, CALL DPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
$ LDB, BETA, LDC) $ LDB, BETA, LDC)
* *
120 CONTINUE 120 CONTINUE
RETURN RETURN
@ -1024,20 +1024,20 @@
CHARACTER*1 SIDE, UPLO CHARACTER*1 SIDE, UPLO
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CS,CU CHARACTER*14 CRC, CS,CU
IF (SIDE.EQ.'L')THEN IF (SIDE.EQ.'L')THEN
CS = ' CblasLeft' CS = ' CblasLeft'
ELSE ELSE
CS = ' CblasRight' CS = ' CblasRight'
END IF END IF
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
@ -1210,7 +1210,7 @@
IF( REWI ) IF( REWI )
$ REWIND NTRA $ REWIND NTRA
CALL CDTRSM( IORDER, SIDE, UPLO, TRANSA, CALL CDTRSM( IORDER, SIDE, UPLO, TRANSA,
$ DIAG, M, N, ALPHA, AA, LDA, $ DIAG, M, N, ALPHA, AA, LDA,
$ BB, LDB ) $ BB, LDB )
END IF END IF
* *
@ -1370,22 +1370,22 @@
CHARACTER*1 SIDE, UPLO, TRANSA, DIAG CHARACTER*1 SIDE, UPLO, TRANSA, DIAG
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CS, CU, CA, CD CHARACTER*14 CRC, CS, CU, CA, CD
IF (SIDE.EQ.'L')THEN IF (SIDE.EQ.'L')THEN
CS = ' CblasLeft' CS = ' CblasLeft'
ELSE ELSE
CS = ' CblasRight' CS = ' CblasRight'
END IF END IF
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (DIAG.EQ.'N')THEN IF (DIAG.EQ.'N')THEN
@ -1395,14 +1395,14 @@
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
9995 FORMAT( 1X, I6, ': ', A12,'(', A14, ',', A14, ',', A14, ',') 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, ').' ) $ F4.1, ', A,', I3, ', B,', I3, ').' )
END END
* *
@ -1696,36 +1696,36 @@
CHARACTER*1 UPLO, TRANSA CHARACTER*1 UPLO, TRANSA
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CU, CA CHARACTER*14 CRC, CU, CA
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) 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, ').' ) $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' )
END END
* *
SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE DCHK5( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
$ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX,
$ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W, $ AB, AA, AS, BB, BS, C, CC, CS, CT, G, W,
$ IORDER ) $ IORDER )
* *
* Tests DSYR2K. * Tests DSYR2K.
* *
@ -2053,29 +2053,29 @@
CHARACTER*1 UPLO, TRANSA CHARACTER*1 UPLO, TRANSA
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CU, CA CHARACTER*14 CRC, CU, CA
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) 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, ').' ) $ F4.1, ', A,', I3, ', B', I3, ',', F4.1, ', C,', I3, ').' )
END END
* *

290
ctest/c_s2chke.c
View File

@ -26,9 +26,9 @@ void chkxer(void) {
void F77_s2chke(char *rout) { void F77_s2chke(char *rout) {
char *sf = ( rout ) ; char *sf = ( rout ) ;
float A[2] = {0.0,0.0}, float A[2] = {0.0,0.0},
X[2] = {0.0,0.0}, X[2] = {0.0,0.0},
Y[2] = {0.0,0.0}, Y[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0; ALPHA=0.0, BETA=0.0;
extern int cblas_info, cblas_lerr, cblas_ok; extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg; extern int RowMajorStrg;
@ -46,588 +46,588 @@ void F77_s2chke(char *rout) {
if (strncmp( sf,"cblas_sgemv",11)==0) { if (strncmp( sf,"cblas_sgemv",11)==0) {
cblas_rout = "cblas_sgemv"; cblas_rout = "cblas_sgemv";
cblas_info = 1; cblas_info = 1;
cblas_sgemv(INVALID, CblasNoTrans, 0, 0, cblas_sgemv(INVALID, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_sgbmv",11)==0) { } else if (strncmp( sf,"cblas_sgbmv",11)==0) {
cblas_rout = "cblas_sgbmv"; cblas_rout = "cblas_sgbmv";
cblas_info = 1; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 14; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 14; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ssymv",11)==0) { } else if (strncmp( sf,"cblas_ssymv",11)==0) {
cblas_rout = "cblas_ssymv"; cblas_rout = "cblas_ssymv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ssymv(INVALID, CblasUpper, 0, cblas_ssymv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ssymv(CblasColMajor, INVALID, 0, cblas_ssymv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ssymv(CblasColMajor, CblasUpper, INVALID, cblas_ssymv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_ssymv(CblasColMajor, CblasUpper, 2, cblas_ssymv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_ssymv(CblasColMajor, CblasUpper, 0, cblas_ssymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = FALSE; cblas_info = 11; RowMajorStrg = FALSE;
cblas_ssymv(CblasColMajor, CblasUpper, 0, cblas_ssymv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ssymv(CblasRowMajor, INVALID, 0, cblas_ssymv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ssymv(CblasRowMajor, CblasUpper, INVALID, cblas_ssymv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; cblas_info = 6; RowMajorStrg = TRUE;
cblas_ssymv(CblasRowMajor, CblasUpper, 2, cblas_ssymv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_ssymv(CblasRowMajor, CblasUpper, 0, cblas_ssymv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = TRUE; cblas_info = 11; RowMajorStrg = TRUE;
cblas_ssymv(CblasRowMajor, CblasUpper, 0, cblas_ssymv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ssbmv",11)==0) { } else if (strncmp( sf,"cblas_ssbmv",11)==0) {
cblas_rout = "cblas_ssbmv"; cblas_rout = "cblas_ssbmv";
cblas_info = 1; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_sspmv",11)==0) { } else if (strncmp( sf,"cblas_sspmv",11)==0) {
cblas_rout = "cblas_sspmv"; cblas_rout = "cblas_sspmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_sspmv(INVALID, CblasUpper, 0, cblas_sspmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_sspmv(CblasColMajor, INVALID, 0, cblas_sspmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_sspmv(CblasColMajor, CblasUpper, INVALID, cblas_sspmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; cblas_info = 7; RowMajorStrg = FALSE;
cblas_sspmv(CblasColMajor, CblasUpper, 0, cblas_sspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 ); ALPHA, A, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = FALSE; cblas_info = 10; RowMajorStrg = FALSE;
cblas_sspmv(CblasColMajor, CblasUpper, 0, cblas_sspmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 ); ALPHA, A, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_sspmv(CblasRowMajor, INVALID, 0, cblas_sspmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_sspmv(CblasRowMajor, CblasUpper, INVALID, cblas_sspmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; cblas_info = 7; RowMajorStrg = TRUE;
cblas_sspmv(CblasRowMajor, CblasUpper, 0, cblas_sspmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 ); ALPHA, A, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = TRUE; cblas_info = 10; RowMajorStrg = TRUE;
cblas_sspmv(CblasRowMajor, CblasUpper, 0, cblas_sspmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 ); ALPHA, A, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_strmv",11)==0) { } else if (strncmp( sf,"cblas_strmv",11)==0) {
cblas_rout = "cblas_strmv"; cblas_rout = "cblas_strmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_strmv(INVALID, CblasUpper, CblasNoTrans, cblas_strmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_strmv(CblasColMajor, INVALID, CblasNoTrans, cblas_strmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_strmv(CblasColMajor, CblasUpper, INVALID, cblas_strmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; cblas_info = 7; RowMajorStrg = FALSE;
cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; cblas_info = 9; RowMajorStrg = FALSE;
cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_strmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_strmv(CblasRowMajor, INVALID, CblasNoTrans, cblas_strmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_strmv(CblasRowMajor, CblasUpper, INVALID, cblas_strmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; cblas_info = 7; RowMajorStrg = TRUE;
cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; cblas_info = 9; RowMajorStrg = TRUE;
cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_strmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_stbmv",11)==0) { } else if (strncmp( sf,"cblas_stbmv",11)==0) {
cblas_rout = "cblas_stbmv"; cblas_rout = "cblas_stbmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_stbmv(INVALID, CblasUpper, CblasNoTrans, cblas_stbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, INVALID, CblasNoTrans, cblas_stbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, CblasUpper, INVALID, cblas_stbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = FALSE; cblas_info = 10; RowMajorStrg = FALSE;
cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, INVALID, CblasNoTrans, cblas_stbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, CblasUpper, INVALID, cblas_stbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; cblas_info = 6; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = TRUE; cblas_info = 10; RowMajorStrg = TRUE;
cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_stpmv",11)==0) { } else if (strncmp( sf,"cblas_stpmv",11)==0) {
cblas_rout = "cblas_stpmv"; cblas_rout = "cblas_stpmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_stpmv(INVALID, CblasUpper, CblasNoTrans, cblas_stpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_stpmv(CblasColMajor, INVALID, CblasNoTrans, cblas_stpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_stpmv(CblasColMajor, CblasUpper, INVALID, cblas_stpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_stpmv(CblasRowMajor, INVALID, CblasNoTrans, cblas_stpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_stpmv(CblasRowMajor, CblasUpper, INVALID, cblas_stpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_strsv",11)==0) { } else if (strncmp( sf,"cblas_strsv",11)==0) {
cblas_rout = "cblas_strsv"; cblas_rout = "cblas_strsv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_strsv(INVALID, CblasUpper, CblasNoTrans, cblas_strsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_strsv(CblasColMajor, INVALID, CblasNoTrans, cblas_strsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_strsv(CblasColMajor, CblasUpper, INVALID, cblas_strsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; cblas_info = 7; RowMajorStrg = FALSE;
cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; cblas_info = 9; RowMajorStrg = FALSE;
cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_strsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_strsv(CblasRowMajor, INVALID, CblasNoTrans, cblas_strsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_strsv(CblasRowMajor, CblasUpper, INVALID, cblas_strsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; cblas_info = 7; RowMajorStrg = TRUE;
cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; cblas_info = 9; RowMajorStrg = TRUE;
cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_strsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_stbsv",11)==0) { } else if (strncmp( sf,"cblas_stbsv",11)==0) {
cblas_rout = "cblas_stbsv"; cblas_rout = "cblas_stbsv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_stbsv(INVALID, CblasUpper, CblasNoTrans, cblas_stbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, INVALID, CblasNoTrans, cblas_stbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, CblasUpper, INVALID, cblas_stbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = FALSE; cblas_info = 10; RowMajorStrg = FALSE;
cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, INVALID, CblasNoTrans, cblas_stbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, CblasUpper, INVALID, cblas_stbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; cblas_info = 6; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = TRUE; cblas_info = 10; RowMajorStrg = TRUE;
cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_stpsv",11)==0) { } else if (strncmp( sf,"cblas_stpsv",11)==0) {
cblas_rout = "cblas_stpsv"; cblas_rout = "cblas_stpsv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_stpsv(INVALID, CblasUpper, CblasNoTrans, cblas_stpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_stpsv(CblasColMajor, INVALID, CblasNoTrans, cblas_stpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_stpsv(CblasColMajor, CblasUpper, INVALID, cblas_stpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_stpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_stpsv(CblasRowMajor, INVALID, CblasNoTrans, cblas_stpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_stpsv(CblasRowMajor, CblasUpper, INVALID, cblas_stpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_stpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_sger",10)==0) { } else if (strncmp( sf,"cblas_sger",10)==0) {
@ -781,7 +781,7 @@ void F77_s2chke(char *rout) {
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_sspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A ); cblas_sspr(CblasColMajor, CblasUpper, 0, ALPHA, X, 0, A );
chkxer(); chkxer();
} }
if (cblas_ok == TRUE) if (cblas_ok == TRUE)
printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
else else

14
ctest/c_s3chke.c
View File

@ -26,9 +26,9 @@ void chkxer(void) {
void F77_s3chke(char *rout) { void F77_s3chke(char *rout) {
char *sf = ( rout ) ; char *sf = ( rout ) ;
float A[2] = {0.0,0.0}, float A[2] = {0.0,0.0},
B[2] = {0.0,0.0}, B[2] = {0.0,0.0},
C[2] = {0.0,0.0}, C[2] = {0.0,0.0},
ALPHA=0.0, BETA=0.0; ALPHA=0.0, BETA=0.0;
extern int cblas_info, cblas_lerr, cblas_ok; extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg; extern int RowMajorStrg;
@ -39,22 +39,22 @@ void F77_s3chke(char *rout) {
cblas_xerbla(cblas_info,cblas_rout,""); cblas_xerbla(cblas_info,cblas_rout,"");
F77_xerbla(cblas_rout,&cblas_info); F77_xerbla(cblas_rout,&cblas_info);
} }
cblas_ok = TRUE ; cblas_ok = TRUE ;
cblas_lerr = PASSED ; cblas_lerr = PASSED ;
if (strncmp( sf,"cblas_sgemm" ,11)==0) { if (strncmp( sf,"cblas_sgemm" ,11)==0) {
cblas_rout = "cblas_sgemm" ; cblas_rout = "cblas_sgemm" ;
cblas_info = 1; 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 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
cblas_info = 1; 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 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
cblas_info = 1; 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 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
cblas_info = 1; cblas_info = 1;

4
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); 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) float *Y, blasint *incY)
{ {
cblas_scopy(*N, X, *incX, Y, *incY); cblas_scopy(*N, X, *incX, Y, *incY);
return; 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) const float *Y, blasint *incY)
{ {
return cblas_sdot(*N, X, *incX, Y, *incY); return cblas_sdot(*N, X, *incX, Y, *incY);

58
ctest/c_sblas2.c
View File

@ -8,8 +8,8 @@
#include "common.h" #include "common.h"
#include "cblas_test.h" #include "cblas_test.h"
void F77_sgemv(int *order, char *transp, int *m, int *n, float *alpha, void F77_sgemv(int *order, char *transp, int *m, int *n, 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 *y, int *incy ) {
float *A; 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( i=0; i<*m; i++ )
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
A[ LDA*i+j ]=a[ (*lda)*j+i ]; 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 ); *m, *n, *alpha, A, LDA, x, *incx, *beta, y, *incy );
free(A); free(A);
} }
@ -68,9 +68,9 @@ void F77_strmv(int *order, char *uplow, char *transp, char *diagn,
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
get_transpose_type(transp,&trans); get_transpose_type(transp,&trans);
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
get_diag_type(diagn,&diag); get_diag_type(diagn,&diag);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
LDA = *n+1; 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 ) { int *n, float *a, int *lda, float *x, int *incx ) {
float *A; float *A;
int i,j,LDA; int i,j,LDA;
@ -112,7 +112,7 @@ void F77_strsv(int *order, char *uplow, char *transp, char *diagn,
else else
cblas_strsv(CblasColMajor, uplo, trans, diag, *n, a, *lda, x, *incx ); 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 *lda, float *x, int *incx, float *beta, float *y,
int *incy) { int *incy) {
float *A; float *A;
@ -136,7 +136,7 @@ void F77_ssymv(int *order, char *uplow, int *n, float *alpha, float *a,
*beta, y, *incy ); *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) { int *incx, float *a, int *lda) {
float *A; float *A;
int i,j,LDA; 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); 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) { int *incx, float *y, int *incy, float *a, int *lda) {
float *A; float *A;
int i,j,LDA; 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, 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 *beta, float *y, int *incy ) {
float *A; 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++ ) for( j=jcol; j<(*n+*kl); j++ )
A[ LDA*j+irow ]=a[ (*lda)*(j-jcol)+i ]; 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 ); A, LDA, x, *incx, *beta, y, *incy );
free(A); free(A);
} }
@ -230,9 +230,9 @@ void F77_stbmv(int *order, char *uplow, char *transp, char *diagn,
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
get_transpose_type(transp,&trans); get_transpose_type(transp,&trans);
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
get_diag_type(diagn,&diag); get_diag_type(diagn,&diag);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
LDA = *k+1; LDA = *k+1;
@ -276,9 +276,9 @@ void F77_stbsv(int *order, char *uplow, char *transp, char *diagn,
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
get_transpose_type(transp,&trans); get_transpose_type(transp,&trans);
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
get_diag_type(diagn,&diag); get_diag_type(diagn,&diag);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
LDA = *k+1; 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, 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 *y, int *incy) {
float *A; float *A;
int i,j,irow,jcol,LDA; 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++ ) for( j=0; j<i+1; j++, k++ )
AP[ k ]=A[ LDA*i+j ]; 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 ); *incy );
free(A); free(AP); free(A); free(AP);
} }
else else
cblas_sspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y, cblas_sspmv( CblasColMajor, uplo, *n, *alpha, ap, x, *incx, *beta, y,
*incy ); *incy );
} }
@ -404,9 +404,9 @@ void F77_stpmv(int *order, char *uplow, char *transp, char *diagn,
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
get_transpose_type(transp,&trans); get_transpose_type(transp,&trans);
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
get_diag_type(diagn,&diag); get_diag_type(diagn,&diag);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
LDA = *n; LDA = *n;
@ -443,9 +443,9 @@ void F77_stpsv(int *order, char *uplow, char *transp, char *diagn,
enum CBLAS_UPLO uplo; enum CBLAS_UPLO uplo;
enum CBLAS_DIAG diag; enum CBLAS_DIAG diag;
get_transpose_type(transp,&trans); get_transpose_type(transp,&trans);
get_uplo_type(uplow,&uplo); get_uplo_type(uplow,&uplo);
get_diag_type(diagn,&diag); get_diag_type(diagn,&diag);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
LDA = *n; 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 ); 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 ){ int *incx, float *ap ){
float *A, *AP; float *A, *AP;
int i,j,k,LDA; 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 ); 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 ){ int *incx, float *y, int *incy, float *ap ){
float *A, *AP; float *A, *AP;
int i,j,k,LDA; int i,j,k,LDA;

36
ctest/c_sblas3.c
View File

@ -9,7 +9,7 @@
#include "common.h" #include "common.h"
#include "cblas_test.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, int *k, float *alpha, float *a, int *lda, float *b, int *ldb,
float *beta, float *c, int *ldc ) { 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( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) for( i=0; i<*m; i++ )
C[i*LDC+j]=c[j*(*ldc)+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 ); *beta, C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); *beta, c, *ldc );
else 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 ); *beta, c, *ldc );
} }
void F77_ssyrk(int *order, char *uplow, char *transp, int *n, int *k, 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 ) { float *beta, float *c, int *ldc ) {
int i,j,LDA,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( i=0; i<*n; i++ )
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
C[i*LDC+j]=c[j*(*ldc)+i]; 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 ); C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); c, *ldc );
else 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 ); 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( i=0; i<*n; i++ )
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
C[i*LDC+j]=c[j*(*ldc)+i]; 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 ); B, LDB, *beta, C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); b, *ldb, *beta, c, *ldc );
else 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 ); b, *ldb, *beta, c, *ldc );
} }
void F77_strmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, 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 *ldb) {
int i,j,LDA,LDB; int i,j,LDA,LDB;
float *A, *B; 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( i=0; i<*m; i++ )
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
B[i*LDB+j]=b[j*(*ldb)+i]; 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 ); A, LDA, B, LDB );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) 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); free(B);
} }
else if (*order == TEST_COL_MJR) 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); a, *lda, b, *ldb);
else 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); 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( i=0; i<*m; i++ )
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
B[i*LDB+j]=b[j*(*ldb)+i]; 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 ); A, LDA, B, LDB );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) 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); free(B);
} }
else if (*order == TEST_COL_MJR) 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); a, *lda, b, *ldb);
else 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); a, *lda, b, *ldb);
} }

14
ctest/c_sblat2.f
View File

@ -572,7 +572,7 @@
CTRANS = ' CblasNoTrans' CTRANS = ' CblasNoTrans'
ELSE IF (TRANS.EQ.'T')THEN ELSE IF (TRANS.EQ.'T')THEN
CTRANS = ' CblasTrans' CTRANS = ' CblasTrans'
ELSE ELSE
CTRANS = 'CblasConjTrans' CTRANS = 'CblasConjTrans'
END IF END IF
TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C'
@ -921,7 +921,7 @@
UPLO = ICH( IC: IC ) UPLO = ICH( IC: IC )
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CUPLO = ' CblasUpper' CUPLO = ' CblasUpper'
ELSE ELSE
CUPLO = ' CblasLower' CUPLO = ' CblasLower'
END IF END IF
* *
@ -1215,7 +1215,7 @@
LOGICAL LSE, LSERES LOGICAL LSE, LSERES
EXTERNAL LSE, LSERES EXTERNAL LSE, LSERES
* .. External Subroutines .. * .. External Subroutines ..
EXTERNAL SMAKE, SMVCH, CSTBMV, CSTBSV, CSTPMV, EXTERNAL SMAKE, SMVCH, CSTBMV, CSTBSV, CSTPMV,
$ CSTPSV, CSTRMV, CSTRSV $ CSTPSV, CSTRMV, CSTRSV
* .. Intrinsic Functions .. * .. Intrinsic Functions ..
INTRINSIC ABS, MAX INTRINSIC ABS, MAX
@ -1283,7 +1283,7 @@
UPLO = ICHU( ICU: ICU ) UPLO = ICHU( ICU: ICU )
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CUPLO = ' CblasUpper' CUPLO = ' CblasUpper'
ELSE ELSE
CUPLO = ' CblasLower' CUPLO = ' CblasLower'
END IF END IF
* *
@ -1293,7 +1293,7 @@
CTRANS = ' CblasNoTrans' CTRANS = ' CblasNoTrans'
ELSE IF (TRANS.EQ.'T')THEN ELSE IF (TRANS.EQ.'T')THEN
CTRANS = ' CblasTrans' CTRANS = ' CblasTrans'
ELSE ELSE
CTRANS = 'CblasConjTrans' CTRANS = 'CblasConjTrans'
END IF END IF
* *
@ -1972,7 +1972,7 @@
$ ALPHA, INCX, LDA $ ALPHA, INCX, LDA
IF( REWI ) IF( REWI )
$ REWIND NTRA $ REWIND NTRA
CALL CSSYR( IORDER, UPLO, N, ALPHA, XX, INCX, CALL CSSYR( IORDER, UPLO, N, ALPHA, XX, INCX,
$ AA, LDA ) $ AA, LDA )
ELSE IF( PACKED )THEN ELSE IF( PACKED )THEN
IF( TRACE ) IF( TRACE )
@ -2737,7 +2737,7 @@
WRITE( NOUT, FMT = 9998 )I, YT( I ), WRITE( NOUT, FMT = 9998 )I, YT( I ),
$ YY( 1 + ( I - 1 )*ABS( INCY ) ) $ YY( 1 + ( I - 1 )*ABS( INCY ) )
ELSE ELSE
WRITE( NOUT, FMT = 9998 )I, WRITE( NOUT, FMT = 9998 )I,
$ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I) $ YY( 1 + ( I - 1 )*ABS( INCY ) ), YT(I)
END IF END IF
60 CONTINUE 60 CONTINUE

66
ctest/c_sblat3.f
View File

@ -587,7 +587,7 @@
IF( REWI ) IF( REWI )
$ REWIND NTRA $ REWIND NTRA
CALL CSGEMM( IORDER, TRANSA, TRANSB, M, N, CALL CSGEMM( IORDER, TRANSA, TRANSB, M, N,
$ K, ALPHA, AA, LDA, BB, LDB, $ K, ALPHA, AA, LDA, BB, LDB,
$ BETA, CC, LDC ) $ BETA, CC, LDC )
* *
* Check if error-exit was taken incorrectly. * Check if error-exit was taken incorrectly.
@ -675,7 +675,7 @@
* *
120 CONTINUE 120 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME 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) $ M, N, K, ALPHA, LDA, LDB, BETA, LDC)
* *
130 CONTINUE 130 CONTINUE
@ -713,24 +713,24 @@
CHARACTER*1 TRANSA, TRANSB CHARACTER*1 TRANSA, TRANSB
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CTA,CTB CHARACTER*14 CRC, CTA,CTB
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CTA = ' CblasNoTrans' CTA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CTA = ' CblasTrans' CTA = ' CblasTrans'
ELSE ELSE
CTA = 'CblasConjTrans' CTA = 'CblasConjTrans'
END IF END IF
IF (TRANSB.EQ.'N')THEN IF (TRANSB.EQ.'N')THEN
CTB = ' CblasNoTrans' CTB = ' CblasNoTrans'
ELSE IF (TRANSB.EQ.'T')THEN ELSE IF (TRANSB.EQ.'T')THEN
CTB = ' CblasTrans' CTB = ' CblasTrans'
ELSE ELSE
CTB = 'CblasConjTrans' CTB = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
@ -743,7 +743,7 @@
* *
SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE SCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
$ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ 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 ) $ IORDER )
* *
* Tests SSYMM. * Tests SSYMM.
@ -895,9 +895,9 @@
* Call the subroutine. * Call the subroutine.
* *
IF( TRACE ) IF( TRACE )
$ CALL SPRCN2(NTRA, NC, SNAME, IORDER, $ CALL SPRCN2(NTRA, NC, SNAME, IORDER,
$ SIDE, UPLO, M, N, ALPHA, LDA, LDB, $ SIDE, UPLO, M, N, ALPHA, LDA, LDB,
$ BETA, LDC) $ BETA, LDC)
IF( REWI ) IF( REWI )
$ REWIND NTRA $ REWIND NTRA
CALL CSSYMM( IORDER, SIDE, UPLO, M, N, ALPHA, CALL CSSYMM( IORDER, SIDE, UPLO, M, N, ALPHA,
@ -993,7 +993,7 @@
110 CONTINUE 110 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, CALL SPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
$ LDB, BETA, LDC) $ LDB, BETA, LDC)
* *
120 CONTINUE 120 CONTINUE
RETURN RETURN
@ -1028,20 +1028,20 @@
CHARACTER*1 SIDE, UPLO CHARACTER*1 SIDE, UPLO
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CS,CU CHARACTER*14 CRC, CS,CU
IF (SIDE.EQ.'L')THEN IF (SIDE.EQ.'L')THEN
CS = ' CblasLeft' CS = ' CblasLeft'
ELSE ELSE
CS = ' CblasRight' CS = ' CblasRight'
END IF END IF
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
@ -1351,9 +1351,9 @@
10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ', 10002 FORMAT( ' ', A12,' COMPLETED THE COLUMN-MAJOR COMPUTATIONAL ',
$ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ', $ 'TESTS (', I6, ' CALLS)', /' ******* BUT WITH MAXIMUM TEST ',
$ 'RATIO ', F8.2, ' - SUSPECT *******' ) $ '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)' ) $ ' (', I6, ' CALL', 'S)' )
10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS', 10000 FORMAT( ' ', A12,' PASSED THE COLUMN-MAJOR COMPUTATIONAL TESTS',
$ ' (', I6, ' CALL', 'S)' ) $ ' (', I6, ' CALL', 'S)' )
9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH', 9998 FORMAT( ' ******* FATAL ERROR - PARAMETER NUMBER ', I2, ' WAS CH',
$ 'ANGED INCORRECTLY *******' ) $ 'ANGED INCORRECTLY *******' )
@ -1374,22 +1374,22 @@
CHARACTER*1 SIDE, UPLO, TRANSA, DIAG CHARACTER*1 SIDE, UPLO, TRANSA, DIAG
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CS, CU, CA, CD CHARACTER*14 CRC, CS, CU, CA, CD
IF (SIDE.EQ.'L')THEN IF (SIDE.EQ.'L')THEN
CS = ' CblasLeft' CS = ' CblasLeft'
ELSE ELSE
CS = ' CblasRight' CS = ' CblasRight'
END IF END IF
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (DIAG.EQ.'N')THEN IF (DIAG.EQ.'N')THEN
@ -1399,14 +1399,14 @@
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = 'CblasRowMajor' CRC = 'CblasRowMajor'
ELSE ELSE
CRC = 'CblasColMajor' CRC = 'CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB WRITE(NOUT, FMT = 9994)CA, CD, M, N, ALPHA, LDA, LDB
9995 FORMAT( 1X, I6, ': ', A12,'(', A14, ',', A14, ',', A14, ',') 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, ').' ) $ F4.1, ', A,', I3, ', B,', I3, ').' )
END END
* *
@ -1701,29 +1701,29 @@
CHARACTER*1 UPLO, TRANSA CHARACTER*1 UPLO, TRANSA
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CU, CA CHARACTER*14 CRC, CU, CA
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) 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, ').' ) $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' )
END END
* *
@ -2057,29 +2057,29 @@
CHARACTER*1 UPLO, TRANSA CHARACTER*1 UPLO, TRANSA
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CU, CA CHARACTER*14 CRC, CU, CA
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, LDB, BETA, LDC
9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) 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, ').' ) $ F4.1, ', A,', I3, ', B', I3, ',', F4.1, ', C,', I3, ').' )
END END
* *

20
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 link_xerbla;
extern int RowMajorStrg; extern int RowMajorStrg;
extern char *cblas_rout; extern char *cblas_rout;
/* Initially, c__3chke will call this routine with /* Initially, c__3chke will call this routine with
* global variable link_xerbla=1, and F77_xerbla will set link_xerbla=0. * 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 * This is done to fool the linker into loading these subroutines first
* instead of ones in the CBLAS or the legacy BLAS library. * instead of ones in the CBLAS or the legacy BLAS library.
*/ */
if (link_xerbla) return; if (link_xerbla) return;
@ -26,11 +26,11 @@ void cblas_xerbla(blasint info, char *rout, char *form, ...)
if (RowMajorStrg) if (RowMajorStrg)
{ {
/* To properly check leading dimension problems in cblas__gemm, we /* To properly check leading dimension problems in cblas__gemm, we
* need to do the following trick. When cblas__gemm is called with * need to do the following trick. When cblas__gemm is called with
* CblasRowMajor, the arguments A and B switch places in the call to * CblasRowMajor, the arguments A and B switch places in the call to
* f77__gemm. Thus when we test for bad leading dimension problems * 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 * for A and B, lda is in position 11 instead of 9, and ldb is in
* position 9 instead of 11. * position 9 instead of 11.
*/ */
if (strstr(rout,"gemm") != 0) 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=0; i < 6; i++) rout[i+6] = tolower(srname[i]);
for(i=11; i >= 9; i--) if (rout[i] == ' ') rout[i] = '\0'; for(i=11; i >= 9; i--) if (rout[i] == ' ') rout[i] = '\0';
/* We increment *info by 1 since the CBLAS interface adds one more /* We increment *info by 1 since the CBLAS interface adds one more
* argument to all level 2 and 3 routines. * argument to all level 2 and 3 routines.
*/ */

292
ctest/c_z2chke.c
View File

@ -26,11 +26,11 @@ void chkxer(void) {
void F77_z2chke(char *rout) { void F77_z2chke(char *rout) {
char *sf = ( rout ) ; char *sf = ( rout ) ;
double A[2] = {0.0,0.0}, double A[2] = {0.0,0.0},
X[2] = {0.0,0.0}, X[2] = {0.0,0.0},
Y[2] = {0.0,0.0}, Y[2] = {0.0,0.0},
ALPHA[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; RALPHA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok; extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg; extern int RowMajorStrg;
@ -48,588 +48,588 @@ void F77_z2chke(char *rout) {
if (strncmp( sf,"cblas_zgemv",11)==0) { if (strncmp( sf,"cblas_zgemv",11)==0) {
cblas_rout = "cblas_zgemv"; cblas_rout = "cblas_zgemv";
cblas_info = 1; cblas_info = 1;
cblas_zgemv(INVALID, CblasNoTrans, 0, 0, cblas_zgemv(INVALID, CblasNoTrans, 0, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_zgbmv",11)==0) { } else if (strncmp( sf,"cblas_zgbmv",11)==0) {
cblas_rout = "cblas_zgbmv"; cblas_rout = "cblas_zgbmv";
cblas_info = 1; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 14; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 14; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_zhemv",11)==0) { } else if (strncmp( sf,"cblas_zhemv",11)==0) {
cblas_rout = "cblas_zhemv"; cblas_rout = "cblas_zhemv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_zhemv(INVALID, CblasUpper, 0, cblas_zhemv(INVALID, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_zhemv(CblasColMajor, INVALID, 0, cblas_zhemv(CblasColMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_zhemv(CblasColMajor, CblasUpper, INVALID, cblas_zhemv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_zhemv(CblasColMajor, CblasUpper, 2, cblas_zhemv(CblasColMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_zhemv(CblasColMajor, CblasUpper, 0, cblas_zhemv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = FALSE; cblas_info = 11; RowMajorStrg = FALSE;
cblas_zhemv(CblasColMajor, CblasUpper, 0, cblas_zhemv(CblasColMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_zhemv(CblasRowMajor, INVALID, 0, cblas_zhemv(CblasRowMajor, INVALID, 0,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_zhemv(CblasRowMajor, CblasUpper, INVALID, cblas_zhemv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; cblas_info = 6; RowMajorStrg = TRUE;
cblas_zhemv(CblasRowMajor, CblasUpper, 2, cblas_zhemv(CblasRowMajor, CblasUpper, 2,
ALPHA, A, 1, X, 1, BETA, Y, 1 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_zhemv(CblasRowMajor, CblasUpper, 0, cblas_zhemv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 0, BETA, Y, 1 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 11; RowMajorStrg = TRUE; cblas_info = 11; RowMajorStrg = TRUE;
cblas_zhemv(CblasRowMajor, CblasUpper, 0, cblas_zhemv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, 1, X, 1, BETA, Y, 0 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_zhbmv",11)==0) { } else if (strncmp( sf,"cblas_zhbmv",11)==0) {
cblas_rout = "cblas_zhbmv"; cblas_rout = "cblas_zhbmv";
cblas_info = 1; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = FALSE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 12; RowMajorStrg = TRUE; 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 ); ALPHA, A, 1, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_zhpmv",11)==0) { } else if (strncmp( sf,"cblas_zhpmv",11)==0) {
cblas_rout = "cblas_zhpmv"; cblas_rout = "cblas_zhpmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_zhpmv(INVALID, CblasUpper, 0, cblas_zhpmv(INVALID, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_zhpmv(CblasColMajor, INVALID, 0, cblas_zhpmv(CblasColMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_zhpmv(CblasColMajor, CblasUpper, INVALID, cblas_zhpmv(CblasColMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; cblas_info = 7; RowMajorStrg = FALSE;
cblas_zhpmv(CblasColMajor, CblasUpper, 0, cblas_zhpmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 ); ALPHA, A, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = FALSE; cblas_info = 10; RowMajorStrg = FALSE;
cblas_zhpmv(CblasColMajor, CblasUpper, 0, cblas_zhpmv(CblasColMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 ); ALPHA, A, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_zhpmv(CblasRowMajor, INVALID, 0, cblas_zhpmv(CblasRowMajor, INVALID, 0,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID, cblas_zhpmv(CblasRowMajor, CblasUpper, INVALID,
ALPHA, A, X, 1, BETA, Y, 1 ); ALPHA, A, X, 1, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; cblas_info = 7; RowMajorStrg = TRUE;
cblas_zhpmv(CblasRowMajor, CblasUpper, 0, cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 0, BETA, Y, 1 ); ALPHA, A, X, 0, BETA, Y, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = TRUE; cblas_info = 10; RowMajorStrg = TRUE;
cblas_zhpmv(CblasRowMajor, CblasUpper, 0, cblas_zhpmv(CblasRowMajor, CblasUpper, 0,
ALPHA, A, X, 1, BETA, Y, 0 ); ALPHA, A, X, 1, BETA, Y, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ztrmv",11)==0) { } else if (strncmp( sf,"cblas_ztrmv",11)==0) {
cblas_rout = "cblas_ztrmv"; cblas_rout = "cblas_ztrmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans, cblas_ztrmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans, cblas_ztrmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ztrmv(CblasColMajor, CblasUpper, INVALID, cblas_ztrmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; cblas_info = 7; RowMajorStrg = FALSE;
cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; cblas_info = 9; RowMajorStrg = FALSE;
cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztrmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans, cblas_ztrmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID, cblas_ztrmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; cblas_info = 7; RowMajorStrg = TRUE;
cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; cblas_info = 9; RowMajorStrg = TRUE;
cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztrmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ztbmv",11)==0) { } else if (strncmp( sf,"cblas_ztbmv",11)==0) {
cblas_rout = "cblas_ztbmv"; cblas_rout = "cblas_ztbmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans, cblas_ztbmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans, cblas_ztbmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ztbmv(CblasColMajor, CblasUpper, INVALID, cblas_ztbmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = FALSE; cblas_info = 10; RowMajorStrg = FALSE;
cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztbmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans, cblas_ztbmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID, cblas_ztbmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; cblas_info = 6; RowMajorStrg = TRUE;
cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = TRUE; cblas_info = 10; RowMajorStrg = TRUE;
cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztbmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ztpmv",11)==0) { } else if (strncmp( sf,"cblas_ztpmv",11)==0) {
cblas_rout = "cblas_ztpmv"; cblas_rout = "cblas_ztpmv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans, cblas_ztpmv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans, cblas_ztpmv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ztpmv(CblasColMajor, CblasUpper, INVALID, cblas_ztpmv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztpmv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans, cblas_ztpmv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID, cblas_ztpmv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztpmv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ztrsv",11)==0) { } else if (strncmp( sf,"cblas_ztrsv",11)==0) {
cblas_rout = "cblas_ztrsv"; cblas_rout = "cblas_ztrsv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans, cblas_ztrsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans, cblas_ztrsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ztrsv(CblasColMajor, CblasUpper, INVALID, cblas_ztrsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = FALSE; cblas_info = 7; RowMajorStrg = FALSE;
cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = FALSE; cblas_info = 9; RowMajorStrg = FALSE;
cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztrsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans, cblas_ztrsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID, cblas_ztrsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, 1, X, 1 ); CblasNonUnit, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, 1, X, 1 ); INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, 1, X, 1 ); CblasNonUnit, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 7; RowMajorStrg = TRUE; cblas_info = 7; RowMajorStrg = TRUE;
cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 2, A, 1, X, 1 ); CblasNonUnit, 2, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 9; RowMajorStrg = TRUE; cblas_info = 9; RowMajorStrg = TRUE;
cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztrsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, 1, X, 0 ); CblasNonUnit, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ztbsv",11)==0) { } else if (strncmp( sf,"cblas_ztbsv",11)==0) {
cblas_rout = "cblas_ztbsv"; cblas_rout = "cblas_ztbsv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans, cblas_ztbsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans, cblas_ztbsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ztbsv(CblasColMajor, CblasUpper, INVALID, cblas_ztbsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = FALSE; cblas_info = 10; RowMajorStrg = FALSE;
cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztbsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans, cblas_ztbsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID, cblas_ztbsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, 0, A, 1, X, 1 ); CblasNonUnit, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, 0, A, 1, X, 1 ); INVALID, 0, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, 0, A, 1, X, 1 ); CblasNonUnit, INVALID, 0, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 6; RowMajorStrg = TRUE; cblas_info = 6; RowMajorStrg = TRUE;
cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, INVALID, A, 1, X, 1 ); CblasNonUnit, 0, INVALID, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 1, A, 1, X, 1 ); CblasNonUnit, 0, 1, A, 1, X, 1 );
chkxer(); chkxer();
cblas_info = 10; RowMajorStrg = TRUE; cblas_info = 10; RowMajorStrg = TRUE;
cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztbsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, 0, A, 1, X, 0 ); CblasNonUnit, 0, 0, A, 1, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_ztpsv",11)==0) { } else if (strncmp( sf,"cblas_ztpsv",11)==0) {
cblas_rout = "cblas_ztpsv"; cblas_rout = "cblas_ztpsv";
cblas_info = 1; RowMajorStrg = FALSE; cblas_info = 1; RowMajorStrg = FALSE;
cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans, cblas_ztpsv(INVALID, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = FALSE; cblas_info = 2; RowMajorStrg = FALSE;
cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans, cblas_ztpsv(CblasColMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = FALSE; cblas_info = 3; RowMajorStrg = FALSE;
cblas_ztpsv(CblasColMajor, CblasUpper, INVALID, cblas_ztpsv(CblasColMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = FALSE; cblas_info = 4; RowMajorStrg = FALSE;
cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = FALSE; cblas_info = 5; RowMajorStrg = FALSE;
cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = FALSE; cblas_info = 8; RowMajorStrg = FALSE;
cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans, cblas_ztpsv(CblasColMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
cblas_info = 2; RowMajorStrg = TRUE; cblas_info = 2; RowMajorStrg = TRUE;
cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans, cblas_ztpsv(CblasRowMajor, INVALID, CblasNoTrans,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 3; RowMajorStrg = TRUE; cblas_info = 3; RowMajorStrg = TRUE;
cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID, cblas_ztpsv(CblasRowMajor, CblasUpper, INVALID,
CblasNonUnit, 0, A, X, 1 ); CblasNonUnit, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 4; RowMajorStrg = TRUE; cblas_info = 4; RowMajorStrg = TRUE;
cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
INVALID, 0, A, X, 1 ); INVALID, 0, A, X, 1 );
chkxer(); chkxer();
cblas_info = 5; RowMajorStrg = TRUE; cblas_info = 5; RowMajorStrg = TRUE;
cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, INVALID, A, X, 1 ); CblasNonUnit, INVALID, A, X, 1 );
chkxer(); chkxer();
cblas_info = 8; RowMajorStrg = TRUE; cblas_info = 8; RowMajorStrg = TRUE;
cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans, cblas_ztpsv(CblasRowMajor, CblasUpper, CblasNoTrans,
CblasNonUnit, 0, A, X, 0 ); CblasNonUnit, 0, A, X, 0 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_zgeru",10)==0) { } else if (strncmp( sf,"cblas_zgeru",10)==0) {
@ -818,7 +818,7 @@ void F77_z2chke(char *rout) {
cblas_info = 6; RowMajorStrg = FALSE; cblas_info = 6; RowMajorStrg = FALSE;
cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A ); cblas_zhpr(CblasColMajor, CblasUpper, 0, RALPHA, X, 0, A );
chkxer(); chkxer();
} }
if (cblas_ok == TRUE) if (cblas_ok == TRUE)
printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout); printf(" %-12s PASSED THE TESTS OF ERROR-EXITS\n", cblas_rout);
else else

12
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}, B[4] = {0.0,0.0,0.0,0.0},
C[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}, ALPHA[2] = {0.0,0.0},
BETA[2] = {0.0,0.0}, BETA[2] = {0.0,0.0},
RALPHA = 0.0, RBETA = 0.0; RALPHA = 0.0, RBETA = 0.0;
extern int cblas_info, cblas_lerr, cblas_ok; extern int cblas_info, cblas_lerr, cblas_ok;
extern int RowMajorStrg; extern int RowMajorStrg;
@ -49,15 +49,15 @@ void F77_z3chke(char * rout) {
cblas_rout = "cblas_zgemm" ; cblas_rout = "cblas_zgemm" ;
cblas_info = 1; 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 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
cblas_info = 1; 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 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
cblas_info = 1; 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 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
cblas_info = 1; cblas_info = 1;
@ -272,7 +272,7 @@ void F77_z3chke(char * rout) {
cblas_zgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0, cblas_zgemm( CblasRowMajor, CblasTrans, CblasTrans, 0, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
} else if (strncmp( sf,"cblas_zhemm" ,11)==0) { } else if (strncmp( sf,"cblas_zhemm" ,11)==0) {
cblas_rout = "cblas_zhemm" ; cblas_rout = "cblas_zhemm" ;
@ -1696,7 +1696,7 @@ void F77_z3chke(char * rout) {
cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0, cblas_zsyr2k(CblasColMajor, CblasLower, CblasTrans, 2, 0,
ALPHA, A, 1, B, 1, BETA, C, 1 ); ALPHA, A, 1, B, 1, BETA, C, 1 );
chkxer(); chkxer();
} }
if (cblas_ok == 1 ) if (cblas_ok == 1 )

6
ctest/c_zblas1.c
View File

@ -16,21 +16,21 @@ void F77_zaxpy(const int *N, const void *alpha, void *X,
return; 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) void *Y, const int *incY)
{ {
cblas_zcopy(*N, X, *incX, Y, *incY); cblas_zcopy(*N, X, *incX, Y, *incY);
return; 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) const void *Y, const int *incY,void *dotc)
{ {
cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc); cblas_zdotc_sub(*N, X, *incX, Y, *incY, dotc);
return; 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) void *Y, const int *incY,void *dotu)
{ {
cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu); cblas_zdotu_sub(*N, X, *incX, Y, *incY, dotu);

40
ctest/c_zblas2.c
View File

@ -8,9 +8,9 @@
#include "common.h" #include "common.h"
#include "cblas_test.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, 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) { const void *beta, void *y, int *incy) {
CBLAS_TEST_ZOMPLEX *A; 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 ); *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, 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 *alpha, CBLAS_TEST_ZOMPLEX *a, int *lda,
CBLAS_TEST_ZOMPLEX *x, int *incx, CBLAS_TEST_ZOMPLEX *x, int *incx,
CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy) { CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *y, int *incy) {
CBLAS_TEST_ZOMPLEX *A; 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 ); *incx, beta, y, *incy );
} }
void F77_zgeru(int *order, int *m, int *n, CBLAS_TEST_ZOMPLEX *alpha, 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 *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy,
CBLAS_TEST_ZOMPLEX *a, int *lda){ CBLAS_TEST_ZOMPLEX *a, int *lda){
CBLAS_TEST_ZOMPLEX *A; 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 ); 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, 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 *x, int *incx, CBLAS_TEST_ZOMPLEX *y, int *incy,
CBLAS_TEST_ZOMPLEX *a, int *lda) { CBLAS_TEST_ZOMPLEX *a, int *lda) {
CBLAS_TEST_ZOMPLEX *A; CBLAS_TEST_ZOMPLEX *A;
int i,j,LDA; int i,j,LDA;
@ -165,7 +165,7 @@ void F77_zhemv(int *order, char *uplow, int *n, CBLAS_TEST_ZOMPLEX *alpha,
free(A); free(A);
} }
else if (*order == TEST_COL_MJR) 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 ); beta, y, *incy );
else else
cblas_zhemv( UNDEFINED, uplo, *n, alpha, a, *lda, x, *incx, 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, 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 *x, int *incx, CBLAS_TEST_ZOMPLEX *beta,
CBLAS_TEST_ZOMPLEX *y, int *incy){ CBLAS_TEST_ZOMPLEX *y, int *incy){
@ -186,7 +186,7 @@ int i,irow,j,jcol,LDA;
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower ) 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 ); *incx, beta, y, *incy );
else { else {
LDA = *k+2; 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, 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 *beta, CBLAS_TEST_ZOMPLEX *y, int *incy){
CBLAS_TEST_ZOMPLEX *A, *AP; 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); get_uplo_type(uplow,&uplo);
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower ) 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); beta, y, *incy);
else { else {
LDA = *n; 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); *incx);
free(A); free(A);
} }
@ -371,7 +371,7 @@ void F77_ztbsv(int *order, char *uplow, char *transp, char *diagn,
if (*order == TEST_ROW_MJR) { if (*order == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower ) 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); *incx);
else { else {
LDA = *k+2; 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); x, *incx);
free(A); 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 (*order == TEST_ROW_MJR) {
if (uplo != CblasUpper && uplo != CblasLower ) 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 ); *incy, ap );
else { else {
LDA = *n; LDA = *n;
@ -752,7 +752,7 @@ void F77_zher(int *order, char *uplow, int *n, double *alpha,
LDA = *n+1; LDA = *n+1;
A=(CBLAS_TEST_ZOMPLEX*)malloc((*n)*LDA*sizeof( CBLAS_TEST_ZOMPLEX )); 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++ ) { for( j=0; j<*n; j++ ) {
A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; 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; LDA = *n+1;
A= ( CBLAS_TEST_ZOMPLEX* )malloc((*n)*LDA*sizeof(CBLAS_TEST_ZOMPLEX ) ); 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++ ) { for( j=0; j<*n; j++ ) {
A[ LDA*i+j ].real=a[ (*lda)*j+i ].real; A[ LDA*i+j ].real=a[ (*lda)*j+i ].real;
A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag; A[ LDA*i+j ].imag=a[ (*lda)*j+i ].imag;

60
ctest/c_zblas3.c
View File

@ -11,9 +11,9 @@
#define TEST_ROW_MJR 1 #define TEST_ROW_MJR 1
#define UNDEFINED -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, 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 *c, int *ldc ) {
CBLAS_TEST_ZOMPLEX *A, *B, *C; 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].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag; 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 ); beta, C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) { 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); beta, c, *ldc );
else 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 ); beta, c, *ldc );
} }
void F77_zsymm(int *order, char *rtlf, char *uplow, int *m, int *n, 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( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) for( i=0; i<*m; i++ )
C[i*LDC+j]=c[j*(*ldc)+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 ); beta, C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); beta, c, *ldc );
else 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 ); beta, c, *ldc );
} }
void F77_zherk(int *order, char *uplow, char *transp, int *n, int *k, 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 ) { double *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) {
int i,j,LDA,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].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag; 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 ); C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) { 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); c, *ldc );
else 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 ); c, *ldc );
} }
void F77_zsyrk(int *order, char *uplow, char *transp, int *n, int *k, 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 ) { CBLAS_TEST_ZOMPLEX *beta, CBLAS_TEST_ZOMPLEX *c, int *ldc ) {
int i,j,LDA,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].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag; 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 ); C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) { 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); c, *ldc );
else 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 ); c, *ldc );
} }
void F77_zher2k(int *order, char *uplow, char *transp, int *n, int *k, 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].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag; 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 ); B, LDB, *beta, C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) { 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); b, *ldb, *beta, c, *ldc );
else 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 ); b, *ldb, *beta, c, *ldc );
} }
void F77_zsyr2k(int *order, char *uplow, char *transp, int *n, int *k, 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].real=c[j*(*ldc)+i].real;
C[i*LDC+j].imag=c[j*(*ldc)+i].imag; 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 ); B, LDB, beta, C, LDC );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*n; i++ ) { 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); free(C);
} }
else if (*order == TEST_COL_MJR) 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 ); b, *ldb, beta, c, *ldc );
else 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 ); b, *ldb, beta, c, *ldc );
} }
void F77_ztrmm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, 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 *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) {
int i,j,LDA,LDB; int i,j,LDA,LDB;
CBLAS_TEST_ZOMPLEX *A, *B; 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].real=b[j*(*ldb)+i].real;
B[i*LDB+j].imag=b[j*(*ldb)+i].imag; 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 ); A, LDA, B, LDB );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) { 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); free(B);
} }
else if (*order == TEST_COL_MJR) 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); a, *lda, b, *ldb);
else 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); a, *lda, b, *ldb);
} }
void F77_ztrsm(int *order, char *rtlf, char *uplow, char *transp, char *diagn, 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 *lda, CBLAS_TEST_ZOMPLEX *b, int *ldb) {
int i,j,LDA,LDB; int i,j,LDA,LDB;
CBLAS_TEST_ZOMPLEX *A, *B; 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].real=b[j*(*ldb)+i].real;
B[i*LDB+j].imag=b[j*(*ldb)+i].imag; 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 ); A, LDA, B, LDB );
for( j=0; j<*n; j++ ) for( j=0; j<*n; j++ )
for( i=0; i<*m; i++ ) { 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); free(B);
} }
else if (*order == TEST_COL_MJR) 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); a, *lda, b, *ldb);
else 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); a, *lda, b, *ldb);
} }

26
ctest/c_zblat2.f
View File

@ -69,7 +69,7 @@
INTEGER NSUBS INTEGER NSUBS
PARAMETER ( NSUBS = 17 ) PARAMETER ( NSUBS = 17 )
COMPLEX*16 ZERO, ONE COMPLEX*16 ZERO, ONE
PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ),
$ ONE = ( 1.0D0, 0.0D0 ) ) $ ONE = ( 1.0D0, 0.0D0 ) )
DOUBLE PRECISION RZERO, RHALF, RONE DOUBLE PRECISION RZERO, RHALF, RONE
PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 ) PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 )
@ -348,13 +348,13 @@
160 IF (CORDER) THEN 160 IF (CORDER) THEN
CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
$ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, $ 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 ) $ 0 )
END IF END IF
IF (RORDER) THEN IF (RORDER) THEN
CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE, CALL ZCHK3( SNAMES( ISNUM ), EPS, THRESH, NOUT, NTRA, TRACE,
$ REWI, FATAL, NIDIM, IDIM, NKB, KB, NINC, INC, $ 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 ) $ 1 )
END IF END IF
GO TO 200 GO TO 200
@ -474,7 +474,7 @@
* *
* .. Parameters .. * .. Parameters ..
COMPLEX*16 ZERO, HALF COMPLEX*16 ZERO, HALF
PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ),
$ HALF = ( 0.5D0, 0.0D0 ) ) $ HALF = ( 0.5D0, 0.0D0 ) )
DOUBLE PRECISION RZERO DOUBLE PRECISION RZERO
PARAMETER ( RZERO = 0.0D0 ) PARAMETER ( RZERO = 0.0D0 )
@ -582,7 +582,7 @@
CTRANS = ' CblasNoTrans' CTRANS = ' CblasNoTrans'
ELSE IF (TRANS.EQ.'T')THEN ELSE IF (TRANS.EQ.'T')THEN
CTRANS = ' CblasTrans' CTRANS = ' CblasTrans'
ELSE ELSE
CTRANS = 'CblasConjTrans' CTRANS = 'CblasConjTrans'
END IF END IF
TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C' TRAN = TRANS.EQ.'T'.OR.TRANS.EQ.'C'
@ -685,7 +685,7 @@
* *
* See what data changed inside subroutines. * 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( 1 ) = TRANS.EQ.TRANSS
ISAME( 2 ) = MS.EQ.M ISAME( 2 ) = MS.EQ.M
ISAME( 3 ) = NS.EQ.N ISAME( 3 ) = NS.EQ.N
@ -927,7 +927,7 @@
UPLO = ICH( IC: IC ) UPLO = ICH( IC: IC )
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CUPLO = ' CblasUpper' CUPLO = ' CblasUpper'
ELSE ELSE
CUPLO = ' CblasLower' CUPLO = ' CblasLower'
END IF END IF
* *
@ -1287,7 +1287,7 @@
UPLO = ICHU( ICU: ICU ) UPLO = ICHU( ICU: ICU )
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CUPLO = ' CblasUpper' CUPLO = ' CblasUpper'
ELSE ELSE
CUPLO = ' CblasLower' CUPLO = ' CblasLower'
END IF END IF
* *
@ -1297,7 +1297,7 @@
CTRANS = ' CblasNoTrans' CTRANS = ' CblasNoTrans'
ELSE IF (TRANS.EQ.'T')THEN ELSE IF (TRANS.EQ.'T')THEN
CTRANS = ' CblasTrans' CTRANS = ' CblasTrans'
ELSE ELSE
CTRANS = 'CblasConjTrans' CTRANS = 'CblasConjTrans'
END IF END IF
* *
@ -1569,7 +1569,7 @@
* *
* .. Parameters .. * .. Parameters ..
COMPLEX*16 ZERO, HALF, ONE COMPLEX*16 ZERO, HALF, ONE
PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ),
$ HALF = ( 0.5D0, 0.0D0 ), $ HALF = ( 0.5D0, 0.0D0 ),
$ ONE = ( 1.0D0, 0.0D0 ) ) $ ONE = ( 1.0D0, 0.0D0 ) )
DOUBLE PRECISION RZERO DOUBLE PRECISION RZERO
@ -1847,7 +1847,7 @@
* *
* .. Parameters .. * .. Parameters ..
COMPLEX*16 ZERO, HALF, ONE COMPLEX*16 ZERO, HALF, ONE
PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ),
$ HALF = ( 0.5D0, 0.0D0 ), $ HALF = ( 0.5D0, 0.0D0 ),
$ ONE = ( 1.0D0, 0.0D0 ) ) $ ONE = ( 1.0D0, 0.0D0 ) )
DOUBLE PRECISION RZERO DOUBLE PRECISION RZERO
@ -2141,7 +2141,7 @@
* *
* .. Parameters .. * .. Parameters ..
COMPLEX*16 ZERO, HALF, ONE COMPLEX*16 ZERO, HALF, ONE
PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ),
$ HALF = ( 0.5D0, 0.0D0 ), $ HALF = ( 0.5D0, 0.0D0 ),
$ ONE = ( 1.0D0, 0.0D0 ) ) $ ONE = ( 1.0D0, 0.0D0 ) )
DOUBLE PRECISION RZERO DOUBLE PRECISION RZERO
@ -2762,7 +2762,7 @@
* *
* .. Parameters .. * .. Parameters ..
COMPLEX*16 ZERO, ONE COMPLEX*16 ZERO, ONE
PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ),
$ ONE = ( 1.0D0, 0.0D0 ) ) $ ONE = ( 1.0D0, 0.0D0 ) )
COMPLEX*16 ROGUE COMPLEX*16 ROGUE
PARAMETER ( ROGUE = ( -1.0D10, 1.0D10 ) ) PARAMETER ( ROGUE = ( -1.0D10, 1.0D10 ) )

80
ctest/c_zblat3.f
View File

@ -51,7 +51,7 @@
INTEGER NSUBS INTEGER NSUBS
PARAMETER ( NSUBS = 9 ) PARAMETER ( NSUBS = 9 )
COMPLEX*16 ZERO, ONE COMPLEX*16 ZERO, ONE
PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ), PARAMETER ( ZERO = ( 0.0D0, 0.0D0 ),
$ ONE = ( 1.0D0, 0.0D0 ) ) $ ONE = ( 1.0D0, 0.0D0 ) )
DOUBLE PRECISION RZERO, RHALF, RONE DOUBLE PRECISION RZERO, RHALF, RONE
PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 ) PARAMETER ( RZERO = 0.0D0, RHALF = 0.5D0, RONE = 1.0D0 )
@ -425,7 +425,7 @@
END END
SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE ZCHK1( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
$ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ 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 ) $ IORDER )
* *
* Tests ZGEMM. * Tests ZGEMM.
@ -601,7 +601,7 @@
IF( REWI ) IF( REWI )
$ REWIND NTRA $ REWIND NTRA
CALL CZGEMM( IORDER, TRANSA, TRANSB, M, N, CALL CZGEMM( IORDER, TRANSA, TRANSB, M, N,
$ K, ALPHA, AA, LDA, BB, LDB, $ K, ALPHA, AA, LDA, BB, LDB,
$ BETA, CC, LDC ) $ BETA, CC, LDC )
* *
* Check if error-exit was taken incorrectly. * Check if error-exit was taken incorrectly.
@ -689,7 +689,7 @@
* *
120 CONTINUE 120 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME 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) $ M, N, K, ALPHA, LDA, LDB, BETA, LDC)
* *
130 CONTINUE 130 CONTINUE
@ -725,24 +725,24 @@
CHARACTER*1 TRANSA, TRANSB CHARACTER*1 TRANSA, TRANSB
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CTA,CTB CHARACTER*14 CRC, CTA,CTB
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CTA = ' CblasNoTrans' CTA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CTA = ' CblasTrans' CTA = ' CblasTrans'
ELSE ELSE
CTA = 'CblasConjTrans' CTA = 'CblasConjTrans'
END IF END IF
IF (TRANSB.EQ.'N')THEN IF (TRANSB.EQ.'N')THEN
CTB = ' CblasNoTrans' CTB = ' CblasNoTrans'
ELSE IF (TRANSB.EQ.'T')THEN ELSE IF (TRANSB.EQ.'T')THEN
CTB = ' CblasTrans' CTB = ' CblasTrans'
ELSE ELSE
CTB = 'CblasConjTrans' CTB = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CTA,CTB
@ -755,7 +755,7 @@
* *
SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI, SUBROUTINE ZCHK2( SNAME, EPS, THRESH, NOUT, NTRA, TRACE, REWI,
$ FATAL, NIDIM, IDIM, NALF, ALF, NBET, BET, NMAX, $ 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 ) $ IORDER )
* *
* Tests ZHEMM and ZSYMM. * Tests ZHEMM and ZSYMM.
@ -911,9 +911,9 @@
* Call the subroutine. * Call the subroutine.
* *
IF( TRACE ) IF( TRACE )
$ CALL ZPRCN2(NTRA, NC, SNAME, IORDER, $ CALL ZPRCN2(NTRA, NC, SNAME, IORDER,
$ SIDE, UPLO, M, N, ALPHA, LDA, LDB, $ SIDE, UPLO, M, N, ALPHA, LDA, LDB,
$ BETA, LDC) $ BETA, LDC)
IF( REWI ) IF( REWI )
$ REWIND NTRA $ REWIND NTRA
IF( CONJ )THEN IF( CONJ )THEN
@ -1016,7 +1016,7 @@
110 CONTINUE 110 CONTINUE
WRITE( NOUT, FMT = 9996 )SNAME WRITE( NOUT, FMT = 9996 )SNAME
CALL ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA, CALL ZPRCN2(NOUT, NC, SNAME, IORDER, SIDE, UPLO, M, N, ALPHA, LDA,
$ LDB, BETA, LDC) $ LDB, BETA, LDC)
* *
120 CONTINUE 120 CONTINUE
RETURN RETURN
@ -1051,20 +1051,20 @@
CHARACTER*1 SIDE, UPLO CHARACTER*1 SIDE, UPLO
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CS,CU CHARACTER*14 CRC, CS,CU
IF (SIDE.EQ.'L')THEN IF (SIDE.EQ.'L')THEN
CS = ' CblasLeft' CS = ' CblasLeft'
ELSE ELSE
CS = ' CblasRight' CS = ' CblasRight'
END IF END IF
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
@ -1402,22 +1402,22 @@
CHARACTER*1 SIDE, UPLO, TRANSA, DIAG CHARACTER*1 SIDE, UPLO, TRANSA, DIAG
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CS, CU, CA, CD CHARACTER*14 CRC, CS, CU, CA, CD
IF (SIDE.EQ.'L')THEN IF (SIDE.EQ.'L')THEN
CS = ' CblasLeft' CS = ' CblasLeft'
ELSE ELSE
CS = ' CblasRight' CS = ' CblasRight'
END IF END IF
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (DIAG.EQ.'N')THEN IF (DIAG.EQ.'N')THEN
@ -1427,7 +1427,7 @@
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU WRITE(NOUT, FMT = 9995)NC,SNAME,CRC, CS,CU
@ -1788,22 +1788,22 @@
CHARACTER*1 UPLO, TRANSA CHARACTER*1 UPLO, TRANSA
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CU, CA CHARACTER*14 CRC, CU, CA
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
@ -1822,29 +1822,29 @@
CHARACTER*1 UPLO, TRANSA CHARACTER*1 UPLO, TRANSA
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CU, CA CHARACTER*14 CRC, CU, CA
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC WRITE(NOUT, FMT = 9994)N, K, ALPHA, LDA, BETA, LDC
9995 FORMAT( 1X, I6, ': ', A12,'(', 3( A14, ',') ) 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, ').' ) $ F4.1, ', A,', I3, ',', F4.1, ', C,', I3, ').' )
END END
* *
@ -2041,7 +2041,7 @@
IF( REWI ) IF( REWI )
$ REWIND NTRA $ REWIND NTRA
CALL CZSYR2K( IORDER, UPLO, TRANS, N, K, CALL CZSYR2K( IORDER, UPLO, TRANS, N, K,
$ ALPHA, AA, LDA, BB, LDB, BETA, $ ALPHA, AA, LDA, BB, LDB, BETA,
$ CC, LDC ) $ CC, LDC )
END IF END IF
* *
@ -2241,22 +2241,22 @@
CHARACTER*1 UPLO, TRANSA CHARACTER*1 UPLO, TRANSA
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CU, CA CHARACTER*14 CRC, CU, CA
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA
@ -2276,22 +2276,22 @@
CHARACTER*1 UPLO, TRANSA CHARACTER*1 UPLO, TRANSA
CHARACTER*12 SNAME CHARACTER*12 SNAME
CHARACTER*14 CRC, CU, CA CHARACTER*14 CRC, CU, CA
IF (UPLO.EQ.'U')THEN IF (UPLO.EQ.'U')THEN
CU = ' CblasUpper' CU = ' CblasUpper'
ELSE ELSE
CU = ' CblasLower' CU = ' CblasLower'
END IF END IF
IF (TRANSA.EQ.'N')THEN IF (TRANSA.EQ.'N')THEN
CA = ' CblasNoTrans' CA = ' CblasNoTrans'
ELSE IF (TRANSA.EQ.'T')THEN ELSE IF (TRANSA.EQ.'T')THEN
CA = ' CblasTrans' CA = ' CblasTrans'
ELSE ELSE
CA = 'CblasConjTrans' CA = 'CblasConjTrans'
END IF END IF
IF (IORDER.EQ.1)THEN IF (IORDER.EQ.1)THEN
CRC = ' CblasRowMajor' CRC = ' CblasRowMajor'
ELSE ELSE
CRC = ' CblasColMajor' CRC = ' CblasColMajor'
END IF END IF
WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA WRITE(NOUT, FMT = 9995)NC, SNAME, CRC, CU, CA

2130
driver/level2/Makefile
View File

File diff suppressed because it is too large Load Diff

4
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 #ifndef TRANS
AXPYU_K(length, 0, 0, AXPYU_K(length, 0, 0,
alpha * X[i], alpha * X[i],
a + start, 1, Y + start - offset_u, 1, NULL, 0); a + start, 1, Y + start - offset_u, 1, NULL, 0);
#else #else
Y[i] += alpha * DOTU_K(length, a + start, 1, X + start - offset_u, 1); Y[i] += alpha * DOTU_K(length, a + start, 1, X + start - offset_u, 1);
#endif #endif
offset_u --; offset_u --;
offset_l --; offset_l --;

32
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, args -> m,
#else #else
args -> n, args -> n,
#endif #endif
0, 0, ZERO, 0, 0, ZERO,
#ifdef COMPLEX #ifdef COMPLEX
ZERO, ZERO,
#endif #endif
y, 1, NULL, 0, NULL, 0); y, 1, NULL, 0, NULL, 0);
offset_u = ku - n_from; offset_u = ku - n_from;
offset_l = ku - n_from + args -> m; 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; x += COMPSIZE;
#endif #endif
y += COMPSIZE; y += COMPSIZE;
offset_u --; 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; int mode = BLAS_DOUBLE | BLAS_REAL;
#else #else
int mode = BLAS_SINGLE | BLAS_REAL; int mode = BLAS_SINGLE | BLAS_REAL;
#endif #endif
#else #else
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_COMPLEX; 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; int mode = BLAS_DOUBLE | BLAS_COMPLEX;
#else #else
int mode = BLAS_SINGLE | BLAS_COMPLEX; int mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #endif
#endif #endif
#endif #endif
args.m = m; args.m = m;
args.n = n; args.n = n;
args.a = (void *)a; args.a = (void *)a;
args.b = (void *)x; args.b = (void *)x;
args.c = (void *)buffer; args.c = (void *)buffer;
args.lda = lda; args.lda = lda;
args.ldb = incx; args.ldb = incx;
args.ldc = ku; args.ldc = ku;
args.ldd = kl; args.ldd = kl;
num_cpu = 0; num_cpu = 0;
range_n[0] = 0; range_n[0] = 0;
i = n; i = n;
while (i > 0){ while (i > 0){
width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); 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; if (i < width) width = i;
range_n[num_cpu + 1] = range_n[num_cpu] + width; range_n[num_cpu + 1] = range_n[num_cpu] + width;
#ifndef TRANSA #ifndef TRANSA
range_m[num_cpu] = num_cpu * ((m + 15) & ~15); range_m[num_cpu] = num_cpu * ((m + 15) & ~15);
#else #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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i -= width; i -= width;
} }
@ -254,12 +254,12 @@ int CNAME(BLASLONG m, BLASLONG n, BLASLONG ku, BLASLONG kl, FLOAT *alpha, FLOAT
#else #else
queue[0].sb = buffer + num_cpu * (((n + 255) & ~255) + 16) * COMPSIZE; queue[0].sb = buffer + num_cpu * (((n + 255) & ~255) + 16) * COMPSIZE;
#endif #endif
queue[num_cpu - 1].next = NULL; queue[num_cpu - 1].next = NULL;
exec_blas(num_cpu, queue); exec_blas(num_cpu, queue);
} }
for (i = 1; i < num_cpu; i ++) { for (i = 1; i < num_cpu; i ++) {
AXPYU_K( AXPYU_K(
#ifndef TRANSA #ifndef TRANSA

22
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), *((FLOAT *)args -> alpha + 1),
#endif #endif
a, lda, x, incx, y, incy, buffer); a, lda, x, incx, y, incy, buffer);
return 0; 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; int mode = BLAS_DOUBLE | BLAS_REAL;
#else #else
int mode = BLAS_SINGLE | BLAS_REAL; int mode = BLAS_SINGLE | BLAS_REAL;
#endif #endif
#else #else
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_COMPLEX; 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; int mode = BLAS_DOUBLE | BLAS_COMPLEX;
#else #else
int mode = BLAS_SINGLE | BLAS_COMPLEX; int mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #endif
#endif #endif
#endif #endif
args.m = m; args.m = m;
args.n = n; args.n = n;
args.a = (void *)a; args.a = (void *)a;
args.b = (void *)x; args.b = (void *)x;
args.c = (void *)y; args.c = (void *)y;
args.lda = lda; args.lda = lda;
args.ldb = incx; args.ldb = incx;
args.ldc = incy; args.ldc = incy;
@ -164,14 +164,14 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x
#endif #endif
num_cpu = 0; num_cpu = 0;
range[0] = 0; range[0] = 0;
#ifndef TRANSA #ifndef TRANSA
i = m; i = m;
#else #else
i = n; i = n;
#endif #endif
while (i > 0){ while (i > 0){
width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); 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; if (i < width) width = i;
range[num_cpu + 1] = range[num_cpu] + width; range[num_cpu + 1] = range[num_cpu] + width;
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = gemv_kernel; queue[num_cpu].routine = gemv_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i -= width; 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].sa = NULL;
queue[0].sb = buffer; queue[0].sb = buffer;
queue[num_cpu - 1].next = NULL; queue[num_cpu - 1].next = NULL;
exec_blas(num_cpu, queue); exec_blas(num_cpu, queue);
} }
return 0; return 0;
} }

28
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
#endif #endif
x, 1, a, 1, NULL, 0); x, 1, a, 1, NULL, 0);
y += incy * COMPSIZE; y += incy * COMPSIZE;
a += lda * 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; int mode = BLAS_DOUBLE | BLAS_REAL;
#else #else
int mode = BLAS_SINGLE | BLAS_REAL; int mode = BLAS_SINGLE | BLAS_REAL;
#endif #endif
#else #else
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_COMPLEX; 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; int mode = BLAS_DOUBLE | BLAS_COMPLEX;
#else #else
int mode = BLAS_SINGLE | BLAS_COMPLEX; int mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #endif
#endif #endif
#endif #endif
args.m = m; args.m = m;
args.n = n; args.n = n;
args.a = (void *)x; args.a = (void *)x;
args.b = (void *)y; args.b = (void *)y;
args.c = (void *)a; args.c = (void *)a;
args.lda = incx; args.lda = incx;
args.ldb = incy; args.ldb = incy;
args.ldc = lda; args.ldc = lda;
@ -160,18 +160,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT *alpha, FLOAT *x, BLASLONG incx, FLOAT *
#endif #endif
num_cpu = 0; num_cpu = 0;
range_n[0] = 0; range_n[0] = 0;
i = n; i = n;
while (i > 0){ while (i > 0){
width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu);
if (width < 4) width = 4; if (width < 4) width = 4;
if (i < width) width = i; if (i < width) width = i;
range_n[num_cpu + 1] = range_n[num_cpu] + width; range_n[num_cpu + 1] = range_n[num_cpu] + width;
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = ger_kernel; queue[num_cpu].routine = ger_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i -= width; i -= width;
} }
if (num_cpu) { if (num_cpu) {
queue[0].sa = NULL; queue[0].sa = NULL;
queue[0].sb = buffer; queue[0].sb = buffer;
queue[num_cpu - 1].next = NULL; queue[num_cpu - 1].next = NULL;
exec_blas(num_cpu, queue); exec_blas(num_cpu, queue);
} }
return 0; return 0;
} }

6
driver/level2/sbmv_k.c
View File

@ -72,7 +72,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha,
if (length > k) length = k; if (length > k) length = k;
AXPYU_K(length + 1, 0, 0, AXPYU_K(length + 1, 0, 0,
alpha * X[i], alpha * X[i],
a + k - length, 1, Y + i - length, 1, NULL, 0); a + k - length, 1, Y + i - length, 1, NULL, 0);
Y[i] += alpha * DOTU_K(length, a + k - length, 1, X + i - length, 1); Y[i] += alpha * DOTU_K(length, a + k - length, 1, X + i - length, 1);
#else #else
@ -80,11 +80,11 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT alpha,
if (n - i - 1 < k) length = n - i - 1; if (n - i - 1 < k) length = n - i - 1;
AXPYU_K(length + 1, 0, 0, AXPYU_K(length + 1, 0, 0,
alpha * X[i], alpha * X[i],
a, 1, Y + i, 1, NULL, 0); a, 1, Y + i, 1, NULL, 0);
Y[i] += alpha * DOTU_K(length, a + 1, 1, X + i + 1, 1); Y[i] += alpha * DOTU_K(length, a + 1, 1, X + i + 1, 1);
#endif #endif
a += lda; a += lda;
} }

80
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; n_to = n;
//Use y as each thread's n* COMPSIZE elements in sb buffer //Use y as each thread's n* COMPSIZE elements in sb buffer
y = buffer; y = buffer;
buffer += ((COMPSIZE * n + 1023) & ~1023); buffer += ((COMPSIZE * n + 1023) & ~1023);
if (range_m) { 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); buffer += ((COMPSIZE * n + 1023) & ~1023);
} }
SCAL_K(n, 0, 0, ZERO, SCAL_K(n, 0, 0, ZERO,
#ifdef COMPLEX #ifdef COMPLEX
ZERO, ZERO,
#endif #endif
y, 1, NULL, 0, NULL, 0); y, 1, NULL, 0, NULL, 0);
for (i = n_from; i < n_to; i++) { for (i = n_from; i < n_to; i++) {
#ifndef LOWER #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; int mode = BLAS_DOUBLE | BLAS_REAL;
#else #else
int mode = BLAS_SINGLE | BLAS_REAL; int mode = BLAS_SINGLE | BLAS_REAL;
#endif #endif
#else #else
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_COMPLEX; 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; int mode = BLAS_DOUBLE | BLAS_COMPLEX;
#else #else
int mode = BLAS_SINGLE | BLAS_COMPLEX; int mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #endif
#endif #endif
#endif #endif
args.n = n; args.n = n;
args.k = k; args.k = k;
args.a = (void *)a; args.a = (void *)a;
args.b = (void *)x; args.b = (void *)x;
args.c = (void *)buffer; args.c = (void *)buffer;
args.lda = lda; args.lda = lda;
args.ldb = incx; args.ldb = incx;
args.ldc = incy; args.ldc = incy;
dnum = (double)n * (double)n / (double)nthreads; dnum = (double)n * (double)n / (double)nthreads;
num_cpu = 0; num_cpu = 0;
if (n < 2 * k) { if (n < 2 * k) {
#ifndef LOWER #ifndef LOWER
range_m[MAX_CPU_NUMBER] = n; range_m[MAX_CPU_NUMBER] = n;
i = 0; i = 0;
while (i < n){ while (i < n){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(n - i); double di = (double)(n - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask;
} else { } else {
width = n - i; width = n - i;
} }
if (width < 16) width = 16; if (width < 16) width = 16;
if (width > n - i) width = n - i; if (width > n - i) width = n - i;
} else { } else {
width = n - i; width = n - i;
} }
range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; 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); range_n[num_cpu] = num_cpu * (((n + 15) & ~15) + 16);
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = sbmv_kernel; queue[num_cpu].routine = sbmv_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
#else #else
range_m[0] = 0; range_m[0] = 0;
i = 0; i = 0;
while (i < n){ while (i < n){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(n - i); double di = (double)(n - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask;
} else { } else {
width = n - i; width = n - i;
} }
if (width < 16) width = 16; if (width < 16) width = 16;
if (width > n - i) width = n - i; if (width > n - i) width = n - i;
} else { } else {
width = n - i; width = n - i;
} }
range_m[num_cpu + 1] = range_m[num_cpu] + width; range_m[num_cpu + 1] = range_m[num_cpu] + width;
range_n[num_cpu] = num_cpu * (((n + 15) & ~15) + 16); range_n[num_cpu] = num_cpu * (((n + 15) & ~15) + 16);
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = sbmv_kernel; queue[num_cpu].routine = sbmv_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
#endif #endif
} else { } else {
range_m[0] = 0; range_m[0] = 0;
i = n; i = n;
while (i > 0){ while (i > 0){
width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu); width = blas_quickdivide(i + nthreads - num_cpu - 1, nthreads - num_cpu);
if (width < 4) width = 4; if (width < 4) width = 4;
if (i < width) width = i; if (i < width) width = i;
range_m[num_cpu + 1] = range_m[num_cpu] + width; range_m[num_cpu + 1] = range_m[num_cpu] + width;
range_n[num_cpu] = num_cpu * ((n + 15) & ~15); range_n[num_cpu] = num_cpu * ((n + 15) & ~15);
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = sbmv_kernel; queue[num_cpu].routine = sbmv_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i -= width; 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].sa = NULL;
queue[0].sb = buffer; queue[0].sb = buffer;
queue[num_cpu - 1].next = NULL; queue[num_cpu - 1].next = NULL;
exec_blas(num_cpu, queue); exec_blas(num_cpu, queue);
} }
for (i = 1; i < num_cpu; i ++) { for (i = 1; i < num_cpu; i ++) {
AXPYU_K(n, 0, 0, AXPYU_K(n, 0, 0,
#ifndef COMPLEX #ifndef COMPLEX
@ -356,6 +356,6 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *alpha, FLOAT *a, BLASLONG lda, FLOAT *x
alpha[0], alpha[1], alpha[0], alpha[1],
#endif #endif
buffer, 1, y, incy, NULL, 0); buffer, 1, y, incy, NULL, 0);
return 0; return 0;
} }

2
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); 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); AXPYU_K(i + 1, 0, 0, alpha * X[i], a, 1, Y, 1, NULL, 0);
a += i + 1; a += i + 1;
#else #else
Y[i] += alpha * DOTU_K(m - i, a + i, 1, X + i, 1); 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], if (m - i > 1) AXPYU_K(m - i - 1, 0, 0, alpha * X[i],

78
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 #ifndef LOWER
SCAL_K(m_to, 0, 0, ZERO, SCAL_K(m_to, 0, 0, ZERO,
#ifdef COMPLEX #ifdef COMPLEX
ZERO, ZERO,
#endif #endif
y, 1, NULL, 0, NULL, 0); y, 1, NULL, 0, NULL, 0);
#else #else
SCAL_K(args -> m - m_from, 0, 0, ZERO, SCAL_K(args -> m - m_from, 0, 0, ZERO,
#ifdef COMPLEX #ifdef COMPLEX
ZERO, ZERO,
#endif #endif
y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0); y + m_from * COMPSIZE, 1, NULL, 0, NULL, 0);
#endif #endif
#ifndef LOWER #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, 1, y, 1, NULL, 0);
a += (i + 1) * COMPSIZE; a += (i + 1) * COMPSIZE;
#else #else
#if !defined(HEMV) && !defined(HEMVREV) #if !defined(HEMV) && !defined(HEMVREV)
result = MYDOT(args -> m - i , a + i * COMPSIZE, 1, x + i * COMPSIZE, 1); 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; int mode = BLAS_DOUBLE | BLAS_REAL;
#else #else
int mode = BLAS_SINGLE | BLAS_REAL; int mode = BLAS_SINGLE | BLAS_REAL;
#endif #endif
#else #else
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_COMPLEX; 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; int mode = BLAS_DOUBLE | BLAS_COMPLEX;
#else #else
int mode = BLAS_SINGLE | BLAS_COMPLEX; int mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #endif
#endif #endif
#endif #endif
args.m = m; args.m = m;
args.a = (void *)a; args.a = (void *)a;
args.b = (void *)x; args.b = (void *)x;
args.c = (void *)buffer; args.c = (void *)buffer;
args.ldb = incx; args.ldb = incx;
args.ldc = incy; args.ldc = incy;
dnum = (double)m * (double)m / (double)nthreads; dnum = (double)m * (double)m / (double)nthreads;
num_cpu = 0; num_cpu = 0;
#ifndef LOWER #ifndef LOWER
range_m[MAX_CPU_NUMBER] = m; range_m[MAX_CPU_NUMBER] = m;
i = 0; i = 0;
while (i < m){ while (i < m){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(m - i); double di = (double)(m - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; 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 < 16) width = 16;
if (width > m - i) width = m - i; if (width > m - i) width = m - i;
} else { } else {
width = m - i; width = m - i;
} }
range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; 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); range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16);
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = spmv_kernel; queue[num_cpu].routine = spmv_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
#else #else
range_m[0] = 0; range_m[0] = 0;
i = 0; i = 0;
while (i < m){ while (i < m){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(m - i); double di = (double)(m - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; 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 < 16) width = 16;
if (width > m - i) width = m - i; if (width > m - i) width = m - i;
} else { } else {
width = m - i; width = m - i;
} }
range_m[num_cpu + 1] = range_m[num_cpu] + width; range_m[num_cpu + 1] = range_m[num_cpu] + width;
range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16);
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = spmv_kernel; queue[num_cpu].routine = spmv_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
#endif #endif
if (num_cpu) { if (num_cpu) {
queue[0].sa = NULL; queue[0].sa = NULL;
queue[0].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE; queue[0].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE;
queue[num_cpu - 1].next = NULL; queue[num_cpu - 1].next = NULL;
exec_blas(num_cpu, queue); exec_blas(num_cpu, queue);
} }
for (i = 1; i < num_cpu; i ++) { for (i = 1; i < num_cpu; i ++) {
#ifndef LOWER #ifndef LOWER
AXPYU_K(range_m[MAX_CPU_NUMBER - i], 0, 0, ONE, AXPYU_K(range_m[MAX_CPU_NUMBER - i], 0, 0, ONE,
#ifdef COMPLEX #ifdef COMPLEX
ZERO, ZERO,
#endif #endif
buffer + range_n[i] * COMPSIZE, 1, buffer, 1, NULL, 0); buffer + range_n[i] * COMPSIZE, 1, buffer, 1, NULL, 0);
#else #else
AXPYU_K(m - range_m[i], 0, 0, ONE, AXPYU_K(m - range_m[i], 0, 0, ONE,
#ifdef COMPLEX #ifdef COMPLEX
ZERO, ZERO,
#endif #endif
buffer + (range_n[i] + range_m[i]) * COMPSIZE, 1, buffer + range_m[i] * COMPSIZE, 1, NULL, 0); buffer + (range_n[i] + range_m[i]) * COMPSIZE, 1, buffer + range_m[i] * COMPSIZE, 1, NULL, 0);
#endif #endif
} }
AXPYU_K(m, 0, 0, AXPYU_K(m, 0, 0,
#ifndef COMPLEX #ifndef COMPLEX
alpha, alpha,
@ -340,6 +340,6 @@ int CNAME(BLASLONG m, FLOAT *alpha, FLOAT *a, FLOAT *x, BLASLONG incx, FLOAT *y,
alpha[0], alpha[1], alpha[0], alpha[1],
#endif #endif
buffer, 1, y, incy, NULL, 0); buffer, 1, y, incy, NULL, 0);
return 0; return 0;
} }

2
driver/level2/spr2_k.c
View File

@ -40,7 +40,7 @@
#include <ctype.h> #include <ctype.h>
#include "common.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){ FLOAT *y, BLASLONG incy, FLOAT *a, FLOAT *buffer){
BLASLONG i; BLASLONG i;

64
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 #else
if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) {
#ifndef LOWER #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_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1],
alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1],
y, 1, a, 1, NULL, 0); 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)) { if ((y[i * COMPSIZE + 0] != ZERO) || (y[i * COMPSIZE + 1] != ZERO)) {
#ifndef LOWER #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_r * y[i * COMPSIZE + 0] - alpha_i * y[i * COMPSIZE + 1],
alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1], alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1],
x, 1, a, 1, NULL, 0); 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)) { if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) {
#ifndef HEMVREV #ifndef HEMVREV
#ifndef LOWER #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_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1],
- alpha_i * x[i * COMPSIZE + 0] - alpha_r * x[i * COMPSIZE + 1], - alpha_i * x[i * COMPSIZE + 0] - alpha_r * x[i * COMPSIZE + 1],
y, 1, a, 1, NULL, 0); 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 #endif
#else #else
#ifndef LOWER #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_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1],
alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1],
y, 1, a, 1, NULL, 0); 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)) { if ((y[i * COMPSIZE + 0] != ZERO) || (y[i * COMPSIZE + 1] != ZERO)) {
#ifndef HEMVREV #ifndef HEMVREV
#ifndef LOWER #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_r * y[i * COMPSIZE + 0] + alpha_i * y[i * COMPSIZE + 1],
alpha_i * y[i * COMPSIZE + 0] - alpha_r * y[i * COMPSIZE + 1], alpha_i * y[i * COMPSIZE + 0] - alpha_r * y[i * COMPSIZE + 1],
x, 1, a, 1, NULL, 0); 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 #endif
#else #else
#ifndef LOWER #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_r * y[i * COMPSIZE + 0] + alpha_i * y[i * COMPSIZE + 1],
- alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1], - alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1],
x, 1, a, 1, NULL, 0); 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; a[ 1] = ZERO;
#endif #endif
#endif #endif
#ifndef LOWER #ifndef LOWER
a += (i + 1) * COMPSIZE; a += (i + 1) * COMPSIZE;
#else #else
a += (args -> m - i) * COMPSIZE; a += (args -> m - i) * COMPSIZE;
#endif #endif
} }
return 0; 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; int mode = BLAS_DOUBLE | BLAS_REAL;
#else #else
int mode = BLAS_SINGLE | BLAS_REAL; int mode = BLAS_SINGLE | BLAS_REAL;
#endif #endif
#else #else
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_COMPLEX; 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; int mode = BLAS_DOUBLE | BLAS_COMPLEX;
#else #else
int mode = BLAS_SINGLE | BLAS_COMPLEX; int mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #endif
#endif #endif
#endif #endif
args.m = m; args.m = m;
args.a = (void *)x; args.a = (void *)x;
args.b = (void *)y; args.b = (void *)y;
args.c = (void *)a; args.c = (void *)a;
args.lda = incx; args.lda = incx;
args.ldb = incy; args.ldb = incy;
#ifndef COMPLEX #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; dnum = (double)m * (double)m / (double)nthreads;
num_cpu = 0; num_cpu = 0;
#ifndef LOWER #ifndef LOWER
range_m[MAX_CPU_NUMBER] = m; range_m[MAX_CPU_NUMBER] = m;
i = 0; i = 0;
while (i < m){ while (i < m){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(m - i); double di = (double)(m - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; 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 < 16) width = 16;
if (width > m - i) width = m - i; if (width > m - i) width = m - i;
} else { } else {
width = m - i; width = m - i;
} }
range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width;
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = syr_kernel; queue[num_cpu].routine = syr_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
#else #else
range_m[0] = 0; range_m[0] = 0;
i = 0; i = 0;
while (i < m){ while (i < m){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(m - i); double di = (double)(m - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; 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 < 16) width = 16;
if (width > m - i) width = m - i; if (width > m - i) width = m - i;
} else { } else {
width = m - i; width = m - i;
} }
range_m[num_cpu + 1] = range_m[num_cpu] + width; range_m[num_cpu + 1] = range_m[num_cpu] + width;
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = syr_kernel; queue[num_cpu].routine = syr_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
#endif #endif
if (num_cpu) { if (num_cpu) {
queue[0].sa = NULL; queue[0].sa = NULL;
queue[0].sb = buffer; queue[0].sb = buffer;
queue[num_cpu - 1].next = NULL; queue[num_cpu - 1].next = NULL;
exec_blas(num_cpu, queue); exec_blas(num_cpu, queue);
} }
return 0; return 0;
} }

2
driver/level2/spr_k.c
View File

@ -38,7 +38,7 @@
#include "common.h" #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){ FLOAT *x, BLASLONG incx, FLOAT *a, FLOAT *buffer){
BLASLONG i; BLASLONG i;

56
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 #else
if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) {
#ifndef LOWER #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_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1],
alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1],
x, 1, a, 1, NULL, 0); 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)) { if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) {
#ifndef HEMVREV #ifndef HEMVREV
#ifndef LOWER #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], alpha_r * x[i * COMPSIZE + 0], - alpha_r * x[i * COMPSIZE + 1],
x, 1, a, 1, NULL, 0); x, 1, a, 1, NULL, 0);
#else #else
@ -122,7 +122,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL
#endif #endif
#else #else
#ifndef LOWER #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], alpha_r * x[i * COMPSIZE + 0], alpha_r * x[i * COMPSIZE + 1],
x, 1, a, 1, NULL, 0); x, 1, a, 1, NULL, 0);
#else #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; a += (args -> m - i) * COMPSIZE;
#endif #endif
} }
return 0; 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; int mode = BLAS_DOUBLE | BLAS_REAL;
#else #else
int mode = BLAS_SINGLE | BLAS_REAL; int mode = BLAS_SINGLE | BLAS_REAL;
#endif #endif
#else #else
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_COMPLEX; 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; int mode = BLAS_DOUBLE | BLAS_COMPLEX;
#else #else
int mode = BLAS_SINGLE | BLAS_COMPLEX; int mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #endif
#endif #endif
#endif #endif
args.m = m; args.m = m;
args.a = (void *)x; args.a = (void *)x;
args.b = (void *)a; args.b = (void *)a;
args.lda = incx; args.lda = incx;
#if !defined(COMPLEX) || defined(HEMV) || defined(HEMVREV) #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; dnum = (double)m * (double)m / (double)nthreads;
num_cpu = 0; num_cpu = 0;
#ifndef LOWER #ifndef LOWER
range_m[MAX_CPU_NUMBER] = m; range_m[MAX_CPU_NUMBER] = m;
i = 0; i = 0;
while (i < m){ while (i < m){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(m - i); double di = (double)(m - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; 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 < 16) width = 16;
if (width > m - i) width = m - i; if (width > m - i) width = m - i;
} else { } else {
width = m - i; width = m - i;
} }
range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width;
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = syr_kernel; queue[num_cpu].routine = syr_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
#else #else
range_m[0] = 0; range_m[0] = 0;
i = 0; i = 0;
while (i < m){ while (i < m){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(m - i); double di = (double)(m - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; 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 < 16) width = 16;
if (width > m - i) width = m - i; if (width > m - i) width = m - i;
} else { } else {
width = m - i; width = m - i;
} }
range_m[num_cpu + 1] = range_m[num_cpu] + width; range_m[num_cpu + 1] = range_m[num_cpu] + width;
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = syr_kernel; queue[num_cpu].routine = syr_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
#endif #endif
if (num_cpu) { if (num_cpu) {
queue[0].sa = NULL; queue[0].sa = NULL;
queue[0].sb = buffer; queue[0].sb = buffer;
queue[num_cpu - 1].next = NULL; queue[num_cpu - 1].next = NULL;
exec_blas(num_cpu, queue); exec_blas(num_cpu, queue);
} }
return 0; return 0;
} }

76
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 #ifndef LOWER
SCAL_K(m_to, 0, 0, ZERO, SCAL_K(m_to, 0, 0, ZERO,
#ifdef COMPLEX #ifdef COMPLEX
ZERO, ZERO,
#endif #endif
y, 1, NULL, 0, NULL, 0); y, 1, NULL, 0, NULL, 0);
MYSYMV_U (m_to, m_to - m_from, ONE, MYSYMV_U (m_to, m_to - m_from, ONE,
#ifdef COMPLEX #ifdef COMPLEX
@ -92,11 +92,11 @@ static int symv_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, F
#else #else
SCAL_K(args -> m - m_from, 0, 0, ZERO, SCAL_K(args -> m - m_from, 0, 0, ZERO,
#ifdef COMPLEX #ifdef COMPLEX
ZERO, ZERO,
#endif #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, MYSYMV_L (args -> m - m_from, m_to - m_from, ONE,
#ifdef COMPLEX #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; int mode = BLAS_DOUBLE | BLAS_REAL;
#else #else
int mode = BLAS_SINGLE | BLAS_REAL; int mode = BLAS_SINGLE | BLAS_REAL;
#endif #endif
#else #else
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_COMPLEX; 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; int mode = BLAS_DOUBLE | BLAS_COMPLEX;
#else #else
int mode = BLAS_SINGLE | BLAS_COMPLEX; int mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #endif
#endif #endif
#endif #endif
args.m = m; args.m = m;
args.a = (void *)a; args.a = (void *)a;
args.b = (void *)x; args.b = (void *)x;
args.c = (void *)buffer; args.c = (void *)buffer;
args.lda = lda; args.lda = lda;
args.ldb = incx; args.ldb = incx;
args.ldc = incy; args.ldc = incy;
dnum = (double)m * (double)m / (double)nthreads; dnum = (double)m * (double)m / (double)nthreads;
num_cpu = 0; num_cpu = 0;
#ifndef LOWER #ifndef LOWER
range_m[0] = 0; range_m[0] = 0;
i = 0; i = 0;
while (i < m){ while (i < m){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)i; double di = (double)i;
width = ((BLASLONG)(sqrt(di * di + dnum) - di) + mask) & ~mask; width = ((BLASLONG)(sqrt(di * di + dnum) - di) + mask) & ~mask;
if (width < 4) width = 4; if (width < 4) width = 4;
if (width > m - i) width = m - i; if (width > m - i) width = m - i;
} else { } else {
width = m - i; width = m - i;
} }
range_m[num_cpu + 1] = range_m[num_cpu] + width; range_m[num_cpu + 1] = range_m[num_cpu] + width;
range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); 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].mode = mode;
queue[MAX_CPU_NUMBER - num_cpu - 1].routine = symv_kernel; queue[MAX_CPU_NUMBER - num_cpu - 1].routine = symv_kernel;
queue[MAX_CPU_NUMBER - num_cpu - 1].args = &args; 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].sa = NULL;
queue[MAX_CPU_NUMBER - num_cpu - 1].sb = NULL; queue[MAX_CPU_NUMBER - num_cpu - 1].sb = NULL;
queue[MAX_CPU_NUMBER - num_cpu - 1].next = &queue[MAX_CPU_NUMBER - num_cpu]; queue[MAX_CPU_NUMBER - num_cpu - 1].next = &queue[MAX_CPU_NUMBER - num_cpu];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
if (num_cpu) { if (num_cpu) {
queue[MAX_CPU_NUMBER - num_cpu].sa = NULL; 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 - num_cpu].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE;
queue[MAX_CPU_NUMBER - 1].next = NULL; queue[MAX_CPU_NUMBER - 1].next = NULL;
exec_blas(num_cpu, &queue[MAX_CPU_NUMBER - num_cpu]); exec_blas(num_cpu, &queue[MAX_CPU_NUMBER - num_cpu]);
} }
#else #else
range_m[0] = 0; range_m[0] = 0;
i = 0; i = 0;
while (i < m){ while (i < m){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(m - i); double di = (double)(m - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; 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 < 4) width = 4;
if (width > m - i) width = m - i; if (width > m - i) width = m - i;
} else { } else {
width = m - i; width = m - i;
} }
range_m[num_cpu + 1] = range_m[num_cpu] + width; range_m[num_cpu + 1] = range_m[num_cpu] + width;
range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16); range_n[num_cpu] = num_cpu * (((m + 15) & ~15) + 16);
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = symv_kernel; queue[num_cpu].routine = symv_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
if (num_cpu) { if (num_cpu) {
queue[0].sa = NULL; queue[0].sa = NULL;
queue[0].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE; queue[0].sb = buffer + num_cpu * (((m + 255) & ~255) + 16) * COMPSIZE;
queue[num_cpu - 1].next = NULL; queue[num_cpu - 1].next = NULL;
exec_blas(num_cpu, queue); exec_blas(num_cpu, queue);
} }
#endif #endif
#ifndef LOWER #ifndef LOWER
for (i = 0; i < num_cpu - 1; i ++) { for (i = 0; i < num_cpu - 1; i ++) {
AXPYU_K(range_m[i + 1], 0, 0, ONE, AXPYU_K(range_m[i + 1], 0, 0, ONE,
#ifdef COMPLEX #ifdef COMPLEX
ZERO, ZERO,
#endif #endif
buffer + range_n[i] * COMPSIZE, 1, buffer + range_n[num_cpu - 1] * COMPSIZE, 1, NULL, 0); buffer + range_n[i] * COMPSIZE, 1, buffer + range_n[num_cpu - 1] * COMPSIZE, 1, NULL, 0);
} }
AXPYU_K(m, 0, 0, AXPYU_K(m, 0, 0,
#ifndef COMPLEX #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); buffer + range_n[num_cpu - 1] * COMPSIZE, 1, y, incy, NULL, 0);
#else #else
for (i = 1; i < num_cpu; i ++) { for (i = 1; i < num_cpu; i ++) {
AXPYU_K(m - range_m[i], 0, 0, ONE, AXPYU_K(m - range_m[i], 0, 0, ONE,
#ifdef COMPLEX #ifdef COMPLEX
ZERO, ZERO,
#endif #endif
buffer + (range_n[i] + range_m[i]) * COMPSIZE, 1, buffer + range_m[i] * COMPSIZE, 1, NULL, 0); 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], alpha[0], alpha[1],
#endif #endif
buffer, 1, y, incy, NULL, 0); buffer, 1, y, incy, NULL, 0);
#endif #endif
return 0; return 0;
} }

2
driver/level2/syr2_k.c
View File

@ -40,7 +40,7 @@
#include <ctype.h> #include <ctype.h>
#include "common.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){ FLOAT *y, BLASLONG incy, FLOAT *a, BLASLONG lda, FLOAT *buffer){
BLASLONG i; BLASLONG i;

62
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 #else
if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) {
#ifndef LOWER #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_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1],
alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1],
y, 1, a, 1, NULL, 0); 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)) { if ((y[i * COMPSIZE + 0] != ZERO) || (y[i * COMPSIZE + 1] != ZERO)) {
#ifndef LOWER #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_r * y[i * COMPSIZE + 0] - alpha_i * y[i * COMPSIZE + 1],
alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1], alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1],
x, 1, a, 1, NULL, 0); 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)) { if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) {
#ifndef HERREV #ifndef HERREV
#ifndef LOWER #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_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1],
- alpha_i * x[i * COMPSIZE + 0] - alpha_r * x[i * COMPSIZE + 1], - alpha_i * x[i * COMPSIZE + 0] - alpha_r * x[i * COMPSIZE + 1],
y, 1, a, 1, NULL, 0); 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 #endif
#else #else
#ifndef LOWER #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_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1],
alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1],
y, 1, a, 1, NULL, 0); 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)) { if ((y[i * COMPSIZE + 0] != ZERO) || (y[i * COMPSIZE + 1] != ZERO)) {
#ifndef HERREV #ifndef HERREV
#ifndef LOWER #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_r * y[i * COMPSIZE + 0] + alpha_i * y[i * COMPSIZE + 1],
alpha_i * y[i * COMPSIZE + 0] - alpha_r * y[i * COMPSIZE + 1], alpha_i * y[i * COMPSIZE + 0] - alpha_r * y[i * COMPSIZE + 1],
x, 1, a, 1, NULL, 0); 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 #endif
#else #else
#ifndef LOWER #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_r * y[i * COMPSIZE + 0] + alpha_i * y[i * COMPSIZE + 1],
- alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1], - alpha_i * y[i * COMPSIZE + 0] + alpha_r * y[i * COMPSIZE + 1],
x, 1, a, 1, NULL, 0); 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; a += lda * COMPSIZE;
} }
return 0; 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; int mode = BLAS_DOUBLE | BLAS_REAL;
#else #else
int mode = BLAS_SINGLE | BLAS_REAL; int mode = BLAS_SINGLE | BLAS_REAL;
#endif #endif
#else #else
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_COMPLEX; 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; int mode = BLAS_DOUBLE | BLAS_COMPLEX;
#else #else
int mode = BLAS_SINGLE | BLAS_COMPLEX; int mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #endif
#endif #endif
#endif #endif
args.m = m; args.m = m;
args.a = (void *)x; args.a = (void *)x;
args.b = (void *)y; args.b = (void *)y;
args.c = (void *)a; args.c = (void *)a;
args.lda = incx; args.lda = incx;
args.ldb = incy; args.ldb = incy;
args.ldc = lda; 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; dnum = (double)m * (double)m / (double)nthreads;
num_cpu = 0; num_cpu = 0;
#ifndef LOWER #ifndef LOWER
range_m[MAX_CPU_NUMBER] = m; range_m[MAX_CPU_NUMBER] = m;
i = 0; i = 0;
while (i < m){ while (i < m){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(m - i); double di = (double)(m - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; 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 < 16) width = 16;
if (width > m - i) width = m - i; if (width > m - i) width = m - i;
} else { } else {
width = m - i; width = m - i;
} }
range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width;
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = syr_kernel; queue[num_cpu].routine = syr_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
#else #else
range_m[0] = 0; range_m[0] = 0;
i = 0; i = 0;
while (i < m){ while (i < m){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(m - i); double di = (double)(m - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; 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 < 16) width = 16;
if (width > m - i) width = m - i; if (width > m - i) width = m - i;
} else { } else {
width = m - i; width = m - i;
} }
range_m[num_cpu + 1] = range_m[num_cpu] + width; range_m[num_cpu + 1] = range_m[num_cpu] + width;
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = syr_kernel; queue[num_cpu].routine = syr_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
#endif #endif
if (num_cpu) { if (num_cpu) {
queue[0].sa = NULL; queue[0].sa = NULL;
queue[0].sb = buffer; queue[0].sb = buffer;
queue[num_cpu - 1].next = NULL; queue[num_cpu - 1].next = NULL;
exec_blas(num_cpu, queue); exec_blas(num_cpu, queue);
} }
return 0; return 0;
} }

2
driver/level2/syr_k.c
View File

@ -38,7 +38,7 @@
#include "common.h" #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){ FLOAT *x, BLASLONG incx, FLOAT *a, BLASLONG lda, FLOAT *buffer){
BLASLONG i; BLASLONG i;

56
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 #else
if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) { if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) {
#ifndef LOWER #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_r * x[i * COMPSIZE + 0] - alpha_i * x[i * COMPSIZE + 1],
alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1], alpha_i * x[i * COMPSIZE + 0] + alpha_r * x[i * COMPSIZE + 1],
x, 1, a, 1, NULL, 0); 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)) { if ((x[i * COMPSIZE + 0] != ZERO) || (x[i * COMPSIZE + 1] != ZERO)) {
#ifndef HERREV #ifndef HERREV
#ifndef LOWER #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], alpha_r * x[i * COMPSIZE + 0], -alpha_r * x[i * COMPSIZE + 1],
x, 1, a, 1, NULL, 0); x, 1, a, 1, NULL, 0);
#else #else
@ -121,7 +121,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL
#endif #endif
#else #else
#ifndef LOWER #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], alpha_r * x[i * COMPSIZE + 0], alpha_r * x[i * COMPSIZE + 1],
x, 1, a, 1, NULL, 0); x, 1, a, 1, NULL, 0);
#else #else
@ -137,7 +137,7 @@ static int syr_kernel(blas_arg_t *args, BLASLONG *range_m, BLASLONG *range_n, FL
a += lda * COMPSIZE; a += lda * COMPSIZE;
} }
return 0; 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; int mode = BLAS_DOUBLE | BLAS_REAL;
#else #else
int mode = BLAS_SINGLE | BLAS_REAL; int mode = BLAS_SINGLE | BLAS_REAL;
#endif #endif
#else #else
#ifdef XDOUBLE #ifdef XDOUBLE
int mode = BLAS_XDOUBLE | BLAS_COMPLEX; 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; int mode = BLAS_DOUBLE | BLAS_COMPLEX;
#else #else
int mode = BLAS_SINGLE | BLAS_COMPLEX; int mode = BLAS_SINGLE | BLAS_COMPLEX;
#endif #endif
#endif #endif
#endif #endif
args.m = m; args.m = m;
args.a = (void *)x; args.a = (void *)x;
args.b = (void *)a; args.b = (void *)a;
args.lda = incx; args.lda = incx;
args.ldb = lda; args.ldb = lda;
#if !defined(COMPLEX) || defined(HER) || defined(HERREV) #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; dnum = (double)m * (double)m / (double)nthreads;
num_cpu = 0; num_cpu = 0;
#ifndef LOWER #ifndef LOWER
range_m[MAX_CPU_NUMBER] = m; range_m[MAX_CPU_NUMBER] = m;
i = 0; i = 0;
while (i < m){ while (i < m){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(m - i); double di = (double)(m - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; 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 < 16) width = 16;
if (width > m - i) width = m - i; if (width > m - i) width = m - i;
} else { } else {
width = m - i; width = m - i;
} }
range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width; range_m[MAX_CPU_NUMBER - num_cpu - 1] = range_m[MAX_CPU_NUMBER - num_cpu] - width;
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = syr_kernel; queue[num_cpu].routine = syr_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
#else #else
range_m[0] = 0; range_m[0] = 0;
i = 0; i = 0;
while (i < m){ while (i < m){
if (nthreads - num_cpu > 1) { if (nthreads - num_cpu > 1) {
double di = (double)(m - i); double di = (double)(m - i);
if (di * di - dnum > 0) { if (di * di - dnum > 0) {
width = ((BLASLONG)(-sqrt(di * di - dnum) + di) + mask) & ~mask; 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 < 16) width = 16;
if (width > m - i) width = m - i; if (width > m - i) width = m - i;
} else { } else {
width = m - i; width = m - i;
} }
range_m[num_cpu + 1] = range_m[num_cpu] + width; range_m[num_cpu + 1] = range_m[num_cpu] + width;
queue[num_cpu].mode = mode; queue[num_cpu].mode = mode;
queue[num_cpu].routine = syr_kernel; queue[num_cpu].routine = syr_kernel;
queue[num_cpu].args = &args; 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].sa = NULL;
queue[num_cpu].sb = NULL; queue[num_cpu].sb = NULL;
queue[num_cpu].next = &queue[num_cpu + 1]; queue[num_cpu].next = &queue[num_cpu + 1];
num_cpu ++; num_cpu ++;
i += width; i += width;
} }
#endif #endif
if (num_cpu) { if (num_cpu) {
queue[0].sa = NULL; queue[0].sa = NULL;
queue[0].sb = buffer; queue[0].sb = buffer;
queue[num_cpu - 1].next = NULL; queue[num_cpu - 1].next = NULL;
exec_blas(num_cpu, queue); exec_blas(num_cpu, queue);
} }
return 0; return 0;
} }

8
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); gemvbuffer = (FLOAT *)(((BLASLONG)buffer + n * sizeof(FLOAT) + 4095) & ~4095);
COPY_K(n, b, incb, buffer, 1); COPY_K(n, b, incb, buffer, 1);
} }
a += (n - 1) * lda; a += (n - 1) * lda;
for (i = n - 1; i >= 0; i--) { 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) { if (length > 0) {
AXPYU_K(length, 0, 0, AXPYU_K(length, 0, 0,
B[i], B[i],
a + 1, 1, B + i + 1, 1, NULL, 0); a + 1, 1, B + i + 1, 1, NULL, 0);
} }
#endif #endif
@ -77,7 +77,7 @@ int CNAME(BLASLONG n, BLASLONG k, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG inc
B[i] *= a[k]; B[i] *= a[k];
#endif #endif
#endif #endif
#ifdef TRANSA #ifdef TRANSA
length = i; length = i;
if (length > k) length = k; 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; a -= lda;
} }
if (incb != 1) { if (incb != 1) {
COPY_K(n, buffer, 1, b, incb); COPY_K(n, buffer, 1, b, incb);
} }

Some files were not shown because too many files have changed in this diff Show More