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

[WIP] Update LAPACK to 3.9.0 (#2353) 

* Update make.inc entries for LAPACK 3.9.0

Reference-LAPACK PR 347 changed some variable names and relative paths

* Update LAPACK to 3.9.0

* Add new functions from LAPACK 3.9.0

* Add new functions from LAPACK 3.9.0

* Restore LOADER command 

as it makes it easier to specify pthread as needed

* Restore LOADER

* Restore EIG/LIN prefixes in cmdbase

* add binary path to lapack_testing.py call

* Restore OpenMP version check

* Restore OpenMP version check

* Restore fix for out-of-bounds array accesses

from #2096
This commit is contained in:
Martin Kroeker 2020-01-01 13:18:53 +01:00 committed by GitHub
parent 6c85cb1869
commit 375b1875c8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
812 changed files with 36421 additions and 12050 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
Makefile
View File

@ -247,21 +247,21 @@ prof_lapack : lapack_prebuild
lapack_prebuild :
ifeq ($(NOFORTRAN), $(filter 0,$(NOFORTRAN)))
-@echo "FORTRAN = $(FC)" > $(NETLIB_LAPACK_DIR)/make.inc
-@echo "OPTS = $(LAPACK_FFLAGS)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "FC = $(FC)" > $(NETLIB_LAPACK_DIR)/make.inc
-@echo "FFLAGS = $(LAPACK_FFLAGS)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "POPTS = $(LAPACK_FPFLAGS)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "NOOPT = -O0 $(LAPACK_NOOPT)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "FFLAGS_NOOPT = -O0 $(LAPACK_NOOPT)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "PNOOPT = $(LAPACK_FPFLAGS) -O0" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "LOADOPTS = $(FFLAGS) $(EXTRALIB)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "LDFLAGS = $(FFLAGS) $(EXTRALIB)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "CC = $(CC)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "override CFLAGS = $(LAPACK_CFLAGS)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "override ARCH = $(AR)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "ARCHFLAGS = $(ARFLAGS) -ru" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "AR = $(AR)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "ARFLAGS = $(ARFLAGS) -ru" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "RANLIB = $(RANLIB)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "LAPACKLIB = ../$(LIBNAME)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "TMGLIB = ../$(LIBNAME)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "LAPACKLIB = ../../$(LIBNAME)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "TMGLIB = ../../../$(LIBNAME)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "BLASLIB = ../../../$(LIBNAME)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "LAPACKELIB = ../$(LIBNAME)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "LAPACKELIB = ../../../$(LIBNAME)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "LAPACKLIB_P = ../$(LIBNAME_P)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "SUFFIX = $(SUFFIX)" >> $(NETLIB_LAPACK_DIR)/make.inc
-@echo "PSUFFIX = $(PSUFFIX)" >> $(NETLIB_LAPACK_DIR)/make.inc
@ -319,7 +319,7 @@ lapack-test :
ifneq ($(CROSS), 1)
( cd $(NETLIB_LAPACK_DIR)/INSTALL; make all; ./testlsame; ./testslamch; ./testdlamch; \
./testsecond; ./testdsecnd; ./testieee; ./testversion )
(cd $(NETLIB_LAPACK_DIR); ./lapack_testing.py -r )
(cd $(NETLIB_LAPACK_DIR); ./lapack_testing.py -r -b TESTING)
endif
lapack-runtest:

16
cmake/lapack.cmake
View File

@ -115,7 +115,9 @@ set(SLASRC
stplqt.f stplqt2.f stpmlqt.f
ssytrd_2stage.f ssytrd_sy2sb.f ssytrd_sb2st.F ssb2st_kernels.f
ssyevd_2stage.f ssyev_2stage.f ssyevx_2stage.f ssyevr_2stage.f
ssbev_2stage.f ssbevx_2stage.f ssbevd_2stage.f ssygv_2stage.f)
ssbev_2stage.f ssbevx_2stage.f ssbevd_2stage.f ssygv_2stage.f
scombssq.f sgesvdq.f slaorhr_col_getrfnp.f
slaorhr_col_getrfnp2.f sorgtsqr.f sorhr_col.f )
set(SXLASRC sgesvxx.f sgerfsx.f sla_gerfsx_extended.f sla_geamv.f
sla_gercond.f sla_gerpvgrw.f ssysvxx.f ssyrfsx.f
@ -210,7 +212,9 @@ set(CLASRC
ctplqt.f ctplqt2.f ctpmlqt.f
chetrd_2stage.f chetrd_he2hb.f chetrd_hb2st.F chb2st_kernels.f
cheevd_2stage.f cheev_2stage.f cheevx_2stage.f cheevr_2stage.f
chbev_2stage.f chbevx_2stage.f chbevd_2stage.f chegv_2stage.f)
chbev_2stage.f chbevx_2stage.f chbevd_2stage.f chegv_2stage.f
cgesvdq.f claunhr_col_getrfnp.f claunhr_col_getrfnp2.f
cungtsqr.f cunhr_col.f )
set(CXLASRC cgesvxx.f cgerfsx.f cla_gerfsx_extended.f cla_geamv.f
cla_gercond_c.f cla_gercond_x.f cla_gerpvgrw.f
@ -299,7 +303,9 @@ set(DLASRC
dtplqt.f dtplqt2.f dtpmlqt.f
dsytrd_2stage.f dsytrd_sy2sb.f dsytrd_sb2st.F dsb2st_kernels.f
dsyevd_2stage.f dsyev_2stage.f dsyevx_2stage.f dsyevr_2stage.f
dsbev_2stage.f dsbevx_2stage.f dsbevd_2stage.f dsygv_2stage.f)
dsbev_2stage.f dsbevx_2stage.f dsbevd_2stage.f dsygv_2stage.f
dcombssq.f dgesvdq.f dlaorhr_col_getrfnp.f
dlaorhr_col_getrfnp2.f dorgtsqr.f dorhr_col.f )
set(DXLASRC dgesvxx.f dgerfsx.f dla_gerfsx_extended.f dla_geamv.f
dla_gercond.f dla_gerpvgrw.f dsysvxx.f dsyrfsx.f
@ -398,7 +404,9 @@ set(ZLASRC
zgelq.f zlaswlq.f zlamswlq.f zgemlq.f
zhetrd_2stage.f zhetrd_he2hb.f zhetrd_hb2st.F zhb2st_kernels.f
zheevd_2stage.f zheev_2stage.f zheevx_2stage.f zheevr_2stage.f
zhbev_2stage.f zhbevx_2stage.f zhbevd_2stage.f zhegv_2stage.f)
zhbev_2stage.f zhbevx_2stage.f zhbevd_2stage.f zhegv_2stage.f
zgesvdq.f zlaunhr_col_getrfnp.f zlaunhr_col_getrfnp2.f
zungtsqr.f zunhr_col.f)
set(ZXLASRC zgesvxx.f zgerfsx.f zla_gerfsx_extended.f zla_geamv.f
zla_gercond_c.f zla_gercond_x.f zla_gerpvgrw.f zsysvxx.f zsyrfsx.f

6
cmake/lapacke.cmake
View File

@ -715,6 +715,8 @@ set(DSRC
lapacke_dgesv_work.c
lapacke_dgesvd.c
lapacke_dgesvd_work.c
lapacke_dgesvdq.c
lapacke_dgesvdq_work.c
lapacke_dgesvdx.c
lapacke_dgesvdx_work.c
lapacke_dgesvj.c
@ -1287,6 +1289,8 @@ set(SSRC
lapacke_sgesv_work.c
lapacke_sgesvd.c
lapacke_sgesvd_work.c
lapacke_sgesvdq.c
lapacke_sgesvdq_work.c
lapacke_sgesvdx.c
lapacke_sgesvdx_work.c
lapacke_sgesvj.c
@ -1853,6 +1857,8 @@ set(ZSRC
lapacke_zgesv_work.c
lapacke_zgesvd.c
lapacke_zgesvd_work.c
lapacke_zgesvdq.c
lapacke_zgesvdq_work.c
lapacke_zgesvdx.c
lapacke_zgesvdx_work.c
lapacke_zgesvj.c

31
exports/gensymbol
View File

@ -694,7 +694,19 @@
# functions added for lapack-3.8.0
ilaenv2stage
ilaenv2stage,
# functions added for lapack-3.9.0
cgesvdq,
cungtsqr,
dcombssq,
dgesvdq,
dorgtsqr,
scombssq,
sgesvdq,
sorgtsqr,
zgesvdq,
zungtsqr
);
@lapack_extendedprecision_objs = (
@ -3347,6 +3359,15 @@
LAPACKE_zsytrf_aa_2stage_work,
LAPACKE_zsytrs_aa_2stage,
LAPACKE_zsytrs_aa_2stage_work,
# new functions from 3.9.0
LAPACKE_dgesvdq,
LAPACKE_dgesvdq_work,
LAPACKE_sgesvdq,
LAPACKE_sgesvdq_work,
LAPACKE_zgesvdq,
LAPACKE_zgesvdq_work
);
#These function may need 2 underscores.
@ -3419,7 +3440,13 @@
dsytrf_aa_2stage, dsytrs_aa_2stage,
zhesv_aa_2stage, zhetrf_aa_2stage,
zhetrs_aa_2stage, zsysv_aa_2stage,
zsytrf_aa_2stage, zsytrs_aa_2stage
zsytrf_aa_2stage, zsytrs_aa_2stage,
# 3.9.0
claunhr_col_getrfnp, claunhr_col_getrfnp2, cunhr_col,
dlaorhr_col_getrfnp, dlaorhr_col_getrfnp2, dorhr_col,
slaorhr_col_getrfnp, slaorhr_col_getrfnp2, sorhr_col,
zlaunhr_col_getrfnp, zlaunhr_col_getrfnp2, zunhr_col
);

38
lapack-netlib/.appveyor.yml Normal file
View File

@ -0,0 +1,38 @@
image:
- Visual Studio 2017
configuration: Release
clone_depth: 3
matrix:
fast_finish: false
skip_commits:
# Add [av skip] to commit messages
message: /\[av skip\]/
cache:
- '%APPVEYOR_BUILD_FOLDER%\build'
environment:
global:
CONDA_INSTALL_LOCN: C:\\Miniconda36-x64
install:
- call %CONDA_INSTALL_LOCN%\Scripts\activate.bat
- conda config --add channels conda-forge --force
- conda install --yes --quiet flang jom
- call "C:\Program Files (x86)\Microsoft Visual Studio 14.0\VC\vcvarsall.bat" amd64
- set "LIB=%CONDA_INSTALL_LOCN%\Library\lib;%LIB%"
- set "CPATH=%CONDA_INSTALL_LOCN%\Library\include;%CPATH%"
before_build:
- ps: if (-Not (Test-Path .\build)) { mkdir build }
- cd build
- cmake -G "NMake Makefiles JOM" -DCMAKE_Fortran_COMPILER=flang -DCMAKE_BUILD_TYPE=Release -DBUILD_TESTING=ON ..
build_script:
- cmake --build .
test_script:
- ctest -j2

6
lapack-netlib/.gitignore vendored
View File

@ -35,3 +35,9 @@ LAPACKE/example/xexample*
# SED
SRC/*-e
LAPACKE/src/*-e
build*
# DOCS documentation
DOCS/man
DOCS/explore-html
output_err

47
lapack-netlib/.travis.yml
View File

@ -1,33 +1,32 @@
language: cpp
language: c
dist: xenial
group: travis_latest
git:
depth: 3
quiet: true
addons:
apt:
sources:
- george-edison55-precise-backports # cmake
packages:
- cmake
- cmake-data
- gfortran
os:
- linux
- osx
env:
- CMAKE_BUILD_TYPE=Release
- CMAKE_BUILD_TYPE=Coverage
install:
- if [[ "$TRAVIS_OS_NAME" == "osx" ]];
then
for pkg in gcc cmake; do
if brew list -1 | grep -q "^${pkg}\$"; then
brew outdated $pkg || brew upgrade $pkg;
else
brew install $pkg;
fi
done
fi
matrix:
include:
- os: linux
env: CMAKE_BUILD_TYPE=Release
- os: linux
env: CMAKE_BUILD_TYPE=Coverage
- os: osx
env: CMAKE_BUILD_TYPE=Release
before_install:
- brew update > /dev/null
- brew install gcc > /dev/null
- os: osx
env: CMAKE_BUILD_TYPE=Coverage
before_install:
- brew update > /dev/null
- brew install gcc > /dev/null
script:
- export PR=https://api.github.com/repos/$TRAVIS_REPO_SLUG/pulls/$TRAVIS_PULL_REQUEST

1
lapack-netlib/BLAS/CMakeLists.txt
View File

@ -6,4 +6,5 @@ configure_file(${CMAKE_CURRENT_SOURCE_DIR}/blas.pc.in ${CMAKE_CURRENT_BINARY_DIR
install(FILES
${CMAKE_CURRENT_BINARY_DIR}/blas.pc
DESTINATION ${PKG_CONFIG_DIR}
COMPONENT Development
)

7
lapack-netlib/BLAS/Makefile
View File

@ -1,13 +1,18 @@
include ../make.inc
TOPSRCDIR = ..
include $(TOPSRCDIR)/make.inc
.PHONY: all
all: blas
.PHONY: blas
blas:
$(MAKE) -C SRC
.PHONY: blas_testing
blas_testing: blas
$(MAKE) -C TESTING run
.PHONY: clean cleanobj cleanlib cleanexe cleantest
clean:
$(MAKE) -C SRC clean
$(MAKE) -C TESTING clean

21
lapack-netlib/BLAS/SRC/Makefile
View File

@ -1,5 +1,3 @@
include ../../make.inc
#######################################################################
# This is the makefile to create a library for the BLAS.
# The files are grouped as follows:
@ -55,6 +53,10 @@ include ../../make.inc
#
#######################################################################
TOPSRCDIR = ../..
include $(TOPSRCDIR)/make.inc
.PHONY: all
all: $(BLASLIB)
#---------------------------------------------------------
@ -138,33 +140,32 @@ ALLOBJ = $(SBLAS1) $(SBLAS2) $(SBLAS3) $(DBLAS1) $(DBLAS2) $(DBLAS3) \
$(ZBLAS2) $(ZBLAS3) $(ALLBLAS)
$(BLASLIB): $(ALLOBJ)
$(ARCH) $(ARCHFLAGS) $@ $^
$(AR) $(ARFLAGS) $@ $^
$(RANLIB) $@
.PHONY: single double complex complex16
single: $(SBLAS1) $(ALLBLAS) $(SBLAS2) $(SBLAS3)
$(ARCH) $(ARCHFLAGS) $(BLASLIB) $^
$(AR) $(ARFLAGS) $(BLASLIB) $^
$(RANLIB) $(BLASLIB)
double: $(DBLAS1) $(ALLBLAS) $(DBLAS2) $(DBLAS3)
$(ARCH) $(ARCHFLAGS) $(BLASLIB) $^
$(AR) $(ARFLAGS) $(BLASLIB) $^
$(RANLIB) $(BLASLIB)
complex: $(CBLAS1) $(CB1AUX) $(ALLBLAS) $(CBLAS2) $(CBLAS3)
$(ARCH) $(ARCHFLAGS) $(BLASLIB) $^
$(AR) $(ARFLAGS) $(BLASLIB) $^
$(RANLIB) $(BLASLIB)
complex16: $(ZBLAS1) $(ZB1AUX) $(ALLBLAS) $(ZBLAS2) $(ZBLAS3)
$(ARCH) $(ARCHFLAGS) $(BLASLIB) $^
$(AR) $(ARFLAGS) $(BLASLIB) $^
$(RANLIB) $(BLASLIB)
FRC:
@FRC=$(FRC)
.PHONY: clean cleanobj cleanlib
clean: cleanobj cleanlib
cleanobj:
rm -f *.o
cleanlib:
#rm -f $(BLASLIB) # May point to a system lib, e.g. -lblas
.f.o:
$(FORTRAN) $(OPTS) -c -o $@ $<

2
lapack-netlib/BLAS/SRC/icamax.f
View File

@ -43,7 +43,7 @@
*> \param[in] INCX
*> \verbatim
*> INCX is INTEGER
*> storage spacing between elements of SX
*> storage spacing between elements of CX
*> \endverbatim
*
* Authors:

2
lapack-netlib/BLAS/SRC/idamax.f
View File

@ -43,7 +43,7 @@
*> \param[in] INCX
*> \verbatim
*> INCX is INTEGER
*> storage spacing between elements of SX
*> storage spacing between elements of DX
*> \endverbatim
*
* Authors:

2
lapack-netlib/BLAS/SRC/izamax.f
View File

@ -43,7 +43,7 @@
*> \param[in] INCX
*> \verbatim
*> INCX is INTEGER
*> storage spacing between elements of SX
*> storage spacing between elements of ZX
*> \endverbatim
*
* Authors:

29
lapack-netlib/BLAS/SRC/meson.build Normal file
View File

@ -0,0 +1,29 @@
SBLAS1 = files('isamax.f', 'sasum.f', 'saxpy.f', 'scopy.f', 'sdot.f', 'snrm2.f', 'srot.f', 'srotg.f', 'sscal.f', 'sswap.f', 'sdsdot.f', 'srotmg.f', 'srotm.f')
CBLAS1 = files('scabs1.f', 'scasum.f', 'scnrm2.f', 'icamax.f', 'caxpy.f', 'ccopy.f', 'cdotc.f', 'cdotu.f', 'csscal.f', 'crotg.f', 'cscal.f', 'cswap.f', 'csrot.f')
DBLAS1 = files('idamax.f', 'dasum.f', 'daxpy.f', 'dcopy.f', 'ddot.f', 'dnrm2.f', 'drot.f', 'drotg.f', 'dscal.f', 'dsdot.f', 'dswap.f', 'drotmg.f', 'drotm.f')
ZBLAS1 = files('dcabs1.f', 'dzasum.f', 'dznrm2.f', 'izamax.f', 'zaxpy.f', 'zcopy.f', 'zdotc.f', 'zdotu.f', 'zdscal.f', 'zrotg.f', 'zscal.f', 'zswap.f', 'zdrot.f')
CB1AUX = files('isamax.f', 'sasum.f', 'saxpy.f', 'scopy.f', 'snrm2.f', 'sscal.f')
ZB1AUX = files('idamax.f', 'dasum.f', 'daxpy.f', 'dcopy.f', 'dnrm2.f', 'dscal.f')
ALLBLAS = files('lsame.f', 'xerbla.f', 'xerbla_array.f')
SBLAS2 = files('sgemv.f', 'sgbmv.f', 'ssymv.f', 'ssbmv.f', 'sspmv.f', 'strmv.f', 'stbmv.f', 'stpmv.f', 'strsv.f', 'stbsv.f', 'stpsv.f', 'sger.f', 'ssyr.f', 'sspr.f', 'ssyr2.f', 'sspr2.f')
CBLAS2 = files('cgemv.f', 'cgbmv.f', 'chemv.f', 'chbmv.f', 'chpmv.f', 'ctrmv.f', 'ctbmv.f', 'ctpmv.f', 'ctrsv.f', 'ctbsv.f', 'ctpsv.f', 'cgerc.f', 'cgeru.f', 'cher.f', 'chpr.f', 'cher2.f', 'chpr2.f')
DBLAS2 = files('dgemv.f', 'dgbmv.f', 'dsymv.f', 'dsbmv.f', 'dspmv.f', 'dtrmv.f', 'dtbmv.f', 'dtpmv.f', 'dtrsv.f', 'dtbsv.f', 'dtpsv.f', 'dger.f', 'dsyr.f', 'dspr.f', 'dsyr2.f', 'dspr2.f')
ZBLAS2 = files('zgemv.f', 'zgbmv.f', 'zhemv.f', 'zhbmv.f', 'zhpmv.f', 'ztrmv.f', 'ztbmv.f', 'ztpmv.f', 'ztrsv.f', 'ztbsv.f', 'ztpsv.f', 'zgerc.f', 'zgeru.f', 'zher.f', 'zhpr.f', 'zher2.f', 'zhpr2.f')
SBLAS3 = files('sgemm.f', 'ssymm.f', 'ssyrk.f', 'ssyr2k.f', 'strmm.f', 'strsm.f')
CBLAS3 = files('cgemm.f', 'csymm.f', 'csyrk.f', 'csyr2k.f', 'ctrmm.f', 'ctrsm.f', 'chemm.f', 'cherk.f', 'cher2k.f')
DBLAS3 = files('dgemm.f', 'dsymm.f', 'dsyrk.f', 'dsyr2k.f', 'dtrmm.f', 'dtrsm.f')
ZBLAS3 = files('zgemm.f', 'zsymm.f', 'zsyrk.f', 'zsyr2k.f', 'ztrmm.f', 'ztrsm.f', 'zhemm.f', 'zherk.f', 'zher2k.f')

146
lapack-netlib/BLAS/SRC/sdsdot.f
View File

@ -23,13 +23,13 @@
*>
*> \verbatim
*>
* Compute the inner product of two vectors with extended
* precision accumulation.
*
* Returns S.P. result with dot product accumulated in D.P.
* SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY),
* where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is
* defined in a similar way using INCY.
*> Compute the inner product of two vectors with extended
*> precision accumulation.
*>
*> Returns S.P. result with dot product accumulated in D.P.
*> SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY),
*> where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is
*> defined in a similar way using INCY.
*> \endverbatim
*
* Arguments:
@ -77,7 +77,14 @@
*> \author Lawson, C. L., (JPL), Hanson, R. J., (SNLA),
*> \author Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL)
*
*> \ingroup complex_blas_level1
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date November 2017
*
*> \ingroup single_blas_level1
*
*> \par Further Details:
* =====================
@ -102,65 +109,7 @@
*> 920501 Reformatted the REFERENCES section. (WRB)
*> 070118 Reformat to LAPACK coding style
*> \endverbatim
*
* =====================================================================
*
* .. Local Scalars ..
* DOUBLE PRECISION DSDOT
* INTEGER I,KX,KY,NS
* ..
* .. Intrinsic Functions ..
* INTRINSIC DBLE
* ..
* DSDOT = SB
* IF (N.LE.0) THEN
* SDSDOT = DSDOT
* RETURN
* END IF
* IF (INCX.EQ.INCY .AND. INCX.GT.0) THEN
*
* Code for equal and positive increments.
*
* NS = N*INCX
* DO I = 1,NS,INCX
* DSDOT = DSDOT + DBLE(SX(I))*DBLE(SY(I))
* END DO
* ELSE
*
* Code for unequal or nonpositive increments.
*
* KX = 1
* KY = 1
* IF (INCX.LT.0) KX = 1 + (1-N)*INCX
* IF (INCY.LT.0) KY = 1 + (1-N)*INCY
* DO I = 1,N
* DSDOT = DSDOT + DBLE(SX(KX))*DBLE(SY(KY))
* KX = KX + INCX
* KY = KY + INCY
* END DO
* END IF
* SDSDOT = DSDOT
* RETURN
* END
*
*> \par Purpose:
* =============
*>
*> \verbatim
*> \endverbatim
*
* Authors:
* ========
*
*> \author Univ. of Tennessee
*> \author Univ. of California Berkeley
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date November 2017
*
*> \ingroup single_blas_level1
*
* =====================================================================
REAL FUNCTION SDSDOT(N,SB,SX,INCX,SY,INCY)
*
@ -175,71 +124,6 @@
* ..
* .. Array Arguments ..
REAL SX(*),SY(*)
* ..
*
* PURPOSE
* =======
*
* Compute the inner product of two vectors with extended
* precision accumulation.
*
* Returns S.P. result with dot product accumulated in D.P.
* SDSDOT = SB + sum for I = 0 to N-1 of SX(LX+I*INCX)*SY(LY+I*INCY),
* where LX = 1 if INCX .GE. 0, else LX = 1+(1-N)*INCX, and LY is
* defined in a similar way using INCY.
*
* AUTHOR
* ======
* Lawson, C. L., (JPL), Hanson, R. J., (SNLA),
* Kincaid, D. R., (U. of Texas), Krogh, F. T., (JPL)
*
* ARGUMENTS
* =========
*
* N (input) INTEGER
* number of elements in input vector(s)
*
* SB (input) REAL
* single precision scalar to be added to inner product
*
* SX (input) REAL array, dimension (N)
* single precision vector with N elements
*
* INCX (input) INTEGER
* storage spacing between elements of SX
*
* SY (input) REAL array, dimension (N)
* single precision vector with N elements
*
* INCY (input) INTEGER
* storage spacing between elements of SY
*
* SDSDOT (output) REAL
* single precision dot product (SB if N .LE. 0)
*
* Further Details
* ===============
*
* REFERENCES
*
* C. L. Lawson, R. J. Hanson, D. R. Kincaid and F. T.
* Krogh, Basic linear algebra subprograms for Fortran
* usage, Algorithm No. 539, Transactions on Mathematical
* Software 5, 3 (September 1979), pp. 308-323.
*
* REVISION HISTORY (YYMMDD)
*
* 791001 DATE WRITTEN
* 890531 Changed all specific intrinsics to generic. (WRB)
* 890831 Modified array declarations. (WRB)
* 890831 REVISION DATE from Version 3.2
* 891214 Prologue converted to Version 4.0 format. (BAB)
* 920310 Corrected definition of LX in DESCRIPTION. (WRB)
* 920501 Reformatted the REFERENCES section. (WRB)
* 070118 Reformat to LAPACK coding style
*
* =====================================================================
*
* .. Local Scalars ..
DOUBLE PRECISION DSDOT
INTEGER I,KX,KY,NS

33
lapack-netlib/BLAS/TESTING/Makefile
View File

@ -1,5 +1,7 @@
include ../../make.inc
TOPSRCDIR = ../..
include $(TOPSRCDIR)/make.inc
.PHONY: all single double complex complex16
all: single double complex complex16
single: xblat1s xblat2s xblat3s
double: xblat1d xblat2d xblat3d
@ -7,32 +9,33 @@ complex: xblat1c xblat2c xblat3c
complex16: xblat1z xblat2z xblat3z
xblat1s: sblat1.o $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xblat1d: dblat1.o $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xblat1c: cblat1.o $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xblat1z: zblat1.o $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xblat2s: sblat2.o $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xblat2d: dblat2.o $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xblat2c: cblat2.o $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xblat2z: zblat2.o $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xblat3s: sblat3.o $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xblat3d: dblat3.o $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xblat3c: cblat3.o $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xblat3z: zblat3.o $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
.PHONY: run
run: all
./xblat1s > sblat1.out
./xblat1d > dblat1.out
@ -47,6 +50,7 @@ run: all
./xblat3c < cblat3.in
./xblat3z < zblat3.in
.PHONY: clean cleanobj cleanexe cleantest
clean: cleanobj cleanexe cleantest
cleanobj:
rm -f *.o
@ -54,6 +58,3 @@ cleanexe:
rm -f xblat*
cleantest:
rm -f *.out core
.f.o:
$(FORTRAN) $(OPTS) -c -o $@ $<

2
lapack-netlib/BLAS/TESTING/cblat1.f
View File

@ -619,7 +619,7 @@
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
* ************************* STEST1 *****************************
*
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
*

2
lapack-netlib/BLAS/TESTING/dblat1.f
View File

@ -991,7 +991,7 @@
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
* ************************* STEST1 *****************************
*
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
*

2
lapack-netlib/BLAS/TESTING/sblat1.f
View File

@ -946,7 +946,7 @@
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
* ************************* STEST1 *****************************
*
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
*

2
lapack-netlib/BLAS/TESTING/zblat1.f
View File

@ -619,7 +619,7 @@
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
* ************************* STEST1 *****************************
*
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
*

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

@ -14,6 +14,8 @@ if(NOT FortranCInterface_GLOBAL_FOUND OR NOT FortranCInterface_MODULE_FOUND)
message(WARNING "Reverting to pre-defined include/lapacke_mangling.h")
configure_file(include/lapacke_mangling_with_flags.h.in
${LAPACK_BINARY_DIR}/include/lapacke_mangling.h)
configure_file(include/cblas_mangling_with_flags.h.in
${LAPACK_BINARY_DIR}/include/cblas_mangling.h)
endif()
include_directories(include ${LAPACK_BINARY_DIR}/include)
@ -28,7 +30,10 @@ endforeach()
endmacro()
append_subdir_files(CBLAS_INCLUDE "include")
install(FILES ${CBLAS_INCLUDE} ${LAPACK_BINARY_DIR}/include/cblas_mangling.h DESTINATION ${CMAKE_INSTALL_INCLUDEDIR})
install(FILES ${CBLAS_INCLUDE} ${LAPACK_BINARY_DIR}/include/cblas_mangling.h
DESTINATION ${CMAKE_INSTALL_INCLUDEDIR}
COMPONENT Development
)
# --------------------------------------------------
if(BUILD_TESTING)
@ -45,7 +50,9 @@ endif()
set(_cblas_config_install_guard_target "")
if(ALL_TARGETS)
install(EXPORT cblas-targets
DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/cblas-${LAPACK_VERSION})
DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/cblas-${LAPACK_VERSION}
COMPONENT Development
)
# Choose one of the cblas targets to use as a guard for
# cblas-config.cmake to load targets from the install tree.
list(GET ALL_TARGETS 0 _cblas_config_install_guard_target)
@ -82,4 +89,6 @@ install(FILES
)
#install(EXPORT cblas-targets
# DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/cblas-${LAPACK_VERSION})
# DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/cblas-${LAPACK_VERSION}
# COMPONENT Development
# )

10
lapack-netlib/CBLAS/Makefile
View File

@ -1,19 +1,25 @@
include ../make.inc
TOPSRCDIR = ..
include $(TOPSRCDIR)/make.inc
.PHONY: all
all: cblas
.PHONY: cblas
cblas: include/cblas_mangling.h
$(MAKE) -C src
include/cblas_mangling.h: include/cblas_mangling_with_flags.h.in
cp $< $@
cp include/cblas_mangling_with_flags.h.in $@
.PHONY: cblas_testing
cblas_testing: cblas
$(MAKE) -C testing run
.PHONY: cblas_example
cblas_example: cblas
$(MAKE) -C examples
.PHONY: clean cleanobj cleanlib cleanexe cleantest
clean:
$(MAKE) -C src clean
$(MAKE) -C testing clean

16
lapack-netlib/CBLAS/examples/Makefile
View File

@ -1,17 +1,21 @@
include ../../make.inc
TOPSRCDIR = ../..
include $(TOPSRCDIR)/make.inc
.SUFFIXES: .c .o
.c.o:
$(CC) $(CFLAGS) -I../include -c -o $@ $<
.PHONY: all
all: cblas_ex1 cblas_ex2
cblas_ex1: cblas_example1.o $(CBLASLIB) $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
cblas_ex2: cblas_example2.o $(CBLASLIB) $(BLASLIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
.PHONY: clean cleanobj cleanexe
clean: cleanobj cleanexe
cleanobj:
rm -f *.o
cleanexe:
rm -f cblas_ex1 cblas_ex2
.c.o:
$(CC) $(CFLAGS) -I../include -c -o $@ $<

2
lapack-netlib/CBLAS/examples/cblas_example1.c
View File

@ -47,7 +47,7 @@ int main ( )
a[m*3+1] = 6;
a[m*3+2] = 7;
a[m*3+3] = 8;
/* The elemetns of x and y */
/* The elements of x and y */
x[0] = 1;
x[1] = 2;
x[2] = 1;

50
lapack-netlib/CBLAS/src/Makefile
View File

@ -1,7 +1,13 @@
# This Makefile compiles the CBLAS routines
include ../../make.inc
TOPSRCDIR = ../..
include $(TOPSRCDIR)/make.inc
.SUFFIXES: .c .o
.c.o:
$(CC) $(CFLAGS) -I../include -c -o $@ $<
.PHONY: all
all: $(CBLASLIB)
# Error handling routines for level 2 & 3
@ -43,24 +49,25 @@ zlev1 = cblas_zswap.o cblas_zscal.o cblas_zdscal.o cblas_zcopy.o \
# Common files for level 1 single precision
sclev1 = cblas_scasum.o scasumsub.o cblas_scnrm2.o scnrm2sub.o
.PHONY: slib1 dlib1 clib1 zlib1
# Single precision real
slib1: $(slev1) $(sclev1)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
# Double precision real
dlib1: $(dlev1)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
# Single precision complex
clib1: $(clev1) $(sclev1)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
# Double precision complex
zlib1: $(zlev1)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
#
@ -95,24 +102,25 @@ zlev2 = cblas_zgemv.o cblas_zgbmv.o cblas_zhemv.o cblas_zhbmv.o cblas_zhpmv.o \
cblas_ztpsv.o cblas_zgeru.o cblas_zgerc.o cblas_zher.o cblas_zher2.o \
cblas_zhpr.o cblas_zhpr2.o
.PHONY: slib2 dlib2 clib2 zlib2
# Single precision real
slib2: $(slev2) $(errhand)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
# Double precision real
dlib2: $(dlev2) $(errhand)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
# Single precision complex
clib2: $(clev2) $(errhand)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
# Double precision complex
zlib2: $(zlev2) $(errhand)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
#
@ -141,24 +149,25 @@ zlev3 = cblas_zgemm.o cblas_zsymm.o cblas_zhemm.o cblas_zherk.o \
cblas_zher2k.o cblas_ztrmm.o cblas_ztrsm.o cblas_zsyrk.o \
cblas_zsyr2k.o
.PHONY: slib3 dlib3 clib3 zlib3
# Single precision real
slib3: $(slev3) $(errhand)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
# Double precision real
dlib3: $(dlev3) $(errhand)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
# Single precision complex
clib3: $(clev3) $(errhand)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
# Double precision complex
zlib3: $(zlev3) $(errhand)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
@ -166,36 +175,33 @@ alev1 = $(slev1) $(dlev1) $(clev1) $(zlev1) $(sclev1)
alev2 = $(slev2) $(dlev2) $(clev2) $(zlev2)
alev3 = $(slev3) $(dlev3) $(clev3) $(zlev3)
.PHONY: all1 all2 all3
# All level 1
all1: $(alev1)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
# All level 2
all2: $(alev2) $(errhand)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
# All level 3
all3: $(alev3) $(errhand)
$(ARCH) $(ARCHFLAGS) $(CBLASLIB) $^
$(AR) $(ARFLAGS) $(CBLASLIB) $^
$(RANLIB) $(CBLASLIB)
# All levels and precisions
$(CBLASLIB): $(alev1) $(alev2) $(alev3) $(errhand)
$(ARCH) $(ARCHFLAGS) $@ $^
$(AR) $(ARFLAGS) $@ $^
$(RANLIB) $@
FRC:
@FRC=$(FRC)
.PHONY: clean cleanobj cleanlib
clean: cleanobj cleanlib
cleanobj:
rm -f *.o
cleanlib:
rm -f $(CBLASLIB)
.c.o:
$(CC) $(CFLAGS) -I../include -c -o $@ $<
.f.o:
$(FORTRAN) $(OPTS) -c -o $@ $<

2
lapack-netlib/CBLAS/src/cblas_sgemm.c
View File

@ -91,7 +91,7 @@ void cblas_sgemm(const CBLAS_LAYOUT layout, const CBLAS_TRANSPOSE TransA,
else
{
cblas_xerbla(2, "cblas_sgemm",
"Illegal TransA setting, %d\n", TransA);
"Illegal TransB setting, %d\n", TransB);
CBLAS_CallFromC = 0;
RowMajorStrg = 0;
return;

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

@ -2,7 +2,12 @@
# The Makefile compiles c wrappers and testers for CBLAS.
#
include ../../make.inc
TOPSRCDIR = ../..
include $(TOPSRCDIR)/make.inc
.SUFFIXES: .c .o
.c.o:
$(CC) $(CFLAGS) -I../include -c -o $@ $<
# Archive files necessary to compile
LIB = $(CBLASLIB) $(BLASLIB)
@ -27,6 +32,7 @@ ztestl1o = c_zblas1.o
ztestl2o = c_zblas2.o c_z2chke.o auxiliary.o c_xerbla.o
ztestl3o = c_zblas3.o c_z3chke.o auxiliary.o c_xerbla.o
.PHONY: all all1 all2 all3
all: all1 all2 all3
all1: xscblat1 xdcblat1 xccblat1 xzcblat1
all2: xscblat2 xdcblat2 xccblat2 xzcblat2
@ -38,37 +44,38 @@ all3: xscblat3 xdcblat3 xccblat3 xzcblat3
# Single real
xscblat1: c_sblat1.o $(stestl1o) $(LIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xscblat2: c_sblat2.o $(stestl2o) $(LIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xscblat3: c_sblat3.o $(stestl3o) $(LIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
# Double real
xdcblat1: c_dblat1.o $(dtestl1o) $(LIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xdcblat2: c_dblat2.o $(dtestl2o) $(LIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xdcblat3: c_dblat3.o $(dtestl3o) $(LIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
# Single complex
xccblat1: c_cblat1.o $(ctestl1o) $(LIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xccblat2: c_cblat2.o $(ctestl2o) $(LIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xccblat3: c_cblat3.o $(ctestl3o) $(LIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
# Double complex
xzcblat1: c_zblat1.o $(ztestl1o) $(LIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xzcblat2: c_zblat2.o $(ztestl2o) $(LIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
xzcblat3: c_zblat3.o $(ztestl3o) $(LIB)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
# RUN TESTS
.PHONY: run
run: all
@echo "--> TESTING CBLAS 1 - SINGLE PRECISION REAL <--"
@./xscblat1 > stest1.out
@ -95,6 +102,7 @@ run: all
@echo "--> TESTING CBLAS 3 - DOUBLE PRECISION COMPLEX <--"
@./xzcblat3 < zin3 > ztest3.out
.PHONY: clean cleanobj cleanexe cleantest
clean: cleanobj cleanexe cleantest
cleanobj:
rm -f *.o
@ -102,9 +110,3 @@ cleanexe:
rm -f x*
cleantest:
rm -f *.out core
.SUFFIXES: .o .f .c
.c.o:
$(CC) $(CFLAGS) -I../include -c -o $@ $<
.f.o:
$(FORTRAN) $(OPTS) -c -o $@ $<

2
lapack-netlib/CBLAS/testing/c_cblat1.f
View File

@ -577,7 +577,7 @@
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
* ************************* STEST1 *****************************
*
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
*

2
lapack-netlib/CBLAS/testing/c_dblat1.f
View File

@ -653,7 +653,7 @@
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
* ************************* STEST1 *****************************
*
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
*

2
lapack-netlib/CBLAS/testing/c_sblat1.f
View File

@ -653,7 +653,7 @@
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
* ************************* STEST1 *****************************
*
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
*

2
lapack-netlib/CBLAS/testing/c_zblat1.f
View File

@ -577,7 +577,7 @@
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
* ************************* STEST1 *****************************
*
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
*

2
lapack-netlib/CMAKE/CheckLAPACKCompilerFlags.cmake
View File

@ -1,4 +1,4 @@
# This module checks against various known compilers and thier respective
# This module checks against various known compilers and their respective
# flags to determine any specific flags needing to be set.
#
# 1. If FPE traps are enabled either abort or disable them

2
lapack-netlib/CMAKE/FindGcov.cmake
View File

@ -20,7 +20,7 @@ set(CMAKE_REQUIRED_QUIET ${codecov_FIND_QUIETLY})
get_property(ENABLED_LANGUAGES GLOBAL PROPERTY ENABLED_LANGUAGES)
foreach (LANG ${ENABLED_LANGUAGES})
# Gcov evaluation is dependend on the used compiler. Check gcov support for
# Gcov evaluation is dependent on the used compiler. Check gcov support for
# each compiler that is used. If gcov binary was already found for this
# compiler, do not try to find it again.
if(NOT GCOV_${CMAKE_${LANG}_COMPILER_ID}_BIN)

2
lapack-netlib/CMAKE/Findcodecov.cmake
View File

@ -42,7 +42,7 @@ set(CMAKE_REQUIRED_QUIET ${codecov_FIND_QUIETLY})
get_property(ENABLED_LANGUAGES GLOBAL PROPERTY ENABLED_LANGUAGES)
foreach (LANG ${ENABLED_LANGUAGES})
# Coverage flags are not dependend on language, but the used compiler. So
# Coverage flags are not dependent on language, but the used compiler. So
# instead of searching flags foreach language, search flags foreach compiler
# used.
set(COMPILER ${CMAKE_${LANG}_COMPILER_ID})

2
lapack-netlib/CMAKE/FortranMangling.cmake
View File

@ -24,7 +24,7 @@ message(STATUS "=========")
set(F77_OUTPUT_EXE "/Fe" CACHE INTERNAL
"Fortran compiler option for setting executable file name.")
else()
# in other case, let user specify their fortran configrations.
# in other case, let user specify their fortran configurations.
set(F77_OPTION_COMPILE "-c" CACHE STRING
"Fortran compiler option for compiling without linking.")
set(F77_OUTPUT_OBJ "-o" CACHE STRING

4
lapack-netlib/CMAKE/lapack-config-build.cmake.in
View File

@ -5,6 +5,10 @@ if(_LAPACK_TARGET AND NOT TARGET "${_LAPACK_TARGET}")
endif()
unset(_LAPACK_TARGET)
# Hint for project building against lapack
set(LAPACK_Fortran_COMPILER_ID "@CMAKE_Fortran_COMPILER_ID@")
# Report the blas and lapack raw or imported libraries.
set(LAPACK_blas_LIBRARIES "@BLAS_LIBRARIES@")
set(LAPACK_lapack_LIBRARIES "@LAPACK_LIBRARIES@")
set(LAPACK_LIBRARIES ${LAPACK_blas_LIBRARIES} ${LAPACK_lapack_LIBRARIES})

4
lapack-netlib/CMAKE/lapack-config-install.cmake.in
View File

@ -8,8 +8,12 @@ if(_LAPACK_TARGET AND NOT TARGET "${_LAPACK_TARGET}")
endif()
unset(_LAPACK_TARGET)
# Hint for project building against lapack
set(LAPACK_Fortran_COMPILER_ID "@CMAKE_Fortran_COMPILER_ID@")
# Report the blas and lapack raw or imported libraries.
set(LAPACK_blas_LIBRARIES "@BLAS_LIBRARIES@")
set(LAPACK_lapack_LIBRARIES "@LAPACK_LIBRARIES@")
set(LAPACK_LIBRARIES ${LAPACK_blas_LIBRARIES} ${LAPACK_lapack_LIBRARIES})
unset(_LAPACK_SELF_DIR)

99
lapack-netlib/CMakeLists.txt
View File

@ -3,7 +3,7 @@ cmake_minimum_required(VERSION 2.8.12)
project(LAPACK Fortran C)
set(LAPACK_MAJOR_VERSION 3)
set(LAPACK_MINOR_VERSION 8)
set(LAPACK_MINOR_VERSION 9)
set(LAPACK_PATCH_VERSION 0)
set(
LAPACK_VERSION
@ -13,6 +13,9 @@ set(
# Add the CMake directory for custon CMake modules
set(CMAKE_MODULE_PATH "${LAPACK_SOURCE_DIR}/CMAKE" ${CMAKE_MODULE_PATH})
# Export all symbols on Windows when building shared libraries
SET(CMAKE_WINDOWS_EXPORT_ALL_SYMBOLS TRUE)
# Set a default build type if none was specified
if(NOT CMAKE_BUILD_TYPE AND NOT CMAKE_CONFIGURATION_TYPES)
message(STATUS "Setting build type to 'Release' as none was specified.")
@ -21,8 +24,19 @@ if(NOT CMAKE_BUILD_TYPE AND NOT CMAKE_CONFIGURATION_TYPES)
set_property(CACHE CMAKE_BUILD_TYPE PROPERTY STRINGS "Debug" "Release" "MinSizeRel" "RelWithDebInfo" "Coverage")
endif()
string(TOUPPER ${CMAKE_BUILD_TYPE} CMAKE_BUILD_TYPE_UPPER)
if(${CMAKE_BUILD_TYPE_UPPER} STREQUAL "COVERAGE")
# Coverage
set(_is_coverage_build 0)
set(_msg "Checking if build type is 'Coverage'")
message(STATUS "${_msg}")
if(NOT CMAKE_CONFIGURATION_TYPES)
string(TOLOWER ${CMAKE_BUILD_TYPE} _build_type_lc)
if(${_build_type_lc} STREQUAL "coverage")
set(_is_coverage_build 1)
endif()
endif()
message(STATUS "${_msg}: ${_is_coverage_build}")
if(_is_coverage_build)
message(STATUS "Adding coverage")
find_package(codecov)
endif()
@ -58,18 +72,18 @@ include(PreventInSourceBuilds)
include(PreventInBuildInstalls)
if(UNIX)
if("${CMAKE_Fortran_COMPILER}" MATCHES "ifort")
set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -fp-model strict")
if(CMAKE_Fortran_COMPILER_ID STREQUAL Intel)
list(APPEND CMAKE_Fortran_FLAGS "-fp-model strict")
endif()
if("${CMAKE_Fortran_COMPILER}" MATCHES "xlf")
set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -qnosave -qstrict=none")
if(CMAKE_Fortran_COMPILER_ID STREQUAL XL)
list(APPEND CMAKE_Fortran_FLAGS "-qnosave -qstrict=none")
endif()
# Delete libmtsk in linking sequence for Sun/Oracle Fortran Compiler.
# This library is not present in the Sun package SolarisStudio12.3-linux-x86-bin
string(REPLACE \;mtsk\; \; CMAKE_Fortran_IMPLICIT_LINK_LIBRARIES "${CMAKE_Fortran_IMPLICIT_LINK_LIBRARIES}")
endif()
if(CMAKE_Fortran_COMPILER_ID STREQUAL "Compaq")
if(CMAKE_Fortran_COMPILER_ID STREQUAL Compaq)
if(WIN32)
if(CMAKE_GENERATOR STREQUAL "NMake Makefiles")
get_filename_component(CMAKE_Fortran_COMPILER_CMDNAM ${CMAKE_Fortran_COMPILER} NAME_WE)
@ -96,24 +110,16 @@ if(CMAKE_Fortran_COMPILER_ID STREQUAL "Compaq")
endif()
endif()
# Get Python
message(STATUS "Looking for Python greater than 2.6 - ${PYTHONINTERP_FOUND}")
find_package(PythonInterp 2.7) # lapack_testing.py uses features from python 2.7 and greater
if(PYTHONINTERP_FOUND)
message(STATUS "Using Python version ${PYTHON_VERSION_STRING}")
else()
message(STATUS "No suitable Python version found, so skipping summary tests.")
endif()
# --------------------------------------------------
# --------------------------------------------------
set(LAPACK_INSTALL_EXPORT_NAME lapack-targets)
macro(lapack_install_library lib)
install(TARGETS ${lib}
EXPORT ${LAPACK_INSTALL_EXPORT_NAME}
ARCHIVE DESTINATION ${CMAKE_INSTALL_LIBDIR}
LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR}
RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR}
ARCHIVE DESTINATION ${CMAKE_INSTALL_LIBDIR} COMPONENT Development
LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR} COMPONENT RuntimeLibraries
RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR} COMPONENT RuntimeLibraries
)
endmacro()
@ -121,12 +127,22 @@ set(PKG_CONFIG_DIR ${CMAKE_INSTALL_LIBDIR}/pkgconfig)
# --------------------------------------------------
# Testing
option(BUILD_TESTING "Build tests" OFF)
enable_testing()
option(BUILD_TESTING "Build tests" ${_is_coverage_build})
include(CTest)
enable_testing()
message(STATUS "Build tests: ${BUILD_TESTING}")
# lapack_testing.py uses features from python 2.7 and greater
if(BUILD_TESTING)
set(_msg "Looking for Python >= 2.7 needed for summary tests")
message(STATUS "${_msg}")
find_package(PythonInterp 2.7 QUIET)
if(PYTHONINTERP_FOUND)
message(STATUS "${_msg} - found (${PYTHON_VERSION_STRING})")
else()
message(STATUS "${_msg} - not found (skipping summary tests)")
endif()
endif()
# --------------------------------------------------
# Organize output files. On Windows this also keeps .dll files next
# to the .exe files that need them, making tests easy to run.
@ -299,16 +315,40 @@ if(LAPACKE)
add_subdirectory(LAPACKE)
endif()
#-------------------------------------
# BLAS++ / LAPACK++
option(BLAS++ "Build BLAS++" OFF)
option(LAPACK++ "Build LAPACK++" OFF)
function(_display_cpp_implementation_msg name)
string(TOLOWER ${name} name_lc)
message(STATUS "${name}++ enable")
message(STATUS "----------------")
message(STATUS "Thank you for your interest in ${name}++, a newly developed C++ API for ${name} library")
message(STATUS "The objective of ${name}++ is to provide a convenient, performance oriented API for development in the C++ language, that, for the most part, preserves established conventions, while, at the same time, takes advantages of modern C++ features, such as: namespaces, templates, exceptions, etc.")
message(STATUS "We are still working on integrating ${name}++ in our library. For the moment, you can download directly ${name_lc}++ from https://bitbucket.org/icl/${name_lc}pp")
message(STATUS "For support ${name}++ related question, please email: slate-user@icl.utk.edu")
message(STATUS "----------------")
endfunction()
if(BLAS++)
_display_cpp_implementation_msg("BLAS")
endif()
if(LAPACK++)
_display_cpp_implementation_msg("LAPACK")
endif()
# --------------------------------------------------
# CPACK Packaging
set(CPACK_PACKAGE_NAME "LAPACK")
set(CPACK_PACKAGE_VENDOR "University of Tennessee, Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd")
set(CPACK_PACKAGE_DESCRIPTION_SUMMARY "LAPACK- Linear Algebra Package")
set(CPACK_PACKAGE_VERSION_MAJOR 3)
set(CPACK_PACKAGE_VERSION_MINOR 5)
set(CPACK_PACKAGE_VERSION_PATCH 0)
set(CPACK_PACKAGE_VERSION_MAJOR ${LAPACK_MAJOR_VERSION})
set(CPACK_PACKAGE_VERSION_MINOR ${LAPACK_MINOR_VERSION})
set(CPACK_PACKAGE_VERSION_PATCH ${LAPACK_PATCH_VERSION})
set(CPACK_RESOURCE_FILE_LICENSE "${CMAKE_CURRENT_SOURCE_DIR}/LICENSE")
set(CPACK_MONOLITHIC_INSTALL ON)
set(CPACK_PACKAGE_INSTALL_DIRECTORY "LAPACK")
if(WIN32 AND NOT UNIX)
# There is a bug in NSI that does not handle full unix paths properly. Make
@ -347,7 +387,9 @@ endif()
set(_lapack_config_install_guard_target "")
if(ALL_TARGETS)
install(EXPORT lapack-targets
DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/lapack-${LAPACK_VERSION})
DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/lapack-${LAPACK_VERSION}
COMPONENT Development
)
# Choose one of the lapack targets to use as a guard for
# lapack-config.cmake to load targets from the install tree.
@ -382,6 +424,7 @@ configure_file(${CMAKE_CURRENT_SOURCE_DIR}/lapack.pc.in ${CMAKE_CURRENT_BINARY_D
install(FILES
${CMAKE_CURRENT_BINARY_DIR}/lapack.pc
DESTINATION ${PKG_CONFIG_DIR}
COMPONENT Development
)
configure_file(${LAPACK_SOURCE_DIR}/CMAKE/lapack-config-install.cmake.in
@ -398,4 +441,6 @@ install(FILES
${LAPACK_BINARY_DIR}/CMakeFiles/lapack-config.cmake
${LAPACK_BINARY_DIR}/lapack-config-version.cmake
DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/lapack-${LAPACK_VERSION}
COMPONENT Development
)

2
lapack-netlib/DOCS/Doxyfile
View File

@ -38,7 +38,7 @@ PROJECT_NAME = LAPACK
# could be handy for archiving the generated documentation or if some version
# control system is used.
PROJECT_NUMBER = 3.8.0
PROJECT_NUMBER = 3.9.0
# Using the PROJECT_BRIEF tag one can provide an optional one line description
# for a project that appears at the top of each page and should give viewer a

2
lapack-netlib/DOCS/Doxyfile_man
View File

@ -38,7 +38,7 @@ PROJECT_NAME = LAPACK
# could be handy for archiving the generated documentation or if some version
# control system is used.
PROJECT_NUMBER = 3.8.0
PROJECT_NUMBER = 3.9.0
# Using the PROJECT_BRIEF tag one can provide an optional one line description
# for a project that appears at the top of each page and should give viewer a

76
lapack-netlib/DOCS/lawn81.tex
View File

@ -439,39 +439,39 @@ SHELL = /bin/sh
\end{quote}
and it will need to be modified to \texttt{SHELL = /sbin/sh} if you are
installing LAPACK on an SGI architecture.
Second, you will
need to modify the \texttt{PLAT} definition, which is appended to all
library names, to specify the architecture to which you are installing
LAPACK. This features avoids confusion in library names when you are
installing LAPACK on more than one architecture. Next, you will need
to modify \texttt{FORTRAN}, \texttt{OPTS}, \texttt{DRVOPTS}, \texttt{NOOPT}, \texttt{LOADER},
and \texttt{LOADOPTS} to specify
Next, you will need to modify \texttt{FC}, \texttt{FFLAGS},
\texttt{FFLAGS\_DRV}, \texttt{FFLAGS\_NOOPT}, and \texttt{LDFLAGS} to specify
the compiler, compiler options, compiler options for the testing and
timing\footnotemark[\value{footnote}] main programs, loader, loader options.
Next you will have to choose which function you will use to time in the \texttt{SECOND} and \texttt{DSECND} routines.
timing\footnotemark[\value{footnote}] main programs, and linker options.
Next you will have to choose which function you will use to time in the
\texttt{SECOND} and \texttt{DSECND} routines.
\begin{verbatim}
#The Default : SECOND and DSECND will use a call to the EXTERNAL FUNCTION ETIME
TIMER = EXT_ETIME
# For RS6K : SECOND and DSECND will use a call to the EXTERNAL FUNCTION ETIME_
# Default: SECOND and DSECND will use a call to the
# EXTERNAL FUNCTION ETIME
#TIMER = EXT_ETIME
# For RS6K: SECOND and DSECND will use a call to the
# EXTERNAL FUNCTION ETIME_
#TIMER = EXT_ETIME_
# For gfortran compiler: SECOND and DSECND will use the INTERNAL FUNCTION ETIME
# TIMER = INT_ETIME
# If your Fortran compiler does not provide etime (like Nag Fortran Compiler, etc...)
# SECOND and DSECND will use a call to the INTERNAL FUNCTION CPU_TIME
# For gfortran compiler: SECOND and DSECND will use a call to the
# INTERNAL FUNCTION ETIME
TIMER = INT_ETIME
# If your Fortran compiler does not provide etime (like Nag Fortran
# Compiler, etc...) SECOND and DSECND will use a call to the
# INTERNAL FUNCTION CPU_TIME
#TIMER = INT_CPU_TIME
# If neither of this works...you can use the NONE value...
# In that case, SECOND and DSECND will always return 0
# If none of these work, you can use the NONE value.
# In that case, SECOND and DSECND will always return 0.
#TIMER = NONE
\end{verbatim}
Refer to the section~\ref{second} to get more information.
Next, you will need to modify \texttt{ARCH}, \texttt{ARCHFLAGS}, and \texttt{RANLIB} to specify archiver,
Next, you will need to modify \texttt{AR}, \texttt{ARFLAGS}, and \texttt{RANLIB} to specify archiver,
archiver options, and ranlib for your machine. If your architecture
does not require \texttt{ranlib} to be run after each archive command (as
is the case with CRAY computers running UNICOS, Hewlett Packard
computers running HP-UX, or SUN SPARCstations running Solaris), set
\texttt{ranlib=echo}. And finally, you must
\texttt{RANLIB = echo}. And finally, you must
modify the \texttt{BLASLIB} definition to specify the BLAS library to which
you will be linking. If an optimized version of the BLAS is available
on your machine, you are highly recommended to link to that library.
@ -723,7 +723,7 @@ The version that will be used depends on the value of the TIMER variable in the
\item If ETIME is available as an external function, set the value of the TIMER variable in your
make.inc to \texttt{EXT\_ETIME}: \texttt{second\_EXT\_ETIME.f} and \texttt{dsecnd\_EXT\_ETIME.f} will be used.
Usually on HPPA architectures,
the compiler and loader flag \texttt{+U77} should be included to access
the compiler and linker flag \texttt{+U77} should be included to access
the function \texttt{ETIME}.
\item If ETIME\_ is available as an external function, set the value of the TIMER variable in your make.inc
@ -738,7 +738,7 @@ This is the case with gfortan.
to \texttt{INT\_CPU\_TIME}: \texttt{second\_INT\_CPU\_TIME.f} and \texttt{dsecnd\_INT\_CPU\_TIME.f} will be used.
\item If none of these function is available, set the value of the TIMER variable in your make.inc
to \texttt{NONE:}\texttt{second\_NONE.f} and \texttt{dsecnd\_NONE.f} will be used.
to \texttt{NONE}: \texttt{second\_NONE.f} and \texttt{dsecnd\_NONE.f} will be used.
These routines will always return zero.
\end{itemize}
@ -829,8 +829,8 @@ data type to the library if necessary.
\end{itemize}
\noindent
The BLAS library is created in \texttt{LAPACK/blas\_PLAT.a}, where
\texttt{PLAT} is the user-defined architecture suffix specified in the file
The BLAS library is created in \texttt{LAPACK/librefblas.a},
or in the user-defined location specified by \texttt{BLASLIB} in the file
\texttt{LAPACK/make.inc}.
\subsection{Run the BLAS Test Programs}\label{testblas}
@ -882,8 +882,8 @@ data type to the library if necessary.
\end{itemize}
\noindent
The LAPACK library is created in \texttt{LAPACK/lapack\_PLAT.a}, where
\texttt{PLAT} is the user-defined architecture suffix specified in the file
The LAPACK library is created in \texttt{LAPACK/liblapack.a},
or in the user-defined location specified by \texttt{LAPACKLIB} in the file
\texttt{LAPACK/make.inc}.
\subsection{Create the Test Matrix Generator Library}
@ -902,9 +902,9 @@ data type to the library if necessary.
\end{itemize}
\noindent
The test matrix generator library is created in \texttt{LAPACK/tmglib\_PLAT.a},
where \texttt{PLAT} is the user-defined architecture suffix specified in the
file \texttt{LAPACK/make.inc}.
The test matrix generator library is created in \texttt{LAPACK/libtmglib.a},
or in the user-defined location specified by \texttt{TMGLIB} in the file
\texttt{LAPACK/make.inc}.
\subsection{Run the LAPACK Test Programs}
@ -1114,9 +1114,7 @@ To make a library of the instrumented LAPACK routines, first
go to \texttt{LAPACK/TIMING/LIN/LINSRC} and type \texttt{make} followed
by the data types desired, as in the examples of Section~\ref{toplevelmakefile}.
The library of instrumented code is created in
\texttt{LAPACK/TIMING/LIN/linsrc\_PLAT.a},
where \texttt{PLAT} is the user-defined architecture suffix specified in the
file \texttt{LAPACK/make.inc}.
\texttt{LAPACK/TIMING/LIN/linsrc.a}.
\end{sloppypar}
\item[b)]
@ -1251,9 +1249,7 @@ To make a library of the instrumented LAPACK routines, first
go to \texttt{LAPACK/TIMING/EIG/EIGSRC} and type \texttt{make} followed
by the data types desired, as in the examples of Section~\ref{toplevelmakefile}.
The library of instrumented code is created in
\texttt{LAPACK/TIMING/EIG/eigsrc\_PLAT.a},
where \texttt{PLAT} is the user-defined architecture suffix specified in the
file \texttt{LAPACK/make.inc}.
\texttt{LAPACK/TIMING/EIG/eigsrc.a}.
\end{sloppypar}
\item[b)]
@ -1389,7 +1385,7 @@ installing LAPACK on an SGI architecture.
\section{ETIME}
On HPPA architectures,
the compiler and loader flag \texttt{+U77} should be included to access
the compiler and linker flag \texttt{+U77} should be included to access
the function \texttt{ETIME}.
\section{ILAENV and IEEE-754 compliance}
@ -1494,13 +1490,13 @@ has two options: increase your stack size, or force all local variables
to be allocated statically.
On HPPA architectures, the
compiler and loader flag \texttt{-K} should be used when compiling these testing
compiler and linker flag \texttt{-K} should be used when compiling these testing
and timing main programs to avoid such a stack overflow. I.e., set
\texttt{DRVOPTS = -K} in the \texttt{LAPACK/make.inc} file.
\texttt{FFLAGS\_DRV = -K} in the \texttt{LAPACK/make.inc} file.
For similar reasons,
on SGI architectures, the compiler and loader flag \texttt{-static} should be
used. I.e., set \texttt{DRVOPTS = -static} in the \texttt{LAPACK/make.inc} file.
on SGI architectures, the compiler and linker flag \texttt{-static} should be
used. I.e., set \texttt{FFLAGS\_DRV = -static} in the \texttt{LAPACK/make.inc} file.
\section{IEEE arithmetic}

28
lapack-netlib/INSTALL/Makefile
View File

@ -1,30 +1,33 @@
include ../make.inc
TOPSRCDIR = ..
include $(TOPSRCDIR)/make.inc
.PHONY: all testlsame testslamch testdlamch testsecond testdsecnd testieee testversion
all: testlsame testslamch testdlamch testsecond testdsecnd testieee testversion
testlsame: lsame.o lsametst.o
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
testslamch: slamch.o lsame.o slamchtst.o
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
testdlamch: dlamch.o lsame.o dlamchtst.o
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
testsecond: second_$(TIMER).o secondtst.o
@echo "[INFO] : TIMER value: $(TIMER) (given by make.inc)"
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
testdsecnd: dsecnd_$(TIMER).o dsecndtst.o
@echo "[INFO] : TIMER value: $(TIMER) (given by make.inc)"
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
testieee: tstiee.o
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
testversion: ilaver.o LAPACK_version.o
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
.PHONY: run
run: all
./testlsame
./testslamch
@ -34,6 +37,7 @@ run: all
./testieee
./testversion
.PHONY: clean cleanobj cleanexe cleantest
clean: cleanobj cleanexe cleantest
cleanobj:
rm -f *.o
@ -42,9 +46,5 @@ cleanexe:
cleantest:
rm -f core
.SUFFIXES: .o .f
.f.o:
$(FORTRAN) $(OPTS) -c -o $@ $<
slamch.o: slamch.f ; $(FORTRAN) $(NOOPT) -c -o $@ $<
dlamch.o: dlamch.f ; $(FORTRAN) $(NOOPT) -c -o $@ $<
slamch.o: slamch.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $<
dlamch.o: dlamch.f ; $(FC) $(FFLAGS_NOOPT) -c -o $@ $<

5
lapack-netlib/INSTALL/dlamch.f
View File

@ -10,6 +10,10 @@
*
* DOUBLE PRECISION FUNCTION DLAMCH( CMACH )
*
* .. Scalar Arguments ..
* CHARACTER CMACH
* ..
*
*
*> \par Purpose:
* =============
@ -24,6 +28,7 @@
*
*> \param[in] CMACH
*> \verbatim
*> CMACH is CHARACTER*1
*> Specifies the value to be returned by DLAMCH:
*> = 'E' or 'e', DLAMCH := eps
*> = 'S' or 's , DLAMCH := sfmin

4
lapack-netlib/INSTALL/dlamchf77.f
View File

@ -10,6 +10,10 @@
*
* DOUBLE PRECISION FUNCTION DLAMCH( CMACH )
*
* .. Scalar Arguments ..
* CHARACTER CMACH
* ..
*
*
*> \par Purpose:
* =============

10
lapack-netlib/INSTALL/ilaver.f
View File

@ -25,12 +25,15 @@
* ==========
*
*> \param[out] VERS_MAJOR
*> VERS_MAJOR is INTEGER
*> return the lapack major version
*>
*> \param[out] VERS_MINOR
*> VERS_MINOR is INTEGER
*> return the lapack minor version from the major version
*>
*> \param[out] VERS_PATCH
*> VERS_PATCH is INTEGER
*> return the lapack patch version from the minor version
*
* Authors:
@ -41,24 +44,23 @@
*> \author Univ. of Colorado Denver
*> \author NAG Ltd.
*
*> \date June 2017
*> \date November 2019
*
*> \ingroup auxOTHERauxiliary
*
* =====================================================================
SUBROUTINE ILAVER( VERS_MAJOR, VERS_MINOR, VERS_PATCH )
*
* -- LAPACK computational routine (version 3.7.1) --
* -- LAPACK computational routine --
* -- LAPACK is a software package provided by Univ. of Tennessee, --
* -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
* June 2017
*
* =====================================================================
*
INTEGER VERS_MAJOR, VERS_MINOR, VERS_PATCH
* =====================================================================
VERS_MAJOR = 3
VERS_MINOR = 8
VERS_MINOR = 9
VERS_PATCH = 0
* =====================================================================
*

30
lapack-netlib/INSTALL/make.inc.ALPHA
View File

@ -11,26 +11,24 @@ SHELL = /bin/sh
CC = cc
CFLAGS = -O4
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
FORTRAN = f77
OPTS = -O4 -fpe1
DRVOPTS = $(OPTS)
NOOPT =
FC = f77
FFLAGS = -O4 -fpe1
FFLAGS_DRV = $(FFLAGS)
FFLAGS_NOOPT =
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = f77
LOADOPTS =
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = ranlib
# Timer for the SECOND and DSECND routines
@ -74,9 +72,9 @@ TIMER = EXT_ETIME
# machine-specific, optimized BLAS library should be used whenever
# possible.)
#
#BLASLIB = ../../librefblas.a
#BLASLIB = $(TOPSRCDIR)/librefblas.a
BLASLIB = -ldxml
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

30
lapack-netlib/INSTALL/make.inc.HPPA
View File

@ -11,26 +11,24 @@ SHELL = /bin/sh
CC = cc
CFLAGS =
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
FORTRAN = f77
OPTS = +O4 +U77
DRVOPTS = $(OPTS) -K
NOOPT = +U77
FC = f77
FFLAGS = +O4 +U77
FFLAGS_DRV = $(FFLAGS) -K
FFLAGS_NOOPT = +U77
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = f77
LOADOPTS = -Aa +U77
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = echo
# Timer for the SECOND and DSECND routines
@ -74,9 +72,9 @@ TIMER = EXT_ETIME
# machine-specific, optimized BLAS library should be used whenever
# possible.)
#
#BLASLIB = ../../librefblas.a
#BLASLIB = $(TOPSRCDIR)/librefblas.a
BLASLIB = -lblas
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

35
lapack-netlib/INSTALL/make.inc.IRIX64
View File

@ -11,29 +11,26 @@ SHELL = /sbin/sh
CC = cc
CFLAGS = -O3
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
FORTRAN = f77
OPTS = -O3 -64 -mips4 -r10000 -OPT:IEEE_NaN_inf=ON
#OPTS = -g -DEBUG:subscript_check=ON -trapuv -OPT:IEEE_NaN_inf=ON
DRVOPTS = $(OPTS) -static
NOOPT = -64 -mips4 -r10000 -OPT:IEEE_NaN_inf=ON
#NOOPT = -g -DEBUG:subscript_check=ON -trapuv -OPT:IEEE_NaN_inf=ON
FC = f77
FFLAGS = -O3 -64 -mips4 -r10000 -OPT:IEEE_NaN_inf=ON
#FFLAGS = -g -DEBUG:subscript_check=ON -trapuv -OPT:IEEE_NaN_inf=ON
FFLAGS_DRV = $(FFLAGS) -static
FFLAGS_NOOPT = -64 -mips4 -r10000 -OPT:IEEE_NaN_inf=ON
#FFLAGS_NOOPT = -g -DEBUG:subscript_check=ON -trapuv -OPT:IEEE_NaN_inf=ON
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = f77
LOADOPTS = -O3 -64 -mips4 -r10000 -OPT:IEEE_NaN_inf=ON
#LOADOPTS = -g -DEBUG:subscript_check=ON -trapuv -OPT:IEEE_NaN_inf=ON
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = echo
# Timer for the SECOND and DSECND routines
@ -78,8 +75,8 @@ TIMER = EXT_ETIME
# possible.)
#
#BLASLIB = -lblas
BLASLIB = ../../librefblas.a
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
BLASLIB = $(TOPSRCDIR)/librefblas.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

35
lapack-netlib/INSTALL/make.inc.O2K
View File

@ -11,29 +11,26 @@ SHELL = /sbin/sh
CC = cc
CFLAGS = -O3
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
FORTRAN = f77
OPTS = -O3 -64 -mips4 -r10000
#OPTS = -O3 -64 -mips4 -r10000 -mp
DRVOPTS = $(OPTS) -static
NOOPT = -64 -mips4 -r10000
#NOOPT = -64 -mips4 -r10000 -mp
FC = f77
FFLAGS = -O3 -64 -mips4 -r10000
#FFLAGS = -O3 -64 -mips4 -r10000 -mp
FFLAGS_DRV = $(FFLAGS) -static
FFLAGS_NOOPT = -64 -mips4 -r10000
#FFLAGS_NOOPT = -64 -mips4 -r10000 -mp
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = f77
LOADOPTS = -O3 -64 -mips4 -r10000
#LOADOPTS = -O3 -64 -mips4 -r10000 -mp
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = echo
# Timer for the SECOND and DSECND routines
@ -79,8 +76,8 @@ TIMER = EXT_ETIME
#
BLASLIB = -lblas
#BLASLIB = -lblas_mp
#BLASLIB = ../../librefblas.a
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
#BLASLIB = $(TOPSRCDIR)/librefblas.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

30
lapack-netlib/INSTALL/make.inc.SGI5
View File

@ -11,26 +11,24 @@ SHELL = /sbin/sh
CC = cc
CFLAGS = -O4
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
FORTRAN = f77
OPTS = -O4
DRVOPTS = $(OPTS) -static
NOOPT =
FC = f77
FFLAGS = -O4
FFLAGS_DRV = $(FFLAGS) -static
FFLAGS_NOOPT =
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = f77
LOADOPTS =
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = echo
# Timer for the SECOND and DSECND routines
@ -75,8 +73,8 @@ TIMER = EXT_ETIME
# possible.)
#
#BLASLIB = -lblas
BLASLIB = ../../librefblas.a
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
BLASLIB = $(TOPSRCDIR)/librefblas.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

30
lapack-netlib/INSTALL/make.inc.SUN4
View File

@ -11,26 +11,24 @@ SHELL = /bin/sh
CC = cc
CFLAGS = -O3
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
FORTRAN = f77
OPTS = -dalign -O4 -fast
DRVOPTS = $(OPTS)
NOOPT =
FC = f77
FFLAGS = -dalign -O4 -fast
FFLAGS_DRV = $(FFLAGS)
FFLAGS_NOOPT =
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = f77
LOADOPTS = -dalign -O4 -fast
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = ranlib
# Timer for the SECOND and DSECND routines
@ -75,8 +73,8 @@ TIMER = EXT_ETIME
# possible.)
#
#BLASLIB = -lblas
BLASLIB = ../../librefblas.a
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
BLASLIB = $(TOPSRCDIR)/librefblas.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

37
lapack-netlib/INSTALL/make.inc.SUN4SOL2
View File

@ -11,30 +11,27 @@ SHELL = /bin/sh
CC = cc
CFLAGS = -O3
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
FORTRAN = f77
#OPTS = -O4 -u -f -mt
#OPTS = -u -f -dalign -native -xO5 -xarch=v8plusa
OPTS = -u -f -dalign -native -xO2 -xarch=v8plusa
DRVOPTS = $(OPTS)
NOOPT = -u -f
#NOOPT = -u -f -mt
FC = f77
#FFLAGS = -O4 -u -f -mt
#FFLAGS = -u -f -dalign -native -xO5 -xarch=v8plusa
FFLAGS = -u -f -dalign -native -xO2 -xarch=v8plusa
FFLAGS_DRV = $(FFLAGS)
FFLAGS_NOOPT = -u -f
#FFLAGS_NOOPT = -u -f -mt
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = f77
#LOADOPTS = -mt
LOADOPTS = -f -dalign -native -xO2 -xarch=v8plusa
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = echo
# Timer for the SECOND and DSECND routines
@ -78,10 +75,10 @@ TIMER = EXT_ETIME
# machine-specific, optimized BLAS library should be used whenever
# possible.)
#
#BLASLIB = ../../librefblas.a
#BLASLIB = $(TOPSRCDIR)/librefblas.a
#BLASLIB = -xlic_lib=sunperf_mt
BLASLIB = -xlic_lib=sunperf
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

30
lapack-netlib/INSTALL/make.inc.XLF
View File

@ -11,27 +11,25 @@ SHELL = /bin/sh
CC = xlc
CFLAGS = -O3 -qnosave
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
FORTRAN = xlf
OPTS = -O3 -qfixed -qnosave
FC = xlf
FFLAGS = -O3 -qfixed -qnosave
# For -O2, add -qstrict=none
DRVOPTS = $(OPTS)
NOOPT = -O0 -qfixed -qnosave
FFLAGS_DRV = $(FFLAGS)
FFLAGS_NOOPT = -O0 -qfixed -qnosave
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = xlf
LOADOPTS = -qnosave
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = ranlib
# Timer for the SECOND and DSECND routines
@ -75,9 +73,9 @@ TIMER = EXT_ETIME_
# machine-specific, optimized BLAS library should be used whenever
# possible.)
#
#BLASLIB = ../../librefblas.a
#BLASLIB = $(TOPSRCDIR)/librefblas.a
BLASLIB = -lessl
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

30
lapack-netlib/INSTALL/make.inc.gfortran
View File

@ -11,7 +11,7 @@ SHELL = /bin/sh
CC = gcc
CFLAGS = -O3
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
@ -19,22 +19,20 @@ CFLAGS = -O3
# and handle these quantities appropriately. As a consequence, one
# should not compile LAPACK with flags such as -ffpe-trap=overflow.
#
FORTRAN = gfortran
OPTS = -O2 -frecursive
DRVOPTS = $(OPTS)
NOOPT = -O0 -frecursive
FC = gfortran
FFLAGS = -O2 -frecursive
FFLAGS_DRV = $(FFLAGS)
FFLAGS_NOOPT = -O0 -frecursive
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = gfortran
LOADOPTS =
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = ranlib
# Timer for the SECOND and DSECND routines
@ -78,8 +76,8 @@ TIMER = INT_ETIME
# machine-specific, optimized BLAS library should be used whenever
# possible.)
#
BLASLIB = ../../librefblas.a
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
BLASLIB = $(TOPSRCDIR)/librefblas.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

30
lapack-netlib/INSTALL/make.inc.gfortran_debug
View File

@ -11,7 +11,7 @@ SHELL = /bin/sh
CC = gcc
CFLAGS = -g
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
@ -19,22 +19,20 @@ CFLAGS = -g
# and handle these quantities appropriately. As a consequence, one
# should not compile LAPACK with flags such as -ffpe-trap=overflow.
#
FORTRAN = gfortran -fimplicit-none -g -frecursive
OPTS =
DRVOPTS = $(OPTS)
NOOPT = -g -O0 -frecursive
FC = gfortran
FFLAGS = -fimplicit-none -g -frecursive
FFLAGS_DRV = $(FFLAGS)
FFLAGS_NOOPT = $(FFLAGS) -O0
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = gfortran -g
LOADOPTS =
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = ranlib
# Timer for the SECOND and DSECND routines
@ -78,8 +76,8 @@ TIMER = INT_CPU_TIME
# machine-specific, optimized BLAS library should be used whenever
# possible.)
#
BLASLIB = ../../librefblas.a
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
BLASLIB = $(TOPSRCDIR)/librefblas.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

30
lapack-netlib/INSTALL/make.inc.ifort
View File

@ -11,26 +11,24 @@ SHELL = /bin/sh
CC = icc
CFLAGS = -O3
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
FORTRAN = ifort
OPTS = -O3 -fp-model strict -assume protect_parens
DRVOPTS = $(OPTS)
NOOPT = -O0 -fp-model strict -assume protect_parens
FC = ifort
FFLAGS = -O3 -fp-model strict -assume protect_parens
FFLAGS_DRV = $(FFLAGS)
FFLAGS_NOOPT = -O0 -fp-model strict -assume protect_parens
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = ifort
LOADOPTS =
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = ranlib
# Timer for the SECOND and DSECND routines
@ -74,8 +72,8 @@ TIMER = EXT_ETIME
# machine-specific, optimized BLAS library should be used whenever
# possible.)
#
BLASLIB = ../../librefblas.a
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
BLASLIB = $(TOPSRCDIR)/librefblas.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

30
lapack-netlib/INSTALL/make.inc.pgf95
View File

@ -11,26 +11,24 @@ SHELL = /bin/sh
CC = pgcc
CFLAGS =
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
FORTRAN = pgf95
OPTS = -O3
DRVOPTS = $(OPTS)
NOOPT = -O0
FC = pgf95
FFLAGS = -O3
FFLAGS_DRV = $(FFLAGS)
FFLAGS_NOOPT = -O0
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = $(FORTRAN)
LOADOPTS =
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = echo
# Timer for the SECOND and DSECND routines
@ -74,8 +72,8 @@ TIMER = INT_CPU_TIME
# machine-specific, optimized BLAS library should be used whenever
# possible.)
#
BLASLIB = ../../librefblas.a
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
BLASLIB = $(TOPSRCDIR)/librefblas.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

30
lapack-netlib/INSTALL/make.inc.pghpf
View File

@ -11,26 +11,24 @@ SHELL = /bin/sh
CC = pghpc
CFLAGS =
# Modify the FORTRAN and OPTS definitions to refer to the compiler
# Modify the FC and FFLAGS definitions to the desired compiler
# and desired compiler options for your machine. NOOPT refers to
# the compiler options desired when NO OPTIMIZATION is selected.
#
FORTRAN = pghpf
OPTS = -O4 -Mnohpfc -Mdclchk
DRVOPTS = $(OPTS)
NOOPT = -Mnohpfc -Mdclchk
FC = pghpf
FFLAGS = -O4 -Mnohpfc -Mdclchk
FFLAGS_DRV = $(FFLAGS)
FFLAGS_NOOPT = -Mnohpfc -Mdclchk
# Define LOADER and LOADOPTS to refer to the loader and desired
# load options for your machine.
# Define LDFLAGS to the desired linker options for your machine.
#
LOADER = pghpf
LOADOPTS =
LDFLAGS =
# The archiver and the flag(s) to use when building an archive
# (library). If your system has no ranlib, set RANLIB = echo.
#
ARCH = ar
ARCHFLAGS = cr
AR = ar
ARFLAGS = cr
RANLIB = echo
# Timer for the SECOND and DSECND routines
@ -75,8 +73,8 @@ TIMER = EXT_ETIME
# possible.)
#
#BLASLIB = -lessl
BLASLIB = ../../librefblas.a
CBLASLIB = ../../libcblas.a
LAPACKLIB = liblapack.a
TMGLIB = libtmglib.a
LAPACKELIB = liblapacke.a
BLASLIB = $(TOPSRCDIR)/librefblas.a
CBLASLIB = $(TOPSRCDIR)/libcblas.a
LAPACKLIB = $(TOPSRCDIR)/liblapack.a
TMGLIB = $(TOPSRCDIR)/libtmglib.a
LAPACKELIB = $(TOPSRCDIR)/liblapacke.a

1
lapack-netlib/INSTALL/slamch.f
View File

@ -28,6 +28,7 @@
*
*> \param[in] CMACH
*> \verbatim
*> CMACH is CHARACTER*1
*> Specifies the value to be returned by SLAMCH:
*> = 'E' or 'e', SLAMCH := eps
*> = 'S' or 's , SLAMCH := sfmin

51
lapack-netlib/LAPACKE/CMakeLists.txt
View File

@ -16,18 +16,16 @@ if(NOT FortranCInterface_GLOBAL_FOUND OR NOT FortranCInterface_MODULE_FOUND)
${LAPACK_BINARY_DIR}/include/lapacke_mangling.h)
endif()
if(WIN32 AND NOT UNIX)
add_definitions(-DHAVE_LAPACK_CONFIG_H -DLAPACK_COMPLEX_STRUCTURE)
message(STATUS "Windows BUILD")
endif()
get_directory_property(DirDefs COMPILE_DEFINITIONS)
include_directories(include ${LAPACK_BINARY_DIR}/include)
add_subdirectory(include)
add_subdirectory(src)
add_subdirectory(utils)
option(LAPACKE_BUILD_SINGLE "Build LAPACKE single precision real" ON)
option(LAPACKE_BUILD_DOUBLE "Build LAPACKE double precision real" ON)
option(LAPACKE_BUILD_COMPLEX "Build LAPACKE single precision complex" ON)
option(LAPACKE_BUILD_COMPLEX16 "Build LAPACKE double precision complex" ON)
macro(append_subdir_files variable dirname)
get_directory_property(holder DIRECTORY ${dirname} DEFINITION ${variable})
foreach(depfile ${holder})
@ -35,8 +33,29 @@ macro(append_subdir_files variable dirname)
endforeach()
endmacro()
message(STATUS "Build LAPACKE single precision real: ${LAPACKE_BUILD_SINGLE}")
message(STATUS "Build LAPACKE double precision real: ${LAPACKE_BUILD_DOUBLE}")
message(STATUS "Build LAPACKE single precision complex: ${LAPACKE_BUILD_COMPLEX}")
message(STATUS "Build LAPACKE double precision complex: ${LAPACKE_BUILD_COMPLEX16}")
append_subdir_files(LAPACKE_INCLUDE "include")
append_subdir_files(SOURCES "src")
if (LAPACKE_BUILD_SINGLE)
append_subdir_files(SOURCES_SINGLE "src")
list(APPEND SOURCES ${SOURCES_SINGLE})
endif()
if (LAPACKE_BUILD_DOUBLE)
append_subdir_files(SOURCES_DOUBLE "src")
list(APPEND SOURCES ${SOURCES_DOUBLE})
endif()
if (LAPACKE_BUILD_COMPLEX)
append_subdir_files(SOURCES_COMPLEX "src")
list(APPEND SOURCES ${SOURCES_COMPLEX})
endif()
if (LAPACKE_BUILD_COMPLEX16)
append_subdir_files(SOURCES_COMPLEX16 "src")
list(APPEND SOURCES ${SOURCES_COMPLEX16})
endif()
append_subdir_files(DEPRECATED "src")
append_subdir_files(EXTENDED "src")
append_subdir_files(MATGEN "src")
@ -61,9 +80,13 @@ set_target_properties(
SOVERSION ${LAPACK_MAJOR_VERSION}
)
target_include_directories(lapacke PUBLIC
$<BUILD_INTERFACE:${CMAKE_CURRENT_SOURCE_DIR}/../include>
$<BUILD_INTERFACE:${CMAKE_CURRENT_SOURCE_DIR}/include>
$<INSTALL_INTERFACE:include>
)
if(WIN32 AND NOT UNIX)
target_compile_definitions(lapacke PUBLIC HAVE_LAPACK_CONFIG_H LAPACK_COMPLEX_STRUCTURE)
message(STATUS "Windows BUILD")
endif()
if(LAPACKE_WITH_TMG)
target_link_libraries(lapacke PRIVATE tmglib)
@ -71,7 +94,11 @@ endif()
target_link_libraries(lapacke PRIVATE ${LAPACK_LIBRARIES})
lapack_install_library(lapacke)
install(FILES ${LAPACKE_INCLUDE} ${LAPACK_BINARY_DIR}/include/lapacke_mangling.h DESTINATION ${CMAKE_INSTALL_INCLUDEDIR})
install(
FILES ${LAPACKE_INCLUDE} ${LAPACK_BINARY_DIR}/include/lapacke_mangling.h
DESTINATION ${CMAKE_INSTALL_INCLUDEDIR}
COMPONENT Development
)
if(BUILD_TESTING)
add_subdirectory(example)
@ -82,6 +109,7 @@ configure_file(${CMAKE_CURRENT_SOURCE_DIR}/lapacke.pc.in ${CMAKE_CURRENT_BINARY_
install(FILES
${CMAKE_CURRENT_BINARY_DIR}/lapacke.pc
DESTINATION ${PKG_CONFIG_DIR}
COMPONENT Development
)
configure_file(${CMAKE_CURRENT_SOURCE_DIR}/cmake/lapacke-config-version.cmake.in
@ -95,7 +123,10 @@ install(FILES
${CMAKE_CURRENT_BINARY_DIR}/CMakeFiles/lapacke-config.cmake
${LAPACK_BINARY_DIR}/lapacke-config-version.cmake
DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/lapacke-${LAPACK_VERSION}
COMPONENT Development
)
install(EXPORT lapacke-targets
DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/lapacke-${LAPACK_VERSION})
DESTINATION ${CMAKE_INSTALL_LIBDIR}/cmake/lapacke-${LAPACK_VERSION}
COMPONENT Development
)

14
lapack-netlib/LAPACKE/Makefile
View File

@ -40,22 +40,26 @@
# To clean everything including lapacke library type
# 'make cleanall'
#
include ../make.inc
TOPSRCDIR = ..
include $(TOPSRCDIR)/make.inc
.PHONY: all
all: lapacke
.PHONY: lapacke
lapacke: include/lapacke_mangling.h
$(MAKE) -C src
$(MAKE) -C utils
include/lapacke_mangling.h: include/lapacke_mangling_with_flags.h.in
cp $< $@
cp include/lapacke_mangling_with_flags.h.in $@
.PHONY: lapacke_example
lapacke_example: lapacke
$(MAKE) -C example
#clean: cleanlib
clean: cleanobj
.PHONY: clean cleanobj cleanlib cleanexe
clean:
$(MAKE) -C src clean
$(MAKE) -C utils clean
$(MAKE) -C example clean
@ -64,6 +68,6 @@ cleanobj:
$(MAKE) -C utils cleanobj
$(MAKE) -C example cleanobj
cleanlib:
rm -f ../$(LAPACKELIB)
$(MAKE) -C src cleanlib
cleanexe:
$(MAKE) -C example cleanexe

5
lapack-netlib/LAPACKE/cmake/lapacke-config-build.cmake.in
View File

@ -7,8 +7,11 @@ if(NOT TARGET lapacke)
include("@LAPACK_BINARY_DIR@/lapack-targets.cmake")
endif()
# Hint for project building against lapack
set(LAPACKE_Fortran_COMPILER_ID ${LAPACK_Fortran_COMPILER_ID})
# Report lapacke header search locations from build tree.
set(LAPACKE_INCLUDE_DIRS "@LAPACK_BINARY_DIR@/include")
# Report lapacke libraries.
set(LAPACKE_LIBRARIES lapacke)
set(LAPACKE_LIBRARIES lapacke ${LAPACK_LIBRARIES})

5
lapack-netlib/LAPACKE/cmake/lapacke-config-install.cmake.in
View File

@ -13,11 +13,14 @@ if(NOT TARGET lapacke)
include(${_LAPACKE_SELF_DIR}/lapacke-targets.cmake)
endif()
# Hint for project building against lapack
set(LAPACKE_Fortran_COMPILER_ID ${LAPACK_Fortran_COMPILER_ID})
# Report lapacke header search locations.
set(LAPACKE_INCLUDE_DIRS ${_LAPACKE_PREFIX}/include)
# Report lapacke libraries.
set(LAPACKE_LIBRARIES lapacke)
set(LAPACKE_LIBRARIES lapacke ${LAPACK_LIBRARIES})
unset(_LAPACKE_PREFIX)
unset(_LAPACKE_SELF_DIR)

22
lapack-netlib/LAPACKE/example/Makefile
View File

@ -1,34 +1,38 @@
include ../../make.inc
TOPSRCDIR = ../..
include $(TOPSRCDIR)/make.inc
.SUFFIXES: .c .o
.c.o:
$(CC) $(CFLAGS) -I. -I../include -c -o $@ $<
.PHONY: all
all: xexample_DGESV_rowmajor \
xexample_DGESV_colmajor \
xexample_DGELS_rowmajor \
xexample_DGELS_colmajor
LIBRARIES = ../../$(LAPACKELIB) ../../$(LAPACKLIB) $(BLASLIB)
LIBRARIES = $(LAPACKELIB) $(LAPACKLIB) $(BLASLIB)
# Double Precision Examples
xexample_DGESV_rowmajor: example_DGESV_rowmajor.o lapacke_example_aux.o $(LIBRARIES)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
./$@
xexample_DGESV_colmajor: example_DGESV_colmajor.o lapacke_example_aux.o $(LIBRARIES)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
./$@
xexample_DGELS_rowmajor: example_DGELS_rowmajor.o lapacke_example_aux.o $(LIBRARIES)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
./$@
xexample_DGELS_colmajor: example_DGELS_colmajor.o lapacke_example_aux.o $(LIBRARIES)
$(LOADER) $(LOADOPTS) -o $@ $^
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^
./$@
.PHONY: clean cleanobj cleanexe
clean: cleanobj cleanexe
cleanobj:
rm -f *.o
cleanexe:
rm -f x*
.c.o:
$(CC) $(CFLAGS) -I. -I../include -c -o $@ $<

2
lapack-netlib/LAPACKE/include/CMakeLists.txt
View File

@ -1,3 +1,3 @@
set(LAPACKE_INCLUDE lapacke.h lapacke_config.h lapacke_utils.h)
set(LAPACKE_INCLUDE lapacke.h lapack.h lapacke_config.h lapacke_utils.h)
file(COPY ${LAPACKE_INCLUDE} DESTINATION ${LAPACK_BINARY_DIR}/include)

13715
lapack-netlib/LAPACKE/include/lapack.h Normal file
View File

File diff suppressed because it is too large Load Diff

7025
lapack-netlib/LAPACKE/include/lapacke.h
View File

File diff suppressed because it is too large Load Diff

327
lapack-netlib/LAPACKE/src/CMakeLists.txt
View File

@ -1,4 +1,4 @@
set(SOURCES
set(SOURCES_COMPLEX
lapacke_cbbcsd.c
lapacke_cbbcsd_work.c
lapacke_cbdsqr.c
@ -78,11 +78,11 @@ lapacke_cgeqrf_work.c
lapacke_cgeqrfp.c
lapacke_cgeqrfp_work.c
lapacke_cgeqrt.c
lapacke_cgeqrt_work.c
lapacke_cgeqrt2.c
lapacke_cgeqrt2_work.c
lapacke_cgeqrt3.c
lapacke_cgeqrt3_work.c
lapacke_cgeqrt_work.c
lapacke_cgerfs.c
lapacke_cgerfs_work.c
lapacke_cgerqf.c
@ -93,6 +93,8 @@ lapacke_cgesv.c
lapacke_cgesv_work.c
lapacke_cgesvd.c
lapacke_cgesvd_work.c
lapacke_cgesvdq.c
lapacke_cgesvdq_work.c
lapacke_cgesvdx.c
lapacke_cgesvdx_work.c
lapacke_cgesvj.c
@ -129,10 +131,10 @@ lapacke_cggevx.c
lapacke_cggevx_work.c
lapacke_cggglm.c
lapacke_cggglm_work.c
lapacke_cgghrd.c
lapacke_cgghrd_work.c
lapacke_cgghd3.c
lapacke_cgghd3_work.c
lapacke_cgghrd.c
lapacke_cgghrd_work.c
lapacke_cgglse.c
lapacke_cgglse_work.c
lapacke_cggqrf.c
@ -157,14 +159,14 @@ lapacke_cgttrs.c
lapacke_cgttrs_work.c
lapacke_chbev.c
lapacke_chbev_work.c
lapacke_chbevd.c
lapacke_chbevd_work.c
lapacke_chbevx.c
lapacke_chbevx_work.c
lapacke_chbev_2stage.c
lapacke_chbev_2stage_work.c
lapacke_chbevd.c
lapacke_chbevd_work.c
lapacke_chbevd_2stage.c
lapacke_chbevd_2stage_work.c
lapacke_chbevx.c
lapacke_chbevx_work.c
lapacke_chbevx_2stage.c
lapacke_chbevx_2stage_work.c
lapacke_chbgst.c
@ -185,18 +187,18 @@ lapacke_cheequb.c
lapacke_cheequb_work.c
lapacke_cheev.c
lapacke_cheev_work.c
lapacke_cheevd.c
lapacke_cheevd_work.c
lapacke_cheevr.c
lapacke_cheevr_work.c
lapacke_cheevx.c
lapacke_cheevx_work.c
lapacke_cheev_2stage.c
lapacke_cheev_2stage_work.c
lapacke_cheevd.c
lapacke_cheevd_work.c
lapacke_cheevd_2stage.c
lapacke_cheevd_2stage_work.c
lapacke_cheevr.c
lapacke_cheevr_work.c
lapacke_cheevr_2stage.c
lapacke_cheevr_2stage_work.c
lapacke_cheevx.c
lapacke_cheevx_work.c
lapacke_cheevx_2stage.c
lapacke_cheevx_2stage_work.c
lapacke_chegst.c
@ -214,8 +216,8 @@ lapacke_cherfs_work.c
lapacke_chesv.c
lapacke_chesv_work.c
lapacke_chesv_aa.c
lapacke_chesv_aa_2stage.c
lapacke_chesv_aa_work.c
lapacke_chesv_aa_2stage.c
lapacke_chesv_aa_2stage_work.c
lapacke_chesv_rk.c
lapacke_chesv_rk_work.c
@ -226,35 +228,35 @@ lapacke_cheswapr_work.c
lapacke_chetrd.c
lapacke_chetrd_work.c
lapacke_chetrf.c
lapacke_chetrf_rook.c
lapacke_chetrf_work.c
lapacke_chetrf_rook_work.c
lapacke_chetrf_aa.c
lapacke_chetrf_aa_2stage.c
lapacke_chetrf_aa_work.c
lapacke_chetrf_aa_2stage.c
lapacke_chetrf_aa_2stage_work.c
lapacke_chetrf_rk.c
lapacke_chetrf_rk_work.c
lapacke_chetrf_rook.c
lapacke_chetrf_rook_work.c
lapacke_chetri.c
lapacke_chetri_work.c
lapacke_chetri2.c
lapacke_chetri2_work.c
lapacke_chetri_3.c
lapacke_chetri_3_work.c
lapacke_chetri2x.c
lapacke_chetri2x_work.c
lapacke_chetri_work.c
lapacke_chetri_3.c
lapacke_chetri_3_work.c
lapacke_chetrs.c
lapacke_chetrs_rook.c
lapacke_chetrs_work.c
lapacke_chetrs2.c
lapacke_chetrs2_work.c
lapacke_chetrs_work.c
lapacke_chetrs_rook_work.c
lapacke_chetrs_aa.c
lapacke_chetrs_aa_2stage.c
lapacke_chetrs_aa_work.c
lapacke_chetrs_aa_2stage_work.c
lapacke_chetrs_3.c
lapacke_chetrs_3_work.c
lapacke_chetrs_aa.c
lapacke_chetrs_aa_work.c
lapacke_chetrs_aa_2stage.c
lapacke_chetrs_aa_2stage_work.c
lapacke_chetrs_rook.c
lapacke_chetrs_rook_work.c
lapacke_chfrk.c
lapacke_chfrk_work.c
lapacke_chgeqz.c
@ -445,52 +447,54 @@ lapacke_csyconv.c
lapacke_csyconv_work.c
lapacke_csyequb.c
lapacke_csyequb_work.c
lapacke_csyr.c
lapacke_csyr_work.c
lapacke_csyrfs.c
lapacke_csyrfs_work.c
lapacke_csysv.c
lapacke_csysv_rook.c
lapacke_csysv_rook_work.c
lapacke_csysv_work.c
lapacke_csysv_aa.c
lapacke_csysv_aa_2stage.c
lapacke_csysv_aa_work.c
lapacke_csysv_aa_2stage.c
lapacke_csysv_aa_2stage_work.c
lapacke_csysv_rk.c
lapacke_csysv_rk_work.c
lapacke_csysv_rook.c
lapacke_csysv_rook_work.c
lapacke_csysvx.c
lapacke_csysvx_work.c
lapacke_csyswapr.c
lapacke_csyswapr_work.c
lapacke_csytrf.c
lapacke_csytrf_work.c
lapacke_csytrf_rook.c
lapacke_csytrf_rook_work.c
lapacke_csytrf_aa.c
lapacke_csytrf_aa_2stage.c
lapacke_csytrf_aa_work.c
lapacke_csytrf_aa_2stage.c
lapacke_csytrf_aa_2stage_work.c
lapacke_csytrf_rk.c
lapacke_csytrf_rk_work.c
lapacke_csytrf_rook.c
lapacke_csytrf_rook_work.c
lapacke_csytri.c
lapacke_csytri_work.c
lapacke_csytri2.c
lapacke_csytri2_work.c
lapacke_csytri_3.c
lapacke_csytri_3_work.c
lapacke_csytri2x.c
lapacke_csytri2x_work.c
lapacke_csytri_work.c
lapacke_csytri_3.c
lapacke_csytri_3_work.c
lapacke_csytrs.c
lapacke_csytrs_rook.c
lapacke_csytrs_work.c
lapacke_csytrs2.c
lapacke_csytrs2_work.c
lapacke_csytrs_work.c
lapacke_csytrs_rook_work.c
lapacke_csytrs_aa.c
lapacke_csytrs_aa_2stage.c
lapacke_csytrs_aa_work.c
lapacke_csytrs_aa_2stage_work.c
lapacke_csytrs_3.c
lapacke_csytrs_3_work.c
lapacke_csytrs_aa.c
lapacke_csytrs_aa_work.c
lapacke_csytrs_aa_2stage.c
lapacke_csytrs_aa_2stage_work.c
lapacke_csytrs_rook.c
lapacke_csytrs_rook_work.c
lapacke_ctbcon.c
lapacke_ctbcon_work.c
lapacke_ctbrfs.c
@ -522,9 +526,9 @@ lapacke_ctpcon_work.c
lapacke_ctpmqrt.c
lapacke_ctpmqrt_work.c
lapacke_ctpqrt.c
lapacke_ctpqrt_work.c
lapacke_ctpqrt2.c
lapacke_ctpqrt2_work.c
lapacke_ctpqrt_work.c
lapacke_ctprfb.c
lapacke_ctprfb_work.c
lapacke_ctprfs.c
@ -601,14 +605,16 @@ lapacke_cupgtr.c
lapacke_cupgtr_work.c
lapacke_cupmtr.c
lapacke_cupmtr_work.c
)
set(SOURCES_DOUBLE
lapacke_dbbcsd.c
lapacke_dbbcsd_work.c
lapacke_dbdsdc.c
lapacke_dbdsdc_work.c
lapacke_dbdsvdx.c
lapacke_dbdsvdx_work.c
lapacke_dbdsqr.c
lapacke_dbdsqr_work.c
lapacke_dbdsvdx.c
lapacke_dbdsvdx_work.c
lapacke_ddisna.c
lapacke_ddisna_work.c
lapacke_dgbbrd.c
@ -686,11 +692,11 @@ lapacke_dgeqrf_work.c
lapacke_dgeqrfp.c
lapacke_dgeqrfp_work.c
lapacke_dgeqrt.c
lapacke_dgeqrt_work.c
lapacke_dgeqrt2.c
lapacke_dgeqrt2_work.c
lapacke_dgeqrt3.c
lapacke_dgeqrt3_work.c
lapacke_dgeqrt_work.c
lapacke_dgerfs.c
lapacke_dgerfs_work.c
lapacke_dgerqf.c
@ -701,6 +707,8 @@ lapacke_dgesv.c
lapacke_dgesv_work.c
lapacke_dgesvd.c
lapacke_dgesvd_work.c
lapacke_dgesvdq.c
lapacke_dgesvdq_work.c
lapacke_dgesvdx.c
lapacke_dgesvdx_work.c
lapacke_dgesvj.c
@ -737,10 +745,10 @@ lapacke_dggevx.c
lapacke_dggevx_work.c
lapacke_dggglm.c
lapacke_dggglm_work.c
lapacke_dgghrd.c
lapacke_dgghrd_work.c
lapacke_dgghd3.c
lapacke_dgghd3_work.c
lapacke_dgghrd.c
lapacke_dgghrd_work.c
lapacke_dgglse.c
lapacke_dgglse_work.c
lapacke_dggqrf.c
@ -823,10 +831,10 @@ lapacke_dopmtr.c
lapacke_dopmtr_work.c
lapacke_dorbdb.c
lapacke_dorbdb_work.c
lapacke_dorcsd2by1.c
lapacke_dorcsd2by1_work.c
lapacke_dorcsd.c
lapacke_dorcsd_work.c
lapacke_dorcsd2by1.c
lapacke_dorcsd2by1_work.c
lapacke_dorgbr.c
lapacke_dorgbr_work.c
lapacke_dorghr.c
@ -933,14 +941,14 @@ lapacke_dpttrs.c
lapacke_dpttrs_work.c
lapacke_dsbev.c
lapacke_dsbev_work.c
lapacke_dsbevd.c
lapacke_dsbevd_work.c
lapacke_dsbevx.c
lapacke_dsbevx_work.c
lapacke_dsbev_2stage.c
lapacke_dsbev_2stage_work.c
lapacke_dsbevd.c
lapacke_dsbevd_work.c
lapacke_dsbevd_2stage.c
lapacke_dsbevd_2stage_work.c
lapacke_dsbevx.c
lapacke_dsbevx_work.c
lapacke_dsbevx_2stage.c
lapacke_dsbevx_2stage_work.c
lapacke_dsbgst.c
@ -1021,18 +1029,18 @@ lapacke_dsyequb.c
lapacke_dsyequb_work.c
lapacke_dsyev.c
lapacke_dsyev_work.c
lapacke_dsyevd.c
lapacke_dsyevd_work.c
lapacke_dsyevr.c
lapacke_dsyevr_work.c
lapacke_dsyevx.c
lapacke_dsyevx_work.c
lapacke_dsyev_2stage.c
lapacke_dsyev_2stage_work.c
lapacke_dsyevd.c
lapacke_dsyevd_work.c
lapacke_dsyevd_2stage.c
lapacke_dsyevd_2stage_work.c
lapacke_dsyevr.c
lapacke_dsyevr_work.c
lapacke_dsyevr_2stage.c
lapacke_dsyevr_2stage_work.c
lapacke_dsyevx.c
lapacke_dsyevx_work.c
lapacke_dsyevx_2stage.c
lapacke_dsyevx_2stage_work.c
lapacke_dsygst.c
@ -1048,15 +1056,15 @@ lapacke_dsygvx_work.c
lapacke_dsyrfs.c
lapacke_dsyrfs_work.c
lapacke_dsysv.c
lapacke_dsysv_rook.c
lapacke_dsysv_rook_work.c
lapacke_dsysv_work.c
lapacke_dsysv_aa.c
lapacke_dsysv_aa_2stage.c
lapacke_dsysv_aa_work.c
lapacke_dsysv_aa_2stage.c
lapacke_dsysv_aa_2stage_work.c
lapacke_dsysv_rk.c
lapacke_dsysv_rk_work.c
lapacke_dsysv_rook.c
lapacke_dsysv_rook_work.c
lapacke_dsysvx.c
lapacke_dsysvx_work.c
lapacke_dsyswapr.c
@ -1065,33 +1073,33 @@ lapacke_dsytrd.c
lapacke_dsytrd_work.c
lapacke_dsytrf.c
lapacke_dsytrf_work.c
lapacke_dsytrf_rook.c
lapacke_dsytrf_rook_work.c
lapacke_dsytrf_aa.c
lapacke_dsytrf_aa_2stage.c
lapacke_dsytrf_aa_work.c
lapacke_dsytrf_aa_2stage.c
lapacke_dsytrf_aa_2stage_work.c
lapacke_dsytrf_rk.c
lapacke_dsytrf_rk_work.c
lapacke_dsytrf_rook.c
lapacke_dsytrf_rook_work.c
lapacke_dsytri.c
lapacke_dsytri_work.c
lapacke_dsytri2.c
lapacke_dsytri2_work.c
lapacke_dsytri_3.c
lapacke_dsytri_3_work.c
lapacke_dsytri2x.c
lapacke_dsytri2x_work.c
lapacke_dsytri_work.c
lapacke_dsytri_3.c
lapacke_dsytri_3_work.c
lapacke_dsytrs.c
lapacke_dsytrs_rook.c
lapacke_dsytrs_work.c
lapacke_dsytrs2.c
lapacke_dsytrs2_work.c
lapacke_dsytrs_aa.c
lapacke_dsytrs_aa_2stage.c
lapacke_dsytrs_aa_work.c
lapacke_dsytrs_aa_2stage_work.c
lapacke_dsytrs_3.c
lapacke_dsytrs_3_work.c
lapacke_dsytrs_work.c
lapacke_dsytrs_aa.c
lapacke_dsytrs_aa_work.c
lapacke_dsytrs_aa_2stage.c
lapacke_dsytrs_aa_2stage_work.c
lapacke_dsytrs_rook.c
lapacke_dsytrs_rook_work.c
lapacke_dtbcon.c
lapacke_dtbcon_work.c
@ -1124,9 +1132,9 @@ lapacke_dtpcon_work.c
lapacke_dtpmqrt.c
lapacke_dtpmqrt_work.c
lapacke_dtpqrt.c
lapacke_dtpqrt_work.c
lapacke_dtpqrt2.c
lapacke_dtpqrt2_work.c
lapacke_dtpqrt_work.c
lapacke_dtprfb.c
lapacke_dtprfb_work.c
lapacke_dtprfs.c
@ -1163,15 +1171,21 @@ lapacke_dtrttp.c
lapacke_dtrttp_work.c
lapacke_dtzrzf.c
lapacke_dtzrzf_work.c
)
set(SOURCES
lapacke_nancheck.c
lapacke_ilaver.c
)
set(SOURCES_SINGLE
lapacke_sbbcsd.c
lapacke_sbbcsd_work.c
lapacke_sbdsdc.c
lapacke_sbdsdc_work.c
lapacke_sbdsvdx.c
lapacke_sbdsvdx_work.c
lapacke_sbdsqr.c
lapacke_sbdsqr_work.c
lapacke_sbdsvdx.c
lapacke_sbdsvdx_work.c
lapacke_sdisna.c
lapacke_sdisna_work.c
lapacke_sgbbrd.c
@ -1249,11 +1263,11 @@ lapacke_sgeqrf_work.c
lapacke_sgeqrfp.c
lapacke_sgeqrfp_work.c
lapacke_sgeqrt.c
lapacke_sgeqrt_work.c
lapacke_sgeqrt2.c
lapacke_sgeqrt2_work.c
lapacke_sgeqrt3.c
lapacke_sgeqrt3_work.c
lapacke_sgeqrt_work.c
lapacke_sgerfs.c
lapacke_sgerfs_work.c
lapacke_sgerqf.c
@ -1264,6 +1278,8 @@ lapacke_sgesv.c
lapacke_sgesv_work.c
lapacke_sgesvd.c
lapacke_sgesvd_work.c
lapacke_sgesvdq.c
lapacke_sgesvdq_work.c
lapacke_sgesvdx.c
lapacke_sgesvdx_work.c
lapacke_sgesvj.c
@ -1300,10 +1316,10 @@ lapacke_sggevx.c
lapacke_sggevx_work.c
lapacke_sggglm.c
lapacke_sggglm_work.c
lapacke_sgghrd.c
lapacke_sgghrd_work.c
lapacke_sgghd3.c
lapacke_sgghd3_work.c
lapacke_sgghrd.c
lapacke_sgghrd_work.c
lapacke_sgglse.c
lapacke_sgglse_work.c
lapacke_sggqrf.c
@ -1496,14 +1512,14 @@ lapacke_spttrs.c
lapacke_spttrs_work.c
lapacke_ssbev.c
lapacke_ssbev_work.c
lapacke_ssbevd.c
lapacke_ssbevd_work.c
lapacke_ssbevx.c
lapacke_ssbevx_work.c
lapacke_ssbev_2stage.c
lapacke_ssbev_2stage_work.c
lapacke_ssbevd.c
lapacke_ssbevd_work.c
lapacke_ssbevd_2stage.c
lapacke_ssbevd_2stage_work.c
lapacke_ssbevx.c
lapacke_ssbevx_work.c
lapacke_ssbevx_2stage.c
lapacke_ssbevx_2stage_work.c
lapacke_ssbgst.c
@ -1580,18 +1596,18 @@ lapacke_ssyequb.c
lapacke_ssyequb_work.c
lapacke_ssyev.c
lapacke_ssyev_work.c
lapacke_ssyevd.c
lapacke_ssyevd_work.c
lapacke_ssyevr.c
lapacke_ssyevr_work.c
lapacke_ssyevx.c
lapacke_ssyevx_work.c
lapacke_ssyev_2stage.c
lapacke_ssyev_2stage_work.c
lapacke_ssyevd.c
lapacke_ssyevd_work.c
lapacke_ssyevd_2stage.c
lapacke_ssyevd_2stage_work.c
lapacke_ssyevr.c
lapacke_ssyevr_work.c
lapacke_ssyevr_2stage.c
lapacke_ssyevr_2stage_work.c
lapacke_ssyevx.c
lapacke_ssyevx_work.c
lapacke_ssyevx_2stage.c
lapacke_ssyevx_2stage_work.c
lapacke_ssygst.c
@ -1607,8 +1623,6 @@ lapacke_ssygvx_work.c
lapacke_ssyrfs.c
lapacke_ssyrfs_work.c
lapacke_ssysv.c
lapacke_ssysv_rook.c
lapacke_ssysv_rook_work.c
lapacke_ssysv_work.c
lapacke_ssysv_aa.c
lapacke_ssysv_aa_work.c
@ -1616,6 +1630,8 @@ lapacke_ssysv_aa_2stage.c
lapacke_ssysv_aa_2stage_work.c
lapacke_ssysv_rk.c
lapacke_ssysv_rk_work.c
lapacke_ssysv_rook.c
lapacke_ssysv_rook_work.c
lapacke_ssysvx.c
lapacke_ssysvx_work.c
lapacke_ssyswapr.c
@ -1624,33 +1640,33 @@ lapacke_ssytrd.c
lapacke_ssytrd_work.c
lapacke_ssytrf.c
lapacke_ssytrf_work.c
lapacke_ssytrf_rook.c
lapacke_ssytrf_rook_work.c
lapacke_ssytrf_aa.c
lapacke_ssytrf_aa_2stage.c
lapacke_ssytrf_aa_work.c
lapacke_ssytrf_aa_2stage.c
lapacke_ssytrf_aa_2stage_work.c
lapacke_ssytrf_rk.c
lapacke_ssytrf_rk_work.c
lapacke_ssytrf_rook.c
lapacke_ssytrf_rook_work.c
lapacke_ssytri.c
lapacke_ssytri_work.c
lapacke_ssytri2.c
lapacke_ssytri2_work.c
lapacke_ssytri_3.c
lapacke_ssytri_3_work.c
lapacke_ssytri2x.c
lapacke_ssytri2x_work.c
lapacke_ssytri_work.c
lapacke_ssytri_3.c
lapacke_ssytri_3_work.c
lapacke_ssytrs.c
lapacke_ssytrs_rook.c
lapacke_ssytrs_work.c
lapacke_ssytrs2.c
lapacke_ssytrs2_work.c
lapacke_ssytrs_aa.c
lapacke_ssytrs_aa_2stage.c
lapacke_ssytrs_aa_work.c
lapacke_ssytrs_aa_2stage_work.c
lapacke_ssytrs_3.c
lapacke_ssytrs_3_work.c
lapacke_ssytrs_work.c
lapacke_ssytrs_aa.c
lapacke_ssytrs_aa_work.c
lapacke_ssytrs_aa_2stage.c
lapacke_ssytrs_aa_2stage_work.c
lapacke_ssytrs_rook.c
lapacke_ssytrs_rook_work.c
lapacke_stbcon.c
lapacke_stbcon_work.c
@ -1722,6 +1738,8 @@ lapacke_strttp.c
lapacke_strttp_work.c
lapacke_stzrzf.c
lapacke_stzrzf_work.c
)
set(SOURCES_COMPLEX16
lapacke_zbbcsd.c
lapacke_zbbcsd_work.c
lapacke_zbdsqr.c
@ -1805,11 +1823,11 @@ lapacke_zgeqrf_work.c
lapacke_zgeqrfp.c
lapacke_zgeqrfp_work.c
lapacke_zgeqrt.c
lapacke_zgeqrt_work.c
lapacke_zgeqrt2.c
lapacke_zgeqrt2_work.c
lapacke_zgeqrt3.c
lapacke_zgeqrt3_work.c
lapacke_zgeqrt_work.c
lapacke_zgerfs.c
lapacke_zgerfs_work.c
lapacke_zgerqf.c
@ -1820,6 +1838,8 @@ lapacke_zgesv.c
lapacke_zgesv_work.c
lapacke_zgesvd.c
lapacke_zgesvd_work.c
lapacke_zgesvdq.c
lapacke_zgesvdq_work.c
lapacke_zgesvdx.c
lapacke_zgesvdx_work.c
lapacke_zgesvj.c
@ -1856,10 +1876,10 @@ lapacke_zggevx.c
lapacke_zggevx_work.c
lapacke_zggglm.c
lapacke_zggglm_work.c
lapacke_zgghrd.c
lapacke_zgghrd_work.c
lapacke_zgghd3.c
lapacke_zgghd3_work.c
lapacke_zgghrd.c
lapacke_zgghrd_work.c
lapacke_zgglse.c
lapacke_zgglse_work.c
lapacke_zggqrf.c
@ -1884,14 +1904,14 @@ lapacke_zgttrs.c
lapacke_zgttrs_work.c
lapacke_zhbev.c
lapacke_zhbev_work.c
lapacke_zhbevd.c
lapacke_zhbevd_work.c
lapacke_zhbevx.c
lapacke_zhbevx_work.c
lapacke_zhbev_2stage.c
lapacke_zhbev_2stage_work.c
lapacke_zhbevd.c
lapacke_zhbevd_work.c
lapacke_zhbevd_2stage.c
lapacke_zhbevd_2stage_work.c
lapacke_zhbevx.c
lapacke_zhbevx_work.c
lapacke_zhbevx_2stage.c
lapacke_zhbevx_2stage_work.c
lapacke_zhbgst.c
@ -1912,18 +1932,18 @@ lapacke_zheequb.c
lapacke_zheequb_work.c
lapacke_zheev.c
lapacke_zheev_work.c
lapacke_zheevd.c
lapacke_zheevd_work.c
lapacke_zheevr.c
lapacke_zheevr_work.c
lapacke_zheevx.c
lapacke_zheevx_work.c
lapacke_zheev_2stage.c
lapacke_zheev_2stage_work.c
lapacke_zheevd.c
lapacke_zheevd_work.c
lapacke_zheevd_2stage.c
lapacke_zheevd_2stage_work.c
lapacke_zheevr.c
lapacke_zheevr_work.c
lapacke_zheevr_2stage.c
lapacke_zheevr_2stage_work.c
lapacke_zheevx.c
lapacke_zheevx_work.c
lapacke_zheevx_2stage.c
lapacke_zheevx_2stage_work.c
lapacke_zhegst.c
@ -1941,8 +1961,8 @@ lapacke_zherfs_work.c
lapacke_zhesv.c
lapacke_zhesv_work.c
lapacke_zhesv_aa.c
lapacke_zhesv_aa_2stage.c
lapacke_zhesv_aa_work.c
lapacke_zhesv_aa_2stage.c
lapacke_zhesv_aa_2stage_work.c
lapacke_zhesv_rk.c
lapacke_zhesv_rk_work.c
@ -1953,34 +1973,34 @@ lapacke_zheswapr_work.c
lapacke_zhetrd.c
lapacke_zhetrd_work.c
lapacke_zhetrf.c
lapacke_zhetrf_rook.c
lapacke_zhetrf_work.c
lapacke_zhetrf_rook_work.c
lapacke_zhetrf_aa.c
lapacke_zhetrf_aa_2stage.c
lapacke_zhetrf_aa_work.c
lapacke_zhetrf_aa_2stage.c
lapacke_zhetrf_aa_2stage_work.c
lapacke_zhetrf_rk.c
lapacke_zhetrf_rk_work.c
lapacke_zhetrf_rook.c
lapacke_zhetrf_rook_work.c
lapacke_zhetri.c
lapacke_zhetri_work.c
lapacke_zhetri2.c
lapacke_zhetri2_work.c
lapacke_zhetri_3.c
lapacke_zhetri_3_work.c
lapacke_zhetri2x.c
lapacke_zhetri2x_work.c
lapacke_zhetri_work.c
lapacke_zhetri_3.c
lapacke_zhetri_3_work.c
lapacke_zhetrs.c
lapacke_zhetrs_rook.c
lapacke_zhetrs_work.c
lapacke_zhetrs2.c
lapacke_zhetrs2_work.c
lapacke_zhetrs_work.c
lapacke_zhetrs_aa.c
lapacke_zhetrs_aa_2stage.c
lapacke_zhetrs_aa_work.c
lapacke_zhetrs_aa_2stage_work.c
lapacke_zhetrs_3.c
lapacke_zhetrs_3_work.c
lapacke_zhetrs_aa.c
lapacke_zhetrs_aa_work.c
lapacke_zhetrs_aa_2stage.c
lapacke_zhetrs_aa_2stage_work.c
lapacke_zhetrs_rook.c
lapacke_zhetrs_rook_work.c
lapacke_zhfrk.c
lapacke_zhfrk_work.c
@ -2172,52 +2192,54 @@ lapacke_zsyconv.c
lapacke_zsyconv_work.c
lapacke_zsyequb.c
lapacke_zsyequb_work.c
lapacke_zsyr.c
lapacke_zsyr_work.c
lapacke_zsyrfs.c
lapacke_zsyrfs_work.c
lapacke_zsysv.c
lapacke_zsysv_rook.c
lapacke_zsysv_rook_work.c
lapacke_zsysv_work.c
lapacke_zsysv_aa.c
lapacke_zsysv_aa_2stage.c
lapacke_zsysv_aa_work.c
lapacke_zsysv_aa_2stage.c
lapacke_zsysv_aa_2stage_work.c
lapacke_zsysv_rk.c
lapacke_zsysv_rk_work.c
lapacke_zsysv_rook.c
lapacke_zsysv_rook_work.c
lapacke_zsysvx.c
lapacke_zsysvx_work.c
lapacke_zsyswapr.c
lapacke_zsyswapr_work.c
lapacke_zsytrf.c
lapacke_zsytrf_work.c
lapacke_zsytrf_rook.c
lapacke_zsytrf_rook_work.c
lapacke_zsytrf_aa.c
lapacke_zsytrf_aa_2stage.c
lapacke_zsytrf_aa_work.c
lapacke_zsytrf_aa_2stage.c
lapacke_zsytrf_aa_2stage_work.c
lapacke_zsytrf_rk.c
lapacke_zsytrf_rk_work.c
lapacke_zsytrf_rook.c
lapacke_zsytrf_rook_work.c
lapacke_zsytri.c
lapacke_zsytri_work.c
lapacke_zsytri2.c
lapacke_zsytri2_work.c
lapacke_zsytri_3.c
lapacke_zsytri_3_work.c
lapacke_zsytri2x.c
lapacke_zsytri2x_work.c
lapacke_zsytri_work.c
lapacke_zsytri_3.c
lapacke_zsytri_3_work.c
lapacke_zsytrs.c
lapacke_zsytrs_rook.c
lapacke_zsytrs_work.c
lapacke_zsytrs2.c
lapacke_zsytrs2_work.c
lapacke_zsytrs_work.c
lapacke_zsytrs_rook_work.c
lapacke_zsytrs_aa.c
lapacke_zsytrs_aa_2stage.c
lapacke_zsytrs_aa_work.c
lapacke_zsytrs_aa_2stage_work.c
lapacke_zsytrs_3.c
lapacke_zsytrs_3_work.c
lapacke_zsytrs_aa.c
lapacke_zsytrs_aa_work.c
lapacke_zsytrs_aa_2stage.c
lapacke_zsytrs_aa_2stage_work.c
lapacke_zsytrs_rook.c
lapacke_zsytrs_rook_work.c
lapacke_ztbcon.c
lapacke_ztbcon_work.c
lapacke_ztbrfs.c
@ -2249,9 +2271,9 @@ lapacke_ztpcon_work.c
lapacke_ztpmqrt.c
lapacke_ztpmqrt_work.c
lapacke_ztpqrt.c
lapacke_ztpqrt_work.c
lapacke_ztpqrt2.c
lapacke_ztpqrt2_work.c
lapacke_ztpqrt_work.c
lapacke_ztprfb.c
lapacke_ztprfb_work.c
lapacke_ztprfs.c
@ -2328,11 +2350,6 @@ lapacke_zupgtr.c
lapacke_zupgtr_work.c
lapacke_zupmtr.c
lapacke_zupmtr_work.c
lapacke_zsyr.c
lapacke_csyr.c
lapacke_zsyr_work.c
lapacke_csyr_work.c
lapacke_ilaver.c
)
set(DEPRECATED

367
lapack-netlib/LAPACKE/src/Makefile
View File

@ -32,12 +32,21 @@
##############################################################################
# makefile for LAPACKE, used to build lapacke binary.
#
# Note: we use multiple OBJ_A, OBJ_B, etc, instead of a single OBJ
# Note: we use multiple OBJ_S, OBJ_C, etc, instead of a single OBJ
# to allow build with mingw (argument list too long for the msys ar)
#
include ../../make.inc
TOPSRCDIR = ../..
include $(TOPSRCDIR)/make.inc
OBJ_A = \
.SUFFIXES: .c .o
.c.o:
$(CC) $(CFLAGS) -I../include -c -o $@ $<
OBJ = \
lapacke_ilaver.o \
lapacke_nancheck.o
OBJ_C = \
lapacke_cbbcsd.o \
lapacke_cbbcsd_work.o \
lapacke_cbdsqr.o \
@ -82,12 +91,12 @@ lapacke_cgeevx.o \
lapacke_cgeevx_work.o \
lapacke_cgehrd.o \
lapacke_cgehrd_work.o \
lapacke_cgejsv.o \
lapacke_cgejsv_work.o \
lapacke_cgelq.o \
lapacke_cgelq_work.o \
lapacke_cgelq2.o \
lapacke_cgelq2_work.o \
lapacke_cgejsv.o \
lapacke_cgejsv_work.o \
lapacke_cgelqf.o \
lapacke_cgelqf_work.o \
lapacke_cgels.o \
@ -117,11 +126,11 @@ lapacke_cgeqrf_work.o \
lapacke_cgeqrfp.o \
lapacke_cgeqrfp_work.o \
lapacke_cgeqrt.o \
lapacke_cgeqrt_work.o \
lapacke_cgeqrt2.o \
lapacke_cgeqrt2_work.o \
lapacke_cgeqrt3.o \
lapacke_cgeqrt3_work.o \
lapacke_cgeqrt_work.o \
lapacke_cgerfs.o \
lapacke_cgerfs_work.o \
lapacke_cgerqf.o \
@ -132,6 +141,8 @@ lapacke_cgesv.o \
lapacke_cgesv_work.o \
lapacke_cgesvd.o \
lapacke_cgesvd_work.o \
lapacke_cgesvdq.o \
lapacke_cgesvdq_work.o \
lapacke_cgesvdx.o \
lapacke_cgesvdx_work.o \
lapacke_cgesvj.o \
@ -168,10 +179,10 @@ lapacke_cggevx.o \
lapacke_cggevx_work.o \
lapacke_cggglm.o \
lapacke_cggglm_work.o \
lapacke_cgghrd.o \
lapacke_cgghrd_work.o \
lapacke_cgghd3.o \
lapacke_cgghd3_work.o \
lapacke_cgghrd.o \
lapacke_cgghrd_work.o \
lapacke_cgglse.o \
lapacke_cgglse_work.o \
lapacke_cggqrf.o \
@ -196,14 +207,14 @@ lapacke_cgttrs.o \
lapacke_cgttrs_work.o \
lapacke_chbev.o \
lapacke_chbev_work.o \
lapacke_chbevd.o \
lapacke_chbevd_work.o \
lapacke_chbevx.o \
lapacke_chbevx_work.o \
lapacke_chbev_2stage.o \
lapacke_chbev_2stage_work.o \
lapacke_chbevd.o \
lapacke_chbevd_work.o \
lapacke_chbevd_2stage.o \
lapacke_chbevd_2stage_work.o \
lapacke_chbevx.o \
lapacke_chbevx_work.o \
lapacke_chbevx_2stage.o \
lapacke_chbevx_2stage_work.o \
lapacke_chbgst.o \
@ -224,18 +235,18 @@ lapacke_cheequb.o \
lapacke_cheequb_work.o \
lapacke_cheev.o \
lapacke_cheev_work.o \
lapacke_cheevd.o \
lapacke_cheevd_work.o \
lapacke_cheevr.o \
lapacke_cheevr_work.o \
lapacke_cheevx.o \
lapacke_cheevx_work.o \
lapacke_cheev_2stage.o \
lapacke_cheev_2stage_work.o \
lapacke_cheevd.o \
lapacke_cheevd_work.o \
lapacke_cheevd_2stage.o \
lapacke_cheevd_2stage_work.o \
lapacke_cheevr.o \
lapacke_cheevr_work.o \
lapacke_cheevr_2stage.o \
lapacke_cheevr_2stage_work.o \
lapacke_cheevx.o \
lapacke_cheevx_work.o \
lapacke_cheevx_2stage.o \
lapacke_cheevx_2stage_work.o \
lapacke_chegst.o \
@ -265,35 +276,35 @@ lapacke_cheswapr_work.o \
lapacke_chetrd.o \
lapacke_chetrd_work.o \
lapacke_chetrf.o \
lapacke_chetrf_rook.o \
lapacke_chetrf_work.o \
lapacke_chetrf_rook_work.o \
lapacke_chetrf_aa.o \
lapacke_chetrf_aa_2stage.o \
lapacke_chetrf_aa_work.o \
lapacke_chetrf_aa_2stage.o \
lapacke_chetrf_aa_2stage_work.o \
lapacke_chetrf_rk.o \
lapacke_chetrf_rk_work.o \
lapacke_chetrf_rook.o \
lapacke_chetrf_rook_work.o \
lapacke_chetri.o \
lapacke_chetri_work.o \
lapacke_chetri2.o \
lapacke_chetri2_work.o \
lapacke_chetri_3.o \
lapacke_chetri_3_work.o \
lapacke_chetri2x.o \
lapacke_chetri2x_work.o \
lapacke_chetri_work.o \
lapacke_chetri_3.o \
lapacke_chetri_3_work.o \
lapacke_chetrs.o \
lapacke_chetrs_rook.o \
lapacke_chetrs_work.o \
lapacke_chetrs2.o \
lapacke_chetrs2_work.o \
lapacke_chetrs_work.o \
lapacke_chetrs_rook_work.o \
lapacke_chetrs_aa.o \
lapacke_chetrs_aa_2stage.o \
lapacke_chetrs_aa_work.o \
lapacke_chetrs_aa_2stage_work.o \
lapacke_chetrs_3.o \
lapacke_chetrs_3_work.o \
lapacke_chetrs_aa.o \
lapacke_chetrs_aa_work.o \
lapacke_chetrs_aa_2stage.o \
lapacke_chetrs_aa_2stage_work.o \
lapacke_chetrs_rook.o \
lapacke_chetrs_rook_work.o \
lapacke_chfrk.o \
lapacke_chfrk_work.o \
lapacke_chgeqz.o \
@ -484,11 +495,11 @@ lapacke_csyconv.o \
lapacke_csyconv_work.o \
lapacke_csyequb.o \
lapacke_csyequb_work.o \
lapacke_csyr.o \
lapacke_csyr_work.o \
lapacke_csyrfs.o \
lapacke_csyrfs_work.o \
lapacke_csysv.o \
lapacke_csysv_rook.o \
lapacke_csysv_rook_work.o \
lapacke_csysv_work.o \
lapacke_csysv_aa.o \
lapacke_csysv_aa_work.o \
@ -496,40 +507,42 @@ lapacke_csysv_aa_2stage.o \
lapacke_csysv_aa_2stage_work.o \
lapacke_csysv_rk.o \
lapacke_csysv_rk_work.o \
lapacke_csysv_rook.o \
lapacke_csysv_rook_work.o \
lapacke_csysvx.o \
lapacke_csysvx_work.o \
lapacke_csyswapr.o \
lapacke_csyswapr_work.o \
lapacke_csytrf.o \
lapacke_csytrf_work.o \
lapacke_csytrf_rook.o \
lapacke_csytrf_rook_work.o \
lapacke_csytrf_aa.o \
lapacke_csytrf_aa_2stage.o \
lapacke_csytrf_aa_work.o \
lapacke_csytrf_aa_2stage.o \
lapacke_csytrf_aa_2stage_work.o \
lapacke_csytrf_rk.o \
lapacke_csytrf_rk_work.o \
lapacke_csytrf_rook.o \
lapacke_csytrf_rook_work.o \
lapacke_csytri.o \
lapacke_csytri_work.o \
lapacke_csytri2.o \
lapacke_csytri2_work.o \
lapacke_csytri_3.o \
lapacke_csytri_3_work.o \
lapacke_csytri2x.o \
lapacke_csytri2x_work.o \
lapacke_csytri_work.o \
lapacke_csytri_3.o \
lapacke_csytri_3_work.o \
lapacke_csytrs.o \
lapacke_csytrs_rook.o \
lapacke_csytrs_work.o \
lapacke_csytrs2.o \
lapacke_csytrs2_work.o \
lapacke_csytrs_work.o \
lapacke_csytrs_rook_work.o \
lapacke_csytrs_aa.o \
lapacke_csytrs_aa_2stage.o \
lapacke_csytrs_aa_work.o \
lapacke_csytrs_aa_2stage_work.o \
lapacke_csytrs_3.o \
lapacke_csytrs_3_work.o \
lapacke_csytrs_aa.o \
lapacke_csytrs_aa_work.o \
lapacke_csytrs_aa_2stage.o \
lapacke_csytrs_aa_2stage_work.o \
lapacke_csytrs_rook.o \
lapacke_csytrs_rook_work.o \
lapacke_ctbcon.o \
lapacke_ctbcon_work.o \
lapacke_ctbrfs.o \
@ -561,9 +574,9 @@ lapacke_ctpcon_work.o \
lapacke_ctpmqrt.o \
lapacke_ctpmqrt_work.o \
lapacke_ctpqrt.o \
lapacke_ctpqrt_work.o \
lapacke_ctpqrt2.o \
lapacke_ctpqrt2_work.o \
lapacke_ctpqrt_work.o \
lapacke_ctprfb.o \
lapacke_ctprfb_work.o \
lapacke_ctprfs.o \
@ -639,15 +652,17 @@ lapacke_cunmtr_work.o \
lapacke_cupgtr.o \
lapacke_cupgtr_work.o \
lapacke_cupmtr.o \
lapacke_cupmtr_work.o \
lapacke_cupmtr_work.o
OBJ_D = \
lapacke_dbbcsd.o \
lapacke_dbbcsd_work.o \
lapacke_dbdsdc.o \
lapacke_dbdsdc_work.o \
lapacke_dbdsvdx.o \
lapacke_dbdsvdx_work.o \
lapacke_dbdsqr.o \
lapacke_dbdsqr_work.o \
lapacke_dbdsvdx.o \
lapacke_dbdsvdx_work.o \
lapacke_ddisna.o \
lapacke_ddisna_work.o \
lapacke_dgbbrd.o \
@ -725,11 +740,11 @@ lapacke_dgeqrf_work.o \
lapacke_dgeqrfp.o \
lapacke_dgeqrfp_work.o \
lapacke_dgeqrt.o \
lapacke_dgeqrt_work.o \
lapacke_dgeqrt2.o \
lapacke_dgeqrt2_work.o \
lapacke_dgeqrt3.o \
lapacke_dgeqrt3_work.o \
lapacke_dgeqrt_work.o \
lapacke_dgerfs.o \
lapacke_dgerfs_work.o \
lapacke_dgerqf.o \
@ -740,6 +755,8 @@ lapacke_dgesv.o \
lapacke_dgesv_work.o \
lapacke_dgesvd.o \
lapacke_dgesvd_work.o \
lapacke_dgesvdq.o \
lapacke_dgesvdq_work.o \
lapacke_dgesvdx.o \
lapacke_dgesvdx_work.o \
lapacke_dgesvj.o \
@ -776,10 +793,10 @@ lapacke_dggevx.o \
lapacke_dggevx_work.o \
lapacke_dggglm.o \
lapacke_dggglm_work.o \
lapacke_dgghrd.o \
lapacke_dgghrd_work.o \
lapacke_dgghd3.o \
lapacke_dgghd3_work.o \
lapacke_dgghrd.o \
lapacke_dgghrd_work.o \
lapacke_dgglse.o \
lapacke_dgglse_work.o \
lapacke_dggqrf.o \
@ -972,14 +989,14 @@ lapacke_dpttrs.o \
lapacke_dpttrs_work.o \
lapacke_dsbev.o \
lapacke_dsbev_work.o \
lapacke_dsbevd.o \
lapacke_dsbevd_work.o \
lapacke_dsbevx.o \
lapacke_dsbevx_work.o \
lapacke_dsbev_2stage.o \
lapacke_dsbev_2stage_work.o \
lapacke_dsbevd.o \
lapacke_dsbevd_work.o \
lapacke_dsbevd_2stage.o \
lapacke_dsbevd_2stage_work.o \
lapacke_dsbevx.o \
lapacke_dsbevx_work.o \
lapacke_dsbevx_2stage.o \
lapacke_dsbevx_2stage_work.o \
lapacke_dsbgst.o \
@ -1060,18 +1077,18 @@ lapacke_dsyequb.o \
lapacke_dsyequb_work.o \
lapacke_dsyev.o \
lapacke_dsyev_work.o \
lapacke_dsyevd.o \
lapacke_dsyevd_work.o \
lapacke_dsyevr.o \
lapacke_dsyevr_work.o \
lapacke_dsyevx.o \
lapacke_dsyevx_work.o \
lapacke_dsyev_2stage.o \
lapacke_dsyev_2stage_work.o \
lapacke_dsyevd.o \
lapacke_dsyevd_work.o \
lapacke_dsyevd_2stage.o \
lapacke_dsyevd_2stage_work.o \
lapacke_dsyevr.o \
lapacke_dsyevr_work.o \
lapacke_dsyevr_2stage.o \
lapacke_dsyevr_2stage_work.o \
lapacke_dsyevx.o \
lapacke_dsyevx_work.o \
lapacke_dsyevx_2stage.o \
lapacke_dsyevx_2stage_work.o \
lapacke_dsygst.o \
@ -1087,8 +1104,6 @@ lapacke_dsygvx_work.o \
lapacke_dsyrfs.o \
lapacke_dsyrfs_work.o \
lapacke_dsysv.o \
lapacke_dsysv_rook.o \
lapacke_dsysv_rook_work.o \
lapacke_dsysv_work.o \
lapacke_dsysv_aa.o \
lapacke_dsysv_aa_work.o \
@ -1096,6 +1111,8 @@ lapacke_dsysv_aa_2stage.o \
lapacke_dsysv_aa_2stage_work.o \
lapacke_dsysv_rk.o \
lapacke_dsysv_rk_work.o \
lapacke_dsysv_rook.o \
lapacke_dsysv_rook_work.o \
lapacke_dsysvx.o \
lapacke_dsysvx_work.o \
lapacke_dsyswapr.o \
@ -1104,36 +1121,34 @@ lapacke_dsytrd.o \
lapacke_dsytrd_work.o \
lapacke_dsytrf.o \
lapacke_dsytrf_work.o \
lapacke_dsytrf_rook.o \
lapacke_dsytrf_rook_work.o \
lapacke_dsytrf_aa.o \
lapacke_dsytrf_aa_work.o \
lapacke_dsytrf_aa_2stage.o \
lapacke_dsytrf_aa_2stage_work.o \
lapacke_dsytrf_rk.o \
lapacke_dsytrf_rk_work.o \
lapacke_dsytrf_rook.o \
lapacke_dsytrf_rook_work.o \
lapacke_dsytri.o \
lapacke_dsytri_work.o \
lapacke_dsytri2.o \
lapacke_dsytri2_work.o \
lapacke_dsytri_3.o \
lapacke_dsytri_3_work.o \
lapacke_dsytri2x.o \
lapacke_dsytri2x_work.o \
lapacke_dsytri_work.o
OBJ_B = \
lapacke_dsytri_3.o \
lapacke_dsytri_3_work.o \
lapacke_dsytrs.o \
lapacke_dsytrs_rook.o \
lapacke_dsytrs_work.o \
lapacke_dsytrs2.o \
lapacke_dsytrs2_work.o \
lapacke_dsytrs_work.o \
lapacke_dsytrs_rook_work.o \
lapacke_dsytrs_aa.o \
lapacke_dsytrs_aa_2stage.o \
lapacke_dsytrs_aa_work.o \
lapacke_dsytrs_aa_2stage_work.o \
lapacke_dsytrs_3.o \
lapacke_dsytrs_3_work.o \
lapacke_dsytrs_aa.o \
lapacke_dsytrs_aa_work.o \
lapacke_dsytrs_aa_2stage.o \
lapacke_dsytrs_aa_2stage_work.o \
lapacke_dsytrs_rook.o \
lapacke_dsytrs_rook_work.o \
lapacke_dtbcon.o \
lapacke_dtbcon_work.o \
lapacke_dtbrfs.o \
@ -1165,9 +1180,9 @@ lapacke_dtpcon_work.o \
lapacke_dtpmqrt.o \
lapacke_dtpmqrt_work.o \
lapacke_dtpqrt.o \
lapacke_dtpqrt_work.o \
lapacke_dtpqrt2.o \
lapacke_dtpqrt2_work.o \
lapacke_dtpqrt_work.o \
lapacke_dtprfb.o \
lapacke_dtprfb_work.o \
lapacke_dtprfs.o \
@ -1203,16 +1218,17 @@ lapacke_dtrttf_work.o \
lapacke_dtrttp.o \
lapacke_dtrttp_work.o \
lapacke_dtzrzf.o \
lapacke_dtzrzf_work.o \
lapacke_nancheck.o \
lapacke_dtzrzf_work.o
OBJ_S = \
lapacke_sbbcsd.o \
lapacke_sbbcsd_work.o \
lapacke_sbdsdc.o \
lapacke_sbdsdc_work.o \
lapacke_sbdsvdx.o \
lapacke_sbdsvdx_work.o \
lapacke_sbdsqr.o \
lapacke_sbdsqr_work.o \
lapacke_sbdsvdx.o \
lapacke_sbdsvdx_work.o \
lapacke_sdisna.o \
lapacke_sdisna_work.o \
lapacke_sgbbrd.o \
@ -1290,11 +1306,11 @@ lapacke_sgeqrf_work.o \
lapacke_sgeqrfp.o \
lapacke_sgeqrfp_work.o \
lapacke_sgeqrt.o \
lapacke_sgeqrt_work.o \
lapacke_sgeqrt2.o \
lapacke_sgeqrt2_work.o \
lapacke_sgeqrt3.o \
lapacke_sgeqrt3_work.o \
lapacke_sgeqrt_work.o \
lapacke_sgerfs.o \
lapacke_sgerfs_work.o \
lapacke_sgerqf.o \
@ -1305,6 +1321,8 @@ lapacke_sgesv.o \
lapacke_sgesv_work.o \
lapacke_sgesvd.o \
lapacke_sgesvd_work.o \
lapacke_sgesvdq.o \
lapacke_sgesvdq_work.o \
lapacke_sgesvdx.o \
lapacke_sgesvdx_work.o \
lapacke_sgesvj.o \
@ -1341,10 +1359,10 @@ lapacke_sggevx.o \
lapacke_sggevx_work.o \
lapacke_sggglm.o \
lapacke_sggglm_work.o \
lapacke_sgghrd.o \
lapacke_sgghrd_work.o \
lapacke_sgghd3.o \
lapacke_sgghd3_work.o \
lapacke_sgghrd.o \
lapacke_sgghrd_work.o \
lapacke_sgglse.o \
lapacke_sgglse_work.o \
lapacke_sggqrf.o \
@ -1537,14 +1555,14 @@ lapacke_spttrs.o \
lapacke_spttrs_work.o \
lapacke_ssbev.o \
lapacke_ssbev_work.o \
lapacke_ssbevd.o \
lapacke_ssbevd_work.o \
lapacke_ssbevx.o \
lapacke_ssbevx_work.o \
lapacke_ssbev_2stage.o \
lapacke_ssbev_2stage_work.o \
lapacke_ssbevd.o \
lapacke_ssbevd_work.o \
lapacke_ssbevd_2stage.o \
lapacke_ssbevd_2stage_work.o \
lapacke_ssbevx.o \
lapacke_ssbevx_work.o \
lapacke_ssbevx_2stage.o \
lapacke_ssbevx_2stage_work.o \
lapacke_ssbgst.o \
@ -1621,18 +1639,18 @@ lapacke_ssyequb.o \
lapacke_ssyequb_work.o \
lapacke_ssyev.o \
lapacke_ssyev_work.o \
lapacke_ssyevd.o \
lapacke_ssyevd_work.o \
lapacke_ssyevr.o \
lapacke_ssyevr_work.o \
lapacke_ssyevx.o \
lapacke_ssyevx_work.o \
lapacke_ssyev_2stage.o \
lapacke_ssyev_2stage_work.o \
lapacke_ssyevd.o \
lapacke_ssyevd_work.o \
lapacke_ssyevd_2stage.o \
lapacke_ssyevd_2stage_work.o \
lapacke_ssyevr.o \
lapacke_ssyevr_work.o \
lapacke_ssyevr_2stage.o \
lapacke_ssyevr_2stage_work.o \
lapacke_ssyevx.o \
lapacke_ssyevx_work.o \
lapacke_ssyevx_2stage.o \
lapacke_ssyevx_2stage_work.o \
lapacke_ssygst.o \
@ -1648,8 +1666,6 @@ lapacke_ssygvx_work.o \
lapacke_ssyrfs.o \
lapacke_ssyrfs_work.o \
lapacke_ssysv.o \
lapacke_ssysv_rook.o \
lapacke_ssysv_rook_work.o \
lapacke_ssysv_work.o \
lapacke_ssysv_aa.o \
lapacke_ssysv_aa_work.o \
@ -1657,6 +1673,8 @@ lapacke_ssysv_aa_2stage.o \
lapacke_ssysv_aa_2stage_work.o \
lapacke_ssysv_rk.o \
lapacke_ssysv_rk_work.o \
lapacke_ssysv_rook.o \
lapacke_ssysv_rook_work.o \
lapacke_ssysvx.o \
lapacke_ssysvx_work.o \
lapacke_ssyswapr.o \
@ -1665,34 +1683,34 @@ lapacke_ssytrd.o \
lapacke_ssytrd_work.o \
lapacke_ssytrf.o \
lapacke_ssytrf_work.o \
lapacke_ssytrf_rook.o \
lapacke_ssytrf_rook_work.o \
lapacke_ssytrf_aa.o \
lapacke_ssytrf_aa_work.o \
lapacke_ssytrf_aa_2stage.o \
lapacke_ssytrf_aa_2stage_work.o \
lapacke_ssytrf_rk.o \
lapacke_ssytrf_rk_work.o \
lapacke_ssytrf_rook.o \
lapacke_ssytrf_rook_work.o \
lapacke_ssytri.o \
lapacke_ssytri_work.o \
lapacke_ssytri2.o \
lapacke_ssytri2_work.o \
lapacke_ssytri_3.o \
lapacke_ssytri_3_work.o \
lapacke_ssytri2x.o \
lapacke_ssytri2x_work.o \
lapacke_ssytri_work.o \
lapacke_ssytri_3.o \
lapacke_ssytri_3_work.o \
lapacke_ssytrs.o \
lapacke_ssytrs_rook.o \
lapacke_ssytrs_work.o \
lapacke_ssytrs2.o \
lapacke_ssytrs2_work.o \
lapacke_ssytrs_work.o \
lapacke_ssytrs_rook_work.o \
lapacke_ssytrs_aa.o \
lapacke_ssytrs_aa_2stage.o \
lapacke_ssytrs_aa_work.o \
lapacke_ssytrs_aa_2stage_work.o \
lapacke_ssytrs_3.o \
lapacke_ssytrs_3_work.o \
lapacke_ssytrs_aa.o \
lapacke_ssytrs_aa_work.o \
lapacke_ssytrs_aa_2stage.o \
lapacke_ssytrs_aa_2stage_work.o \
lapacke_ssytrs_rook.o \
lapacke_ssytrs_rook_work.o \
lapacke_stbcon.o \
lapacke_stbcon_work.o \
lapacke_stbrfs.o \
@ -1762,7 +1780,9 @@ lapacke_strttf_work.o \
lapacke_strttp.o \
lapacke_strttp_work.o \
lapacke_stzrzf.o \
lapacke_stzrzf_work.o \
lapacke_stzrzf_work.o
OBJ_Z = \
lapacke_zbbcsd.o \
lapacke_zbbcsd_work.o \
lapacke_zbdsqr.o \
@ -1846,11 +1866,11 @@ lapacke_zgeqrf_work.o \
lapacke_zgeqrfp.o \
lapacke_zgeqrfp_work.o \
lapacke_zgeqrt.o \
lapacke_zgeqrt_work.o \
lapacke_zgeqrt2.o \
lapacke_zgeqrt2_work.o \
lapacke_zgeqrt3.o \
lapacke_zgeqrt3_work.o \
lapacke_zgeqrt_work.o \
lapacke_zgerfs.o \
lapacke_zgerfs_work.o \
lapacke_zgerqf.o \
@ -1861,6 +1881,8 @@ lapacke_zgesv.o \
lapacke_zgesv_work.o \
lapacke_zgesvd.o \
lapacke_zgesvd_work.o \
lapacke_zgesvdq.o \
lapacke_zgesvdq_work.o \
lapacke_zgesvdx.o \
lapacke_zgesvdx_work.o \
lapacke_zgesvj.o \
@ -1897,10 +1919,10 @@ lapacke_zggevx.o \
lapacke_zggevx_work.o \
lapacke_zggglm.o \
lapacke_zggglm_work.o \
lapacke_zgghrd.o \
lapacke_zgghrd_work.o \
lapacke_zgghd3.o \
lapacke_zgghd3_work.o \
lapacke_zgghrd.o \
lapacke_zgghrd_work.o \
lapacke_zgglse.o \
lapacke_zgglse_work.o \
lapacke_zggqrf.o \
@ -1925,14 +1947,14 @@ lapacke_zgttrs.o \
lapacke_zgttrs_work.o \
lapacke_zhbev.o \
lapacke_zhbev_work.o \
lapacke_zhbevd.o \
lapacke_zhbevd_work.o \
lapacke_zhbevx.o \
lapacke_zhbevx_work.o \
lapacke_zhbev_2stage.o \
lapacke_zhbev_2stage_work.o \
lapacke_zhbevd.o \
lapacke_zhbevd_work.o \
lapacke_zhbevd_2stage.o \
lapacke_zhbevd_2stage_work.o \
lapacke_zhbevx.o \
lapacke_zhbevx_work.o \
lapacke_zhbevx_2stage.o \
lapacke_zhbevx_2stage_work.o \
lapacke_zhbgst.o \
@ -1953,18 +1975,18 @@ lapacke_zheequb.o \
lapacke_zheequb_work.o \
lapacke_zheev.o \
lapacke_zheev_work.o \
lapacke_zheevd.o \
lapacke_zheevd_work.o \
lapacke_zheevr.o \
lapacke_zheevr_work.o \
lapacke_zheevx.o \
lapacke_zheevx_work.o \
lapacke_zheev_2stage.o \
lapacke_zheev_2stage_work.o \
lapacke_zheevd.o \
lapacke_zheevd_work.o \
lapacke_zheevd_2stage.o \
lapacke_zheevd_2stage_work.o \
lapacke_zheevr.o \
lapacke_zheevr_work.o \
lapacke_zheevr_2stage.o \
lapacke_zheevr_2stage_work.o \
lapacke_zheevx.o \
lapacke_zheevx_work.o \
lapacke_zheevx_2stage.o \
lapacke_zheevx_2stage_work.o \
lapacke_zhegst.o \
@ -1994,35 +2016,35 @@ lapacke_zheswapr_work.o \
lapacke_zhetrd.o \
lapacke_zhetrd_work.o \
lapacke_zhetrf.o \
lapacke_zhetrf_rook.o \
lapacke_zhetrf_work.o \
lapacke_zhetrf_rook_work.o \
lapacke_zhetrf_aa.o \
lapacke_zhetrf_aa_2stage.o \
lapacke_zhetrf_aa_work.o \
lapacke_zhetrf_aa_2stage.o \
lapacke_zhetrf_aa_2stage_work.o \
lapacke_zhetrf_rk.o \
lapacke_zhetrf_rk_work.o \
lapacke_zhetrf_rook.o \
lapacke_zhetrf_rook_work.o \
lapacke_zhetri.o \
lapacke_zhetri_work.o \
lapacke_zhetri2.o \
lapacke_zhetri2_work.o \
lapacke_zhetri_3.o \
lapacke_zhetri_3_work.o \
lapacke_zhetri2x.o \
lapacke_zhetri2x_work.o \
lapacke_zhetri_work.o \
lapacke_zhetri_3.o \
lapacke_zhetri_3_work.o \
lapacke_zhetrs.o \
lapacke_zhetrs_rook.o \
lapacke_zhetrs_work.o \
lapacke_zhetrs2.o \
lapacke_zhetrs2_work.o \
lapacke_zhetrs_work.o \
lapacke_zhetrs_rook_work.o \
lapacke_zhetrs_aa.o \
lapacke_zhetrs_aa_2stage.o \
lapacke_zhetrs_aa_work.o \
lapacke_zhetrs_aa_2stage_work.o \
lapacke_zhetrs_3.o \
lapacke_zhetrs_3_work.o \
lapacke_zhetrs_aa.o \
lapacke_zhetrs_aa_work.o \
lapacke_zhetrs_aa_2stage.o \
lapacke_zhetrs_aa_2stage_work.o \
lapacke_zhetrs_rook.o \
lapacke_zhetrs_rook_work.o \
lapacke_zhfrk.o \
lapacke_zhfrk_work.o \
lapacke_zhgeqz.o \
@ -2213,11 +2235,11 @@ lapacke_zsyconv.o \
lapacke_zsyconv_work.o \
lapacke_zsyequb.o \
lapacke_zsyequb_work.o \
lapacke_zsyr.o \
lapacke_zsyr_work.o \
lapacke_zsyrfs.o \
lapacke_zsyrfs_work.o \
lapacke_zsysv.o \
lapacke_zsysv_rook.o \
lapacke_zsysv_rook_work.o \
lapacke_zsysv_work.o \
lapacke_zsysv_aa.o \
lapacke_zsysv_aa_work.o \
@ -2225,40 +2247,42 @@ lapacke_zsysv_aa_2stage.o \
lapacke_zsysv_aa_2stage_work.o \
lapacke_zsysv_rk.o \
lapacke_zsysv_rk_work.o \
lapacke_zsysv_rook.o \
lapacke_zsysv_rook_work.o \
lapacke_zsysvx.o \
lapacke_zsysvx_work.o \
lapacke_zsyswapr.o \
lapacke_zsyswapr_work.o \
lapacke_zsytrf.o \
lapacke_zsytrf_work.o \
lapacke_zsytrf_rook.o \
lapacke_zsytrf_rook_work.o \
lapacke_zsytrf_aa.o \
lapacke_zsytrf_aa_2stage.o \
lapacke_zsytrf_aa_work.o \
lapacke_zsytrf_aa_2stage.o \
lapacke_zsytrf_aa_2stage_work.o \
lapacke_zsytrf_rk.o \
lapacke_zsytrf_rk_work.o \
lapacke_zsytrf_rook.o \
lapacke_zsytrf_rook_work.o \
lapacke_zsytri.o \
lapacke_zsytri_work.o \
lapacke_zsytri2.o \
lapacke_zsytri2_work.o \
lapacke_zsytri_3.o \
lapacke_zsytri_3_work.o \
lapacke_zsytri2x.o \
lapacke_zsytri2x_work.o \
lapacke_zsytri_work.o \
lapacke_zsytri_3.o \
lapacke_zsytri_3_work.o \
lapacke_zsytrs.o \
lapacke_zsytrs_rook.o \
lapacke_zsytrs_work.o \
lapacke_zsytrs2.o \
lapacke_zsytrs2_work.o \
lapacke_zsytrs_work.o \
lapacke_zsytrs_rook_work.o \
lapacke_zsytrs_aa.o \
lapacke_zsytrs_aa_2stage.o \
lapacke_zsytrs_aa_work.o \
lapacke_zsytrs_aa_2stage_work.o \
lapacke_zsytrs_3.o \
lapacke_zsytrs_3_work.o \
lapacke_zsytrs_aa.o \
lapacke_zsytrs_aa_work.o \
lapacke_zsytrs_aa_2stage.o \
lapacke_zsytrs_aa_2stage_work.o \
lapacke_zsytrs_rook.o \
lapacke_zsytrs_rook_work.o \
lapacke_ztbcon.o \
lapacke_ztbcon_work.o \
lapacke_ztbrfs.o \
@ -2290,9 +2314,9 @@ lapacke_ztpcon_work.o \
lapacke_ztpmqrt.o \
lapacke_ztpmqrt_work.o \
lapacke_ztpqrt.o \
lapacke_ztpqrt_work.o \
lapacke_ztpqrt2.o \
lapacke_ztpqrt2_work.o \
lapacke_ztpqrt_work.o \
lapacke_ztprfb.o \
lapacke_ztprfb_work.o \
lapacke_ztprfs.o \
@ -2368,12 +2392,7 @@ lapacke_zunmtr_work.o \
lapacke_zupgtr.o \
lapacke_zupgtr_work.o \
lapacke_zupmtr.o \
lapacke_zupmtr_work.o \
lapacke_zsyr.o \
lapacke_csyr.o \
lapacke_zsyr_work.o \
lapacke_csyr_work.o \
lapacke_ilaver.o
lapacke_zupmtr_work.o
ifdef BUILD_DEPRECATED
DEPRECATED = \
@ -2452,27 +2471,29 @@ lapacke_zlagsy.o \
lapacke_zlagsy_work.o
endif
all: ../../$(LAPACKELIB)
.PHONY: all
all: $(LAPACKELIB)
.PHONY: ../../$(LAPACKELIB)
../../$(LAPACKELIB): $(OBJ_A) $(OBJ_B) $(DEPRECATED) $(EXTENDED) $(MATGEN)
$(ARCH) $(ARCHFLAGS) $@ $(OBJ_A)
$(ARCH) $(ARCHFLAGS) $@ $(OBJ_B)
$(LAPACKELIB): $(OBJ) $(OBJ_S) $(OBJ_C) $(OBJ_D) $(OBJ_Z) $(DEPRECATED) $(EXTENDED) $(MATGEN)
$(AR) $(ARFLAGS) $@ $(OBJ)
$(AR) $(ARFLAGS) $@ $(OBJ_S)
$(AR) $(ARFLAGS) $@ $(OBJ_C)
$(AR) $(ARFLAGS) $@ $(OBJ_D)
$(AR) $(ARFLAGS) $@ $(OBJ_Z)
ifdef BUILD_DEPRECATED
$(ARCH) $(ARCHFLAGS) $@ $(DEPRECATED)
$(AR) $(ARFLAGS) $@ $(DEPRECATED)
endif
ifdef (USEXBLAS)
$(ARCH) $(ARCHFLAGS) $@ $(EXTENDED)
$(AR) $(ARFLAGS) $@ $(EXTENDED)
endif
ifdef LAPACKE_WITH_TMG
$(ARCH) $(ARCHFLAGS) $@ $(MATGEN)
$(AR) $(ARFLAGS) $@ $(MATGEN)
endif
$(RANLIB) $@
clean: cleanobj
.PHONY: clean cleanobj cleanlib
clean: cleanobj cleanlib
cleanobj:
rm -f *.o
.c.o:
$(CC) $(CFLAGS) -I../include -c -o $@ $<
cleanlib:
rm -f $(LAPACKELIB)

3
lapack-netlib/LAPACKE/src/lapacke_cgejsv.c
View File

@ -124,7 +124,6 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv,
float* rwork = NULL;
lapack_complex_float* cwork = NULL;
lapack_int i;
lapack_int nu, nv;
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
LAPACKE_xerbla( "LAPACKE_cgejsv", -1 );
return -1;
@ -132,8 +131,6 @@ lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv,
#ifndef LAPACK_DISABLE_NAN_CHECK
if( LAPACKE_get_nancheck() ) {
/* Optionally check input matrices for NaNs */
nu = LAPACKE_lsame( jobu, 'n' ) ? 1 : m;
nv = LAPACKE_lsame( jobv, 'n' ) ? 1 : n;
if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) {
return -10;
}

2
lapack-netlib/LAPACKE/src/lapacke_cgelsd.c
View File

@ -75,7 +75,7 @@ lapack_int LAPACKE_cgelsd( int matrix_layout, lapack_int m, lapack_int n,
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lrwork = (lapack_int)rwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */

106
lapack-netlib/LAPACKE/src/lapacke_cgesvdq.c Normal file
View File

@ -0,0 +1,106 @@
/*****************************************************************************
Copyright (c) 2014, Intel Corp.
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
* Redistributions of source code must retain the above copyright notice,
this list of conditions and the following disclaimer.
* Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
* Neither the name of Intel Corporation nor the names of its contributors
may be used to endorse or promote products derived from this software
without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
THE POSSIBILITY OF SUCH DAMAGE.
*****************************************************************************
* Contents: Native high-level C interface to LAPACK function cgesvdq
* Author: Intel Corporation
* Generated November 2018
*****************************************************************************/
#include "lapacke_utils.h"
lapack_int LAPACKE_cgesvdq( int matrix_layout, char joba, char jobp,
char jobr, char jobu, char jobv,
lapack_int m, lapack_int n, lapack_complex_float* a,
lapack_int lda, float* s, lapack_complex_float* u, lapack_int ldu,
lapack_complex_float* v, lapack_int ldv, lapack_int* numrank)
{
lapack_int info = 0;
lapack_int liwork = -1;
lapack_int* iwork = NULL;
lapack_int iwork_query;
lapack_int lcwork = -1;
lapack_complex_float* cwork = NULL;
lapack_complex_float cwork_query;
lapack_int lrwork = -1;
double* rwork = NULL;
double rwork_query;
lapack_int i;
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
LAPACKE_xerbla( "LAPACKE_cgesvdq", -1 );
return -1;
}
#ifndef LAPACK_DISABLE_NAN_CHECK
if( LAPACKE_get_nancheck() ) {
/* Optionally check input matrices for NaNs */
if( LAPACKE_cge_nancheck( matrix_layout, m, n, a, lda ) ) {
return -6;
}
}
#endif
/* Query optimal working array(s) size */
info = LAPACKE_cgesvdq_work( matrix_layout, joba, jobp, jobr, jobu, jobv,
m, n, a, lda, s, u, ldu, v, ldv, numrank,
&iwork_query, liwork, &cwork_query, lcwork,
&rwork_query, lrwork );
if( info != 0 ) {
goto exit_level_0;
}
liwork = iwork_query;
lcwork = LAPACK_C2INT(cwork_query);
lrwork = (lapack_int)rwork_query;
/* Allocate memory for work arrays */
iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) * liwork );
if( iwork == NULL ) {
info = LAPACK_WORK_MEMORY_ERROR;
goto exit_level_0;
}
cwork = (lapack_complex_float*)LAPACKE_malloc( sizeof(lapack_complex_float) * lcwork );
if( cwork == NULL ) {
info = LAPACK_WORK_MEMORY_ERROR;
goto exit_level_0;
}
rwork = (double*)LAPACKE_malloc( sizeof(double) * lrwork );
if( rwork == NULL ) {
info = LAPACK_WORK_MEMORY_ERROR;
goto exit_level_0;
}
/* Call middle-level interface */
info = LAPACKE_cgesvdq_work( matrix_layout, joba, jobp, jobr, jobu, jobv,
m, n, a, lda, s, u, ldu, v, ldv, numrank,
iwork, liwork, cwork, lcwork, rwork, lrwork );
/* Release memory and exit */
LAPACKE_free( iwork );
LAPACKE_free( cwork );
LAPACKE_free( rwork );
exit_level_0:
if( info == LAPACK_WORK_MEMORY_ERROR ) {
LAPACKE_xerbla( "LAPACKE_cgesvdq", info );
}
return info;
}

149
lapack-netlib/LAPACKE/src/lapacke_cgesvdq_work.c Normal file
View File

@ -0,0 +1,149 @@
/*****************************************************************************
Copyright (c) 2014, Intel Corp.
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
* Redistributions of source code must retain the above copyright notice,
this list of conditions and the following disclaimer.
* Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
* Neither the name of Intel Corporation nor the names of its contributors
may be used to endorse or promote products derived from this software
without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
THE POSSIBILITY OF SUCH DAMAGE.
*****************************************************************************
* Contents: Native middle-level C interface to LAPACK function cgesvdq
* Author: Intel Corporation
* Generated November 2015
*****************************************************************************/
#include "lapacke_utils.h"
lapack_int LAPACKE_cgesvdq_work( int matrix_layout, char joba, char jobp,
char jobr, char jobu, char jobv,
lapack_int m, lapack_int n, lapack_complex_float* a,
lapack_int lda, float* s, lapack_complex_float* u, lapack_int ldu,
lapack_complex_float* v, lapack_int ldv, lapack_int* numrank,
lapack_int* iwork, lapack_int liwork,
lapack_complex_float* cwork, lapack_int lcwork,
float* rwork, lapack_int lrwork )
{
lapack_int info = 0;
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
LAPACK_cgesvdq( &joba, &jobp, &jobr, &jobu, &jobv, &m, &n, a, &lda, s, u, &ldu, v, &ldv,
numrank, iwork, &liwork, cwork, &lcwork, rwork, &lrwork, &info );
if( info < 0 ) {
info = info - 1;
}
} else if( matrix_layout == LAPACK_ROW_MAJOR ) {
lapack_int nrows_u = ( LAPACKE_lsame( jobu, 'a' ) ||
LAPACKE_lsame( jobu, 's' ) ) ? m : 1;
lapack_int ncols_u = LAPACKE_lsame( jobu, 'a' ) ? m :
(LAPACKE_lsame( jobu, 's' ) ? MIN(m,n) : 1);
lapack_int nrows_v = LAPACKE_lsame( jobv, 'a' ) ? n :
( LAPACKE_lsame( jobv, 's' ) ? MIN(m,n) : 1);
lapack_int lda_t = MAX(1,m);
lapack_int ldu_t = MAX(1,nrows_u);
lapack_int ldv_t = MAX(1,nrows_v);
lapack_complex_float* a_t = NULL;
lapack_complex_float* u_t = NULL;
lapack_complex_float* v_t = NULL;
/* Check leading dimension(s) */
if( lda < n ) {
info = -9;
LAPACKE_xerbla( "LAPACKE_cgesvdq_work", info );
return info;
}
if( ldu < ncols_u ) {
info = -12;
LAPACKE_xerbla( "LAPACKE_cgesvdq_work", info );
return info;
}
if( ldv < n ) {
info = -14;
LAPACKE_xerbla( "LAPACKE_cgesvdq_work", info );
return info;
}
/* Query optimal working array(s) size if requested */
if( lcwork == -1 ) {
LAPACK_cgesvdq( &joba, &jobp, &jobr, &jobu, &jobv, &m, &n, a, &lda_t,
s, u, &ldu_t, v, &ldv_t, numrank, iwork, &liwork,
cwork, &lcwork, rwork, &lrwork, &info );
return (info < 0) ? (info - 1) : info;
}
/* Allocate memory for temporary array(s) */
a_t = (lapack_complex_float*)LAPACKE_malloc( sizeof(lapack_complex_float) * lda_t * MAX(1,n) );
if( a_t == NULL ) {
info = LAPACK_TRANSPOSE_MEMORY_ERROR;
goto exit_level_0;
}
if( LAPACKE_lsame( jobu, 'a' ) || LAPACKE_lsame( jobu, 's' ) ) {
u_t = (lapack_complex_float*)
LAPACKE_malloc( sizeof(lapack_complex_float) * ldu_t * MAX(1,ncols_u) );
if( u_t == NULL ) {
info = LAPACK_TRANSPOSE_MEMORY_ERROR;
goto exit_level_1;
}
}
if( LAPACKE_lsame( jobv, 'a' ) || LAPACKE_lsame( jobv, 's' ) ) {
v_t = (lapack_complex_float*)
LAPACKE_malloc( sizeof(lapack_complex_float) * ldv_t * MAX(1,n) );
if( v_t == NULL ) {
info = LAPACK_TRANSPOSE_MEMORY_ERROR;
goto exit_level_2;
}
}
/* Transpose input matrices */
LAPACKE_cge_trans( matrix_layout, m, n, a, lda, a_t, lda_t );
/* Call LAPACK function and adjust info */
LAPACK_cgesvdq( &joba, &jobp, &jobr, &jobu, &jobv, &m, &n, a, &lda_t,
s, u, &ldu_t, v, &ldv_t, numrank, iwork, &liwork,
cwork, &lcwork, rwork, &lrwork, &info );
if( info < 0 ) {
info = info - 1;
}
/* Transpose output matrices */
LAPACKE_cge_trans( LAPACK_COL_MAJOR, m, n, a_t, lda_t, a, lda );
if( LAPACKE_lsame( jobu, 'a' ) || LAPACKE_lsame( jobu, 's' ) ) {
LAPACKE_cge_trans( LAPACK_COL_MAJOR, nrows_u, ncols_u, u_t, ldu_t,
u, ldu );
}
if( LAPACKE_lsame( jobv, 'a' ) || LAPACKE_lsame( jobv, 's' ) ) {
LAPACKE_cge_trans( LAPACK_COL_MAJOR, nrows_v, n, v_t, ldv_t, v,
ldv );
}
/* Release memory and exit */
if( LAPACKE_lsame( jobv, 'a' ) || LAPACKE_lsame( jobv, 's' ) ) {
LAPACKE_free( v_t );
}
exit_level_2:
if( LAPACKE_lsame( jobu, 'a' ) || LAPACKE_lsame( jobu, 's' ) ) {
LAPACKE_free( u_t );
}
exit_level_1:
LAPACKE_free( a_t );
exit_level_0:
if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) {
LAPACKE_xerbla( "LAPACKE_cgesvdq_work", info );
}
} else {
info = -1;
LAPACKE_xerbla( "LAPACKE_cgesvdq_work", info );
}
return info;
}

2
lapack-netlib/LAPACKE/src/lapacke_cggesx.c
View File

@ -91,7 +91,7 @@ lapack_int LAPACKE_cggesx( int matrix_layout, char jobvsl, char jobvsr,
if( info != 0 ) {
goto exit_level_2;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */
iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) * liwork );

2
lapack-netlib/LAPACKE/src/lapacke_chbevd.c
View File

@ -67,7 +67,7 @@ lapack_int LAPACKE_chbevd( int matrix_layout, char jobz, char uplo, lapack_int n
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lrwork = (lapack_int)rwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */

2
lapack-netlib/LAPACKE/src/lapacke_chbevd_2stage.c
View File

@ -67,7 +67,7 @@ lapack_int LAPACKE_chbevd_2stage( int matrix_layout, char jobz, char uplo, lapac
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lrwork = (lapack_int)rwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */

2
lapack-netlib/LAPACKE/src/lapacke_chbgvd.c
View File

@ -71,7 +71,7 @@ lapack_int LAPACKE_chbgvd( int matrix_layout, char jobz, char uplo, lapack_int n
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lrwork = (lapack_int)rwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */

4
lapack-netlib/LAPACKE/src/lapacke_cheev_work.c
View File

@ -70,7 +70,7 @@ lapack_int LAPACKE_cheev_work( int matrix_layout, char jobz, char uplo,
goto exit_level_0;
}
/* Transpose input matrices */
LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t );
LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t );
/* Call LAPACK function and adjust info */
LAPACK_cheev( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, rwork,
&info );
@ -78,7 +78,7 @@ lapack_int LAPACKE_cheev_work( int matrix_layout, char jobz, char uplo,
info = info - 1;
}
/* Transpose output matrices */
LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda );
LAPACKE_che_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda );
/* Release memory and exit */
LAPACKE_free( a_t );
exit_level_0:

4
lapack-netlib/LAPACKE/src/lapacke_cheevd.c
View File

@ -53,7 +53,7 @@ lapack_int LAPACKE_cheevd( int matrix_layout, char jobz, char uplo, lapack_int n
#ifndef LAPACK_DISABLE_NAN_CHECK
if( LAPACKE_get_nancheck() ) {
/* Optionally check input matrices for NaNs */
if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) {
if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) {
return -5;
}
}
@ -65,7 +65,7 @@ lapack_int LAPACKE_cheevd( int matrix_layout, char jobz, char uplo, lapack_int n
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lrwork = (lapack_int)rwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */

4
lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage.c
View File

@ -53,7 +53,7 @@ lapack_int LAPACKE_cheevd_2stage( int matrix_layout, char jobz, char uplo, lapac
#ifndef LAPACK_DISABLE_NAN_CHECK
if( LAPACKE_get_nancheck() ) {
/* Optionally check input matrices for NaNs */
if( LAPACKE_cge_nancheck( matrix_layout, n, n, a, lda ) ) {
if( LAPACKE_che_nancheck( matrix_layout, uplo, n, a, lda ) ) {
return -5;
}
}
@ -65,7 +65,7 @@ lapack_int LAPACKE_cheevd_2stage( int matrix_layout, char jobz, char uplo, lapac
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lrwork = (lapack_int)rwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */

4
lapack-netlib/LAPACKE/src/lapacke_cheevd_2stage_work.c
View File

@ -71,7 +71,7 @@ lapack_int LAPACKE_cheevd_2stage_work( int matrix_layout, char jobz, char uplo,
goto exit_level_0;
}
/* Transpose input matrices */
LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t );
LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t );
/* Call LAPACK function and adjust info */
LAPACK_cheevd_2stage( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, rwork,
&lrwork, iwork, &liwork, &info );
@ -79,7 +79,7 @@ lapack_int LAPACKE_cheevd_2stage_work( int matrix_layout, char jobz, char uplo,
info = info - 1;
}
/* Transpose output matrices */
LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda );
LAPACKE_che_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda );
/* Release memory and exit */
LAPACKE_free( a_t );
exit_level_0:

5
lapack-netlib/LAPACKE/src/lapacke_cheevd_work.c
View File

@ -71,7 +71,7 @@ lapack_int LAPACKE_cheevd_work( int matrix_layout, char jobz, char uplo,
goto exit_level_0;
}
/* Transpose input matrices */
LAPACKE_cge_trans( matrix_layout, n, n, a, lda, a_t, lda_t );
LAPACKE_che_trans( matrix_layout, uplo, n, a, lda, a_t, lda_t );
/* Call LAPACK function and adjust info */
LAPACK_cheevd( &jobz, &uplo, &n, a_t, &lda_t, w, work, &lwork, rwork,
&lrwork, iwork, &liwork, &info );
@ -79,7 +79,8 @@ lapack_int LAPACKE_cheevd_work( int matrix_layout, char jobz, char uplo,
info = info - 1;
}
/* Transpose output matrices */
LAPACKE_cge_trans( LAPACK_COL_MAJOR, n, n, a_t, lda_t, a, lda );
LAPACKE_che_trans( LAPACK_COL_MAJOR, uplo, n, a_t, lda_t, a, lda );
/* Release memory and exit */
LAPACKE_free( a_t );
exit_level_0:

2
lapack-netlib/LAPACKE/src/lapacke_cheevr.c
View File

@ -83,7 +83,7 @@ lapack_int LAPACKE_cheevr( int matrix_layout, char jobz, char range, char uplo,
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lrwork = (lapack_int)rwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */

2
lapack-netlib/LAPACKE/src/lapacke_cheevr_2stage.c
View File

@ -83,7 +83,7 @@ lapack_int LAPACKE_cheevr_2stage( int matrix_layout, char jobz, char range, char
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lrwork = (lapack_int)rwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */

2
lapack-netlib/LAPACKE/src/lapacke_chegst.c
View File

@ -35,7 +35,7 @@
lapack_int LAPACKE_chegst( int matrix_layout, lapack_int itype, char uplo,
lapack_int n, lapack_complex_float* a,
lapack_int lda, const lapack_complex_float* b,
lapack_int lda, lapack_complex_float* b,
lapack_int ldb )
{
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {

2
lapack-netlib/LAPACKE/src/lapacke_chegst_work.c
View File

@ -35,7 +35,7 @@
lapack_int LAPACKE_chegst_work( int matrix_layout, lapack_int itype, char uplo,
lapack_int n, lapack_complex_float* a,
lapack_int lda, const lapack_complex_float* b,
lapack_int lda, lapack_complex_float* b,
lapack_int ldb )
{
lapack_int info = 0;

2
lapack-netlib/LAPACKE/src/lapacke_chegvd.c
View File

@ -70,7 +70,7 @@ lapack_int LAPACKE_chegvd( int matrix_layout, lapack_int itype, char jobz,
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lrwork = (lapack_int)rwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */

2
lapack-netlib/LAPACKE/src/lapacke_chpevd.c
View File

@ -66,7 +66,7 @@ lapack_int LAPACKE_chpevd( int matrix_layout, char jobz, char uplo, lapack_int n
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lrwork = (lapack_int)rwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */

2
lapack-netlib/LAPACKE/src/lapacke_chpgvd.c
View File

@ -70,7 +70,7 @@ lapack_int LAPACKE_chpgvd( int matrix_layout, lapack_int itype, char jobz,
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lrwork = (lapack_int)rwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */

19
lapack-netlib/LAPACKE/src/lapacke_clantr_work.c
View File

@ -43,12 +43,10 @@ float LAPACKE_clantr_work( int matrix_layout, char norm, char uplo,
if( matrix_layout == LAPACK_COL_MAJOR ) {
/* Call LAPACK function and adjust info */
res = LAPACK_clantr( &norm, &uplo, &diag, &m, &n, a, &lda, work );
if( info < 0 ) {
info = info - 1;
}
} else if( matrix_layout == LAPACK_ROW_MAJOR ) {
lapack_int lda_t = MAX(1,m);
lapack_complex_float* a_t = NULL;
float* work_lapack = NULL;
/* Check leading dimension(s) */
if( lda < n ) {
info = -8;
@ -62,12 +60,23 @@ float LAPACKE_clantr_work( int matrix_layout, char norm, char uplo,
info = LAPACK_TRANSPOSE_MEMORY_ERROR;
goto exit_level_0;
}
/* Allocate memory for work array(s) */
if( LAPACKE_lsame( norm, 'i' ) ) {
work_lapack = (float*)LAPACKE_malloc( sizeof(float) * MAX(1,m) );
if( work_lapack == NULL ) {
info = LAPACK_WORK_MEMORY_ERROR;
goto exit_level_1;
}
}
/* Transpose input matrices */
LAPACKE_ctr_trans( matrix_layout, uplo, diag, MAX(m,n), a, lda, a_t, lda_t );
/* Call LAPACK function and adjust info */
res = LAPACK_clantr( &norm, &uplo, &diag, &m, &n, a_t, &lda_t, work );
info = 0; /* LAPACK call is ok! */
res = LAPACK_clantr( &norm, &uplo, &diag, &m, &n, a_t, &lda_t, work_lapack );
/* Release memory and exit */
if( work_lapack ) {
LAPACKE_free( work_lapack );
}
exit_level_1:
LAPACKE_free( a_t );
exit_level_0:
if( info == LAPACK_TRANSPOSE_MEMORY_ERROR ) {

2
lapack-netlib/LAPACKE/src/lapacke_cstedc.c
View File

@ -73,7 +73,7 @@ lapack_int LAPACKE_cstedc( int matrix_layout, char compz, lapack_int n, float* d
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lrwork = (lapack_int)rwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */

2
lapack-netlib/LAPACKE/src/lapacke_cstegr.c
View File

@ -81,7 +81,7 @@ lapack_int LAPACKE_cstegr( int matrix_layout, char jobz, char range,
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lwork = (lapack_int)work_query;
/* Allocate memory for work arrays */
iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) * liwork );

2
lapack-netlib/LAPACKE/src/lapacke_cstemr.c
View File

@ -75,7 +75,7 @@ lapack_int LAPACKE_cstemr( int matrix_layout, char jobz, char range,
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lwork = (lapack_int)work_query;
/* Allocate memory for work arrays */
iwork = (lapack_int*)LAPACKE_malloc( sizeof(lapack_int) * liwork );

2
lapack-netlib/LAPACKE/src/lapacke_csytrs2.c
View File

@ -34,7 +34,7 @@
#include "lapacke_utils.h"
lapack_int LAPACKE_csytrs2( int matrix_layout, char uplo, lapack_int n,
lapack_int nrhs, const lapack_complex_float* a,
lapack_int nrhs, lapack_complex_float* a,
lapack_int lda, const lapack_int* ipiv,
lapack_complex_float* b, lapack_int ldb )
{

2
lapack-netlib/LAPACKE/src/lapacke_csytrs2_work.c
View File

@ -34,7 +34,7 @@
#include "lapacke_utils.h"
lapack_int LAPACKE_csytrs2_work( int matrix_layout, char uplo, lapack_int n,
lapack_int nrhs, const lapack_complex_float* a,
lapack_int nrhs, lapack_complex_float* a,
lapack_int lda, const lapack_int* ipiv,
lapack_complex_float* b, lapack_int ldb,
lapack_complex_float* work )

2
lapack-netlib/LAPACKE/src/lapacke_ctgsen.c
View File

@ -84,7 +84,7 @@ lapack_int LAPACKE_ctgsen( int matrix_layout, lapack_int ijob,
if( info != 0 ) {
goto exit_level_0;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lwork = LAPACK_C2INT( work_query );
/* Allocate memory for work arrays */
if( ijob != 0 ) {

23
lapack-netlib/LAPACKE/src/lapacke_ctprfb.c
View File

@ -41,7 +41,7 @@ lapack_int LAPACKE_ctprfb( int matrix_layout, char side, char trans, char direct
lapack_complex_float* a, lapack_int lda,
lapack_complex_float* b, lapack_int ldb )
{
lapack_int ncols_v, nrows_v;
lapack_int ncols_v, nrows_v, ncols_a, nrows_a;
lapack_int info = 0;
lapack_int ldwork;
lapack_int work_size;
@ -52,20 +52,33 @@ lapack_int LAPACKE_ctprfb( int matrix_layout, char side, char trans, char direct
}
#ifndef LAPACK_DISABLE_NAN_CHECK
if( LAPACKE_get_nancheck() ) {
/* Optionally check input matrices for NaNs */
/* Optionally check input matrices for NaNs
* V is m-by-k (left, columnwise)
* or n-by-k (right, columnwise)
* or k-by-m (left, rowwise)
* or k-by-n (right, rowwise)
* T is k-by-k
* A is k-by-n (left)
* or m-by-k (right)
* B is m-by-n
*/
if( LAPACKE_lsame( storev, 'C' ) ) {
ncols_v = k;
nrows_v = LAPACKE_lsame( side, 'L' ) ? m :
( LAPACKE_lsame( side, 'R' ) ? n : 0 );
LAPACKE_lsame( side, 'R' ) ? n : 0;
} else if( LAPACKE_lsame( storev, 'R' ) ) {
ncols_v = LAPACKE_lsame( side, 'L' ) ? m :
( LAPACKE_lsame( side, 'R' ) ? n : 0 );
LAPACKE_lsame( side, 'R' ) ? n : 0;
nrows_v = k;
} else {
ncols_v = 0;
nrows_v = 0;
}
if( LAPACKE_cge_nancheck( matrix_layout, k, m, a, lda ) ) {
nrows_a = LAPACKE_lsame( side, 'L' ) ? k :
LAPACKE_lsame( side, 'R' ) ? m : 0;
ncols_a = LAPACKE_lsame( side, 'L' ) ? n :
LAPACKE_lsame( side, 'R' ) ? k : 0;
if( LAPACKE_cge_nancheck( matrix_layout, ncols_a, nrows_a, a, lda ) ) {
return -14;
}
if( LAPACKE_cge_nancheck( matrix_layout, m, n, b, ldb ) ) {

2
lapack-netlib/LAPACKE/src/lapacke_cunmhr.c
View File

@ -58,7 +58,7 @@ lapack_int LAPACKE_cunmhr( int matrix_layout, char side, char trans,
if( LAPACKE_cge_nancheck( matrix_layout, m, n, c, ldc ) ) {
return -11;
}
if( LAPACKE_c_nancheck( m-1, tau, 1 ) ) {
if( LAPACKE_c_nancheck( r-1, tau, 1 ) ) {
return -10;
}
}

2
lapack-netlib/LAPACKE/src/lapacke_dgeesx.c
View File

@ -76,7 +76,7 @@ lapack_int LAPACKE_dgeesx( int matrix_layout, char jobvs, char sort,
if( info != 0 ) {
goto exit_level_1;
}
liwork = (lapack_int)iwork_query;
liwork = iwork_query;
lwork = (lapack_int)work_query;
/* Allocate memory for work arrays */
if( LAPACKE_lsame( sense, 'b' ) || LAPACKE_lsame( sense, 'v' ) ) {

3
lapack-netlib/LAPACKE/src/lapacke_dgejsv.c
View File

@ -74,7 +74,6 @@ lapack_int LAPACKE_dgejsv( int matrix_layout, char joba, char jobu, char jobv,
lapack_int* iwork = NULL;
double* work = NULL;
lapack_int i;
lapack_int nu, nv;
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
LAPACKE_xerbla( "LAPACKE_dgejsv", -1 );
return -1;
@ -82,8 +81,6 @@ lapack_int LAPACKE_dgejsv( int matrix_layout, char joba, char jobu, char jobv,
#ifndef LAPACK_DISABLE_NAN_CHECK
if( LAPACKE_get_nancheck() ) {
/* Optionally check input matrices for NaNs */
nu = LAPACKE_lsame( jobu, 'n' ) ? 1 : m;
nv = LAPACKE_lsame( jobv, 'n' ) ? 1 : n;
if( LAPACKE_dge_nancheck( matrix_layout, m, n, a, lda ) ) {
return -10;
}

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